Problem with mousemoving. - GameCreators Forum

Author

Message

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 1st Feb 2009 22:37

Link

Hi!

how i can move object in Z axis when moving mouse in Y axis?
here goes the code if someone can add the code snippet with some document.

Rem Project: Testgamemaker
Rem Created: Monday, January 26, 2009

Rem ***** Main Source File *****

Rem ***** Included Source File *****

sync on
sync rate 60

Make matrix 1,1000,1000,20,20

rem ---------------------------------------------

make object cube 1,30
make object sphere 2,5
color object 2, RGB(0,255,0)

rem ---------------------------------------------

do

if pick object(mx,my,1,1)=1 and mouseclick()=1
objPos = 1
endif

if mouseclick()=2
objPos = 0
endif

if objPos = 1
show object 2
position object 2,object position x(1), object position y(1)+10, object position z(1)
endif

if objPos = 0
Hide object 2
endif

rem :::::::::::::::::::::::::::::::::::

my=mousey()
mx=mousex()
mz=mousez()

set cursor 0,0
   
if pick object(mx,my,1,1)=1
      scale object 1,50,50,50
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "cube"
   else
      scale object 1,30,30,30
   endif

position camera 0,object position x(1) , object position y(1)+200, object position z(1)-200
point camera 0,object position x(1) , object position y(1), object position z(1)

sync
loop

+ Code Snippet

Rem Project: Testgamemaker
Rem Created: Monday, January 26, 2009

Rem ***** Main Source File *****

Rem ***** Included Source File *****

sync on
sync rate 60

Make matrix 1,1000,1000,20,20

rem ---------------------------------------------

make object cube 1,30
make object sphere 2,5
color object 2, RGB(0,255,0)

rem ---------------------------------------------

do

if pick object(mx,my,1,1)=1 and mouseclick()=1
objPos = 1
endif

if mouseclick()=2
objPos = 0
endif

if objPos = 1
show object 2
position object 2,object position x(1), object position y(1)+10, object position z(1)
endif

if objPos = 0
Hide object 2
endif

rem :::::::::::::::::::::::::::::::::::

my=mousey()
mx=mousex()
mz=mousez()

set cursor 0,0
   
if pick object(mx,my,1,1)=1
      scale object 1,50,50,50
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "cube"
   else
      scale object 1,30,30,30
   endif

position camera 0,object position x(1) , object position y(1)+200, object position z(1)-200
point camera 0,object position x(1) , object position y(1), object position z(1)

sync
loop

regards, Jukka Korhonen

Back to top

Profile PM Email

Regnuar

15

Years of Service

User Offline

Joined: 25th Dec 2008

Location:

Posted: 1st Feb 2009 23:03

Link

sorry for double posting...

i tried something like this, but it doesn't work correctly.

Rem Project: Testgamemaker
Rem Created: Monday, January 26, 2009

Rem ***** Main Source File *****

Rem ***** Included Source File *****

sync on
sync rate 60

Make matrix 1,1000,1000,20,20 : randomize matrix 1, 20

rem ---------------------------------------------

make object cube 1,30
make object sphere 2,5
color object 2, RGB(0,255,0)

rem ---------------------------------------------

do

position camera 0,object position x(1),object position y(1)+200,object position z(1)-200
point camera 0,object position x(1),object position y(1),object position z(1)

if pick object(mx,my,1,1)=1 and mouseclick()=1
objPos = 1
endif

if mouseclick()=2
objPos = 0
endif

if objPos = 1
show object 2
position object 2,object position x(1), object position y(1)+10, object position z(1)
endif

if objPos = 0
Hide object 2
endif

if objPos = 1 and mouseclick()=1 and pick object(mx,my,1,1)=1
position object 1,mx,get matrix height (1,object position x(1),object position z(1)),my
endif

rem :::::::::::::::::::::::::::::::::::

my=mousey()
mx=mousex()
mz=mousez()

set cursor 0,0
   
if pick object(mx,my,1,1)=1
      scale object 1,50,50,50
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "cube"
   else
      scale object 1,30,30,30
   endif

sync
loop

+ Code Snippet

Rem Project: Testgamemaker
Rem Created: Monday, January 26, 2009

Rem ***** Main Source File *****

Rem ***** Included Source File *****

sync on
sync rate 60

Make matrix 1,1000,1000,20,20 : randomize matrix 1, 20

rem ---------------------------------------------

make object cube 1,30
make object sphere 2,5
color object 2, RGB(0,255,0)

rem ---------------------------------------------

do

position camera 0,object position x(1),object position y(1)+200,object position z(1)-200
point camera 0,object position x(1),object position y(1),object position z(1)


if pick object(mx,my,1,1)=1 and mouseclick()=1
objPos = 1
endif

if mouseclick()=2
objPos = 0
endif

if objPos = 1
show object 2
position object 2,object position x(1), object position y(1)+10, object position z(1)
endif

if objPos = 0
Hide object 2
endif

if objPos = 1 and mouseclick()=1 and pick object(mx,my,1,1)=1
position object 1,mx,get matrix height (1,object position x(1),object position z(1)),my
endif

rem :::::::::::::::::::::::::::::::::::

my=mousey()
mx=mousex()
mz=mousez()

set cursor 0,0
   
if pick object(mx,my,1,1)=1
      scale object 1,50,50,50
      yrotate object 1, object angle y (1)-0.9
      set cursor 295,20
      print "cube"
   else
      scale object 1,30,30,30
   endif

sync
loop

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Feb 2009 12:21 Edited at: 2nd Feb 2009 12:23

Link

Hi Regnuar,

I think you want to make the cube move like in an RTS. In that case, I'm afraid you're confusing 2D coördinates with 3D coördinates. To convert 2D screen coördinates to 3D world coördinates, you should use the pick screen command. It calculates a world position at a given screen coördinate at a distance of x units.

Assuming that the whole world is of height 0:

+ Code Snippet

`This piece of code finds the world coördinates under the mouse at a height of 0
pick screen mousex(), mousey(), 1000
NewX# = camera position x(0) + (get pick vector x()/1000.0*camera position y())
NewY# = 0.0
NewZ# = camera position z(0) + (get pick vector z()/1000.0*camera position y())

`Position
position object 1, NewX#, NewY#, NewZ#

This little code positions object 1 under the mouse.
If you add different heights, you will have to find the intersection of the ray between (cam x, cam y, cam z) and (get pick vector x() + cam x, get pick vector y() + cam y, get pick vector z() + cam z) with the world object/matrix. If you are using matrices this might become a bit of a pain. If you use objects, you can use intersect object() or Sparky's collision DLL to find the distance.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Problem with mousemoving.