Walking in camera's dirrection - GameCreators Forum

Author

Message

Guitarussia

14

Years of Service

User Offline

Joined: 16th Nov 2011

Location: NH, USA

Posted: 16th Nov 2011 11:29

Link

Hello!

I am new to Dark Basic Pro, I have about 2 weeks of experience now. I am working on a first-person camera and I am happy with what I have so far. I have made the camera move in all directions, I have made it jump, and I just started incorporating mouselook. However, I ran into a problem that I have been losing sleep over:

I can use the mouse to look in all directions, and I can move my camera in all directions. But I cannot move my camera in the detection that it is pointing!

I have written and re-written this code many times in the last 2 days, and now I have to turn for help. Below is my source code with full description of the logic I am working on for each statement. The mouselook portion is the first one in the main loop. If you see something that I am missing, please point it out!

rem Synchronization, refresh rate, autocam, hide cursor.
sync on
sync rate 60
autocam off
hide mouse

rem make player object
make object cube 61, 50

rem loop 60 times, each loop create a new cube and position that cube randomly, then exit loop.
for x = 1 to 60
make object cube x, 50
position object x, rnd(3000), 0 , rnd(3000)
next x

rem variable used to determine at which rate the camera moves (when added to an axis).
global move_speed# = 4.0

rem gravity variables used to determine camera's real-time Y position when jumping.
global gravity# as float
global gravity_pull# as float

rem the x, y, z positions of the camera will be stored in these variables
global y# = 0
global x# = 0
global z# = 0

global mouse_sensitivity# = 0.2

REM MAIN LOOP
do
	REM mouse look test
	position mouse screen width()/2,screen height()/2
	MMX# = MouseMoveX() * mouse_sensitivity# : MMY# = MouseMoveY() * mouse_sensitivity#
	CAX# = CAX# + MMY#
	CAY# = CAY# + MMX#
	if CAX# > 85 then CAX# = 85
	if CAX# < -85 then CAX# = -85

rotate camera 0,CAX#,CAY#,0 `rotates the camera
	
	
	
	rem Input for W,A,S,D keys to move camera foreward, left, back, right
	if keystate(17) = 1 then z# = z# + move_speed#
	if keystate(30) = 1 then x# = x# - move_speed#
	if keystate(31) = 1 then z# = z# - move_speed# 
	if keystate(32) = 1 then x# = x# + move_speed# 
	
	rem Space bar imput to simulate a jump
	if spacekey() = 1 and gravity# = 0.0
		gravity# = 5.0
		gravity_pull# = 0.2
	endif
	
	rem Each loop, the gravity# variable will be decremented by the gravity_pull# variable
	dec gravity#, gravity_pull#
	inc y#, gravity#  
	
	rem To make sure the camera does not fall through the ground
	if y# < 0
		gravity# = 0.0
		gravity_pull# = 0.0
	endif
	
	rem update the camera's position
	position camera x#, y#, z#
	
	rem Refresh screen.  
	sync
loop

+ Code Snippet

rem Synchronization, refresh rate, autocam, hide cursor.
sync on
sync rate 60
autocam off
hide mouse

rem make player object
make object cube 61, 50

rem loop 60 times, each loop create a new cube and position that cube randomly, then exit loop.
for x = 1 to 60
make object cube x, 50
position object x, rnd(3000), 0 , rnd(3000)
next x

rem variable used to determine at which rate the camera moves (when added to an axis).
global move_speed# = 4.0 

rem gravity variables used to determine camera's real-time Y position when jumping.
global gravity# as float
global gravity_pull# as float

rem the x, y, z positions of the camera will be stored in these variables
global y# = 0
global x# = 0
global z# = 0

global mouse_sensitivity# = 0.2


