Sorry your browser is not supported!

make memblock 1,1
delete memblock 1

make object cube 1, 5
position object 1, 0,0,20
setupobject 1,0,0
make object plain 2, .1,.1
color object 2,rgb(255,0,0)
setupobject 2,0,0

do

   x# = camera position x()
   y# = camera position y()
   z# = camera position z()
   xa# = camera angle x()
   ya# = camera angle y()
   za# = camera angle z()

   nx# = newxvalue(x#,xa#,50)
   ny# = newyvalue(y#,ya#,50)
   nz# = newzvalue(z#,za#,50)

   hit# = intersectobject(0,0,x#,y#,z#,nx#,ny#,nz#,0)
   if hit# > 0 then show object 2 ; position object 2, getstaticcollisionx(),getstaticcollisiony(),getstaticcollisionz()
   if hit# = 0 then hide object 2






   rem Control player direction
   rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0

   rem Control player movement
   cx#=camera angle x(0) : cy#=camera angle y(0)
   if upkey()=1 then xrotate camera 0,0 : move camera 0,0.2 : xrotate camera 0,cx#
   if downkey()=1 then xrotate camera 0,0 : move camera 0,-0.2 : xrotate camera 0,cx#
   if leftkey()=1 then yrotate camera 0,cy#-90 : move camera 0.2 : yrotate camera 0,cy#
   if rightkey()=1 then yrotate camera 0,cy#+90 : move camera 0.2 : yrotate camera 0,cy#
   if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

loop

sync on : sync rate 30
hide mouse
set camera range 0.1,3000

`make a test wall
make object box 1,100,10,10
position object 1,0,0,75
color object 1,rgb(10,10,160)

`make laser sight
make object sphere 2,3,3,10

`make a point to test with
make object box 3,1,1,1
hide object 3

do
`move camera
camx=camera position x()
camy=camera position y()
camz=camera position z()
control camera using arrowkeys 0,6,3

`replace test point
set object to camera orientation 3
position object 3,camx,camy,camz : move object 3,300

`check for intersection distance
dis#=intersect object(1,camx,camy,camz,object position x(3),object position y(3),object position z(3))
if object hit(2,1) or object collision(2,1) then set object to object orientation 2,1
if dis#<1 then dis#=300
`move the laser sight
set object to camera orientation 2
position object 2,camx,camy,camz
move object 2,dis#-1

sync
loop