Sorry your browser is not supported!

` zombie fighter SUG

Sway$ = " It just kinda stands there swaying side to side"
x = screen width()/2 : y = screen height()/2

START:
do
HP = 40 : IL = 0 : XP = 0
IF IL = 10 THEN GOSUB TURN
IF HP = 0 THEN GOSUB DEATH
IF ESCAPEKEY()=1 THEN END

   PRINT " Your eyes open and you sit up instantly........"
   wait 500
   PRINT " You look around......noone here........."
   wait 500
   PRINT " What do you do?"
   wait 500
   PRINT " A) Wait"
   wait 500
   PRINT " B) Call for help"
   wait 500
   PRINT " C) Get up and leave the room"
   INPUT ">"

IF INPUT = A THEN GOTO DIS1A
IF INPUT = B THEN GOTO DIS1B
IF INPUT = C THEN GOTO DIS1C

 SYNC
LOOP

TURN:
CLS
   PRINT " You try to keep your eyes open.......you fail......."
   wait 500
CLS
   PRINT " You reawaken.........aaaarghhhhhhh....."
CLS
   wait 500
   PRINT " YOU ARE A ZOMBIE"
   WAIT 500
CLS
   PRINT " press enter to play again"
   IF RETURNKEY()=1 THEN GOTO START : ELSE END

DEATH:
CLS
   PRINT " Your wounds overcome you"
CLS
   wait 500
   PRINT " YOU ARE DEAD"
   WAIT 500
CLS
   PRINT " press enter to play again"
   IF RETURNKEY()=1 THEN GOTO START : else end



DIS1A:
CLS
   PRINT " You wait for a bit.........slowly you doze off to sleep"
   wait 500
   PRINT " You suddenly awaken to see a bloody, ripped up person rushing forward towards you"
   wait 500
   GOTO COMBAT


DIS1B:
CLS
   PRINT " You call for help"
   wait 500
   PRINT " You hear a shuffling noise, then a groan.......aaaaarghhhhh"
   wait 500
CLS
   PRINT " A heavily injured and bloody person stumbles in and looks at you"
   PRINT " PRESS ANY KEY TO CONTINUE"
   SUSPEND FOR KEY
CLS
RANDOMIZE TIMER() : BEHAVIOUR = RND(5)
IF BEHAVIOUR = 0 THEN PRINT SWAY$ : WAIT 1000: GOTO CALL2A
IF BEHAVIOUR = 1 THEN PRINT " You stay quiet and it just slowly shambles away" : WAIT 1000 : GOTO CALL2C
IF BEHAVIOUR = 2 THEN PRINT SWAY$ : WAIT 1000 : GOTO CALL2A
IF BEHAVIOUR = 3 THEN PRINT " It sees you and charges" : WAIT 1000 : GOTO COMBAT
IF BEHAVIOUR = 4 THEN PRINT " Three men run in with guns and gun down the THING " : WAIT 1000 : GOTO CALL2B
IF BEHAVIOUR = 5 THEN PRINT SWAY$ : WAIT 1000 : GOTO CALL2A

DIS1C:
   WAIT 500
CLS
   PRINT " You get up to leave then you hear a shot......."
   GOTO DEATH

CALL2A:
   WAIT 500
CLS
RANDOMIZE TIMER() :BEHAVIOUR2 = RND(3)
IF BEHAVIOUR2 = 0 THEN PRINT SWAY$ : WAIT 1000
IF BEHAVIOUR2 = 1 THEN PRINT SWAY$ : WAIT 1000
IF BEHAVIOUR2 = 2 THEN PRINT " You stay quiet and it just slowly shambles away" : WAIT 1000: GOTO CALL2C
IF BEHAVIOUR2 = 3 THEN PRINT " It sees you and charges" : WAIT 1000 : GOTO COMBAT


COMBAT:
   WAIT 500
CLS
RANDOMIZE TIMER() : COMBAT = RND(2)
IF COMBAT = 0 THEN PRINT " You quickly move around and boot the THING in the face." : INC XP : WAIT 1000: GOTO COMBAT2A
IF COMBAT = 1 THEN PRINT " You panic and scream, the THING whacks you in the head with its hand, you fall off the bed" : DEC HP : WAIT 1000 : GOTO COMBAT2B
IF COMBAT = 2 THEN PRINT " You try to reason with the THING, but it bites ur finger" : INC IL : DEC HP  : WAIT 1000 : GOTO COMBAT2C

COMBAT2A:
   WAIT 500
CLS
   PRINT " Its head topples off and the body drops to the fall"
RANDOMIZE TIMER() : ACTION = RND(1)
IF ACTION = 1 THEN PRINT " You turn to see a few people come in armed with guns you instinctivly put your hands up" : WAIT 1000 : GOTO RESCUED1
IF ACTION = 2 THEN PRINT " You scream and curse, until someone walks infront of you and knocks you out" : DEC HP : WAIT 1000 : GOTO RESCUED2

COMBAT2B:
   WAIT 500
CLS
   PRINT " TO BE CONTINUED"
   PRINT " PRESS ENTER TO PLAY AGAIN OR ANY OTHER KEY TO END"
   SUSPEND FOR KEY
   IF RETURNKEY()=1 THEN GOTO START : ELSE END

COMBAT2C:
   WAIT 500
CLS
   PRINT " TO BE CONTINUED"
   PRINT " PRESS ENTER TO PLAY AGAIN OR ANY OTHER KEY TO END"
   SUSPEND FOR KEY
   IF RETURNKEY()=1 THEN GOTO START : ELSE END

CALL2B:
   WAIT 500
CLS
   PRINT " You put your arms up"
   wait 500
   GOTO RESCUED1

CALL2C:
   WAIT 500
CLS
   PRINT "You turn to see a few people come in armed with guns you instinctivly put your hands up"
   WAIT 500
CLS
   PRINT "TO BE CONTINUED"
   PRINT "PRESS ENTER TO START AGAIN, OR ANY OTHER KEY TO END"
   SUSPEND FOR KEY
   IF RETURNKEY() = 1 THEN GOTO START : ELSE END

RESCUED1:
   WAIT 500
CLS
   PRINT " TO BE CONTINUED"
   PRINT " PRESS ENTER TO PLAY AGAIN OR ANY OTHER KEY TO END"
   SUSPEND FOR KEY
   IF RETURNKEY() = 1 THEN GOTO START : ELSE END

RESCUED2:
   WAIT 500
CLS
   PRINT " TO BE CONTINUED"
   PRINT " PRESS ENTER TO PLAY AGAIN OR ANY OTHER KEY TO END"
   SUSPEND FOR KEY
   IF RETURNKEY() = 1 THEN GOTO START : ELSE END

if inkey$()="1" then goto blah"