REM MAIN LOOP
do
	REM mouse look test
	position mouse screen width()/2,screen height()/2
	MMX# = MouseMoveX() * mouse_sensitivity# : MMY# = MouseMoveY() * mouse_sensitivity#
	CAX# = CAX# + MMY#
	CAY# = CAY# + MMX#
	if CAX# > 85 then CAX# = 85
	if CAX# < -85 then CAX# = -85

	rotate camera 0,CAX#,CAY#,0 `rotates the camera
	
	
	
	rem Input for W,A,S,D keys to move camera foreward, left, back, right
	if keystate(17) = 1 then z# = z# + move_speed#
	if keystate(30) = 1 then x# = x# - move_speed#
	if keystate(31) = 1 then z# = z# - move_speed# 
	if keystate(32) = 1 then x# = x# + move_speed# 
	
	rem Space bar imput to simulate a jump
	if spacekey() = 1 and gravity# = 0.0
		gravity# = 5.0
		gravity_pull# = 0.2
	endif
	
	rem Each loop, the gravity# variable will be decremented by the gravity_pull# variable
	dec gravity#, gravity_pull#
	inc y#, gravity#  
	
	rem To make sure the camera does not fall through the ground
	if y# < 0
		gravity# = 0.0
		gravity_pull# = 0.0
	endif
	
	rem update the camera's position
	position camera x#, y#, z#
	
	rem Refresh screen.  
	sync
loop

Thank you for your help in advance, and please excuse my English, I will try to clarify anything you ask.

Inspired, waiting to be enlightened

Back to top

Profile PM Email Website

Mr Bigglesworth

18

Years of Service

User Offline

Joined: 4th Mar 2008

Location:

Posted: 16th Nov 2011 15:15

Link

You can use the command MOVE CAMERA to move the camera in the direction it is pointing.

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Nov 2011 20:51 Edited at: 16th Nov 2011 20:53

Link

@Guitarussia

Mr Bigglesworth is right. You can do it with x#=wrapvalue(x#,angle,speed), but with move commands goes super. I made some changes to your code that are marked with )))))))))))))))))) to show my corrections. Take a look.

rem Synchronization, refresh rate, autocam, hide cursor.
sync on
sync rate 60
autocam off
hide mouse

rem make player object
make object cube 61, 50

rem loop 60 times, each loop create a new cube and position that cube randomly, then exit loop.
for x = 1 to 60
make object cube x, 50
position object x, rnd(3000), 0 , rnd(3000)
next x

rem variable used to determine at which rate the camera moves (when added to an axis).
global move_speed# = 4.0

rem gravity variables used to determine camera's real-time Y position when jumping.
global gravity# as float
global gravity_pull# as float

rem the x, y, z positions of the camera will be stored in these variables
global y# = 0
global x# = 0
global z# = 0

global mouse_sensitivity# = 0.2

REM MAIN LOOP
do
   REM mouse look test
   position mouse screen width()/2,screen height()/2
   MMX# = MouseMoveX() * mouse_sensitivity# : MMY# = MouseMoveY() * mouse_sensitivity#
   CAX# = CAX# + MMY#
   CAY# = CAY# + MMX#
   if CAX# > 85 then CAX# = 85
   if CAX# < -85 then CAX# = -85

rotate camera 0,CAX#,CAY#,0 `rotates the camera

rem Input for W,A,S,D keys to move camera foreward, left, back, right
   if keystate(17) = 1 then move camera move_speed#              `))))))))))))))))))))))
   if keystate(30) = 1 then move camera left move_speed#         `))))))))))))))))))))))
   if keystate(31) = 1 then move camera - move_speed#            `))))))))))))))))))))))
   if keystate(32) = 1 then move camera right move_speed#        `))))))))))))))))))))))

rem Space bar imput to simulate a jump
   if spacekey() = 1 and gravity# = 0.0
      gravity# = 5.0
      gravity_pull# = 0.2
   endif

rem Each loop, the gravity# variable will be decremented by the gravity_pull# variable
   dec gravity#, gravity_pull#
   inc y#, gravity#

rem To make sure the camera does not fall through the ground
   if y# < 0
      gravity# = 0.0
      gravity_pull# = 0.0
   endif

x#=camera position x()    `))))))))))))))))))))))))))))))))))))))
z#=camera position z()    `))))))))))))))))))))))))))))))))))))))

rem update the camera's position
   position camera x#, y#, z#

rem Refresh screen.
   sync
loop

+ Code Snippet

rem Synchronization, refresh rate, autocam, hide cursor.
sync on
sync rate 60
autocam off
hide mouse

