CD Shareware Magazine 1997 January/CD_shareware_1-97.iso/DOS/COMUNICA/XEN.ZIP/XEN.BAS

BASIC Source File | 1996-06-04 | 44.3 KB | 1,682 lines

'Send your comments to me at the GAMDEV forum. . . Dave Bochichio
'ALSO MAKE SURE YOU'VE READ THE TEXT FILE THAT CAME WITH THIS!!!

'Since some computers are faster than others,
'I've entered the varible "qwert" to control then speed.

'Changing this number will speed or slow certain pauses.
'Press Shift F5 to start the game.  If the beginning is slow,
'press CTRL BREAK and lower "qwert".  Then press Shift F5!

'TO SLOW DOWN THE GAME. . . Raise the number below! (qwert)
'TO SPEED UP THE GAME. . . Lower the number below!  (qwert)

'Nothing below 10. . . Pentium's should be around 7000+, 386's should
'be around 750

qwert = 7500



RANDOMIZE TIMER
'beginning
xx = 0
'Gemstone
cc = 1
CLS

                        'start, cool, huh?

DO
 LOCATE 4, 1
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT "    WELCOME TO XEN, THE LAND WHERE PERILS STRIKE!  YOU WILL GO THROUGH"
 PRINT "  * GREAT PERILS TO WIN!  WILL YOU SURVIVE?  ONLY TIME WILL TELL!         *"
 PRINT "    PRESS A KEY TO START YOUR ADVENTURE!!!!!!!!!!"
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 COLOR a
 a = a + 1
 IF a = 15 THEN a = 1
 e = e + 1
LOOP UNTIL e = INT(qwert / 4)
e = 0

                                'dave locate <--- That's me!

FOR ti = 1 TO 28
 FOR wa = 1 TO qwert
 NEXT wa
 CLS
 LOCATE 4, 1
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT "    WELCOME TO XEN, THE LAND WHERE PERILS STRIKE!  YOU WILL GO THROUGH"
 PRINT "  * GREAT PERILS TO WIN!  WILL YOU SURVIVE?  ONLY TIME WILL TELL!         *"
 PRINT "    PRESS A KEY TO START YOUR ADVENTURE!!!!!!!!!!"
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT
 PRINT "                                  Created by"
 LOCATE 12, ti
 PRINT "DAVE (CHEECH!) BOCHICHIO!!!!!!"
 COLOR a
 a = a + 1
 IF a = 15 THEN a = 1
 e = e + 1
 NEXT ti
e = 0

                                'ken locate <--- That's my lazy friend

FOR ti = 53 TO 29 STEP -1
 FOR wa = 1 TO qwert
 NEXT wa
 CLS
 LOCATE 4, 1
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT "    WELCOME TO XEN, THE LAND WHERE PERILS STRIKE!  YOU WILL GO THROUGH"
 PRINT "  * GREAT PERILS TO WIN!  WILL YOU SURVIVE?  ONLY TIME WILL TELL!         *"
 PRINT "    PRESS A KEY TO START YOUR ADVENTURE!!!!!!!!!!"
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT
 PRINT "                                  Created by"
 LOCATE 12, 28
 PRINT "DAVE (CHEECH!) BOCHICHIO!!!!!"
 LOCATE 13, 38
 PRINT "AND"
 LOCATE 14, ti
 PRINT "KEN (JOHNNY K) HOLLAN!!!!!!!"
 COLOR a
 a = a + 1
 IF a = 15 THEN a = 1
 e = e + 1
NEXT ti
CLS

                                    'Cool Slide! <--- That's cool!

DO
 FOR da = 1 TO 52
 IF INKEY$ <> "" THEN EXIT DO
 FOR ti = 1 TO qwert
 NEXT ti
 CLS
 LOCATE 4, 1
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT "    WELCOME TO XEN, THE LAND WHERE PERILS STRIKE!  YOU WILL GO THROUGH"
 PRINT "  * GREAT PERILS TO WIN!  WILL YOU SURVIVE?  ONLY TIME WILL TELL!         *"
 PRINT "    PRESS A KEY TO START YOUR ADVENTURE!!!!!!!!!!"
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT
 PRINT "                                  Created by"
 LOCATE 12, 28
 PRINT "DAVE (CHEECH!) BOCHICHIO!!!!!"
 LOCATE 13, 38
 PRINT "AND"
 LOCATE 14, 28
 PRINT "KEN (JOHNNY K) HOLLAN!!!!!!!!"
 COLOR a
 a = a + 1
 IF a = 15 THEN a = 1
 e = e + 1
 LOCATE 16, da
 PRINT "DAVE (CHEECH!) BOCHICHIO!!!!!"
 LOCATE 16, 53 - da
 PRINT "KEN (JOHNNY K) HOLLAN!!!!!!!!"
IF xx > 200 AND xx < 400 THEN
qw$ = "WHY ARE YOU STILL READING THIS!!!  PLAY THE GAME!!!"
LOCATE 20, INT(40 - (LEN(qw$) / 2))
PRINT qw$
END IF
IF xx > 400 AND x < 600 THEN
qw$ = "COME ON!!!  DON'T YOU HAVE A LIFE!!!"
LOCATE 20, INT(40 - (LEN(qw$) / 2))
PRINT qw$
END IF
IF xx > 600 AND x < 1000 THEN
qw$ = "THAT'S ALL I CAN TAKE!!!  YOU HAVE UNTIL THIS TIMER ENDS!"
LOCATE 20, INT(40 - (LEN(qw$) / 2))
PRINT qw$
PRINT 1000 - xx
END IF
IF xx > 1000 THEN
LOCATE 20, INT(40 - (5 / 2))
PRINT "BYE!!"
END
END IF
xx = xx + 1
NEXT da
 FOR da = 1 TO 52
 IF INKEY$ <> "" THEN EXIT DO
 FOR ti = 1 TO qwert
 NEXT ti
 CLS
 LOCATE 1, 1
 PRINT
 PRINT
 PRINT
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT "    WELCOME TO XEN, THE LAND WHERE PERILS STRIKE!  YOU WILL GO THROUGH"
 PRINT "  * GREAT PERILS TO WIN!  WILL YOU SURVIVE?  ONLY TIME WILL TELL!         *"
 PRINT "    PRESS A KEY TO START YOUR ADVENTURE!!!!!!!!!!"
 PRINT "  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *"
 PRINT
 PRINT "                                  Created by"
 LOCATE 12, 28
 PRINT "DAVE (CHEECH!) BOCHICHIO!!!!!"
 LOCATE 13, 38
 PRINT "AND"
 LOCATE 14, 28
 PRINT "KEN (JOHNNY K) HOLLAN!!!!!!!!"
 COLOR a
 a = a + 1
 IF a = 15 THEN a = 1
 e = e + 1
 LOCATE 16, da
 PRINT "KEN (JOHNNY K) HOLLAN!!!!!!!!"
 LOCATE 16, 53 - da
 PRINT "DAVE (CHEECH!) BOCHICHIO!!!!!"
