Sorry your browser is not supported!

function 3DMouse(id,objy)
`Find Coordinate of the Camera
   cx=camera position x()
   cy=camera position y()
   cz=camera position z()

`Create the vectors needed
   null=make vector3(1)
   null=make vector3(2)
   null=make vector3(3)
   null=make vector3(4)

`Set vector one to the camera's defult position
   set vector3 1,0,-1,0

`Sets vector two to the mouse's 3D coordinates
   pick screen mousex(), mousey(), 1
   mx# = get pick vector x()
   my# = get pick vector y()
   mz# = get pick vector z()
   set vector3 2,mx#,my#,mz#

`Find the angle between vector 1 and vector 2
   angle# = acos(dot product vector3(2, 1))

`Find the length of the hypotenuse
   cosangle# = cos(angle#)
   hypolength# = cy/cosangle#

`Scale vector two(hypotenuse)
   normalize vector3 2,2
   scale vector3 2,2,hypolength#

`Set vector one to the current camera coordinates
   set vector3 1,cx,cy,cz

`Add vector one to vector two
   add vector3 4,1,2

`Position the object
   position object id, x vector3(4),objy,z vector3(4)
endfunction

Sync On
Sync Rate 20
Make Object Sphere 1,30
Make Object Cube 2,30
Make Object Cone 3,30
Make Object Cube 4,35
Ghost Object On 4
Color Object 4,rgb(0,0,250)
Hide Object 4

For i = 1 to 3
   Position Object i,(i-2)*35,rnd(30)-15,25
Next i

Do
   GetObj=Pick Object(Mousex(),MouseY(),1,3)
   Set Cursor 0,0
   Print "Object# "; GetObj
   If GetObj>0
      Position Object 4,Object Position X(GetObj),Object Position Y(GetObj),Object Position Z(GetObj)
      Show Object 4
   Else
      Hide Object 4
   Endif
   Sync
Loop

Sync Rate 60

Create Bitmap 1,200,200
Set Current Bitmap 1
Ink RGB(255,255,255),RGB(0,0,0)
Get Image 1,0,0,199,199
Set Current Bitmap 0

Make Object Box 1,400,400,2
Texture Object 1,1
Position Object 1,0,0,110
Point Object 1,Camera Position X(),Camera Position Y(), Camera Position Z()

Do

   If Mouseclick() and Pick Object(MouseX(),MouseY(),1,1)
      bbx#=Object Screen X(1):bby#=Object Screen Y(1)
      cx#=100+(MouseX()-bbx#):cy#=100+(MouseY()-bby#)
      Set Current Bitmap 1
      Circle cx#,cy#,1
      Get Image 1,0,0,199,199
      Set Current Bitmap 0
      Texture Object 1,1
      Set Cursor 0,0:Print cx#
      Set Cursor 0,15:Print cy#
   Endif
Sync
Loop

Sync On
Sync Rate 60
Dim Text$(5) as String
Autocam Off

For i = 1 to 5
   Create Bitmap i,90,30
   Read Text$(i)
   Set Current Bitmap i
   Center Text 45,8,Text$(i)
   Get Image i,0,0,89,29
   Make Object Plain i,60,20
   Texture Object i,i
   Position Object i, 0,100-30*i,400
Next i
Set Current Bitmap 0
Make Object Plain 6,65,25
Color Object 6,RGB(255,255,0)
Ghost Object On 6
Hide Object 6
Make Object Box 7,200,200,1
Position Object 7,0,0,402
Color Object 7,0
Set Object Ambient 7,0
Set Object Light 7,1

Do
   Menu_Item = Pick Object(MouseX(),MouseY(),1,5)
   If Menu_Item>0
      Position Object 6,Object Position X(Menu_Item),Object Position Y(Menu_Item),Object Position Z(Menu_Item)-.1
      Show Object 6
   Else
      Hide Object 6
   Endif
   If MouseClick() Then Test$=Do_Menu_Command(Menu_Item)
   Set Cursor 0,0: Print Test$
   Move Camera (Upkey()-Downkey())*2
   Turn Camera Left (Leftkey()-Rightkey())*2
   Sync
Loop


Function Do_Menu_Command(Item)
   Select Item
      Case 1
         Temp$="This"
      EndCase
      Case 2
         Temp$="Is"
      EndCase
      Case 3
         Temp$="A"
      EndCase
      Case 4
         Temp$="Test"
      EndCase
      Case 5
         End
      EndCase
      Case Default
         Temp$=""
      EnDCase
   EndSelect
EndFunction Temp$

Data "This", "Is", "A", "Test", "-Exit-"