Sorry your browser is not supported!

sync on : sync rate 0 : autocam off

mat_x#=500 : mat_y#=2000 : mat_z#=200
mat_size_x=1000 : mat_size_z=1000
mat_tiles_x=32 : mat_tiles_z=32

make matrix 1,mat_size_x,mat_size_z,mat_tiles_x,mat_tiles_z
position matrix 1,mat_x#,mat_y#,mat_z#
randomize matrix 1,10
update matrix 1

position camera mat_x#-50,mat_y#+100,mat_z#-50
point camera mat_x#+50,mat_y#,mat_z#+50

do

   gosub mousetile
   if tx > -1
      text 0,0,"X = "+str$(tx)+", Z = "+str$(tz)
   endif

   sync
loop

mousetile:

tx=-1 : ty=-1 : t=0
for f=0 to 5000 step 100
   pick screen mousex(),mousey(),f
   x#=get pick vector x()+camera position x() : y#=get pick vector y()+camera position y() : z#=get pick vector z()+camera position z()
   if x# > mat_x# and x# < (mat_size_x + mat_x#) and z# > mat_z# and z# < (mat_size_z + mat_z#)
      h#=get ground height(1,x#-mat_x#,z#-mat_z#) : v#=y#-h#-mat_y# : if v# < 0 then t=1 : exit
   endif
next f
if t=1
   t=0
   for g=f-100 to f step 10
      pick screen mousex(),mousey(),g
      x#=get pick vector x()+camera position x() : y#=get pick vector y()+camera position y() : z#=get pick vector z()+camera position z() :
      if x# > mat_x# and x# < (mat_size_x + mat_x#) and z# > mat_z# and z# < (mat_size_z + mat_z#)
         h#=get ground height(1,x#-mat_x#,z#-mat_z#) : v#=y#-h#-mat_y# : if v# < 0 then t=1 : exit
      endif
   next g
   if t=1
      t=0
      for h=g to g-10 step -1
         pick screen mousex(),mousey(),h
         x#=get pick vector x()+camera position x() : y#=get pick vector y()+camera position y() : z#=get pick vector z()+camera position z() :
         if x# > mat_x# and x# < (mat_size_x + mat_x#) and z# > mat_z# and z# < (mat_size_z + mat_z#)
            h#=get ground height(1,x#-mat_x#,z#-mat_z#) : v#=y#-h#-mat_y# : if v# >= 0 then t=1 : exit
         endif
      next h
      if t=1
         tx=int((x#-mat_x#)/(mat_size_x/mat_tiles_x))
         tz=int((z#-mat_z#)/(mat_size_z/mat_tiles_z))
      endif
   endif
endif

return

position camera 200,200,200


rem make mouse
make object cube 1,5
position object 1,0,0,0

rem make other object
make object sphere 2,5
position object 2,0,0,0



position camera 0,30,-30
pitch camera down 30

position mouse 400,400

sync on
do

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

position object 1,object position x(1),object position y(1),object position z(1)

set cursor 10,10
print "Distance between objects: ";dist_obj(1,2)

if dist_obj(1,2)<4 then print "Mouse over!"
if dist_obj(1,2)<4 and mouseclick()=1 then print "Clicked On!"

sync

loop

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#

m_dim_x# = 1000.0
m_dim_y# = 1000.0

m_tiles_x# = 100.0
m_tiles_y# = 100.0

m_scale_x# = m_tiles_x# / m_dim_x#
m_scale_y# = m_tiles_y# / m_dim_y#

rem HERE DO CALCULATIONS
objx# = 501
obj_tile_x = int(objx# * (m_scale_x#))

objz# = 980
obj_tile_y = int(objz# * (m_scale_y#))

print "Position: ";obj_tile_x;"/";obj_tile_y
wait key

sync on

make object plain 1,0,0
hide object 1

make matrix 1,5000,5000,50,50
randomize matrix 1,25
update matrix 1

ink rgb(255,128,0),0

do

   if upkey() then move camera 1
   if downkey() then move camera -1
   if leftkey() then turn camera left 1
   if rightkey() then turn camera right 1
   if shiftkey()
      pitch camera up 90
      move camera 1
      pitch camera down 90
   endIf
   if controlkey()
      pitch camera up 90
      move camera -1
      pitch camera down 90
   endIf

   rem Tile under mouse is?
   nearRng=screen width()
   selectedTileX=0
   selectedTileZ=0
   for tileX=1 to 50
      for tileZ=1 to 50
         x#=(tileX*100)-50
         z#=(tileZ*100)-50
         position object 1,x#,get ground height(1,x#,z#),z#
         if object in screen(1)
            dx#=abs(object screen x(1)-mouseX())
            dz#=abs(object screen y(1)-mouseY())
            rng=sqrt((dx#*dx#)+(dz#*dz#))
            if rng<nearRng
               nearRng=rng
               selectedTileX=tileX
               selectedTileZ=tileZ
            endIf
         endIf
      next tileZ
   next tileX

   rem Highlight Tile
   if selectedTileX>0
      ulX=-1 : ulY=-1
      urX=-1 : urY=-1
      brX=-1 : brY=-1
      blX=-1 : blY=-1

      `Top Left
      x#=(selectedTileX*100)-100 : z#=(selectedTileZ*100)-100
      position object 1,x#,get ground height(1,x#,z#),z#
      if object in screen(1)
         ulX=object screen x(1)
         ulY=object screen y(1)
      endIf

      `Top Right
      x#=selectedTileX*100 : z#=(selectedTileZ*100)-100
      position object 1,x#,get ground height(1,x#,z#),z#
      if object in screen(1)
         urX=object screen x(1)
         urY=object screen y(1)
      endIf

      `Bottom Right
      x#=selectedTileX*100 : z#=selectedTileZ*100
      position object 1,x#,get ground height(1,x#,z#),z#
      if object in screen(1)
         brX=object screen x(1)
         brY=object screen y(1)
      endIf

      `Bottom Left
      x#=(selectedTileX*100)-100 : z#=selectedTileZ*100
      position object 1,x#,get ground height(1,x#,z#),z#
      if object in screen(1)
         blX=object screen x(1)
         blY=object screen y(1)
      endIf

      line ulX,ulY,urX,urY
      line blX,blY,brX,brY
      line ulX,ulY,blX,blY
      line urX,urY,brX,brY
   endIf

   sync
loop

   fRng=999
   for obj=1 to 100
      if object in screen(obj)
         rng=abs(mouseX()-object screen x(obj))+abs(mouseY()-object screen y(obj))
         if rng<fRng
            fRng=rng
            nearestObjectToMouseIs=obj
         endIf
      endIf
   next obj