IF xx > 200 AND xx < 400 THEN
qw$ = "WHY ARE YOU STILL READING THIS!!!  PLAY THE GAME!!!"
LOCATE 20, INT(40 - (LEN(qw$) / 2))
PRINT qw$
END IF
IF xx > 400 AND xx < 600 THEN
qw$ = "COME ON!!!  DON'T YOU HAVE A LIFE!!!"
LOCATE 20, INT(40 - (LEN(qw$) / 2))
PRINT qw$
END IF
IF xx > 600 AND xx < 1000 THEN
qw$ = "THAT'S ALL I CAN TAKE!!!  YOU HAVE UNTIL THIS TIMER ENDS!"
LOCATE 20, INT(40 - (LEN(qw$) / 2))
PRINT qw$
PRINT 1000 - xx
END IF
IF xx > 1500 THEN
LOCATE 20, INT(40 - (5 / 2))
PRINT "BYE!!"
END
END IF
xx = xx + 1
NEXT da
IF INKEY$ <> "" THEN EXIT DO
LOOP
COLOR 7
z = 0
PRINT "Do you want instructions? Y or N?"
INPUT "", instr$
CLS
c = 0
IF instr$ = "Y" OR instr$ = "y" THEN
PRINT "THIS IS A GAME WHICH I MADE (KEN DIDN'T HELP AT ALL, BUT"
PRINT "THE BEGINNING IS PART OF AN OLDER PROGRAM AND I WAS TOO LAZY TO FIX IT,"
PRINT "BESIDES IT LOOKS BETTER WITH TWO NAMES!)  REMEBER TO USE ALL LOWERCASE EXCEPT"
PRINT "WHEN YOU PICK YOUR CHARACTER!!!  WALK THROUGH PLACES LIKE IT SAYS TO. . ."
PRINT "IF AT ANYTIME THE GAME GOES BLANK OR DOESN'T DO ANYTHING, JUST PRESS ENTER"
PRINT "TYPE 'I' TO SEE YOUR INVENTORY (WEAPON, ARMOR) AND TRY TO MEET THE ULTIMATE"
PRINT "OBJECTIVE. . . . . "
DO
LOOP WHILE INKEY$ = ""
PRINT
PRINT
COLOR 7, 8
PRINT "KILL THE BEHEMOTH AND SAVE THE PRINCESS!!"
DO
LOOP WHILE INKEY$ = ""
END IF
PRINT "Do you want a story of the land of Xen?"
INPUT well$
IF well$ = "y" OR well$ = "Y" THEN
CLS
PRINT "You are in the land of Xen.  The princess and king rule over the lands."
PRINT "One day, word spreads that a behemoth named Xexus moved into a place beyond"
PRINT "the Forest of Evil.  A few days later, diaster strikes!  The behemoth and his"
PRINT "men attack the city of Darov!!!  THE PLACE WHERE THE KING AND PRINCESS LIVE!"
PRINT "The king is killed and the princess is captured!!!  You must save her!"
DO
LOOP WHILE INKEY$ = ""
END IF

                                'Character
'You like browsing through my program don't you!  No Line numbers
'It isn't proper or something in Qbasic my teacher said!  I get
'by without them!

DO
CLS
PRINT "Who do you want to be? Capitalize please."
PRINT "(B)olar, (K)ren, (F)izaro, (D)erl"
youhave$ = "Fist"
tgold = 60
maxhit = 70
uhit = 70
udam = 10
uarmor = 2
armoryou$ = "cloth"
DO
 z = 0
 INPUT ""; pick$
 IF pick$ <> "B" AND pick$ <> "K" AND pick$ <> "F" AND pick$ <> "D" AND pick$ <> "J" AND pick$ <> "CHEECH!" AND pick$ <> "JOHNNY K" THEN z = 1
IF z = 1 THEN PRINT "You Must Capitalize The First Letter Of The Persons Name"
LOOP WHILE z = 1
IF pick$ = "B" THEN
 pick$ = "Bolar"
 PRINT "You are a little guy with a normal life.  You don't know very much about the"
 PRINT "princess, but you are in love with her everytime you see her.  Being"
 PRINT "small, you can avoid attacks better than most others.  You have 75 HP."
END IF
IF pick$ = "K" THEN
 pick$ = "Kren"
 PRINT "You are an elf who like wizardry.  You can cast a mini-fireball 3 times"
 PRINT "during a battle, since you aren't very strong."
 PRINT "The princess is one of your good friends, so you want to find her."
 PRINT "You have 75 HP."
END IF
IF pick$ = "F" THEN
 pick$ = "Fizaro"
 PRINT "You are a fighter.  You work for the king.  One time during battle"
 PRINT "you can heal instead of attacking.  You seek to help the king in"
 PRINT "any way you can.  You have 75 HP."
END IF
IF pick$ = "D" THEN
 pick$ = "Derl"
 PRINT "You are a blacksmith for the townsfolk.  Being extremely strong, you can"
 PRINT "Inflict more damage when fighting a creature.  You know the princess a little"
 PRINT "And wish to save her. You have 75 HP."
END IF
IF pick$ = "JOHNNY K" THEN
maxhit = 300
tgold = 400
uhit = 300
howmany = 99
supo = 99
PRINT "YOU ARE JOHNNY K!!  YOU ARE NOT the best in the universe like the other"
PRINT "secret character!"
END IF
IF pick$ = "CHEECH!" THEN
maxhit = 400
tgold = 1000
uhit = 400
udam = 100
uarmor = 35
youhave$ = "Behemoth Sword"
armoryou$ = "Magistica"
howmany = 99
supo = 99
PRINT "You are EMPEROR CHEECH!  YOU ARE THE BEST BEST BEST BEST BEST BEST BEST BEST"
PRINT "PERSON IN THE UNIVERSE!  HAHAHAHAHAHAHAHAHAHA!"
END IF
PRINT "Do you like your character? y or n"
INPUT B$
IF B$ = "y" THEN EXIT DO
LOOP
DO
LOOP WHILE INKEY$ = ""
CLS
PRINT "YOU ARE IN THE CASTLE TOWN OF DAROV!"
PRINT "You are standing on the side of the road near your house.  A man walks"
PRINT "Up to you and says, "; CHR$(34); pick$; ", you must help!  The princess has been"
PRINT "captured!! She was brought to a cave by a hideous creature!  Also, someone"
PRINT "Has KILLED the king!!!  All of his men are afraid to fight!  YOU must help!"
PRINT "Please do something!  (Besides if you don't, you can't complete the game)"; CHR$(34)
DO
LOOP WHILE INKEY$ = ""
PRINT
PRINT

Darov:
DO
CLS
 PRINT "You are in the town of Darov!"
 PRINT "What do you do?"
 PRINT "(t)avern, (o)ld man [talk to], (e)xit town, (q)uit game, (i)nventory"
 INPUT c$
 IF c$ = "qwert" THEN
 bad$ = "BEHEMOTH"
 GOSUB battle
 END IF
 IF c$ = "i" THEN GOSUB inventory
 IF c$ = "q" THEN GOSUB quit
 IF c$ = "t" THEN
  DO
  CLS
  PRINT "You walk into the tavern.  You see two people drinking and a bartender"
  PRINT "(b)artender, (p) person on left, (r) person on right?, (e)xit, (t)alk"
  INPUT D$
  IF D$ = "t" THEN
  tttt = INT(RND * 5) + 1
  IF tttt = 1 THEN PRINT "In Gemstone Ridge, you can find a great treasure!  But 'looking' won't help."
  IF tttt = 2 THEN PRINT "Don't go to the Forest of Evil, until you've gone everywhere else!"
  IF tttt = 3 THEN PRINT "The old man is hiding something. . . try pressing a certain key on him"
  IF tttt = 4 THEN PRINT "Get plenty of SUPER potions!"
  IF tttt = 5 THEN PRINT "FIGHTING IS VITAL!!!  YOU GAIN HP AND GOLD!!!"
  END IF
  IF D$ = "q" THEN GOSUB quit
  IF D$ = "b" THEN
  PRINT "The bartender offers you a drink.  Knowing that you can't get drunk at the"
  PRINT "moment, you turn it down.  He tells you that you should leave town and find"
  PRINT "the princess."
 END IF
 IF D$ = "p" AND died > 0 THEN
  PRINT "HE'S ALREADY DEAD!!!"
 END IF
 IF D$ = "p" AND died = 0 THEN
  PRINT "The person on the left turns out to be a spy!  He gets up and pulls out"
  PRINT "a knife!!!!!"
  DO
  LOOP WHILE INKEY$ = ""
  bad$ = "Spy"
  GOSUB battle
  died = 1
  IF a$ = "r" THEN died = 0
  END IF
 IF D$ = "r" THEN
  PRINT "I here that guy over there's a spy!  He works for the one's who kidnapped"
  PRINT "the princess!  Besides, he has a dagger, and you could sure use a weapon"
  PRINT "because the weapon shop is closed!"
 END IF
 IF D$ = "e" THEN EXIT DO

 DO
  LOOP WHILE INKEY$ = ""
 LOOP
END IF
IF c$ = "o" THEN
 PRINT "The old man looks at you and tells you to get the heck away from him!"
 PRINT "Before you can leave. . . he tells you to LEAVE AGAIN AND AGAIN!!!"
 PRINT "Press a Key"
INPUT "", maper$
IF maper$ = "m" THEN
PRINT
PRINT "FINE I'LL SHOW YOU THE MAP!!"
PRINT
PRINT
GOSUB map
END IF
END IF
IF c$ = "e" THEN GOSUB outdoors
LOOP
END


