Sorry your browser is not supported!

Set Display Mode 800,600,16
Sync on: Sync rate 0

Rem Create a plain to show where Y=0 is (not actually required for program to work)
Make Object Plain 1,300,300
Color Object 1,RGB(128,128,255)
Position Object 1,0,0,0
XRotate Object 1,90

Rem Marker For Centre (0,0,0)
Make Object Sphere 2,5

Position Camera 0,40,-200
PointCamX# = 0: PointCamY# = 0: PointCamZ# = 0
Point Camera PointCamX#,PointCamY#,PointCamZ#
SW = Screen Width()/2: SH = Screen Height()/2
ScrRatio# = Screen Height()/1.2

Do
  Mx# = MouseX()-SW: My# = SH-MouseY(): Mc = MouseClick()
  CPX# = Camera Position X(): CPY# = Camera Position Y(): CPZ# = Camera Position Z()
  CAX# = Camera Angle X(): CAY# = Camera Angle Y(): CAZ# = Camera Angle Z()
  Distance# = Sqrt((CPX#-PointCamX#)^2+(CPY#-PointCamY#)^2+(CPZ#-PointCamZ#)^2)
  If My#<>0
    V_Ang# = AtanFull(ScrRatio#,My#)
  Else
    V_Ang# = 90.0
  Endif
  If V_Ang#+CAX# > 90.965
    Ratio# = My#/(Sin((V_Ang#+CAX#)-90.0))
    CurPosY# = ratio#*Sin(180.0-V_Ang#)
  Else
    CurPosY# = 1000000.0
  Endif
  HLen# = ScrRatio#/sin(V_Ang#)
  CurPosX# = (((Ratio#*Sin(90.0-CAX#))/HLen#)+1.0)*Mx#
  If Mx#<>0
    FullAngle# = Wrapvalue(CAY#-AtanFull(My#,Mx#))
  Else
    If My#<0
      FullAngle# = Wrapvalue(CAY#+90.0)
    Else
      FullAngle# = Wrapvalue(CAY#-90.0)
    Endif
  Endif
  CameraAngle# = Wrapvalue(360.0-CAY#)
  Cosine# = Cos(CameraAngle#): Sine# = Sin(CameraAngle#)
  PlaneX# = (Distance#/ScrRatio#)*((Cosine#*CurPosX#)+((-1*Sine#)*CurPosY#))
  Inc PlaneX#,PointCamX#
  PlaneZ# = (Distance#/ScrRatio#)*((Sine#*CurPosX#)+(Cosine#*CurPosY#))
  Inc PlaneZ#,PointCamZ#
  Sync
  Text 0,0,"Plane X: "+Str$(PlaneX#)+"  Plane Y: "+Str$(PlaneY#)+"  Plane Z: "+Str$(PlaneZ#)
Loop

firemahlazer:

camx_lazer#=camera position x()
camy_lazer#=camera position y()
camz_lazer#=camera position z()

move camera 1

xvec# = camera position x() - camx_lazer#
yvec# = camera position y() - camy_lazer#
zvec# = camera position z() - camz_lazer#

move camera -1

lazerhit=phy ray cast closest shape(camera position x(),camera position y(),camera position z(),xvec#,yvec#,zvec#)

if lazerhit=1
    
    lazerhitid=phy get ray cast object()
        
        if lazerhitid=LevelObject
            return
        else
        
            phy set rigid body position lazerhitid,999,-999,999
            phy sleep rigid body lazerhitid
            exclude object on lazerhitid

    endif

endif

return

sync on

`Create the cube
make object cube 1, 5

`Make a plain
make object plain 2, 100, 100
rotate object 2, 90, 0, 0

`Make a sphere
make object sphere 3, 20
position object 3, 0, 10, 0

MaxDistance# = 10000.0
do

   `Camera position
   position camera -200, 300, -200
   point camera 0, 0, 0

   `Find world coordinates of mouse (use a distance that is big enough)
   CDistance# = MaxDistance#
   pick screen mousex(), mousey(), CDistance#

   `Get vector components
   cx# = get pick vector x()
   cy# = get pick vector y()
   cz# = get pick vector z()

   `Find closest object
   for i = 2 to 3

      `Detect intersection
      dist# = Intersect Object(i, camera position x(), camera position y(), camera position z(), camera position x() + cx#, camera position y() + cy#, camera position z() + cz#)
      if dist# > 0.0 : `When it's 0, no intersection occurred
         if dist# < CDistance# : `If the distance# is smaller than the current distance
            CDistance# = dist#
         endif
      endif
   next i

   `Finally, position the object
   cx# = camera position x() + (cx# * CDistance# / MaxDistance#)
   cy# = camera position y() + (cy# * CDistance# / MaxDistance#)
   cz# = camera position z() + (cz# * CDistance# / MaxDistance#)
   position object 1, cx#, cy#, cz#

   sync
loop