Sorry your browser is not supported!

dist#=600
camangx#=wrapvalue(camangx#+mousemovey())
camangy#=wrapvalue(camangy#+mousemovex())
cx#=x#-(sin(camangy#)*cos(camangx#)*dist#)
cy#=y#-(cos(camangx#)*dist#)
cz#=z#-(cos(camangy#)*cos(camangx#)*dist#)
position camera cx#,cy#,cz#
rotate camera camangx#,camangy#,0

sync on
sync rate 0
cls
make object cube 1,1
make matrix 1,100,100,10,10
do
   set cursor 0,0

   rem camera
   position camera object position x(1),object position y(1),object position z(1)
   rotate camera cx#,cy#,0
   move camera -6
   mmx=mousemovex()
   mmy=mousemovey()
   cx#=cx#+mmy
   cy#=cy#+mmx
   move object 1,(keystate(17)-keystate(31))*0.1
   turn object right 1,(keystate(32)-keystate(30))*0.3
sync
loop

sync on
sync rate 0
hide mouse

make object cube 1,1
make object sphere 2,1
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,1,1
OFFSET LIMB 1,1,0,2,-5
hide limb 1,1


make matrix 1,100,100,10,10

do
`wasd controls
if keystate(17)=1  then move object 1,.02
if keystate(31)=1  then move object 1,-.02
If keystate(30)=1 THEN MOVE OBJECT left 1,.02
IF keystate(32)=1 THEN MOVE OBJECT right 1,.02

set camera to follow limb position x(1,1),limb position y(1,1),limb position z(1,1),0,0,0,150,0
`(you can use the line below instead if you want a strictly stiff camera)
`position camera limb position x(1,1),limb position y(1,1),limb position z(1,1)
point camera object position x(1), object position y(1), object position z(1)

yrotate object 1,wrapvalue(object angle y(1)+(mousemovex()*0.2))
xrotate object 1,wrapvalue(object angle x(1)+(mousemovey()*0.2))

sync
loop