Sorry your browser is not supported!

sync on : sync rate 60
set display mode 1024,768,32 : hide mouse
autocam off : set camera range 1,0x7fffffff
backdrop on : color backdrop 0

`create cube
make object cube 1,100
speed#=5
turn#=3

`create landscape
make matrix 1,1000,1000,50,50

`main loop
do

`controls
if upkey()
x#=x#+(sin(a#)*speed#)
z#=z#+(cos(a#)*speed#)
endif
if downkey()
x#=x#-(sin(a#)*speed#)
z#=z#-(cos(a#)*speed#)
endif
if leftkey() then a#=wrapvalue(a#-turn#)
if rightkey() then a#=wrapvalue(a#+turn#)
position object 1,x#,y#,z#
yrotate object 1,a#

`camera
ca#=curveangle(a#,ca#,6.0)
cx#=x#-sin(ca#)*600
cz#=z#-cos(ca#)*600
cy#=y#+300
position camera cx#,cy#,cz#
point camera x#,y#,z#

sync
loop

rem Setup the game
Sync On
Sync Rate 60
autocam off

rem Make a sphere to move.
Make Object sphere 1,10

rem Make a grid so we can get a sense of movement.
Make matrix 1,1000,1000,10,10



do

rem Control the object
if Upkey() then move object 1,2
if downkey() then move object 1,-2
if leftkey() then Yrotate object 1, wrapvalue( Object angle y(1)-1 )
if rightkey() then Yrotate object 1, wrapvalue( Object angle y(1)+1 )

Set Camera To Follow OBject position x(1),OBject position y(1),Object position z(1),Object angle y(1),25,10,3.5,0

sync
loop