rem setup screen
sync on
sync rate 60
backdrop on
hide mouse
rem declare variables
global x# as float
global y# as float
global z# as float
global angle# as float
global distance# as float
global height# as float
global smooth# as float
global flag as byte
rem make a player object
make object cube 1,1
rem main loop
do
rem control player movement with input
if upkey()=1 then move object 1,.1
if downkey()=1 then move object 1,-.1
if leftkey()=1 then turn object left 1,5
if rightkey()=1 then turn object right 1,5
rem get values for camera positions
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
angle#=object angle y(1)
distance#=object size z(1)*4
height#=y#+object size y(1)*3
smooth#=10
flag=0
rem set camera to follow player object
set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,flag
rem point camera at player object
point camera x#,y#,z#
rem refresh screen
sync
rem end of main loop
loop
TheComet