Made this in about 5 minutes tops.
A cube will be scrolling down 40 colored hollow cubes. Once you see the flashing one, you must press enter. If you miss, it will reach the last cube and go the other direction, only faster.
REM Project: 40 Stages
REM Created: 7/29/2006 12:40:15 PM
REM
REM ***** Main Source File *****
REM
Sync on
AutoCam off
color backdrop 0
Repeat
set text size 25
center text screen width()/2, screen height()/2,"Press Enter on the Flashing Box"
sync
until scancode()>0
Dim Stages(40)
for Stages=1 to 40
Stages(Stages)=Stages
make object cube Stages,-100
color object Stages,rgb(rnd(255),rnd(255),rnd(255))
position object Stages,10,Stages*-110,10
next Stages
Player=100
make object cube Player,10
position object Player,object position x(Player),object position y(Player)+6,object position z(Player)
TRB=rnd(39+1)
speed#=0
c#=1
Do
color object TRB,rgb(rnd(255),rnd(255),rnd(255))
point camera object position x(Player),object position y(Player),object position z(Player)
position camera 0,object position y(Player)+20,object position z(Player)-130
move object Player,upkey()-downkey()
if object collision(Player,TRB)>0 and returnkey()>0 then cls : goto endgame
if c#=1
if object collision(Player,40)>0 then c#=2 : inc speed#,.25
move object down Player,1+speed#
else
if object collision(Player,1)>0 then c#=1 : inc speed#,.25
move object up Player,1+speed#
endif
Sync
loop
endgame:
for d=1 to 500
if object exist(d) then delete object d
next d
Repeat
set text size 50
center text screen width()/2, screen height()/2,"You Win!"
sync
until spacekey()>0
Enjoy my this little snippet of mine.
Can't beleive its not butter.
