Mouse XYZ to 3D XYZ? - GameCreators Forum

Author

Message

deathAngel

22

Years of Service

User Offline

Joined: 11th Feb 2003

Location:

Posted: 16th Feb 2003 23:57

Link

Hi, could someone give me example of a code to convert mouse X,Y,Z values to 3D X,Y,Z values.

Back to top

Profile PM

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 17th Feb 2003 00:26

Link

Not at all easy I am afraid. There are a few examples in the Code Snippets forum on the RGT forums (http://www.realgametools.com)

NOBODY has a forum name as stupid as Darth Shader. I do.

Back to top

Profile PM Email Website

Andy Igoe

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: United Kingdom

Posted: 17th Feb 2003 21:02

Link

You could try picking a few points out in 3d space and read off their object screen x(objectNo) and comparing them to the mouse position.

By creating an invisible handler object and using a for next loop you could check an area, something like this example below.

+ Code Snippet

make object plain 1,0.1,0.1
hide object 1

mx=mouseX()
mz=mouseZ() : rem I always get confused as to whether to use mouseY or mouseZ...
searchRange=9999
nearestX=0
nearestZ=0
for x=0 to 1000 step 100
   for z=0 to 1000 step 1000
      position object 1,x,get ground height(1,x,z),z
      if object in screen(1)
         rngX=abs(object screen x(1)-mx)
         rngZ=abs(object screen z(1)-mz)
         if rngX+rngZ<searchRange
             searchRange=rngX+rngZ
             nearestX=x
             nearestZ=z
         endIf
      endIf
   next z
next x

If this isn't accurate enough or fast enough you could use two loops, the first checking at step 100 the second checking at step 10 around the area found by the first loop.

There's other methods i'm sure - it really does depend on what you are trying to test, what volume of space you are checking within, what objects and/or mapping solution you have used.

In an RTS for example, you'd probably be better off checking the range difference between the mouse xz() and object screen xz() for each unit rather than work out where exactly you are clicking. If you want a highly accurate crosshair making your mouse a 3d object might be the way to go....

I hope this helps.

Pneumatic Dryll, Outrageous epic cleric of EQ/Xev
God made the world in 7 days, but we're still waiting for the patch.

Back to top

Profile PM Email Website

Andy Igoe

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: United Kingdom

Posted: 17th Feb 2003 21:04

Link

object screen z() should be object screen y() I think.

2D+3D Y or Z axis = Confused me.

Pneumatic Dryll, Outrageous epic cleric of EQ/Xev
God made the world in 7 days, but we're still waiting for the patch.

Back to top

Profile PM Email Website

D Man

22

Years of Service

User Offline

Joined: 3rd Oct 2002

Location: Germany

Posted: 17th Feb 2003 22:50

Link

Here's an example:

dim unit_selected(9)

for objectno=1 to 10
   make object cube objectno,10
   position object objectno,rnd(250)-125,0,rnd(250)-125
next objectno

camx#=0 : camz#=0
position camera camx#,200,camz#
xrotate camera 60
set camera range 100,400

sync rate 60
sync on
dim gummiband(4)

do

if gummiband=0 and (mousex()>screen width()-5 or rightkey()=1) then inc camx#,6
   if gummiband=0 and (mousex()<5 or leftkey()=1) then dec camx#,6
   if gummiband=0 and (mousey()<5 or upkey()=1) then inc camz#,6
   if gummiband=0 and (mousey()>screen height()-5 or downkey()=1) then dec camz#,6
   position camera camx#,200,camz#

rem unit selection code
   if mouseclick()=1 and gummiband=0

if keystate(42)=0 and keystate(54)=0
         for unit=0 to 9
            unit_selected(unit)=0
         next unit
      endif

gummiband=1
      mposx=mousex()
      mposy=mousey()
   endif

while mouseclick()=1
    line mposx,mposy,mposx,mousey()
    line mposx,mousey(),mousex(),mousey()
    line mousex(),mousey(),mousex(),mposy:gummiband(0)=mousex():gummiband(1)=mousey()
    line mousex(),mposy,mposx,mposy
    sync
  endwhile

if mouseclick()=0 and gummiband=1
      if abs(mposx-mousex())<5 and abs(mposy-mousey())<5
         for unit=0 to 9
            if abs(mousex()-object screen x(unit+1))<10 and abs(mousey()-object screen y(unit+1))<10
               unit_selected(unit)=1
               gummiband=0
               exit
            endif
         next unit
      endif

if gummiband=1
         for unit=0 to 9
            if object screen x(unit+1)>=mposx and object screen x(unit+1)<=mousex() and object screen y(unit+1)>=mposy and object screen y(unit+1)<=mousey() then unit_selected(unit)=1
            if object screen x(unit+1)<=mposx and object screen x(unit+1)>=mousex() and object screen y(unit+1)<=mposy and object screen y(unit+1)>=mousey() then unit_selected(unit)=1
            if object screen x(unit+1)<=mposx and object screen x(unit+1)>=mousex() and object screen y(unit+1)>=mposy and object screen y(unit+1)<=mousey() then unit_selected(unit)=1
            if object screen x(unit+1)>=mposx and object screen x(unit+1)<=mousex() and object screen y(unit+1)<=mposy and object screen y(unit+1)>=mousey() then unit_selected(unit)=1
         next unit
         gummiband=0
      endif
   endif

for unit=0 to 9
      if unit_selected(unit)=1
         color object unit+1,rgb(255,0,0)
      else
         color object unit+1,rgb(255,255,255)
      endif
   next unit
   sync

loop

+ Code Snippet

dim unit_selected(9)

for objectno=1 to 10
   make object cube objectno,10
   position object objectno,rnd(250)-125,0,rnd(250)-125
next objectno

camx#=0 : camz#=0
position camera camx#,200,camz#
xrotate camera 60
set camera range 100,400

sync rate 60
sync on
dim gummiband(4)

do


   if gummiband=0 and (mousex()>screen width()-5 or rightkey()=1) then inc camx#,6
   if gummiband=0 and (mousex()<5 or leftkey()=1) then dec camx#,6
   if gummiband=0 and (mousey()<5 or upkey()=1) then inc camz#,6
   if gummiband=0 and (mousey()>screen height()-5 or downkey()=1) then dec camz#,6
   position camera camx#,200,camz#

   rem unit selection code
   if mouseclick()=1 and gummiband=0

      if keystate(42)=0 and keystate(54)=0
         for unit=0 to 9
            unit_selected(unit)=0
         next unit
      endif

      gummiband=1
      mposx=mousex()
      mposy=mousey()
   endif

  while mouseclick()=1
    line mposx,mposy,mposx,mousey()
    line mposx,mousey(),mousex(),mousey()
    line mousex(),mousey(),mousex(),mposy:gummiband(0)=mousex():gummiband(1)=mousey()
    line mousex(),mposy,mposx,mposy
    sync
  endwhile

   if mouseclick()=0 and gummiband=1
      if abs(mposx-mousex())<5 and abs(mposy-mousey())<5
         for unit=0 to 9
            if abs(mousex()-object screen x(unit+1))<10 and abs(mousey()-object screen y(unit+1))<10
               unit_selected(unit)=1
               gummiband=0
               exit
            endif
         next unit
      endif

      if gummiband=1
         for unit=0 to 9
            if object screen x(unit+1)>=mposx and object screen x(unit+1)<=mousex() and object screen y(unit+1)>=mposy and object screen y(unit+1)<=mousey() then unit_selected(unit)=1
            if object screen x(unit+1)<=mposx and object screen x(unit+1)>=mousex() and object screen y(unit+1)<=mposy and object screen y(unit+1)>=mousey() then unit_selected(unit)=1
            if object screen x(unit+1)<=mposx and object screen x(unit+1)>=mousex() and object screen y(unit+1)>=mposy and object screen y(unit+1)<=mousey() then unit_selected(unit)=1
            if object screen x(unit+1)>=mposx and object screen x(unit+1)<=mousex() and object screen y(unit+1)<=mposy and object screen y(unit+1)>=mousey() then unit_selected(unit)=1
         next unit
         gummiband=0
      endif
   endif

   for unit=0 to 9
      if unit_selected(unit)=1
         color object unit+1,rgb(255,0,0)
      else
         color object unit+1,rgb(255,255,255)
      endif
   next unit
   sync

loop

"If you can't make it good
make it look good."
Bill Gates

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Mouse XYZ to 3D XYZ?