Hi all,
I made this when i was bored
Press the direction on your keyboard presented on the screen between the two lines
Joep
sync on : sync rate 60:dim y#(10):dim dr(10):dim movec(10)
make object cube 1,20
score =90
do
sync
line 0,200,640,200:line 0,300,640,300
if ig < 0
color object 1,rgb(rnd(115),rnd(115),rnd(225))
color backdrop rgb(rnd(125),rnd(115),rnd(225))
ig=40
endif
dec ig
rotate object 1,object angle x(1)+0.3,object angle y(1)+0.3,object angle z(1)+0.3
for i = 1 to 10
if del < 0
if movec(i)=0 then movec(i)=1
del=400
if y#(i) =< 0 then y#(i) = 500 : dr(i)=1+rnd(3)
endif
if movec(i)=1
scroll_ar(dr(i),i,score)
endif
dec del
if y#(i) > 200 and y#(i) < 300
a=dr(i)
if upkey()=1 and a=1
gosub good
endif
if downkey()=1 and a=3
gosub good
endif
if rightkey()=1 and a=2
gosub good
endif
if leftkey()=1 and a=4
gosub good
endif
endif
if y#(i) < 200 and dr(i) < 5 then gosub false
if done=1
dr(i)=5
done=0
endif
if done=2
dr(i)=6
done=0
endif
next i
set cursor 0,50
print "Score: "; score
loop
good:
score=score+20
done=1
return
false:
score=score-10
done=2
return
function scroll_ar(r,nr,score)
y#(nr)=y#(nr)-3
if r = 1
center text screen width()/2,y#(nr),"Up"
endif
if r = 2
center text screen width()/2,y#(nr),"Right"
endif
if r = 3
center text screen width()/2,y#(nr),"Down"
endif
if r = 4
center text screen width()/2,y#(nr),"Left"
endif
if r = 5
ink rgb(0,255,0),0
center text screen width()/2,y#(nr),"PASSED"
endif
if r = 6
ink rgb(255,0,0),0
center text screen width()/2,y#(nr),"FAILED"
endif
ink rgb(255,255,255),0
endfunction
.::Studying game design at the moment::.
