mouse movement x and y only - GameCreators Forum

Author

Message

Tucker

14

Years of Service

User Offline

Joined: 20th Jun 2010

Location: Earth Prime

Posted: 7th Oct 2010 06:15

Link

Hey,
I have a camera attached to an object, but my controls need to be controlled by the mouse, only x and y needed, as its going to be a dodging game. Code is below, what is the most efficient and easiest way to go about using the mouse for this movement?
I can only get the mouse to control the camera, but would like the camera fixed in one direction, and change it to the mouse controlling the object.

cls
sync on
sync rate 30
hide mouse
`just set up a scene
make object cube 1,100
make matrix 1,10000,10000,30,30

`this is just an important variable
o# = 0
do

`record object position
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
`record camera x and z positions
cx# = camera position x()
cz# = camera position z()
cy# = camera position y()

`camera rotate positions
crx#=camera angle x()
cry#=camera angle y()
crz#=camera angle z()

`mouse position
mx# = mousemovex()
my# = mousemovey()

`Lets make sure the camera has a restricted y position (200 above the object)
position camera x#, y#+100, z#
`follow the object
if keystate(17)=0 and keystate(31)= 0 then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1 
if keystate(17)=1 or keystate(31)=1 then o# = 0

if keystate(30)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(30)=1 then o# = 0

if keystate(32)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(32)=1 then o# = 0

`360 camera movement
rotate camera crx#+((my#+0.0)/2.0),cry#+((mx#+0.0)/2.0),0

sync
loop

+ Code Snippet

cls
sync on
sync rate 30
hide mouse
`just set up a scene
make object cube 1,100
make matrix 1,10000,10000,30,30

`this is just an important variable
o# = 0
do

`record object position
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
`record camera x and z positions
cx# = camera position x()
cz# = camera position z()
cy# = camera position y()

`camera rotate positions
crx#=camera angle x()
cry#=camera angle y()
crz#=camera angle z()

`mouse position
mx# = mousemovex()
my# = mousemovey()

`Lets make sure the camera has a restricted y position (200 above the object)
position camera x#, y#+100, z#
`follow the object
if keystate(17)=0 and keystate(31)= 0 then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1 
if keystate(17)=1 or keystate(31)=1 then o# = 0

if keystate(30)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(30)=1 then o# = 0

if keystate(32)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(32)=1 then o# = 0

`360 camera movement
rotate camera crx#+((my#+0.0)/2.0),cry#+((mx#+0.0)/2.0),0

sync
loop

Bow Chika Bow Wow

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 7th Oct 2010 16:27

Link

This code moves and rotates the camera dynamically. Press the LMB to move forward and the RMB to move backward. It moves the cube/camera whichever way you are facing. If you want to adapt it to only move on the x and z axis, it could be easily modified.

cls
sync on
sync rate 30
hide mouse
`just set up a scene
make object cube 1,100
position object 1,500.0,50.0,500.0
make matrix 1,10000,10000,30,30

`this is just an important variable
o# = 0
do

`record object position
x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
position object 1,x#,y#,z#
`Lets make sure the camera has a restricted y position (200 above the object)
position camera x#, y# + 100, z#

`camera rotate positions
crx#=camera angle x()
cry#=camera angle y()
crz#=camera angle z()
 `mouse position
mx# = mousemovex()
my# = mousemovey()
crx# = wrapvalue(crx# + my#) : xrotate camera crx#
crz# = wrapvalue(crz# + my#) : zrotate camera crz#
mc = mouseclick()
if mc = 1
  x# = newxvalue(x#,cry#,5.0)
  z# = newzvalue(z#,cry#,5.0)
  y# = get ground height(1,x#,z#)
  position object 1,x#,y#,z#
endif
if mc = 2
  x# = newxvalue(x#,cry#,-5.0)
  z# = newzvalue(z#,cry#,-5.0)
  y# = get ground height(1,x#,z#)
  position object 1,x#,y#,z#

endif

`follow the object
if keystate(17)=0 and keystate(31)= 0 then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(17)=1 or keystate(31)=1 then o# = 0

if keystate(30)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(30)=1 then o# = 0

if keystate(32)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(32)=1 then o# = 0

`360 camera movement
rotate camera crx#+((my#+0.0)/2.0),cry#+((mx#+0.0)/2.0),0

sync
loop

+ Code Snippet

cls
sync on
sync rate 30
hide mouse
`just set up a scene
make object cube 1,100
position object 1,500.0,50.0,500.0
make matrix 1,10000,10000,30,30

`this is just an important variable
o# = 0
do

