Sorry your browser is not supported!

sync on
sync rate 60
autocam off
hide mouse

`Make the first objcet
make object box 1,10,10,10
color object 1,RGB(0,64,0)
position object 1,-50,0,0
`\\\\

`Camera settings
position camera 0,0,-100
`\\\\

objectCounter as integer
objectTimer as integer
objectCounter = 1
objectTimer = 10

do

`Decrease objectTimer
dec objectTimer,1
`\\\\

if objectTimer < 1
   objectTimer = 0
endif

if keystate(57) = 1 and objectTimer < 1
   inc objectCounter,1
   make object box objectCounter,10,10,10
   posX# = object position x(objectCounter-1)
   posY# = object position y(objectCounter-1)
   posZ# = object position z(objectCounter-1)
   position object objectCounter,posX#+15,posY#,posZ#
   objectTimer = 10
endif

sync
loop

xpos=-5 : ypos=9 : zpos=0 : x=1
make object box x,1,1,1
position object 1,xpos,ypos,zpos
sync on : sync rate 30
autocam off : position camera 10,0,-20
do
if spacekey() then inc x : inc xpos : clone object x,1 : position object x,xpos+xpos,ypos,zpos
if object screen x(x)>598 then xpos=-5 : ypos=ypos-2
sync
loop