Rem TPS CAMERA : set camera to follow autocam off make matrix 1,4000,4000,100,100 set matrix height 1,50,50,500 update matrix 1 make object box 1, 10,20,30 sync on : sync rate 60 while mouseclick()<>1 if upkey()=1 then move object 1,4 if downkey()=1 then move object 1,-4 if leftkey()=1 then ya#=ya#-2 if rightkey()=1 then ya#=ya#+2 if shiftkey()=1 then an#=an#+1 if controlkey()=1 then an#=an#-1
rotate object 1, 0,ya#,0 x#=object position x(1) y#=object position y(1) z#=object position z(1) angle#=object angle y(1)+an# distance#=200.0 height#=100.0 smooth#=12.0 set camera to follow x#,y#,z#,angle#,distance#,height#,smooth#,0 sync endwhile end