`record object position
x# = object position x(1)
z# = object position z(1)
y# = get ground height(1,x#,z#)
position object 1,x#,y#,z#
`Lets make sure the camera has a restricted y position (200 above the object)
position camera x#, y# + 100, z#

`camera rotate positions
crx#=camera angle x()
cry#=camera angle y()
crz#=camera angle z()
 `mouse position
mx# = mousemovex()
my# = mousemovey()
crx# = wrapvalue(crx# + my#) : xrotate camera crx#
crz# = wrapvalue(crz# + my#) : zrotate camera crz#
mc = mouseclick()
if mc = 1
  x# = newxvalue(x#,cry#,5.0)
  z# = newzvalue(z#,cry#,5.0)
  y# = get ground height(1,x#,z#)
  position object 1,x#,y#,z#
endif
if mc = 2
  x# = newxvalue(x#,cry#,-5.0)
  z# = newzvalue(z#,cry#,-5.0)
  y# = get ground height(1,x#,z#)
  position object 1,x#,y#,z#

endif

`follow the object
if keystate(17)=0 and keystate(31)= 0 then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(17)=1 or keystate(31)=1 then o# = 0

if keystate(30)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(30)=1 then o# = 0

if keystate(32)=0  then inc o#,1
if o# > 10 then o# = 10
if o# < 10 then SET CAMERA TO OBJECT ORIENTATION 1
if keystate(32)=1 then o# = 0

`360 camera movement
rotate camera crx#+((my#+0.0)/2.0),cry#+((mx#+0.0)/2.0),0

sync
loop

I'm not really a programmer.....I only play one on TGC.

Back to top

Profile PM Email

Tucker

14

Years of Service

User Offline

Joined: 20th Jun 2010

Location: Earth Prime

Posted: 10th Oct 2010 06:58

Link

Ok, I sorted it out, what is the best way to add gravity? its going to be a boulder dodging game, but the player going forwards instead of boulders coming down on the player? So what direction and how would I put gravity into that?

hide mouse
sync on : sync rate 60
` make the cube that the mouse will control
make object cube 1,5
position object 1,0,0,0

` Setup camera + mouse
position camera 0,30,-30
pitch camera down 90 `nifty command
position mouse 400,400

sync on

`--------------------------------------------------MAIN LOOP--------------------------------------------------
do

`  position the mouse controlled object at the cursor's position
repeat
   if object screen x(1) < mousex()-3
      position object 1,object position x(1)+1,object position y(1),object position z(1)
   endif
   if object screen x(1) > mousex()+3
      position object 1,object position x(1)-1,object position y(1),object position z(1)
   endif
      if object screen y(1) < mousey()-3
      move object 1,-3
   endif
      if object screen y(1) > mousey()+3
      move object 1,3
   endif
until object screen x(1) =< mousex()+7 and object screen x(1) => mousex()-7 and object screen y(1) =< mousey()+7 and object screen y(1) => mousey()-7

sync

loop

`--------------------------------------------------END MAIN LOOP------------------------------------------------

` Returns distance between o and o2
function dist_obj(o,o2)
ox#=object position x(o2)
oz#=object position z(o2)
oy#=object position y(o2)
dx#=object position x(o)-ox#
dz#=object position z(o)-oz#
dy#=object position y(o)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endfunction dist#

+ Code Snippet


hide mouse
sync on : sync rate 60
` make the cube that the mouse will control
make object cube 1,5
position object 1,0,0,0

` Setup camera + mouse
position camera 0,30,-30
pitch camera down 90 `nifty command
position mouse 400,400

sync on

`--------------------------------------------------MAIN LOOP--------------------------------------------------
do

`  position the mouse controlled object at the cursor's position
repeat
   if object screen x(1) < mousex()-3
      position object 1,object position x(1)+1,object position y(1),object position z(1)
   endif
   if object screen x(1) > mousex()+3
      position object 1,object position x(1)-1,object position y(1),object position z(1)
   endif
      if object screen y(1) < mousey()-3
      move object 1,-3
   endif
      if object screen y(1) > mousey()+3
      move object 1,3
   endif
until object screen x(1) =< mousex()+7 and object screen x(1) => mousex()-7 and object screen y(1) =< mousey()+7 and object screen y(1) => mousey()-7





sync

loop

`--------------------------------------------------END MAIN LOOP------------------------------------------------

` Returns distance between o and o2
function dist_obj(o,o2)
ox#=object position x(o2)
oz#=object position z(o2)
oy#=object position y(o2)
dx#=object position x(o)-ox#
dz#=object position z(o)-oz#
dy#=object position y(o)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endfunction dist#

Bow Chika Bow Wow

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / mouse movement x and y only