Site hosted by Angelfire.com: Build your free website today!

GamePack

:ClrHome
:Menu("HOME","GUESS",A,"ZOMBIE",U,"WAR",99,"ABOUT",P,"EXIT",C)
:Lbl A
:prgmGUESS
:Stop
:Lbl B
:prgmBLKJACK
:Stop
:Lbl C
:Stop
:Lbl P
:Output(2,1,"3 FUN GAMES MADE BY GAVIN STEWART. PRESS ENTER FOR MENU.")
:Pause
:ClrTable
:prgmGAME
:Stop
:Lbl U
:ClrHome
:prgmANGER
:Stop
:Lbl 99
:prgmWAR
:Stop

Guess

:ClrHome

Menu("menu",Play",a,"Instructions",b,"quit",c)

:Lbl B

:Output(2,1,"Pick a number 1-10. Press enter for menu.")
:Pause

:ClrHome

:prgmGUESS
:Lbl A
:randInt (1,10)->X
:Disp "GUESS"

:Prompt N
:Lbl 2
:If Y=x
:Then goto 1
:else
:if Y/=X
:THen
:goto 3

:Lbl 1
:Disp "YOU WIN"
:Disp "Number",X
:Pause
:CLrHome
:Goto M
:Stop
:Lbl 3
:Disp "YOU LOSE"
:Disp "number",X

:Pause
:ClrHome
:Goto M
:Stop
:Lbl M
:Menu("continue","yes",Z,"no",w"

:Lbl Z
:ClrHome

:Goto A
:STOP
:Lbl W
:ClrHOme
:prGMGAME
:CLRHOME
:Lbl C

:ClrHOme
:STOP

ANGER
:ClrHome
:Menu("MENU","PLAY",A,"INSTRUCTIONS",B,"QUIT",C)
:Lbl C
:ClrHome
:prgmGAME
:Stop
:Lbl B
:Output(2,1,"SELECT WICH PATH YOU WANT TO TAKE,BE CAREFUL

YOU ONLY HAVE ONE LIFE. ENTER FOR MENU.")
:Pause
:ClrHome
:prgmANGER
:Stop
:Lbl A
:Output(2,1,"YOU WAKE UP IN A DARK ROOM")
:Pause
:ClrHome
:Menu("WHAT TO DO","FIND A LIGHT",D,"LOOK 4 A DOOR",E)
:Lbl D
:Output(2,1,"YOU FIND A FLASHLIGHT.")
:Pause
:ClrHome
:Menu("WHAT TO DO","EXPLORE ROOM",Z,"FIND A WAY OUT",Y,"GO BACK",A)
:Lbl E
:Output(2,1,"YOU FIND A DOOR WELDED SHUT.")
:Pause
:Menu("WHAT TO DO","TRY KICKING IT",X,"LOOK 4 A WINDOW",W,"GO BACK",A)
:Lbl Y
:Output(2,1,"YOU FIND A DOOR")
:Pause
:Menu("WHAT TO DO","OPEN IT",P,"GO BACK",D)
:Lbl P
:Output(2,1,"YOU OPEN THE DOOR AND A ZOMBIE POPS OUT AND

EATS YOUR FLESH")
:Pause
:ClrHome
:
:Lbl 1
:Menu("MENU","START OVER",S,"QUIT",Q)
:Lbl S
:Goto A
:Stop
:Lbl Q
:prgmGAME
:Stop
:Lbl Z
:Output(2,1,"YOU FIND A LIGHT SWITCH AND IT TURNS ON THE LIGHT

YOU SEE YOUR IN A BUNKER")
:Pause
:Menu("WHAT TO DO","POWER 4ELEVATOR",K,"PRY THE DOOR",H,"GO BACK",D)
:ClrHome
:Stop
:Lbl X
:Output(2,1,"YOU KICK THE DOOR AND IT DID NOTHING,

BUT BREAK YOUR FOOT YOU SIT THERE CRYING AND ZOMBIES

BREAK IN AND EAT YOU.")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl W
:Output(2,1,"AHH THERES NO WINDOWS AND YOU SEE THAT YOUR

IN A BUNKER LIKE BUILDING.")
:Pause
:ClrHome
:Menu("WHAT TO DO","WEAPON 4 ZOMBIES",L,

"POWER 4 ELEVATOR",K,"GO BACK",E)
:Stop
:Lbl K
:Output(2,1,"YOU FIND THE POWER AND TURN IT ON YOU GO BACK UP AND A

HORDE OF ZOMBIES WELCOME YOU")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl L
:Output(2,1,"YOU FIND A MP5K FULL OF AMMO PLUS 2EXTRA MAGS")
:Pause
:Menu("WHAT TO DO","POWER ELEVATOR",2,"KILL THE 1 ZOMBIE"

,3,"GO  BACK",W)
:Stop
:Lbl 3
:Output(2,1,"YOU SHOOT AT IT AND WASTE A WHOLE CLIP AND A HUGE HORDE

 ADVEGES HIM. YOU KILL AS MANY AS YOU CAN BUT THEY OVERWELM YOU.")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl 2
:Output(2,1,"YOU OPEN THE DOOR AND 3 ZOMBIES JUMP OUT

YOU KILL THEM ALL")
:Pause
:ClrHome
:Menu("WHAT TO DO","GO UP",4,"GO DOWN",5,"GO BACK",L)
:Lbl 5
:Output(2,1,"YOU GO DOWN INTO THE MESSHALL AND 25+

ZOMBIES POP OUT AND EAT YOU SHARING OF COURSE")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl H
:Output(2,1,"YOU START PRYING IT WITH A PIPE SOME

ZOMBIES HELP THEIR DINER. THEY EAT YOU")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl 4
:Output(2,1,"YOU GO UP AND SEE YOUR IN A ABONDAND MILITARY BASE")
:Pause
:ClrHome
:Menu("WHAT TO DO","FIND A VEHICAL",6,"BETTER GUNS",7,"GO BACK",2)
:Stop
:Lbl 6
:Output(2,1,"YOU FIND A JEEP WITH A M16 AND A DEAD SOILDER IN THE BACK")
:Pause
:ClrHome
:Menu("WHAT TO DO","TAKE THE GUN",9,"LEAVE IT",8,"GO BACK",4)
:Stop
:Lbl 9
:Output(2,1,"YOU PICK UP THE GUN AND THE SOILDER GETS UP

 AND BITES YOUR ARM")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl 8
:Output(2,1,"YOU WALK AWAY AND THE SOILER TRIES TO JUMP YOU.

 YOU KIlL IT AND TAKE THE M16.")
:Pause
:ClrHome
:Menu("WHAT TO DO","TAKE JEEP",9,"FIND A SPOT",10,"GO BACK",6)
:Stop
:Lbl 7
:Output(2,1,"YOU FIND A M16 AND A M60 WHICH DO YOU TAKE")
:Pause
:ClrHome
:Menu("WHAT TO DO","M16",9,"M60",12,"GO BACK",4)
:Stop
:Lbl 10
:Output(2,1,"YOU FIND A GUARD TOWER")
:Pause
:ClrHome
:Menu("WHAT TO DO","STAY 4 NIGHT",13,"GO TO JEEP",9,"GO BACK",8)
:Stop
:Lbl 9
:Output(1,1,"YOU TURN ON THE JEEP. AS YOU DO THE NOISE MAKES 3

ZOMBIES COME OUT AND RIP YOU APART")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl 12
:Output(1,1,"WHEN YOUR CARYING IT YOU GET TIRED AND REST.

SOME ZOMBIES JUMP YOU YOU SHOOT, BUT YOU WISH YOU BENCHED MORE.

TOO LATE NOW")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl 13
:Output(2,1,"YOU WAKE UP IN THE MORNING AND KILL THE ZOMBIES

WATING 4 YOU.")
:Pause
:ClrHome
:Menu("WHAT TO DO","TAKE JEEP",15,"FIND A NEW SPOT",16,"GO BACK",10)
:Stop
:Lbl 16
:Output(2,1,"YOU FIND A AWESOME VANTGE POINT, THAT ZOMBIE

THOUGHT SO TOO.")
:Pause
:ClrHome
:Goto 1
:Stop
:Lbl 15
:Output(1,1,"YOU START IT UP ADD DRIVE OUT OF TOWN. YOU GET AMBUSED

INTO A ALLY AND THE BUILDING FALLS ON YOU. YOU HEAR THEM COMMING.")
:Pause
:ClrHome
:Output(3,3,"TO BE CONTINUED")
:Pause
:ClrHome
:Goto 20
:Stop
:Lbl 20
:Menu("GOOD JOB","MAIN",21,"GAME MENU",22)
:Stop
:Lbl 21
:prgmGAME
:Stop
:Lbl 22
:prgmANGER
:Stop

WAR

:ClrHome
:Menu("MENU","PLAY",A,"INSTRUCTIONS",B,"QUIT",C)
:Lbl C
:prgmGAME
:Stop
:Lbl B
:Output(2,1,"PRESS ENTER FOR YOUR CARDS YOU VS. THE AL. HIGHST CARD WINS. PRESS ENTER FOR MENU"
:Pause
:ClrHome
:prgmWAR
:Stop
:Lbl A
:randInt(1,10)→X
:randInt(1,10)→Y
:Disp "DEALING"
:Pause
:ClrHome
:Disp "YOUR CARDS",X
:Disp "COMPUTERS CARDS",Y
:Pause
:ClrHome
:If X=Y
:Goto 1
:
:If X>Y
:Goto 2
:
:If X<Y
:Goto 3
:Lbl 1
:Output(2,1,"DUAL"
:Pause
:ClrHome
:Goto A
:Stop
:Lbl 2
:Output(2,1,"YOU WIN"
:Pause
:ClrHome
:Goto Z
:Stop
:Lbl 3
:Output(2,1,"YOU LOSE"
:Pause
:ClrHome
:Goto Z
:Stop
:Lbl Z
:ClrHome
:Menu("CONTINUE","YES",20,"NO",21)
:Lbl 20
:Goto A
:Stop
:Lbl 21
:prgmWAR
:Stop