Sorry your browser is not supported!

`Make a world matrix
make matrix 1,2500,2500,15,15

`Make the object
make object sphere 1,50

REM MAIN PROGRAM LOOP
sync on : do

`Allow basic rotation of the object
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-3.0)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+3.0)

`Update x,z position based on object angle y and the pressing of `up/down key using newxvalue
if upkey()=1 then x#=newxvalue(object position x(1),object angle y(1),5.0) : z#=newzvalue(object position z(1),object angle y(1),5.0)
if downkey()=1 then x#=newxvalue(object position x(1),object angle y(1),-5.0) : z#=newzvalue(object position z(1),object angle y(1),-5.0)

`Update object position
position object 1,x#,0,z#

`Position camera 50 units BEHIND (object angle y + 180) and 50 units `ABOVE the object
position camera newxvalue(x#,object angle y(1)+180.0,150.0),75.0,newzvalue(z#,object angle y(1)+180.0,150)
point camera x#,0,z#

sync : loop

for i=1 to 1000
a=rnd(300)
b=rnd(300)
ink rgb(rnd(255),rnd(255),rnd(255)),0
box a,b,a+10,b+10
next i
get image 1,0,0,127,127
make object cube 1,1
make matrix 1,100,100,10,10
prepare matrix texture 1,1,1,1
do
if upkey() then move object 1,0.1
if leftkey() then turn object left 1,2
if rightkey() then turn object right 1,2
set camera to follow object position x(1),object position y(1),object position z(1),0,5,3,10,0
loop

for i=1 to 1000
a=rnd(300)
b=rnd(300)
ink rgb(rnd(255),rnd(255),rnd(255)),0
box a,b,a+10,b+10
next i
get image 1,0,0,127,127
make object cube 1,1
make matrix 1,100,100,10,10
prepare matrix texture 1,1,1,1
do
if upkey() then move object 1,0.1
if leftkey() then turn object left 1,2:dec ang,2
if rightkey() then turn object right 1,2:inc ang,2
ang=wrapvalue(ang)
set camera to follow object position x(1),object position y(1),object position z(1),ang,5,3,10,0
loop

for i=1 to 1000
a=rnd(300)
b=rnd(300)
ink rgb(rnd(255),rnd(255),rnd(255)),0
box a,b,a+10,b+10
next i
get image 1,0,0,127,127
make object cube 1,1
make matrix 1,100,100,10,10
prepare matrix texture 1,1,1,1
do
if upkey() then move object 1,0.1
if leftkey() then turn object left 1,2
if rightkey() then turn object right 1,2
ang=wrapvalue(ang)
position camera object position x(1),object position y(1),object position z(1)
set camera to object orientation 1
pitch camera down 30
move camera -4
loop

REM Most likly messed up

REM Store object position(edit this to correct format)
X#= Object position(1)
Y#= Object position(1)

set camera to follow X#,Y#