Sorry your browser is not supported!

sync on
sync rate 45
hide mouse
autocam off
randomize timer()

make matrix 1,1000,1000,5,5
make object box 1,50,50,50

x#=int(rnd(1000))
z#=int(rnd(1000))

do
if x#<500 then xvel#=xvel#+1
if x#>500 then xvel#=xvel#-1
if z#<500 then zvel#=zvel#+1
if z#>500 then zvel#=zvel#-1

x#=x#+xvel#
z#=z#+zvel#

ya#=atan(xvel#/zvel#)

position object 1,x#,0#,z#
yrotate object 1,ya#
rem Change these to alter the camera position
position camera x#,300,z#-300
point camera x#,0,z#
sync
loop

sync on
sync rate 0
hide mouse
autocam off
randomize timer()

make matrix 1,1000,1000,5,5
make object box 1,50,50,50

x#=int(rnd(1000))
z#=int(rnd(1000))

do
if x#<500 then xvel#=xvel#+1
if x#>500 then xvel#=xvel#-1
if z#<500 then zvel#=zvel#+1
if z#>500 then zvel#=zvel#-1

x#=x#+xvel#
z#=z#+zvel#

ya#=atanfull(xvel#,zvel#)

position object 1,x#,0#,z#
yrotate object 1,wrapvalue(ya#)
rem Change these to alter the camera position
position camera x#,300,z#-300
point camera x#,0,z#
sync
loop

sync on
sync rate 0
hide mouse
autocam off
randomize timer()

make matrix 1,1000,1000,5,5
make object box 1,50,50,50

x#=int(rnd(1000))
z#=int(rnd(1000))
xvel#=rnd(50)-rnd(50)
zvel#=rnd(50)-rnd(50)
do
if spacekey()=1 then xvel#=rnd(50)-rnd(50):zvel#=rnd(50)-rnd(50)
xvel#=xvel#+(0-(x#-500)/200.0)+(rnd(20)-10)/5.0
zvel#=zvel#+(0-(z#-500)/200.0)+(rnd(20)-10)/5.0

x#=x#+xvel#
z#=z#+zvel#

ya#=atanfull(xvel#,zvel#)

position object 1,x#,0#,z#
yrotate object 1,wrapvalue(ya#)
rem Change these to alter the camera position
position camera x#,300,z#-300
point camera x#,0,z#
sync
loop

sync on
sync rate 0
hide mouse
autocam off
randomize timer()

make matrix 1,1000,1000,5,5
make object box 1,50,50,50
position object 1,500,0,500

do
SET_OBJECT_AREA(1,6.0,500.0,500.0,500.0)
rem Change these to alter the camera position
position camera x#,300,z#-300
point camera object position x(1),0,object position z(1)
sync
loop


Function SET_OBJECT_AREA(Obj,Speed#,XPos#,ZPos#,Radius#)
ObjX#=Object Position X(Obj)
ObjZ#=Object Position Z(Obj)
ObjA#=Object Angle Y(Obj)
Dist#=SQRT((ObjX#-XPos#)^2.0+(ObjZ#-ZPos#)^2.0)
If Dist#>Radius#
   Point Object Obj,XPos#,Object Position Y(Obj),ZPos#
   A#=WrapValue(A#-Speed#)
EndIf
YRotate Object Obj,A#
Move Object Obj,Speed#
EndFunction