Pick Screen - RTS 3d style mouse movement (I have sort of got it)

Author

Message

Uber Ker Noober

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Sheffield, UK

Posted: 15th Jul 2007 03:22

Link

Okay so I am trying to make a cube move with the mouse so that it is on the terrain. The only problem is that it doesn't go to the top of the screen. I know I am using pick screen incorrectly but I need a way for the cube to always be y=0

sync on : sync rate 60

gosub _make_map
gosub _setup_display

do

gosub _camera_control
   gosub _display

sync
loop

_make_map:
   make matrix 1,3200,2400,160,120
   for tint1 = 0 to 160
      for tint2 = 0 to 120
         SET MATRIX HEIGHT 1,tint1,tint2,rnd(10)
      next tint2
   next tint1
   update matrix 1
   autocam off
return

_setup_display:
   xrotate camera camera angle x()+30

color backdrop rgb(0,0,0)

make object cube 1,10

return

_camera_control:
   camx=camera position x()
   camy=camera position y()
   camz=camera position z()
   camspeed=10

if leftkey()=1 then position camera camx-camspeed,camy,camz : camx=camera position x()
   if rightkey()=1 then position camera camx+camspeed,camy,camz : camx=camera position x()
   if upkey()=1 then position camera camx,camy,camz+camspeed : camz=camera position z()
   if downkey()=1 then position camera camx,camy,camz-camspeed : camz=camera position z()

if mousex()<10 then position camera camx-camspeed,camy,camz : camx=camera position x()
   if mousex()>1014 then position camera camx+camspeed,camy,camz : camx=camera position x()
   if mousey()<10 then position camera camx,camy,camz+camspeed : camz=camera position z()
   if mousey()>758 then position camera camx,camy,camz-camspeed : camz=camera position z()

`sort this out
   `PICK SCREEN mousex(),mousey()-200,camy / sin(90-30)

pick screen mousex(), mousey(), camy
   position object 1,camx+GET PICK VECTOR x(),0,camz+GET PICK VECTOR z()

return

_display:

return

+ Code Snippet

sync on : sync rate 60

gosub _make_map
gosub _setup_display

do

   gosub _camera_control
   gosub _display

sync
loop



_make_map:
   make matrix 1,3200,2400,160,120
   for tint1 = 0 to 160
      for tint2 = 0 to 120
         SET MATRIX HEIGHT 1,tint1,tint2,rnd(10)
      next tint2
   next tint1
   update matrix 1
   autocam off
return

_setup_display:
   xrotate camera camera angle x()+30

   color backdrop rgb(0,0,0)

   make object cube 1,10

return

_camera_control:
   camx=camera position x()
   camy=camera position y()
   camz=camera position z()
   camspeed=10

   if leftkey()=1 then position camera camx-camspeed,camy,camz : camx=camera position x()
   if rightkey()=1 then position camera camx+camspeed,camy,camz : camx=camera position x()
   if upkey()=1 then position camera camx,camy,camz+camspeed : camz=camera position z()
   if downkey()=1 then position camera camx,camy,camz-camspeed : camz=camera position z()

   if mousex()<10 then position camera camx-camspeed,camy,camz : camx=camera position x()
   if mousex()>1014 then position camera camx+camspeed,camy,camz : camx=camera position x()
   if mousey()<10 then position camera camx,camy,camz+camspeed : camz=camera position z()
   if mousey()>758 then position camera camx,camy,camz-camspeed : camz=camera position z()

   `sort this out
   `PICK SCREEN mousex(),mousey()-200,camy / sin(90-30)

   pick screen mousex(), mousey(), camy
   position object 1,camx+GET PICK VECTOR x(),0,camz+GET PICK VECTOR z()


return

_display:

return

Please could somebody give me a simple code that will mean the cube is always a mousex() and mousey() but at y=0

Back to top

Profile PM Email Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 16th Jul 2007 03:55

Link

This does what you asked, although it doesn't follow the terrain.
I tried to explain how I did it in the code.

sync on : sync rate 60

gosub _make_map
gosub _setup_display

do

gosub _camera_control
   gosub _display

sync
loop

_make_map:
   make matrix 1,3200,2400,160,120
   for tint1 = 0 to 160
      for tint2 = 0 to 120
         SET MATRIX HEIGHT 1,tint1,tint2,rnd(10)
      next tint2
   next tint1
   update matrix 1
   autocam off
return

_setup_display:
   xrotate camera camera angle x()+30

color backdrop rgb(0,0,0)

make object cube 1,10

