DECLARE SUB shoot ()
RANDOMIZE TIMER
'destroy

SOUND 123, 1
SCREEN 7
DIM SHARED a#
DIM SHARED b#
DIM SHARED c#
DIM SHARED d#
DIM SHARED s#
DIM SHARED pints#
DIM SHARED en$
DIM SHARED dd#
DIM SHARED l#
stt:

s# = 0
dd# = 3
en$ = "�"
g# = 0
pints# = 0
d# = INT(RND * 36) + 2
l# = INT(RND * 12) + 2
    IF INKEY$ = CHR$(27) THEN END
    
    a# = 19
    b# = 25
    
     IF INKEY$ = CHR$(27) THEN END
     
 CLS
PRINT "WELCOME TO Fighter"
PRINT
PRINT "USE ARROW Key (LEFT AND RIGHT) TO MOVE"
PRINT

PRINT "USE Up ARROW KEY TO SHOOT"



PRINT
PRINT "MADE BY SAM SACCONE"
PRINT
PRINT "THANK YOU FOR PLAYING!"
DO

IF INKEY$ = CHR$(27) THEN END
LOOP WHILE INKEY$ = ""

st:
    
    DO
    IF l# = 23 AND a# = d# THEN GOTO de
    
IF l# = 24 THEN l# = 1
IF g# = 0 THEN l# = l# + .005 ELSE IF l# = 24 THEN l# = 1
IF g# = 1 THEN l# = l# + .05 ELSE IF l# = 24 THEN l# = 1
IF g# = 2 THEN l# = l# + .25 ELSE IF l# = 24 THEN l# = 1
IF g# = 3 THEN l# = l# + .5 ELSE IF l# = 24 THEN l# = 1
IF g# = 4 THEN l# = l# + .75 ELSE IF l# = 24 THEN l# = 1
IF g# = 5 THEN l# = l# + 1 ELSE IF l# = 24 THEN l# = 1
    
  
    
   
    
    IF l# = 24 THEN l# = 1
    IF dd# = 23 THEN dd# = 1
    IF s# = 5 THEN en$ = "�"
    IF s# = 2 THEN en$ = "�"
    IF s# = 3 THEN en$ = ""
    IF s# = 1 THEN en$ = ""
    IF s# = 6 THEN en$ = "�"
    IF s# = 7 THEN en$ = ""
    IF s# = 8 THEN en$ = "�"
    IF s# = 9 THEN en$ = "�"
    IF s# = 10 THEN en$ = "�"
    IF s# = 11 THEN en$ = "�"
    IF s# = 12 THEN en$ = "�"
    IF s# = 3 THEN g# = 1
    IF s# = 7 THEN g# = 2
    IF s# = 9 THEN g# = 3
    IF s# = 11 THEN g# = 4
    IF s# = 12 THEN g# = 5
    b = 25
     IF l# = 23 AND a# = d# THEN GOTO de
    CLS
    IF l# = 24 THEN l# = 1
    LOCATE 25, 1
    PRINT pints#
    COLOR 9
  
    LOCATE l#, d#
    PRINT en$

k$ = INKEY$
IF RIGHT$(k$, 1) = "K" THEN a# = a# - 1
IF RIGHT$(k$, 1) = "M" THEN a# = a# + 1
IF RIGHT$(k$, 1) = "H" THEN CALL shoot


IF l# = 23 AND a# = d# THEN GOTO de
IF a# = 1 THEN GOTO STO
IF a# = 41 THEN GOTO stol

    PRINT
    LOCATE 25, a#
    COLOR 15
    PRINT ""
c# = INT(RND * 12) + 2
   
    GOTO st
    LOOP UNTIL INKEY$ = CHR$(27)
    END
   
    CLS
 '    102 f
 '    112 p
 '    104 h
 '    114 r
STO:
 CLS
 IF INKEY$ = CHR$(27) THEN END
 a# = 2
 GOTO st
stol:
 CLS
 IF INKEY$ = CHR$(27) THEN END
 a# = 40
 GOTO st
de:
CLS

SOUND 0, 4
PRINT "YOU DIE!!!!!!!!!!!!!!"
SOUND 0, 22
SOUND 0, 22
SOUND 0, 22
SOUND 0, 22
SOUND 0, 22
SOUND 0, 22


INPUT "Would You like to play again? (Y/N) "; a$
IF a$ = "y" THEN GOTO stt
IF a$ = "Y" THEN GOTO stt
IF a$ = "n" THEN END
IF a$ = "N" THEN END

' �
' �
' 

' 
'

SUB shoot
'shoot
SOUND 933, 1
en$ = ""
b# = 22
IF pints# > -1 THEN s# = 5
IF pints# > 29 THEN s# = 3
IF pints# > 50 THEN s# = 2
IF pints# > 99 THEN s# = 1
IF pints# > 149 THEN s# = 6
IF pints# > 169 THEN s# = 7
IF pints# > 199 THEN s# = 8
IF pints# > 299 THEN s# = 9
IF pints# > 399 THEN s# = 10
IF pints# > 499 THEN s# = 11
IF pints# > 999 THEN s# = 12


COLOR 1
LOCATE b#, a#
PRINT "�"
COLOR 2
b# = b + 20
LOCATE b#, a#
PRINT "�"
COLOR 3
b# = b + 20
LOCATE b#, a#
PRINT "�"
COLOR 4
LOCATE b#, a#
PRINT "�"
COLOR 5
b# = b + 19
LOCATE b#, a#
PRINT "�"
COLOR 6
b# = b + 17
LOCATE b#, a#
PRINT "�"
COLOR 7
b# = b + 15
LOCATE b#, a#
PRINT "�"
COLOR 8
b# = b + 13
LOCATE b#, a#
PRINT "�"
COLOR 9
b# = b + 11
LOCATE b#, a#
PRINT "�"
COLOR 10
b# = b + 9
LOCATE b#, a#
PRINT "�"
COLOR 11
b# = b + 7
LOCATE b#, a#
PRINT "�"
COLOR 12
b# = b + 5
LOCATE b#, a#
PRINT "�"
COLOR 13
b# = b + 3
LOCATE b#, a#
PRINT "�"
COLOR 14
b# = b + 1
LOCATE b#, a#
PRINT "�"
IF a# = d# THEN GOTO kll
IF a# <> d# THEN GOTO s
kll:
SOUND 123, 1
SOUND 313, 1
SOUND 133, 2

pints# = pints# + 10
en$ = ""
d# = INT(RND * 36) + 2
l# = INT(RND * 12) + 2
IF pints# > -1 THEN s# = 5
IF pints# > 29 THEN s# = 3
IF pints# > 50 THEN s# = 2
IF pints# > 99 THEN s# = 1
IF pints# > 149 THEN s# = 6
IF pints# > 169 THEN s# = 7
IF pints# > 199 THEN s# = 8
IF pints# > 299 THEN s# = 9
IF pints# > 399 THEN s# = 10
IF pints# > 499 THEN s# = 11
IF pints# > 999 THEN s# = 12

GOTO s:
''   IF s# = 5 THEN en$ = "�"
''   IF s# = 2 THEN en$ = "�"
'    IF s# = 3 THEN en$ = "
"
'    IF s# = 1 THEN en$ = ""
s:
END SUB