3rd person shooter shoulder camera

Author

Message

TheConnorian

16

Years of Service

User Offline

Joined: 18th Dec 2009

Location: I\'m in ur game, pwning ur noobs

Posted: 20th May 2011 22:58 Edited at: 20th May 2011 23:00

Link

I need help with a small piece of code to create an over the shoulder camera, like in red dead redemption, gears of war and other games. It seems to be a good angle for rpg games (gears of war isn't one in case someone tries to point that out) however the code snippet which I pinched from the forums isn't giving me the continous over the shoulder camera I would like.

Heres the code

sync on : sync rate 30
hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,2
position object 2,0,0,-15
position camera 0,2,-20
make object box 3,1,1,4

do

x# = object position X(2)
y# = object position Y(2)
z# = object position Z(2)
cx#= camera position X()
cy#= camera position y()
cz#= camera position z()

rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

if keystate(17)=1
move object 2,0.3
endif

if keystate(31)=1
move object 2,-0.3
endif

if keystate(32)=1
move object right 2,0.3
endif

if keystate(30)=1
move object left 2,0.3
endif

position camera x#, y# , z#
move camera -10
yrotate object 2,camera angle y()

sync
text 0,0, "player x= " + str$(x#)
text 0,15, "player y= " + str$(y#)
text 0,30, "player z= " + str$(z#)
text 0,45, "camera postition = " + str$(cx#) + " " + str$(cy#) + " " + str$(cz#)
loop

+ Code Snippet

sync on : sync rate 30
hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,2
position object 2,0,0,-15
position camera 0,2,-20
make object box 3,1,1,4

do

x# = object position X(2)
y# = object position Y(2)
z# = object position Z(2)
cx#= camera position X()
cy#= camera position y()
cz#= camera position z()

rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

if keystate(17)=1
move object 2,0.3
endif

if keystate(31)=1
move object 2,-0.3
endif

if keystate(32)=1
move object right 2,0.3
endif

if keystate(30)=1
move object left 2,0.3
endif

position camera x#, y# , z#
move camera -10
yrotate object 2,camera angle y()

sync
text 0,0, "player x= " + str$(x#)
text 0,15, "player y= " + str$(y#)
text 0,30, "player z= " + str$(z#)
text 0,45, "camera postition = " + str$(cx#) + " " + str$(cy#) + " " + str$(cz#)
loop

and if possible explain so that both I and other viewers can fully utilize your intellectual help but I can understand if you don't feel bothered. thanks to anyone who can help.

edit:
please note that I have tried doing some things with the code myself not just expected the code to magically do what I want.

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 20th May 2011 23:06

Link

This is what I do, this way you can set the values to mach the position any where you want, just set the smooth to a low value.

+ Code Snippet

function positioncameratoplyr(obj#)
x#=object position x(obj#)
y#=object position y(obj#)
z#=object position z(obj#)
a#=object angle y(obj#)
d#=35.0
h#=40.0
s#=4
set camera to follow x#,y#,z#,a#,d#,h#,s#,1

   OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#

   oldx# = object position x(obj#)
   oldy# = object position y(obj#)
   oldz# = object position z(obj#)

   endfunction positioncameratoplyr

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

TheConnorian

16

Years of Service

User Offline

Joined: 18th Dec 2009

Location: I\'m in ur game, pwning ur noobs

Posted: 20th May 2011 23:57

Link

Tried it don't know what I'm doing wrong but it simply ain't working, It ends up just focusing on the central cube and I KNOW I haven't got the object numbers wrong or the camera won't move. I mean if I could integrate this function in I would cause I love functions (used to be all about gosubs). Could you explain a bit more or someone suggest another route.

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 21st May 2011 09:54

Link

Did you put the function in the loop then put in the object number you want to follow with in the function?

what did not work right?

Show me some code of yours so we can understand what to help you with, show us in your code how you are using this function so we can see why it will not work.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

TheConnorian

16

Years of Service

User Offline

Joined: 18th Dec 2009

Location: I\'m in ur game, pwning ur noobs

Posted: 21st May 2011 13:43 Edited at: 21st May 2011 17:29

Link

ok I have it working like this:

sync on : sync rate 30
hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,2
position object 2,0,0,-15
position camera 0,2,-20
make object box 3,1,1,4

do

x# = object position X(2)
y# = object position Y(2)
z# = object position Z(2)
cx#= camera position X()
cy#= camera position y()
cz#= camera position z()

rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

if keystate(17)=1
move object 2,0.3
endif

if keystate(31)=1
move object 2,-0.3
endif

if keystate(32)=1
move object right 2,0.3
endif

if keystate(30)=1
move object left 2,0.3
endif

position camera x#, y# , z#
move camera -10
yrotate object 2,camera angle y()

sync
text 0,0, "player x= " + str$(x#)
text 0,15, "player y= " + str$(y#)
text 0,30, "player z= " + str$(z#)
text 0,45, "camera postition = " + str$(cx#) + " " + str$(cy#) + " " + str$(cz#)
loop

function positioncameratoplyr()
x#=object position x(2)
y#=object position y(2)
z#=object position z(2)
a#=object angle y(2)
d#=35.0
h#=40.0
s#=4
set camera to follow x#,y#,z#,a#,d#,h#,s#,1

OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#

oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

endfunction positioncameratoplyr

+ Code Snippet

sync on : sync rate 30
hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,2
position object 2,0,0,-15
position camera 0,2,-20
make object box 3,1,1,4

do

x# = object position X(2)
y# = object position Y(2)
z# = object position Z(2)
cx#= camera position X()
cy#= camera position y()
cz#= camera position z()

rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

if keystate(17)=1
move object 2,0.3
endif

if keystate(31)=1
move object 2,-0.3
endif

if keystate(32)=1
move object right 2,0.3
endif

if keystate(30)=1
move object left 2,0.3
endif

position camera x#, y# , z#
move camera -10
yrotate object 2,camera angle y()

sync
text 0,0, "player x= " + str$(x#)
text 0,15, "player y= " + str$(y#)
text 0,30, "player z= " + str$(z#)
text 0,45, "camera postition = " + str$(cx#) + " " + str$(cy#) + " " + str$(cz#)
loop

function positioncameratoplyr()
x#=object position x(2)
y#=object position y(2)
z#=object position z(2)
a#=object angle y(2)
d#=35.0
h#=40.0
s#=4
set camera to follow x#,y#,z#,a#,d#,h#,s#,1

   OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#

   oldx# = object position x(2)
   oldy# = object position y(2)
   oldz# = object position z(2)

   endfunction positioncameratoplyr

but I'm pretty sure that this isn't what I wanted, plus the function doesn't seem to be doing anything different or be capable of doing anything different. The over the shoulder cam I am looking for just seems to be out of reach for the moment.

edit:
ok I got it working, fiddling around and it just popped into place. So with this it follows the camera and has a nice smooth bounce back however the turning is jumpy, anyway that can be smoothed out?

but anyway heres the code, also added a sprint feature so that by pressing shift you move faster:

rem TheConnorian
sync on : sync rate 30 : hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,3
position object 2,0,0,-20
position camera 0,0,0,-20
make object box 3,1,1,4

do
	rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
	if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
	if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280
	
	rotate object 2,0,camera angle y(0),0
	
	if keystate(17)=1
	move object 2,speed#
	endif

if keystate(31)=1
	move object 2,-speed#
	endif

if keystate(32)=1
	move object right 2,speed#
	endif

if keystate(30)=1
	move object left 2,speed#
	endif

if keystate(42)=1
	speed#=0.4
	endif

if keystate(42)=0
	speed#=0.2
	endif

x#=object position x(2)
	y#=object position y(2)
	z#=object position z(2)
	a#=object angle y(2)
	d#=10.0
	h#=5.0
	s#=5
	set camera to follow 0,x#,y#,z#,a#,d#,h#,s#,1
	
	sync
loop

+ Code Snippet

rem TheConnorian
sync on : sync rate 30 : hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,3
position object 2,0,0,-20
position camera 0,0,0,-20
make object box 3,1,1,4

do
	rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
	if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
	if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280
	
	rotate object 2,0,camera angle y(0),0
	
	if keystate(17)=1
	move object 2,speed#
	endif

	if keystate(31)=1
	move object 2,-speed#
	endif

	if keystate(32)=1
	move object right 2,speed#
	endif

	if keystate(30)=1
	move object left 2,speed#
	endif

	if keystate(42)=1
	speed#=0.4
	endif

	if keystate(42)=0
	speed#=0.2
	endif

	x#=object position x(2)
	y#=object position y(2)
	z#=object position z(2)
	a#=object angle y(2)
	d#=10.0
	h#=5.0
	s#=5
	set camera to follow 0,x#,y#,z#,a#,d#,h#,s#,1
	
	sync
loop

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 21st May 2011 23:11

Link

You can smooth it out with the s# value, keep it low so the camera stays always with the camera, keep it high if you want the camera to fly around before it positions its self to the object.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

TheConnorian

16

Years of Service

User Offline

Joined: 18th Dec 2009

Location: I\'m in ur game, pwning ur noobs

Posted: 21st May 2011 23:25

Link

thanks, do you know anyway of coding it so that the camera is slightly to the right of the object?

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 21st May 2011 23:38

Link

Thats all in positoning the camera after the fact, in the same code position camera the way you want it positioned. like this

function positioncameratoplyr(obj#)
x#=object position x(obj#)
y#=object position y(obj#)
z#=object position z(obj#)
a#=object angle y(obj#)
d#=35.0
h#=40.0
s#=4
set camera to follow x#,y#,z#,a#,d#,h#,s#,1

position camera ,x#,y#,z#-10 rem this is where we try to reposition the camera, unteasted, there is probely a better way

OldCamAngleY# = CameraAngleY#
OldCamAngleX# = CameraAngleX#

oldx# = object position x(obj#)
oldy# = object position y(obj#)
oldz# = object position z(obj#)

endfunction positioncameratoplyr

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

TheConnorian

16

Years of Service

User Offline

Joined: 18th Dec 2009

Location: I\'m in ur game, pwning ur noobs

Posted: 22nd May 2011 00:05

Link

I've tested and it doesn't seem to work at all. So I made this code it gives almost what I want however it causes a odd camera problem when you turn the way your facing. I have only added +5 onto the x#.

+ Code Snippet

rem TheConnorian
sync on : sync rate 30 : hide mouse : autocam off

make object cube 1,5
position object 1,0,0,0
make object cube 2,3
position object 2,0,0,-20
position camera 0,0,0,-20

do
	rotate camera camera angle x(0)+(mousemovey()/4.0),camera angle y(0)+(mousemovex()/4.0),0
	if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
	if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<240 then xrotate camera 0,240
	
	rotate object 2,0,camera angle y(0),0
	
	if keystate(17)=1
	move object 2,speed#
	endif

	if keystate(31)=1
	move object 2,-speed#
	endif

	if keystate(32)=1
	move object right 2,speed#
	endif

	if keystate(30)=1
	move object left 2,speed#
	endif

	if keystate(42)=1
	speed#=0.4
	endif

	if keystate(42)=0
	speed#=0.2
	endif

	x#=object position x(2)
	y#=object position y(2)
	z#=object position z(2)
	a#=object angle y(2)
	d#=10.0
	h#=5.0
	s#=5
	set camera to follow 0,x#+5,y#,z#,a#,d#,h#,s#,1
	
	sync
loop

Back to top

Profile PM

Daniel wright 2311

User Banned

Posted: 22nd May 2011 00:10

Link

Yea, thats probebly the true way I would have done it,keep messing with the values , its all in trial amd error till you will get what you want.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Southside Games

16

Years of Service

User Offline

Joined: 1st Jan 2010

Location: Don\'t tell me what to do!

Posted: 5th Aug 2011 19:57

Link

did you get it to work? I'm looking for a over the shoulder thing to

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 5th Aug 2011 21:54

Link

Try this...you can smooth the camera and let camera position on both sides of your soldat.

+ Code Snippet

ink rgb(50,20,0),0
box 0,0,30,30
ink rgb(40,15,0),0
box 2,2,28,28
get image 1,0,0,30,30,1

sync on : sync rate 60

rem floor
make object box 100,1000,1,1000:texture object 100,1:scale object texture 100,20,20
position object 100,0,-20,0

make object box 1,10,30,10


for n = 2 to 6
    make object cube n,100
    position object n, rnd(600), 0, rnd(400)
next


do
    if upkey()=1 then move object 1, 1.0
    if downkey()=1 then move object 1,-1.0


    if rightkey()=1 then angle = wrapvalue(angle + 1.0)
    if leftkey()=1 then angle = wrapvalue(angle - 1.0)

   a#=wrapvalue(a#+mousemovex()/2)
   cam#=wrapvalue(cam#+mousemovey()/2)

rem camera limits
   if cam#>60 then cam#=60
   if cam#<10 then cam#=10

    yrotate object 1, a#
    position camera object position x(1),object position y(1),object position z(1)
    rotate camera cam#,a#,0
    move camera right 15:move camera -50
    sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Southside Games

16

Years of Service

User Offline

Joined: 1st Jan 2010

Location: Don\'t tell me what to do!

Posted: 18th Aug 2011 19:09 Edited at: 18th Aug 2011 19:14

Link

you know what I do is make an object, hide it, and moved it over to the right, for some reason objects have the command "move object right/left" wail the camera does not. so I position the object on the player object then use "move object right follow object,distance disired" then use the set camera to follow on that object, or

+ Code Snippet

1=player object 2=follow object

position object 2,object position x(1),object position y(1),object position z(1) 

rotate object object angle x(1),object angle y(1),object angle z(1)

move object right 2,5

set camera to follow object position x(2),object position y(2),object position z(2),object angle y(1),5,5,s#,1

this will need some tunning for your needs. but you should get the picture

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / 3rd person shooter shoulder camera