battle:

'STATS

CLS
rar = 0
fire = 0
heal = 0
goler = 0
IF bad$ <> "BEHEMOTH" THEN PRINT "You see a(n) "; bad$
IF bad$ = "BEHEMOTH" THEN PRINT "Xexus, the mighty behemoth, CHARGES FORWARD!"
IF bad$ = "Spy" THEN
 weapon$ = "Dagger"
 bhit = 35
 bdam = 10
 barmor = 3
 urun = 80
END IF
IF bad$ = "Orc" THEN
 weapon$ = "Short Sword"
 bhit = 65
 bdam = 20
 barmor = 6
 urun = 75
 END IF
IF bad$ = "Evil Warrior" THEN
 weapon$ = "Short Sword"
 bhit = 95
 bdam = 30
 barmor = 15
 urun = 50
 goler = 3
END IF
IF bad$ = "Ogre" THEN
 weapon$ = ""
 bhit = 130
 bdam = 50
 barmor = 18
 urun = 65
 goler = 3
END IF
IF bad$ = "Dragon" THEN
 weapon$ = "REALLY Long Sword"
 bhit = 280
 bdam = 60
 barmor = 35
 urun = 45
 goler = 4
END IF
IF bad$ = "Dark Warrior" THEN
 weapon$ = "REALLY Long Sword"
 bhit = 190
 bdam = 50
 barmor = 38
 urun = 60
 goler = 4
END IF
IF bad$ = "Dracolich" THEN
 weapon$ = ""
 bhit = 250
 bdam = 80
 barmor = 40
 urun = 40
 goler = 4
END IF
IF bad$ = "Horrid Evil Knight" THEN
 weapon$ = ""
 bhit = 200
 bdam = 70
 barmor = 50
 urun = 75
 goler = 4
END IF
IF bad$ = "Iron Golem" THEN
 weapon$ = ""
 bhit = 100
 bdam = 100
 barmor = 65
 urun = 90
 goler = 4
END IF
IF bad$ = "Guardian" THEN
 weapon$ = "Behemoth Sword"
 bhit = 1000
 bdam = 90
 barmor = 0
 urun = 0
 goler = 3
END IF
IF bad$ = "BEHEMOTH" THEN
 weapon$ = ""
 bhit = 600
 bdam = 90
 barmor = 60
 urun = 0
END IF
IF bad$ = "Shadow Ninja" THEN
 weapon$ = "Magical Long Long Sword"
 bhit = 250
 bdam = 90
 barmor = 25
 urun = 20
 goler = 3
END IF
DO
 PRINT "What do you do?  You have"; uhit; "HP and "; howmany; " potions left"
 PRINT "You also have"; supo; " super potions left!"
 PRINT "(f)ight, (r)un, (p)otion, (s)uper potion, ";
 IF pick$ = "Kren" THEN PRINT "(m)ini-fireball"
 IF pick$ = "Fizaro" THEN PRINT "(h)eal"
 INPUT "", a$
 CLS
 IF pick$ = "Fizaro" AND a$ = "h" AND heal >= 1 THEN PRINT "YOU'RE OUT OF HEALING POWER!"
 IF pick$ = "Fizaro" AND a$ = "h" AND heal < 1 THEN
 heal = heal + 1
 PRINT "YOU HAVE HEALED"; maxhit - uhit; " HP!"
 uhit = maxhit
 END IF
 IF a$ = "f" THEN
  hitem = INT(RND * 100) + 1 + barmor
  IF hitem > 110 THEN
  PRINT "You MISS!!!"
 END IF
 IF hitem <= 110 THEN
  udama = udam + INT(RND * udam / 4) + 1 - barmor
  IF udama < 0 THEN udama = 0
  IF pick$ = "Derl" THEN udama = INT(udama + udam / 5)
  PRINT "A HIT!!! You do"; udama; "damage to him."
  bhit = bhit - udama
  IF bhit <= 0 THEN
   GOSUB dead
   RETURN
  END IF
 END IF
 END IF
 IF a$ = "r" THEN
  runaway = INT(RND * 100) + 1
   IF urun > runaway THEN
   PRINT "YOU RAN AWAY!!!"
   RETURN
  END IF
  IF urun < runaway THEN
   PRINT "YOU FAILED TO RUN AWAY!!!!!"
  END IF
 END IF
IF a$ = "s" AND supo = 0 THEN PRINT "YOU ARE OUT OF SUPER POTIONS!!!"
IF a$ = "s" AND supo > 0 THEN
supo = supo - 1
upper = INT(RND * 70) + 180
IF uhit + upper > maxhit THEN upper = maxhit - uhit
PRINT "You gain"; upper; " HP!"
uhit = uhit + upper
END IF
IF a$ = "p" AND howmany = 0 THEN PRINT "YOU ARE OUT OF POTIONS!!!"
IF a$ = "p" AND howmany > 0 THEN
howmany = howmany - 1
upper = INT(RND * 40) + 95
IF uhit + upper > maxhit THEN upper = maxhit - uhit
PRINT "You gain"; upper; " HP!"
uhit = uhit + upper
END IF
IF pick$ = "Kren" AND a$ = "m" AND fire > 2 THEN PRINT "YOU'RE OUT OF FIREBALLS!"
IF pick$ = "Kren" AND a$ = "m" AND fire <= 2 THEN
fire = fire + 1
fireball = INT(RND * 90) + 1
bhit = bhit - fireball
PRINT "You have done"; fireball; "to the monster!"
IF bhit <= 0 THEN
GOSUB dead
RETURN
END IF
END IF
IF bad$ <> "BEHEMOTH" THEN
hityou = INT(RND * 100) + 1 + uarmor
IF pick$ = "Bolar" THEN hityou = hityou + INT(hityou * .2)
IF hityou < 100 THEN
PRINT "HE HITS!!!"
bdama = bdam + INT(RND * 20) - uarmor
IF bdama < 0 THEN bdama = 0
PRINT "He does"; bdama; "damage to you!!!"
uhit = uhit - bdama
END IF
IF hityou > 100 THEN PRINT "HE MISSES!"
END IF
IF bad$ = "BEHEMOTH" THEN
hityou = INT(RND * 100) + 1 + uarmor
IF pick$ = "Bolar" THEN hityou = hityou + INT(hityou * .2)
deathq = INT(RND * 4) + 1
IF deathq = 1 AND bebe >= 5 THEN deathq = 2
IF deathq = 1 AND bebe < 5 THEN
PRINT "THE BEHEMOTH BREATHS DEADLY FLAMES!!!!!!"
PLAY "o1l32 acbdbbfbecgacbd"
SLEEP 1
deadly = INT(RND * 70) + 130
PRINT "YOU LOSE"; deadly; "HP!!!!!"
uhit = uhit - deadly
bebe = bebe + 1
END IF
IF deathq = 2 OR deathq = 3 OR deathq = 4 THEN
hityou = INT(RND * 100) + 1 + uarmor
IF pick$ = "Bolar" THEN hityou = hityou + INT(hityou * .2)
IF hityou < 100 THEN
PRINT "HE HITS!!!"
bdama = bdam + INT(RND * 20) - uarmor
IF bdama < 0 THEN bdama = 0
PRINT "He does"; bdama; "damage to you!!!"
uhit = uhit - bdama
END IF
IF hityou > 100 THEN PRINT "HE MISSES!"
END IF
END IF
IF uhit <= 0 THEN GOSUB tinue
LOOP

'That battle sequence took long enough!

