'To run, press F5
'Once you have finished, press Alt, F, then X to close QBASIC




'*******EDIT NOTHING BELOW WITHOUT PROPER PROGRAMMING KNOWLEDGE**********
'*******YOU MAY MAKE THE PROGRAM RUN UNSTABLY, OR NOT WORK***************
'************************THANK YOU***************************************




top: CLS
PRINT "ALED'S FIGHTING GAME v1.5"
COLOR 10
INPUT "What is player 1's name"; nm1$
COLOR 4
INPUT "What is player 2's name"; nm2$
PRINT
COLOR 10
INPUT "What will player 1's health be "; a
COLOR 4
INPUT "What will player 2's health be "; e
COLOR 15
PRINT "press any key to start!!!"
DO WHILE INKEY$ = ""
LOOP
CLS

COLOR 4
PRINT ; nm2$; "'s turn"
COLOR 15
INPUT "press enter to fight or type run to run"; b$
IF b$ = "run" THEN GOTO 15
RANDOMIZE TIMER
n = INT(RND * 10)
COLOR 4
PRINT ; nm2$; " did "; n; " damage"
c = a - n
COLOR 10
PRINT ; nm1$; "'s hp is:"; c
GOTO 3

3 : PRINT
COLOR 10
PRINT ; nm1$; "'s turn"
COLOR 15
INPUT "press enter to fight or type run to run"; r$
IF r$ = "run" THEN GOTO 16
RANDOMIZE TIMER
g = INT(RND * 10)
COLOR 10
PRINT ; nm1$; " did "; g; " damage"
f = e - g
COLOR 4
PRINT ; nm2$; "'s hp is:"; f
GOTO 7

5 : PRINT
COLOR 10
PRINT ; nm1$; "'s turn"
COLOR 15
INPUT "press enter to fight or type run to run"; r$
IF r$ = "run" THEN GOTO 16
RANDOMIZE TIMER
g = INT(RND * 10)
COLOR 10
PRINT ; nm1$; " did "; g; " damage"
f = f - g
COLOR 4
PRINT ; nm2$; "'s hp is:"; f
IF f <= 0 THEN GOTO 6
GOTO 7
6 : PRINT
COLOR 10
PRINT ; nm1$; " WINS!!! :-)"
PRINT
COLOR 15
INPUT "Play again (y/n)"; play$
IF play$ = "y" GOTO top
END

7 : PRINT
COLOR 4
PRINT ; nm2$; "'s turn"
COLOR 15
INPUT "press enter to fight or type run to run"; b$
IF b$ = "run" THEN GOTO 15
RANDOMIZE TIMER
n = INT(RND * 10)
COLOR 4
PRINT ; nm2$; " did "; n; " damage"
c = c - n
COLOR 10
PRINT ; nm1$; "'s hp is:"; c
IF c <= 0 THEN GOTO 8
GOTO 5
8 : PRINT
COLOR 4
PRINT ; nm2$; " WINS!!! :-)"
PRINT
COLOR 15
INPUT "Play again (y/n)"; play$
IF play$ = "y" GOTO top
END

15 : COLOR 4
PRINT ; nm2$; " is a wimp and ran away!"
PRINT
COLOR 15
INPUT "Play again (y/n)"; play$
IF play$ = "y" GOTO top
END

16 : COLOR 10
PRINT ; nm1$; " is a wimp and ran away!"
PRINT
COLOR 15
INPUT "Play again (y/n)"; play$
IF play$ = "y" GOTO top
END