ok here it is
Rem Make sphere
Rem Setup sync
Sync On
Sync Rate 30
Rem Make Cube wall
Make object cube 1,100
scale object 1,100,200,0
Position object 1,Rnd(2000),0,Rnd(2000)
Set object collision to boxes 1
Rem Make cylinder
Make object cylinder 2,50
Position object 2,-100,0,-100
Set object collision to spheres 2
Rem Main loop
Do
Rem Store Object angle Y in aY#
aY# = Object angle Y(2)
Rem Control input for camera
If Upkey()=1 then Move object 2,10
If Leftkey()=1 then Yrotate object 2,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 2,Wrapvalue(aY#+5)
Rem Detect collision
If Object collision(2,0)>0 then position object 2,X#,0,Z#
Rem get player object position and store in X# and Z#
X# = Object position x(2)
Z# = Object position z(2)
Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)
Rem position camera
Position Camera cX#,75,cZ#
Rem point the camera at the player object
Point camera X#,25,Z#
Rem Refresh Screen
Sync
Loop