dead:
IF weapon$ = "" THEN PRINT "You've killed the monster!!!  HE DIDN'T DROP AN EQUIPABLE WEAPON!"
IF weapon$ <> "" THEN
PRINT "You've killed the monster!!!  He dropped a "; weapon$
PRINT "Do you wish to take and equip it? (y)es or (n)o?"
INPUT h$
IF h$ = "y" THEN
IF weapon$ = "Dagger" THEN
udam = 20
youhave$ = weapon$
END IF
IF weapon$ = "Short Sword" THEN
udam = 35
youhave$ = weapon$
END IF
IF weapon$ = "Long Sword" THEN
udam = 45
youhave$ = weapon$
END IF
IF weapon$ = "REALLY Long Sword" THEN
udam = 55
youhave$ = weapon$
END IF
IF weapon$ = "Magical Long Long Sword!" THEN
udam = 80
youhave$ = weapon$
END IF
IF weapon$ = "Behemoth Sword" THEN
udam = 100
youhave$ = weapon$
END IF
END IF
END IF
up = INT(RND * 10) + 6
IF goler = 3 THEN up = up + INT(RND * 5) + 1
IF goler = 4 THEN up = up + INT(RND * 10) + 1
IF up + maxhit > 400 THEN up = 400 - maxhit
PRINT "You gain"; up; "HP!"
maxhit = maxhit + up
uhit = uhit + up
gold = INT(RND * 40) + 40
IF goler = 3 THEN gold = gold + INT(RND * 20) + 1
IF goler = 4 THEN gold = gold + INT(RND * 35) + 1
PRINT "YOU GAINED"; gold; "gold!"
tgold = tgold + gold
DO
LOOP WHILE INKEY$ = ""
CLS
RETURN

outdoors:
DO
CLS
uhit = maxhit
PRINT "YOU REST FIRST BEFORE LEAVING!!"
PRINT "You step outside of the town.  You can go to the following places!"
PRINT "(d)arov [town], (c)ryseria [town], (f)orest of evil, (g)emstone ridge"
INPUT wherego$
IF wherego$ = "d" THEN RETURN
IF wherego$ = "c" THEN GOSUB cryseria
IF wherego$ = "f" THEN GOSUB foe
IF wherego$ = "g" THEN GOSUB gemstone
LOOP

tinue:
DO
LOOP WHILE INKEY$ = ""
FOR x = 1 TO 25
SOUND 2700 - x * 100, 1
PRINT "YOU HAVE DIED A HORRIBLE DEATH!!!!"
NEXT x
PLAY "Mb L4 o0aal6al4ao1co0l6bl4bl6al4al6a-l4a"
IF tinu < 3 THEN
tinu = tinu + 1
PRINT "Continue?  (y)es, (n)o?"
INPUT ok$
IF ok$ = "y" THEN
uhit = maxhit
PRINT "You will go back to Darov with everything you had!"
DO
LOOP WHILE INKEY$ = ""
GOSUB Darov
END IF
END IF
GOSUB quit

quit:
CLS
DO
PRINT "THE GREAT BEHEMOTH, XEXUS HAS WON!!!!!  THE WORLD IS DOOMED!!"
zz = zz + 1
IF zz = 15 THEN zz = 1
COLOR zz
LOOP WHILE INKEY$ = ""
CLS
SCREEN 8
FOR y = 1 TO 200
IF INKEY$ <> "" THEN EXIT FOR
CIRCLE (300, 200), 2 * y, 1
IF y > 50 THEN
CIRCLE (300, 200), 4 * (y - 49), 0
END IF
IF y > 65 THEN
CIRCLE (300, 200), 6 * (y - 64), 4
CIRCLE (300, 200), 1 * (y - 64), 4
END IF
NEXT y
GOSUB ver

'MAN!  You sure like to browse looooooooooooooooooooooooong programs!

inventory:
PRINT uhit; "/"; maxhit; " HP!!!"
PRINT
PRINT youhave$; " is your weapon"
PRINT
PRINT tgold; " is your gold!"
PRINT
PRINT armoryou$; " is your armor!"
PRINT
PRINT "You have"; howmany; " potions of healing"
PRINT
PRINT "You have"; supo; " SUPER potions of healing"
PRINT
IF rang = 1 THEN PRINT "YOU HAVE A DIAMOND RING!!!"
PRINT
IF magipot = 1 THEN PRINT "YOU HAVE A MAGIC POTION OF LIFE!"
DO
LOOP WHILE INKEY$ = ""
RETURN

'STOP BROWSING ALREADY AND PLAY!!!!!

cryseria:
CLS
DO
 PRINT "You are in Cryseria!  This large town soars around.  To the North and"
 PRINT "to the East, you see a mountain ridge.  To the south you can make a forest"
 PRINT "Where do you want to go?"
 PRINT
 PRINT "(w)eapon shop, (a)rmor shop, (t)avern, (q)uit, (i)nventory, (e)xit town"
 PRINT
 INPUT a$
 IF a$ = "w" THEN
  DO
  CLS
  PRINT "YOU ENTER THE SHOP!!!  BUY???"
  PRINT "(d)agger                20dam              30gp"
  PRINT "(s)hort sword           35dam              90gp"
  PRINT "(l)ong Sword            45dam              200gp"
  PRINT
  PRINT "(i)nventory, (e)xit shop"
  INPUT B$
  IF B$ = "d" AND tgold >= 30 THEN
   tgold = tgold - 30
   youhave$ = "Dagger"
   udam = 20
   PRINT "Thank you!"
   ELSE IF B$ = "d" AND tgold < 30 THEN PRINT "You DON'T have enough money!!!"
  END IF
  IF B$ = "s" AND tgold >= 90 THEN
   tgold = tgold - 90
   youhave$ = "Short Sword"
   udam = 35
   PRINT "Thank you!"
   ELSE IF B$ = "s" AND tgold < 90 THEN PRINT "You DON'T have enough money!!!"
  END IF
  IF B$ = "l" AND tgold >= 200 THEN
   tgold = tgold - 200
   youhave$ = "Long sword"
   udam = 45
   PRINT "Thank you!"
   ELSE IF B$ = "l" AND tgold < 200 THEN PRINT "You DON'T have enough money!!!"
  END IF
  IF B$ = "i" THEN GOSUB inventory
  IF B$ = "e" THEN EXIT DO
  DO
  LOOP WHILE INKEY$ = ""
  LOOP
  END IF
 IF a$ = "a" THEN
  DO
   CLS
   PRINT "YOU ENTER THE ARMOR SHOP!!!!  WHAT DO YOU WANT TO DO??????"
   PRINT "IF YOU DON'T HAVE THE GOLD!!! LEAVE THEN!"
   PRINT
   PRINT "(l)eather             +5              35gp"
   PRINT "(s)plinted mail       +8              85gp"
   PRINT "(c)hain mail          +12             200gp"
   PRINT
   PRINT "(i)ventory    (e)xit"
   INPUT B$
   IF B$ = "l" AND tgold >= 35 THEN
    uarmor = 5
    tgold = tgold - 35
    PRINT "Thank You!"
    armoryou$ = "Leather"
   END IF
   IF B$ = "s" AND tgold >= 85 THEN
    tgold = tgold - 85
    uarmor = 8
    armoryou$ = "Splinted mail"
    PRINT "Thank You!"
   END IF
   IF B$ = "c" AND tgold >= 200 THEN
    uarmor = 12
    armoryou$ = "Chain Mail"
    tgold = tgold - 200
    PRINT "Thank You!"
   END IF
   IF B$ = "e" THEN EXIT DO
   IF B$ = "i" THEN GOSUB inventory
  DO
  LOOP WHILE INKEY$ = ""
  LOOP
  END IF
  IF a$ = "i" THEN GOSUB inventory
  IF a$ = "q" THEN GOSUB quit
  IF a$ = "e" THEN RETURN
  IF a$ = "t" THEN
   CLS
   DO
    CLS
    PRINT "You are in the tavern (duh)!!  What do you want to do?"
    PRINT
    PRINT "(f)ight, (d)rink, (t)alk, (r)est, (e)xit?"
    INPUT B$
    IF B$ = "r" THEN
    PRINT "YOU GAIN FULL LIFE!!!"
    uhit = maxhit
    END IF
    IF B$ = "f" AND zeplin < 10 THEN
     argo = INT(RND * 4) + 1
     IF argo = 1 THEN bad$ = "Spy"
     IF argo = 2 THEN bad$ = "Orc"
     IF argo = 3 THEN bad$ = "Orc"
     IF argo = 4 THEN bad$ = "Evil Warrior"
     GOSUB battle
     zeplin = zeplin + 1
    END IF
    IF zeplin >= 10 AND B$ = "f" THEN PRINT "There are no more badguys here!"
    drunk = INT(RND * 20) + 1
    IF B$ = "d" THEN
     PRINT "YOU GET DRUNK!!!!  YOU LOSE"; drunk; " HP!"
     uhit = uhit - drunk
    END IF
    IF B$ = "t" THEN
     talk = INT(RND * 5) + 1
     IF talk = 1 THEN PRINT "I hear that the princess was taken beyond the Forest of Evil!"
     IF talk = 2 THEN
     PRINT "You hear that there is a magic potion of life in the forest of evil!"
     potpot = 1
     END IF
     IF talk = 3 OR talk = 5 THEN PRINT "You hear that someone wants to kill you!"
     IF talk = 4 THEN
     PRINT "I here there is a diamond ring that you can give to the princess"
     PRINT "in order to marry her!!!!!!!!!!!!"
     ringer = 1
     END IF
   END IF
   IF B$ = "e" THEN EXIT DO
  DO
  LOOP WHILE INKEY$ = ""
  LOOP
 END IF
 PRINT "Press a key!"
 DO
 LOOP WHILE INKEY$ = ""
 CLS