rem make player object
make object cube 61, 50

rem loop 60 times, each loop create a new cube and position that cube randomly, then exit loop.
for x = 1 to 60
make object cube x, 50
position object x, rnd(3000), 0 , rnd(3000)
next x

rem variable used to determine at which rate the camera moves (when added to an axis).
global move_speed# = 4.0

rem gravity variables used to determine camera's real-time Y position when jumping.
global gravity# as float
global gravity_pull# as float

rem the x, y, z positions of the camera will be stored in these variables
global y# = 0
global x# = 0
global z# = 0

global mouse_sensitivity# = 0.2


REM MAIN LOOP
do
   REM mouse look test
   position mouse screen width()/2,screen height()/2
   MMX# = MouseMoveX() * mouse_sensitivity# : MMY# = MouseMoveY() * mouse_sensitivity#
   CAX# = CAX# + MMY#
   CAY# = CAY# + MMX#
   if CAX# > 85 then CAX# = 85
   if CAX# < -85 then CAX# = -85

   rotate camera 0,CAX#,CAY#,0 `rotates the camera


   rem Input for W,A,S,D keys to move camera foreward, left, back, right
   if keystate(17) = 1 then move camera move_speed#              `))))))))))))))))))))))
   if keystate(30) = 1 then move camera left move_speed#         `))))))))))))))))))))))
   if keystate(31) = 1 then move camera - move_speed#            `))))))))))))))))))))))
   if keystate(32) = 1 then move camera right move_speed#        `))))))))))))))))))))))

   rem Space bar imput to simulate a jump
   if spacekey() = 1 and gravity# = 0.0
      gravity# = 5.0
      gravity_pull# = 0.2
   endif

   rem Each loop, the gravity# variable will be decremented by the gravity_pull# variable
   dec gravity#, gravity_pull#
   inc y#, gravity#

   rem To make sure the camera does not fall through the ground
   if y# < 0
      gravity# = 0.0
      gravity_pull# = 0.0
   endif


x#=camera position x()    `))))))))))))))))))))))))))))))))))))))
z#=camera position z()    `))))))))))))))))))))))))))))))))))))))

   rem update the camera's position
   position camera x#, y#, z#


   rem Refresh screen.
   sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Guitarussia

14

Years of Service

User Offline

Joined: 16th Nov 2011

Location: NH, USA

Posted: 18th Nov 2011 20:29

Link

Thank you guys, your corrections worked perfectly. But I decided to take a different approach. Looking at one of the code snippets I realized that I can use trigonometric functions sin and cos to calculate my x# and y# values:
if keystate(17) = 1
inc x#, sin(cay#) * move_speed#
inc z#, cos(cay#) * move_speed#
endif
if keystate(30) = 1
dec x#, sin(cay# + 90) * move_speed#
dec z#, cos(cay# + 90) * move_speed#
endif
if keystate(31) = 1
dec x#, sin(cay#) * move_speed#
dec z#, cos(cay#) * move_speed#
endif
if keystate(32) = 1
dec x#, sin(cay# - 90) * move_speed#
dec z#, cos(cay# - 90) * move_speed#
endif

cay# simply stores the camera angle y() return value multiplied by a mouse_sensitivity# variable to adjust the camera's rotation speed. For front/backward movement I take the sin(cay#) to calculate the x-value and the cos(cay#) to calculate y-value. To calculate positions directly left/right of the camera, I simply need to add/subtract 90 degrees. I use the y-angle of the camera because the y-axis determines left/right rotation.
I then use these calculated values to move my camera:

position camera 1, x#, y# + get ground height (3, x#, z#), z#
[\code]

And lastly I rotate the camera using the adjusted camera angle x and camera angle y variables, leaving z-axis alone because I don't need to touch it:

rotate camera cax#, cay#, camera angle z

I like this process better simply because it make mathematical sense to me. It also enables strafing left and right. I hope this helps somebody out there.

Thank you both, I like your method as well, it is neat and short.

Inspired, waiting to be enlightened

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 18th Nov 2011 23:41

Link

move camera with arrow keys

this is a command.

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

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Walking in camera's dirrection