Sync On
Sync Rate 30
Rem Create sphere
Make object cube 1,100
Rem Main loop
Do
Rem Store the object's Y angle in aY#
aY# = Object angle Y(1)
Rem Control input
If Upkey()=1 then Move object 1,2
If Leftkey()=1 then aY# = Wrapvalue(aY#+5)
If Rightkey()=1 then aY# = Wrapvalue(aY#+5)
Rem rotate the sphere
Yrotate object 1,aY#
Rem Refresh Screen
Sync
LOOP
For x = 1 to 5
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
NEXT
If Upkey()=1 then Move camera 10
If Leftkey()=1 then Yrotate Camera Wrapvalue(caY#-5)
If Rightkey()=1 then Yrotate Camera Wrapvalue (caY#-5)
Rem Setup sync
Sync On
Sync Rate 30
Rem Make Cubes and place randomly
For x = 1 to 5
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
NEXT
Rem Make sphere
Make object sphere 10,50
Rem Main loop
Do
Rem Store Object angle Y in aY#
aY# = Object angle Y(10)
Rem Control input for camera
If Upkey()=1 then Move object 10,10
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position x(10)
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#,100,cZ#
Rem point the camera at the player object
Point camera X#,50,Z#
Rem Refresh Screen
Sync
LOOP
Rem Setup sync
Sync On
Sync Rate 30
Rem Make Cubes and place randomly
For x = 1 to 5
Make object sphere 10,50
Position object x,Rnd(2000),0,Rnd(2000)
Set object collision to boxes x
NEXT
Rem Make sphere
Make object sphere 10,50
Position object 10,-100,0,-100
Set object collision to spheres 10
Rem Main loop
Do
Rem Store Object angle Y in aY#
aY# = Object angle Y(10)
Rem Control input for camera
If Upkey()=1 then Move object 10,10
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)
Rem Detect collision
If Object collision(10,0)>0 then position object 10,X#,0,Z#
Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position x(10)
Rem get new camera position and store in cZ# and cX#
cZ# = Newsvalue(Z#,aY#-180,100)
cX# = Newsvalue(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
Yes...i shall make games.