LOOP

'FOR YOU GUYS WHO READ THE CREDITS TOO LONG. . . WAIT AND SEE WHAT HAPPENS!

gemstone:
IF zeplin < 4 THEN
PRINT "A gate is here to block your path!"
DO
LOOP WHILE INKEY$ = ""
RETURN
END IF
DO
CLS
toomuch = toomuch + 1
IF toomuch > 40 THEN
PRINT "The WHOLE RIDGE BREAKS to pieces!"
DO
LOOP WHILE INKEY$ = ""
RETURN
END IF
gema$ = "You are in GeMsToNe RiDgE!  Looking down, you can see Darov, Cryseria,"
gemb$ = "a dark forest, and beyond the forest, you can make out a castle.  This ridge"
gemc$ = "looks very delicate.  It curves around to the North and to the West."
FOR x = 1 TO LEN(gema$)
PRINT MID$(gema$, x, 1);
COLOR cc
cc = cc + 1
IF cc >= 14 THEN cc = 1
NEXT x
PRINT
FOR x = 1 TO LEN(gemb$)
PRINT MID$(gemb$, x, 1);
COLOR cc
cc = cc + 1
IF cc >= 14 THEN cc = 1
NEXT x
PRINT
FOR x = 1 TO LEN(gemc$)
PRINT MID$(gemc$, x, 1);
COLOR cc
cc = cc + 1
IF cc >= 14 THEN cc = 1
NEXT x
PRINT
COLOR 7
PRINT "What do you want to do?"
PRINT
PRINT "(r)est, (w)alk around, (l)ook for stuff, (i)nventory, (e)xit, (q)uit, ";
IF ringer = 1 THEN PRINT "(s)earch for ring"
INPUT gem$
IF gem$ = "r" THEN
rar = rar + 1
IF rar >= 3 THEN PRINT "You have rested too much for now!"
IF rar < 3 THEN
restgain = INT(RND * 75) + 40
IF uhit + restgain > maxhit THEN restgain = maxhit - uhit
PRINT "YOU GAIN"; restgain; " HP!!!!"
uhit = uhit + restgain
END IF
END IF
IF gem$ = "i" THEN GOSUB inventory
IF gem$ = "e" THEN RETURN
IF gem$ = "q" THEN GOSUB quit
IF gem$ = "l" THEN
monmon = INT(RND * 100) + 1
 IF monmon > 65 THEN
  arggg = arggg + 1
  IF arrrg > 7 THEN PRINT "You find NOTHING!!!!!!"
  IF arggg <= 7 THEN
  badbad = INT(RND * 4) + 1
  IF badbad = 1 THEN bad$ = "Evil Warrior"
  IF badbad = 2 THEN bad$ = "Dragon"
  IF badbad = 3 THEN bad$ = "Ogre"
  IF badbad = 4 THEN bad$ = "Orc"
  GOSUB battle
 END IF
 END IF
 IF monmon <= 65 AND monmon >= 45 THEN PRINT "You find NOTHING!!!!!!"
 IF monmon < 45 AND monmon >= 30 AND notmore >= 5 THEN PRINT "You find NOTHING!!!!!!"
 IF monmon >= 30 AND monmon <= 45 AND notmore < 5 THEN
 notmore = notmore + 1
 PRINT "You have found a potion!"
 howmany = howmany + 1
 END IF
 IF monmon < 30 THEN
 qwe = qwe + 1
 IF qwe < 8 THEN
  gold = INT(RND * 50) + 10
  PRINT "YOU FOUND"; gold; " GOLD!!"
  tgold = tgold + gold
 END IF
 END IF
END IF
IF gem$ = "w" THEN
looklok = looklok + 1
IF looklok < 3 THEN PRINT "You walk"
IF looklok >= 3 AND looklok < 7 THEN PRINT "You STILL walk!"
IF looklok >= 7 AND looklok < 10 THEN PRINT "You start to DIE of walking!"
IF looklok = 8 THEN PRINT "BUT, YOU ALSO FIND A PICTURE OF AN OLD MAN AND AN 'm' NEXT TO IT"
IF looklok > 11 THEN
PRINT "OK!  You found the secret armor of Magistica!"
armoryou$ = "Magistica"
uarmor = 35
looklok = -9082357
END IF
IF looklok = -9082353 THEN
PRINT "oooooooh NO!!!  YOU'VE FALLEN OFF GEMSTONE RIDGE!!!"
PRINT "YOU FALL TO YOUR DEATH!  Wheeeeee!  SPLAT!"
PRINT "YOU ARE A DUMB HERO!  YOU'VE COMMITED SUICIDE!!!  HOW COULD YOU BE SO DUMB!"
DO
LOOP WHILE INKEY$ = ""
looklok = -9082357
GOSUB tinue
END IF
END IF
IF gem$ = "s" AND ringer <> 1 THEN
PRINT "SO, you knew about this?!?!?!?!?"
FOR x = 1 TO 4
BEEP
PRINT "CHEATER!"
NEXT x
PRINT "BUT, YOU STILL FIND THE RING!"
rang = 1
END IF
IF gem$ = "s" AND ringer = 1 THEN
ranged = INT(RND * 100) + 1
IF ranged <= 60 OR ringfind = 1 THEN PRINT "You find NOTHING!"
IF ranged > 60 AND ringfind <> 1 THEN
PRINT "YOU FOUND A DIAMOND RING!!!!"
rang = 1
END IF
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP

foe:
fooll = 0
DO
CLS
PRINT "You are in the FOREST OF EVIL!  It is dark and spooky."
PRINT
PRINT "Where do you want to go?"
PRINT
PRINT "(e)xit, (m)ove, (q)uit, (i)nventory, (r)est";
IF potpot = 1 THEN PRINT ", (s)earch for potion"
INPUT foe$
IF foe$ = "e" THEN RETURN
IF foe$ = "q" THEN GOSUB quit
IF foe$ = "i" THEN GOSUB inventory
IF foe$ = "r" THEN
restgain = INT(RND * 75) + 1
IF uhit + restgain > maxhit THEN restgain = maxhit - uhit
PRINT "YOU GAIN"; restgain; " HP!!!!"
uhit = uhit + restgain
END IF
IF foe$ = "s" THEN
uiopoiu = INT(RND * 100) + 1
IF uiopoiu > 60 THEN
PRINT "YOU'VE FOUND THE MAGIC POTION!!!"
magipot = 1
END IF
IF uiopoiu <= 60 THEN PRINT "You find NOTHING!"
END IF
IF foe$ = "m" THEN
walkend = INT(RND * 100) + 1
zapp = zapp + 1
asdf = INT(RND * 100) + 1
IF asdf > 93 AND asdf <= 100 THEN
PRINT "You stumble along a REALLY Long Sword!  Take it? (y)es, (n)o?"
INPUT rrr$
IF rrr$ = "y" THEN
PRINT "OK!"
youhave$ = "REALLY Long Sword"
udam = 55
END IF
END IF
IF asdf > 50 AND asdf <= 70 THEN
badbad = INT(RND * 3) + 1
IF badbad = 1 THEN bad$ = "Ogre"
IF badbad = 2 THEN bad$ = "Dark Warrior"
IF badbad = 3 THEN bad$ = "Dragon"
GOSUB battle
END IF
IF walkend > 70 THEN exiter = 1
IF zapp > 9 THEN exiter = 1
IF walkend <= 70 AND zapp <= 9 THEN PRINT "You walk on. . ."
END IF
IF exiter = 1 THEN
PRINT "YOU'VE FOUND AN EXIT OUT!!!!!!!!!!!!!!!!!"
PRINT "Do you take it? (y)es, (n)o?"
INPUT outnow$
IF outnow$ = "y" THEN GOSUB outother
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP

