level = .7
startover:
w = 0
my = 0
DO
k$ = INKEY$
LOOP UNTIL k$ = " "
bob = 0
drop = 0
CLS
RANDOMIZE TIMER
SCREEN 12
DIM score(2500)
DIM e(1000)
DIM b(1000)
DIM c$(1000)
DIM clea(1000)
a$ = "abcdefghijklmnopqrstuvwxyz"
redub:
b = INT(RND * 27): IF b = 0 THEN GOTO redub
redue:
e = INT(RND * 77): IF e = 0 THEN GOTO redue
c$ = MID$(a$, b, 1)
DO
IF bob = 0 THEN
t = TIMER + level: bob = 5
END IF
IF TIMER >= t THEN
drop = drop + 1: bob = 0
redue2:
e(drop) = INT(RND * 77): IF e(drop) = 0 THEN GOTO redue2
redub2:
b(drop) = INT(RND * 27): IF b(drop) = 0 THEN GOTO redub2
c$(drop) = MID$(a$, b(drop), 1)
END IF
FOR g = 1 TO drop
IF clea(g) = 10 THEN GOTO skipit
LOCATE g, e(g): PRINT c$(g):
skipit:
NEXT g
LOCATE 1, 1
PRINT we
k$ = INKEY$
IF k$ <> "" THEN
we = we + 1
SELECT CASE level
CASE .7
IF we > drop + 16 THEN GOTO missed
CASE .6
IF we > drop + 13 THEN GOTO missed
CASE .5
IF we > drop + 10 THEN GOTO missed
CASE .4
IF we > drop + 7 THEN GOTO missed
CASE .3
IF we > drop + 4 THEN GOTO missed
CASE .2
IF we > drop + 1 THEN GOTO missed
CASE .1
IF we > drop THEN GOTO missed
END SELECT
FOR g = 1 TO drop
IF k$ = c$(g) THEN
LOCATE g, e(g): PRINT " ": clea(g) = 10: score = score + 5:
END IF
NEXT g
END IF
myloop:
IF drop = 28 THEN
SELECT CASE level
CASE .7
score = score + 10
CASE .6
score = score + 15
CASE .5
score = score + 25
CASE .4
score = score + 50
CASE .3
score = score + 75
CASE .2
score = score + 100
CASE .1
score = score + 125
END SELECT
level = level - .1
FOR g = 1 TO drop
IF clea(g) = 0 THEN score = score - 5: my = my + 1
NEXT g
FOR g = 1 TO drop
clea(g) = 0
NEXT g
IF level <= 0 THEN GOTO tally
CLS
LOCATE 1, 1
PRINT "YOUR SCORE "; score
by = we - 28
IF we - 28 < 0 THEN by = 0
LOCATE 2, 1
PRINT "YOU KEYED "; by; "TO MANY"
LOCATE 3, 1:
PRINT "YOU KEYED "; 28 - my; " OUT OF 28"
LOCATE 4, 1
PRINT "SPEED NEXT ROUND : "; level
begin = 28 - my
begin2 = begin * 100
begin3 = begin2 / 28
LOCATE 5, 1: PRINT "YOU KEYED : "; begin3; " %"
LOCATE 7, 1
PRINT "PRESS SPACEBAR TO BEGIN NEXT ROUND"
we = 0
my = 0
GOTO startover
END IF
LOOP
tally:
CLS
LOCATE 1, 1
PRINT "CONGRATS, YOU BEAT THE GAME WITH THE SCORE OF "; score
LOCATE 5, 1
PRINT "WOULD YOU LIKE TO PUT THIS SCORE IN THE HISCORES?"
DO: k$ = INKEY$: LOOP UNTIL k$ = "y" OR k$ = "n"
IF k$ = "y" THEN
OPEN "hiscores.dll" FOR APPEND AS #1
WRITE #1, score
CLOSE #1
OPEN "hiscores.dll" FOR INPUT AS #1
DO UNTIL EOF(1)
a = a + 1
INPUT #1, score(a)
average = average + score(a)
LOOP
taverage = average / a
LOCATE 8, 1
PRINT "AVERAGE SCORE "; taverage
END IF
IF k$ = "n" THEN END
END
missed:
CLS
COLOR 15
LOCATE 1, 1
PRINT "YOU LOST ON SPEED "; level
LOCATE 3, 1
PRINT "YOUR SCORE WAS "; score
LOCATE 7, 1
PRINT "YOU LOST BECAUSE YOU HIT TO MANY KEYS "
LOCATE 9, 1
PRINT "MAX HIT "; drop; "YOU HIT "; we
DO: k$ = INKEY$: LOOP UNTIL k$ = " "
|