Sorry your browser is not supported!

Rem Project: 3wallbreakout
Rem Created: 5/1/2005 4:40:43 PM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 12 : set text transparent
autocam off
position camera 0,50,-200
make object box 1,20,10,10
position object 1,0,0,0
make object plain 2,200,200

xROTATE OBJECT 2,90
position object 2,10,-10,10

do
xpos#=mousex()
zpos#=mousey()

position object 1,xpos#-163,0,zpos#-200
text 0,0,"mousex="+str$(mousex())+" mousey="+str$(mousey())
sync
loop

Rem Project: 3wallbreakout
Rem Created: 5/1/2005 4:40:43 PM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 12 : set text transparent
autocam off
position camera 0,50,-200
make object box 1,20,10,10
position object 1,0,0,0
make object plain 2,200,200

xROTATE OBJECT 2,90
position object 2,10,-10,10

REM << preset variables
lockx$ = "no"
locky$ = "no"

do
REM << check for collision
`if object goes outside of a perimeter, lock object at that
`perimeter until it moves in opposite direction
`'lock' variable keeps object from twitching due to mouse movement override
if xpos# < -72.5
   lockx$ = "left"
   xpos# = -72.5
endif
if xpos# > 90
   lockx$ = "right"
   xpos# = 90
endif
if zpos# < -94
   locky$ = "down"
   zpos# = -94
endif
if zpos# > 78
   locky$ = "up"
   zpos# = 78
endif
REM << if object is locked in specific direction but mouse moves
`in opposite direction, then unlock the object on the axis boundary
if lockx$ = "left" and mousemovex() > 0 then lockx$ = "no"
if lockx$ = "right" and mousemovex() < 0 then lockx$ = "no"
if locky$ = "down" and mousemovey() > 0 then locky$ = "no"
if locky$ = "up" and mousemovey() < 0 then locky$ = "no"

REM << if lockx is not locked
if lockx$ = "no" then xpos# = xpos# + (mousemovex() * 0.50)
REM << if locky is not locked
if locky$ = "no" then zpos# = zpos# + (mousemovey() * 0.50)

position object 1,xpos#,0,zpos#
text 0,0,"objectx=" + str$(xpos#)+"objectz="+str$(zpos#)
sync
loop

Rem Project: Cursor to Object
Rem Created: 02/10/2004 16:22:02

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

`Controls are up for forewards, down for backwards, left rotate left, right rotate right, shift=move up, control=move down
`Move the cursor over the cubes and a sphere will be placed at that point `

cls
sync on
sync rate 60

`========================================================`
` You can remove this bit and replace with your own level`
For i=3 to 60
 make object cube i,35+rnd(30)
 position object i,(rnd(100)*10),(rnd(100)*10),(rnd(100)*10)
 setupobject i,0,0
 color object i,RGB(rnd(254),rnd(254),rnd(254))
next i
`=========================================================`

rotate camera 0,0,0

make memblock 99,2

make object sphere 2,10

do
 MouseCam()
 ScreentoReal()
 sync
loop


` this is the command in question `
Function ScreentoReal()
 Pick Screen mousex(), mousey(), 4000
 nx#=(camera position x()+GET PICK VECTOR x())
 ny#=(camera position y()+GET PICK VECTOR y())
 nz#=(camera position z()+GET PICK VECTOR z())
 Obnum=IntersectObject(0,0,camera position x(),camera position y(),camera position z(),nx#,ny#,nz#,0)
 Rx#=GetStaticCollisionX()
 Ry#=GetStaticCollisionY()
 Rz#=GetStaticCollisionZ()
 ` rx#, ry# and rz#  are the real world values, extract them as you wish
 position object 2,rx#,ry#,rz#
endfunction

Function MouseCam()
 y#=camera angle y()
 h#=camera position y()
 if upkey()=1 then move camera 1
 if downkey()=1 then move camera -1
 if leftkey()=1 then yrotate camera y#-1
 if rightkey()=1 then yrotate camera y#+1
 if shiftkey()=1 then position camera camera position x(),camera position y()+1,camera position z()
 if controlkey()=1 then position camera camera position x(),camera position y()-1,camera position z()
endfunction