outother:
DO
CLS
uhit = maxhit
PRINT "You rest"
PRINT "You are in a crossroad!  There is a town to the west and a castle to the east"
PRINT "Where do you want to go?"
PRINT
PRINT "(e)rik's town, (c)astle of darkness, (f)orest of evil, (q)uit, (i)nventory"
INPUT nowhat$
IF nowhat$ = "i" THEN GOSUB inventory
IF nowhat$ = "q" THEN GOSUB quit
IF nowhat$ = "f" THEN RETURN
IF nowhat$ = "e" THEN GOSUB erics
IF nowhat$ = "c" THEN GOSUB castle
LOOP

'I hope you've sent the fee!

erics:
DO
CLS
PRINT "You are in Eric's town!  What do you do?"
PRINT
PRINT "(w)eapon shop, (a)rmor shop, (m)agic shop, (e)xit, (i)nventory, (t)avern"
INPUT eric$
IF eric$ = "s" AND already = 1 THEN PRINT "Nice try!"
IF eric$ = "s" AND already <> 1 THEN
PRINT "YOU FIND A HIDDEN STASH OF STUFF!"
howmany = howmany + 25
supo = supo + 10
already = 1
DO
LOOP WHILE INKEY$ = ""
END IF
IF eric$ = "t" THEN
DO
CLS
PRINT "Whatta you want???"
PRINT "(f)ight, (r)est, (e)xit, (t)alk"
INPUT wat$
IF wat$ = "f" AND seever >= 8 THEN PRINT "THERE ARE NO MORE BADGUYS HERE!!!"
IF wat$ = "f" AND seever < 8 THEN
seever = seever + 1
badbad = INT(RND * 4) + 1
IF badbad = 1 THEN bad$ = "Dark Warrior"
IF badbad = 2 THEN bad$ = "Shadow Ninja"
IF badbad = 3 THEN bad$ = "Dragon"
IF badbad = 4 THEN bad$ = "Dark Warrior"
GOSUB battle
END IF
IF wat$ = "r" THEN
PRINT "YOU GAIN FULL HP!!!"
uhit = maxhit
END IF
IF wat$ = "e" THEN EXIT DO
IF wat$ = "t" THEN
talker = INT(RND * 5) + 1
IF talker = 1 THEN PRINT "Be careful in the behemoth's castle!  There are traps!"
IF talker = 2 THEN PRINT "Fight as much as possible before going to the Behemoth!"
IF talker = 3 THEN PRINT "Duh. . . what??"
IF talker = 4 THEN PRINT "Zzzz. . .Zzzz. . . .Zzzz"
IF talker = 5 THEN
PRINT "The armor shop man know something. . . ."
bribe = 1
END IF
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP
END IF
IF eric$ = "i" THEN GOSUB inventory
IF eric$ = "q" THEN GOSUB quit
IF eric$ = "e" THEN RETURN
IF eric$ = "w" THEN
DO
CLS
PRINT "You are in the WEAPON SHOP!"
PRINT
PRINT "What do you want?"
PRINT "(l)ong sword                 45dam       200gp"
PRINT "(r)eally long sword          55dam       450gp"
PRINT "(m)agical long long sword    80dam       700gp"
PRINT
PRINT
PRINT "(i)nventory, (e)xit"
INPUT byedie$
IF byedie$ = "i" THEN GOSUB inventory
IF byedie$ = "e" THEN EXIT DO
IF byedie$ = "l" AND tgold >= 200 THEN
PRINT "THANK YOU!!!"
udam = 45
youhave$ = "Long Sword"
tgold = tgold - 200
END IF
IF byedie$ = "r" AND tgold >= 450 THEN
PRINT "THANK YOU!!!"
udam = 55
youhave$ = "REALLY Long Sword"
tgold = tgold - 450
END IF
IF byedie$ = "m" AND tgold >= 700 THEN
PRINT "THANK YOU!!!"
udam = 80
youhave$ = "Magical Long Long Sword"
tgold = tgold - 700
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP
END IF
IF eric$ = "a" THEN
DO
CLS
PRINT "YOU ARE IN THE ARMOR SHOP!!!  WHAT DO YOU WANT?"
PRINT
PRINT "(c)hain mail       +12     120gp"
PRINT "(p)late mail       +19     300gp"
PRINT "(f)ield plate      +25     700gp"
PRINT
PRINT "(i)nventory, (e)xit";
IF bribe = 1 THEN PRINT ", (b)ribe"
IF bribe <> 1 THEN PRINT
INPUT byedie$
IF byedie$ = "b" THEN
PRINT "How much. . . (1)00, (5)00, (2)000?"
INPUT yeah
IF yeah = 1 AND tgold >= 100 THEN
PRINT "Cheapskate!"
tgold = tgold - 100
END IF
IF yeah = 5 AND tgold >= 500 THEN
tgold = tgold - 500
PRINT "THE CASTLE HIDES SOMETHING!  GO IN THE CASTLE AND (l)ook"
END IF
IF yeah = 2 AND tgold >= 2000 THEN
tgold = tgold - 2000
PRINT "THANK YOU!"
END IF
END IF
IF byedie$ = "i" THEN GOSUB inventory
IF byedie$ = "e" THEN EXIT DO
IF byedie$ = "c" AND tgold >= 200 THEN
PRINT "THANK YOU!!!"
armoryou$ = "Chain Mail"
tgold = tgold - 120
uarmor = 12
END IF
IF byedie$ = "p" AND tgold >= 300 THEN
PRINT "THANK YOU!!!"
armoryou$ = "Plate Mail"
tgold = tgold - 300
uarmor = 19
END IF
IF byedie$ = "f" AND tgold >= 700 THEN
armoryou$ = "Field Plate"
uarmor = 25
tgold = tgold - 700
PRINT "THANK YOU!!!"
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP
END IF
IF eric$ = "m" THEN
exr = 0
DO
CLS
magi$ = "All we sell here is potions of healing.  Do you want one for 50gp?"
magii$ = "We also sell SUPER potions for 100gp.  (y)es for potion, (s)uper?"
FOR x = 1 TO LEN(magi$)
rr = rr + 1
IF rr >= 14 THEN rr = 1
COLOR rr
LOCATE 1
PRINT MID$(magi$, 1, x)
NEXT x
rr = rr + 2
FOR x = 1 TO LEN(magii$)
rr = rr + 1
IF rr >= 14 THEN rr = 1
COLOR rr
LOCATE 2
PRINT MID$(magii$, 1, x)
NEXT x
COLOR 7
IF parr > 3 THEN PRINT "I hear that the Behemoth Sword is in the red room in the castle!"
INPUT potiono$
IF potiono$ = "y" AND tgold >= 50 THEN
howmany = howmany + 1
tgold = tgold - 50
PRINT "THANK YOU!!!"
parr = parr + 1
END IF
IF potiono$ = "s" AND tgold >= 100 THEN
supo = supo + 1
tgold = tgold - 100
parr = parr + 1
PRINT "THANK YOU!!!"
END IF
DO
LOOP WHILE INKEY$ = ""
IF potiono$ <> "y" AND potiono$ <> "s" THEN exr = 1
LOOP WHILE exr <> 1
END IF
LOOP

'Most people give up by now!  Play the game!

