object 5 is a jet(player)
object 15 is a box in the carrier that pervents player to go through
rem sunlight
make light1
set spot light 1,10000,500000
position light 1,-400000,-250,10000
color light 1,10,0,25
rem collision
set object collision on 5
make object collision box 5
set object collision on 15
rem Update screen
sync
rem Main Loop
do
rem fps screen
fps#=screen fps()
text 0,0,"FPS: "+str$(fps#)
rem Control Player
if upkey()=1 then pitch object down 5,.5
if downkey()=1 then pitch object up 5,.5
if rightkey()=1 then turn object right 5,.5
if leftkey()=1 then turn object left 5,.5
move camera .5:move object 5,.5
if keystate(36)=1 then move camera 100:move object 5,100:texture object 8,9:texture object 9,9
if keystate(36)=0 then texture object 8,8:texture object 9,8
if inkey$()="," then roll object left 5,.3
if inkey$()="." then roll object right 5,.3
rem target
circle screen width()/2,screen height()/2,5
rem Get back position of object for camera
pitch object down 5,11
move object 5,-15
position object 6,object position x(5),object position y(5),object position z(5)
move object 5,15
pitch object up 5,11
rem Place camera and set orientation to object
position camera object position x(6),object position y(6),object position z(6)
set camera to object orientation 5
sync
rem Loop
loop
sorry. i was in a hurry
