Sorry your browser is not supported!

function compile()
    make camera 1
    set current camera 1
    set camera range 1, 1,10500000000
    
    position camera 1,25,25,10
    
    
    set cursor 0,0
    
    do

       `Camera manipulation
       
       
       `Gosub _Get_Data
       
       if terrain exist(5)
       terrh# = get terrain ground height(5,x#,z#) + 5
       position camera 1 ,terrh#,20,terrh#
       endif



  ` Position camera 1, Cameraxpos, get terrain ground height(5,x#,z#)+5, Camerazpos
       
       
       
       
       if keystate (17) = 1
  move camera 1,50
ENDIF
       
       

if keystate(1) = 1
delete camera 1
set current camera 0
 show mouse
    exit
ENDIF

`Camera look
hide mouse
`x#=x#+mousemovey()
y#=y#+mousemovex()
`xrotate camera 1, x#
yrotate camera 1, y#


sync
LOOP
    
ENDFUNCTION

`_Get_Data:
`Cameraxang = camera angle x(1)
`Camerayang = camera angle y(1)
`Camerazang = camera angle z(1)
`Cameraxpos = camera position x(1)
`Cameraypos = camera position y(1)
`Camerazpos = camera position z(1)
`x# = camera position x(1)
`z# = camera position z(1)
`Return

`camera
speed#=0.1
if upkey()=1 THEN x#=NEWXVALUE(x#,a#,speed#):z#=NEWZVALUE(z#,a#,speed#)
if downkey()=1 THEN x#=NEWXVALUE(x#,a#,-speed#):z#=NEWZVALUE(z#,a#,-speed#)
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
y#=get terrain ground height(1,x#,z#)
position camera x#,y#+4,z#

ink rgb(0,80,0),0
box 0,0,100,100
ink rgb(0,100,0),0
box 20,20,80,80
get image 1,0,0,100,100

autocam off
sync on
make object box 100,250,1,250
texture object 100,1:scale object texture 100,30,30

for i= 1 to 20
   make object box i,10,10,10
   position object i,-100+rnd(200),5,-100+rnd(200)
next i

do
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0

cx#=camera position x()
cz#=camera position z()

`JUMP
   if mouseclick() = 2 and gravity# = 0.0
      gravity# = 0.5
      gravity_smooth# = 0.005
   endif

   dec gravity#, gravity_smooth#
   inc cy#, gravity#

   if cy# < 0
      gravity# = 0.0
      gravity_smooth# = 0.0
   endif

position camera cx#,5+cy#,cz#

sync
loop