return

_camera_control:
   camx#=camera position x()
   camy#=camera position y()
   camz#=camera position z()
   camspeed=10

if leftkey()=1 then position camera camx#-camspeed,camy#,camz# : camx#=camera position x()
   if rightkey()=1 then position camera camx#+camspeed,camy#,camz# : camx#=camera position x()
   if upkey()=1 then position camera camx#,camy#,camz#+camspeed : camz#=camera position z()
   if downkey()=1 then position camera camx#,camy#,camz#-camspeed : camz#=camera position z()

if mousex()<10 then position camera camx#-camspeed,camy#,camz# : camx#=camera position x()
   if mousex()>1014 then position camera camx#+camspeed,camy#,camz# : camx#=camera position x()
   if mousey()<10 then position camera camx#,camy#,camz#+camspeed : camz#=camera position z()
   if mousey()>758 then position camera camx#,camy#,camz#-camspeed : camz#=camera position z()

`sort this out

`make an imaginary vector 10 units into the screen.
   pick screen mousex(), mousey(), 10

`store the vector coordinates
   xv#=get pick vector x()
   yv#=get pick vector y()
   zv#=get pick vector z()

`this vector is a certain percentage of the camera height
   `so if we take the inverse of that ratio and multiply the
   `original vecotr coordinates by that answer,
   `the vector will reach all the way to y=0
   mult#=abs(camy#/yv#)

xv#=xv#*mult#
   yv#=yv#*mult#
   zv#=zv#*mult#

position object 1,camx#+xv#,camy#+yv#,camz#+zv#

return

_display:

return

+ Code Snippet

sync on : sync rate 60

gosub _make_map
gosub _setup_display

do

   gosub _camera_control
   gosub _display

sync
loop

_make_map:
   make matrix 1,3200,2400,160,120
   for tint1 = 0 to 160
      for tint2 = 0 to 120
         SET MATRIX HEIGHT 1,tint1,tint2,rnd(10)
      next tint2
   next tint1
   update matrix 1
   autocam off
return

_setup_display:
   xrotate camera camera angle x()+30

   color backdrop rgb(0,0,0)

   make object cube 1,10

return

_camera_control:
   camx#=camera position x()
   camy#=camera position y()
   camz#=camera position z()
   camspeed=10

   if leftkey()=1 then position camera camx#-camspeed,camy#,camz# : camx#=camera position x()
   if rightkey()=1 then position camera camx#+camspeed,camy#,camz# : camx#=camera position x()
   if upkey()=1 then position camera camx#,camy#,camz#+camspeed : camz#=camera position z()
   if downkey()=1 then position camera camx#,camy#,camz#-camspeed : camz#=camera position z()

   if mousex()<10 then position camera camx#-camspeed,camy#,camz# : camx#=camera position x()
   if mousex()>1014 then position camera camx#+camspeed,camy#,camz# : camx#=camera position x()
   if mousey()<10 then position camera camx#,camy#,camz#+camspeed : camz#=camera position z()
   if mousey()>758 then position camera camx#,camy#,camz#-camspeed : camz#=camera position z()

   `sort this out

   `make an imaginary vector 10 units into the screen.
   pick screen mousex(), mousey(), 10

   `store the vector coordinates
   xv#=get pick vector x()
   yv#=get pick vector y()
   zv#=get pick vector z()

   `this vector is a certain percentage of the camera height
   `so if we take the inverse of that ratio and multiply the
   `original vecotr coordinates by that answer,
   `the vector will reach all the way to y=0
   mult#=abs(camy#/yv#)

   xv#=xv#*mult#
   yv#=yv#*mult#
   zv#=zv#*mult#

   position object 1,camx#+xv#,camy#+yv#,camz#+zv#


return

_display:

return

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 16th Jul 2007 04:39 Edited at: 16th Jul 2007 04:47

Link

@Crit: Nice code, it actually helped me out

Any ideas on how to have the Y height be something other than 0?

I'd like to see different methods from other people as well, so long as they help the poster of this thread, that is.

Back to top

Profile PM Email

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 16th Jul 2007 05:26

Link

@Sixty Squares:
I guess you could do something like this, as long as the y height is less than your camera height:

mult#=abs((camy#-yheight#)/yv#)

I didn't try that out, but I think it should work.

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 16th Jul 2007 14:02 Edited at: 16th Jul 2007 14:03

Link

It worked! Thanks

Now for someone else to answer the original post...

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Pick Screen - RTS 3d style mouse movement (I have sort of got it)