s#=-1
a#=1
dist#=100
height#=40
smooth=10

make object cube 1,5
make matrix 1,1000,1000,10,10
make object cube 2,2
scale object 2,80,80,250
sync on : sync rate 0
make mesh from object 1,2
add limb 1,1,1
offset limb 1,1,object position x(1)+4,object position y(1)+1,object position z(1)
delete object 2
do
if upkey() = 1 then move object 1,0.7
if downkey() = 1 then move object 1,-0.7
if leftkey() = 1 then turn object left 1,0.7
if rightkey() = 1 then turn object right 1,0.7
set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),dist#,height#,smooth,1
sync
loop