castle:
DO
CLS
PRINT "YOU ARE IN THE CASTLE OF THE BEHEMOTH, XEXUS!!!  Where do you want to go?"
PRINT "(r)ed room, (b)lack room, (s)tairs up, (e)xit, (i)nventory, res(t)"
INPUT cast$
IF cast$ = "l" THEN GOSUB superset
IF cast$ = "t" THEN
PRINT "YOU GAIN FULL LIFE!!!"
uhit = maxhit
END IF
IF cast$ = "r" THEN
PRINT "YOU SEE THE BEHEMOTH SWORD!!!!"
DO
LOOP WHILE INKEY$ = ""
bad$ = "Guardian"
GOSUB battle
PRINT "YOU HAVE GOT THE BEHEMOTH SWORD!!!"
END IF
IF cast$ = "b" THEN
spike = INT(RND * 30) + 20
PRINT "SPIKE TRAP!!!!!!!!  YOU LOSE"; spike; "HP!!!"
DO
LOOP WHILE INKEY$ = ""
uhit = uhit - spike
IF uhit <= 0 THEN GOSUB tinue
badbad = INT(RND * 3) + 1
IF badbad = 1 THEN bad$ = "Dragon"
IF badbad = 2 THEN bad$ = "Horrid Evil Knight"
IF badbad = 3 THEN bad$ = "Dark Knight"
GOSUB battle
END IF
IF cast$ = "i" THEN GOSUB inventory
IF cast$ = "e" THEN RETURN
IF cast$ = "s" THEN GOSUB upstairs
DO
LOOP WHILE INKEY$ = ""
LOOP

superset:
CLS
PRINT "TAKE A LETTER FROM EACH WORD AND FORM A WORD!  CAPITALIZE THE LETTERS!"
PRINT "USE THE 5 WORDS AS A HINT!"
PRINT
PRINT "DESTROYING LIFE, ALWAYS THE CHARACTERS!"
INPUT hahah$
IF hahah$ = "DEATH" THEN
CLS
PRINT "Solve my riddle warrior, and you shall soon prevail!"
PRINT "CAPITALIZE THE LETTERS!  My word has letters 4"
PRINT
PRINT "My first is evading, my second is vileness, my third is imagination, my forth"
PRINT "is a lie."
PRINT "Answer my riddle warrior!"
INPUT harhar$
IF harhar$ = "EVIL" THEN
PRINT
PRINT "THE POTION OF LIFE IS IN THE FOREST OF EVIL!  (s)earch FOR IT!"
PRINT "THE ARMOR OF MAGISTICA IS ON GEMSTONE RIDGE!  WALK 12 TIMES!"
PRINT "THE RING IS IN GEMSTONE RIDGE!  (s)earch FOR IT!"
PRINT "THE RED ROOM HAS THE BEHEMOTH SWORD!"
PRINT "(s)earch for THE HIDDEN STASH IN ERIC'S TOWN"
PRINT "IN THE SHRINE OF DARKNESS. . . (t)ry to find GOLD!"
PRINT "The secret (characters) are revealed in the credits at the beginning!"
PRINT "Get past the gate in GEMSTONE RIDGE by fighting 4+ times in Cryseria Tavern!"
PRINT "IN DAROV, Type 'qwert' to get to the last battle. . . BUT you won't see the end!"
DO
LOOP WHILE INKEY$ = ""
END IF
END IF
RETURN

upstairs:
DO
CLS
PRINT "YOU ENTER THE UPSTAIRS OF THE CASTLE!!!!!"
PRINT "WHERE DO YOU WANT TO GO!!!???"
PRINT "(o)uter lair, (d)ownstairs, (s)hrine of darkness, (i)nventory, (r)est?"
INPUT upe$
IF upe$ = "r" THEN
PRINT "YOU GAIN FULL LIFE!"
uhit = maxhit
END IF
IF upe$ = "o" THEN GOSUB outerlair
IF upe$ = "d" THEN RETURN
IF upe$ = "i" THEN GOSUB inventory
IF upe$ = "s" THEN
DO
CLS
PRINT "YOU ENTER THE GREAT SHRINE OF DARKNESS!!!"
PRINT "(s)earch for items, (e)xit"
INPUT shr$
IF shr$ = "t" AND maybe <> 1 THEN
PRINT "YOU FOUND A WHOLE SH*T LOAD OF GOLD!!!"
tgold = tgold + 1000
maybe = 1
END IF
IF shr$ = "e" THEN EXIT DO
IF shr$ = "s" THEN
sear = INT(RND * 100) + 1
IF sear <= 15 AND roley < 10 THEN
roley = roley + 1
PRINT "YOU FIND 2 SUPER POTIONS!!!!!!"
supo = supo + 2
END IF
IF sear > 15 AND sear <= 30 AND roley < 10 THEN
roley = roley + 1
PRINT "You find 3 potions!"
howmany = howmany + 3
END IF
IF sear < 30 AND roley >= 10 THEN PRINT "You find NOTHING!!!"
IF sear > 30 AND sear <= 60 THEN PRINT "You find NOTHING!!!"
IF sear > 60 AND rool >= 6 THEN PRINT "You find NOTHING!!!"
IF sear > 60 AND rool < 6 THEN
badbad = INT(RND * 4) + 1
IF badbad = 1 THEN bad$ = "Horrid Evil Knight"
IF badbad = 2 THEN bad$ = "Dragon"
IF badbad = 3 THEN bad$ = "Dracolich"
IF badbad = 4 THEN bad$ = "Shadow Ninja"
rool = rool + 1
GOSUB battle
END IF
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP

'How are ya?  Played the game and sent the fee yet?

outerlair:
badbad = 1
DO
IF badbad = 1 THEN bad$ = "Shadow Ninja"
IF badbad = 2 THEN bad$ = "Horrid Evil Knight"
IF badbad = 3 THEN bad$ = "Dracolich"
badbad = badbad + 1
GOSUB battle
LOOP UNTIL badbad > 3
DO
CLS
PRINT "YOU ARE IN THE OUTER LAIR OF THE BEHEMOTH!!!!  WHAT ARE YOU GOING TO DO?"
PRINT "(r)est, (i)nner lair, (l)eave room, in(v)entory?"
INPUT outl$
IF outl$ = "r" THEN
PRINT "YOU GAIN FULL LIFE!!!"
uhit = maxhit
DO
LOOP WHILE INKEY$ = ""
END IF
IF outl$ = "l" THEN RETURN
IF outl$ = "v" THEN GOSUB inventory
IF outl$ = "i" THEN
badbad = 1
GOSUB Inner
END IF
LOOP

Inner:
CLS
bad$ = "Iron Golem"
GOSUB battle
IF a$ = "r" THEN RETURN
datar$ = "YOU ARE IN THE INNER LAIR!!!  THE BEHEMOTH IS AROUND THE CORNER!!!"
FOR x = 1 TO LEN(datar$) + 10
LOCATE 1, 1
PRINT LEFT$(datar$, x)
FOR y = 1 TO qwert
NEXT y
SOUND 15 * 10, .3
NEXT x
PLAY "Mb L4 o0aal6al4ao1co0l6bl4bl6al4al6a-l4a"
DO
CLS
PRINT "WHAT DO YOU WANT TO DO???!?!?!??!!!?!?!?!??!!?!?!?!!!?!?!"
PRINT "(r)est, (f)lee to outer lair, (g)o around corner, (i)nventory?"
INPUT inn$
IF inn$ = "r" THEN
uhit = maxhit
PRINT "YOU GAIN FULL LIFE!"
END IF
IF inn$ = "f" THEN RETURN
IF inn$ = "i" THEN GOSUB inventory
IF inn$ = "g" THEN
CLS
PRINT "YOU ENTER THE BEHEMOTH'S PERSONAL CHAMBERS!  THE BEHEMOTH CHARGES FORWARD!"
DO
LOOP WHILE INKEY$ = ""
bad$ = "BEHEMOTH"
GOSUB battle
GOSUB endofgame
END IF
DO
LOOP WHILE INKEY$ = ""
LOOP

map:
PRINT "      /\/\/\/\/\/\                       KEY"
PRINT "      /\M-------G /\                   D = Darov"
PRINT "      /\/\/\/\/\| /\                   C = Cryseria"
PRINT "                | /\                   G = Gemstone Ridge"
PRINT "      D----C---/  /\/\                 M = Magistica Armor"
PRINT "        \  |      /\/\/\/\/\           F = Forest of Evil"
PRINT "          \Foooooooooooooo/\           E = Eric's town"
PRINT "          oooooooooooooooo/\           L = Castle of Darkness"
PRINT "          oooooooooooooooo/\           R = Red room"
PRINT "          oooooooooooooooo/\           B = Black room"
PRINT "             |    B /\/\/\/\           U = Upstairs"
PRINT "            / \  /                     S = Shrine of Darkness"
PRINT "           E   L----U--O--I-W          O = Outer Lair"
PRINT "          /   / \    \                 I = Inner Lair"
PRINT "         /   |   R    S                W = BEHEMOTH"
PRINT "        H     \                        H = Hidden Stash"
PRINT "               \--?                    --/|\ = Road"
PRINT "                                       ooo = Forest"
PRINT "                                       /\ = Mountains"
DO
LOOP WHILE INKEY$ = ""
RETURN

