Sorry your browser is not supported!

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 x

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 z(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

sync on : sync rate 60
make matrix 1,1000,1000,32,32

load object "demon.x",1
load image "demon.jpg",2
Show Object 1
position object 1,500,10,500

s#=5
a#=5
dist#=100 : ` distance camera sohuld be behind player
height#=40 : ` height above player that camera should be
smooth=10 : ` smoothing value

do
   if upkey() then move object 1,s#
   if downkey() then move object 1,-s#
   if leftkey() then yrotate object 1,wrapvalue(object angle y(1)-a#)
   if rightkey() then yrotate object 1,wrapvalue(object angle y(1)+a#)

   set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),dist#,height#,smooth,0

   sync
loop

sync on : sync rate 60
make matrix 1,1000,1000,32,32
set object pivot object#=180
load object "helicopter.x",1
load image "copter.jpg",2
Show Object 1
position object 1,500,10,500

s#=5
a#=5
dist#=100 : ` distance camera sohuld be behind player
height#=40 : ` height above player that camera should be
smooth=10 : ` smoothing value

do
   if upkey() then move object 1,s#
   if downkey() then move object 1,-s#
   if leftkey() then yrotate object 1,wrapvalue(object angle y(1)-a#)
   if rightkey() then yrotate object 1,wrapvalue(object angle y(1)+a#)

   set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),dist#,height#,smooth,0

   sync
loop