Sorry your browser is not supported!

 
do
   rem function - control the camera
   controlcamera()

   rem function - control object
   controlobject()

   Rem Refresh Screem
   Sync

rem End loop
loop


FUNCTION controlcamera
Rem Store Object angle Y in aY#
 aY# = Object angle Y(1)

   Rem Control input for camera
   If Upkey()=1 then Move object 1,-10+1
   If Leftkey()=1 then Yrotate object 1,Wrapvalue(aY#-5)
   If Rightkey()=1 then Yrotate object 1,Wrapvalue(aY#+5)

   Rem get player object position and store in X# and Z#
   X# = Object position x(1)
   Z# = Object position z(1)

   Rem get new camera position and store in cZ# and cX#
   cZ# = Newzvalue(Z#,aY#-0,100)
   cX# = Newxvalue(X#,aY#-0,100)

   Rem position camera
   Position Camera cX#,100,cZ#

   Rem point the camera at the player object
   Point camera X#,50,Z#
 endfunction

FUNCTION controlobject
if INKEY$()="w" then PITCH OBJECT UP 1,-2
   if INKEY$()="z" then PITCH OBJECT DOWN 1,-2
   if INKEY$()="s" then ROLL OBJECT LEFT 1,2
   if INKEY$()="a" then ROLL OBJECT RIGHT 1,2

 rem play sounds
   if INKEY$()="w" then play sound 2
   if INKEY$()="s" then play sound 3
   if INKEY$()="a" then play sound 3
endfunction

function dist#(x1#,y1#,z1#,x2#,y2#,z2#)
dist#=0

x#=x1#-x2#
y#=y1#-y2#
z#=z1#-z2#

dist#=sqrt((x#^2)+(y#^2)+(z#^2))
endfunction dist#

Function flycam(objno,traildist#)
point camera object position x(objno),object position y(objno),object position z(objno)
camdist#=dist#(camera position x(),camera position y(),camera position z(),position x(objno),object position y(objno),object position z(objno))
movedist#=traildist#-camdist#
move camera movedist#
Endfunction