endofgame:
CLS
IF rang <> 1 AND magipot <> 1 THEN
z = 0
FOR x = 1 TO qwert * 4
COLOR z
z = z + 1
IF z = 15 THEN z = 1
LOCATE 13, 10
PRINT "YOU HAVE SAVED THE PRINCESS!!!  SHE IS FOREVER GREATFUL TO YOU!!!!"
NEXT x
y = 0
DO
PLAY "Mb l16o1aadedafdedadedagdeggebdg>c<be>C<bg>C<be>C<adb>C<ebg>C<bagb>C<eg>C<bdg>C<ag>C<c>C<egb>C<ag>c<beg"
y = y + 1
LOOP UNTIL y = 2
PLAY "o0 l4gggl2g"
COLOR 7
PRINT "YOU HAVE SAVED THE WORLD OF XEN!!!!  Too bad you didn't get a ring"
PRINT "to marry the princess!  She's also upset because of her dead father."
PRINT "You do become her best friend, though."
DO
LOOP WHILE INKEY$ = ""
GOSUB ver
END IF
IF rang = 1 AND magipot <> 1 THEN
FOR x = 1 TO qwert * 2
COLOR z
z = z + 1
IF z = 15 THEN z = 1
LOCATE 13, 10
PRINT "YOU HAVE SAVED THE PRINCESS!!!  SHE IS FOREVER GREATFUL TO YOU!!!!"
NEXT x
y = 0
z = 0
PLAY "Mb l16o1aadedafdedadedagdeggebdg>c<be>C<bg>C<be>C<adb>C<ebg>C<bagb>C<eg>C<bdg>C<ag>C<c>C<egb>C<ag>c<beg"
PLAY "Mbaadedafdedadedagdeggebdg>c<be>C<bg>C<be>C<adb>C<ef>D<af>D<fga>D<aef>D<aeaf>D<afgc>D<d>d<af>C<cd>C<efa>C<ega>c<"
COLOR 7
PRINT "YOU HAVE SAVED THE WORLD OF XEN!!!  YOU FOUND A DIAMOND RING AND YOU GIVE"
PRINT "IT TOO THE PRINCESS!!  YOU MARRY HER AND BECOME THE NEW KING!!!! Too bad"
PRINT "her father was killed, but you help her feel better, (heh heh heh)."
DO
LOOP WHILE INKEY$ = ""
GOSUB ver
END IF
IF rang <> 1 AND magipot = 1 THEN
z = 0
FOR x = 1 TO qwert * 2
COLOR z
z = z + 1
IF z = 15 THEN z = 1
LOCATE 13, 10
PRINT "YOU HAVE SAVED THE PRINCESS!!!  SHE IS FOREVER GREATFUL TO YOU!!!!"
NEXT x
COLOR 7
y = 0
z = 0
PLAY "Mb l16o1aadedafdedadedagdeggebdg>c<be>C<bg>C<be>C<adb>C<ebg>C<bagb>C<eg>C<bdg>C<ag>C<c>C<egb>C<ag>c<beg"
PLAY "Mbaadedafdedadedagdeggebdg>c<be>C<bg>C<be>C<adb>C<ef>D<af>D<fga>D<aef>D<aeaf>D<afgc>D<d>d<af>C<cd>C<efa>C<ega>c<"
PRINT "YOU HAVE SAVED THE WORLD OF XEN!!!  YOU BROUGHT THE KING BACK TO LIFE!!"
PRINT "THAT MAGIC POTION WAS REALLY HELPFUL!!!  Too bad you didn't find a good ring"
PRINT "so you could MARRY the princess!  You become her best friend!"
DO
LOOP WHILE INKEY$ = ""
GOSUB ver
END IF
IF rang = 1 AND magipot = 1 THEN
z = 0
FOR x = 1 TO qwert * 2
COLOR z
z = z + 1
IF z = 15 THEN z = 1
LOCATE 13, 10
PRINT "YOU HAVE SAVED THE PRINCESS!!!  SHE IS FOREVER GREATFUL TO YOU!!!!"
NEXT x
y = 0
z = 0
PLAY "Mb ms l16 o1 adefadeaeafeagefadegfadegfadeagfe>C<ae>C<e>C<ea>C<da>C<dbababdeabdebaeb"
PLAY "Mb ms l16 o1 >C<ae>C<e>C<ea>C<da>C<d>d<a>d<a>d<d>d<de>d<ae>d<d>d<a>d<a>d<dea>c<de>C<a>c<e"
PLAY "mb  l16 bbbeeeebb>ccc<l4b"
PLAY "mb o3 l32ecacecacecacecacecacecacecacecabebabebabebabebacecacecacecacecac MB L32 o3ffgfea>aaebecb>caefb<ba<baabccde>ged<acfed<adbde<a>>l16c"
DO
CLS
COLOR poiu
poiu = poiu + 2
IF poiu = 8 THEN poiu = 2
LOCATE 10
PRINT "YOU SAVED THE WORLD OF XEN AND GOT THE BEST ENDING!!!!!!!  YOU SAVED THE"
PRINT "PRINCESS, REVIVED THE KING WITH YOUR POTION OF LIFE AND MARRIED THE PRINCESS"
PRINT "WITH THE DIAMOND RING YOU GOT HER!!!  THE GREAT XEXUS HAS FALLEN!"
PRINT "YOU ARE AN AWESOME PLAYER!!!!!!!!!!!!!!!!!!"
LOOP WHILE INKEY$ = ""
DO
LOOP WHILE INKEY$ = ""
GOSUB ver
END IF

'Versions are cool!

ver:
SCREEN 0
DO
LOOP WHILE INKEY$ = ""
CLS
COLOR 12
PRINT "ALPHA VERSION 1.0 "
COLOR 8
PRINT "(SHAREWARE LIKE) ONLY COULD GO TO DAROV AND CRYSERIA!"
PRINT
COLOR 12
PRINT "ALPHA VERSION 2.0 "
COLOR 8
PRINT "THE BASIC OUTLINE OF THE GAME!  NOT MUCH SOUNDS.  LITTLE COLOR!"
PRINT
COLOR 12
PRINT "ALPHA VERSION 2.2"
COLOR 8
PRINT "BATTLE MORE REAL WITH ARMOR.  POTIONS ADDED.  SOME ERRORS FIXED"
PRINT
COLOR 12
PRINT "ALPHA VERSION 2.3"
COLOR 8
PRINT "ENDING ERROR AND OTHER ERRORS FIXED!!!"
PRINT
COLOR 12
PRINT "ALPHA VERSION 2.4"
COLOR 8
PRINT "MORE ERRORS ADDED TO BE FIXED!!!"
PRINT
COLOR 23
PRINT "REMEMBER, the force will be with you. . . . always."
PRINT
DO
LOOP WHILE INKEY$ = ""
CLS

'Centering uses 40 - the length of the string
COLOR 12
t$ = "CREATOR"
y$ = "DAVE (CHEECH!) BOCHICHIO"
q$ = "ALPHA TESTERS!"
w$ = "Josh (THE GERSH) Gershman"
e$ = "Andy Schober"
r$ = "Matt Heiser"
u$ = "Steve (CHIA) Chicherchia"
LOCATE 1, (40 - (LEN(t$) / 2))
PRINT t$
COLOR 20
LOCATE 3, (40 - (LEN(y$) / 2))
PRINT y$
COLOR 11
LOCATE 6, (40 - (LEN(q$) / 2))
PRINT q$
COLOR 15
LOCATE 7, (40 - (LEN(w$) / 2))
PRINT w$
COLOR 10
LOCATE 8, (40 - (LEN(e$) / 2))
PRINT e$
COLOR 9
LOCATE 9, (40 - (LEN(r$) / 2))
PRINT r$
COLOR 13
LOCATE 10, (40 - (LEN(u$) / 2))
PRINT u$
END