Sorry your browser is not supported!

sync on
autocam off

` Give us something to look at
make object cube 1, 20.0
make matrix 1, 500.0, 500.0, 10, 10
position matrix 1, -250.0, 0.0, -250.0


make object sphere 5000,10
position object 5000,0,0,100

` Our camera variables
radius#        = 100.0
angle#         = 0.0
angleX#        = 90.0

while spacekey() = 0

  ` Use mouse to change the angles
  angle#  = wrapvalue( angle# + mousemovex() )
  angleX# = wrapvalue( angleX# + mousemovey() )

  vX# = (cos( angle# ) * radius#) * sin( angleX# )  : ` Calculate new vectors
  vZ# = (sin( angle# ) * radius#) * sin( angleX# )
  vY# = cos( angleX# ) * radius#

  camX# = object position x(1) + vX#                         : ` Calculate new camera position
  camZ# = object position z(1) + vZ#
  camY# = object position y(1) + vY#

  position camera camX#, camY#, camZ#               : ` Update cam pos
  yrotate camera wrapvalue((angle#*-1)-90): ` Manually point camera to avoid flipping
  yrotate object 1,wrapvalue((angle#*-1)-90)
  xrotate camera wrapvalue((angleX#*-1)+90)

if mouseclick()=1
move object 1,1
endif

if mouseclick()=2
move object 1,-1
endif

  center text object screen x(1),object screen y(1),"test"

  center text object screen x(5000),object screen y(5000),"test2"

  sync
endwhile
end

box 5,5,28,28 : get image 1,0,0,32,32
sync on : sync rate 0 : autocam off
make matrix 1,2000,2000,64,64
randomize matrix 1,15
prepare matrix texture 1,1,1,1
update matrix 1
make object sphere 1,2 : color object 1,rgb(255,0,0)
position object 1,10,0,10
do
   if upkey() then move object 1,1
   if downkey() then move object 1,-1
   if leftkey() then yrotate object 1,wrapvalue(object angle y(1)-1)
   if rightkey() then yrotate object 1,wrapvalue(object angle y(1)+1)
   x#=object position x(1)
   z#=object position z(1)
   h#=get ground height(1,x#,z#)
   y#=h#+1
   position object 1,x#,y#,z#
   set camera to follow x#,y#,z#,object angle y(1),20,h#+2,10,0
   ch#=get ground height(1,camera position x(),camera position z())
   position camera camera position x(),ch#+10,camera position z()
   point camera object position x(1),object position y(1),object position z(1)
   sync
loop