In Asteroid Belt you must avoid crashing into the asteroids by pressing the number key that corresponds to the number of stars in the asteroid. You only have a limited time to hit each asteroid.
rem Asteroid Belt
rem by Daniel Isaaman and Jenny Tyler
rem translated to BB4Win by T Street
mode 6
print "ASTEROID BELT"
print"-------------"
print"Your spaceship is travelling through"
print"an asteroid belt. Try to shoot the"
print"asteroids with your laser. The force"
print"required depends on the number of stars"
print"In the asteroid."
print'"Press the number key that corresponds"
print"to the the number of stars that you"
print"see."
print'"You only have a limited time to hit"
print"each one."
print'"(press any key to begin...)"
g% = get
delay% = 400 : rem how long to wait each time
score% = 0
for go% = 1 to 10
cls
x% = rnd(30) : rem x position
y% = rnd(12) : rem y position
n% = rnd(9) : rem number of *
for i% = 1 to n%
if i%<>1 and i%<>4 and i%<>7 then
print"*";
else
printtab(x%);"*";
endif
next
ok% = false
hit% = val(inkey$(delay%))
if hit% <> 0 then
print'"HIT IT!"
ok% = true
else
rem did not press a key
print'"YOU CRASHED INTO IT!"
endif
rem was there enough power?
if ok% then
rem was there enough power?
case true of
when hit% = n%
print "YOU DESTROYED IT!"
when hit%<n%
print"NOT ENOUGH POWER!"
when hit%>n%
print"TOO MUCH POWER!"
endcase
endif
wait 200
next
cls
print"Final Score : "str$(score%)
