'C:\Program Files\Liberty BASIC v3.03\bak\dungeonhunter.bak - Saved by Liberty BASIC
'before running. You should delete these lines and save
'this file as a *.BAS file before using.
'-----------------------------------------------------

1 GOSUB 5:areat=10:xp2=5:clvl=1:wxp2=10:mmaxchange=1:mmaxdescr$=" ":w$="Sword":xxxrollxxx=2:kia1=250:arc=75:catt=1:cmax=10:cmin=1:w=1:it1=3:g=150:iq=100:str=5:con=5:dex=5:rc$="Human":iq1=iq:str1=str:con1=con:dex1=dex:lvmod=0:GOSUB 901355:GOTO 10
2 REM GOTO 176
5 GOSUB 198:GOSUB 198:GOSUB 198:GOSUB 198:PRINT:PRINT:PRINT "                                                             ::::::::::::::::::::::: DUNGEON HUNTER ::::::::::::::::::::::":PRINT:PRINT:PRINT:GOSUB 198:GOSUB 198:GOSUB 198:GOSUB 198:RETURN
10 print "   Welcome"
20 print "   Which of the Following would you Like to do?"
30 print "   1)  Play"
40 print "   2)  Get Help/Information on the Game"
50 print "   3)  Quit"
60 print "   (1-3)  ";: input a
62 if a = 1 then goto 100
64 if a = 2 then goto 200
66 if a = 3 then print:print "Seeya Later!":end
70 print "Please pick a number between 1-3...":goto 60
100 print:print "::::::::Ok.  Let's Play!::::::::::":print "Make sure this screen is maximized, capslock is on,":print "and for best results use Arial Unicode MS under Setup > Editor Font"
102 gosub 199:gosub 198
110 print: print " 1    The first thing you want to do is Place Points in your stats.":print "You can place them anywhere in any way you see fit, and remember you can always reset them by typing 100."
112 i=int(rnd(1)*3)+16:i1=i:print:print "::: You have ";i;" points to place in the following Skills:":Print " STR - Strength   INT - Intelligence   DEX - Dexterity   CON - Constitution"
113 goto 148
114 if i1=0 then 145
115 print:print "     1) Strength"
116        print "     2) Intelligence"
117        print "     3) Dexterity"
118        print "     4) Constitution"
119 Print "::::::::(Points = ";i1;")  Which Score Would you like to raise? (1-4)";:input a
120 if a=1 then sco$="STR":atr=1:goto 125
121 if a=2 then sco$="INT":atr=2:goto 125
122 if a=3 then sco$="DEX":atr=3:goto 125
123 if a=4 then sco$="CON":atr=4:goto 125
124 print:print "Choose 1-4":Goto 113
125 print:print " How many points would you like to place in ";sco$;"?":print "     (0 to cancel, 100 to Reset the Score)";:input p
126 if p =100 then print:print "You have reset the ";sco$;" score.":goto 138
127 if p>i1 then print:print "Not Enough Points.  You have ";i1;" Points":goto 125
128 if p = 0 then Goto 113
129 if atr=1 then strx=strx+p:i1=i1-p:h=0:gosub 135:Goto 113
130 if atr=2 then iqx=iqx+p:i1=i1-p:h=0:gosub 135:Goto 113
132 if atr=3 then dexx=dexx+p:i1=i1-p:h=0:gosub 135:Goto 113
134 if atr=4 then conx=conx+p:i1=i1-p:h=0:gosub 135:Goto 113
135 print:print ":::: STR = ";str+strx;" (+";strx;")  INT = ";iq+iqx;" (+";iqx;")   DEX = ";dex+dexx;" (+";dexx;")   CON = ";con+conx;".  (+";conx;") ::::::::"
136 return
138 if atr=1 then i1=i1+strx:str=(str+strx)-strx:strx=0:gosub 135:Goto 113
140 if atr=2 then i1=i1+iqx:iq=(iq+iqx)-iqx:iqx=0:gosub 135:Goto 113
142 if atr=3 then i1=i1+dexx:dex=(dex+dexx)-dexx:dexx=0:gosub 135:Goto 113
144 if atr=4 then i1=i1+conx:con=(con+conx)-conx:conx=0:gosub 135:Goto 113
145 print:print ":::::: You have used all your points.":gosub 135:print:print " Is this Acceptable? (Y/N)";:input a$:if a$="Y" then str=str+strx:iq=iq+iqx:dex=dex+dexx:con=con+conx:str1=str1+strx:iq1=iq1+iqx:dex1=dex1+dexx:con1=con+conx:GOSUB 5600: GOTO 150
146 if a$="N" then print:print "::: Go back and type 100 to reset your scores to what you would like then.":h=1:goto 113
147 goto 145
148 if h=1 then goto 115
149 goto 114
150 if qqq=1 then qqq=0:return
152 Print:print "Great!  The First Step is over.":gosub 199:gosub 198
155 n=4:Print:Print " 2    Step 2 is to Choose a Race:"
156       print "  1) Human         (Adjustment:  none)"
157       print "  2) Gwarve        (Adjustment:  +5 hp per level, +2 STR, -2 INT, -2 DEX)"
158       print "  3) Forest Elf     (Adjustment:  +3 AGI, -2 STR, -1 CON)"
160       print "  4) Ograna         (Adjustment:  +10 hp per level, -10 mp per level)"
161       print "  5) Mind Flayer   (Adjustment:  +10 mp per level, -10 hp per level)"
162       print:print "::::::: Consider the adjustments carefully when making your character."
164       print ":::::: Please choose (1-5)";:input a
166 if a=1 then rc$="Human":lvmod=0:print:PRINT ":::::: You have choosen Human.":GOSUB 199:goto 176
168 if a=2 then rc$="Gwarve":lvmod=1:print:PRINT":::::: You have choosen Gwarve.":GOSUB 199:goto 176
169 if a=3 then rc$="Forest Elf":lvmod=2:print:PRINT  ":::::: You have choosen Forest Elf.":GOSUB 199:goto 176
170 if a=4 then rc$="Ograna":lvmod=3:print:PRINT  ":::::: You have choosen Ograna.":GOSUB 199:goto 176
172 if a=5 then rc$="Mind Flayer":lvmod=4:print:PRINT  ":::::: You have choosen Mind Flayer.":GOSUB 199:goto 176
175 goto 164
176 n=n-1:hp=int(rnd(1)*20)+30+con:mp=int(rnd(1)*10)+20
177 if lvlmod =1 then hp=hp+5:str=str+2:int=int-2:dex=dex-2
178 if lvlmod=2 then agi=agi+3:str=str-2:con=con-1
179 if lvlmod=3 then hp=hp+10:mp=mp-10:if mp <0 then mp =0
180 if lvlmod=4 then mp=mp+10:hp=hp-10:if hp<0 then hp=0
181 thp=hp:tmp=mp:tmp=tmp-mpx:mp=mp-mpx:ismp2=ismp1*.01:mpx=int(tmp*ismp2):tmpis=tmp:tmp=tmp+mpx:mp=mp+mpx:thp=thp-hpx:hp=hp-hpx:ishp2=ishp1*.01:hpx=int(thp*ishp2):thpis=thp:thp=thp+hpx:hp=hp+hpx:ishp3=ishp1:ismp3=ismp1:if n<3 then 183
182 PRINT:print " 3    Rolling Hit Points and Magic Points.....":gosub 199
183 print:print "::::::::::: HPS= [ ";hp;"/";thp;"]  :::::::::::::: MPS= [ ";mp;"/";tmp;"]  :::::::::::::::":if n=0 then 188
184 print:print "  Would you like to reroll HPs and MPs? (";n;" rerolls left) (Y/N)";:input a$:if a$="Y" then 176
185 IF a$="N" then 188
186 goto 184
188 gosub 198:tmp=mp:thp=hp:print:print " 4    What would you like to name your Character?";:input nm$:IF nm$="" then 188
189 print:print ":::::::::::::::::: Congradulations you have created your Character!":print":::::::::::::::::: Welcome, ";nm$;", to Dungeon Hunter."
190 gosub 199:gosub 198:goto 300
198 print "**************************************************************************************************************************************************************************":return
199 Print:print "[][][]:::: Please Press Enter";:input R$:return
200 print:print "Help/Rules/Information":end
300 gosub 198:print:print " 5    Please Choose a Difficulty Level.":PRINT
302       print "     Level                         Amount Needed to Win"
304       print "  1) Alcolyte                    10.000.000 (ten million)"
305       print "  2) Underling                   50.000.000 (fifty million)"
307       print "  3) Master                     100.000.000 (one hundred million)"
308       print "  4) Veteran                    500.000.000 (five hundred million)"
309       print "  5) Slayer                    1.000.000.000 (one billion)"
310       print "  6) Knight Master        50.000.000.000 (fifty billion)"
311       print "  7) Sword Master       500.000.000.000 (five hundred billion)"
312       print "  8) Grand Master      100.000.000.000.000 (one hundred trillion)"
314       print "  9) Arch-Diety         500.000.000.000.000 (five hundred trillion)"
315       print "  10) Almighty      500.000.000.000.000.000 (five hundred gajillionbillionzillion)"
320 print:print "::: Which level of difficulty would you like (ie, amount of money needed to win) (1-10)";:input a:if a=1 then tn=10000000:GOTO 333
321 if a=2 then  tn=        50000000:goto 333
322 if a=3 then  tn=       100000000:goto 333
323 if a=4 then  tn=       500000000:goto 333
324 if a=5 then  tn=      1000000000:goto 333
325 if a=6 then  tn=     50000000000:goto 333
326 if a=7 then  tn=    500000000000:goto 333
327 if a=8 then  tn=  100000000000000:goto 333
328 if a=9 then  tn=500000000000000:goto 333
329 if a=10 then tn=500000000000000000:goto 333
330 goto 320
333 str1=str:int1=int:con1=con:dex1=dex:print:GOSUB 198:print "|| Your current Stats:"
334 Print "|| Name: ";nm$:print "|| Race: ";rc$
335 GOSUB 198:print:print ":::: STR = ";str;" (+";strx;")  INT = ";iq;" (+";iqx;")   DEX = ";dex;" (+";dexx;")   CON = ";con;".  (+";conx;")"
336 print:GOSUB 198:print "|| Your Hit Points are       ";hp
337 print        "|| Your Magic Points are  ";mp
338 print:print "|| You need ";tn;" Gold to win.":GOSUB 198
339 GOSUB 199:PRINT:gosub 198:GOSUB 198
340 print "*  You begin your journey in the beautiful city of Krynn.  Here you may buy many upgrades":print "*  for your armor and weapons, bank your gold in a safe place, buy spells and healing items, sell gems and jewelry,"
345 print "*  learn more about your quest/things you can do around the area, or visit the king when you have":print "*  enough money to win the game.  You may type STAT at any time to see your current status.":print:print "Once you are feeling confident, visit the Training Grounds at the Castle to learn how to fight!":tg=1:GOSUB 198:GOSUB 199:gosub 2919:gosub 199:cls
350 city=1:gosub 2700
352 PRINT:GOSUB 198:PRINT "::::::::::::::::::::::::::::: THE CITY OF KRYNN ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::":GOSUB 198:GOSUB 198:print ":::: From here you may do the following:":if kw = 1 then c$="**The King Requests your audience.  Please see him at once!**":goto 355
353 c$="**Visit the Castle Grounds**"
355 print "[I]       Go to the Inn                                              **Heal yourself and get Better**"
357 print "[W]     Go to the Weapons and Armor Shop           **Buy Armor and Weapon Upgrades**"
359 print "[M]     Go to the World o' Magic                            **Buy Spells, Healing Items and Magic Items**"
360 print "[J]      Go to the Jeweler                                      **Sell your Gems and Jewels**"
361 print "[B]     Go to the Krynn Bank                                **Bank Your Gold to Keep it Safe**"
362 print "[TA]   Go to the Tavern                                       **Hear Rumors and Be Merry**"
363 print "[TR]   Go To the Trader's Emporium                     **Buy/Sell Trade Items**"
364 print "[CA]   Go to the Castle                                        ";c$
366 print "[L]      Leave the City of Krynn                             **Head towards the Caverns of Despair**"
367 if g=0 and acc=0 then print "[X]      Beg!                                                        **Beg For Money**"
368 GOSUB 198:print "::HP = ";hp;"/";thp;" :: MP = ";mp;"/";tmp;" :: Gold = ";g;" :: Gems = ";gem1;" :: Jewels = ";jwl1;" :: Gold In Bank = ";acc;"  ::  type STAT for more info.":gosub 198:print:print "Which do you want to do (I, W, M, J, B, TA, TR, C, L)";:Input a$
370 gosub 1000
372 if a$="I" then a=1+int(clvl/4):print:print "You go to the Inn!":gosub 2604:areat=1:GOTO 350
373 if a$="TR" then GOSUB 3000:areat=2:GOTO 350
374 if a$="W" then GOSUB 3150:areat=3:GOTO 350
376 if a$="M" then areat=4:goto 3802
378 if a$="J" then GOSUB 2955:areat=5:GOTO 350
379 if a$="B" then gosub 2620:areat=6:GOTO 350
380 if a$="TA" then areat=7:goto 3550
381 if a$="X" then GOSUB 10325
382 if a$="CA" then areat=8:goto 430
384 if a$="L" then print "You leave the city of Krynn.":goto 400
385 rkrkrkr=1:cls:goto 352
400 areat=9:city=0:gosub 2700
401 GOSUB 198:print:print "You are now standing outside the City of Krynn.":PRINT "You may [E]nter the City, go [N]orth to the Dryth Forest,":PRINT "or go [S]outh to the Caves of Despair."
402 print:print "Which way? (E, N, S)";:input a$:gosub 1000
404 if a$="E" then PRINT:print "You enter Krynn.":PRINT:GOSUB 198:GOSUB 199:CLS:areat=10:goto 350
406 if a$="S" then pRINT:print "You head South!":PRINT:GOSUB 198:GOSUB 199:goto 410
408 if a$="N" then pRINT:print "You head for the Forest!":PRINT:GOSUB 198:GOSUB 199:goto 20100
409 goto 401
410 cls:gosub 20000:gosub 2700
411 areat=0:areax=1:print:GOSUB 198:print "You have arrived at the Caves of Despair.  Bones scatter the ground, both human and otherwise.":GOSUB 198
412 print:print "Do you want to enter? (Y/N)";:input a$:if a$="Y" then 300750
414 if a$ ="N" then print "Then you head back to Krynn.":gosub 199:cls:goto 400
415 gosub 1000
416 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then 420
417 goto 412
420 if srch1=1 then 412
421 print "......but then, as you are looking around, you find a beautiful gemstone inside one of the skulls.":print:print ":::: You have found a Beautiful Onyx!  You add it to your pack.":gem1=gem1+1:gem=gem+int(rnd(1)*100)+250:srch1=1:goto 412
430 city=0:areat=11:cls:gosub 198:print "   :::: The Castle of Krynn ::::":gosub 198:mh=8:mlw=1
431 gosub 2700:print:print "Ornately carved pillars raise majestically to the high ceilings, while red silk hangings fall it.  Beautifully "
432 print "crafted oak and mahogany furniture line the walls.  Portraits of Kings come and gone adorn the wall leading"
433 PRINT"towards the kings chambers.  Gold torches jut from the pillars to light the way.  A deep, thick red":print "carpet leads you south, but there are passageways to the east and west as well.":gosub 5385
434 gosub 198:if kw=1 then print:print "An alcolyte rushes up to you and says frantically, 'The King wishes to see you right away sir!":print "Please go to the Kings Chamber at once!!'"
435 if tg=1 then tg=0:print:print "A passing alcolyte thinks you may be lost and tells you that you may go either East or West to reach the Training Grounds,":print "or South to meet the King.  He then skips off merrily..."
436 print:print "Which way would you like to go:":print "[S]outh towards the Kings Chamber, [W]est, [E]ast, or [L]eave the Castle of Krynn.";:input a$:gosub 1000
437 if a$="S" then 600
438 if a$="L" then areat=8:GOSUB 199:CLS:goto 350
440 if a$="W" then 445
442 if a$="E" then 475
443 if a$="T" and area1=1 and area2=0 then gosub 5400
444 goto 435
445 print:print "You come to a small room with a door leading outside.  A single guard stands at the door.":if w=0 and wsucks=0 then print:print "The guard stops you and says, 'Halt!  You don't even have a weapon!'  He grabs a rusty sword from":print "a barrel in a storage room, and hands it to you.  'You can't get enchantments on it, but it'll do until you save up enough to get a real one, or find one....'":wsucks=1:w$="Rusty Sword":cmax=8:cmin=1:wxp2=10:wxp1=0
447 print "Do you want to go [E]ast towards the Main Hall, [O]utside, or [T]alk to the guard?";:input a$:gosub 1000
448 if a$="E" then 431
450 if a$="O" then nwebie=1:goto 590
452 if a$="T" then 456
454 goto 447
456 print:print "'What ye want to know?'":print "1.  Where does this doorway lead?":print "2.  Why must you guard this door?":print "3.  Where is the King at?"
458 print "(1-3, 0 for 'Nevermind')";:input a:if a=1 then 468
460 if a=2 then 470
462 if a=3 then 472
464 if a=0 then print:print "'Nevermind.'":goto 447
466 goto 456
468 print:print "'This door leads to the Outer Courts, which has become a make-shift Training grounds I guess you could say.  I wouldnt go out there,":print "you dont look like much of a fighter and the monsters out there will eat you alive!'":goto 456
470 print:print "'I guard it to keep the monsters from the Outer Courts from entering the Castle.  Any person with an iq of 5 or more could have":print "figured that one out.  I wonder if the King knows what kind of idiot he's hired....'":goto 456
472 print:print "'The King resides in the King's Chamber.  I mean, its pretty easy to put 2 and 2 together when you are looking for a king":print "and theres a room entitled, 'Kings Chamber.'  I mean seriously, how dumb are you?'":goto 456
475 print:print "You come to a small room with a door leading outside.  A single guard stands at the door.":if w=0 and wsucks=0 then print:print "The guard stops you and says, 'Halt!  You don't even have a weapon!'  He grabs a rusty sword from":print "a barrel in a storage room, and hands it to you.  'You can't get enchantments on it, but it'll do until you save up enough to get a real one, or find one....'":wsucks=1:w$="Rusty Sword":cmax=8:cmin=1:wxp2=10:wxp1=0
477 print "Do you want to go [W]est towards the Main Hall, [O]utside, or [T]alk to the guard?";:input a$:gosub 1000
478 if a$="W" then 431
480 if a$="O" then newbie=1:goto 505
482 if a$="T" then 486
484 goto 477
486 print:print "'What ye want to know?'":print "1.  Where does this doorway lead?":print "2.  Why must you guard this door?":print "3.  Where is the King at?"
488 print "(1-3, 0 for 'Nevermind')";:input a:if a=1 then 498
490 if a=2 then 500
492 if a=3 then 502
494 if a=0 then print:print "'Nevermind.'":goto 447
496 goto 486
498 print:print "'This door leads to the Outer Courts, which has become a make-shift Training grounds I guess you could say.  I wouldnt go out there,":print "you dont look like much of a fighter and the monsters out there will eat you alive!'":goto 486
500 print:print "'I guard it to keep the monsters from the Outer Courts from entering the Castle.  Any person with an iq of 5 or more could have":print "figured that one out.  I wonder if the King knows what kind of idiot he's hired....'":goto 486
502 print:print "'The King resides in the King's Chamber.  I mean, its pretty easy to put 2 and 2 together when you are looking for a king":print "and theres a room entitled, 'Kings Chamber.'  I mean seriously, how dumb are you?'":goto 486
505 areat=0:areax=2:mh=9:mlw=1:gosub 3700
510 gosub 2700:GOSUB 198:print "This is a beautiful orchid of yellow and white flowers.  White marble statues adorn either side of the path.  There is a door to the Castle":print "here.  Birds and woodland creatures can be heard in the distance.":GOSUB 198
512 print:print "Do you want to [EN]ter the Castle, or go [E]ast";:input a$:gosub 1000
514 if a$="EN" then newbie=0:goto 475
516 if a$="E" then 520
518 goto 512
520 gosub 3700
522 gosub 2700:GOSUB 198:print "Here you come to a large marbel pedestal with stairs leading to the top.  It is black as night and had red symbols etched into it.":print "Torches line the path leading up to the shrine, but there is nothing of value that you can see.":GOSUB 198
523 print:print "Do you want to go [S]outh, or go [W]est";:input a$:gosub 1000
524 if a$="S" then 530
526 if a$="W" then 505
528 goto 523
530 gosub 3700
532 gosub 2700:GOSUB 198:print "A large seashell statue stands next to a star shape pond.":print "You see little fish swimming around in the pond.":GOSUB 198
533 print:print "Do you want to go [S]outh, or go [N]orth, or go [W]est";:input a$:gosub 1000
534 if a$="S" then 540
535 if a$="W" then 560
536 if a$="N" then 520
538 goto 533
540  gosub 3700
542 gosub 2700:gosub 10705:GOSUB 198:print "'Hero's Row' reads the plaque.  Many large statues that looked as if they were":print "once great now lay tumbled over and desecrated.":GOSUB 198
543 print:print "Do you want to go [N]orth, or go [W]est";:input a$:gosub 1000
544 if a$="N" then 530
546 if a$="W" then 550
548 goto 543



550 areat=0:areax=2:mlw=1:mh=9:if clvl>7 then 5000
551 gosub 3700
552 gosub 2700:GOSUB 198:print "Large Pillars surround several apple trees here.  A spherical slab made out of pearl":print "lays shimmering on the ground in the center of it all.":GOSUB 198
553 print:print "Do you want to go [N]orth, or go [W]est, or go [E]ast";:input a$:gosub 1000
554 if a$="N" then 560
555 if a$="E" then 540
556 if a$="W" then 570
558 goto 553



560 gosub 3700
562 gosub 2700:gosub 10702:GOSUB 198:print "Here is a large pond.  Many crawfish and eel-like creatures swim about within.":print "Trees and bushes line the pond, trimmed to magnificence.":GOSUB 198
563 print:print "Do you want to go [S]outh, or go [W]est, or go [E]ast";:input a$:gosub 1000
564 if a$="S" then 550
565 if a$="E" then 530
566 if a$="W" then 580
568 goto 563
570 gosub 3700
572 gosub 2700:gosub 10707:GOSUB 198:print "There are many benches here.  You hear birds calling in the distance.":GOSUB 198
573 print:print "Do you want to go [N]orth, or go [E]ast";:input a$:gosub 1000
574 if a$="N" then 580
576 if a$="E" then 550
578 goto 573
580 gosub 3700
582 gosub 2700:GOSUB 198:print "There are many murals hanging from a wall here depicting scenes of a glorious":print "battle.  Many have been shredded and/or otherwise destroyed.":GOSUB 198
583 print:print "Do you want to go [S]outh, go [N]orth, or go [E]ast";:input a$:gosub 1000
584 if a$="S" then 570
585 if a$="E" then 560
586 if a$="N" then 590
588 goto 583
590 mlw=1:mh=1:areat=0:areax=2:gosub 3700
592 gosub 2700:GOSUB 198:print "Many blue and green flowers bloom here.  They smell like the sweetest perfume.":GOSUB 198
593 print:print "Do you want to go [EN]ter the Castle, or go [S]outh";:input a$:gosub 1000
594 if a$="EN" then newbie=0:goto 445
596 if a$="S" then 580
598 goto 593
600 gosub 198:gosub 198:PRINT:print "The thick red carpet leads up to an extraordinary throne woven of silver and platinum.  On it sits the king."
602 print:print "'Come closer, my subject.', he says in a deep, gentle voice.'"
604 print:print "What  would you like to do:"
606 print "1.  Report your earnings":print "2.   Leave the Kings Chamber."
608 print:print "Which one (1-2)";:input a:if a=1 then 622
610 if a=2 then 431
615 rem other stuff?
620 goto 608
622 if g<tn then print "'Yes, yes, you are doing quite well for our kingdom!  But you only have ";g;" Gold.":print "We need ";tn;" Gold to win!  Get out there and win more treasure in the name of Krynn!'":goto 604
624 print:print "Gold:  ";g;".  Amount Needed to Win:  ";tn: if won=1 then 632
625 print:gosub 198:print  "                             YOU HAVE WON THE GAME!!!":gosub 198
626 print "By all the holy forces of Krynn, you have done better than any man has ever dared to dream for our kingdom.":print "By all that is sacred, I grant the title of King to you:  ";nm$;"."
628 print "You have won the greatest of all contests, your name will be remembered in the books of yore as the most":print "important person to ever set foot in Krynn.  From the bottom"
630 print "of my heart, from the hearts of every man, woman and child, we thank thee.  You are a savior and a hero.":print "Bless thee for eternity, King ";nm$;"."
632 won=1:  print:print "You have already won the game, but you can continue on fighting if you wish.  When you are ready":print "to end your mighty quest, and begin your new life as King, come visit me again."
634 print:print "Would you like to [Q]uit or [C]ontinue? (Q,C)";:input a$:gosub 1000
636 if a$="Q" then 652
638 if a$="C" then print:print "You continue on your journey.":goto 506
640 goto 634
642 print:print "This will end the game.  Score is based on Gold in inventory only.  Are you sure you want to Quit (Y/N)";:input a$:gosub 1000
644 if a$="N" then a$="C":goto 638
646 if a$="Y" then 650
648 goto 642
650 rem end of game
652 cls:gosub 198:gosub 198: print "You grow old and grey as king of Krynn.  People celebrate your rule as if they would the birth of their child.":print "When you pass on, you are logged in the history books as the brightest, fastest,":PRINT "and greatest ruler ever to live in the Kingdom of Krynn."
654 score=thp+tmp+str+days+iq+dex+con+bank+clvl+lvl+(li*100000)
656 print:gosub 198   :print "Your Final Score:              :: ";score;" ::":gosub 198
658 if score >1000000  then rank$="Deity":goto 700
660 if score >100000    then rank$="Immortal":goto 700
662 if score >10000      then rank$="Hero":goto 700
664 if score >1000        then rank$="Beginner":goto 700
666 if score >100         then rank$="Loser":goto 700
668 if score >0          then rank$ ="O my god, dont ever play this game again you suck so bad!"
700 print:gosub 198  :print "Your final ranking:             :: ";rank$;" ::":gosub 198 :goto 3510

1000 if a$="stat" or a$="Stat" or a$="STAT" then gosub 9000
1001 if a$="qs" or a$="Qs" or a$="QS" then print:print ":::: HP:  ";hp;"/";thp;" :: MP:  ";mp;"/";tmp:print ":::: Str: ";str1;"/";str;" :: Int:  ";iq1;"/";iq;" :: Dex:  ";dex1;"/";dex;" :: Con:  ";con1;"/";con;" :: Gold = ";g;"."
1002 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then print:print "You look around for a bit but find nothing of value."
1003 IF a$="SLP" then print:print "You sleep for 10 days.":days=days+10:GOSUB 2707
1004 IF a$="THP" then thp=thp+10000:hp=thp:print "HP=";hp;"/";thp;"....."
1005 if a$="WEAPON" then cmin=cmin+50:cmax=cmax+50:print "Damage = ";cmin;"-";cmax;"."
1006 if a$="MOFF" then moff=1
1007 if a$="MON" then moff=0
1008 IF a$="DLVL" then dlvl=dlvl+60:ent=1
1009 if a$="HUTS" then 340210
1010 if a$="GSTAT" then trap3=1:exit1=0:exit2=0:exit3=0:exit4=0:exit5=0:exit6=0:exit7=0:exit8=0:GOTO 302400
1011 if a$="BSTAT" then trap3=2:exit1=0:exit2=0:exit3=0:exit4=0:exit5=0:exit6=0:exit7=0:exit8=0:gOTO 302400
1012 IF a$="STR" then str1=str1+1000
1013 IF a$="OUT" then 300750
1014 IF a$="TMP" then tmp=tmp+10000:mp=tmp:print "MP=";mp;"/";tmp;"......"
1015 IF a$="QH" then cls:gosub 9630
1016 if a$="PIT" then 302621
1017 if a$="LAIR" then 500340
1018 if a$="CELLS" then 340162
1019 IF a$="GOLD" then g=g+10000
1020 return


2599 Rem City Shit!
2600 Rem No Money!
2601 Print:Print "   You dont have enough money!  (Gold = ";g;".)":return
2604 Rem Inn!
2605 CLS:GOSUB 198:PRINT "::: The Cocksucker Inn":gosub 198:print:print "A little old man behind the counter says, 'Welcome to my humble Inn.'"
2606 PRINT:print "The price for you to stay here is ";a;" Gold Pieces.  Would you like to stay?":print "(Gold = ";g;") (Y/N)";:input a$
2607 if a$ = "Y" then 2614
2608 if a$ = "N" then print:print "   You leave the Inn.":GOSUB 199:CLS:return
2610 gosub 1000
2612 goto 2606
2614 if a>g then gosub 2601:a$= "N":goto 2608
2615 g=g-a: print:print "::: You have a very restful night and are fully recovered! :::::::";:a=thp-hp:b=tmp-mp:print "  ";a;" hp healed.  ";b;" mp healed.":hp=thp:mp=tmp
2617 Rem this line for more resets or whatever
2618 print "::: (Gold = ";g;" HP = ";hp;" MP = ";mp;")":print:print "   You gather your things and leave the Inn.":GOSUB 198:GOSUB 199:CLS:return
2620 Rem Banking!
2622 CLS:GOSUB 198:print "::: Welcome to the National Bank of Krynn.":GOSUB 198:print "We pride ourselves in our safe, secure banking system.":print "Here at the National Bank of Krynn, we put the customer above all other things.":if nbv<>1 then 2650
2623 print:print ":   Account Number XZX";accnum;"::":print "   Balance: ";acc;"    Current Gold:  ";g;"::"
2624 print:print ":::::: Would you like to [D]eposit Gold, [W]ithdraw Gold, or [L]eave?";:input a$:gosub 1000
2625 if a$="D" then 2630
2626 if a$="W" then 2636
2627 if a$="L" then 2643
2629 goto 2623
2630 print:print ":::::: How much would you like to deposit (0 to exit)";:input a
2632 if a=0 then 2623
2633 if a>g then gosub 2600:goto 2630
2635 g=g-a:acc=acc+a: print:print ":::::: You deposit ";a;" Gold in your account.":goto 2623
2636 print:print ":::::: How much would you like to withdraw (0 to exit)";:input a
2637 if a=0 then 2623
2639 if a>acc then print:print "   You dont have that much money in your account! (acc = ";acc;".)":goto 2636
2640 g=g+a:acc=acc-a:print:print "::: You withdraw ";a;" Gold from your account.":goto 2623
2643 print:print "   You leave the National Bank of Krynn.":GOSUB 198:CLS:return
2650 Rem First Time Banking
2655 print:print "'::: Greetings and Salutations, ";nm$;".'"
2656 a=int(rnd(1)*4)+1:if a=1 then x$="Shielna":goto 2660
2657 if a=2 then x$="Gordona":goto 2660
2658 if a=3 then x$="Dalia":goto 2660
2659 x$="Lacence"
2660 print "'My name is ";x$;", and i will be in your service today!":print "   You do not have an account here.'"
2662 PRINT:print "Would you like to open one?  The cost is a mere 100 Gold. (Y/N)";:input a$:if a$="N" then print:print "'I'm sorry, dear sir, but you must open an account for us to be of any service.  Have a wonderful day!'":print:print "   You have no choice but to leave.":GOSUB 199:CLS:return
2663 if a$="Y" then 2668
2665 if a$="status" or a$="Status" or a$="STATUS" then gosub 1000
2667 goto 2662
2668 if g<100 then gosub 2600:print:print "'I'm sorry, dear sir, but you must open an account for us to be of any service.  Have a wonderful day!'":print:print "   You have no choice but to leave.":GOSUB 199:CLS:return
2669 g=g-100:print:print x$;" hands you a little glowing ball etched in ruins.  'This is a BankBall.', she says.  'With it you will be able":print "to access your accounts in any city that we have a branch in."
2670 nbv=1:print:print "'Thank you for opening an account with us.  I'm sure you will find our services to be an Elfs Head above the Rest!'":accnum = int(rnd(1)*1000000000)+100000:goto 2623

2675 Rem Interest:: goes with timed events
2676 if x1=55 then 2678
2677 x1=x1+1:return
2678 x1=0:if acc>10000000000 then a=.0008:goto 2685
2679 if acc>1000000000 then a=.0007:goto 2685
2680 if acc>100000000 then a=.0006:goto 2685
2681 if acc>10000000 then a=.0005:goto 2685
2682 if acc>1000000 then a=.0004:goto 2685
2683 a=.0002
2685 acc1=int(acc*a):itr =itr +acc1:acc=acc+acc1:return



2700 Rem ::ALL TIMED EVENTS GO HERE:: x1=bank account interest,x3=chronostime,x4=time until weather check,x5=whether weather changes or not,days=days played,days1=when trader shop changes
2705 gosub 18090:gosub 2676:gosub 2800:gosub 5375:gosub 10000:GOSUB 600480:gosub 404850:if ins=1 and keysf=0 then lkfxx=lkfxx+1
2706 if ins=1 and stairsf=0 then lsfxx=lsfxx+1
2707 if days1<=days then x=days1-days:days1=days+(30-x): ctvv=1
2709 RETURN
2800 Rem Day/Night
2802 x3=x3+1:if ins=1 then wx$="Unknown":time$="Unknown"
2803 if x3=30 then 2806
2804 goto 2825
2806 if dn=1 then 2815
2807 a=int(rnd(1)*3)+1:if ins=1 then 2812
2808 if a=1 then print:print "[The moon sets and the sun begins to rise.]":light$="Sun":time$="[It is Daytime.]":time2$="[It is Daytime.]":goto 2812
2809 if a=2 then print:print "[The morning light vanquishes the night.]":light$="Sun":time$="[It is Daytime.]":time2$="[It is Daytime.]":goto 2812
2810 print:print "[Dawn arrives, the night fades.]":light$="Sun":time$="[It is Daytime.]":time2$="[It is Daytime.]"
2812 dn=1:x3=0:days=days+1:goto 2825
2815 a=int(rnd(1)*3)+1:if ins=1 then 2820
2816 if a=1 then print:print "[The sun sets beyond the mountains and a distant moon shines.]":light$="Moon":time$="[It is Nightime.]":time2$="[It is Nightime.]":goto 2820
2817 if a=2 then print:print "[The glimmering moon raises from the shadows to take the day light away.]":light$="Moon":time$="[It is Nightime.]":time2$="[It is Nightime.]":goto 2820
2819 print:print "[The darkness of the evening arrives, the daylight dwindles.]":light$="Moon":time2$="[It is Nightime.]":time$="[It is Nightime.]"
2820 dn=2:x3=0
2824 Rem Weather Changer
2825 x4=x4+1:if x4=x5 then 2838
2826 a=int(rnd(1)*15)+1:if a=1 then a=int(rnd(1)*2)+1:goto 2830
2828 return
2830 if weath=1 then 2880
2832 if weath=2 then 2884
2834 if weath=3 then 2888
2835 if weath=4 then 2892
2838 x5=int(rnd(1)*10)+15:if dn=1 then light$="Sun"
2839 if dn=2 then light$="Moon"
2840 a=int(rnd(1)*4)+1:if weath=1 then 2846
2842 if weath=2 then 2854
2844 if weath=3 then 2862
2845 if weath=4 then 2870
2846 if a=1 and ins=0 then print:print "[This rain knows no end!]":weath=1:gosub 2900:return
2847 if a=1 then weath=1:gosub 2900:return
2848 if a=2 and ins=0 then print:print "[The rain clears up and the ";light$;" begins to shine.]":weath=2:gosub 2900:return
2849 if a=2 then weath=2:gosub 2900:return
2850 if a=3 and ins=0 then print:print "[The rain stops but the dark cloud remains.]":weath=3:gosub 2900:return
2851  if a=3 then weath=3:gosub 2900:return
2852 if ins=0 then print:print "[The rain has quit and now a wave of humidity sweeps the land.]":weath=4:gosub 2900:return
2853 weath=4:gosub 2900:return
2854 if a=1 and ins=0 then print:print "[The clouds swallow the ";light$;" and it begins to storm.]":weath=1:gosub 2900:return
2855 if a=1 then weath=1:gosub 2900:return
2856 if a=2 and ins=0 then print:print "[The ";light$;" hides behind big dark clouds that have moved in.]":weath=3:gosub 2900:return
2857 if a=2 then weath=3:gosub 2900:return
2858 if a=3 and ins=0 then print:print "[A humid mist sets in making you very uncomfortable.]":weath=4:gosub 2900:return
2859 if a=3 then weath=4:gosub 2900:return
2860 if ins=0 then print:print "[The ";light$;" shines away.]":weath=2:gosub 2900:return
2861 weath=2:gosub 2900:return
2862 if a=1 and ins=0 then print:print "[A storm breaks for the overcast sky.]":weath=1:gosub 2900:return
2863 if a=1 then weath=1:gosub 2900:return
2864 if a=2 and ins=0 then print:print "[The clouds dissapates and the ";light$;" shines strong.]":weath=2:gosub 2900:return
2865 if a=2 then weath=2:gosub 2900:return
2866 if a=3 and ins=0 then print:print "[The dark grey clouds linger on.]":weath=3:gosub 2900:return
2867 if a=3 then weath=3:gosub 2900:return
2868 if ins=0 then print:print "[The humidity skyrockets and you begin to sweat profusely.]":weath=4:gosub 2900:return
2869 weath=4:gosub 2900:return
2870 if a=1 and ins=0 then print:print "[A storm turns up and staves off some of the humidity.]":weath=1:gosub 2900:return
2871 if a=1 then weath=1:gosub 2900:return
2872 if a=2 and ins=0 then print:print "[It begins to cool a bit, although the ";light$;" is still hidden behind the clouds.]":weath=3:gosub 2900:return
2873 if a=2 then weath=3:gosub 2900:return
2874 if a=3 and ins=0 then print:print "[The heatwave succumbs to a brilliant ";light$;".  It shines above":print "as the mugginess melts away.]":weath=2:gosub 2900:return
2875 if a=3 then weath=2:gosub 2900:return
2876 if ins=0 then print:print "[Will this humidity never cease?]":weath=4:gosub 2900:return
2877 weath=4:gosub 2900:return
2879 Rem Reminder
2880 if a=1 and ins=0 then print:print "[The rain falls gently.]":return
2882 if ins=0 then print:print "[The storm rages above you!]":return
2884 if a=1 and ins=0 then print:print "[The ";light$;" is bright and shiny.]":return
2886 if ins=0 then print:print "[The ";light$;" softly glows above you.]":return
2888 if a=1 and ins=0 then print:print "[The skies are gray as far as the eye can see.]":return
2890 if ins=0 then print:print "[Big puffy clouds streak the sky.]":return
2892 if a=1 and ins=0 then print:print "[It is very humid and sticky out.]":return
2894 if ins=0 then print:print "[You are very uncomfortable in this humidity.]":return
2899 Rem Current Conditions.
2900 if weath=1 then wx$="Raining"
2902 if weath=2 then wx$="Clear"
2904 if weath=3 then wx$="Cloudy"
2906 if weath=4 then wx$="Humid"
2912 if ins=1 then time$="Unknown (inside)":wx$="Unknown (inside)"
2914 return
2919 Rem Beginning Weather Conditions
2920 a=int(rnd(1)*3)+1:if a=1 then dn=2:print:print "[It is Nightime out.]":light$="Moon":time$="[It is Nightime.]":time2$="[It is Nightime.]":goto 2924
2922 dn=1:print:print "[It is Daytime out.]":light$="Sun":time$="[It is Daytime.]":time2$="[It is Daytime.]"
2924 a=int(rnd(1)*4)+1:if a=1 then print:print "[It is raining.]":weath=1:goto 2932
2926 if a=2 then print:print "[The skies are clear.]":weath=2:goto 2932
2928 if a=3 then print:print "[The skies are cloudy.]":weath=3:goto 2932
2930 print:print "[It is very humid.]":weath=4:goto 2932
2932 gosub 2900:x3=int(rnd(1)*20)+1:print "Time:  Chronos ";x3;"."
2934 x4=0:x5=int(rnd(1)*10)+5:x6=0:return

2950 Rem More City Stuff
2955 Rem Jewelers
2957 CLS:GOSUB 198:print ":::::: Welcome to Jeweler Jacks, the jewelinist jeweler there is!":GOSUB 198
2960 print:print ":::::: Do you have gems and jewelry for me? (Y/N)";:input a$:gosub 1000
2962 if a$="Y" then 2966
2964 if a$="N" then PRINT:print "   Well seeya around then, pallie.'  You leave the jewlers.":gosub 199:cls:return
2965 goto 2960
2966 GOSUB 198: if gem1>0 then print "You have ";gem1;" gems i see."
2968 if jwl1>0 and gem1>0 then print "O, and you have ";jwl1;" jewelry pieces too.":jwl1=0
2970 if statu1>0 then print "Well, look at this, you have found ";statu1;" valuable statue pieces!!  I could melt this down for...well, anything!  I'll take em!!"
2971 if jwl1>0 then print "You have ";jwl1;" jewelry for me, very nice."
2972 if jwl1=0 and gem1=0 and statu1=0 then print:print "'   You dont have anything of value.  What ya tryin ta pull here?'":print:print "   You leave the Jewelers.":GOSUB 199:CLS:return
2973 a = gem+jwl+statu2
2974 GOSUB 198:print:print "All together i can give you ";a;" Gold for them.  (Y/N)";:input a$:gosub 1000
2975 if a$="Y" then 2978
2976 if a$="N" then print "I'm sorry, but that is what they are worth.  Try finding a better deal....":print "   You leave the Jewelers.":gosub 199:cls:RETURN
2977 goto 2974
2978 gem=0:jwl=0:statu2=0:g=g+a:gem1=0:jwl1=0:print:print "Gold = ";g;"   Gems = 0   Jewels = 0.":if statu1>0 then statu1=0:print "Statue Pieces = 0."
2980 print:print "   The jeweler thanks you and you leave.":print:GOSUB 198:gosub 199:CLS:return
3000 REM Trade Shops
3002 CLS:GOSUB 198:gosub 1575:print ":::::: Welcome to the Traders Emporium."
3004 GOSUB 198:PRINT:print ":::::: Would you like to [B]uy or [S]ell or [J]unkyard or [L]eave";:input a$:gosub 1000
3005 if a$="B" then x=1:goto 3010
3006 if a$="L" then print:print "   You leave the Traders Emporium.":GOSUB 199:CLS:return
3007 if a$="S" then x=2:goto 3010
3008 if a$="J" then 3140
3009 goto 3002




3010 CLS:if merch=1 then gosub 3661:goto 3046
3011 GOSUB 198:print "   Type                            Current Cost                                               You Have":gosub 198
3012 print "1.    Cloth                               ";tt1;"           (range 100-200)                            ";it9
3014 print "2.    Velvet                              ";tt2;"          (range 200-400)                            ";it10
3016 print "3.    Silk                                 ";tt3;"           (range 300-600)                            ";it11
3018 print "4.    Leather                            ";tt4;"           (range 400-800)                            ";it12
3020 print "5.    Dreamweave                    ";tt5;"           (range 500-1000)                          ";it13
3022 print "6.    Cord                                ";tt6;"           (range 500-1000)                          ";it14
3024 print "7.    Steel                               ";tt7;"           (range 100-200)                            ";it15
3026 print "8.    Lead                               ";tt8 ;"           (range 200-400)                            ";it16
3028 print "9.    Iron                                 ";tt9  ;"          (range 300-600)                             ";it17
3030 print "10.  Admantium                      ";tt10;"          (range 500-1000)                           ";it18
3032 print "11.  Spikes                            ";tt11;"          (range 100-200)                              ";it19
3034 print "12.  Talons                            ";tt12;"          (range 100-200)                              ";it20
3036 print "13.  Teeth                              ";tt13;"          (range 200-400)                              ";it21
3038 print "14.  Ears                               ";tt14;"          (range 200-400)                              ";it22
3040 print "15.  Scales                            ";tt15;"          (range 300-600)                              ";it23
3042 print "16.  Bladders                         ";tt16;"          (range 400-800)                              ";it24
3044 print "17.  Eyes                              ";tt17;"          (range 500-1000)                             ";it25:gosub 198: print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
3046 if x=1 then print:print ":::::: Which would you like to buy (1-17, 99 to exit)";:input a:goto 3090
3048 print:print ":::::: Which would you like to sell (1-17, 99 to exit, 100 to SELL ALL)";:input a:if a=1 and it9>0 then vxv=tt1: n=it9:gosub 3080:it9=it9-v:goto 3048
3050 if a=2 and it10>0 then vxv=tt2:n=it10:gosub 3080:it10=it10-v:gosub 199:goto 3010
3052 if a=3 and it11>0 then  vxv=tt3:n=it11:gosub 3080:it11=it11-v:gosub 199:goto 3010
3054 if a=4 and it12>0 then  vxv=tt4:n=it12:gosub 3080:it12=it12-v:gosub 199:goto 3010
3055 if a=5 and it13>0 then  vxv=tt5:n=it13:gosub 3080:it13=it13-v:gosub 199:goto 3010
3056 if a=6 and it14>0 then  vxv=tt6:n=it14:gosub 3080:it14=it14-v:gosub 199:goto 3010
3058 if a=7 and it15>0 then  vxv=tt7:n=it15:gosub 3080:it15=it15-v:gosub 199:goto 3010
3060 if a=8 and it16>0 then  vxv=tt8:n=it16:gosub 3080:it16=it16-v:gosub 199:goto 3010
3062 if a=9 and it17>0 then  vxv=tt9:n=it17:gosub 3080:it17=it17-v:gosub 199:goto 3010
3064 if a=10 and it18>0 then  vxv=tt10:n=it18:gosub 3080:it18=it18-v:gosub 199:goto 3010
3066 if a=11 and it19>0 then  vxv=tt11:n=it19:gosub 3080:it19=it19-v:gosub 199:goto 3010
3068 if a=12 and it20>0 then  vxv=tt12:n=it20:gosub 3080:it20=it20-v:gosub 199:goto 3010
3070 if a=13 and it21>0 then vxv=tt13: n=it21:gosub 3080:it21=it21-v:gosub 199:goto 3010
3071 if a=14 and it22>0 then  vxv=tt14:n=it22:gosub 3080:it22=it22-v:gosub 199:goto 3010
3072 if a=15 and it23>0 then  vxv=tt15:n=it23:gosub 3080:it23=it23-v:gosub 199:goto 3010
3073 if a=16 and it24>0 then  vxv=tt16:n=it24:gosub 3080:it24=it24-v:gosub 199:goto 3010
3074 if a=17 and it25>0 then  vxv=tt17:n=it25:gosub 3080:it25=it25-v:gosub 199:goto 3010
3075 if a=99 then 3002
3076 if a=100 then gosub 3145
3078 goto 3010
3080 print ":::::: How much will you sell (1-";n;", 0 to exit)";:input a:if a>n or a< 0 then print:print "Please try again.":Goto 3080
3082 if a=0 then 3048
3084 v=a:n=0:g=g+(vxv*a):print "Gold = ";g:return
3090 if a=1 then vxv=tt1:gosub 3125:it9=it9+v:g=g-n:gosub 199:goto 3010
3092 if a=2 then vxv=tt2:gosub 3125:it10=it10+v:g=g-n:gosub 199:goto 3010
3094 if a=3 then vxv=tt3: gosub 3125:it11=it11+v:g=g-n:gosub 199:goto 3010
3095 if a=4 then vxv=tt4: gosub 3125 :it12=it12+v:g=g-n:gosub 199:goto 3010
3097 if a=5 then vxv=tt5: gosub 3125 :it13=it13+v:g=g-n:gosub 199:goto 3010
3098 if a=6 then vxv=tt6: gosub 3125:it14=it14+v:g=g-n:gosub 199:goto 3010
3099 if a=7 then vxv=tt7: gosub 3125:it15=it15+v:g=g-n:gosub 199:goto 3010
3100 if a=8 then vxv=tt8: gosub 3125:it16=it16+v:g=g-n:gosub 199:goto 3010
3102 if a=9 then vxv=tt9: gosub 3125:it17=it17+v:g=g-n:gosub 199:goto 3010
3104 if a=10 then vxv=tt10: gosub 3125:it18=it18+v:g=g-n:gosub 199:goto 3010
3106 if a=11 then vxv=tt11: gosub 3125:it19=it19+v:g=g-n:gosub 199:goto 3010
3108 if a=12 then vxv=tt12: gosub 3125:it20=it20+v:g=g-n:gosub 199:goto 3010
3110 if a=13 then vxv=tt13: gosub 3125:it21=it21+v:g=g-n:gosub 199:goto 3010
3112 if a=14 then vxv=tt14: gosub 3125:it22=it22+v:g=g-n:gosub 199:goto 3010
3114 if a=15 then vxv=tt15: gosub 3125:it23=it23+v:g=g-n:gosub 199:goto 3010
3116 if a=16 then vxv=tt16: gosub 3125:it24=it24+v:g=g-n:gosub 199:goto 3010
3118 if a=17 then vxv=tt17: gosub 3125:it25=it25+v:g=g-n:gosub 199:goto 3010
3120 if a=99 then 3002
3122 goto 3010
3125 print ":::::: How much will you buy (0 to exit)";:input a
3127 if a=0 then print:print "   You buy none of this trade item.":v=0:n=0:return
3129 v=a:n=a*vxv:if n>g then print:print "    That will cost ";n;" gold.  You have ";g;" gold.":goto 3125
3130 print:print "::::: That will cost ";n;" gold.  You have ";g;" gold."
3132 print "::::: Do you want to make this purchase (Y/N)?";:input a$:if a$="Y" then return
3134 if a$="N" then 3125
3135 goto 3132
3140 CLS:if junk=0 then print:gosub 198:print "    You have no junk items.":GOSUB 199:CLS:goto 3004
3142 g=g+junk:print:gosub 198:print "I will buy all your junk for ";junk;" gold.  You now have ";g;" gold.":junk=0:jun=0
3144 it32=0:it33=0:it34=0:it35=0:it36=0:it37=0:it38=0:it39=0:GOSUB 199:CLS:goto 3004
3145 print:gosub 198:print " Selling All ":GOSUB 199:PRINT:print "//  Cloth [ ";it9*tt1;" ]  //  Velvet [ ";it10*tt2;" ]  //  Silk [ ";it11*tt3;" ]  //  Leather [ ";it12*tt4;" ]  //":print"//  Dreamweave [ ";it13*tt5;" ]  //  Cord [ ";it14*tt6;" ]  //  Steel [ ";it15*tt7;" ]  //  Lead [ ";it16*tt8;" ]  //":print "//  Iron [ ";it17*tt9;" ]  //  Admantium [ ";it18*tt10;" ]  //  Spikes [ ";it19*tt11;" ]  //  Talons [ ";it20*tt12;" ]  //"
3146 print "//  Teeth [ ";it21*tt13;" ]  //  Ears [ ";it22*tt14;" ]  //  Scales [ ";it23*tt15;" ]  //  Bladders [ ";it24*tt16;" ]  //  Eyes [ ";it25*tt17;" ]  //":vxv=(it9*tt1)+(it10*tt2)+(it11*tt3)+(it12*tt4)+(it13*tt5)+(it14*tt6)+(it15*tt7)+(it16*tt8)+(it17*tt9)+(it18*tt10)+(it19*tt11)+(it20*tt12)+(it21*tt13)+(it22*tt1)+(it23*tt15)+(it24*tt16)+(it25*tt17)
3147 g=g+vxv:GOSUB 199:PRINT:print "For a total of ";vxv;" Gold!  Gold = ";g;"!":gosub 198:gosub 199:it9=0:it10=0:it11=0:it12=0:it13=0:it14=0:it15=0:it16=0:it17=0:it18=0:it19=0:it20=0:it21=0:it22=0:it23=0:it24=0:it25=0:return



3149 rEM wEAPONS AND aRMOR
3150 cls:GOSUB 198:PRINT "::::::::: Welcome to the Iron Circle Smithy!":GOSUB 198:PRINT:PRINT "   Browse Base Items allows you to buy basic arms and armor.":print "   Once you have the Base Item, you may buy Upgrades for it.  Some Upgrades apply to only certain Base Items."
3152 print:print "::::::::::: Would you like to":PRINT "   [B]rowse Base Items":PRINT"   look at [U]pgrades":PRINT "   or [L]eave?";:input a$:gosub 1000
3154 if a$="B" then CLS:GOTO 3160
3156 if a$="U" then CLS:GOTO 3210
3158 if a$="L" then print:print "You leave the Iron Circle.":GOSUB 199:CLS:return
3159 GOTO 3152
3160 cls:GOSUB 198:print "Base Item                                 Cost         Owned                            Attribute":GOSUB 198
3162 print "1.  Sword                                   100          ";w;"                      Your basic sword, damage 1-10"
3164 print "2.  Pants                                  2000          ";axxx1;"                          Legs, AR: 1"
3166 print "3.  Shirt                                    5000          ";axxx2;"                          Torso, AR: 1"
3167 print "4.  Gloves                                  500          ";axxx3;"                          Hands, AR: 1"
3168 print "5.  Helmet                                2000          ";axxx4;"                          Head, AR: 1"
3169 print "6.  Boots                                   500           ";axxx5;"                          Feet, AR: 1"
3170 print "7.  Sleeve (L)                           1000           ";axxx6;"                          Arm, AR: 1"
3171 print "8.  Sleeve (R)                           1000          ";axxx7;"                          Arm, AR: 1"
3172 print "9.  Backcloak                         10000           ";axxx8;"                         Back, AR: 1":print "**You may have only 1 of each item":gosub 198: print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
3173 print:print "::::::: Which would you like to buy (1-9, 99 to exit)";:input a:if a=99 then 3150
3175 if a=1 and w<>1 then c=100:gosub 3190
3177 if a=2 and ar1=0 then c=2000:gosub 3190
3179 if a=3 and ar2=0 then c=5000:gosub 3190
3180 if a=4 and ar3=0 then c=500:gosub 3190
3181 if a=5 and ar4=0 then c=2000:gosub 3190
3182 if a=6 and ar5=0 then c=500:gosub 3190
3183 if a=7 and ar6=0 then c=1000:gosub 3190
3184 if a=8 and ar7=0 then c=1000:gosub 3190
3185 if a=9 and ar8=0 then c=10000:gosub 3190
3187 GOTO 3160
3190 if g<c then PRINT:GOSUB 198:print "   You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:cls:return
3192 gosub 198:g=g-c:print "::::: You buy the item for ";c;" gold.  Gold:  ";g;".":gosub 198:gosub 199:cls
3193 if a=1 and wsucks=1 then print:print "You throw away the old rusty sword the guard gave you and grab the new shiny sword...":wsucks=0
3194 if a=1 then w=1:w$="Shiny Sword":cmin=1:cmax=10:wxp=0:wxp1=0:wxp2=10
3195 if a=2 then ar1=1:ar11=1:axxx1=1
3196 if a=3 then ar2=1:ar12=1:axxx2=1
3197 if a=4 then ar3=1:ar13=1:axxx3=1
3198 if a=5 then ar4=1:ar14=1:axxx4=1
3199 if a=6 then ar5=1:ar15=1:axxx5=1
3200 if a=7 then ar6=1:ar16=1:axxx6=1
3202 if a=8 then ar7=1:ar17=1:axxx7=1
3204 if a=9 then ar8=1:ar18=1:axxx8=1
3205 return
3210 cls:GOSUB 198:print "Weapon Upgrades      Can Buy            Effect                                    Location                  Level Req         Cost               Current":gosub 198
3212                                      print "1.  +1                        Multiple       +1 to min and max damage            Weapon                    none           100.000            ";cmin;"-";cmax;"."
3214                                      print "2.  Fireballs                Multiple       1-6d per, 10% of casting                Weapon                    none            10.000             ";ite2;" added."
3216                                      print "3.  Lightning               Multiple       1-10d per, 5% of casting                Weapon                     none            20.000            ";ite3;" added."
3217                                      print "4.  Vampire                Multiple       1-10 health reg. per, 5% chance     Weapon                     none           250.000            ";ite4;" added."
3218                                      print "5.  Warlocks Heal       Multiple       1-10 mana reg. per, 5% chance      Weapon                     none           350.000            ";ite5;" added."
3219                                      print "6.  Sleep                     to 20%       +1% to sleep                                Weapon                     none           400.000            ";ite6;"%"
3220                                      print "7.  Poison                   to 20%       +1% to poison                               Weapon                    none           400.000            ";ite7;"%"
3221                                      print "8.  Stun                      to 20%       +1% to stun                                  Weapon                     none           400.000            ";ite8;"%"
3222 GOSUB 198:print "Armor  Upgrades        Can Buy            Effect                                    Location                  Level Req         Cost":gosub 198
3223                    print "9.    +1 to AR                Multiple        +1 to AR, location of choice        Any Armor                    none             ";arc
3224                    print "10.  +10 STR               Only One       +10 to STR score                      Sleeves (L)                   50+          1.000.000"
3226                    print "11.  +10 STR               Only One       +10 to STR score                      Sleeves (R)                  50+          1.000.000"
3227                    print "12.  +10 DEX              Only One        +10 to DEX score                      Boots                          50+          1.000.000"
3228                    print "13.  +10 CON              Only One       +10 to CON score                      Chest                           50+          1.000.000"
3229                    print "14.  +10 IQ                 Only One        +10 to IQ score                          Helmet                        50+          1.000.000"
3230                    print "15.  FlameShield         Only One       1-8 damage on contact                Back                           50+          1.000.000"
3231                    print "16.  IceShield              Only One       1-8 damage on contact                Back                           50+          1.000.000"
3232                    print "17.  Locationer            Only One      Find Keys/Stairs in 1/2 time          Pants                         100+         5.000.000"
3233                    print "18.  Secreter               Only One      Find Secret Doors 100%              Gloves                        100+         5.000.000":gosub 198: print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
3234  print:print "Which Effect would you like to purchase today (1-18, 99 to exit)";:input a:if a=99 then CLS:GOTO 3150
3235 if a=1 then c=100000:goto 3260
3236 if a=2 then c=10000:goto 3260
3237 if a=3 then c=20000:goto 3260
3238 if a=4 then c=250000:goto 3260
3239 if a=5 then c=350000:goto 3260
3240 if a=6 then c=400000:goto 3260
3241 if a=7 then c=400000:goto 3260
3242 if a=8 then c=400000:goto 3260
3243 if a=9 THEN CLS:GOTO 3340
3244 if a=10 then c=1000000:goto 3260
3245 if a=11 then c=1000000:goto 3260
3246 if a=12 then c=1000000:goto 3260
3247 if a=13 then c=1000000:goto 3260
3248 if a=14 then c=1000000:goto 3260
3249 if a=15 then c=1000000:goto 3260
3250 if a=16 then c=1000000:goto 3260
3252 if a=17 then c=5000000:goto 3260
3254 if a=18 then c=5000000:goto 3260
3255 goto 3210
3260 if g<c then PRINT:GOSUB 198:print "   You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:goto 3210
3261 goto 3522
3522 REM I FUCKED UP ON ARMOR ADDITIONS
3523 if a=10 and ite12=1 then 3312
3524 if a=11 and ite13=1 then 3316
3526 if a=12 and ite14=1 then 3320
3528 if a=13 and ite15=1 then 3324
3530 if a=14 and ite16=1 then 3328
3532 if a=15 and ite10=1 then 3304
3534 if a=16 and ite11=1 then 3308
3536 if a=17 and ite17=1 then 3332
3538 if a=18 and ite18=1 then 3336
3539 goto 3262
3262 gosub 198:g=g-c:print "You buy the upgrade!  Gold:  ";g;".":gosub 198
3264 if a=1 and w=0 then print "You have to have a weapon before you can upgrade it, genius.":goto 3290
3265 if a=1 then cmin=cmin+1:cmax=cmax+1:print "Your ";w$;" now does ";cmin;"-";cmax;"."
3266 if a=2 then ite2=ite2+1:print "Your weapon now has Fireballs added ";ite2;" times."
3268 if a=3 then ite3=ite3+1:print "Your weapon now has Lightning Bolts added ";ite3;" times."
3270 if a=4 then ite4=ite4+1:print "Your weapon now has Vampire added ";ite4;" times."
3272 if a=5 then ite5=ite5+1:print "Your weapon now has Warlocks Heal added ";ite5;" times."
3274 if a=6 then 3292
3276 if a=7 then 3296
3278 if a=8 then 3300
3280 if a=9 then 3340
3281 if a=10 then 3312
3282 if a=11 then 3316
3283 if a=12 then 3320
3284 if a=13 then  3324
3285 if a=14 then 3328
3286 if a=15 then  3304
3287 if a=16 then 3308
3288 if a=17 then 3332
3289 if a=18 then  3336
3290 gosub 199:goto 3210
3292 if ite6=20 then gosub 198:print "You cannot gain anymore Sleep percentage.":goto 3290
3294 ite6=ite6+1:gosub 198:print "Your weapon now has a ";ite6;"% chance to Sleep a creature struck.":goto 3290
3296 if ite7=20 then gosub 198: print "You cannot gain anymore Poison percentage.":goto 3290
3298 ite7=ite7+1: gosub 198:print "Your weapon now has a ";ite7;"% chance to Poison a creature struck.":goto 3290
3300 if ite8=20 then gosub 198: print "You cannot gain anymore Stun percentage.":goto 3290
3302 ite8=ite8+1: gosub 198:print "Your weapon now has a ";ite8;"% chance to Stun a creature struck.":goto 3290
3304 if ite10=1 then gosub 198: print "You already have a FlameShield added to your BackCloak.":goto 3290
3305 if clvl<50 then print "You are not high enough level to get this item yet.":goto 3290
3306 ite10=1: gosub 198:print "You now have FlameShield!":goto 3290
3308 if ite11=1 then gosub 198: print "You alreay have an IceShield added to your BackCloak.":goto 3290
3309 if clvl<50 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3310 ite11=1: gosub 198:print "You now have IceShield!":goto 3290
3312 if ite12=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3313 if clvl<50 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3314 ite12=1: gosub 198:print "You now have +10 STR added to your sleeve.":goto 3290
3316 if ite13=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3317 if clvl<50 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3318 ite13=1: gosub 198:print "You now have +10 STR added to your sleeve.":goto 3290
3320 if ite14=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3321 if clvl<50 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3322 ite14=1: gosub 198:print "You now have +10 DEX added to your boots.":goto 3290
3324 if ite15=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3325 if clvl<50 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3326 ite15=1: gosub 198:print "You now have +10 CON added to your chestpiece.":goto 3290
3328 if ite16=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3329 if clvl<50 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3330 ite16=1: gosub 198:print "You now have +10 IQ added to your helmet.":goto 3290
3332 if ite17=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3333 if clvl<100 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3334 ite17=1: gosub 198:print "You now find stairs and keys in half the time.":goto 3290
3336 if ite18=1 then gosub 198: print "You already have this upgrade added to your armor.":goto 3290
3337 if clvl<100 then gosub 198: print "You are not high enough level to get this item yet.":goto 3290
3338 ite18=1: gosub 198:print "You now find secret doors 100% of the time.":goto 3290
3340 if ar1=0 and ar2=0 and ar3=0 and ar4=0  and ar5=0  and ar6=0  and ar7=0  and ar8=0 then  gosub 198:print "You dont have any armor pieces!":goto 3290
3341 tar=Int((ar1+ar2+ar3+ar4+ar5+ar6+ar7+ar8)/15):GOSUB 198:print "Current Cost to Upgrade an Armor Piece = ";arc;".  You have ";g;" Gold.":GOSUB 198:PRINT:print "To which armor piece do you want to upgrade?":gosub 198
3342 if ar1>0 then print "1.  Pants:                 |Current AR: ";ar1
3344 if ar2>0 then print "2.  Shirt:                   |Current AR: ";ar2
3345 if ar3>0 then print "3.  Gloves:               |Current AR: ";ar3
3346 if ar4>0 then print "4.  Helmet:               |Current AR: ";ar4
3348 if ar5>0 then print "5.  Boots:                 |Current AR: ";ar5
3350 if ar6>0 then print "6.  Sleeve (R):          |Current AR: ";ar6
3352 if ar7>0 then print "7.  Sleeve (L)::          |Current AR: ";ar7
3354 if ar8>0 then print "8.  Backpiece:          |Current AR: ";ar8
3355 PRINT: print "Current TAR = ";tar
3356 GOSUB 198:print:print "Which will you upgrade (99 to exit)";:input a:if a=99 THEN CLS:GOTO 3210
3357 IF g < arc then gosub 198:print:print "You don't have enough money for this!  Gold = ";g;".":gosub 199:goto 3290
3358 if a=1 then ar1=ar1+1:ar11=ar11+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498: print "Pants AR:  ";ar1;".  Total Armor Class = ";tar
3360 if a=2 then ar2=ar2+1:ar12=ar12+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "Shirt AR:  ";ar2;".  Total Armor Class = ";tar
3362 if a=3 then ar3=ar3+1:ar13=ar13+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "Gloves AR:  ";ar3;".  Total Armor Class = ";tar
3363 if a=4 then ar4=ar4+1:ar14=ar14+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "Helmet AR:  ";ar4;".  Total Armor Class = ";tar
3364 if a=5 then ar5=ar5+1:ar15=ar15+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "Boots AR:  ";ar5;".  Total Armor Class = ";tar
3366 if a=6 then ar6=ar6+1:ar16=ar16+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "Sleeve(R) AR:  ";ar6;".  Total Armor Class = ";tar
3368 if a=7 then ar7=ar7+1:ar17=ar17+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "Sleeve(L) AR:  ";ar7;".  Total Armor Class = ";tar
3370 if a=8 then ar8=ar8+1:ar18=ar18+1:g=g-arc:print "You buy the upgrade for ";arc;" Gold.":gosub 3498:print "BackCloak AR:  ";ar8;".  Total Armor Class = ";tar
3372 PRINT:PRINT "Please Press Return";:input R$:CLS:goto 3341



3495 REM ARC FINDER COST OF ARMOR +1
3498 arc=arc+75:return





3550 REM TAVERNS BEOTCH!
3552 CLS:gosub 198:print "::::::::: Welcome to the Tooth and Nail Tavern!":gosub 198
3554 print:GOSUB 198:print ":::: Would you like to hear some [R]umors today, or maybe [G]amble at Gambler's Row?":print ":::: How 'bout [V]isit Tooth and Nail Adventuring Gear, or [M]onster Max's.  You can also [L]eave the Tavern";:input a$:gosub 1000
3556 if a$="L" then print:print "   You have left the Tavern.":GOSUB 199:CLS:goto 350
3558 if a$="R" then 3565
3559 if a$="V" then 6002
3560 if a$="G" then gosub 400000
3561 if a$="M" then cls:goto 6250
3562 goto 3552
3565 a=int(rnd(1)*11)+1:if a=1 then print:print "'   Treehouses, located in Forest sections in the Caves of Despair, contain not only ":print "harder monsters than the current level houses, but also better treasure to find.....'"
3567 if a=2 then print:print "'   Boxes in the Caves of Despair may not always be what they look like.  Creatures that look like boxes,":print "called Mimics, lie in wait for the unsuspecting adventurer, and are quite hard to beat, at any level of the Dungeon.....'"
3569 if a=3 then print:print "'   Monster Lairs, although containing only 1 type of monster, are filled with good treasure.  Vanquish":print "the evil of the lair and collect whats rightfully yours!'"
3570 if a=4 then print:print "'   Traps in the Caves of Despair come in many different sizes and shapes, but I'd like to tell you about pit traps.":print "At the bottom of a pit trap there could be either nothing, or water, or spikes.  Water cushions the fall, reducing":print "damage.  Spikes increase damage.  Also there may be secret doors down there, so make sure you SRCH...'"
3572 if a=5 then print:print "'   Monsters at the Fire Mountains have various Fire Attacks that cause massive damage!  Be very careful if you go there....'"
3574 if a=6 then print:print "'   Pentagrams located in Temple areas in the Caves of Despair are very dangerous devices.  They are gateways to":print "the Hells and unspeakable things could come through it if it is opened....'"
3576 if a=7 then print:print "'   The more armor you have, the less damage you will take.  Get armor as soon as you can and upgrade as much":print "as you can.  Unfortunately the cost to upgrade goes up each time you do so...'"
3577 if a=8 then print:print "   'The more you cast spells, the higher of level the spell will become.  It will add to whatever it does when it reaches":print "a new level, from adding damage healed if its a heal spell, to adding to the duration the spell lasts for other":print "kinds of spells.  The drawback is that the mana cost is also increased by 1....'"
3578 if a=9 then print:print "   'Weapon Experience is very important, because the more powerful the weapon is, the more damage it will do.  If you":print "die and they take your weapon, you will have to buy a new weapon and start all over again.  Luckily, the":print "weapon specialty level goes up faster when fighting harder monsters, so it should be right as rain in no time....'"
3580 if a=10 then print:print "   'The Caves of Despair is not a place where a room connects to another room, but a constant shifting of magical forces.":print "What was there one time may not be there the next time you go back to the Caves, or for that matter, if you leave the":print "room and come back it will be an entirely new room.  It is this horrible magic that has cost so many their lives.  You get lost in there, you're done for....'"
3581 if a=11 then print:print "   'Prisoners - people dumb enough to get caught by the inhabitants of the Caves of Despair - are scattered about in Cell Blocks":print "and other places.  Free them and lead them to the start of the Caves.  This will bring you good":print "fortune later on.........'"
3582 GOSUB 198:GOSUB 199:goto 3552
6000 rem more tavern events for later n stuff fuck yeah!
6002 cls:gosub 198:print ":: Tooth and Nail Adventuring Gear ::":print "'Have ye a look at me fine wares...'":gosub 198
6003 print              "    Item                                          Description                                       Cost                                Owned"
6004 print              "1.  Rope, 40'                            An Adventuring Necessity                      50 Gold                                ";un1
6006 print              "2.  Grappling Hook                   Used to Reach High Up Places             200 Gold                                ";un2:gosub 198: print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
6008 print:print "::::::::: Which would you like to buy (1-2, 99 to exit)";:input a:if a=99 THEN CLS:GOTO 3552
6010 if a=1 and un1=0 then c=50:goto 6200
6012 if a=2 and un2=0 then c=200:goto 6200
6014 goto 6002
6200 if g<c then print:print "   You dont have enough money!  Gold = ";g;".":gosub 199:goto 6002
6202 if a=1 then g=g-50:un1=1:print:print ":::::: You now have a 40' Rope!":gosub 199:goto 6002
6204 if a=2 then g=g-200:un2=1:print:print ":::::: You now have a Grappling Hook!":gosub 199:goto 6002

6250 REM Monster Max
6252 gosub 198:print ":::::: Welcome to Monster Max's!":gosub 198
6253 if mmaxmis=1 then print:print "'I'm sorry, you may only take 1 Monster Mission at a time.":print "You may delete the mission from your STATUS screen at any time.'":gosub 199:goto 3552
6254 print:print "We have the following missions available."
6256 if mmaxchange=1 then mmaxchange=0:goto 6260
6258 goto 6266
6260 a=int(rnd(1)*10)+1
6262 b=int(rnd(1)*10)+1:if b=a then 6262
6264 c=int(rnd(1)*10)+1:if c=a or c=b then 6264
6265 ammax1=a:bmmax1=b:cmmax1=c
6266 if ammax1=1 or bmmax1=1 or cmmax1=1 then print:print "   Mission [1]  Clear out a warren in the Dryth Forest.  Pay is 500 gold."
6267 if ammax1=2 or bmmax1=2 or cmmax1=2 then print:print "   Mission [2] Clear out a warren in the Dryth Forest.  Pay is 600 gold."
6268 if ammax1=3 or bmmax1=3 or cmmax1=3 then print:print "   Mission [3] Clear out a warren in the Dryth Forest.  Pay is 700 gold."
6269 if ammax1=4 or bmmax1=4 or cmmax1=4 then print:print "   Mission [4] Clear out a warren in the Fire Mountains.  Pay is 1000 gold."
6270 if ammax1=5 or bmmax1=5 or cmmax1=5 then print:print "   Mission [5] Clear out a warren in the Fire Mountains.  Pay is 1200 gold."
6271 if ammax1=6 or bmmax1=6 or cmmax1=6 then print:print "   Mission [6] Clear out a warren in the White Plains.  Pay is 2000 gold."
6272 if ammax1=7 or bmmax1=7 or cmmax1=7 then print:print "   Mission [7] Clear out a warren in the White Plains.  Pay is 2400 gold."
6273 if ammax1=8 or bmmax1=8 or cmmax1=8 then print:print "   Mission [8] Clear out a warren in the White Plains.  Pay is 2800 gold."
6274 if ammax1=9 or bmmax1=9 or cmmax1=9 then print:print "   Mission [9] Clear out a warren in the Pass of Lohandi.  Pay is 4000 gold."
6275 if ammax1=10 or bmmax1=10 or cmmax1=10 then print:print "   Mission [10] Clear out a warren in the area around Myre.  Pay is 5000 gold."
6276 print:print "Please select a mission number inside brackets, or 99 to exit";:input a:if a=99 then gosub 199:goto 3552
6277 if a=1 and ammax1=1 then xxpay=500:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6279 IF a=1 and bmmax1=1 then xxpay=500:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6280 IF a=1 and cmmax1=1 then xxpay=500:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6281 if a=2 and ammax1=2 then xxpay=600:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6282 IF a=2 and bmmax1=2 then xxpay=600:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6283 IF a=2 and cmmax1=2 then xxpay=600:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6284  if a=3 and ammax1=3 then xxpay=700:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6285 IF a=3 and bmmax1=3 then xxpay=700:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6286 IF a=3 and cmmax1=3 then xxpay=700:mmaxmis=1:mmaxdescr2$="Dryth Forest":goto 6312
6287 if a=4 and ammax1=4  then xxpay=1000:mmaxmis=1:mmaxdescr2$="Fire Mountains":goto 6322
6288 IF a=4 and bmmax1=4  then xxpay=1000:mmaxmis=1:mmaxdescr2$="Fire Mountains":goto 6322
6289 IF a=4 and cmmax1=4 then xxpay=1000:mmaxmis=1:mmaxdescr2$="Fire Mountains":goto 6322
6290 if a=5 and ammax1=5 then xxpay=1200:mmaxmis=1:mmaxdescr2$="Fire Mountains":goto 6322
6291 IF a=5 and bmmax1=5 then xxpay=1200:mmaxmis=1:mmaxdescr2$="Fire Mountains":goto 6322
6292 IF a=5 and cmmax1=5 then xxpay=1200:mmaxmis=1:mmaxdescr2$="Fire Mountains":goto 6322
6293  if a=6 and  ammax1=6 then xxpay=2000:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6294 IF a=6 and bmmax1=6 then xxpay=2000:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6295 IF a =6 and cmmax1=6 then xxpay=2000:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6296  if a=7 and ammax1=7  then xxpay=2400:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6297 IF a=7 and bmmax1=7  then xxpay=2400:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6298 IF a=7 and cmmax1=7 then xxpay=2400:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6299  if a=8 and ammax1=8  then xxpay=2800:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6300 IF a=8 and bmmax1=8  then xxpay=2800:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6301 IF a=8 and cmmax1=8 then xxpay=2800:mmaxmis=1:mmaxdescr2$="White Plains":goto 6330
6302  if a=9 and ammax1=9  then xxpay=4000:mmaxmis=1:mmaxdescr2$="Pass of Lohandi":goto 6346
6303 IF a=9 and bmmax1=9  then xxpay=4000:mmaxmis=1:mmaxdescr2$="Pass of Lohandi":goto 6346
6304 IF a=9 and cmmax1=9 then xxpay=4000:mmaxmis=1:mmaxdescr2$="Pass of Lohandi":goto 6346
6305  if a=10 and ammax1=10 then xxpay=5000:mmaxmis=1:mmaxdescr2$="Area Around Myre":goto 6352
6306 IF a=10 and bmmax1=10 then xxpay=5000:mmaxmis=1:mmaxdescr2$="Area Around Myre":goto 6352
6307 IF a=10 and cmmax1=10 then xxpay=5000:mmaxmis=1:mmaxdescr2$="Area Around Myre":goto 6352
6308 goto 6276
6310 rem area location chooser
6312 a=int(rnd(1)*5)+1:if a=1 then mmaxloc=1:goto 6360
6314 if a=2 then mmaxloc=2:goto 6360
6316 if a=3 then mmaxloc=3:goto 6360
6318 if a=4 then mmaxloc=4:goto 6360
6320 if a=5 then mmaxloc=5:goto 6360
6322 a=int(rnd(1)*4)+1:if a=1 then mmaxloc=6:goto 6360
6324 if a=2 then mmaxloc=7:goto 6360
6326 if a=3 then mmaxloc=8:goto 6360
6328 if a=4 then mmaxloc=9:goto 6360
6330 a=int(rnd(1)*8)+1:if a=1 then mmaxloc=10:goto 6360
6332 if a=2 then mmaxloc=11:goto 6360
6334 if a=3 then mmaxloc=12:goto 6360
6336 if a=4 then mmaxloc=13:goto 6360
6338 if a=5 then mmaxloc=14:goto 6360
6340 if a=6 then mmaxloc=15:goto 6360
6342 if a=7 then mmaxloc=16:goto 6360
6344 if a=8 then mmaxloc=17:goto 6360
6346 a=int(rnd(1)*3)+1:if a=1 then mmaxloc=18:goto 6360
6348 if a=2 then mmaxloc=19:goto 6360
6350 if a=3 then mmaxloc=20:goto 6360
6352 a=int(rnd(1)*3)+1:if a=1 then mmaxloc=21:goto 6360
6354 if a=2 then mmaxloc=22:goto 6360
6356 if a=3 then mmaxloc=23
6360 print:print "::::::: A guide joins you and you start your Monster Mission!":gosub 199:goto 3552



3800 rem WORLD O MAgic
3802 CLS:print:gosub 198:print "::::::::: Welcome to the World O' Magic!":gosub 198:print "   Here you may buy several healing items, magic items, and magic spells!"
3804 print:print "::::::::: What would you like to do:":PRINT "Browse":print "   (H)ealing Items - Herbs, Herb2s, Manashrooms, Manashroom2s":print "   (M)agic Items - A variety of magical equipment that make adventuring easier"
3805 print "   (S)pells - Healing and Enchantment magic to aid in your quest":print "   or (L)eave?";:input a$:if a$="H" then 3815
3806 if a$="M" then cls:goto 4202
3807 if a$="S" then cls:goto 3890
3809 if a$="L" then PRINT:PRINT"   You leave the World O' Magic....":GOSUB 199:CLS:GOTO 350
3810 gosub 1000
3812 print:print "   Type H, M, S, or L only....":goto 3804
3815 CLS:GOSUB 198:print "::::::::: Welcome to the Healing Items section of the World O' Magic!"
3817 GOSUB 198:print "Item                              Cost                                      Effect                                                                  You have":GOSUB 198
3819         print "1.  Herb                         20                                       Heals 10-50 hps                                                            ";it1
3822         print "2.  Herb2                       200                                     Heals 25-250 hps                                                          ";it2
3824         print "3.  Manashroom             50                                       Heals 10-30 mana                                                         ";it5
3826         print "4.  Manashroom2           100                                     Heals 25-75 mana                                                         ";it6
3827 GOSUB 198:print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
3828 print:print ":::::::: Which did you want to buy (1-4, 99 to exit)";:input a:if a=99 then 3802
3829 if a=1 then c=20:goto 3838
3830 if a=2 then c=200:goto 3838
3832 if a=3 then c=50:goto 3838
3834 if a=4 then c=100:goto 3838
3836 goto 3815
3838 if g<c then PRINT:GOSUB 198:print "   You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:goto 3815
3840 print:print "::::: You may buy up to ";int(g/c);" of this item."
3842 print:print "::::: How many did you want to buy (0 to exit)?";:input b:if b=0 then GOSUB 199:goto 3815
3844 n=b*c:if n>g then print:print "   You dont have enough money!":GOSUB 199:goto 3815
3846 g=g-n:if a=1 then it1=it1+b:print:print ":::: You buy ";b;" Herbs.  Gold = ";g;".":GOSUB 199:goto 3815
3848 if a=2 then it2=it2+b:print:print ":::: You buy ";b;" Herb2s.  Gold = ";g;".":GOSUB 199:goto 3815
3850 if a=3 then it5=it5+b:print:print ":::: You buy ";b;" Manashrooms.  Gold = ";g;".":GOSUB 199:goto 3815
3852 if a=4 then it6=it6+b:print:print ":::: You buy ";b;" Manashroom2s.  Gold = ";g;".":GOSUB 199:goto 3815
3855 goto 3815
3889 REM SPELLS AND CASTING
3890 CLS:GOSUB 198:print "::::::::: Welcome to the Spells and Casting section of the World O' Magic!"
3891 GOSUB 198:print "Item                              Cost                                      Effect                                                            Mana Cost Per Cast                    You have":GOSUB 198
3892         print "1.  SpellBook                 250                    A Place for All Spells (You MUST have one to get spells)               N/A                                   ";spellbook
3893         print "2.    Healing1                 200                                        Heals 20-85 HPs                                                      10                                    ";sp1
3894         print "3.    Healing2                 1000                                      Heals 75-125HPs                                                      50                                    ";sp2
3895         print "4.    Healing3                 5000                                      Heals 90-180 HPs                                                    100                                   ";sp3
3897         print "5.    Healing4                 10000                                    Heals 100-220 HPs                                                  250                                    ";sp4
3899         print "6.    Healing5                 50000                                    Heals 120-350 HPs                                                  500                                   ";sp5
3900         print "7.    Healing6                 150000                                  Heals 200-600 HPs                                                  750                                    ";sp6
3902         print "8.    Healing7                 500000                                  Heals 240-700 HPs                                                  1250                                  ";sp7
3903         print "9.    Healing8                 1000000                                Heals 350-900 HPs                                                  1750                                  ";sp8
3904         print "10.  Healing9                 5000000                                Heals 500-1000 HPs                                                2500                                  ";sp9
3905         print "11.  HealingX                20000000                            Completely Heals Character                                        5000                                  ";sp10
3906         print "12.  Survival                  400                    Heals 10-100 hps every new room/area entered for 10 rooms           30                                    ";sp11
3907         print "13.  Survival2                6900                   Heals 25-125 hps every new room/area entered for 11 rooms          100                                  ";sp12
3908         print "14.  Survival3                29000                 Heals 50-200 hps every new room/area entered for 12 rooms          300                                  ";sp13
3909         print "15.  Survival4                1250000              Heals 100-300 hps every new room/area entered for 14 rooms        600                                  ";sp14
3910         print "16.  Survival5                10000000            Heals 300-650 hps every new room/area entered for 20 rooms        1200                                 ";sp15
3911         print "17.  Dark Spirit Armor     1000                            Adds 1 AR per spell LV for 20 rooms                                   200                                  ";sp16
3912         print "18.  Dark Spirit Mastery  1000                       Adds 1 to Damage per spell LV for 20 rooms                             200                                  ";sp17
3949         print "99.  SpellBook Runes                                              Check out SpellBook Runes"

3950 GOSUB 198:print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
3951 print:print "::::::::: Which did you want to buy (1-11,99, 98 to exit)";:input a:if a=98 then 3802
3953 if a=1 then c=250:goto 4076
3954 if a=2 then c=200:goto 4075
3956 if a=3 then c=1000:goto 4075
3957 if a=4 then c=5000:goto 4075
3958 if a=5 then c=10000:goto 4075
3960 if a=6 then c=50000:goto 4075
3961 if a=7 then c=150000:goto 4075
3962 if a=8 then c=500000:goto 4075
3963 if a=9 then c=1000000:goto 4075
3964 if a=10 then c=5000000:goto 4075
3965 if a=11 then c=20000000:goto 4075
3966 if a=12 then c=400:goto 4075
3967 if a=13 then c=6900:goto 4075
3968 if a=14 then c=29000:goto 4075
3969 if a=15 then c=1250000:goto 4075
3970 if a=16 then c=10000000:goto 4075
3971 if a=17 then c=1000:goto 4075
3972 if a=18 then c=1000:goto 4075
3999 if a=99 then CLS:GOTO 4577
4070 goto 3890
4075 if spellbook=0 then print:print "   You need a SpellBook to store Spells!":GOSUB 199:CLS:goto 3891
4076 if g<c then PRINT:GOSUB 198:print "   You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:cls:goto 3891
4077 if a=1 and spellbook=0 then spellbook=1:g=g-c:gosub 198:print:print "You buy a SpellBook.  You may now put Spells you find or buy in it.  You may only have 1 of each spell.":print "You may also place 5 SpellBook Runes on the Cover.  These will aid you in your spell castings.":gosub 198: gosub 199:CLS:goto 3891
4079 if a=2 and sp1=0  then g=g-c:sp1=1:spxp1=0:spman1=10:smod1=0:gosub 4199:gosub 199:CLS:goto 3891
4080 if a=3 and sp2=0 then g=g-c:sp2=1:spxp2=0:spman2=50:smod2=0:gosub 4199:gosub 199:CLS:goto 3891
4082 if a=4 and sp3=0 then g=g-c:sp3=1:spxp3=0:spman3=100:smod3=0:gosub 4199:gosub 199:CLS:goto 3891
4083 if a=5 and sp4=0 then g=g-c:sp4=1:spxp4=0:spman4=250:smod4=0:gosub 4199:gosub 199:CLS:goto 3891
4084 if a=6 and sp5=0 then g=g-c:sp5=1:spxp5=0:spman5=500:smod5=0:gosub 4199:gosub 199:CLS:goto 3891
4085 if a=7 and sp6=0 then g=g-c:sp6=1:spxp6=0:spman6=750:smod6=0:gosub 4199:gosub 199:CLS:goto 3891
4087 if a=8 and sp7=0 then g=g-c:sp7=1:spxp7=0:spman7=1250:smod7=0:gosub 4199:gosub 199:CLS:goto 3891
4088 if a=9 and sp8=0 then g=g-c:sp8=1:spxp8=0:spman8=1750:smod8=0:gosub 4199:gosub 199:CLS:goto 3891
4089 if a=10 and sp9=0 then g=g-c:sp9=1:spxp9=0:spman9=2500:smod9=0:gosub 4199:gosub 199:CLS:goto 3891
4090 if a=11 and sp10=0 then g=g-c:sp10=1:spxp10=0:spman10=5000:smod10=0:gosub 4199:gosub 199:CLS:goto 3891
4091 if a=12 and sp11=0 then g=g-c:sp11=1:spxp11=0:spman11=30:smod11=0:sprm11=10:gosub 4199:gosub 199:CLS:goto 3891
4092 if a=13 and sp12=0 then g=g-c:sp12=1:spxp12=0:spman12=100:smod12=0:sprm12=11:gosub 4199:gosub 199:CLS:goto 3891
4093 if a=14 and sp13=0 then g=g-c:sp13=1:spxp13=0:spman13=300:smod13=0:sprm13=12:gosub 4199:gosub 199:CLS:goto 3891
4094 if a=15 and sp14=0 then g=g-c:sp14=1:spxp14=0:spman14=600:smod14=0:sprm14=14:gosub 4199:gosub 199:CLS:goto 3891
4095 if a=16 and sp15=0 then g=g-c:sp15=1:spxp15=0:spman15=1200:smod15=0:sprm15=20:gosub 4199:gosub 199:CLS:goto 3891
4096 if a=17 and sp16=0 then g=g-c:sp16=1:spxp16=0:spman16=200:smod16=1:sprm16=20:gosub 4199:gosub 199:CLS:goto 3891
4097 if a=18 and sp17=0 then g=g-c:sp17=1:spxp17=0:spman17=200:smod17=1:sprm17=20:gosub 4199:gosub 199:cls:goto 3891
4198 CLS:goto 3891
4199 print:print "You buy the Spell!":return
4200 REM MAGIC ITEMS
4202 GOSUB 198:print "Welcome to the Magical Items section of the World O' Magic!"
4203 GOSUB 198:print "Item                                                 Cost                                      Effect                                                 You have":GOSUB 198
4204         print "1.    Treasure Doll                            10000                                   (see info)                                                 ";magici1
4205         print "2.    Golden Pin                                2000                                    (see info)                                                 ";magici2
4206         print "3.    "
4207         print "4.    "
4209         print "5.    "
4210         print "6.    "
4211         print "7.    "
4212         print "8.    "
4213         print "9.    "
4214         print "10.   "
4215         print "11.   "
4217         print "12.   "

4250 GOSUB 198:print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
4251 print:print "Which did you want to buy (1-2, atm, 66 to see [INFO] on an item, 99 to exit)";:input a:if a=99 then 3802
4252 if a=1 then c=10000:goto 4300
4253 if a=2 then c=2000:goto 4300
4299 if a=66 then 4352
4300 if g<c then PRINT:GOSUB 198:print "   You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:cls:goto 4203
4302 if a=1 and magica1=0 then g=g-c:magici1=1:print:print "You buy the Magical Treasure Doll.  Happy Looting!!":GOSUB 199:CLS:goto 4203
4303 if a=2 then g=g-c:magica2=magici2+1:print:print "You buy a Golden Pin and pin it on your Treasure Doll.  You feel a lot luckier now!":GOSUB 199:CLS:goto 4203
4349 CLS:goto 4202
4350 REM INFO
4352 print:print "Which one would you like info on (1-2, atm, 0 to exit)";:input a:if a=0 then 4203
4453 if a=1 then gosub 4500
4454 if a=2 then gosub 4502
4499 goto 4352
4500 gosub 198:print "The Treasure Doll is an ancient good luck charm dating back over 4000 years.  It is said that when":print "you buy Golden Pins and attach them to the Treasure Doll, Lady Luck will grant her"
4501 print "powers to you.  With each Pin added, the chances of a monster dropping treasure vastly increases.  Now go, and be Rich!":print "(You can only have 1 of this item)":gosub 198:return
4502 gosub 198:print "The Golden Pin is added to the Treasure Doll and Increases your luck.  With each Pin added, ":print "the chances of a monster dropping treasure vastly increases."
4503 print "(You may have as many as you want of this item)":gosub 198:return
4575 REM RUNES
4577 CLS:gosub 198:print "RUNES:  Archaic Symbols of the Hichadrian Era.  400 wizards came together in the largest festival of magica the world has ever seen.":print "Together they forged these magical runes upon the Forge of Ak'Nasalith.  He granted it to them after"
4578 print "they reunited him with his Trident of Power, which was stolen by the evil Dietus, Xaarmazindan.  It was a bloody battle fighting Xaarmazindan, but":print "after many losses, they won.  Using the forge to research and develop magic to greater standards and power,"
4579 print "the 400 wizards began to feud amongst themselves, and a horrible war ensued.  In the end, many of the wizards rather see the items destroyed than":print "in the hands of rival wizards, so most were destroyed.  These runes and few other items only remain from that great age."
4580 Print:print "Item                                                 Cost                                      Effect                                                 You have":GOSUB 198
4582         print "1.    Rune One                                   10000                                   (see info)                                                 ";rune1
4583         print "2.    Rune Two                                   20000                                   (see info)                                                 ";rune2
4584         print "3.   "
4585         print "4.   "
4587         print "5.    "
4588         print "6.   "
4589         print "7.    "
4590         print "8.    "
4592         print "9.    "
4593         print "10.  "
4594         print "11.  "
4624         print "11.  "
4625 GOSUB 198:print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
4626 print:print "Which did you want to buy (1-2, atm, 99 to exit)";:input a:if a=99 then  CLS:GOTO 3890
4674 goto 4577
4675 if g<c then PRINT:GOSUB 198:print "   You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:cls:goto 4580
4676 if a=1 and rune1=0 then print:print "You buy the rune of ????":g=g-c:rune1=1:goto 4580
4724 CLS:goto 4580
4725 REM END OF WORLD O MAGIC?












1574 Rem Trade Items Values
1575 if ctvv=1 then gosub 1580
1577 return
1580 t1=int(rnd(1)*100)+100:t2=(int(rnd(1)*100)+1)*2+200:t3=(int(rnd(1)*100)+1)*3+300:t4=(int(rnd(1)*100)+1)*4+400:t5=(int(rnd(1)*100)+1)*5+499:t6=(int(rnd(1)*100)+1)*5+499
1582 t7=(int(rnd(1)*100)+100):t8=(int(rnd(1)*100)+1)*2+200:t9=(int(rnd(1)*100)+1)*3+300:t10=(int(rnd(1)*100)+1)*5+499:t11=(int(rnd(1)*100)+100):t12=(int(rnd(1)*100)+100)
1584 t13=(int(rnd(1)*100)+100)*2:t14=(int(rnd(1)*100)+1)*2+200:t15=(int(rnd(1)*100)+1)*3+300:t16=(int(rnd(1)*100)+1)*4+400:t17=(int(rnd(1)*100)+1)*5+499
1586 if merch=1 then merch=0:return
1588 tt1=t1:tt2=t2:tt3=t3:tt4=t4:tt5=t5:tt6=t6:tt7=t7:tt8=t8:tt9=t9:tt10=t10:tt11=t11:tt12=t12:tt13=t13:tt14=t14:tt15=t15:tt16=t16:tt17=t17:ctvv=0:GOSUB 2707:return


3500 REM DEATH AND END
3502 gosub 199:gosub 198:gosub 198:gosub 198:gosub 198:gosub 198:gosub 198:GOSUB 3540:score=thp+tmp+str+days+iq+dex+con+bank+clvl+lvl:li=li-1:PRINT:PRINT:print "::::::: Current Score:  ";score;" :::::::::::::::":gosub 198:gosub 198:gosub 198:gosub 198:gosub 198:gosub 198:gosub 199:GOSUB 199:goto 3512
3504 print "Final Score is:  ";score
3506 print "You have used up all your Lives =(.  Game Over."
3510 print:print "Thanks for playing.":print:print:print:print:print:print:print:gosub 198:print "Brought to you by BlackOgre Productions:  http://www.black-ogre.com/":print "Visit DJ Skagnetti's Website for 4 albums of free music!   http://www.black-ogre.com/djskagnetti/":print "Copyright 1986-2007  BlackOgre Productions":End
3512 print "You awake at the Castle, as if it were all just a bad dream....":print "Until you notice most of your gold and all of your jewelry and gems are gone.  All healing items, damage items,":print "trade items, special items, and junk have been stolen as well!":IF w=1 then print "They even took your weapon!"
3514 gem=0:gem1=0:jwl=0:jwl1=0:it1=0:it2=0:it3=0:it4=0:it5=0 :it6=0 :it7=0 :it8=0 :it9=0 :it10=0 :it11=0 :it12=0 :it13=0 :it14=0 :it15=0 :it16=0 :it17=0 :it18=0 :it19=0:it20=0
3516 it21=0:it22=0 :it23=0 :it24=0 :it25=0 :it26=0 :it27=0 :it28=0 :it29=0 :it30=0 :it31=0 :it32=0 :it33=0 :it34=0 :it35=0 :it36=0 :it37=0 :it38=0 :it39=0 :it40=0
3518 it41=0 :it42=0 :it43=0 :it44=0 :it45=0 :it46=0 :it47=0 :it48=0 :it49=0 :it50=0 :it51=0 :it52=0 :it53=0 :it54=0 :it55=0 :it56=0 :it57=0:w=0:wsucks=0:w$="Fisticuffs":cmin=1:cmax=5
3519 rou=1:mn1=0:mn2=0:mn3=0:mn4=0:dx=0:initp=0:npc=0:initm=0
3520 g=int(g/(10+(int(rnd(1)+10)+1))):junk=0:jun=0:he=0:spe=0:un=0:tr=0:hp=5+clvl:mp=5+int(clvl/2):GOSUB 199:PRINT "::::: DONT FORGET:  Current Weapon:  ";w$;" (dam ";cmin;"-";cmax;")  Current HP:  ";hp;"/";thp;"  Current Mana:  ";mp;"/";tmp;". :::::::::::::::::":GOSUB 199:goto 430
3540 PRINT "                                    "
3541 PRINT "                                                              "
3542 pRINT "                                                               "
3543 PRINT "                                       "
3544 PRINT "                                                                "
3545 PRINT "                                                                 "
3546 PRINT "                                                     ":rETURN


70000 REM Character critical miss
70002 a=int(rnd(1)*5)+1:if a=1 then ccm$="You have thrown your sword out of your hand and must retrieve it!":ccm2$="You spend your turn finding and picking up your sword!":return
70004 if a=2 then ccm$="You have tripped up on your own feet and have fallen!":ccm2$="You spend your turn picking yourself up off the ground!":return
70006 if a=3 then ccm$="You have gotten your sword stuck in a wood column in the room!":ccm2$="You spend your turn pulling your sword from the column!":return
70008 if a=4 then ccm$="You have slipped and fallen to the ground!":ccm2$="You spend your turn getting back up from your slip!":return
70010 if a=5 then ccm$="You spin around wildly and fall to the floor!":ccm2$="You spend your turn pulling yourself to your feet!":return
70020 a=int(rnd(1)*2)+1:if a=1 then mcm$="The ";mn$;" has missed you so bad it has fallen to the ground!":mcm2$="The ";mn$;" spends it's turn getting to its feet!":return
70022 if a=2 then mcm$="The ";mn$;" has missed you so bad it hit itself and knocked itself unconscious!":mcm2$="The ";mn$;" spends it's turn recovering from the blow it dealt to itself!":return

1290129012  REM TREASURES
1200 rem gemstones
1201 a=int(rnd(1)*13)+1: if a=1 and ml>= 1 then g$="Pearl":goto 1228
1202 if a=2 and ml>= 1 then g$="Sapphire":goto 1228
1204  if a=3 and ml>= 1 then g$="Ruby":goto 1228
1206   if a=4 and ml>= 2 then g$="Amethyst":goto 1228
1208 if a=5 and ml>= 4 then g$="Onyx":goto 1228
1210  if a=6 and ml>= 6 then g$="Chine Star":goto 1228
1212   if a=7 and ml>= 6 then g$="Opal":goto 1228
1214    if a=8 and ml>= 8 then g$="Emerald":goto 1228
1216     if a=9 and ml>= 8 then g$="Cyron":goto 1228
1218      if a=10 and ml>= 10 then g$="Jade":goto 1228
1220       if a=11 and ml>= 18 then g$="Staryx":goto 1228
1222        if a=12 and ml>= 20 then g$="Diamond":goto 1228
1224         if a=13 and ml>= 20 then g$="Bloodstone":goto 1228
1226 goto 1200
1228 jv1=int(rnd(1)*mg)+1+int(mg*.75)
1230 return
1235 Rem Jewelry
1236 a=int(rnd(1)*20)+1:if a=1 and ml>=1 and ml <=10 then j1$="Giln":goto 1275
1237 if a=2 and ml>=2 and ml <=11 then j1$="Crystal":goto 1275
1238 if a=3 and ml>=3 and ml <=12 then j1$="Glass":goto 1275
1240 if a=4 and ml>=4 and ml <=14 then j1$="Pearl":goto 1275
1242 if a=5 and ml>=6 and ml <=15 then j1$="Tin":goto 1275
1244 if a=6 and ml>=7 and ml <=16 then j1$="Chine":goto 1275
1246 if a=7 and ml>=8 and ml <=16 then j1$="Cyron":goto 1275
1248 if a=8 and ml>=8 and ml <=18 then j1$="Copper":goto 1275
1250 if a=9 and ml>=8 and ml <=18 then j1$="Silver":goto 1275
1252 if a=10 and ml>=10 and ml <=18 then j1$="Amethyst":goto 1275
1254 if a=11 and ml>=10 and ml <=20 then j1$="Ruby":goto 1275
1256 if a=12 and ml>=12 and ml <=20 then j1$="Opal":goto 1275
1258 if a=13 and ml>=14 then j1$="Gold":goto 1275
1260 if a=14 and ml>=14 then j1$="Emerald":goto 1275
1262 if a=15 and ml>=14  then j1$="Jade":goto 1275
1264 if a=16 and ml>=15  then j1$="Platinum":goto 1275
1266 if a=17 and ml>=15  then j1$="Sapphire":goto 1275
1268 if a=18 and ml>=18 then j1$="Staryx":goto 1275
1270 if a=19 and ml>=20  then j1$="Onyx":goto 1275
1272 if a=20 and ml>=20  then j1$="Diamond":goto 1275
1274 goto 1235
1275 a=int(rnd(1)*39)+1:if a=1 then j2$="Box"
1276 if a=2 then j2$="Coffer"
1277 if a=27 then j2$="Anklet"
1278  if a=3 then j2$="Earrings":n=1
1279 if a=28 then j2$="Arm Bands":n=1
1280  if a=4 then j2$="Armbands":n=1
1281 if a=29 then j2$="Chain"
1282  if a=5 then j2$="Candleabra"
1283 if a=30 then j2$="Clasp"
1284  if a=6 then j2$="Crown"
1285 if a=31 then j2$="Choker"
1286  if a=7 then j2$="Glasses":n=1
1287 if a=32 then j2$="Diadem"
1288  if a=8 then j2$="Ring"
1289 if a=33 then j2$="Goblet"
1290  if a=9 then j2$="Necklace"
1291 if a=34 then j2$="Seal"
1292  if a=10 then j2$="Anklet"
1293 if a=35 then j2$="Orb"
1294  if a=11 then j2$="Plate"
1295 if a=36 then j2$="Pin"
1296  if a=12 then j2$="Broach"
1297 if a=37 then j2$="Tiara"
1298  if a=13 then j2$="Mug"
1299 if a=38 then j2$="Band"
1300  if a=14 then j2$="Figurine"
1301 if a=39 then j2$="Locket"
1302  if a=15 then j2$="Bar"
1304  if a=16 then j2$="Nuggets":n=1
1306  if a=17 then j2$="Pendant"
1308 if a=18 then j2$="Belt"
1310  if a=19 then j2$="Engraved Stone"
1312  if a=20 then j2$="Bauble"
1313  if a=21 then j2$="Barrettes":n=1
1314  if a=22 then j2$="Locket"
1315  if a=23 then j2$="Talisman"
1317  if a=24 then j2$="Wristbands":n=1
1318  if a=25 then j2$="Medallion"
1320 if a=26 then j2$="Crest"
1321 aa=int(rnd(1)*3)+1:if aa=1 then x$="beautiful":goto 1324
1322 if aa=2 then x$="wondrous":goto 1324
1323 x$="glorious"
1324  jv1=int(rnd(1)*mg)+1+int(mg*.75)
1325 return
1326 Rem Treasure:Gems
1327 ti2=ti2+1:print:print ":::: ";mn$;" ";axxx;" had dropped a gemstone!":gosub 1200
1328 print "It is a lovely ";g$;".":gem=gem+jv1:gem1=gem1+1:jv1=0:print "You tuck it away in your pack.":return
1330 Rem Treasure:Jewels
1332 ti1=ti1+1:if n=1 then print ":::: ";mn$;" ";axxx;" has items of value!":print "They are ";x$;" ";j1$;" ";j2$;".":print "You place them gently in your pack.":jwl=jwl+jv1:jwl1=jwl1+1:jv1=0:aa=0:n=0:return
1333 print:print ":::: The ";mn$;" has an item of value!"
1334 print "It's a ";x$;" ";j1$;" ";j2$;".":print "You place it gently in your pack.":jwl=jwl+jv1:jwl1=jwl1+1:jv1=0:aa=0:n=0:return
1335 Rem Treasure:New Weapon
1337 IF clvl<10 then gosub 1564:return
1338 a1=int(rnd(1)*6)+1:if a1=1 then wx$="Axe"
1339 if a1=2 then wx$="Sword"
1340 if a1=3 then wx$="Glaive"
1341 if a1=6 then wx$="Spear"
1342 if a1=4 then wx$="Staff"
1344 if a1=5 then wx$="Bo-Wing"
1346 a=int(rnd(1)*3)+5 :aa=int(rnd(1)*5)+5:gosub 1370
1347 ti3=ti3+1:print:print ":::: ";mn$;" ";axxx;" has dropped a weapon!":if w=0 then print:print "You pick it up because your poor fists are sore.":cmin=min:cmax=max:print "You now have a new ";wx$;" with base damage of ";cmin;" - ";cmax;".":w$=wx$:w=1:min=0:max=0:return
1348 print:print "It is a mean lookin ";wx$;"! (damage = ";min;" to ";max;")": print "(your current weapons base damage is ";cmin;" - ";cmax;")"
1350 print:print "Would you like to trade in your old weapon for this one?":print "**important!  if you do this you will loose all enchantments you have installed on your current weapon.**"
1352 print "(Y/N)";:input a$:gosub 1000
1354 if a$="Y" then 1360
1356 if a$="N" then print "You leave the weapon behind.":min=0:max=0:return
1358 goto 1350
1360 print:print "Are you really really sure you want to give up your old weapon and take this one with no enchantments (Y/N)";:input a$:gosub 1000
1362 if a$="Y" then print "You pick up the new weapon and throw the old away.":w$=wx$:cmin=min:cmax=max:print "You now have a new ";w$;" with base damage of ";cmin;" - ";cmax;".":ite1=0:ite2=0:ite3=0:ite4=0:ite5=0:ite6=0:ite7=0:ite8=0:min=0:max=0:return
1364 if a$="N" then 1350
1366 goto 1360
1370 if clvl >=10 and clvl <=17 then min =1+a:max=8+aa:return
1372 if clvl >=18 and clvl <=24 then min =1+a:max=12+aa:return
1374 if clvl >=25 and clvl <=34 then min =1+a:max=17+aa:return
1376 if clvl >=35 and clvl <=50 then min =1+int(a*1.4):max=25+int(aa*1.4):return
1378 if clvl >=51 and clvl <=60 then min =1+int(a*1.7):max=34+int(aa*1.7):return
1379 if clvl >=61 and clvl <=70 then min =1+int(a*2.5):max=47+int(aa*2.5):return
1380 if clvl >=71 and clvl <=80 then min =1+int(a*3.2):max=70+int(aa*3.2):return
1381 if clvl >=81 and clvl <=101 then min =1+int(a*3.9):max=80+int(aa*3.9):return
1382 if clvl >=102 then min =1+int(a*5.5):max=90+int(a*5.5):return
1400 Rem Rare items
1401 a=int(rnd(1)*19)+1:if a=1 and ml >50 then it39=it39+1:it$="Extra Life":return
1402 if a=2 and ml >12 then it40=it40+1:it$="+1 IQ Drink":return
1403 if a=3 and ml >12  then it41=it41+1:it$="+1 DEX Drink" :return
1404 if a=4 and ml >12  then it42=it42+1:it$="+1 CON Drink" :return
1406 if a=5  and ml >12 then it43=it43+1:it$="+1 STR Drink" :return
1408 if a=6 and ml >30 then it56=it56+1:it$="Full Life/Mana Potion":return
1410 if a=7  and ml >15 then it45=it45+1:it$="+200 Health Drink" :return
1412 if a=8 and ml >20  then it46=it46+1:it$="+300 Health Drink" :return
1414 if a=9 and ml >24  then it47=it47+1:it$="+400 Health Drink" :return
1416 if a=10 and ml >28  then it48=it48+1:it$="+500 Health Drink" :return
1418 if a=11 then it49=it49+1:it$="+40 Mana Drink" :return
1420 if a=12 and ml >17  then it50=it50+1:it$="+60 Mana Drink" :return
1422 if a=13 and ml >22  then  it51=it51+1:it$="+80 Mana Drink":return
1423 if a=14 and ml >27  then  it52=it52+1:it$="+120 Mana Drink":return
1424 if a=15 and ml >30  then it53=it53+1:it$="+150 Mana Drink" :return
1425 if a=16 and ml >20  then it54=it54+1:it$="Full Health Potion" :return
1426 if a=17 and ml >20  then  it55=it55+1:it$="Full Mana Potion":return
1427 goto 950050
1428 it44=it44+1:it$="+100 Health Drink" :return
1430 rem Healing Items
1431 a=int(rnd(1)*8)+1:if a=1 then it1=it1+1:it$="Herb":return
1432 if a=8 then it58=it58+1:it$="Antidote":return
1434 if a=2 and ml>=8 then it2=it2+1:it$="Herb2":return
1436 if a=3 and ml>=12 then it3=it3+1:it$="Herb3":return
1438 if a=4 and ml>=16 then it4=it4+1:it$="Herb4":return
1440 if a=5 then it5=it5+1:it$="Manashroom":return
1442 if a=6 and ml>=10 then it6=it6+1:it$="Manashroom2":return
1444 if a=7 and ml>=14 then it7=it7+1:it$="Manashroom3":return
1445 if a=8 and ml>=18 then it8=it8+1:it$="Manashroom4":return
1446 goto 1432
1450 rem textile items
1452 a=int(rnd(1)*6)+1:if a=1 then it9=it9+1:it$="Cotton":return
1454 if a=2 and ml>5 then it10=it10+1:it$="Velvet":return
1456 if a=3 and ml>10 then it11=it11+1:it$="Silk":return
1458 if a=4 and ml>15 then it12=it12+1:it$="Leather":return
1460 if a=5 and ml>20 then it13=it13+1:it$="Dreamweave":return
1462 if a=6 and ml>25 then it14=it14+1:it$="Cord":return
1463 goto 1450
1465 rem metal items
1467 a=int(rnd(1)*4)+1:if a=1 then it15=it15+1:it$="Steel":return
1468 if a=2 and ml >5 then  it16=it16+1:it$="Lead":return
1470 if a=3 and ml >10 then it17=it17+1:it$="Iron":return
1472 if a=4 and ml >20 then it18=it18+1:it$="Admantium":return
1474 goto 1465
1480 rem monster part items
1482 a=int(rnd(1)*7)+1:if a=1 then it19=it19+1:it$="Spike":return
1484 if a=2 then  it20=it20+1:it$="Talon":return
1486 if a=3 and ml>10 then it21=it21+1:it$="Tooth":return
1487 if a=4  and ml>10 then it22=it22+1:it$="Ear":return
1488 if a=5  and ml>20 then it23=it23+1:it$="Scale":return
1489 if a=6  and ml>25 then it24=it24+1:it$="Bladder":return
1490 if a=7  and ml> 30 then it25=it25+1:it$="Eye":return
1492 goto 1480
1500 rem junk items
1502 a=int(rnd(1)*8)+1:if a=1 then it32=it32+1:it$="Sand Dollar":junk=junk+ml:return
1504 if a=2 then  it33=it33+1:it$="Clay Ball":junk=junk+ml:return
1506 if a=3 and ml>8 then  it34=it34+1:it$="Wooden Shoe":junk=junk+ml:return
1508 if a=4 and ml>12 then  it35=it35+1:it$="Dead Chicken":junk=junk+ml:return
1510 if a=5 and ml>16 then  it36=it36+1:it$="Broken Key":junk=junk+ml:return
1512 if a=6 and ml>20 then  it37=it37+1:it$="Keanu Reeves Movie Collection":junk=junk+ml:return
1514 if a=7 and ml>24 then  it38=it38+1:it$="Wire Mesh":junk=junk+ml:return
1516 if a=8 and ml>28 then it39=it39+1:it$="Plastic Ring":junk=junk+ml:return
1518 goto 1502
1520 rem damage items
1522 a=int(rnd(1)*5)+1:if a=1 then it26=it26+1:it$="Spikeball":return
1525 if a=2 and ml >15 then it27=it27+1:it$="Shockball":return
1524 if a=3 and ml >25 then  it28=it28+1:it$="Powderball":return
1526 if a=4 and ml >35 then  it29=it29+1:it$="Chain Lightningball":return
1528 if a=5 and ml>45 then it30=it30+1:it$="Firestormball":return
1530 if a=6 and ml >65 then it31=it31+1:it$="Deathball":return
1531 goto 1522




1595 gosub 3770:GOSUB 199:GOSUB 198:print"::: End of Battle Report :::::::":GOSUB 198:PRINT "::: Treasure  Report :::::::::::::": GOSUB 198:IF ti5>0 then print "::: Gold:                                       ";ti5
1597 if ti5>0 then print "          Current Gold:  ";g
1598 if ti2>0 then print  "::: Gems:                                     ";ti2
1599 if ti2>0 then print  "          Total:  ";gem1
1600 if ti1>0 then print "::: Jewels:                                     ";ti1
1601  if ti1>0 then print "          Total:  ";jwl1
1602 if ti4>0 then print "Total Items Dropped:                      ";ti4
1603 if ti3>0 then print "::: Total Weapons Dropped:            ";ti3
1604 GOSUB 198:print "::: XP Final Report :::::::":GOSUB 198:print "::: Total XP Gained from This Battle:  ";nn
1605 print "::: XP for next level:  ";xp2:if xp1=xp2 then xp1=0
1606 print "::: XP towards that level:  ";xp1:print "::: XP Needed for LV ";clvl+1;":  ";xp2-xp1:GOSUB 198
1607 print "::: HP:  ";hp;"/";thp:print "::: MP:  ";mp;"/";tmp
1608 GOSUB 198:print "::: End of Battle :::::::  lasted ";rou;" rounds.  Monsters killed:  ";mn;".  Total Monster Kills:  ";tmk+mn;".":tmk=tmk+mn:ti1=0:ti2=0:ti3=0:ti4=0:ti5=0
1609 gosub 198:gosub 199:mspec1=0:return

1550 REM TREASURE FINDER:1-444 gOLD:445-464 iTEM:465-484 jEWELRY:485-504 gEMS: 505-509 nEW wEAPON:510+ nOTHING
1551 axxx=0
1552 GOSUB 198:axxx=axxx+1:if axxx>mn then GOSUB 198: return
1553 GOSUB 3470:a=0:a=int(rnd(1)*500)+1:if a>=21 and a<381 or goldon=1 then GOSUB 1564:GOTO 1552
1554 if a>=381 and a<416 then gosub 1235: gosub 1330:goto 1552
1555 if a>=416 and a<446 then gosub 1326:goto 1552
1556 if a>=446 and a<456 then gosub 1500:ti4=ti4+1:jun=1: print:print ":::: ";mn$;" ";axxx;" dropped an item!":print "The item is:  ";it$;".":goto 1552
1557 if a>=456 and a<471 then gosub 1430:ti4=ti4+1:he=1: print:print ":::: ";mn$;" ";axxx;" dropped an item!":print "The item is:  ";it$;".":goto 1552
1558 if a>=471 and a<486 then gosub 1385:PRINT "The item is:  ";it$;".":goto 1552
1559 if a>=486 and a<491 then gosub 1520:he=1:print:print ":::: ";mn$;" ";axxx;" dropped an item!":print "The item is:  ";it$;".":goto 1552
1560 if a>=491 and a<501 then gosub 2450:goto 1552
1562 if a>=1 and a<21 then print:print ":::: ";mn$;" ";axxx;" did not have any treasure.":goto 1552
1564 a=int(rnd(1)*mg)+clvl+int(mg/4): if a>mg then a=mg
1565 if a<=0 then a=1
1566 jxjxjx=int(rnd(1)*100)+1:if jxjxjx<3 then a=a+int(rnd(1)*mg)+1:goto 1571
1567 if jxjxjx<7 then a=a+int(((rnd(1)*mg)+1)/3):goto 1571
1568 if jxjxjx<11 then a=a+int(((rnd(1)*mg)+1)/6):goto 1571
1569 if jxjxjx<16 then a=a+int(((rnd(1)*mg)+1)/12):goto 1571
1570 if jxjxjx<=22 then a=a+int(((rnd(1)*mg)+1)/24):goto 1571
1571 if golddoubler=1 then a=a*2
1572 PRINT:print ":::: ";mn$;" ";axxx;" had ";a;" gold pieces.":g=g+a:ti5=ti5+a:RETURN
1385 REM TREASURE:TRADE DECIDER
1386 a=int(rnd(1)*5)+1:if a<3 then tr=1: print:print ":::: ";mn$;" ";axxx;" dropped a textile!":goto 1450
1387 if a>2 and a<5 then tr=1:print:print ":::: ";mn$;" ";axxx;" dropped a monster part!":goto  1480
1388 tr=1: print:print ":::: ";mn$;" ";axxx;" dropped a metal!":goto  1465


1650 REM TREASURE:SPECIAL DECIDER
1652 a=int(rnd(1)*100)+1:if a>0 and a<41 then 1670
1654 if a>40 and a<71 then 2500
1656 if a>70 and a<76 then 1335
1658 if a>75 and a<91 then 1720
1660 if a>90 then 1770
1670 REM LOW ITEMS
1672 a=int(rnd(1)*13)+1:if a=1 then 1812
1674 if a=2 then 1820
1676 if a=3 then 1830
1678 if a=4 then 1840
1680 if a=5 and ml>=4 then it63=it63+1:it$="Summon NPC Crystal":return
1682 if a=6 then 1848
1684 if a=7 then it44=it44+1:it$="+100 Health Drink" :return
1686 if a=8 and ml >=6 then it50=it50+1:it$="+60 Mana Drink" :return
1688 if a=9 and ml>=5 then it45=it45+1:it$="+200 Health Drink" :return
1690 if a=10 and ml>=10 then it51=it51+1:it$="+80 Mana Drink":return
1692 if a=11 and ml>=9 then it46=it46+1:it$="+300 Health Drink" :return
1694 if a=12 and ml>=15 then it52=it52+1:it$="+120 Mana Drink":return
1696 if a=13 then it49=it49+1:it$="+40 Mana Drink" :return
1719 goto 1672
1720 REM MED ITEMS
1722 a=int(rnd(1)*13)+1:if a=1 then 1952
1724 if a=2 then 1956
1726 if a=3 then 1980
1728 if a=4 then 2015
1730 if a=5 then 2040
1732 if a=6 and ml>=12 then it40=it40+1:it$="+1 IQ Drink":return
1734 if a=7 and ml>=12 then it41=it41+1:it$="+1 DEX Drink" :return
1736 if a=8 and ml>=12 then it42=it42+1:it$="+1 CON Drink" :return
1738 if a=9 and ml>=12 then it43=it43+1:it$="+1 STR Drink" :return
1740 if a=10 and ml>=14 then it47=it47+1:it$="+400 Health Drink" :return
1742 if a=11 and ml>=10 then it54=it54+1:it$="Full Health Potion" :return
1744 if a=12 and ml>=10 then it55=it55+1:it$="Full Mana Potion":return
1768 goto 1722
1769 REM HIGH ITEMS
1770  a=int(rnd(1)*7)+1:if a=1 then 2265
1772 if a=2 then 2275
1774 if a=3 then 2285
1776 if a=4 then 950000
1778 if a=5 and ml >=15 then it56=it56+1:it$="Full Life/Mana Potion":return
1780 if a=6 and ml >=21 then it53=it53+1:it$="+150 Mana Drink" :return
1782 if a=7 and ml >=20 then  it48=it48+1:it$="+500 Health Drink" :return
1809 goto 1770

1810 REM LOW ITEMS ATTRIBUTES ETC
1812 it$=" ":a=1+ml+dlvl:if it59>0 then 1816
1814 it59=a:print:print "It is a Ring of Poison Resistance (";it59;"%)!!":print "You can now resist poison attacks ";it59;"% of the time!":return
1816 if it59>a then print:print "It is a Ring of Poison Resistance (";a;"%)":print "But your current ring is ";it59;"% so it dissolves into dust when you touch it...":return
1818 print:print "It is a Ring of Poison Resistance (";a;"%)!!":print "It makes your current ring of ";it59;"% dissolve when you touch it.":it59=a:return
1820 it$=" ":a=1+ml+dlvl:if it60>0 then 1824
1822 it60=a:print:print "It is a Ring of Fire Resistance (";it60;"%)!!":print "You can now resist fire attacks ";it60;"% of the time!":return
1824 if it60>a then print:print "It is a Ring of Fire Resistance (";a;"%)":print "But your current ring is ";it60;"% so it dissolves into dust when you touch it...":return
1826 print:print "It is a Ring of Fire Resistance (";a;"%)!!":print "It makes your current ring of ";it60;"% dissolve when you touch it.":it60=a:return
1830 it$=" ":a=1+ml+dlvl:if it61>0 then 1834
1832 it61=a:print:print "It is a Ring of Lightning Resistance (";it61;"%)!!":print "You can now resist lightning attacks ";it61;"% of the time!":return
1834 if it61>a then print:print "It is a Ring of Lightning Resistance (";a;"%)":print "But your current ring is ";it61;"% so it dissolves into dust when you touch it...":return
1836 print:print "It is a Ring of Lightning Resistance (";a;"%)!!":print "It makes your current ring of ";it61;"% dissolve when you touch it.":it61=a:return
1840 it$=" ":a=1+ml+dlvl:if it62>0 then 1844
1842 it62=a:print:print "It is a Ring of Cold Resistance (";it62;"%)!!":print "You can now resist cold attacks ";it62;"% of the time!":return
1844 if it62>a then print:print "It is a Ring of Cold Resistance (";a;"%)":print "But your current ring is ";it62;"% so it dissolves into dust when you touch it...":return
1846 print:print "It is a Ring of Cold Resistance (";a;"%)!!":print "It makes your current ring of ";it62;"% dissolve when you touch it.":it62=a:return
1848 it$=" ":a=1+ml+dlvl:if it64>0 then 1844
1852 it64=a:print:print "It is a Bag of Money Holding (";it64;"%)!!":print "Now, if you fail at living, you will keep ";it64;"% of all the gold you carry instead of losing everything.":return
1854 if it64>a then print:print "It is a Bag of Money Holding (";a;"%)":print "But your current bag is ";it64;"% so it dissolves into dust when you touch it...":return
1856 print:print "It is a Bag of Money Holding (";a;"%)!!":print "It makes your current bag of ";it64;"% dissolve when you touch it.":it64=a:return

1950 REM MED ITEMS ATTRIBUTES ETC
1952 it$=" ":if it65=1 then 1722
1954 print:print "It is a Ring of Feather Falling!!":print "Now if you fall anywhere this ring will slow your descent to avoid any damage!!!":it65=1:return
1956 it$=" ":a=int(rnd(1)*500)+1:a=int(a/10)
1958 if a<=0 then a=10
1960 if a>50 then a=50
1962 if a=20 and ml<10 then a=10:goto 1970
1964 if a=30 and ml<20 then a=20:goto 1962
1966 if a=40 and ml<30 then a=30:goto 1964
1968 if a=50 and ml<40 then a=40:goto 1966
1970 if it66>=a then print:print "It is a Ring of Experience (";a;"%)!!!":print "But your current one is the same or better (";it66;"%), so this one dissolves to dust.":return
1972 if it66>0 then print:print "It is a Ring of Experience (";a;"%)!!!":print "Your current one is not as good (";it66;"%), so it dissolves into dust.":it66=a:return
1974 it66=a:print:print "It is a Ring of Experience (";a;"%)!!!":print "You will now gain an additional ";it66;"% XP after a battle!":return
1980 it$=" ":a=int(rnd(1)*1000)+1:a=int(a/100)
1982 if a<=0 then a=10
1984 if a>100 then a=100
1986 if a=20 and ml<5 then a=10:goto 2004
1988 if a=30 and ml<10 then a=20:goto 1986
1990 if a=40 and ml<15 then a=30:goto 1988
1992 if a=50 and ml<20 then a=40:goto 1990
1994 if a=60 and ml<25 then a=50:goto 1992
1996 if a=70 and ml<30 then a=60:goto 1994
1998 if a=80 and ml<35 then a=70:goto 1996
2000 if a=90 and ml<40 then a=80:goto 1998
2002 if a=100 and ml<45 then a=90:goto 2000
2004 if it67>=a then print:print "It is a Bracer of Absorbtion (";a;" HPs)!!":print "But your current one is the same or better (";it67;" HPs), so this one dissolves to dust.":return
2006 if it67>0 then print:print "It is a Bracer of Absorbtion (";a;" HPs)!!":print "Your current one is not as good (";it67;" HPs), so it dissolves into dust.":it67=a:return
2008 it67=a:print:print "It is a Bracer of Absorbtion (";a;" HPs)!!":print "You will now absorb the first ";it67;" HPs of damage done to you at the start of every battle!!!":return
2015 it$=" ":a=int(rnd(1)*10)+1:if a=2 and ml<5 then a=1:goto 2032
2017 if a=3 and ml<5 then a=1:goto 2032
2018 if a=4 and ml<15 then a=3:goto 2017
2020 if a=5 and ml<20 then a=4:goto 2018
2022 if a=6 and ml<25 then a=5:goto 2020
2024 if a=7 and ml<30 then a=6:goto 2022
2026 if a=8 and ml<35 then a=7:goto 2024
2028 if a=9 and ml<40 then a=8:goto 2026
2030 if a=10 and ml<45 then a=9:goto 2028
2032 if it68>=a then print:print "It is a Bracer of Reflection (";a;"%)!!":print "But your current one is the same or better (";it68;"%), so this one dissolves to dust.":return
2034 if it68>0 then print:print "It is a Bracer of Reflection (";a;"%)!!":print "Your current one is not as good (";it68;"%), so it dissolves into dust.":it68=a:return
2036 it68=a:print:print "It is a Bracer of Reflection (";a;"%)!!":print "You will now deflect ";it68;"% of damage done to you away!!":return
2040 it$=" ":a=int(rnd(1)*10)+1:if a=2 and ml<5 then a=1:goto 2058
2042 if a=3 and ml<5 then a=1:goto 2058
2044 if a=4 and ml<15 then a=3:goto 2042
2046 if a=5 and ml<20 then a=4:goto 2044
2048 if a=6 and ml<25 then a=5:goto 2046
2050 if a=7 and ml<30 then a=6:goto 2048
2052 if a=8 and ml<35 then a=7:goto 2050
2054 if a=9 and ml<40 then a=8:goto 2052
2056 if a=10 and ml<45 then a=9:goto 2054
2058 if it69>=a then print:print "It is a Ring of Reflection (";a;"%)!!":print "But your current one is the same or better (";it69;"%), so this one dissolves to dust.":return
2060 if it69>0 then print:print "It is a Ring of Reflection (";a;"%)!!":print "Your current one is not as good (";it69;"%), so it dissolves into dust.":it69=a:return
2062 it69=a:print:print "It is a Ring of Reflection (";a;"%)!!":print "You will now deflect ";it69;"% of damage done to you away!!":return

2264 REM HIGH ITEMS ATTRIBUTES ETC
2265 it$=" ":a=((int(rnd(1)*5)+1)*5):a=int(a/100):if a<=0 then a=1
2266 if it70>=a then print:print "It is a Broach of Death (";a;"%)!!":print "But your current one is the same or better (";it70;"%), so this one dissolves to dust.":return
2268 if it70>0 then print:print "It is a Broach of Death (";a;"%)!!":print "Your current one is not as good (";it70;"%), so it dissolves into dust.":it70=a:return
2270 it70=a:print:print "It is a Broach of Death (";a;"%)!!":print "You now have a ";it70;"% chance to Dissintegrate a creature during a battle!!":print "This will only happen once per battle, and never in a boss battle.":return
2275 it$=" ":a=int(mlv/10):if a<=0 then a=1
2276 if it71>=a then print:print "It is a Ring of Regeneration (";a;" HPs per room/area)!!":print "But your current one is the same or better (";it71;" HPs per room/area), so this one dissolves to dust.":return
2278 if it71>0 then print:print "It is a Ring of Regeneration (";a;" HPs per room/area)!!":print "Your current one is not as good (";it71;" HPs per room/area), so it dissolves into dust.":it71=a:return
2280 it71=a:print:print "It is a Ring of Regeneration (";a;" HPs per room/area)!!":print "Now, with every room/area you pass through, you will regain ";a;" HPs!!!":return
2285 it$=" ":a=int(mlv/20):if a<=0 then a=1
2286 if it72>=a then print:print "It is a Ring of Mana Regeneration (";a;" MPs per room/area)!!":print "But your current one is the same or better (";it72;" MPs per room/area), so this one dissolves to dust.":return
2288 if it72>0 then print:print "It is a Ring of Mana Regeneration (";a;" MPs per room/area)!!":print "Your current one is not as good (";it72;" MPs per room/area), so it dissolves into dust.":it72=a:return
2290 it72=a:print:print "It is a Ring of Mana Regeneration (";a;" MPs per room/area)!!":print "Now, with every room/area you pass through, you will regain ";a;" MPs!!!":return

2450 REM telling you about special item
2452 it$="":he=1:print:gosub 198:print ":::: ";mn$;" ";axxx;" dropped a very special item!":gosub 198
2454 gosub 1650:if it$<>" " then print:print "It is a glorious ";it$;"!!!":print "You put it away in your backpack!!":return
2456 gosub 198:return

2500 REM PIECED JEWELRY AND NICE TRINKETS
2502 a=int(rnd(1)*10)+1:if a=1 then 2520
2504 if a>1 and a<5 then 2575
2506 if a>4 and a<8 then 26000
2508 goto 26350

2520 REM Pieced Jewelry
2521 a=int(rnd(1)*100)+1:if a>20 and a<=30 and ml>=2 then pjewelry2=pjewelry2+1:pj1=3:pj4=3:pj2=1:pj3=pjewelery2:pj$="Gold Cane of Herox":goto 2550
2522 if a>30 and a<=40 and ml>=3 then pjewelry3=pjewelry3+1:pj1=3:pj4=3:pj2=1:pj3=pjewelery3:pj$="Gold Band of Disa":goto 2550
2524 if a>40 and a<=45 and ml>=4 then pjewelry4=pjewelry4+1:pj1=4:pj4=4:pj2=1:pj3=pjewelery4:pj$="Gold Mask of Prexus":goto 2550
2526 if a>45 and a<=50 and ml>=5 then pjewelry5=pjewelry5+1:pj1=4:pj4=4:pj2=1:pj3=pjewelery5:pj$="Obsidian Medallian of Toc":goto 2550
2528 if a>50 and a<=55 and ml>=6 then pjewelry6=pjewelry6+1:pj1=4:pj4=4:pj2=1:pj3=pjewelery6:pj$="Obsidian Wand of Ora":goto 2550
2530 if a>55 and a<=60 and ml>=7 then pjewelry7=pjewelry7+1:pj1=4:pj4=4:pj2=1:pj3=pjewelery7:pj$="Platinum Broach of Shina":goto 2550
2532 if a>60 and a<=65 and ml>=8 then pjewelry8=pjewelry8+1:pj1=4:pj4=4:pj2=1:pj3=pjewelery8:pj$="Platinum Medal of Husat":goto 2550
2534 if a>65 and a<=70 and ml>=9 then pjewelry9=pjewelry9+1:pj1=4:pj4=4:pj2=1:pj3=pjewelery9:pj$="Platinum Armband of Fla":goto 2550
2536 if a>70 and a<=75 and ml>=10 then pjewelry10=pjewelry10+1:pj1=5:pj4=5:pj2=1:pj3=pjewelery10:pj$="Ruby Carapice of Tolna":goto 2550
2538 if a>75 and a<=80 and ml>=11 then pjewelry11=pjewelry11+1:pj1=5:pj4=5:pj2=1:pj3=pjewelery11:pj$="Ruby Helm of Shutatu":goto 2550
2540 if a>80 and a<=85 and ml>=12 then pjewelry12=pjewelry12+1:pj1=5:pj4=5:pj2=1:pj3=pjewelery12:pj$="Ruby Neckband of Vu":goto 2550
2542 if a>85 and a<=90 and ml>=13 then pjewelry13=pjewelry13+1:pj1=6:pj4=6:pj2=1:pj3=pjewelery13:pj$="Opal Sleeve of Axista":goto 2550
2544 if a>90 and a<=95 and ml>=14 then pjewelry14=pjewelry14+1:pj1=6:pj4=6:pj2=1:pj3=pjewelery14:pj$="Opal Glove of Zista":goto 2550
2546 if a>95 and a<=100 and ml>=15 then pjewelry15=pjewelry15+1:pj1=7:pj4=7:pj2=1:pj3=pjewelery15:pj$="Diamond Scepter of Sulan":goto  2550
2548 pjewelry1=pjewelry1+1:pj1=3:pj2=1:pj4=3:pj3=pjewelery1:pj$="Bone Crown of Xox"
2550 if pj3<pj1 then print:print "It is a piece of a Relic Treasure!":print "It is a wonderous ";pj$;"!  You now have ";pj3;" of ";pj4;" pieces!":gosub 2555:return
2552 if pj3=pj1 then print:print "It is a piece of a Relic Treasure!":print "It is a wonderous ";pj$;"!  You now have ";pj3;" of ";pj1;" pieces!":print "You have completed the Relic ";pj$;" - take it to the Jewelers and sell it!!!":gosub 2555:gosub 199:return
2554 if pj3>pj1 then pj2=pj2+1:pj1=pj4*pj2:goto 2550
2555 if pj3<pj4 then return
2556 a=pj3/pj4:a=a*100:a=int(a):a=a*.01:print "(Completed ";a;" times)":return

2575 REM EGGS
2576 a=int(rnd(1)*6)+1:if a=2 and ml>=3 then egg$="Silver":egg2=egg2+1:egg=egg2:goto 2588
2578 if a=2 and ml>=5 then egg$="Golden":egg3=egg3+1:egg=egg3:goto 2588
2580 if a=2 and ml>=7 then egg$="Platinum":egg4=egg4+1:egg=egg4:goto 2588
2582 if a=2 and ml>=9 then egg$="Ruby":egg5=egg5+1:egg=egg5:goto 2588
2584 if a=2 and ml>=11 then egg$="Diamond":egg6=egg6+1:egg=egg6:goto 2588
2586 egg$="Copper":egg1=egg1+1:egg=egg1
2588 print:print "It is a beautiful ";egg$;" Egg!!  Take it to the Jewelers!":print "You now have ";egg;" ";egg$;" Eggs!!":return
26000 REM Demon JEwelery
26020 if ml<6 then 2502
26040 a=int(rnd(1)*3)+1:if a=1 and ml>=6 then dmje$="Demon Charm":djewel1=djewel1+1:goto 26120
26060 if a=2 and ml>=8 then dmje$="Pentegram Medallion":djewel1=djewel1+1:goto 26120
26080 if a=3 and ml>=10 then dmje$="Demon Charm":djewel1=djewel1+1:goto 26120
26100 goto 26040
26120 print:print "It is a beautiful ";dmje$;"!!  Take it to the Jewelers!":print "You now have ";djewel;" ";dmje$;"s!":return
26350 REM ORE
26360 a=int(rnd(1)*5)+1:if a=2 and ml>=4 then ore$="Blue":ore2=ore2+1:ore=ore2:goto 26450
26380 if a=2 and ml>=4 then ore$="Green":ore3=ore3+1:ore=ore3:goto 26450
26400 if a=2 and ml>=4 then ore$="Yellow":ore4=ore4+1:ore=ore4:goto 26450
26420 if a=2 and ml>=4 then ore$="Silver":ore5=ore5+1:ore=ore5:goto 26450
26440 ore$="Red":ore1=ore1+1:ore=ore1
26450 print:print "It is a pouch of ";ore$;" Ore!  Take it to the Jewelers!":print "You now have ";ore;" ";ore$;" Ores!":return











3380 rem gained a level (? andeffect) :::::XP XP XP XP XP XP XP XP XP ::::::::::::
3382 mxp=mxp+int(mxp*(it66/100)):axxx=0:nn=0:if mn=1 then 3388
3383 axxx=axxx+1:gosub 3470:nn=nn+mxp:xp=xp+mxp:xp1=xp1+mxp:print "+++ You have gained ";mxp;" experience points from ";mn$;" ";axxx;"!":if xp1>=xp2 then gosub 3435
3385 if axxx>=mn then return
3387 goto 3383
3388 nn=nn+mxp:xp=xp+mxp:xp1=xp1+mxp:print "+++ You have gained ";mxp;" experience points!":if xp1>=xp2 then gosub 3435
3389 return

4343535254  REM :::::LEVEL LEVEL LEVEL LEVEL LEVEL ::::::::::::
3435 GOSUB 198:PRINT "              ---------------------           " :print ":::  You have Gained a New Level!  :::":PRINT "              ---------------------           ":gosub 198:gosub 199
3436 clvl=clvl+1:gosub 198: print ":::::::::::::::::: New Level:  {{    ";clvl;"      }} :::::::::::": gosub 198
3438 gosub 3392
3440 a=int(rnd(1)*40)+1
3442 b=int(rnd(1)*50)+50
3443 b=b+con2:if con2>0 then PRINT "   Constitution Bonus is ";con2;" to Hit Points."
3444 a=a+iq2:if iq2>0 then print "   Intelligence Bonus is ";iq2;" to Magic Points."
3445 if lvmod=1 then b=b+5:print "   +5 bonus hp from race."
3446 if lvmod=3 then b=b+10:a=a-10:print "   +10 hp, -10 mp bonus/loss from race.":if a<=0 then a=1
3448 if lvmod=4 then a=a+10:b=b-10:print "   +10 mp, -10 hp bonus/loss from race.":if b<=0 then b=1
3450 thp=thp+b:tmp=tmp+a:hp=hp+b:mp=mp+a:gosub 950030:print:print "You have gained ";b;" Hit Points and ";a;" Magic Points.":print "Current HP:  ";hp;"/";thp:print "Current MP:  ";mp;"/";tmp:b=0:a=0:c=0
3452 a=int(rnd(1)*2)+1:i1=i1+a:c=c+1:if c=4 then c=0:goto 3456
3454 goto 3452
3456 print:print "You have ";i1;" status points to dispense in your stat scores.":conx=0:dexx=0:iqx=0:strx=0:qqq=1:gosub 135:gosub 113
3457 if xp1=xp2 then xp1=0:gosub 3467:goto 3460
3458 if xp1>xp2 then xp1=xp1-xp2:gosub 3467
3460 if xp1>xp2 then 3435
3461 if xtxt=1 then xtxt=0:PRINT:GOSUB 198:print "You now need ";xp2;" xp to gain level ";clvl+1:goto 3464
3462 IF xtxt=0 then GOSUB 3467:PRINT:GOSUB 198:print "You now need ";xp2;" xp to gain level ";clvl+1
3464 print "Total xp:  ";xp
3465 GOSUB 198:GOSUB 199:gosub 5500
3466 print:print "Returning you to the Aftermath.":gosub 198:return
3467 if clvl<5 then xp2=xp2+5:xtxt=1:return
3468 xp2=xp2+25:xtxt=1:return





3470 REM please press returns for large groupings
3472 if axxx=11 then gosub 199
3474 if axxx=21 then gosub 199
3476 if axxx=31 then gosub 199
3478 if axxx=41 then gosub 199
3480 if axxx=51 then gosub 199
3482 if axxx=61 then gosub 199
3484 if axxx=71 then gosub 199
3486 if axxx=81 then gosub 199
3488 if axxx=91 then gosub 199
3489 if axxx=101 then gosub 199
3490 return




50100 REM PLAYER ATTACK!:cthb=charcter to hit bonus:mar=monster armor bonus:chxxx=critical:catt1=character attack:mhp=monster hit points:cdamb=character damage bonus

50102 dxxd=0:catt1=1:if npc=1 then print:print "You Attack ";npc1$;"";npc2$;"";npc3$;"!":goto 50104
50103 print:print "You Attack the ";mn$;"!"
50104 if catt>1 then print "Attack ";catt1;"!"
50105 a=int(rnd(1)*100)+1+cthb-mrefl:if a>=10 then 50110
50106 if a<=1 then gosub 70000:print ccm$:initp=1:ccm=1:goto 50130
50108 print "You have missed!":catt1=catt1+1:goto 50125
50110 if a>99 then print "You have scored a Critical Hit!":chxxx=1
50112 d=(int(rnd(1)*(cmax-cmin))+cmin+cdamb)-mar:gosub 18220:if d<0 and npc=1 then print "You hit but did No Damage to ";npc1$;"";npc2$;"";npc3$;"!":catt1=catt1+1:goto 50118
50113 if d<0 then print "You hit but did No Damage to the ";mn$;"!":catt1=catt1+1:goto 50118
50114 if chxxx=1 then d=d*2+cmin:print "You have done a massive ";d;" points of damage!!":chxxx=0:catt1=catt1+1:GOSUB 50170:goto 50118
50115 if npc=1 then gosub 198:print "You have scored ";d;" damage against ";npc1$;"";npc2$;"";npc3$;"!":gosub 198:catt1=catt1+1:GOSUB 50170:goto 50118
50116 gosub 198:print "You have scored ";d;" damage against the ";mn$;"!":gosub 198:catt1=catt1+1:GOSUB 50170
50118 dxxd=dxxd+d:mhp1=mhp1-d:if mhp1<=0 AND mn>1 then print ":::  You have killed ";mn$;" ";mn4;"! :::::::":mhp1=mhp:mn4=mn4+1:goto 50128
50119 if mhp1<=0 and npc=1 then print "::: You have killed ";npc1$;"";npc2$;"";npc3$;"!!":return
50120 if mhp1<=0 then print "::: You have killed ";mn$;"!!":goto 50128
50125 if catt1>catt then catt1=1:print "== Your turn has ended. ==":print :print "::: You did a total of ";dxxd;" damage this round!":initp=1:GOSUB 198:goto 50130
50126 gosub 199:print:goto 50104
50128 if mn3>1 then mn3=mn3-1:print:print "<< ";mn$;" ";mn4;" steps up to fight! >>":goto 50125
50129 return

49998 if hp>thp then hp=thp:return
49999 return
50000 rem ATTACK ENGINE PLAYER:rou=round number
50002 print ":: Round ";rou;" ::  {{::HP  ";hp;"/";thp;"::}}{{::MP  ";mp;"/";tmp;"::}}"
50003 gosub 198
50004 if def1=1 then def1=0:print:print "You are healed a bit by using your Defensive Stance!":a=int(rnd(1)*(hp/50))+1:hp=hp+a:gosub 49998:gosub 199:print:print "You are healed ";a;" points!  HP = ";hp;"/";thp;".":gosub 199:print:print "Your Defensive Stance is now over!":goto 50130
50005 print "::: Would you like to:":print "{{{{         [A]ttack":print "{{{{         [C]ast a Spell":print "{{{{         [U]se an Item":print "{{{{         [D]efend":print "{{{{         [R]un Away"
50008 print:input a$
50009 if a$="A" and trick1=1 then trick1=0:goto 302596
50010 if a$="A" then 50100
50015 if a$="C" and trick1=1 then 302721
50016 if a$="C" then 50004
50020 if a$="U" then GOSUB 9030:initp=1:goto 50130
50025 if a$="D" then 50090
50030 if a$="R" then 50040
50032 if a$="MHP" then print:print "MHP = ";mhp1;"."
50035 goto 50004

60000 rEM mONSTER ATTACK ENGINE
60002 print ":: Round ";rou;" ::  {{::HP  ";hp;"/";thp;"::}}{{::MP  ";mp;"/";tmp;"::}}":GOSUB 198:IF mn1>1 then print:print "The ";mn$;"s are attacking!":mn2=1:goto 60055
60004 if npc=1 then print:print npc1$;"";npc2$;"";npc3$;" is attacking!":goto 60006
60005 PRINT:print "The ";mn$;" is attacking!"
60006 if matt1>1 then print "Attack ";matt1;"!"
60008 goto 700000
60010 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 60016
60012 if a<=0 then gosub 70020:print mcm$:mcm=1:goto 50130
60013 if npc=1 then print npc1$;"";npc2$;"";npc3$;" tried to hit you but missed!":goto 60030
60014 print "The ";mn$;" has tried to hit you but missed!":goto 60030
60016 d=(int(rnd(1)*(mmax-mmin))+mmin+mdamb)-car-smod16:if d<=0 and npc=1 then print npc1$;"";npc2$;"";npc3$;" hit but did No Damage to you!":goto 60030
60017 if d<=0 then gosub 18120:goto 60030
60018 if npc=1 then gosub 198:print npc1$;"";npc2$;"";npc3$;" has hit you for ";d;" points of damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
60019 IF npc=1 then 60030
60020 if def1=1 or def=1 then d=int(d/2)
60021 gosub 198:print "The ";mn$;" has hit you for ";d;" points of damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
60030 if mn1>1 then 60058
60032 matt1=matt1+1
60049 if matt1>matt and npc=1 then matt1=1:print npc1$;"";npc2$;"";npc3$;"'s turn has ended.":PRINT:GOSUB 198:initm=1:goto 50130
60050 if matt1>matt then matt1=1:print "== ";mn$;"'s turn has ended. ==":GOSUB 198:initm=1:goto 50130
60052 goto 60006
60055 print:print mn$;" ";mn4;"'s attack.":goto 60006
60058 matt1=matt1+1:if matt1>matt then matt1=1:print mn$;" ";mn4;"'s turn has ended.":gosub 6100:goto 60065
60060 goto 60006
60065 mn2=mn2+1:mn4=mn4+1:qqq=qqq+1:if mn2>mn3 then print:print "== All the ";mn$;"s have finished their attacks. ==":gosub 198:GOSUB 199:mn4=mn4-qqq:qqq=0:initm=1:goto 50130
60067 print:print "<<< ";mn$;" ";mn4;" steps up to attack! >>>":goto 60055

6100 if mn2=4 then gosub 199:return
6102 if mn2=9 then gosub 199:return
6105 if mn2=14 then gosub 199:return
6107 if mn2=19 then gosub 199:return
6110 if mn2=24 then gosub 199:return
6112 if mn2=29 then gosub 199:return
6114 return


50130 REM Initiative
50132 if rou=1 and initp=0 and initm=0 then 50152
50133 if initp=1 and initm=1 then 50140
50134 if initm=1 and def=1 then 50142
50135 if initm=1 then PRINT:print "+ It is now your turn.":
50136 gosub 199:gosub 600592:gosub 600564:gosub 600536:gosub 600508:if xrstop=1 or xrhold=1 or xrsleep=1 or xrstun=1 then initp=1:goto 50138
50137 if initm=1 then cls:goto 50000
50138 PRINT:print "- It is now the enemies attack!":GOSUB 199:CLS:goto 60000

50140 REM Round OVER
50142 GOSUB 198:print "<<< Round ";rou;" Over >>>":initm=0:initp=0:GOSUB 198
50143 gosub 600482:print:print "::: You took ";dx;" damage this round!":dx=0
50144 rou=rou+1:print:print "::: Your HP:  ";hp;"/";thp;".":print "::: Your MP:  ";mp;"/";tmp;".":PRINT:if def=1 then initp=1:print "You are in full Defensive Stance!":def1=1:def=0:goto 50152
50145 if npc=1 then print:print npc1$;"";npc2$;"";npc3$;"'s HPs:  ";mhp1
50146 IF mobboss=1 then print:print mn$;"'s HPs:  ";mhp1
50147 if ml<=clvl-10 and mobboss=0 and npc=0 then print:print ":::::: You Guage the ";mn$;"s Health:":print "::: ";mn$;"s HPs:  ";mhp1
50150 if qm=1 then print "The ";mn$;"(s) extraordinary speed gets the better of you!":goto 60000
50152 PRINT:PRINT "::: Initiative Roll :::::::":init=int(rnd(1)*50)+1:if init<26 then 50157
50154 if mcm=1 then print mcm2$:mcm=0:initm=1:goto 50130
50155 if npc=1 then GOSUB 198:PRINT "--------- ";npc1$;"";npc2$;"";npc3$;" wins initiative!":GOSUB 198:GOSUB 199:CLS:goto 60000
50156 GOSUB 198:PRINT "--------- ";mn$;" wins initiative!":GOSUB 198:GOSUB 199:CLS:goto 60000
50157 if ccm=1 then print ccm2$:ccm=0:initp=1:goto 50130
50158 GOSUB 198:PRINT "+++++ You win initiative!":GOSUB 198:GOSUB 199:gosub 600592:gosub 600564:gosub 600536:gosub 600508:if xrstop=1 or xrhold=1 or xrsleep=1 or xrstun=1 then initp=1:goto 50138
50159 CLS:goto 50000

3700 rem BATTLE DURATION FROM START TO END
3701 if moff=1 then return
3702 if insdd=1 then 3704
3703 a=int(rnd(1)*xxxrollxxx)+1:if a>1 then return
3704 gosub 100000:if clvl<3 then mn=1
3705 if mn=1 then print:GOSUB 198:print "@@@ There is something here! @@@":goto 3720
3707 a=int(rnd(1)*mn)+1:if a=1 then mn=1:goto 3705
3708 mn=a
3710 print:GOSUB 198:print "@@@ There are several somethings here! @@@":a=int(rnd(1)*100)+1:if a>iq1 then print:print ":::::::::::: You are too stupid to know what they are!":mn$="Unknown Creature":munknown=1
3712 gosub 3715:print:print ":::::::::::: It's a ";groupname$;" ";mn$;"s!":goto 3730
3715 if mn>15 then groupname$="huge group of":return
3716 if mn>10 then groupname$="crowd of":return
3717 if mn>3 then groupname$="bunch of":return
3718 if mn>2 then groupname$="few":return
3719 if mn=2 then groupname$="couple of":return
3720 a=int(rnd(1)*100)+1:if a>iq1 then print:print ":::::::::::: You are too stupid to know what it is!":mn$="Unknown Creature":munknown=1
3722 print:print ":::::::::::: It is a horrible ";mn$;"!"
3730 initp=0:initm=0:gosub 3750
3735 mn3=mn:mn1=mn:mn4=1:rou=1:mhp1=mhp:qqq=0:gosub 50130:if ruxn=1 then ruxn=0:print:print "You run away and hide until the monster leaves.....":mspec=0:rou=1:mn1=0:mn2=0:mn3=0:mn4=0:dx=0:initp=0:npc=0:initm=0:caff2=0:caff3=0:caff4=0:caff5=0:mobboss=0:goldon=0:return
3736 print:print ":::::::::::: You have won the battle! :::::::":gosub 199:CLS:gosub 3380:gosub 199:aaax=0:gosub 1550:gosub 1595:CLS:if courtyard>0 and areat=17 then courtyard=courtyard-mn
3737 if ins=0 or areat<>17 or newbie=0 or lairin=0 then kia=kia+mn:gosub 4000
3738 mspec=0:mnlk$=mn$:rou=1:mn1=0:mn2=0:mn3=0:mn4=0:dx=0:initp=0:npc=0:initm=0:mobboss=0:caff2=0:caff3=0:caff4=0:caff5=0:goldon=0
3739 npc4$=npc1$:npc5$=npc2$:npc6$=npc3$:return



3750 rem MONSTER NOTICE?
3751 IF mn>1 then 3758
3752 a=int(rnd(1)*100)+ml-dex: if a>=100 then print:print "----The ";mn$;" has suprised you!  It gets first strike!":initp=1:return
3754 if a>0 then print:print "::::The ";mn$;" notices you and attacks!":return
3756 print:print "++++The ";mn$;" hasnt noticed you!  You get first strike!":initm=1:return
3758 a=int(rnd(1)*100)+ml-dex: if a>=100 then print:print "----The ";mn$;"s have suprised you!  They gets first strike!":initp=1:return
3760 if a>0 then print:print "::::The ";mn$;"s notice you and attack!":return
3762 print:print "++++The ";mn$;"s havnt noticed you!  You get first strike!":initm=1:return

3770 REM WEAPON EXPERIENCE
3772 IF w=0 then return
3773 wxp=wxp+nn:wxp1=wxp1+nn:if wxp1>=wxp2 then print:gosub 198:print "Your ";w$;" has gained a new Specialist Level!":goto 3776
3774 gosub 198:print ":::: Weapon XP Gained = ";nn:print ":::: Weapon XP Needed for Next Level = ";wxp2-wxp1:gosub 198:return
3776 wxp1=0:wxp2=wxp2+50
3782 if clvl <=10 then a=int(rnd(1)*2)+1:b=int(rnd(1)*3)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3784 if clvl <=20 then a=int(rnd(1)*4)+1:b=int(rnd(1)*6)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3786 if clvl <=30 then a=int(rnd(1)*8)+1:b=int(rnd(1)*12)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3787 if clvl <=40 then a=int(rnd(1)*16)+1:b=int(rnd(1)*24)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3788 if clvl <=50 then a=int(rnd(1)*32)+1:b=int(rnd(1)*48)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3789 if clvl <=60 then a=int(rnd(1)*64)+1:b=int(rnd(1)*96)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3790 if clvl <=70 then a=int(rnd(1)*64)+1:b=int(rnd(1)*192)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3791 if clvl <=80 then a=int(rnd(1)*64)+1:b=int(rnd(1)*192)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3792 if clvl <=90 then a=int(rnd(1)*64)+1:b=int(rnd(1)*192)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3793 if clvl <=100 then a=int(rnd(1)*64)+1:b=int(rnd(1)*200)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774
3794 a=int(rnd(1)*75)+1:b=int(rnd(1)*300)+1:print:GOSUB 198:print "Your weapon has gained ";a;" to its base damage and ";b;" to its max damage!":cmin=cmin+a:cmax=cmax+b:GOSUB 198:print "Weapon damage is now ";cmin;"-";cmax;"!":goto 3774

4000 if kia>=kia1 then kia1=kia1+1000:xxxrollxxx=xxxrollxxx+1:GOTO 4003
4002 return
4003 if kia1>=3000 then kia1=kia1+2500
4004 print:print "***  You Have Killed A Lot!  ***"
4006 print        "Chances of an Encounter have decreased in the overworld!":return







100000 REM MONSTER FINDER FOR ALL! mh=highest possible number monster at that area: mlw = lowest possible monster at that area.
100001 a=int(rnd(1)*(mh-mlw))+mlw
100002 if a>mh then 100000
100003 if a<mlw then 100000
100004 REM TRAINING AREA
100005 if a=1 then mn$="Goblinate":mhp=8:mmax=5:mmin=1:mxp=2:mg=2:mn=6:ml=1
100007 if a=2 then mn$="Goblinate Bezerker":mhp=13:mmax=10:mmin=1:mxp=4:mg=1:mn=3:ml=1
100009 if a=3 then mn$="Vile Rat":mhp=10:mmax=3:mmin=1:mxp=1:mg=2:mn=4:ml=1
100010 if a=4 then mn$="Robber":mhp=7:mmax=3:mmin=1:mxp=2:mg=4:mn=4:ml=1
100012 if a=5 then mn$="Purple Jelly":mhp=15:mmax=6:mmin=1:mxp=3:mg=2:mn=4:ml=1
100013 if a=6 then mn$="Grey Cobra":mhp=13:mmax=4:mmin=1:mxp=2:mg=2:mn=3:ml=1:mspec=177
100014 if a=7 then mn$="Archer Robber":mhp=15:mmax=6:mmin=3:mxp=3:mg=8:mn=5:ml=1
100015 if a=8 then mn$="Dragon Turtle":mhp=23:mmax=12:mmin=4:mxp=6:mg=12:mn=2:ml=1:mspec=3
100016 REM FARRING AREAS
100017 if a=9 then mn$="Wolfbear":mhp=43:mmax=7:mmin=4:mxp=8:mg=16:mn=5:ml=2
100018 if a=10 then mn$="Emerald Spirit":mhp=39:mmax=12:mmin=4:mxp=7:mg=15:mn=12:ml=2:mspec=180
100019 if a=11 then mn$="King Lizard":mhp=60:mmax=7:mmin=4:mxp=10:mg=20:mn=2:ml=2
100021 if a=12 then mn$="Dark Alchemist":mhp=45:mmax=12:mmin=4:mxp=10:mg=14:mn=5:ml=2:mspec=64
100023 if a=13 then mn$="Dark Knight":mhp=55:mmax=15:mmin=4:mxp=12:mg=30:mn=3:ml=2
100024 REM DRYTH FOREST
100025 if a=14 then mn$="Dryth Alchemist":mhp=70:mmax=25:mmin=1:mxp=12:mg=20:mn=2:ml=3:mspec=156
100027 if a=15 then mn$="Dryth Knight":mhp=90:mmax=30:mmin=5:mxp=15:mg=30:mn=2:ml=3:mspec=52
100028 if a=16 then mn$="Dryth Pikeman":mhp=60:mmax=27:mmin=5:mxp=14:mg=25:mn=3:ml=3:mspec=179
100029 if a=17 then mn$="Dryth Commander":mhp=90:mmax=20:mmin=10:mxp=15:mg=30:mn=1:ml=4:mspec=79
100030 if a=18 then mn$="Wild Fox":mhp=60:mmax=25:mmin=2:mxp=10:mg=10:mn=8:ml=4
100032 if a=19 then mn$="Crystal Spider":mhp=125:mmax=30:mmin=4:mxp=16:mg=25:mn=3:ml=4:mspec=177
100033 if a=20 then mn$="Green Toad":mhp=75:mmax=20:mmin=5:mxp=12:mg=15:mn=5:ml=4:mspec=177
100034 if a=21 then mn$="Dark Flower":mhp=85:mmax=25:mmin=6:mxp=17:mg=10:mn=6:ml=4:mspec=171
100035 if a=22 then mn$="Red Lion":mhp=95:mmax=30:mmin=5:mxp=17:mg=15:mn=4:ml=4
100037 if a=23 then mn$="Red Ranger":mhp=115:mmax=35:mmin=5:mxp=18:mg=40:mn=3:ml=5:mspec=120
100038 if a=24 then mn$="Spitter Snake":mhp=100:mmax=30:mmin=7:mxp=19:mg=25:mn=6:ml=5:mspec=177
100039 if a=25 then mn$="Red Bezerker":mhp=130:mmax=40:mmin=8:mxp=20:mg=50:mn=2:ml=5
100040 if a=26 then mn$="Black Gorilla":mhp=160:mmax=30:mmin=10:mxp=22:mg=30:mn=4:ml=5:mspec=47
100041 REM Fire Mountains
100042 if a=27 then mn$="Fire Giant":mhp=180:mmax=40:mmin=10:mxp=25:mg=75:mn=2:ml=6:mspec=7
100043 if a=28 then mn$="Fire Snake":mhp=120:mmax=45:mmin=2:mxp=24:mg=40:mn=6:ml=6:mspec=66
100044 if a=29 then mn$="Fire Walker":mhp=100:mmax=35:mmin=6:mxp=24:mg=60:mn=4:ml=6:mspec=164
100045 if a=30 then mn$="Blade Master":mhp=100:mmax=50:mmin=10:mxp=28:mg=80:mn=3:ml=6:mspec=108
1999999 REM White Plains//Mountain Passes//Myre
100046 if a=31 then mn$="Mist Dragon":mhp=155:mmax=55:mmin=10:mxp=30:mg=70:mn=3:ml=7
100047 if a=32 then mn$="Hellion":mhp=155:mmax=45:mmin=12:mxp=32:mg=60:mn=4:ml=7
100048 if a=33 then mn$="Krimble":mhp=125:mmax=47:mmin=9:mxp=30:mg=60:mn=7:ml=7
100049 if a=34 then mn$="Forsaken Swordsman":mhp=135:mmax=50:mmin=8:mxp=35:mg=80:mn=4:ml=7
100050 if a=35 then mn$="Rock Horror":mhp=170:mmax=55:mmin=14:mxp=37:mg=85:mn=3:ml=7:mspec=102
100051 if a=36 then mn$="Goliath Jelly":mhp=150:mmax=40:mmin=4:mxp=30:mg=60:mn=3:ml=7
100052 if a=37 then mn$="Dread Warlock":mhp=135:mmax=30:mmin=4:mxp=32:mg=90:mn=8:ml=7
100053 if a=38 then mn$="Dread Axeman":mhp=190:mmax=50:mmin=10:mxp=35:mg=100:mn=3:ml=7
100054 if a=39 then mn$="Dread Glaivemaster":mhp=160:mmax=10:mmin=40:mxp=40:mg=100:mn=3:ml=8
100055 if a=40 then mn$="Metal Jarhead":mhp=150:mmax=65:mmin=4:mxp=35:mg=50:mn=5:ml=8
100056 if a=41 then mn$="Metal Clocksmith":mhp=150:mmax=45:mmin=4:mxp=37:mg=55:mn=5:ml=8
100057 if a=42 then mn$="Metal Slayer":mhp=200:mmax=75:mmin=12:mxp=40:mg=90:mn=5:ml=9
100058 if a=43 then mn$="Undead Beaver":mhp=180:mmax=60:mmin=14:mxp=35:mg=30:mn=10:ml=9
100059 if a=44 then mn$="Black Ogre":mhp=250:mmax=90:mmin=14:mxp=45:mg=150:mn=3:ml=9:mspec=130
100060 if a=45 then mn$="Fire Eyes":mhp=200:mmax=80:mmin=14:mxp=40:mg=100:mn=6:ml=10
100061 if a=46 then mn$="Power Giant":mhp=290:mmax=100:mmin=14:mxp=45:mg=110:mn=3:ml=10:mspec=81
100062 if a=47 then mn$="Oxhead Swordkiller":mhp=230:mmax=70:mmin=14:mxp=40:mg=80:mn=5:ml=10:mspec=1
100063 if a=48 then mn$="Oxhead Axemaster":mhp=240:mmax=80:mmin=14:mxp=45:mg=90:mn=5:ml=10:mspec=2
100064 if a=49 then mn$="Oxhead Commander":mhp=250:mmax=90:mmin=14:mxp=50:mg=120:mn=2:ml=11:mspec=4
100065 if a=50 then mn$="White Widow":mhp=300:mmax=95:mmin=14:mxp=50:mg=120:mn=1:ml=11:mspec=177
100066 if a=51 then mn$="Firefly":mhp=220:mmax=50:mmin=14:mxp=40:mg=70:mn=8:ml=11:mspec=172
100067 if a=52 then mn$="Curser":mhp=230:mmax=80:mmin=14:mxp=40:mg=110:mn=5:ml=11
100068 REM Varsailles courtyard
100069 if a=53 then mn$="Karii":mhp=300:mmax=80:mmin=14:mxp=55:mg=200:mn=2:ml=25
100070 if a=54 then mn$="Black Brigand":mhp=400:mmax=80:mmin=14:mxp=60:mg=180:mn=3:ml=25
100071 if a=55 then mn$="Black Brigand Mage":mhp=290:mmax=80:mmin=14:mxp=50:mg=160:mn=3:ml=25
100072 if a=56 then mn$="Hell Wasp":mhp=275:mmax=80:mmin=14:mxp=45:mg=130:mn=8:ml=25
100073 if a=57 then mn$="Mist Knight":mhp=500:mmax=80:mmin=14:mxp=60:mg=300:mn=2:ml=25
100074 if a=58 then mn$="Jade Knight":mhp=600:mmax=80:mmin=14:mxp=65:mg=400:mn=2:ml=25
100075 if a=59 then mn$="Black Brigand Master":mhp=300:mmax=80:mmin=14:mxp=55:mg=200:mn=2:ml=25
100076 if a=60 then mn$="Dark Gnome":mhp=330:mmax=80:mmin=14:mxp=57:mg=220:mn=4:ml=25
100078 if a=61 then mn$="Dark Gnome Elite":mhp=400:mmax=80:mmin=14:mxp=64:mg=240:mn=2:ml=25
100079 if a=62 then mn$="Dark Gnome Mage":mhp=300:mmax=80:mmin=14:mxp=50:mg=210:mn=4:ml=25
100080 REM Volcano Pass//Dwarven City area 63-75

60022000 REM MONSTER SPECIAL ATTACKS
60022001 REM MAX DAMAGE ATTACKS
60022002 REM ATTACK 1 CLAW ATTACK   :mspec=1
60022016 REM ATTACK 2 TAIL ATTACK  :mspec=2
60022030 REM ATTACK 3 WING ATTACK  :mspec=3
60022044 REM ATTACK 4 BITING ATTACK  :mspec=4
60022059 REM BREATH WEAPONS
60022060 REM ATTACK 5-12 FIRE
60022074 REM DAMAGE FINDER ON ALL BREATH WEAPONS
60022075 REM  if mspec=5 or mspec=13 or mspec=21 or mspec=29 or mspec=37 then a=20:b=1:goto 600083
60022076 REM  if mspec=6 or mspec=14 or mspec=22 or mspec=30 or mspec=38 then a=20:b=20:goto 600083
60022077 REM  if mspec=7 or mspec=15 or mspec=23 or mspec=31 or mspec=39 then a=40:b=40:goto 600083
60022078  REM if mspec=8 or mspec=16 or mspec=24 or mspec=32 or mspec=40 then a=80:b=80:goto 600083
60022079 REM  if mspec=9 or mspec=17 or mspec=25 or mspec=33 or mspec=41 then a=100:b=100:goto 600083
60022080 REM  if mspec=10 or mspec=18 or mspec=26 or mspec=34 or mspec=42 then a=250:b=250:goto 600083
60022081 REM  if mspec=11 or mspec=19 or mspec=27 or mspec=35 or mspec=43 then a=500:b=500:goto 600083
60022082 REM if mspec=12 or mspec=20 or mspec=28 or mspec=36 or mspec=44 then d=mhp:return 600083
60022085 REM ATTACK 13-20 ICE
60022098 REM ATTACK 21-28 SPITTING LAVA
60022112 REM ATTACK 29-36 LIGHTNING
60022126 REM ATTACK 37-44 CHLORINE GAS
60022140 REM ATTACK 45 GORE ATTACK
60022154 REM ATTACK 46 REND ATTACK
60022168 REM ATTACK 47 GASH ATTACK
60022184 REM HEALING SPEC 48-63
60022194 REM HEALING VALUES
60022195 REM  if mspec=48 then a=5:b=1:goto 600222
60022196 REM  if mspec=49 then a=15:b=1:goto 600222
60022197 REM  if mspec=50 then a=5:b=10:goto 600222
60022198 REM  if mspec=51 then a=15:b=10:goto 600222
60022199 REM  if mspec=52 then a=20:b=20:goto 600222
60022200  REM if mspec=53 then a=40:b=40:goto 600222
60022202  REM if mspec=54 then a=60:b=60:goto 600222
60022204 REM  if mspec=55 then a=80:b=80:goto 600222
60022206 REM  if mspec=56 then a=100:b=100:goto 600222
60022208 REM  if mspec=57 then a=150:b=150:goto 600222
60022210 REM  if mspec=58 then a=250:b=250:goto 600222
60022212 REM  if mspec=59 then a=350:b=350:goto 600222
60022214 REM  if mspec=60 then a=450:b=450:goto 600222
60022216 REM  if mspec=61 then a=550:b=550:goto 600222
60022218 REM  if mspec=62 then a=900:b=900:goto 600222
60022220 REM  if mspec=63 then a=10000:b=10000
60022224 REM SPELLS, DAMAGE
60022225 REM DAMAGE ROLLER
60022226 REM  if mspec=64 or mspec=71 or mspec=78 or mspec=85 or mspec=92 or mspec=99 or mspec=106 or mspec=113 or mspec=120 or mspec=127 or mspec=134 or mspec=141 or mspec=148 or mspec=155 or mspec=162 then a=20:b=1:goto 600234
60022227  REM if mspec=65 or mspec=72 or mspec=79 or mspec=86 or mspec=93 or mspec=100 or mspec=107 or mspec=114 or mspec=121 or mspec=128 or mspec=135 or mspec=142 or mspec=149 or mspec=156 or mspec=163 then a=20:b=20:goto 600234
60022228 REM  if mspec=66 or mspec=73 or mspec=80 or mspec=87 or mspec=94 or mspec=101 or mspec=108 or mspec=115 or mspec=122 or mspec=129 or mspec=136 or mspec=143 or mspec=150 or mspec=157 or mspec=164 then a=40:b=40:goto 600234
60022229 REM  if mspec=67 or mspec=74 or mspec=81 or mspec=88 or mspec=95 or mspec=102 or mspec=109 or mspec=116 or mspec=123 or mspec=130 or mspec=137 or mspec=144 or mspec=151 or mspec=158 or mspec=165 then a=80:b=80:goto 600234
60022230 REM  if mspec=68 or mspec=75 or mspec=82 or mspec=89 or mspec=96 or mspec=103 or mspec=110 or mspec=117 or mspec=124 or mspec=131 or mspec=138 or mspec=145 or mspec=152 or mspec=159 or mspec=166 then a=100:b=100:goto 600234
60022231 REM  if mspec=69 or mspec=76 or mspec=83 or mspec=90 or mspec=97 or mspec=104 or mspec=111 or mspec=118 or mspec=125 or mspec=132 or mspec=139 or mspec=146 or mspec=153 or mspec=160 or mspec=167 then a=250:b=250:goto 600234
60022232 REM  if mspec=70 or mspec=77 or mspec=84 or mspec=91 or mspec=98 or mspec=105 or mspec=112 or mspec=119 or mspec=126 or mspec=133 or mspec=140 or mspec=147 or mspec=154 or mspec=161 or mspec=168 then a=500:b=500
60022235 REM SPELLS, DAMAGE, FIRE 64-70
60022248 REM SPELLS, DAMAGE, ICE 71-77
60022260 REM SPELLS, DAMAGE, POWER 78-84
60022272 REM SPELLS, DAMAGE, LIGHTNING 85-91
60022286 REM SPELLS, DAMAGE, ACID 92-98
60022298 REM SPELLS, DAMAGE, EARTHQUAKE 99-105
60022312 REM SPELLS, DAMAGE, BLADES 106-112
60022326 REM SPELLS, DAMAGE, HAMMERS 113-119
60022340 REM SPELLS, DAMAGE, VINES 120-126
60022354 REM SPELLS, DAMAGE, DEATH GRIP 127-133
60022368 REM SPELLS, DAMAGE, METEOR 134-140
60022382 REM SPELLS, DAMAGE, NOVA 141-147
60022396 REM SPELLS, DAMAGE, ICE HAIL 148-154
60022410 REM SPELLS, DAMAGE, LIGHTNING STORM 155-161
60022424 REM SPELLS, DAMAGE, LAVA BLAST 162-168
60022438 REM SPELLS, SUMMONING
60022440 REM  if mspec=169 then mmmm=8
60022442 REM  if mspec=170 then mmmm=10
60022444  REM if mspec=171 thne mmmm=15
60022446 REM  if mspec=172 thne mmmm=20
60022448 REM  if mspec=173 thne mmmm=25
60022449 REM  if mspec=174 thne mmmm=30
60022450 REM  if mspec=175 thne mmmm=35
60022452 REM  if mspec=176 thne mmmm=40
60022464 REM POISON 177  :mspec=177
60022489 REM STUN 178 :mspec=178
60022516 REM SLEEP 179 :mspec=179
60022544 REM HOLD 180 :mspec=180
60022545 REM STOPPED 181 :mspec=181
60022546 REM 182 Breath fire 2 Fire spell 2
60022547 REM 183 Fire spell 2 Death grip 2
60022548 REM 184 Power spell 3 tail attack
60022549 REM 185 chlorine gas breath 3 40-80 heal
60022550 REM 186 wing attack bite attack
60022552 ReM 187 fire spell 3 ice spell 3
60022554 REM 188 60-120 heal, meteor 3
60022556 REM 189 earthquake 3 lava blast 3
60022558 REM 190 vines 3 gash attack
60022559 REM 191 40-80 heal, poison


12324234 REM CAVES OF DESPAIR MOBS
100125 if a=100 then mn$="Dark Witch":mhp=3:mmax=2:mmin=1:mxp=1:mg=2:mn=5:ml=1:mspec=64
100126 if a=101 then mn$="Green Imp":mhp=2:mmax=1:mmin=1:mxp=1:mg=1:mn=6:ml=1:mspec=177
100127 if a=102 then mn$="Grey Slime":mhp=2:mmax=2:mmin=1:mxp=1:mg=1:mn=6:ml=1
100128 if a=103 then mn$="Raven":mhp=2:mmax=2:mmin=1:mxp=1:mg=1:mn=7:ml=1
100129 if a=104 then mn$="Wild Dog":mhp=2:mmax=2:mmin=1:mxp=1:mg=1:mn=5:ml=1:mspec=169
100130 if a=105 then mn$="Demon Spider":mhp=3:mmax=2:mmin=1:mxp=1:mg=2:mn=5:ml=1:mspec=177

100131 if a=106 then mn$="Deadly Head":mhp=3:mmax=4:mmin=1:mxp=1:mg=3:mn=5:ml=2:mspec=29
100132 if a=107 then mn$="Snakewoman":mhp=3:mmax=2:mmin=1:mxp=1:mg=2:mn=6:ml=2
100133 if a=108 then mn$="Black Witch":mhp=3:mmax=2:mmin=1:mxp=1:mg=2:mn=7:ml=2
100134 if a=109 then mn$="Dogman":mhp=3:mmax=2:mmin=2:mxp=1:mg=2:mn=5:ml=2
100135 if a=110 then mn$="Low Spider":mhp=3:mmax=2:mmin=1:mxp=1:mg=1:mn=6:ml=2:mspec=179
100136 if a=111 then mn$="Baby Dragonturtle":mhp=4:mmax=4:mmin=1:mxp=1:mg=3:mn=4:ml=2

100137 if a=112 then mn$="Derelict":mhp=3:mmax=2:mmin=2:mxp=1:mg=1:mn=5:ml=3:mspec=141
100138 if a=113 then mn$="Crabwoman":mhp=4:mmax=4:mmin=1:mxp=1:mg=2:mn=6:ml=3
100139 if a=114 then mn$="Hexagorn":mhp=5:mmax=3:mmin=3:mxp=1:mg=2:mn=8:ml=3:mspec=106
100140 if a=115 then mn$="Great Hound":mhp=4:mmax=3:mmin=1:mxp=1:mg=2:mn=6:ml=3:mspec=4
100141 if a=116 then mn$="Ghoul":mhp=5:mmax=5:mmin=1:mxp=2:mg=4:mn=4:ml=3:mspec=178

100142 if a=117 then mn$="Grey Ghost":mhp=6:mmax=6:mmin=2:mxp=2:mg=5:mn=4:ml=4:mspec=48
100143 if a=118 then mn$="Hellhound":mhp=4:mmax=6:mmin=1:mxp=1:mg=2:mn=6:ml=4
100144 if a=119 then mn$="Hexagain":mhp=5:mmax=3:mmin=4:mxp=2:mg=3:mn=5:ml=4
100145 if a=120 then mn$="Dark Ape":mhp=6:mmax=5:mmin=5:mxp=1:mg=2:mn=8:ml=4:mspec=1
100146 if a=121 then mn$="Giant Snail":mhp=3:mmax=4:mmin=1:mxp=1:mg=2:mn=9:ml=4:mspec=177
100147 if a=122 then mn$="Goralith":mhp=3:mmax=6:mmin=4:mxp=2:mg=5:mn=7:ml=4

100148 if a=123 then mn$="Dwerven":mhp=7:mmax=4:mmin=4:mxp=2:mg=4:mn=6:ml=5
100149 if a=124 then mn$="Black Bull":mhp=7:mmax=5:mmin=5:mxp=2:mg=4:mn=5:ml=5
100150 if a=125 then mn$="Spore":mhp=4:mmax=6:mmin=1:mxp=1:mg=3:mn=8:ml=5:mspec=177
100151 if a=126 then mn$="Weredog":mhp=5:mmax=8:mmin=1:mxp=2:mg=4:mn=8:ml=5:mspec=178
100152 if a=127 then mn$="Bloodling":mhp=6:mmax=8:mmin=3:mxp=2:mg=5:mn=5:ml=5:mspec=181
100153 if a=128 then mn$="Hacksaw":mhp=6:mmax=8:mmin=4:mxp=2:mg=5:mn=4:ml=5

100154 if a=129 then mn$="Blade Witch":mhp=9:mmax=8:mmin=1:mxp=2:mg=6:mn=6:ml=6:mspec=106
100155 if a=130 then mn$="Giant Grasshopper":mhp=7:mmax=6:mmin=2:mxp=2:mg=3:mn=7:ml=6
100156 if a=131 then mn$="Red Knight":mhp=12:mmax=9:mmin=4:mxp=3:mg=6:mn=5:ml=6:mspec=48
100157 if a=132 then mn$="Hag":mhp=7:mmax=2:mmin=8:mxp=2:mg=2:mn=7:ml=6:mspec=1
100158 if a=133 then mn$="Grey Goose":mhp=9:mmax=6:mmin=2:mxp=2:mg=2:mn=10:ml=6:mspec=179

100159 if a=134 then mn$="Sickle Man":mhp=15:mmax=10:mmin=1:mxp=3:mg=3:mn=5:ml=7
100160 if a=135 then mn$="Grey Knight":mhp=14:mmax=10:mmin=4:mxp=4:mg=7:mn=4:ml=7:mspec=178
100161 if a=136 then mn$="Red Slime":mhp=10:mmax=8:mmin=2:mxp=2:mg=4:mn=6:ml=7:mspec=177
100162 if a=137 then mn$="Pulsetech":mhp=11:mmax=10:mmin=2:mxp=3:mg=5:mn=5:ml=7
100163 if a=138 then mn$="Groblin":mhp=13:mmax=8:mmin=2:mxp=2:mg=6:mn=10:ml=7:mspec=169

100164 if a=139 then mn$="Heartworm":mhp=14:mmax=9:mmin=2:mxp=3:mg=5:mn=8:ml=8
100165 if a=140 then mn$="Jell":mhp=16:mmax=10:mmin=1:mxp=2:mg=5:mn=7:ml=8
100166 if a=141 then mn$="Hookmarker":mhp=15:mmax=19:mmin=1:mxp=4:mg=8:mn=4:ml=8:mspec=106
100167 if a=142 then mn$="Red Rat":mhp=14:mmax=7:mmin=1:mxp=2:mg=5:mn=10:ml=8
100168 if a=143 then mn$="Stoneman":mhp=27:mmax=8:mmin=2:mxp=4:mg=9:mn=5:ml=8:mspec=29

100169 if a=144 then mn$="Green Fly":mhp=16:mmax=9:mmin=3:mxp=3:mg=8:mn=8:ml=9
100170 if a=145 then mn$="Hornet":mhp=19:mmax=12:mmin=4:mxp=4:mg=10:mn=6:ml=9
100171 if a=146 then mn$="Black Hound":mhp=25:mmax=6:mmin=12:mxp=5:mg=12:mn=4:ml=9:mspec=141
100172 if a=147 then mn$="Parasite":mhp=10:mmax=8:mmin=1:mxp=3:mg=6:mn=12:ml=9:mspec=179

100173 if a=148 then mn$="Black Rat":mhp=17:mmax=9:mmin=3:mxp=5:mg=8:mn=12:ml=10
100174 if a=149 then mn$="Pine Archer":mhp=20:mmax=12:mmin=2:mxp=6:mg=12:mn=6:ml=10:mspec=106:matt1=2:matt=2
100175 if a=150 then mn$="Pigman":mhp=25:mmax=14:mmin=2:mxp=7:mg=15:mn=7:ml=10:mspec=49
100176 if a=151 then mn$="Grey Ooze":mhp=30:mmax=15:mmin=2:mxp=8:mg=30:mn=4:ml=10:mspec=178
100177 if a=152 then mn$="Harper":mhp=20:mmax=10:mmin=2:mxp=6:mg=9:mn=6:ml=10:mspec=170

100178 if a=153 then mn$="Ghast":mhp=30:mmax=12:mmin=2:mxp=7:mg=12:mn=8:ml=11
100179 if a=154 then mn$="White Ghost":mhp=40:mmax=15:mmin=5:mxp=12:mg=16:mn=4:ml=11:mspec=181
100180 if a=155 then mn$="Zombie Dog":mhp=22:mmax=14:mmin=2:mxp=7:mg=9:mn=10:ml=11:mspec=4
100181 if a=156 then mn$="Black Fly":mhp=19:mmax=12:mmin=5:mxp=8:mg=8:mn=7:ml=11

100182 if a=157 then mn$="Razor Worm":mhp=25:mmax=12:mmin=2:mxp=8:mg=10:mn=12:ml=12:mspec=170:matt1=2:matt=2
100183 if a=158 then mn$="Suckler":mhp=27:mmax=13:mmin=4:mxp=8:mg=14:mn=6:ml=12
100184 if a=159 then mn$="Ghiam":mhp=29:mmax=18:mmin=4:mxp=14:mg=30:mn=5:ml=12
100185 if a=160 then mn$="Poltergeist":mhp=35:mmax=16:mmin=4:mxp=14:mg=20:mn=5:ml=12:mspec=178
100186 if a=161 then mn$="Kraw":mhp=27:mmax=20:mmin=5:mxp=14:mg=25:mn=4:ml=12:mspec=141

100187 if a=162 then mn$="Destruction Hound":mhp=30:mmax=20:mmin=5:mxp=15:mg=16:mn=10:ml=13:mspec=4
100188 if a=163 then mn$="Flame Wizard":mhp=35:mmax=15:mmin=1:mxp=17:mg=18:mn=10:ml=13:mspec=66
100189 if a=164 then mn$="Black Eye":mhp=40:mmax=30:mmin=1:mxp=19:mg=26:mn=7:ml=13:mspec=106

100190 if a=165 then mn$="Dead Gwarve":mhp=130:mmax=10:mmin=10:mxp=22:mg=25:mn=3:ml=14
100191 if a=166 then mn$="Plantkin":mhp=80:mmax=8:mmin=12:mxp=12:mg=60:mn=3:ml=14
100192 if a=167 then mn$="Zoroth Tree":mhp=150:mmax=2:mmin=20:mxp=25:mg=300:mn=2:ml=14:mspec=50
100193 if a=168 then mn$="Nerf":mhp=20:mmax=12:mmin=2:mxp=8:mg=20:mn=16:ml=14:mspec=29

100194 if a=169 then mn$="Zoul":mhp=45:mmax=20:mmin=10:mxp=15:mg=30:mn=5:ml=15
100195 if a=170 then mn$="Ion Baby":mhp=35:mmax=17:mmin=2:mxp=12:mg=15:mn=8:ml=15:mspec=170
100196 if a=171 then mn$="Fright Frog":mhp=30:mmax=30:mmin=2:mxp=17:mg=20:mn=9:ml=15:mspec=178
100197 if a=172 then mn$="Zi":mhp=60:mmax=8:mmin=10:mxp=30:mg=40:mn=4:ml=15:matt1=3:matt=3
100198 if a=173 then mn$="Ri":mhp=70:mmax=8:mmin=12:mxp=25:mg=45:mn=5:ml=15:mspec=181

100199 if a=174 then mn$="Ci":mhp=80:mmax=8:mmin=15:mxp=27:mg=55:mn=6:ml=16
100200 if a=175 then mn$="Hardball":mhp=100:mmax=18:mmin=2:mxp=20:mg=60:mn=4:ml=16:mspec=179
100201 if a=176 then mn$="Darklin":mhp=50:mmax=20:mmin=2:mxp=19:mg=45:mn=5:ml=16
100202 if a=177 then mn$="Dragon Dog":mhp=60:mmax=25:mmin=2:mxp=25:mg=100:mn=4:ml=16
100203 if a=178 then mn$="Horriblus":mhp=100:mmax=25:mmin=25:mxp=30:mg=75:mn=3:ml=16:mspec=107

100204 if a=179 then mn$="Archwizard":mhp=100:mmax=20:mmin=2:mxp=30:mg=70:mn=6:ml=17
100205 if a=180 then mn$="Dragon Fiend":mhp=75:mmax=30:mmin=2:mxp=30:mg=110:mn=5:ml=17:mspec=1
100206 if a=181 then mn$="Baby Gorgon":mhp=175:mmax=40:mmin=1:mxp=30:mg=120:mn=3:ml=17

100207 if a=182 then mn$="Master":mhp=200:mmax=40:mmin=10:mxp=40:mg=140:mn=1:ml=18:mspec=50
100208 if a=183 then mn$="Slave":mhp=70:mmax=20:mmin=5:mxp=20:mg=47:mn=10:ml=18:mspec=171
100209 if a=184 then mn$="Pod Maker":mhp=70:mmax=30:mmin=12:mxp=25:mg=50:mn=6:ml=18

100210 if a=185 then mn$="Red Marksman":mhp=60:mmax=29:mmin=2:mxp=25:mg=60:mn=4:ml=19
100211 if a=186 then mn$="Iritant":mhp=70:mmax=8:mmin=30:mxp=27:mg=66:mn=5:ml=19
100212 if a=187 then mn$="Dark Elf":mhp=80:mmax=30:mmin=12:mxp=35:mg=72:mn=7:ml=19:matt1=2:matt=2
100213 if a=188 then mn$="Kane Toad":mhp=50:mmax=25:mmin=2:mxp=26:mg=30:mn=12:ml=19:mspec=178

100214 if a=189 then mn$="Black Elf":mhp=100:mmax=40:mmin=12:mxp=40:mg=92:mn=4:ml=20:mspec=107
100215 if a=190 then mn$="Dark Plantkin":mhp=130:mmax=11:mmin=14:mxp=20:mg=50:mn=10:ml=20
100216 if a=191 then mn$="Red Eye":mhp=80:mmax=50:mmin=1:mxp=25:mg=60:mn=6:ml=20:mspec=181
100217 if a=192 then mn$="Flightless Bird":mhp=75:mmax=9:mmin=17:mxp=24:mg=45:mn=12:ml=20
100218 if a=193 then mn$="Clawer":mhp=100:mmax=22:mmin=20:mxp=42:mg=67:mn=5:ml=20:mspec=1

100219 if a=194 then mn$="Freak":mhp=75:mmax=30:mmin=2:mxp=35:mg=50:mn=5:ml=21
100220 if a=195 then mn$="Turtle Dragon":mhp=130:mmax=40:mmin=40:mxp=42:mg=75:mn=3:ml=21:mspec=4
100221 if a=196 then mn$="Mephisto":mhp=90:mmax=22:mmin=20:mxp=32:mg=45:mn=8:ml=21
100222 if a=197 then mn$="Planeteer":mhp=100:mmax=22:mmin=20:mxp=38:mg=55:mn=6:ml=21:mspec=179

100223 if a=198 then mn$="Ysim":mhp=90:mmax=25:mmin=15:mxp=35:mg=55:mn=6:ml=22
100224 if a=199 then mn$="Igorak":mhp=130:mmax=35:mmin=15:mxp=45:mg=80:mn=6:ml=22:mspec=171
100225 if a=200 then mn$="Sharkman":mhp=100:mmax=40:mmin=20:mxp=39:mg=65:mn=8:ml=22
100226 if a=201 then mn$="Helix":mhp=110:mmax=20:mmin=20:mxp=35:mg=70:mn=4:ml=22:mspec=50

100228 if a=202 then mn$="Archranger":mhp=135:mmax=25:mmin=20:mxp=40:mg=67:mn=7:ml=23
100229 if a=203 then mn$="Clipper":mhp=100:mmax=30:mmin=20:mxp=45:mg=75:mn=6:ml=23
100230 if a=204 then mn$="Olheen":mhp=90:mmax=34:mmin=20:mxp=50:mg=85:mn=4:ml=23:mspec=178
100231 if a=205 then mn$="Ripper":mhp=110:mmax=37:mmin=20:mxp=55:mg=95:mn=4:ml=23:mspec=107:matt1=2:matt=2
100232 if a=206 then mn$="Sickleman Master":mhp=190:mmax=34:mmin=20:mxp=40:mg=70:mn=5:ml=23

100233 if a=207 then mn$="Breaker":mhp=115:mmax=35:mmin=20:mxp=45:mg=90:mn=8:ml=24
100234 if a=208 then mn$="Orange Slime":mhp=200:mmax=37:mmin=20:mxp=48:mg=150:mn=5:ml=24
100235 if a=209 then mn$="Werewolf":mhp=120:mmax=40:mmin=20:mxp=55:mg=110:mn=7:ml=24:mspec=4

100236 if a=210 then mn$="Wight":mhp=125:mmax=43:mmin=20:mxp=60:mg=120:mn=9:ml=25:mspec=181
100238 if a=211 then mn$="Klenden":mhp=140:mmax=37:mmin=20:mxp=50:mg=80:mn=7:ml=25
100239 if a=212 then mn$="Gorgon Baby":mhp=200:mmax=50:mmin=10:mxp=60:mg=250:mn=6:ml=25

100240 if a=213 then mn$="Arsonist":mhp=145:mmax=50:mmin=20:mxp=65:mg=135:mn=7:ml=26:mspec=66
100241 if a=214 then mn$="Sedoria":mhp=130:mmax=47:mmin=20:mxp=67:mg=120:mn=6:ml=26:mspec=179
100242 if a=215 then mn$="Lineel":mhp=160:mmax=49:mmin=20:mxp=59:mg=115:mn=5:ml=26

100243 if a=216 then mn$="Grey Wizard":mhp=165:mmax=40:mmin=20:mxp=70:mg=90:mn=6:ml=27
100244 if a=217 then mn$="Heartless":mhp=135:mmax=50:mmin=20:mxp=64:mg=130:mn=8:ml=27
100245 if a=218 then mn$="Venom Demon":mhp=175:mmax=52:mmin=20:mxp=66:mg=150:mn=4:ml=27
100246 if a=219 then mn$="Slicer Demon":mhp=165:mmax=54:mmin=20:mxp=66:mg=150:mn=5:ml=27

100247 if a=220 then mn$="Fraility":mhp=140:mmax=40:mmin=25:mxp=72:mg=150:mn=7:ml=28:mspec=107
100248 if a=221 then mn$="Feral":mhp=150:mmax=50:mmin=25:mxp=69:mg=145:mn=8:ml=28:matt1=3:matt=3
100249 if a=222 then mn$="Fear Demon":mhp=190:mmax=47:mmin=25:mxp=76:mg=175:mn=6:ml=28:mspec=178
100250 if a=223 then mn$="Wax Demon":mhp=200:mmax=54:mmin=25:mxp=76:mg=175:mn=7:ml=28:mspec=171

100251 if a=224 then mn$="10 Blades":mhp=185:mmax=48:mmin=20:mxp=90:mg=225:mn=2:ml=29:matt1=10:matt=10
100252 if a=225 then mn$="Dexorax":mhp=175:mmax=60:mmin=20:mxp=77:mg=175:mn=8:ml=29:mspec=4
100253 if a=226 then mn$="Hellster":mhp=190:mmax=59:mmin=20:mxp=80:mg=190:mn=7:ml=29:mspec=181

100254 if a=227 then mn$="Gorgon":mhp=450:mmax=60:mmin=35:mxp=100:mg=400:mn=6:ml=30
100255 if a=228 then mn$="Asp":mhp=150:mmax=58:mmin=25:mxp=80:mg=150:mn=9:ml=30
100256 if a=229 then mn$="White Asp":mhp=250:mmax=63:mmin=25:mxp=95:mg=240:mn=7:ml=30:mspec=179

200000 Return




20000   print "                      @@@@                                         @@@@@"
20001   print "                 @@**@@@@                            @@@@@@@@@@@"
20002   print "              @**@@@@@@@@                   @@@@@@@@@@@@"
20003   print "          @**@@**@@@@@@                @@\####\\@@@@//####/@@"
20004   print "             @@@**@@@@@                  @@@\###//@@@@\\###/@@@"
20005   print "                **@@@**@@                    @@@@@@@@@@@@@@@@@"
20006   print "                  @@**@@@                  @@@@|VVVVVVVVVVVVVV|@@@@"
20007   print "                        |!||||!|                       @@@@|  ################### |@@@@"
20008   print "                        ||||!|||                      @@@@| ##################### |@@@@"
20009   print "                        ||||||!|                    @@@@| ####################### |@@@@"
20010   print "                        ||||||||                    @@@@| ####################### |@@@@"
20011   print "      _____       //!||||||\\ __________@@@@@|WWWWWWWWWWWWW|@@@@@___________" :return


50160 REM defense HEAL
50162 a=int(thp*.01):aa=int(rnd(1)*a)+1
50164 print "You have regained ";aa;" HP while defending!  Your Defense Stance is now Over."
50166 hp=hp+aa:if hp>thp then hp=thp
50168 print "HP=";hp;" / ";thp:def1=0:return


50170 REM Weapon Specials!
50171 aa=0:bb=0:cc=0:aaa=0:ccc=0
50172 if ite2>0 then 50185
50174 if ite3>0 then 50200
50175 if ite4>0 then 50218
50176 if ite5>0 then 50238
50177 if ite6>0 then return
50178 if ite7>0 then return
50179 if ite8>0 then return
50180 if dxxd>=mhp1 then gosub 199:print
50181 return
50185 rem WEAPON ITE2
50186 for aa=1 to ite2
50188 bb=int(rnd(1)*100)+1:if bb<=10 then cc=cc+1
50190 next aa
50191 if cc=0 then aa=0:bb=0:cc=0:aaa=0:ccc=0:GOTO 50174
50192 for aaa=1 to cc
50194 bb=int(rnd(1)*6)+1:ccc=ccc+bb
50196 next aaa
50198 print:gosub 198:print "Your ";w$;" glows with flames and fireballs shoot out of the tip!":print "You have hit with ";cc;" fireballs and have done ";ccc;" damage!":d=d+ccc:dxxd=dxxd+ccc:aa=0:bb=0:cc=0:aaa=0:ccc=0:goto 50174
50200 rem WEAPON ITE3
50202 for aa=1 to ite3
50204 bb=int(rnd(1)*100)+1:if bb<=5 then cc=cc+1
50206 next aa
50208 if cc=0 THEN aa=0:bb=0:cc=0:aaa=0:ccc=0:GOTO  50175
50210 for aaa=1 to cc
50212 bb=int(rnd(1)*10)+1:ccc=ccc+bb
50214 next aaa
50216 print:gosub 198:print "Your ";w$;" crackles with energy and lightning bolts shoot out of the tip!":print "You have hit with ";cc;" lightning bolts and have done ";ccc;" damage!":d=d+ccc:dxxd=dxxd+ccc:aa=0:bb=0:cc=0:aaa=0:ccc=0:goto 50175
50218 rem WEAPON ITE4
50220 for aa=1 to ite4
50222 bb=int(rnd(1)*100)+1:if bb<=5 then cc=cc+1
50224 next aa
50226 if cc=0 or hp=thp then aa=0:bb=0:cc=0:aaa=0:ccc=0:GOTO 50176
50228 for aaa=1 to cc
50230 bb=int(rnd(1)*10)+1:ccc=ccc+bb
50232 next aaa
50234 print:gosub 198:print "Your ";w$;" glows with a black energy and has drained the ";mn$;"!":print "You have drained ";ccc;" hps from the creature and added them to your own!":d=d+ccc:hp=hp+ccc:if hp>thp then hp=thp
50236 print "HPs= ";hp;"/";thp;"":dxxd=dxxd+ccc:aa=0:bb=0:cc=0:aaa=0:ccc=0:goto 50176
50238 rem WEAPON ITE5
50240 for aa=1 to ite5
50242 bb=int(rnd(1)*100)+1:if bb<=5 then cc=cc+1
50244 next aa
50246 if cc=0 or mp=tmp then aa=0:bb=0:cc=0:aaa=0:ccc=0:GOTO 50177
50248 for aaa=1 to cc
50250 bb=int(rnd(1)*10)+1:ccc=ccc+bb
50252 next aaa
50254 print:gosub 198:print "Your ";w$;" glows with a blue energy and has drained the ";mn$;"!":print "You have drained ";ccc;" mps from the creature and added them to your own!":mp=mp+ccc:if mp>tmp then mp=tmp
50256 print "MPs= ";mp;"/";tmp;"":aa=0:bb=0:cc=0:aaa=0:ccc=0:goto 50177



50040 REM FLEEING!
50041 if mobboss=1 then print:print "You cannot escape from a Boss Battle!":goto 50004
50042 if lair=1 then print:print "There is no place to run to when you are in a lair!!":goto 50004
50043 print:print "You attempt to Flee!":if initm=1 then 50060
50044 if trick1=1 then trick1=0:goto 302590
50045 print "You are being attacked from behind!":mn2=1
50046 for a=1 to mn1
50047 print mn$;" ";mn2;" attacks you!"
50048 aa=int(rnd(1)*100)+1:if aa>49 then 50052
50050 print mn$;" ";mn2;" has missed!":mn2=mn2+1:goto 50056
50052  d=(int(rnd(1)*mmax)+mmin)*2:print mn$;" ";mn2;" has hit you for ";d;" points of double damage!":hp=hp-d:if hp<=0 then 3512
50054 mn2=mn2+1
50056 next a
50060 a=int(rnd(1)*100)+1+mlvl+mn-dex1
50061 if a<50 then 50064
50062 if mn>1 and mn1>1 then print:print "The ";mn$;"s have blocked your escape!!!  You must stay and fight!!":initp=1:goto 50130
50063 if mn=1 or mn1=1 then print:print "The ";mn$;" has blocked your escape!!!  You must stay and fight!!":initp=1:goto 50130
50064 print "You have escaped!  Good job, chicken.":ruxn=1:return

50065 REM USING AN ITEM IN BATTLE
50067 if battle<>1 then print:print "You must be in a Battle to use this item!":gosub 199:goto 9030
50068 if a=26 and it26>0 then print "The ball flies out and showers Spikes over your attackers!":aa=1:aaa=10:goto 50080
50070 if a=27 and it27>0 then print "The ball flies out and Electrical Bolts lash out at your attackers!":aa=2:aaa=20:goto  50080
50072 if a=28 and it28>0 then print "The ball flies out and Explodes over your attackers!":aa=3:aaa=30:goto  50080
50074 if a=29 and it29>0 then print "The ball flies out and Lightning Bolts fry your attackers!":aa=5:aaa=50:goto  50080
50076 if a=30 and it30>0 then print "The ball flies out and a massive Firestorm showers over your attackers!":aa=10:aaa=100:goto  50080
50078 if a=31 and it31>0 then print "The ball flies out and transforms into a thousand Arrows, Swords, and Spears,":print "cutting down your attackers where they stand!":aa=50:aaa=500
50080 a = int(rnd(1)*(aaa-aa))+aa:print "The Power Ball has done ";a;" damage to all enemies!":tmhp1=tmhp1-a:mhp=mhp-a:if tmph1<=0 then print "All Attackers Have Been Vanquished!":print "The monster had died.":End
50082 initp=1:mhp=mhp-a:if mhp<=0 then print "The monster had died.":End
50084 goto 50130

50090 REM DEFENSE
50092 print:print "You start Defending!":def=1:initp=1:goto 50130

3392 if clvl=1000 then status$="Immortal Deity":goto 3432
3394 if clvl=900 then status$="Hellraiser":goto 3432
3395 if clvl=800 then status$="Doomguard":goto 3432
3396 if clvl=700 then status$="Juhulest":goto 3432
3398 if clvl=600 then status$="Trion Corruptor":goto 3432
3399 if clvl=500 then status$="Great Zion":goto 3432
3400 if clvl=400 then status$="Platinum Zion":goto 3432
3402 if clvl=300 then status$="Gold Zion":goto 3432
3404 if clvl=250 then status$="Silver Zion":goto 3432
3406 if clvl=200 then status$="Dark Emulator":goto 3432
3408 if clvl=175 then status$="Katari":goto 3432
3410 if clvl=150 then status$="Arcblade":goto 3432
3411 if clvl=125 then status$="Dragoon":goto 3432
3412 if clvl=100 then status$="Cavalier":goto 3432
3413 if clvl=90 then status$="Master":goto 3432
3415 if clvl=80 then status$="Geomancer":goto 3432
3417 if clvl=70 then status$="Blood Forger":goto 3432
3419 if clvl=60 then status$="Ballisteer":goto 3432
3420 if clvl=50 then status$="Explorer":goto 3432
3422 if clvl=40 then status$="Articifer":goto 3432
3424 if clvl=30 then status$="Noble":goto 3432
3426 if clvl=20 then status$="Fielder":goto 3432
3428 if clvl=10 then status$="Legionairre":goto  3432
3430 return
3432 print:print "You have reached a new status level of ";status$;"!":return



8999 REM :::::::::::::::::::::::   STATUS! ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
9000 cls:gosub 198: print      ":: ";nm$;" ::":print ":: Level ";clvl;" ::":if status$<>"" then print ":: Status:  ";status$
9002 print "[Hit Points]         ";hp;"/";thp;".";:if ishp=1 then print "   (";thpis;"+";hpx;" bonus)"
9004 print:print "[Magic Points]    ";mp;"/";tmp;".";:if ismp=1 then print "   (";tmpis;"+";mpx;" bonus)"
9005 GOSUB 10420 :PRINT:print "[Location]     ";loc$;"."
9006 gosub 198:print "Abilities"
9007 print "  -Strength-          ";str1;"/";str
9008 print "  -Intelligence-      ";iq1;"/";iq
9009 print "  -Dexterity-         ";dex1;"/";dex
9010 print "  -Constitution-     ";con1;"/";con
9012 gosub 198
9014 Print "Treasure Report":print "{}{} Gold:               ";g;"."
9016 print "{}{} Gems:             ";gem1;".":print "{}{} Jewlery:           ";jwl1;"."
9018 print "     Amount needed to win: ";tn;"."
9020 print "[ To learn more about your current Treasure, go to the [TR]easure Report ]"
9022 goto 9330
9025 print:print "// [I]tems // [S]pells Page // [TR]easure Report // [M]issions // [C]lose Status ";:input a$: gosub 11200:if a$="I" then 9030
9026 if a$="C" then 9997
9027 if a$="S" then 9600
9028 if a$="M" then 9988
9029 goto 9025
9030 if battle=1 and initp=1 then 50130
9031 cls:gosub 198:print "   Healing Items   "
9032 if it1>0 then print         "  1.     Herb                             Heals 10-50 health                              ";it1
9033       if it2>0 then print   "  2.    Herb2                            Heals 25-125 health                            ";it2
9034       if it3>0 then print   "  3.    Herb3                            Heals 50-250 health                            ";it3
9035       if it4>0 then print   "  4.    Herb4                            Heals 100-500 health                          ";it4
9036       if it5>0 then print   "  5.    Manashroom                  Heals 10-30 mana                              ";it5
9037       if it6>0 then print   "  6.    Manashroom2                Heals 25-75 mana                               ";it6
9038       if it7>0 then print   "  7.    Manashroom3                Heals 50-150 mana                             ";it7
9039       if it8>0 then print   "  8.    Manashroom4                Heals 100-300 mana                            ";it8
9040       if it55>0 then print "  9.    Full Life Potion               Completely Heals you                          ";it55
9041       if it56>0 then print "  10.  Full Mana Potion             Restores all mana                               ";it56
9042       if it57>0 then print "  11.  Full Life/Mana Potion       HP and MP fully restored                     ";it57
9043       if it58>0 then print "  12.  Antidote                          Neutralizes Poisons in your system      ";it58
9051 GOSUB 198:PRINT "|||  HP = ";hp;"/";thp;"  ||||  MP = ";mp;"/";tmp;"  |||":gosub 198
9052 GOTO 9310
9053 if battle=1 then 9452
9054 print:gosub 198:print "You may:":print "// [U]se an item on this list //":print "Or Look at:":print "// [T]rade Items // [S]pecial Items // [J]unk // [UN]ique Items // [TR]easure Report //":print "You may also:":print "// [M]ain Page // [C]lose Status // ";:input a$:gosub 11200
9055 if a$="U" then 9450
9056 if a$="T" then 9070
9058 if a$="S" then 9126
9060 if a$="J" then 9175
9062 if a$="UN" then 9210
9064 if a$="M" then 9000
9066 if a$="C" then 9997
9068 goto 9052
9070 cls:gosub 198:print "   Trade Items   ":if tr=0 then print "           none."
9071    PRINT":::::::::::::::::::: Textiles": if it9>0 then print   "  Cloth                                     ";it9
9072                                                 if it10>0 then print   "  Velvet                                   ";it10
9074                                                if it11>0 then print    "  Silk                                       ";it11
9076                                                if it12>0 then print    "  Leather                                  ";it12
9078                                                if it13>0 then print    "  Dreamweave                          ";it13
9080                                                if it14>0 then print    "  Cord                                      ";it14
9082                      print ":::::::::::::::::::: Metals"
9084                                               if it15>0 then print   "  Steel                                     ";it15
9086                                               if it16>0 then print   "  Lead                                      ";it16
9088                                               if it17>0 then print   "  Iron                                        ";it17
9090                                               if it18>0 then print   "  Admantium                             ";it18
9092                      print ":::::::::::::::::::: Alchemy"
9094                                               if it19>0 then print   "  Spikes                                   ";it19
9096                                               if it20>0 then print   "  Talons                                    ";it20
9098                                               if it21>0 then print   "  Tooths                                    ";it21
9100                                               if it22>0 then print   "  Ears                                       ";it22
9102                                               if it23>0 then print   "  Scales                                    ";it23
9104                                               if it24>0 then print   "  Bladders                                 ";it24
9106                                               if it25>0 then print   "  Eyes                                      ";it25
9108 print:gosub 198:print "// [H]ealing Items // [S]pecial Items // [J]unk // [UN]ique Items // [TR]easure Report //":pRINT "You may also:":print "// [M]ain Page // [C]lose Status // ":input a$:gosub 11200
9110 if a$="H" then 9030
9112 if a$="S" then 9126
9114 if a$="J" then 9175
9116 if a$="UN" then 9210
9120 if a$="M" then 9000
9122 if a$="C" then 9997
9124 goto 9108
9126 cls:gosub 198:print "Special Items":if spe=0 then print "         none."
9128 if it40>0 then print   "  1. Extra Life                                       ";it40
9130 if it41>0 then print   "  2.  +1 IQ                                            ";it41
9132 if it42>0 then print   "  3.  +1 DEX                                        ";it42
9134 if it43>0 then print   "  4.  +1 CON                                       ";it43
9136 if it44>0 then print   "  5.  +1 STR                                        ";it44
9138 if it45>0 then print   "  6.  +100 HP                                      ";it45
9140 if it46>0 then print   "  7.  +200 HP                                      ";it46
9142 if it47>0 then print   "  8.  +300 HP                                      ";it47
9144 if it48>0 then print   "  9.  +400 HP                                      ";it48
9146 if it49>0 then print   "  10. +500 HP                                     ";it49
9148 if it50>0 then print   "  11. +40 MP                                      ";it50
9150 if it51>0 then print   "  12. +60 MP                                      ";it51
9152 if it52>0 then print   "  13. +80 MP                                      ";it52
9154 if it53>0 then print   "  14. +120 MP                                    ";it53
9156 if it54>0 then print   "  15. +150 MP                                    ";it54
9158 print:gosub 198:print "// [U]se an item on this list //":print "You may also look at:  [H]ealing Items // [T]rade Items // [J]unk // [UN]ique Items // [TR]easure Report //":print "You may also:":print "[M]ain Page // [C]lose Status // ":input a$:gosub 11200
9159 if a$ ="U" then 9550
9160 if a$="H" then 9030
9162 if a$="T" then 9070
9164 if a$="J" then 9175
9166 if a$="UN" then 9210
9168 if a$="M" then 9000
9170 if a$="C" then 9997
9172 goto 9158
9175 cls:gosub 198:print "Junk":if junk=0 then print "         none.":goto 9194
9177 if it32>0 then print "  Sand Dollars                                                     ";it32
9179 if it33>0 then print "  Keanu Reeves Movie Collections                         ";it33
9180 if it34>0 then print "  Wooden Shoes                                                 ";it34
9182 if it35>0 then print "  Dead Chickens                                                  ";it35
9184 if it36>0 then print "  Broken Keys                                                     ";it36
9186 if it37>0 then print "  Clay Balls                                                         ";it37
9188 if it38>0 then print "  Wire Meshs                                                      ";it38
9190 if it39>0 then print "  Plastic Rings                                                    ";it39
9192 print "Total Junk Value = ";junk;"."
9194 print:gosub 198:print "// [H]ealing Items // [S]pecial Items // [T]rade Items // [UN]ique Items // [TR]easure Report //":print "You may also:":print "// [M]ain Page // [C]lose Status // ":input a$:gosub 11200
9196 if a$="H" then 9030
9198 if a$="T" then 9070
9200 if a$="UN" then 9210
9202 if a$="S" then 9126
9204 if a$="M" then 9000
9206 if a$="C" then 9997
9208 goto 9194

9210 CLS:gosub 198:print  "Unique Items"
9212 IF un1=0 and un2=0 and un3=0 and un4=0 and ismp=0 and ishp=0 THEN PRINT "         none."
9213 if un1=1 then print "Rope, 40'                                      Use this to climb down holes."
9214 if un2=1 then print "Grappling Hook                             This is used to grapple up to tops of holes.  Must have rope."
9215 if un3>0 then print "Old Parchment Page  (";un3;")         What could this be used for?"
9216 if un4>0 then print "Blood Ring                 (";un4;")         What could this be used for?"
9218 if ishp>0 then print "Health Ion Stone                         Adds Additional HPs (+";ishp3;"% = +";hpx;" HPs)"
9220 if ismp>0 then print"Mana Ion Stone                          Adds Additional MPs (+";ismp3;"% = +";mpx;" MPs)"
9294 print:gosub 198:print "// [H]ealing Items // [S]pecial Items // [T]rade Items // [J]unk // [TR]easure Report //":print "You may also:": print "[M]ain Page // [C]lose Status // ":input a$:gosub 11200
9296 if a$="H" then 9030
9298 if a$="T" then 9070
9302 if a$="S" then 9126
9304 if a$="M" then 9000
9306 if a$="C" then 9997
9308 goto 9294

9310 If it26>0 then print "Spikeball                              ";it26:print "  Does 1-10 damage to all enemies, battle only"
9312 If it27>0 then print "Shockball                             ";it27:print "  Does 2-20 damage to all enemies, battle only"
9314 If it28>0 then print "Explodingball                        ";it28:print "  Does 3-30 damage to all enemies, battle only"
9316 If it29>0 then print "Chain Lightningball                ";it29:print "  Does 5-50 damage to all enemies, battle only"
9318 If it30>0 then print "Firestormball                        ";it30:print "  Does 10-100 damage to all enemies, battle only"
9320 If it31>0 then print "Deathball                             ";it31:print "  Does 50-500 damage to all enemies, battle only"
9322 GOTO 9053

9330 REM :::::::::::::::::::::::added main page shit ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
9332 gosub 199:gosub 198:print "Time/Weather Report":if ins=1 then print "You are in the Cave of Despair you cannot tell what time it is.":goto 9335
9333 print "Time:  Chronos";x3
9334 print "Weather:  ";wx$: if ins=0 and time$="Unknown" then time$=time2$
9335 print time$
9336 print "Days Played:  ";days:print "Trader Shop Change:  ";days1-days:gosub 198
9337 print "Character Fighting Report"
9338 print "Weapon:  ";w$;"              Damage:  ";cmin;"-";cmax:IF ite2>0 or ite3>0 or ite4>0 or ite5>0 or ite6>0 or ite7>0 or ite8>0 then print "Upgrades:"
9342 if ite2>0 then print "Fireballs:           10% chance, 1-6d, ";ite2;" chances."
9344 if ite3>0 then print "Lightning Bolts:  5% chance, 1-10d, ";ite3;" chances."
9346 if ite4>0 then print "Vampire:            5% chance, 1-10hp regained, ";ite4;" chances."
9348 if ite5>0 then print "Warlocks Heal:   5% chance, 1-10mp regained, ";ite5;" chances."
9349 if ite6>0 then print "Sleep:               ";ite6;"% chance."
9350 if ite7>0 then print "Poison:             ";ite7;"% chance."
9351 if ite8>0 then print "Stun                 ";ite8;"% chance."
9352 GOSUB 13012:IF mnlk$<>"" then print:print "Last Moster Killed:   ";mnlk$
9353 if npckk>0 then print        "Last NPC Killed:       ";npc4$;"";npc5$;"";npc6$
9354 if tmk>0 then print "Total Kills:  ";tmk
9355 GOSUB 198:print "XP Report"
9358 print "Next Level:  ";clvl+1
9360 print "XP Gained towards Next Level:          ";xp1
9362 print "XP Needed for Next Level:                 ";xp2
9364 print "Difference:                                        ";xp2-xp1
9366 print "Total XP:  ";xp
9368 if ar1>0 or ar2>0 or ar3>0 or ar4>0 or ar5>0 or ar6>0 or ar7>0 or ar8>0 then gosub 199:gosub 198:print "Character Defense Report"
9370 if ar1>0 then print "    Pants:                 Current AR: ";ar11;"/";ar1
9371 if ar2>0 then print "    Shirt:                   Current AR: ";ar12;"/";ar2
9372 if ar3>0 then print "    Gloves:               Current AR: ";ar13;"/";ar3
9374 if ar4>0 then print "    Helmet:               Current AR: ";ar14;"/";ar4
9375 if ar5>0 then print "    Boots:                 Current AR: ";ar15;"/";ar5
9377 if ar6>0 then print "    Sleeve (R):          Current AR: ";ar16;"/";ar6
9378 if ar7>0 then print "    Sleeve (L)::         Current AR: ";ar17;"/";ar7
9379 if ar8>0 then print "    Backpiece:         Current AR: ";ar18;"/";ar8
9380 tar=int((ar1+ar2+ar3+ar4+ar5+ar6+ar7+ar8)/15):if ar1>0 or ar2>0 or ar3>0 or ar4>0 or ar5>0 or ar6>0 or ar7>0 or ar8>0 then print "TAR (total armor class (all ars/15)):  ";tar
9382 if ite10>0 then print "  +10 STR               +10 to STR score                                  Sleeves (L)"
9383 if ite11>0 then print "  +10 STR               +10 to STR score                                  Sleeves (R)"
9385 if ite12>0 then print "  +10 DEX               +10 to DEX score                                  Boots"
9387 if ite13>0 then print "  +10 CON              +10 to CON score                                  Chest"
9388 if ite14>0 then print "  +10 IQ                  +10 to IQ score                                     Helmet"
9389 if ite15>0 then print "  FlameShield         1-8 damage on contact                           Back"
9390 if ite16>0 then print "  IceShield              1-8 damage on contact                           Back"
9392 if ite17>0 then print "  Locationer            Find Keys/Stairs in 1/2 time                    Pants"
9394 if ite18>0 then print "  Secreter               Find Secret Doors 100%                         Gloves"
9395 GOSUB 18110
9396 if ins=1 then gosub 199:gosub 198:print "Dungeon Info:":print ":::Dungeon Level:     ";dlvl:goto 9398
9397 goto 9025
9398 print ":::Last Key Found:              ";lkfxx;" rooms ago."
9400 print ":::Last Staircase found:       ";lsfxx;" rooms ago."
9402 gosub 300885




9448 rem keys owned monster kills and other info
9449 goto 9025

9450 rem Use Items Healing
9452 xvxv=0:print:print "::::::::::: Which do you want to use? (enter number, 0 to exit)";:input a:if a<0 then print "Sorry you cant do that.":goto 9452
9453 if a=1 and it1>0 then n=it1:xxm=10:gosub 9500:it1=it1-xvxv:goto 9030
9455 if a=2 and it2>0 then n=it2:xxm=25:gosub 9500:it2=it2-xvxv:goto 9030
9457 if a=3 and it3>0 then n=it3:xxm=50:gosub 9500:it3=it3-xvxv:goto 9030
9459 if a=4 and it4>0 then n=it4:xxm=100:gosub 9500:it4=it4-xvxv:goto 9030
9460 if a=5 and it5>0 then n=it5:xxm=10:gosub 9515:it5=it5-xvxv:goto 9030
9462 if a=6 and it6>0 then n=it6:xxm=25:gosub 9515:it6=it6-xvxv:goto 9030
9464 if a=7 and it7>0 then n=it7:xxm=50:gosub 9515:it7=it7-xvxv:goto 9030
9466 if a=8 and it8>0 then n=it8:xxm=100:gosub 9515:it8=it8-xvxv:goto 9030
9468 if a=9 and it55>0 then 9530
9470 if a=10 and it56>0 then  9535
9472 if a=11 and it57>0 then  9540
9473 if a=26 then goto 50067
9474 if a=27 then goto 50067
9475 if a=28 then goto 50067
9476 if a=29 then goto 50067
9478 if a=30 then goto 50067
9480 if a=31 then goto 50067
9482 if a=0 and battle=1 then 50004
9486 if a=0 then 9030
9488 print "Enter corresponding number to item to use it, or type 0 to exit.":goto 9030
9500 print:print "How many do you want to use? (1-";n;", 0 to exit)";:input a:if a<0 or a>n then 9500
9502 if a =0 then 9030
9504 x=x+1:xvxv=xvxv+1:h=(int(rnd(1)*5)+1)*xxm:hp=hp+h:if hp>thp then hp=thp
9506 print "HP=";hp;"/";thp;".  You have been healed ";h;" hit points.":if x>=a then gosub 198:gosub 199:x=0:a=0:h=0:n=0:xxx=0:xxm=0:return
9508 if hp=thp then print "You are fully healed.  Remaining Herbs (";a-xvxv;") placed back into inventory.":gosub 198:gosub 199: :x=0:a=0:h=0:n=0:xxx=0:xxm=0:return
9510 goto 9504
9515 print:print "How many do you want to use? (1-";n;", 0 to exit)";:input a:if a<0 or a>n then 9500
9517 if a =0 then 9030
9519 x=x+1:xvxv=xvxv+1:h=(int(rnd(1)*3)+1)*xxm:mp=mp+h:if mp>tmp then mp=tmp
9521 print "MP=";mp;"/";tmp;".  You have recovered ";h;" mana.":if x>=a then gosub 198:gosub 199:x=0:a=0:h=0:n=0:xxx=0:xxm=0:return
9523 if mp=tmp then print "You have recovered all magic.  Remaining Manashrooms (";a-xvxv;") placed back into inventory.":gosub 198:gosub 199: x=0:a=0:h=0:n=0:xxx=0:xxm=0:return
9525 goto 9519
9530 if hp=thp then print "You are already fully healed.":goto 9030
9532 hp=thp: print "HP=";hp;"/";thp;".  You are fully healed.": it55=it55-1:gosub 198:gosub 199:goto 9030
9535 if mp=tmp then print "You are already at full mana.":goto 9030
9537 mp=tmp: print "MP=";mp;"/";tmp;".  You are fully healed of all mana.": it56=it56-1:gosub 198:gosub 199:goto 9030
9540 if hp=thp and mp =tmp then print "You are already healed fully of both health and mana.":goto 9030
9542 mp=tmp:hp=thp:print "HP=";thp;" MP=";tmp;".  You are fully recovered.":it57=it57-1:gosub 198:gosub 199:goto 9030
9550 xvxv=0:print:print "Which do you want to use? (enter number, 0 to exit)";:input a:if a<0 or a>=16 then print "Sorry you cant do that.":goto 9550
9552 if a=1 and it40>0 then li=li+it40:print "You have gained ";it40;" lives.  Lives = ";li;".":gosub 198:gosub 199:it40=0:goto 9126
9553 if a=2 and it41>0 then print "You have gained ";it41;" IQ.  IQ = ";iq1+it41;"/";iq+it41;".":gosub 198:gosub 199:iq=iq+it41:it41=0:goto  9126
9554 if a=3 and it42>0 then print "You have gained ";it42;" DEX.  DEX = ";dex1+it42;"/";dex+it42;".":gosub 198:gosub 199:dex=dex+it42:it42=0:goto  9126
9556 if a=4 and it43>0 then print "You have gained ";it43;" CON.  CON = ";con1+it43;"/";con+it43;".":gosub 198:gosub 199:con=con+it43:it43=0:goto  9126
9557 if a=5 and it44>0 then print "You have gained ";it44;" STR.  STR = ";str1+it44;"/";str+it44;".":gosub 198:gosub 199:str=str+it44:it44=0:goto 9126
9559 if a=6 and it45>0 then x=(100*it45):hp=hp+x:thp=thp+x:print "You have added ";x;" to permanent HP.  ";hp;"/";thp;".":gosub 198:gosub 199:x=0:it45=0:goto 9126
9560 if a=7 and it46>0 then  x=(200*it46):hp=hp+x:thp=thp+x:print "You have added ";x;" to permanent HP.  ";hp;"/";thp;".":gosub 198:gosub 199:x=0:it46=0:goto 9126
9562 if a=8 and it47>0 then x=(300*it47):hp=hp+x:thp=thp+x:print "You have added ";x;" to permanent HP.  ";hp;"/";thp;".":gosub 198:gosub 199:x=0:it47=0:goto 9126
9564 if a=9 and it48>0 then  x=(400*it48):hp=hp+x:thp=thp+x:print "You have added ";x;" to permanent HP.  ";hp;"/";thp;".":gosub 198:gosub 199:x=0:it48=0:goto 9126
9566 if a=10 and it49>0 then  x=(500*it49):hp=hp+x:thp=thp+x:print "You have added ";x;" to permanent HP.  ";hp;"/";thp;".":gosub 198:gosub 199:x=0:it49=0:goto 9126
9568 if a=11 and it50>0 then   x=(40*it50):mp=mp+x:tmp=tmp+x:print "You have added ";x;" to permanent MP.  ";mp;"/";tmp;".":gosub 198:gosub 199:x=0:it50=0:goto 9126
9570 if a=12 and it51>0 then x=(60*it51):mp=mp+x:tmp=tmp+x:print "You have added ";x;" to permanent MP.  ";mp;"/";tmp;".":gosub 198:gosub 199:x=0:it51=0:goto 9126
9572 if a=13 and it52>0 then x=(80*it52):mp=mp+x:tmp=tmp+x:print "You have added ";x;" to permanent MP.  ";mp;"/";tmp;".":gosub 198:gosub 199:x=0:it52=0:goto 9126
9574 if a=14 and it53>0 then x=(120*it53):mp=mp+x:tmp=tmp+x:print "You have added ";x;" to permanent MP.  ";mp;"/";tmp;".":gosub 198:gosub 199:x=0:it53=0:goto 9126
9576 if a=15 and it54>0 then x=(150*it54):mp=mp+x:tmp=tmp+x:print "You have added ";x;" to permanent MP.  ";mp;"/";tmp;".":gosub 198:gosub 199:x=0:it54=0:goto 9126
9578 if a=0 then 9126
9592 print "Enter corresponding number to item to use it, or type 0 to exit.":goto 9550

9600 REM SPELLS
9602 cls:gosub 198:print ")))))) SPELLS (((((((":gosub 198
9604 if spellbook=0 and runes=0 then print:print "Theres not much you can do here yet....":goto 9615
9605 if spellbook=1 and runes=0 then 9630
9606 x=0:print:gosub 198:print "Would you like to [P]age through your spellbook, [C]heck out Spell Runes you have, or [F]inish with this page";:input a$
9608 if a$="P" and spellbook=1 then 9622
9610 if a$="C" and runes=1 then PRINT"not yet":goto 9615
9612 if a$="F" then 9615
9614 goto 9605
9615 print:Gosub 198:print "// [I]tems // [TR]easure Report // [M]ain Page // [C]lose Status // ";:input a$:gosub 11200: if a$="I" then 9030
9617 if a$="C" then 9997
9619 if a$="M" then 9000
9620 goto 9615
9622 print:gosub 198:print "// [H]ealing // [E]nchantment // [Q]uit this Page // ";:input a$:if a$="H" then 9630
9623 if a$="E" then 9700
9624 if a$="Q" then 9615
9626 goto 9622
9630 x=0:print:gosub 198:print "~ School of Healing ~":gosub 198
9632 if sp1=0 and sp2=0 and sp3=0 and sp4=0 and  sp5=0 and  sp6=0 and  sp7=0 and  sp8=0 and  sp9=0 then print "You have no healing spells....":goto 9622
9634 if sp1=1 then print "  1.    Healing1                SpellLevel @ ";smod1;"         MP Cost = ";spman1;"            Heals 20-85 HPs";:if smod1>0 then print" + (";smod1;" HPs)";
9636 if sp2=1 then print:print "  2.    Healing2                SpellLevel @ ";smod2;"         MP Cost = ";spman2;"            Heals 75-125 HPs";:if smod2>0 then print" + (";smod2;" HPs)";
9638 if sp3=1 then print:print "  3.    Healing3                SpellLevel @ ";smod3;"         MP Cost = ";spman3;"            Heals 90-180 HPs";:if smod3>0 then print" + (";smod3;" HPs)";
9640 if sp4=1 then print:print "  4.    Healing4                SpellLevel @ ";smod4;"         MP Cost = ";spman4;"            Heals 100-220 HPs";:if smod4>0 then print" + (";smod4;" HPs)";
9642 if sp5=1 then print:print "  5.    Healing5                SpellLevel @ ";smod5;"         MP Cost = ";spman5;"            Heals 120-350 HPs";:if smod5>0 then print" + (";smod5;" HPs)";
9644 if sp6=1 then print:print "  6.    Healing6                SpellLevel @ ";smod6;"         MP Cost = ";spman6;"            Heals 200-600 HPs";:if smod6>0 then print" + (";smod6;" HPs)";
9645 if sp7=1 then print:print "  7.    Healing7                SpellLevel @ ";smod7;"         MP Cost = ";spman7;"            Heals 240-700 HPs";:if smod7>0 then print" + (";smod7;" HPs)";
9646 if sp8=1 then print:print "  8.    Healing8                SpellLevel @ ";smod8;"         MP Cost = ";spman8;"            Heals 350-900 HPs";:if smod8>0 then print" + (";smod8;" HPs)";
9648 if sp9=1 then print:print "  9.    Healing9                SpellLevel @ ";smod9;"         MP Cost = ";spman9;"            Heals 500-1000 HPs";:if smod9>0 then print" + (";smod9;" HPs)";
9649 if sp10=1 then print:print "  10.  HealingX               SpellLevel @ ";smod10;"        MP Cost = ";spman10;"            Heals All HPs";:if smod10>0 then print" - (";smod10;" Mana Cost)";
9650 print:gosub 198:print "::::::::::: MP = ";mp;"/";tmp;"  ::  HP = ";hp;"/";thp
9651 gosub 198:print:print "Which would you like to use (99 to exit)";:input a:if a=99 then 9622
9652 if hp=thp then print:print "You are not in need of healing at this time!":print "HP = ";hp;"/";thp:goto 9615
9653 if a=1 and sp1=1 then mana=spman1:gosub 9670:if x=1 then gosub 18010
9654 if a=2 and sp2=1 then mana=spman2:gosub 9670:if x=1 then gosub 18011
9655 if a=3 and sp3=1 then mana=spman3:gosub 9670:if x=1 then gosub 18012
9656 if a=4 and sp4=1 then mana=spman4:gosub 9670:if x=1 then gosub 18013
9657 if a=5 and sp5=1 then mana=spman5:gosub 9670:if x=1 then gosub 18014
9658 if a=6 and sp6=1 then mana=spman6:gosub 9670:if x=1 then gosub 18015
9659 if a=7 and sp7=1 then mana=spman7:gosub 9670:if x=1 then gosub 18016
9660 if a=8 and sp8=1 then mana=spman8:gosub 9670:if x=1 then gosub 18017
9662 if a=9 and sp9=1 then mana=spman9:gosub 9670:if x=1 then gosub 18018
9664 if a=10 and sp10=1 then mana=spman10:gosub 9670:if x=1 then gosub 18019
9665 gosub 199:cls:goto 9630
9670 if mana>mp then print:print "You don't have enough MP to cast this spell:  MP = ";mp;"/";tmp;"        Mana Cost = ";mana;".":x=0:return
9672 mp=mp-mana:x=1:return
9700 x=0:print:gosub 198:print "~ School of Enchantment ~":gosub 198
9702 if sp11=0 and sp12=0 and sp13=0 and sp14=0 and  sp15=0 and  sp16=0 and  sp17=0 and  sp18=0 and  sp19=0 then print "You have no enchantment spells....":goto 9622
9704        if sp11=1 then print "  1.    Survival1                  SpellLevel @ ";smod11;"         MP Cost = ";spman11;"            Heals 10-100 HPs for ";sprm11;" rooms.";:if smod11>0 then print" + (";smod11*2;" HPs)";
9706 if sp12=1 then print:print "  2.    Survival2                  SpellLevel @ ";smod12;"         MP Cost = ";spman12;"            Heals 25-125 HPs for ";sprm12;" rooms.";:if smod12>0 then print" + (";smod12*2;" HPs)";
9708 if sp13=1 then print:print "  3.    Survival3                  SpellLevel @ ";smod13;"         MP Cost = ";spman13;"            Heals 50-200 HPs for ";sprm13;" rooms.";:if smod13>0 then print" + (";smod13*2;" HPs)";
9710 if sp14=1 then print:print "  4.    Survival4                  SpellLevel @ ";smod14;"         MP Cost = ";spman14;"            Heals 100-300 HPs for ";sprm14;" rooms.";:if smod14>0 then print" + (";smod14*2;" HPs)";
9712 if sp15=1 then print:print "  5.    Survival5                  SpellLevel @ ";smod15;"         MP Cost = ";spman15;"            Heals 300-650 HPs for ";sprm15;" rooms.";:if smod15>0 then print" + (";smod15*2;" HPs)";
9714 if sp16=1 then print:print "  6.    Dark Spirit Armor      SpellLevel @ ";smod16;"         MP Cost = ";spman16;"            Adds ";smod16;" Armor for ";sprm16;" rooms.";
9716 if sp17=1 then print:print "  7.    Dark Spirit Mastery   SpellLevel @ ";smod17;"         MP Cost = ";spman17;"            Adds ";smod17;" to damage for ";sprm17;" rooms.";
9718 if sp18=1 then print:print "  8.    Healing8                 SpellLevel @ ";smod18;"         MP Cost = ";spman18;"            Heals 350-900 HPs for ";sprm11;" rooms.";:if smod18>0 then print" + (";smod18*2;" HPs)";
9720 if sp19=1 then print:print "  9.    Healing9                 SpellLevel @ ";smod19;"         MP Cost = ";spman19;"            Heals 500-1000 HPs for ";sprm11;" rooms.";:if smod19>0 then print" + (";smod19*2;" HPs)";
9722 if sp20=1 then print:print "  10.   HealingX                 SpellLevel @ ";smod20;"         MP Cost = ";spman20;"            Heals All HPs";:if smod20>0 then print" - (";smod20;" Mana Cost)";
9724 print:gosub 198:print "::::::::::: MP = ";mp;"/";tmp;"  ::  HP = ";hp;"/";thp
9726 gosub 198:print:print "Which would you like to use (99 to exit)";:input a:if a=99 then 9622
9728 if a=1 and sp11=1 then mana=spman11:x=0:gosub 9670:if x=1 then print:print "You have cast Survival1!":gosub 18050
9729 if a=2 and sp12=1 then mana=spman12:x=0:gosub 9670:if x=1 then print:print "You have cast Survival2!":gosub 18052
9730 if a=3 and sp13=1 then mana=spman13:x=0:gosub 9670:if x=1 then print:print "You have cast Survival3!":gosub 18054
9732 if a=4 and sp14=1 then mana=spman14:x=0:gosub 9670:if x=1 then print:print "You have cast Survival4!":gosub 18056
9734 if a=5 and sp15=1 then mana=spman15:x=0:gosub 9670:if x=1 then print:print "You have cast Survival5!":gosub 18058
9736 if a=6 and sp16=1 then mana=spman16:x=0:gosub 9670:if x=1 then print:print "You have cast Dark Spirit Armor!":gosub 18060
9738 if a=7 and sp17=1 then mana=spman17:x=0:gosub 9670:if x=1 then print:print "You have cast Dark Spirit Mastery!":gosub 18061
9740 if a=8 and sp18=1 then mana=spman18:x=0:gosub 9670:if x=1 then gosub 18017
9742 if a=9 and sp19=1 then mana=spman19:x=0:gosub 9670:if x=1 then gosub 18018
9744 if a=10 and sp20=1 then mana=spman20:x=0:gosub 9670:if x=1 then gosub 18019
9746 gosub 199:cls:goto 9700



9988 cls:GOSUB 198:if mmaxmis=0 then print:print "You have no missions available.":gosub 199:goto 9991
9989 print:print "You have a Monster Mission in the Following Area:"
9990 print mmaxdescr2$;:PRINT "                Pay = ";xxpay;" Gold":print:print "Search that area to find the location, the guide will point it out when you find it.  You may also type [D] to delete this mission (below)":gosub 199
9991 print:print "[M]ain Page // [I]tems Page // [S]pells Page // [TR]easure Report // [C]lose Status";:input a$:gosub 11200:if a$="M" then 9000
9992 if a$="I" then 9030
9993 if a$="C" then 9997
9994 if a$="S" then 9600
9995 if a$="D" and mmaxmis=1 then 13000
9996 goto 9991
9997 a$="xxxxXxxXXXxxxXXXXxxxXXXXX":if cxcxcx=5 then 9999
9998 cxcxcx=cxcxcx+1:return
9999 print "Dont forget these vital commands wherever you enter letters (not numbers).":gosub 198: print "[QS]  Quick Stats - shows vitals quick.":print "[SRC]  Search - Search the surrounding area.":gosub 198:cxcxcx=0:gosub 199:return
11000 REM Even MORE Status STUFF
11002 REM Treasure Page
11004 gosub 198:print:print "  Full Treasure Report":print "  All your treasure will be listed below"
11005 print:print:gosub 198:print "  Amount Needed to Win:            ";tn:gosub 198
11007 gosub 198:print "  Gold                      ";g
11008 gosub 198:print "  Jewels                   ";jwl
11010 gosub 198:print "  Gems                    ";gem
11012 gosub 198:print:print "  Rare Treasures:":gosub 198
11014 if pjewelry1>0 or pjewelry2>0 or pjewelry3>0 or pjewelry4>0 or pjewelry5>0 or pjewelry6>0 or pjewelry7>0 or pjewelry8>0 or pjewelry9>0 or pjewelry10>0 or pjewelry11>0 or pjewelry12>0 or pjewelry13>0 or pjewelry14>0 or pjewelry15>0 then print:print "  Pieced Jewelry:": goto 11016
11015 goto 11050
11016 if pjewelry1>0   then print "  Bone Crown of Xox                                 ";pjewelry1;:print "                ":pj3=pjewelry1:pj4=3:gosub 2556
11018 if pjewelry2>0   then print "  Gold Cane of Herox                                ";pjewelry2;:print "                ":pj3=pjewelry2:pj4=3:gosub 2556
11020 if pjewelry3>0   then print "  Gold Band of Disa                                  ";pjewelry3;:print "                ":pj3=pjewelry3:pj4=3:gosub 2556
11022 if pjewelry4>0   then print "  Gold Mask of Prexus                              ";pjewelry4;:print "                ":pj3=pjewelry4:pj4=4:gosub 2556
11024 if pjewelry5>0   then print "  Obsidian Medallion of Toc                       ";pjewelry5;:print "                ":pj3=pjewelry5:pj4=4:gosub 2556
11026 if pjewelry6>0   then print "  Obsidian Wand of Ora                             ";pjewelry6;:print "                ":pj3=pjewelry6:pj4=4:gosub 2556
11028 if pjewelry7>0   then print "  Platinum Broach of Shina                        ";pjewelry7;:print "                ":pj3=pjewelry7:pj4=4:gosub 2556
11030 if pjewelry8>0   then print "  Platinum Medal of Husat                         ";pjewelry8;:print "                ":pj3=pjewelry8:pj4=4:gosub 2556
11032 if pjewelry9>0   then print "  Platinum Armband of Fla                         ";pjewelry9;:print "                ":pj3=pjewelry9:pj4=4:gosub 2556
11034 if pjewelry10>0 then print "  Ruby Carapice of Tolna                           ";pjewelry10;:print "                ":pj3=pjewelry10:pj4=5:gosub 2556
11036 if pjewelry11>0 then print "  Ruby Helm of Shutatu                             ";pjewelry11;:print "                ":pj3=pjewelry11:pj4=5:gosub 2556
11038 if pjewelry12>0 then print "  Ruby Neckband of Vu                             ";pjewelry12;:print "                ":pj3=pjewelry12:pj4=5:gosub 2556
11040 if pjewelry13>0 then print "  Opal Sleeve of Axista                             ";pjewelry13;:print "                ":pj3=pjewelry13:pj4=6:gosub 2556
11042 if pjewelry14>0 then print "  Opal Glove of Zista                                 ";pjewelry14;:print "                ":pj3=pjewelry14:pj4=6:gosub 2556
11044 if pjewelry15>0 then print "  Diamond Scepter of Sulan                       ";pjewelry15;:print "                ":pj3=pjewelry15:pj4=7:gosub 2556
11050 if egg1>0 or egg2>0 or egg3>0 or egg4>0 or egg5>0 or egg6>0 then print:print "  Egg Jewelry:":goto 11054
11052 goto 11075
11054 if egg1>0 then print "  Copper Egg                                           ";egg1
11056 if egg2>0 then print "  Silver Egg                                             ";egg2
11058 if egg3>0 then print "  Golden Egg                                           ";egg3
11060 if egg4>0 then print "  Platinum Egg                                         ";egg4
11062 if egg5>0 then print "  Ruby Egg                                              ";egg5
11064 if egg6>0 then print "  Diamond Egg                                         ";egg6
11075 if djewel1>0 or djewel2>0 or djewel3>0 then print:print "  Demon Jewelry:":goto 11078
11076 goto 11100
11078 if djewel1>0 then print "  Demon Charm                                    ";djewel1
11080 if djewel2>0 then print "  Pentegram Medallion                          ";djewel2
11082 if djewel3>0 then print "  Devil Ring                                          ";djewel3
11100 if ore1>0 or ore2>0 or ore3>0 or ore4>0 or ore5>0 then print:print "  Ores:":goto 11104
11102 goto 11116
11104 if ore1>0 then print "  Red Ore                                                   ";ore1
11106 if ore2>0 then print "  Blue Ore                                                  ";ore2
11108 if ore3>0 then print "  Green Ore                                                ";ore3
11110 if ore4>0 then print "  Yellow Ore                                               ";ore4
11112 if ore5>0 then print "  Silver Ore                                                ";ore5
11114 print:print "Rare Treasures may be sold at Jewelers just like other gems and jewels!":gosub 198
11116 print:gosub 198:print "   Trade Items   "
11118    PRINT":::::::::::::::::::: Textiles": if it9>0 then print   "  Cloth                                     ";it9
11120                                                 if it10>0 then print   "  Velvet                                   ";it10
11122                                                if it11>0 then print    "  Silk                                       ";it11
11124                                                if it12>0 then print    "  Leather                                  ";it12
11126                                                if it13>0 then print    "  Dreamweave                          ";it13
11128                                                if it14>0 then print    "  Cord                                      ";it14
11130                      print ":::::::::::::::::::: Metals"
11132                                               if it15>0 then print   "  Steel                                     ";it15
11134                                               if it16>0 then print   "  Lead                                      ";it16
11136                                               if it17>0 then print   "  Iron                                        ";it17
11138                                               if it18>0 then print   "  Admantium                             ";it18
11140                      print ":::::::::::::::::::: Alchemy"
11142                                               if it19>0 then print   "  Spikes                                   ";it19
11144                                               if it20>0 then print   "  Talons                                    ";it20
11146                                               if it21>0 then print   "  Tooths                                    ";it21
11148                                               if it22>0 then print   "  Ears                                       ";it22
11150                                               if it23>0 then print   "  Scales                                    ";it23
11152                                               if it24>0 then print   "  Bladders                                 ";it24
11154                                               if it25>0 then print   "  Eyes                                      ";it25
11156 vxv=(it9*tt1)+(it10*tt2)+(it11*tt3)+(it12*tt4)+(it13*tt5)+(it14*tt6)+(it15*tt7)+(it16*tt8)+(it17*tt9)+(it18*tt10)+(it19*tt11)+(it20*tt12)+(it21*tt13)+(it22*tt1)+(it23*tt15)+(it24*tt16)+(it25*tt17):a=vxv/100:a=int(vxv):a=a*100:IF a>0 then print "You estimate the value of trade items to be   ";a;" Gold, though that is merely a rough estimate.":gosub 198
11160 print:gosub 198:print "   Junk   "
11162 if it32>0 then print "  Sand Dollars                                                     ";it32
11163 if it33>0 then print "  Keanu Reeves Movie Collections                         ";it33
11165 if it34>0 then print "  Wooden Shoes                                                 ";it34
11168 if it35>0 then print "  Dead Chickens                                                  ";it35
11170 if it36>0 then print "  Broken Keys                                                     ";it36
11172 if it37>0 then print "  Clay Balls                                                         ";it37
11174 if it38>0 then print "  Wire Meshs                                                      ";it38
11176 if it39>0 then print "  Plastic Rings                                                    ";it39
11178 if junk>0 then print "Total Junk Value = ";junk;"."
11180 return

11200 rem T OPTION
11202 if a$="TR" then CLS:gosub 11000
11203 return


13000 rem YET MORE STATUS STUFF
13002 print:print "Would you like to Delete your Monster Mission?"
13004 print:print "You will never ever be able to complete this Mission if you choose Yes (you may, of course, always get another...) - (Y/N)":input a$:if a$="Y" then print:print "You have Deleted your Monster Mission.  You may always get another from Monster Max's.":mmaxon1=0:mmaxdescr$=" ":mmaxchange=1:mmaxmis=0:mmaxloc=0:mmaxdescr2$=" ":gosub 199:goto 9988
13006 if a$="N"  then print:print "You do Not delete the mission.....":gosub 199:goto 9988
13010 rEM MAX POTENTIAL DAMAGE
13012 maxpotdam=(ite3*6)+(ite4*10)+(ite5*10)+(ite6*10)+cmax+cdamb
13013 if spweapon=1 or spweapon1>0 then maxpotdam=maxpotdam+smod17
13014 gosub 198:print "Max Potential Damage = ";maxpotdam:return

















5000 REM ADDITIONAL AREAS AND QUEST PLACES ETC FFS!
5002 if area1=1 then 5016
5004 print:print "A bloodied alcolyte rushes up to you screaming 'OMFG plz Hlp MEH!'":print:print "Just then a giant group of monsters come running into view after her!  You Valiently Rush Forward to Save Her!":gosub 199:a=7:gosub 100014
5006 mn=10:mn3=mn:mn1=mn:mn4=1:print:print "The leader of the ";mn$;"s shouts 'KILL THEM ALL!'":gosub 3735
5008 print:print "The alcolyte falls into your arms, thanking you!  'You have saved me!  Oh thank the 12 Rings!  Thank you!  Thank you!'":print "The hysterical woman starts to calm and you ask wtf happened?  'I was sent into a much dangerous place than this."
5010 print "We call it FarRing, for it is the farthest ring of the court, beyond that high wall to the south.":print "It has been sealed off until recently when an evil creature made lair there.  I was sent to kill it, but the area was too hard for me.":print "I fear my skills.... arent as devoloped... as I'd like them to be, or thought true."
5012 print:print "If you wish I will let you pass into this area on the behalf of the courts.  If you can kill the Leader of FarRing,":print "we shall give you a generous bounty!'":gosub 199:print:print "'I'll be in the courts lobby whenever you would wish to come visit.'  And with that she rushes back to the castle.....":gosub 198:gosub 199
5014 area1=1:goto 5018
5016 mlw=1:mh=8:gosub 3700
5018 gosub 2700:print:print "Large Pillars surround several apple trees here.  A spherical slab made out of pearl":print "lays shimmering on the ground in the center of it all."
5020 print "The pearl wonder glows and crackles with energy.  It looks like you can walk on it..."
5021 print:print "Do you want to go [N]orth, or go [W]est, or go [E]ast, or [S]tep on the Teleporting Slab";:input a$:gosub 1000
5022 if a$="N" then 560
5024 if a$="E" then 540
5025 if a$="W" then 570
5026 if a$="S" then print:print "You materialize in a new place.....":goto 5030
5027 goto 5020
5030 REM 2nd PART OF TRANING GROUNDS + BOSS QUEST
5031 REM ROOM 1
5032 areat=0:areax=3:mh=13:mlw=7:gosub 2700
5034 print "There is a spherical slab made of onyx here.  It glows and crackles with energy.  It looks like you can walk on it...."
5036 print "As you look around, you see many a small circle of trees around the slab, and beyond that many pathways."
5038 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.":print "You may also [ST]ep onto the slab to teleport back.";:input a$:gosub 1000
5040 if a$="S" then 5182
5042 if a$="N" then 5095
5043 if a$="E" then 5055
5044 if a$="W" then 5138
5045 if a$="NW" then 5116
5046 if a$="NE" then 5074
5047 if a$="SW" then 5160
5048 if a$="SE" then 5204
5049 if a$="ST" then print:print "You teleport back to the Outer Courts.":goto 5016
5052 goto 5038
5053 REM ROOM 2
5055 gosub 3700:gosub 2700
5058 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5060 print:print "You may go [N]orth, [S]outh, [W]est, [NW]orthWest, [SW]outhWest, or [E]ast";:input a$:gosub 1000
5062 if a$="S" then 5160
5064 if a$="N" then 5074
5066 if a$="E" then 5226
5068 if a$="W" then 5030
5069 if a$="NW" then 5095
5070 if a$="SW" then 5182
5072 goto 5060
5074 REM ROOM 3
5076 gosub 3700:gosub 2700
5078 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5080 print:print "You may go [S]outh, [W]est, [NW]orthWest, [SW]outhWest, or [NE]orthEast, [SE]outhEast";:input a$:gosub 1000
5082 if a$="S" then 5053
5084 if a$="W" then 5095
5086 if a$="NW" then 5254
5088 if a$="NE" then 5242
5090 if a$="SW" then 5030
5092 if a$="SE" then 5226
5093 goto 5080
5095 REM ROOM 4
5096 gosub 3700:gosub 2700
5098 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5100 print:print "You may go [N]orth, [S]outh, [E]ast, [W]est, [SE]outhEast, [SW]outhWest";:input a$:gosub 1000
5102 if a$="S" then 5030
5104 if a$="N" then 5254
5106 if a$="E" then 5074
5108 if a$="W" then 5116
5110 if a$="SW" then 5138
5112 if a$="SE" then 5053
5114 goto 5100
5116 REM ROOM 5
5118 gosub 3700:gosub 2700
5120 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5122 print:print "You may go [S]outh, [E]ast, [NW]orthWest, [SW]outhWest, or [SE]outhEast ";:input a$:gosub 1000
5124 if a$="S" then 5138
5126 if a$="E" then 5095
5128 if a$="NW" then 5270
5130 if a$="NE" then 5254
5132 if a$="SW" then 5282
5134 if a$="SE" then 5030
5136 goto 5122
5138 REM ROOM 6
5140 gosub 3700:gosub 2700
5142 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5144 print:print "You may go [N]orth, [S]outh, [E]ast, [W]est, [SE]outhEast, or [NE]orthEast";:input a$:gosub 1000
5146 if a$="S" then 5204
5148 if a$="N" then 5116
5150 if a$="E" then 5030
5152 if a$="W" then 5282
5154 if a$="NE" then 5095
5156 if a$="SE" then 5182
5158 goto 5144
5160 REM ROOM 7
5162 gosub 3700:gosub 2700
5164 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5166 print:print "You may go [N]orth, [E]ast, [SE]outhEast, [NE]orthEast, [NW]orthWest, or [SW]outhWest";:input a$:gosub 1000
5168 if a$="N" then 5138
5170 if a$="E" then 5182
5172 if a$="NW" then 5030
5174 if a$="NE" then 5226
5176 if a$="SW" then 5310
5178 if a$="SE" then 5326
5180 goto 5166
5182 REM ROOM 8
5184 gosub 3700:gosub 2700
5186 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5188 print:print "You may go [N]orth, [S]outh, [E]ast, [W]est, [NE]orthEast, or [NW]orthWest";:input a$:gosub 1000
5190 if a$="S" then 5310
5192 if a$="N" then 5030
5194 if a$="E" then 5160
5196 if a$="W" then 5204
5198 if a$="NW" then 5138
5200 if a$="NE" then 5053
5202 goto 5188
5204 REM ROOM 9
5206 gosub 3700:gosub 2700
5208 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5210 print:print "You may go [N]orth, [E]ast, [SE]outhEast, [NE]orthEast, [NW]orthWest, or [SW]outhWest";:input a$:gosub 1000
5212 if a$="N" then 5138
5214 if a$="E" then 5182
5216 if a$="NW" then 5282
5218 if a$="NE" then 5030
5220 if a$="SW" then 5298
5222 if a$="SE" then 5310
5224 goto 5210
5226 REM ROOM 10
5228 gosub 3700:gosub 2700
5230 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5232 print:print "You may go [W]est, [NW]orthWest, or [SW]outhWest";:input a$:gosub 1000
5234 if a$="W" then 5053
5236 if a$="NW" then 5074
5238 if a$="SW" then 5160
5240 goto 5232
5242 REM ROOM 11
5244 gosub 5350:if cow=1 then cow=0:goto 5074
5245 gosub 2700
5246 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5248 print:print "You may only go [SW]outhWest";:input a$:gosub 1000
5250 if a$="SW" then 5074
5252 goto 5248
5254 REM ROOM 12
5256 gosub 3700:gosub 2700
5258 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5260 print:print "You may go [S]outh, [SE]outhEast, or [SW]outhWest";:input a$:gosub 1000
5262 if a$="S" then 5095
5264 if a$="SW" then 5116
5266 if a$="SE" then 5074
5268 goto 5260
5270 REM ROOM 13
5272 gosub 5350:if cow=1 then cow=0:goto 5116
5273 gosub 2700
5274 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5276 print:print "You may only go [SE]outhEast";:input a$:gosub 1000
5278 if a$="SE" then 5116
5280 goto 5276
5282 REM ROOM 14
5284 gosub 3700:gosub 2700
5286 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5288 print:print "You may go [E]ast, [SE]outhEast, [NE]orthEast";:input a$:gosub 1000
5290 if a$="E" then 5138
5292 if a$="NE" then 5116
5294 if a$="SE" then 5204
5296 goto 5288
5298 REM ROOM 15
5300 gosub 5350:if cow=1 then cow=0:goto 5160
5301 gosub 2700
5302 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5304 print:print "You may only go [NE]orthEast";:input a$:gosub 1000
5306 if a$="NE" then 5204
5308 goto 5304
5310 REM ROOM 16
5312 gosub 3700:gosub 2700
5314 print:print "Large Trees snuff out the light quickly here.  There is a pile of boulders piled about 20 feet high."
5316 print:print "You may go [N]orth, [NE]orthEast, [NW]orthWest, or [C]limb the boulder pile.";:input a$:gosub 1000
5318 if a$="N" then 5182
5320 if a$="NW" then 5204
5322 if a$="NE" then 5160
5323 if a$="C" then 5430
5324 goto 5316
5326 REM ROOM 17
5328 gosub 5350:if cow=1 then cow=0:goto 5204
5329 gosub 2700
5330 print:print "Large Trees snuff out the light quickly here.  The trail leads in many directions."
5332 print:print "You may only go [NW]orthWest";:input a$:gosub 1000
5334 if a$="NW" then 5160
5336 goto 5332
5350 REM BOSS BATTLE
5352 if areab1=1 then return
5354 bxxxx=bxxxx+5:a=int(rnd(1)*50)+1:if a<=bxxxx then 5358
5356 return
5358 print:print "As you come up the path, you see the creature that the alcolyte had told you about!":print "It is green and scaly with a lizards head and long leathery wings protruding from its back.  It walks on all 4s and has razor sharp claws":print "It must be at least 20 feet long, and looks extremely dangerous!"
5360 print:print "Do you wish to attack it (Y/N)";:input a$:gosub 1000
5362 if a$="Y" then 5368
5364 if a$="N" then print:print "You run back down the path like a coward!":cow=1:return
5366 goto 5360
5368 mn$="Gargantuan":mhp=500:mmax=55:mmin=1:mxp=200:mg=900:mn=1:ml=5:mobboss=1:print:print "You attack the Monster Boss!":gosub 3735:if areab2=1 then print:print "You have killed the boss of the area again!  Go You!":areab3=0:areab4=int(rnd(1)*25)+25:return
5370 mobboss=0:gosub 198:print:print "MISSION UPDATE":print "You tear the ";mn$;"'s head from it's body to prove that you killed it!  Now go see the alcolyte to get your reward!":print:gosub 198:areab1=1:areab2=1:areab3=0:areab4=int(rnd(1)*25)+25:return
5375 REM BOSS RESPAWN? areab1=1 = boss currently dead, areab2=1 boss mission passed (never changes), areab3=hours boss is dead, areab4=hours til respawn
5377 if areab1=1 then areab3=areab3+1:goto 5380
5379 return
5380 if areab3=areab4 then print:print "[You hear a blood curdling Howling in the winds.  After a few seconds, it has faded away]":areab1=0:areab3=0:areab4=0:return
5382 RETURN
5385 REM ALCOLYTE LOCATED IN CASTLE LOBBY
5386 IF area2=1 then return
5387 if area1=1 then print:print "The alcolyte you saved is here in the lobby.  She looks at you and smiles.  Type [T] to Talk to her.":return
5388 return
5400 REM TALKING TO ALCOLYTE LOCATED IN CASTLE LOBBY
5402 print:print "'O, Dear Sir.  I'm so glad you have come to visit me.  I.. have missed you dearly, and worry about you on your adventures!'":if area2=1 then 5410
5404 if areab2=1 then print:print "'Just as I thought, a strong, valiant warrior like yourself has vanquished the evil of the FarRing!":print "As previously stated, we have a reward for you!":goto 5408
5406 goto 5410
5408 gosub 199:gosub 198:print:print "You have received a bounty for killing the Leader of FarRing:":print "Gold Gained = 500.  Gems Gained = 10.  Jewelry Gained = 10.  Congratulations!":area2=1:g=g+500:gem1=gem1+10:jwl1=jwl1+10:gem=gem+int(rnd(1)*300)+100:jwl=jwl+int(rnd(1)*300)+100
5410 print:print "'Dearest ";nm$;", I will assist your every desire....":print "Would you like to go up to my room for the night to.... [H]eal?"
5412 if area2=0 then print "Would you like to know about the [Q]uest I have betrusted upon you?"
5414 print "Would you like to know [M]ore about the Kingdom of Krynn and it's current king, or would you like to [L]eave?'"
5416 print:print "Enter in the first letter of what you would like to do";:input a$:gosub 1000
5418 if a$="H" then print:print "You take the alcolyte up to her room and ravish her body in ways she's never been ravished before.  You totally drill it shut.":print "Afterwards you settle down for a good nights rest, and wake up the next morning with a big smile on your face, completely healed.":hp=thp:mp=tmp:print "::: HP= ";hp;"/";thp;".":print "::: MP= ";mp;"/";tmp;".":print:print "You head down to the Courts Lobby.":gosub 199:return
5420 if a$="Q" and area2=0 then print:print "'Kill the horrible creature boss that lurks somewhere in the FarRing.  Bring me its head, and I shall give you a generous reward!":print "Be careful as the teleporter seems to be slightly damaged, I don't want to see you getting stuck in such a horrible place!":print "Also, the creature has been known to move around, so it may not always appear in the same location!  Search far and wide and kill it!'"
5422 if a$="M" then print:print "More info on the kingdom that ill add later...."
5425 if a$="L" then gosub 199:return
5426 goto 5410

5430 REM climbing the rock pile from area 5310
5432 a=int(rnd(1)*100)+1+dex1:if a>40 then print:print "You are dextrous enough to climb the pile, you have successfully reached the top without incident.":goto 5438
5434 a=int(rnd(1)*20)+1:print:print "About ";a;" feet up you slip on a loose rock and fall, taking ";a;" damage!":hp=hp-a:if hp<=0 then 3500
5436 print "You now have ";hp;"/";thp;" hit points.  You pick yourself up and make it to the top."
5438 print:print "You look around but don't see much.  The trees are too high.  'O well, better climb back down', you think to yourself."
5440 print:print "Do you wish to climb back [D]own now, or wait to [S]ee if anything else happens?";:input a$:gosub 1000:if a$="D" then print:print "You climb back down.  You are now at the base of the pile of rocks again.":goto 5314
5442 if a$="S" then print:print "Nothing else happens.":goto 5440
5443 if a$="SRCH" or a$="SCH" or a$="srch" or a$="sch" or a$="SEARCH" then 5446
5445 goto 5440
5446 if stash1=1 then 5440
5448 print:print "But then you notice one of the rocks is loose.  You pull it away and find a cloth sack.  Inside is a stash of Gold!":stash1=1
5449 a=int(rnd(1)*100)+clvl+50:print:print "You count it out to be ";a;" Gold and add it to your own!  Gold = ";g;".":print:print "You have a feeling there is nothing else to do now.":goto 5440


5500 REM LEVEL ADDITIONS
5502 if clvl=3 then gosub 198:print "NOTICE:  Now that you are level 3 the monsters may start attacking in groups!  BEWARE!!":gosub 198:gosub 198
5504 if clvl>10 then gosub 198:print "NOTICE:  You can now guage the health of creatures level ";clvl-10;" or lower!":gosub 198:gosub 198
5505 if clvl=15 then gosub 198:print "NOTICE:  You have gained an Additional Attack!":catt=catt+1:gosub 198: gosub 198
5506 IF clvl=12 THEN GOSUB 198:Print "NOTICE:  You can learn Specialist Skills Level One now."
5508 IF clvl=24 THEN GOSUB 198:Print "NOTICE:  You can learn Specialist Skills Level Two now."
5509 IF clvl=48 THEN GOSUB 198:Print "NOTICE:  You can learn Specialist Skills Level Three now."
5510 IF clvl=96 THEN GOSUB 198:Print "NOTICE:  You can learn Specialist Skills Level Four now."
5512 if clvl=30 then gosub 198:print "NOTICE:  You have gained an Additional Attack!":catt=catt+1:gosub 198: gosub 198
5599 return
5600 rem STAT ADDITIONS
5602 if str>=18 and stra1=0 then gosub 198: print "NOTICE:  You have gained (1) to your Damage bonus.":cdamb=cdamb+1:stra1=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5603 if str>=32 and stra2=0 then gosub 198: print "NOTICE:  You have gained (2) to your Damage bonus.":cdamb=cdamb+2:stra2=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5604 if str>=50 and stra3=0 then gosub 198: print "NOTICE:  You have gained (3) to your Damage bonus.":cdamb=cdamb+3:stra3=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5605 if str>=88 and stra4=0 then gosub 198: print "NOTICE:  You have gained (4) to your Damage bonus.":cdamb=cdamb+4:stra4=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5606 if str>=115 and stra5=0 then gosub 198: print "NOTICE:  You have gained (5) to your Damage bonus.":cdamb=cdamb+5:stra5=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5608 if str>=148 and stra6=0 then gosub 198: print "NOTICE:  You have gained (10) to your Damage bonus.":cdamb=cdamb+10:stra6=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5609 if str>=190 and stra7=0 then gosub 198: print "NOTICE:  You have gained (15) to your Damage bonus.":cdamb=cdamb+15:stra7=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5610 if str>=250 and stra8=0 then gosub 198: print "NOTICE:  You have gained (20) to your Damage bonus.":cdamb=cdamb+20:stra8=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5611 if str>=320 and stra9=0 then gosub 198: print "NOTICE:  You have gained (50) to your Damage bonus.":cdamb=cdamb+50:stra9=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5612 if str>=500 and stra10=0 then gosub 198: print "NOTICE:  You have gained (100) to your Damage bonus.":cdamb=cdamb+100:stra10=1:print "Total Damage Bonus is now ";cdamb;".":gosub 198:gosub 198
5613 if str>=15 and stra11=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra11=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5614 if str>=30 and stra12=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra12=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5615 if str>=45 and stra13=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra13=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5616 if str>=60 and stra14=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra14=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5618 if str>=75 and stra15=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra15=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5619 if str>=90 and stra16=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra16=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5620 if str>=110 and stra17=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra17=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5622 if str>=150 and stra18=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra18=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5623 if str>=200 and stra19=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra19=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5624 if str>=250 and stra20=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra20=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5626 if str>=300 and stra21=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra21=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5627 if str>=350 and stra22=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra22=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5628 if str>=400 and stra23=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra23=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5629 if str>=450 and stra24=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra24=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5630 if str>=500 and stra25=0 then gosub 198: print "NOTICE:  You have gained (1) to your To Hit bonus.":cthb=cthb+1:stra25=1:print "Total To Hit Bonus is now ";cthb;".":gosub 198:gosub 198
5631 if con>=15 and cona1=0 then gosub 198: print "NOTICE:  You have gained (4) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+4:cona1=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5632 if con>=30 and cona2=0 then gosub 198: print "NOTICE:  You have gained (6) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+6:cona2=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5633 if con>=45 and cona3=0 then gosub 198: print "NOTICE:  You have gained (8) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+8:cona3=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5634 if con>=70 and cona4=0 then gosub 198: print "NOTICE:  You have gained (10) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+10:cona4=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5635 if con>=100 and cona5=0 then gosub 198: print "NOTICE:  You have gained (15) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+15:cona5=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5636 if con>=125 and cona6=0 then gosub 198: print "NOTICE:  You have gained (20) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+20:cona6=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5637 if con>=170 and cona7=0 then gosub 198: print "NOTICE:  You have gained (25) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+25:cona7=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5638 if con>=220 and cona8=0 then gosub 198: print "NOTICE:  You have gained (27) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+27:cona8=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5639 if con>=250 and cona9=0 then gosub 198: print "NOTICE:  You have gained (30) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+30:cona9=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5642 if con>=290 and cona10=0 then gosub 198: print "NOTICE:  You have gained (33) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+33:cona10=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5644 if con>=320 and cona11=0 then gosub 198: print "NOTICE:  You have gained (36) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+36:cona11=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5646 if con>=370 and cona12=0 then gosub 198: print "NOTICE:  You have gained (40) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+40:cona12=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5648 if con>=420 and cona13=0 then gosub 198: print "NOTICE:  You have gained (45) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+45:cona13=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5650 if con>=475 and cona14=0 then gosub 198: print "NOTICE:  You have gained (50) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+50:cona14=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5651 if con>=500 and cona15=0 then gosub 198: print "NOTICE:  You have gained (75) to your Hit Point Bonus.  You will now gain more HPs when you level.":con2=con2+75:cona15=1:print "Total Constitution HP Bonus is now ";con2;".":gosub 198:gosub 198
5652 if iq>=15 and iqa1=0 then gosub 198: print "NOTICE:  You have gained (2) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+2:iqa1=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5653 if iq>=35 and iqa2=0 then gosub 198: print "NOTICE:  You have gained (4) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+4:iqa2=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5654 if iq>=65 and iqa3=0 then gosub 198: print "NOTICE:  You have gained (8) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+8:iqa3=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5655 if iq>=120 and iqa4=0 then gosub 198: print "NOTICE:  You have gained (10) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+10:iqa4=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5656 if iq>=160 and iqa5=0 then gosub 198: print "NOTICE:  You have gained (12) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+12:iqa5=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5657 if iq>=200 and iqa6=0 then gosub 198: print "NOTICE:  You have gained (14) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+14:iqa6=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5658 if iq>=245 and iqa7=0 then gosub 198: print "NOTICE:  You have gained (16) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+16:iqa7=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5659 if iq>=285 and iqa8=0 then gosub 198: print "NOTICE:  You have gained (19) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+19:iqa8=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5660 if iq>=310 and iqa9=0 then gosub 198: print "NOTICE:  You have gained (23) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+23:iqa9=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5662 if iq>=350 and iqa10=0 then gosub 198: print "NOTICE:  You have gained (28) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+28:iqa10=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5664 if iq>=390 and iqa11=0 then gosub 198: print "NOTICE:  You have gained (35) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+35:iqa11=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5666 if iq>=430 and iqa12=0 then gosub 198: print "NOTICE:  You have gained (40) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+40:iqa12=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5668 if iq>=490 and iqa13=0 then gosub 198: print "NOTICE:  You have gained (45) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+45:iqa13=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5670 if iq>=550 and iqa14=0 then gosub 198: print "NOTICE:  You have gained (50) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+50:iqa14=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5671 if iq>=600 and iqa15=0 then gosub 198: print "NOTICE:  You have gained (55) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+55:iqa15=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5672 if iq>=650 and iqa16=0 then gosub 198: print "NOTICE:  You have gained (60) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+60:iqa16=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5673 if iq>=700 and iqa17=0 then gosub 198: print "NOTICE:  You have gained (65) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+65:iqa17=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198
5674 if iq>=750 and iqa18=0 then gosub 198: print "NOTICE:  You have gained (70) to your Magic Point Bonus.  You will now gain more MPs when you level.":iq2=iq2+70:iqa18=1:print "Total Intelligence MP Bonus is now ";iq2;".":gosub 198:gosub 198

5699 RetuRN




10000 REM RANDOM STUFF CITIES
10001 if city=0 or clvl<3 then return
10002 a=int(rnd(1)*100)+1:if a<10 then 10005
10004 return
10005 a=int(rnd(1)*4)+1:if a=1 then 10035
10006 if a=2 then 10260
10008 if a=3 then 10280
10010 if a=4 then 10300
10011 if a=5 then  return
10012 if a=6 then  return
10013 if a=7 then  return
10015 if a=8 then  return
10017 if a=9 then  return
10030 print:print "Somebody has dropped a few gold pieces on the ground.  You look around,":print "but nobody else has seen them, so you quickly pick them up and throw them in your sack.":g=g+int(rnd(1)*5)+1
10032 print "You now have ";g;" Gold!":return
10034 REM NPC SHITTTTTTTTTTTTTTTTTTTTTTTTT
10035 a=int(rnd(1)*2)+1:if a=1 then a$="woman":goto 10040
10037 a$="man"
10040 GOSUB 10180:a=int(rnd(1)*5)+1:if a=1 then b$="Human":goto 10045
10041 if a=2 then b$="Gwarve":goto 10045
10042 if a=3 then b$="Forest Elf":goto 10045
10043 if a=4 then b$="Ograna":goto 10045
10044 b$="Mind Flayer"
10045 print:print "There is a ";a$;" standing here.  They are of ";b$;" dissent."
10047 mhp=int(rnd(1)*thp)+1+(int(rnd(1)*thp)+1):if mhp<thp/2 then mhp=int(thp/2)
10050 if mhp=int(thp/2) then print "They look very very weak.":goto 10065
10052 if mhp>int(thp/2) and mhp<=thp then print "They look a bit weak.":goto 10065
10054 if mhp>thp and mhp<=thp+200 then print "They look like a formiable opponent.":goto 10065
10056 if mhp>thp+200 and mhp<=thp+500 then print "They look a bit strong.":goto 10065
10058 if mhp>thp+500 and mhp<=thp+1000 then print "They look very strong.":goto 10065
10060 if mhp>thp+1000 and mhp<=thp+2000 then print "They look Extremely powerful.":goto 10065
10062 if mhp>thp+2000 and mhp<=thp+3000 then print "They look like they could rip you to shreds just by thinking about it....":goto 10065
10064 print "You must have stumbled upon some sort of God walking upon the earth, you really dont want to fight this person...."
10065 mn$="NPC":print:print "What do you want to do? [T]alk to the person, [A]ttack the person, or [L]eave them be";:input a$:gosub 1000
10067 if a$="T" then 10077
10069 if a$="A" then 10175
10070 if a$="L" then print "They look around for a few moments then head for the city gates.....":return
10072 goto 10065
10075 Rem NPC Responses
10077 a=int(rnd(1)*15)+1:if a=1 then print:print "You wander up to them and before you can speak they say, 'Leave Me Be, Filthy ";rc$;".'":goto 10092
10078 if a=2 then print:print "You wander up to them and before you can speak they say, '";nm$;", my name is ";npc1$;"";npc2$;"";npc3$;", and I've been searching for you!":print "You have no right trying to win the King's Bounty, it's Mine and you shall Die Now!'":print:print "And with that, they Attack You!":goto 10175
10079 if a=3 then print:print "You wander up to them and before you can speak they say, '";nm$;", my name is ";npc1$;"";npc2$;"";npc3$;", and I've been searching for a":print "worthy opponent!  Prepare to Fight to the Death!'":print:print "And with that, they Attack You!":goto 10175
10080 if a=4 then print:print "You wander up to them and before you can speak they say, '";nm$;", my name is ";npc1$;"";npc2$;"";npc3$;", and I've been searching for a":print "worthy opponent!  Fancy a Duel?'":goto 10100
10081 if a=5 then print:print "You wander up to them and before you can speak they say, '";nm$;", my name is ";npc1$;"";npc2$;"";npc3$;", and I've heard of your travels, taking on the":print "King's quest and all.  I would like to give you a gift for such a heroic deed!'":goto 10110
10082 if a=6 then print:print "You wander up to them and before you can speak they say, '";nm$;", my name is ";npc1$;"";npc2$;"";npc3$;", and I've heard of your travels.":print "I have a very powerful item for sale, would you like to buy it?'":goto 10130
10083 if a>6 and a<=12 then print:print "You wander up to them and they say, 'Dear ";nm$;", my name is ";npc1$;"";npc2$;"";npc3$;", and I've heard of your travels.":print "I am a very powerful merchant from the North, would you like to check out my wares?":goto 10170
10084 if a=13 then print:print "They turn and see you walking up and Vanish in a ball of flames and lightning!":print "'WTF', you think to yourself....":return
10086 if a=14 then print:print "They turn to see you walking up and cast a spell of Flight and fly away.":print "'WTF', you think to yourself....":return
10088 if a=15 then print:print "They turn to see you walking up and begin to run as fast as they can away from you!":print "Unfortunately they are extremely fast and get away....":print "'WTF', you think to yourself....":return
10090 REM NPC after Talking once
10092 print:print "What would you like to do now?  [A]ttack them, or [L]eave them be";:input a$:gosub 1000
10094 if a$="A" then 10175
10096 if a$="L" then print "They look around for a few moments then head for the city gates.....":return
10098 goto 10092
10100 REM NPC Duel?
10102 print:print "Would you like to fight them (Y/N)?";:input a$:gosub 1000
10104 if a$="Y" then print:print "You agree to a duel.  After a few minutes of warming up, the battle begins.....":goto 10175
10106 if a$="N" then print:print "'Ahahaha', they say.  'I knew the King's 'Savior' was nothing more than a wimpy little girl....'":goto 10092
10108 goto 10102
10109 REM NPC give ITEM
10110 a=int(rnd(1)*100)+1:if a<=95 then gosub 1430:goto 10125
10118 if a>95 and a<=98 then gosub 1520:goto 10125
10120 if a>98 then gosub 1400
10125 print:print "They give you an ";it$;".  You add it to your pack and thank them.":print "'May this aid you on this, your greatest adventure!'":goto 10092
10130 REM NPC powerful item for sale
10132 gosub 1400:print:print "They pull the Item from their pack.  It is a powerful ";it$;"."
10134 a=int(rnd(1)*10)+1:a=a*100000:print:print "'For a mere ";a;" Gold, this wondrous item can be yours!'"
10136 print:print "(Current Gold= ";g;")  Would you like to buy the item for ";a;" Gold (Y/N)";:input a$:gosub 1000
10138 if a$="Y" then 10144
10140 if a$="N" then print:print "You tell them you arent interested and they put it back in thier backpack and leave.....":gosub 10150:return
10142 goto 10136
10144 if g<a then print "'Ah, well it seems you dont have enough.... Maybe next time...', and with a smile they leave.":gosub 10150:return
10145 g=g-a:print "You buy the ";it$;" and add it to your pack.  Gold = ";g:goto 10092
10149 REM ITEM REMOVER IF DIDNT BUY
10150 if it$="Extra Life" then it39=it39-1:return
10151 if it$="+1 IQ Drink" then it40=it40-1:return
10152 if it$="+1 DEX Drink"  then it41=it41-1:return
10153 if it$="+1 CON Drink"  then it42=it42-1:return
10154 if it$="+1 STR Drink" then it43=it43-1:return
10155 if it$="Full Life/Mana Potion" then it56=it56-1:return
10156 if it$="+20 Health Drink" then it45=it45-1:return
10157 if it$="+30 Health Drink"   then it46=it46-1:return
10158 if it$="+40 Health Drink"  then it47=it47-1:return
10159 if it$="+50 Health Drink"  then it48=it48-1:return
10160 if it$="+10 Mana Drink" then it49=it49+1:return
10161 if it$="+20 Mana Drink"  then it50=it50-1:return
10162 if it$="+30 Mana Drink"  then  it51=it51-1:return
10163 if it$="+40 Mana Drink"  then  it52=it52-1:return
10164 if it$="+50 Mana Drink"  then it53=it53-1:return
10165 if it$="Full Health Potion"  then it54=it54-1:return
10166 if it$="Full Mana Potion"  then  it55=it55-1:return
10167 if it$="+10 Health Drink" then it44=it44-1: :return
10168 return
10170 REM NPC Merchant
10172 merch=1:gosub 1580: gosub 12000:goto 10092

10175 REM NPC Attack
10176 mmax=cmax:mmin=cmin:mxp=(int(rnd(1)*mhp/2))+5:mg=mhp:mn=1:ml=int(mhp/10):mhp1=mhp:npc=1:gosub 3735:if ruxn=1 then ruxn=0:print:print npc1$;"";npc2$;"";npc3$;" laughs a hearty laugh at your retreat, then after a few minutes walks away....":return
10178 print:print "You leave the body of the fallen warrior and continue about your business...":npc=0:npckk=npckk+1:return
10180 REM NPC Name Generator
10182 a=int(rnd(1)*26)+1:if a=1 then npc1$="Ala":goto 10210
10183 if a=2 then npc1$="Bara":goto 10210
10184 if a=3 then npc1$="Colo":goto 10210
10185 if a=4 then npc1$="Deka":goto 10210
10186 if a=5 then npc1$="Ela":goto 10210
10187 if a=6 then npc1$="Fera":goto 10210
10188 if a=7 then npc1$="Ghana":goto 10210
10189 if a=8 then npc1$="Huto":goto 10210
10190 if a=9 then npc1$="Ino":goto 10210
10191 if a=10 then npc1$="Jyro":goto 10210
10192 if a=11 then npc1$="Klina":goto 10210
10193 if a=12 then npc1$="Lono":goto 10210
10194 if a=13 then npc1$="Metra":goto 10210
10195 if a=14 then npc1$="Neto":goto 10210
10196 if a=15 then npc1$="Outo":goto 10210
10197 if a=16 then npc1$="Peco":goto 10210
10198 if a=17 then npc1$="Qwerto":goto 10210
10199 if a=18 then npc1$="Runjo":goto 10210
10200 if a=19 then npc1$="Sito":goto 10210
10201 if a=20 then npc1$="Tyro":goto 10210
10202 if a=21 then npc1$="Ula":goto 10210
10203 if a=22 then npc1$="Vebo":goto 10210
10204 if a=23 then npc1$="Watro":goto 10210
10205 if a=24 then npc1$="Xervo":goto 10210
10206 if a=25 then npc1$="Yingo":goto 10210
10207 npc1$="Zekka"
10210 a=int(rnd(1)*20)+1:if a=1 then npc2$="dentreles":goto 10230
10211 if a=2 then npc2$="hantrala":goto 10230
10212 if a=3 then npc2$="jincala":goto 10230
10213 if a=4 then npc2$="kuato":goto 10230
10214 if a=5 then npc2$="pletora":goto 10230
10215 if a=6 then npc2$="quandroja":goto 10230
10216 if a=7 then npc2$="gregonna":goto 10230
10217 if a=8 then npc2$="yotolonon":goto 10230
10218 if a=9 then npc2$="wytronagus":goto 10230
10219 if a=10 then npc2$="braccanalan":goto 10230
10220 if a=11 then npc2$="fredoraxin":goto 10230
10221 if a=12 then npc2$="cutiniron":goto 10230
10222 if a=13 then npc2$="seddorax":goto 10230
10223 if a=14 then npc2$="vonorax":goto 10230
10224 if a=15 then npc2$="xertana":goto 10230
10225 if a=16 then npc2$="zyronic":goto 10230
10226 if a=17 then npc2$="yergasta":goto 10230
10227 if a=18 then npc2$="jixxona":goto 10230
10228 if a=19 then npc2$="predacca":goto 10230
10229 npc2$="monantius"
10230 npc3$="":a=int(rnd(1)*4)+1:if a<4 then return
10232 a=int(rnd(1)*20)+1:if a=1 then npc3$=" of the Wandering Plains":return
10233 if a=2 then npc3$=" of the High Mountains":return
10234 if a=3 then npc3$=" of the Bladed Grass":return
10235 if a=4 then npc3$=" of the Lush Meadow":return
10236 if a=5 then npc3$=" of the Dense Forest":return
10237 if a=6 then npc3$=" of the Lillys":return
10238 if a=7 then npc3$=" of the Deep Seas":return
10239 if a=8 then npc3$=" of the Hidden Valley":return
10240 if a=9 then npc3$=" of the Giant Gorge":return
10241 if a=10 then npc3$=" of the Lonely Arctic":return
10242 if a=11 then npc3$=" of the Jonquilles":return
10243 if a=12 then npc3$=" of the Vast Wastelands":return
10244 if a=13 then npc3$=" of the Snowpeak Mountains":return
10245 if a=14 then npc3$=" of the Great Seas":return
10246 if a=15 then npc3$=" of the Dark Marshes":return
10247 if a=16 then npc3$=" of the Black Swamps":return
10248 if a=17 then npc3$=" of the Foul Plains":return
10249 if a=18 then npc3$=" of the Hollowroots":return
10250 if a=19 then npc3$=" of the Lillocs":return
10251 npc3$=" of the Dark Roses":return
10260 REM THIEVES!
10261 a=int(rnd(1)*10)+1:if a=10 then 10274
10262 aa=int(rnd(1)*50)+1-clvl:a=int(rnd(1)*100)+1+aa:if a>iq1 then print "You feel lighter.  When you check your packs you realize some of your treasure missing!":print "DAMNED THIEVES!":goto 10272
10264 print:print "You feel something funny and look down and see a small thieve with his hand in your pocket.":print "You grab his wrist and stop him from escaping!"
10266 print:print "Do you want to [K]ill the thieve or [L]et him go.";:input a$:gosub 1000
10268 if a$="K" then mn$="Common Thieve":mhp=(int(rnd(1)*90)+10):mmax=int(rnd(1)*cmax)+1:mmin=int(rnd(1)*cmin)+1:mxp=int(rnd(1)*mhp)+5:mg=int(rnd(1)*mhp)+10:mn=1:ml=int(mhp/10):mhp1=mhp:gosub 3735:return
10269 if a$="L" then print:print "You let the little man leave with a stern scolding instead.  He 'promises' never to do it again.":return
10270 goto 10266
10272 a=int(rnd(1)*clvl)+1:g=g-a:print:print "You realize they got you for ";a;" Gold pieces.... Your current gold is now ";g;"....":return
10274 print:print "As you come around an alleyway, you are ambushed by a group of thieves!!":print "'You die now, and give us pretty things.....AHAHAHAHA', says the leader.":mn$="Common Thieve":mn=int(rnd(1)*7)+3:mhp=(int(rnd(1)*50)+1):mmax=int(rnd(1)*cmax/2)+1:mmin=int(rnd(1)*cmin/2)+1:mxp=int(rnd(1)*100)+1:mg=int(rnd(1)*mhp)+10:ml=int(mhp/10):mhp1=mhp:mn3=mn:mn1=mn:mn4=1:gosub 3735:return
10280 print:print "A beggar asks you for money."
10282 print:print "Do you [G]ive him money, [T]ell him to screw off, or [A]ttack him";:input a$:gosub 1000
10284 if a$="G" then 10292
10286 if a$="T" then print "You let loose with a resounding, 'Screw Off.' and leave....":return
10288 if a$="A" then mn$="Beggar":mhp=int(rnd(1)*15)+1:mmax=int(rnd(1)*5)+1:mmin=int(rnd(1)*2)+1:mxp=1:mg=int(rnd(1)*5)+1:mn=1:ml=int(mhp/10):mhp1=mhp:gosub 3735:return
10290 goto 10282
10292 print:print "How much do you give him (1-";g;", 0 to exit)";:input a:if a=0 then a$="T": goto 10286
10294 if a>g then print "You dont have that much money!":goto 10292
10296 g=g-a:print:print "You give him ";a;" Gold.":if a>100 then print:print "The beggar shits his pants he's so happy!  He gives you a long, deep, toothless kiss and runs off.":PRINT "Gold = ";g:return
10298 print:print "The beggar thanks you kindly and scampers off.":PRINT "Gold = ";g:return
10300 gosub 3650:RETURN
10325 REM BEGGING
10326 print "You begin to beg for money from passersby..."
10328 a=int(rnd(1)*20)+1:if a<15 then gosub 10370:goto 10342
10330 if a=15 then print "A few well wishers toss you some gold coins....":g=g+int(rnd(1)*5)+2:print "Gold = ";g;".":goto 10345
10332 if a=16 then print  "A pompous man with 3 lady friends holds out a handful of coins and then throws them up in the air.  They all start laughing":print "as the coins fall to the ground....":goto 10400
10334 if a=17 then print  "A fellow adventurer sees your plight and tosses you a few to get back on your feet.":g=g+int(rnd(1)*10)+2:print "Gold = ";g;".":goto 10345
10336 if a=18 then print  "A young maiden takes a fancy to you and tosses you a couple coins she has saved up...":g=g+int(rnd(1)*6)+2:print "Gold = ";g;".":goto 10345
10337 if a=19 then print  "A young man unsure of his sexuality comments on your hot abs and hands over a couple of sweaty coins....":g=g+int(rnd(1)*7)+2:print "Gold = ";g;".":goto 10345
10338 if a=20 then print  "An old lady takes pity on you and gives you a grip of coins":g=g+int(rnd(1)*14)+2:print "Gold = ";g;".":goto 10345
10342 a=int(rnd(1)*3)+1:if a=1 then print:print "Nobody seems interested in giving you money around here....":goto 10345
10343 if a=2 then print:print "There are not many people around here, and none of them seem interested.....":goto 10345
10344 print:print "Everyone avoids you here, nobody seems interested in giving you even a look...."
10345 print:print "Do you want to [Q]uit begging, or [M]ove to a different area?";:input a$:gosub 1000
10346 if a$="Q" and area=9 then print:print "You reenter the City....":return
10347 if a$="Q" then return
10348 if a$="M" then 10350
10349 goto 10345
10350 a=int(rnd(1)*10)+1:if a=1 and areat<>1 then areat=1:print:print "You move over by the Inn and start begging...":Goto 10328
10352 if a=2 and areat<>2 then areat=2:print:print "You move over by the Trader's Emporium and start begging...":goto 10328
10354 if a=3 and areat<>3 then areat=3: print:print "You move over by the Weapons and Armor Shop and start begging...":goto 10328
10355 if a=4 and areat<>4 then areat=4: print:print "You move over by the World O' Magic and start begging...":goto 10328
10356 if a=5 and areat<>5 then areat=5:print:print "You move over by the Jewler's and start begging...":goto 10328
10357 if a=6 and areat<>6 then areat=6:print:print "You move over by the Krynn Bank and start begging...":goto 10328
10358 if a=7 and areat<>7 then areat=7:print:print "You move over by the Tavern and start begging...":goto 10328
10360 if a=8 and areat<>8 then areat=8:print:print "You move over by the Castle and start begging...":goto 10328
10362 if a=9 and areat<>9 then areat=9:print:print "You move to just outside the Main Gates and start begging...":goto 10328
10363 if a=10 and areat<>10 then areat=10:print:print "You move over by the Main Gates of the City and start begging...":goto 10328
10365 goto 10350
10370 REM AREA THINGS THAT HAPPEN WHILE BEGGING
10372 if a<5 and areat=4 then print:print "A Lightning Bolt strikes out at you from the World O' Magic sign and a":print "loud booming voice burns in your mind, 'BEGONE VILE BEGGER SCUM.....'":goto 10380
10374 if a<8 and areat=8 then print:print "A group of Guards grab you and toss you around a bit, then tell you to leave....":goto 10385
10376 if a<3 and areat=7 then print:print "A group of drunk assholes try to pick a fight with you....":goto 10390
10378 if a<5 and areat=6 then print:print "A group of Guards grab you and toss you around a bit, then tell you to leave....":goto 10385
10379 return
10380 if hp=1 then print:print "Luckily the lightning bolt missed you....":return
10382 a=int(rnd(1)*100)+1:if a>hp then a=hp-1:print:print "The Lightning Bolt has hit you for ";a;" damage.  HP=";hp;".":return
10385 print:print "Do you want to [A]ttack the Guards or [L]et it rest....";:input a$:gosub 1000
10386 if a$="A" then mn$="Krynn Elite":mhp=400:mmax=250:mmin=100:mxp=60:mg=2000:mn=10:ml=100:gosub 3735:return
10387 if a$="L" then return
10388 goto 10385
10390 print:print "Do you want to [K]ill the dumb bastards, or [L]et it rest....";:input a$:gosub 1000
10392 if a$="K" then mn$="Drunk Asshole":mhp=(int(rnd(1)*10)*int(rnd(1)*20)):mmax=int(rnd(1)*cmax)+1:mmin=int(rnd(1)*cmin)+1:mxp=15:mg=20:mn=6:ml=1:gosub 3735:return
10394 if a$="L" then return
10395 goto 10390
10400  print:print "Do you want to [K]ill the jerk, or [L]et it rest....";:input a$:gosub 1000
10402 if a$="K" then mn$="Pompous Jerk":mhp=(int(rnd(1)*10)*int(rnd(1)*20)):mmax=int(rnd(1)*cmax)+1:mmin=int(rnd(1)*cmin)+1:mxp=5:mg=20:mn=1:ml=1:gosub 3735:goto 10345
10404 if a$="L" then print:print "You pick the coins up off the ground.":g=g+int(rnd(1)*10)+2:print "Gold = ";g;".":goto 10345
10405 goto 10400
10420 REM LOCATION FINDER
10422 if areat=1 then loc$="At the Inn.":return
10423 if areat=2 then loc$="At the Trader's Emporium.":return
10424 if areat=3 then loc$="At the Weapons and Armor Shop.":return
10425 if areat=4 then loc$="At the World O' Magic.":return
10426 if areat=5 then loc$="At the Jeweler's.":return
10427 if areat=6 then loc$="At the Krynn Bank.":return
10428 if areat=7 then loc$="At the Tavern.":return
10429 if areat=8 then loc$="Outside the Castle.":return
10430 if areat=9 then loc$="Just outside the Main Gates.":return
10432 if areat=10 then loc$="Just inside the Main Gates.":return
10434 if areat=11 then loc$="Inside the Castle of Krynn.":return
10436 if areax=1 then loc$="Outside the Caves of Despair.":return
10438 if areax=2 then loc$="Training Grounds.":return
10440 if areax=3 then loc$="At Farring.":return
10442 if areax=4 then loc$="In the Dryth Forest.":return
10444 if areax=5 then loc$="The Black Origin.":return
10446 if areax=6 then loc$="The Fire Mountains.":return
10448 if areax=7 then loc$="The White Plains.":return
10450 if areax=8 then loc$="The Hidden Mountain Road.":return
10452 if areax=9 then loc$="The Gwarven City.":return
10453 if areax=10 then loc$="The Forest Elf City.":return
10454 if areax=11 then loc$="The Pass of Lohandi.":return
10455 if areax=12 then loc$="The Myre Area.":return
10456 if insdd=1 then loc$="Caves of Despair.":return
10458 if areat=15 then loc$="At Maraline.":return
10460 if areat=16 then loc$="At the Rougue's Gallery.":return
10462 if areat=17 then loc$="At the Courtyard of Varsailles.":return
10464 if areat=18 then loc$="At Varsailles.":return
10466 if areat=19 then loc$="At Aztar's Relics.":return
10468 if areat=20 then loc$="At Summoner's.":return


10700 REM HEARING SCREAMS AFTER LVL 8 @ LOCATIONS IN TRAINING GROUNDS
10702 if clvl>7 and area1=0 then print:print "You hear screams to the South followed by monsters laughing....":return
10703 return
10705 if clvl>7 and area1=0 then print:print "You hear screams to the West followed by monsters laughing....":return
10706 return
10707 if clvl>7 and area1=0 then print:print "You hear screams to the East followed by monsters laughing....":return
10708 return

3650 REM TRAVELLING TRADER NPCS
3652 print "A Travelling Trader beckons you over to take a look at his fine wares.  Would you care to take a peek (Y/N)";:input a$:gosub 1000
3654 if a$="Y" then merch=1:gosub 1580:GOTO 12000
3656 if a$="N" then return
3658 goto 3652
3661 GOSUB 198: print "1.    Cloth                               ";t1;"                               ";it9
3662 print "2.    Velvet                              ";t2;"                              ";it10
3663 print "3.    Silk                                 ";t3;"                               ";it11
3664 print "4.    Leather                            ";t4;"                               ";it12
3665 print "5.    Dreamweave                    ";t5;"                               ";it13
3666 print "6.    Cord                                ";t6;"                               ";it14
3667 print "7.    Steel                               ";t7;"                               ";it15
3668 print "8.    Lead                               ";t8 ;"                                ";it16
3669 print "9.    Iron                                 ";t9  ;"                               ";it17
3670 print "10.  Admantium                      ";t10;"                               ";it18
3672 print "11.  Spikes                            ";t11;"                                ";it19
3674 print "12.  Talons                            ";t12;"                                ";it20
3676 print "13.  Teeth                              ";t13;"                               ";it21
3678 print "14.  Ears                               ";t14;"                                ";it22
3680 print "15.  Scales                            ";t15;"                               ";it23
3682 print "16.  Bladders                         ";t16;"                               ";it24
3684 print "17.  Eyes                              ";t17;"                               ";it25:GOSUB 198:print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}":return

11999 rem I FUCKED UP ON TRADE ITEMS, STORY OF MY LIFE....
12000 print "Would you like to [B]uy or [S]ell or [J]unkyard or [L]eave";:input a$:gosub 1000
12002 if a$="B" then x=1:goto 12012
12004 if a$="L" then merch=0:return
12006 if a$="S" then x=2:goto 12012
12008 if a$="J" then 12093
12010 goto 12000
12012 gosub 3661
12034 if x=1 then print:print "Which would you like to buy (1-17, 0 to exit)";:input a:goto 12062
12035 print:print "Which would you like to sell (1-17, 0 to exit)";:input a:if a=1 and it9>0 then vxv=t1: n=it9:gosub 12059:it9=it9-v:goto 12035
12036 if a=2 and it10>0 then vxv=t2:n=it10:gosub 12059:it10=it10-v:gosub 199:cls:goto 12012
12037 if a=3 and it11>0 then  vxv=t3:n=it11:gosub 12059:it11=it11-v:gosub 199:cls:goto 12012
12038 if a=4 and it12>0 then  vxv=t4:n=it12:gosub 12059:it12=it12-v:gosub 199:cls:goto 12012
12040 if a=5 and it13>0 then  vxv=t5:n=it13:gosub 12059:it13=it13-v:gosub 199:cls:goto 12012
12042 if a=6 and it14>0 then  vxv=t6:n=it14:gosub 12059:it14=it14-v:gosub 199:cls:goto 12012
12044 if a=7 and it15>0 then  vxv=t7:n=it15:gosub 12059:it15=it15-v:gosub 199:cls:goto 12012
12045 if a=8 and it16>0 then  vxv=t8:n=it16:gosub 12059:it16=it16-v:gosub 199:cls:goto 12012
12047 if a=9 and it17>0 then  vxv=t9:n=it17:gosub 12059:it17=it17-v:gosub 199:cls:goto 12012
12048 if a=10 and it18>0 then  vxv=t10:n=it18:gosub 12059:it18=it18-v:gosub 199:cls:goto 12012
12049 if a=11 and it19>0 then  vxv=t11:n=it19:gosub 12059:it19=it19-v:gosub 199:cls:goto 12012
12050 if a=12 and it20>0 then  vxv=t12:n=it20:gosub 12059:it20=it20-v:gosub 199:cls:goto 12012
12051 if a=13 and it21>0 then vxv=t13: n=it21:gosub 12059:it21=it21-v:gosub 199:cls:goto 12012
12052 if a=14 and it22>0 then  vxv=t14:n=it22:gosub 12059:it22=it22-v:gosub 199:cls:goto 12012
12054 if a=15 and it23>0 then  vxv=t15:n=it23:gosub 12059:it23=it23-v:gosub 199:cls:goto 12012
12055 if a=16 and it24>0 then  vxv=t16:n=it24:gosub 12059:it24=it24-v:gosub 199:cls:goto 12012
12056 if a=17 and it25>0 then  vxv=t17:n=it25:gosub 12059:it25=it25-v:gosub 199:cls:goto 12012
12057 if a=0 then 12000
12058 goto 12035
12059 print "How much will you sell (1-";n;", 0 to exit)";:input a:if a>n or a< 0 then print:print "Please try again.":Goto 12059
12060 if a=0 then 12000
12061 v=a:n=0:g=g+(vxv*a):print "That gives you ";(vxv*a);" gold.  Gold = ";g:return
12062 if a=1 then vxv=t1:gosub 12086:it9=it9+v:g=g-n:goto 12012
12064 if a=2 then vxv=t2:gosub 12086:it10=it10+v:g=g-n:goto 12012
12066 if a=3 then vxv=t3: gosub 12086:it11=it11+v:g=g-n:goto 12012
12067 if a=4 then vxv=t4: gosub 12086 :it12=it12+v:g=g-n:goto 12012
12068 if a=5 then vxv=t5: gosub 12086 :it13=it13+v:g=g-n:goto 12012
12069 if a=6 then vxv=t6: gosub 12086:it14=it14+v:g=g-n:goto 12012
12070 if a=7 then vxv=t7: gosub 12086:it15=it15+v:g=g-n:goto 12012
12073 if a=8 then vxv=t8: gosub 12086:it16=it16+v:g=g-n:goto 12012
12074 if a=9 then vxv=t9: gosub 12086:it17=it17+v:g=g-n:goto 12012
12075 if a=10 then vxv=t10: gosub 12086:it18=it18+v:g=g-n:goto 12012
12076 if a=11 then vxv=t11: gosub 12086:it19=it19+v:g=g-n:goto 12012
12078 if a=12 then vxv=t12: gosub 12086:it20=it20+v:g=g-n:goto 12012
12079 if a=13 then vxv=t13: gosub 12086:it21=it21+v:g=g-n:goto 12012
12080 if a=14 then vxv=t14: gosub 12086:it22=it22+v:g=g-n:goto 12012
12081 if a=15 then vxv=t15: gosub 12086:it23=it23+v:g=g-n:goto 12012
12082 if a=16 then vxv=t16: gosub 12086:it24=it24+v:g=g-n:goto 12012
12083 if a=17 then vxv=t17: gosub 12086:it25=it25+v:g=g-n:goto 12012
12084 if a=0 then 12000
12085 goto 12034
12086 print "How much will you buy (0 to exit)";:input a
12087 if a=0 then print:print "You buy none of this trade item.":v=0:n=0:return
12088 v=a:n=a*vxv:if n>g then print:print "That will cost ";n;" gold.  You have ";g;" gold.":goto 12086
12089 print:print "That will cost ";n;" gold.  You have ";g;" gold."
12090 print "Do you want to make this purchase?";:input a$:if a$="Y" then return
12091 if a$="N" then 12086
12092 goto 12090
12093 if junk=0 then print:gosub 198:print "You have no junk items.":goto 12000
12094 g=g+junk:print:gosub 198:print "I will buy all your junk for ";junk;" gold.  You now have ";g;" gold.":junk=0:jun=0
12095 it32=0:it33=0:it34=0:it35=0:it36=0:it37=0:it38=0:it39=0:goto 12000


18000 REM SPELLS
18002 REM HEALS CAST
18004 a=(int(rnd(1)*sh)+sl):return
18006 hp=hp+a:if hp>thp then hp=thp
18008 print a;" Hit Points Healed.":print "HP = ";hp;"/";thp:return
18010 sh=65:sl=20:gosub 18004:a=a+smod1:gosub 18006:spxp1=spxp1+1:gosub 18020:return
18011 sh=50:sl=75:gosub 18004:a=a+smod2:gosub 18006:spxp2=spxp2+1:gosub 18020:return
18012 sh=90:sl=90:gosub 18004:a=a+smod3:gosub 18006:spxp3=spxp3+1:gosub 18020:return
18013 sh=120:sl=100:gosub 18004:a=a+smod4:gosub 18006:spxp4=spxp4+1:gosub 18020:return
18014 sh=230:sl=120:gosub 18004:a=a+smod5:gosub 18006:spxp5=spxp5+1:gosub 18020:return
18015 sh=400:sl=200:gosub 18004:a=a+smod6:gosub 18006:spxp6=spxp6+1:gosub 18020:return
18016 sh=460:sl=240:gosub 18004:a=a+smod7:gosub 18006:spxp7=spxp7+1:gosub 18020:return
18017 sh=550:sl=350:gosub 18004:a=a+smod8:gosub 18006:spxp8=spxp8+1:gosub 18020:return
18018 sh=500:sl=500:gosub 18004:a=a+smod9:gosub 18006:spxp9=spxp9+1:gosub 18020:return
18019 a=thp-hp:gosub 18006:spxp=spxp10+1
18020 if spxp1=10 then print:gosub 198:print "Your Heal spell now has more power!":smod1=smod1+1:spman1=spman1+1:spxp1=0:gosub 199:return
18022 if spxp2=10 then print:gosub 198:print "Your Heal spell now has more power!":smod2=smod2+1:spman2=spman2+1:spxp2=0:gosub 199:return
18024 if spxp3=10 then print:gosub 198:print "Your Heal spell now has more power!":smod3=smod3+1:spman3=spman3+1:spxp3=0:gosub 199:return
18026 if spxp4=10 then print:gosub 198:print "Your Heal spell now has more power!":smod4=smod4+1:spman4=spman4+1:spxp4=0:gosub 199:return
18027 if spxp5=10 then print:gosub 198:print "Your Heal spell now has more power!":smod5=smod5+1:spman5=spman5+1:spxp5=0:gosub 199:return
18028 if spxp6=10 then print:gosub 198:print "Your Heal spell now has more power!":smod6=smod6+1:spman6=spman6+1:spxp6=0:gosub 199:return
18029 if spxp7=10 then print:gosub 198:print "Your Heal spell now has more power!":smod7=smod7+1:spman7=spman7+1:spxp7=0:gosub 199:return
18030 if spxp8=10 then print:gosub 198:print "Your Heal spell now has more power!":smod8=smod8+1:spman8=spman8+1:spxp8=0:gosub 199:return
18032 if spxp9=10 then print:gosub 198:print "Your Heal spell now has more power!":smod9=smod9+1:spman9=spman9+1:spxp9=0:gosub 199:return
18033 if spxp10=10 then print:gosub 198:print "Your Heal spell now has more power!":spman10=spman10-1:if spman10<1 then spman10=1
18034 if spxp10=10 then spxp10=0:gosub 199:return
18035 return
18049 REM ENCHANTMENTS CAST
18050 survival=1:survival1=sprm11:spxp11=spxp11+1:goto 18070
18052 survival=2:survival1=sprm12:spxp12=spxp12+1:goto 18072
18054 survival=3:survival1=sprm13:spxp13=spxp13+1:goto 18074
18056 survival=4:survival1=sprm14:spxp14=spxp14+1:goto 18076
18058 survival=5:survival1=sprm15:spxp15=spxp15+1:goto 18077
18060 sparmor=1:sparmor1=sprm16:spxp16=spxp16+1:goto 18078
18061 spweapon=1:spweapon1=sprm17:spxp17=spxp17+1:goto 18079
18070 if spxp11=10 then print:gosub 198:print "Your Survival spell now has more power!":smod11=smod11+1:spman11=spman11+1:sprm11=sprm11+1:spxp11=0:return
18072 if spxp12=10 then print:gosub 198:print "Your Survival spell now has more power!":smod12=smod12+1:spman12=spman12+1:sprm12=sprm12+1:spxp12=0:return
18074 if spxp13=10 then print:gosub 198:print "Your Survival spell now has more power!":smod13=smod13+1:spman13=spman13+1:sprm13=sprm13+1:spxp13=0:return
18076 if spxp14=10 then print:gosub 198:print "Your Survival spell now has more power!":smod14=smod14+1:spman14=spman14+1:sprm14=sprm14+1:spxp14=0:return
18077 if spxp15=10 then print:gosub 198:print "Your Survival spell now has more power!":smod15=smod15+1:spman15=spman15+1:sprm15=sprm15+1:spxp15=0:return
18078 if spxp16=10 then print:gosub 198:print "Your Dark Spirit Armor spell now has more power!":smod16=smod16+1:spman16=spman16+1:sprm16=sprm16+1:spxp16=0:return
18079 if spxp17=10 then print:gosub 198:print "Your Dark Spirit Mastery spell now has more power!":smod17=smod17+1:spman17=spman17+1:sprm17=sprm17+1:spxp17=0:return
18080 if spxp18=10 then print:gosub 198:print "Your Heal spell now has more power!":smod18=smod18+1:spman18=spman18+1:spxp18=0:return
18082 if spxp19=10 then print:gosub 198:print "Your Heal spell now has more power!":smod19=smod19+1:spman19=spman19+1:spxp19=0:return
18083 if spxp20=10 then print:gosub 198:print "Your Heal spell now has more power!":spman20=spman20-1:if spman10<1 then spman10=1
18084 if spxp10=10 then spxp10=0:return
18085 return
18090 if survival>0 then 18094
18091 if sparmor>0 then 18106
18092 goto 18130
18094 if survival=1 then a=int(rnd(1)*90)+10+(smod11*2):hp=hp+a:if hp>thp then hp=thp
18096 if survival=2 then a=int(rnd(1)*100)+25+(smod12*2):hp=hp+a:if hp>thp then hp=thp
18097 if survival=3 then a=int(rnd(1)*150)+50+(smod13*2):hp=hp+a:if hp>thp then hp=thp
18098 if survival=4 then a=int(rnd(1)*200)+100+(smod14*2):hp=hp+a:if hp>thp then hp=thp
18099 if survival=5 then a=int(rnd(1)*350)+300+(smod15*2):hp=hp+a:if hp>thp then hp=thp
18100 print:print "Survival has healed you ";a;" HPs.  HP = ";hp;"/";thp;"."
18102 survival1=survival1-1:if survival1<=0 then print:print "Your spell Survival has Dissapated!":survival=0
18104 goto 18091
18106 sparmor1=sparmor1-1:if sparmor1<=0 then print:print "Your spell Dark Spirit Armor has Dissapated!":sparmor=0
18108 goto 18130
18109 REM THIS GOES ON FIRST PAGE OF STATUS
18110 if survival1>0 or sparmor1>0 then PRINT:gosub 198:print "Current Enchantments:"
18111 if survival1>0 then print "::Surivival will last for ";survival1;" more a/re."
18112 if sparmor1>0 then print "::Dark Spirit Armor (-";smod16;" dmg) will last for ";sparmor1;" more a/re."
18113 if spweapon1>0 then print "::Dark Spirit Mastery (+";smod17;" to damage) will last for ";spweapon1;" more a/re."
18119 return
18120 aaaa=int(rnd(1)*4)+1: if aaaa=1 then print mn$;" hit but did No Damage to you!":return
18121 if aaaa=2 then print mn$;"'s attack glanced awkardly off you and did No Damage!":return
18122 if aaaa=3 then print mn$;" has barely hit you and does only 1 Damage!":d=1:gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
18123 if aaaa=4 then print mn$;" has barely grazed you and does only 2 Damage!":d=2:gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
18125 return
18130 REM forgot to leave space from 18090
18132 if spweapon>0 then 18200
18199 return
18200 spweapon1=spweapon1-1:if spweapon1<=0 then print:print "Your Dark Spirit Mastery has Dissapated!":spweapon=0
18202 return
18220 if spweapon=1 then d=d+smod17
18222 return



20100 REM DRYTH FOREST
20101 REM ROOM1
20105 areat=0:areax=4:mh=16:mlw=14:gosub 3700:gosub 2700
20107 gosub 198:print "The Dryth Forest stretches out before you.  It is extremely dangerous in this area so be careful!"
20109 print "You see lots of trees and a sign saying 'South to Krynn', and beyond that many pathways."
20110 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
20112 if a$="S" then 400
20114 if a$="N" then 20175
20116 if a$="E" then 20125
20118 if a$="W" then 20140
20120 if a$="NW" then 20155
20122 if a$="NE" then 20205
20124 goto 20110
20125 REM ROOM2
20126 areat=0:areax=4:mh=16:mlw=14:gosub 3700:gosub 2700
20128 gosub 198:print "The Dryth Forest stretches out before you."
20130 print "There are many pathways."
20132 print:print "You may go [W]est, [N]orth, [NW]orthWest.";:input a$:gosub 1000
20134 if a$="N" then 20205
20136 if a$="W" then 20105
20138 if a$="NW" then 20175
20139 goto 20132
20140 REM ROOM3
20141 areat=0:areax=4:mh=16:mlw=14:gosub 3700:gosub 2700
20142 if mmaxloc=1 then gosub  22000
29143 gosub 198:print "The Dryth Forest stretches out before you."
20144 print "There are many pathways."
20146 print:print "You may go [E]ast, [N]orth, [NE]orthEast.";:input a$:gosub 1000
20148 if a$="N" then 20155
20150 if a$="E" then 20105
20152 if a$="NE" then 20175
20154 goto 20146
20155 REM ROOM4
20156 areat=0:areax=4:mh=22:mlw=14:gosub 3700:gosub 2700
20158 gosub 198:print "The Dryth Forest stretches out before you."
20160 print "There are many pathways."
20162 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
20164 if a$="S" then 20140
20166 if a$="N" then 20225
20168 if a$="E" then 20175
20170 if a$="NE" then 20245
20172 if a$="SE" then 20105
20174 goto 20162
20175 REM ROOM5
20178 areat=0:areax=4:mh=22:mlw=14:gosub 3700:gosub 2700
20180 if mmaxloc=2 then gosub 22000
20181 gosub 198:print "The Dryth Forest stretches out before you."
20182 print "There are many pathways."
20184 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20186 if a$="S" then 20105
20188 if a$="N" then 20245
20190 if a$="E" then 20205
20192 if a$="W" then 20155
20194 if a$="NW" then 20225
20196 if a$="NE" then 20270
20198 if a$="SW" then 20140
20200 if a$="SE" then 20125
20202 goto 20184
20205 REM ROOM6
20207 areat=0:areax=4:mh=22:mlw=14:gosub 3700:gosub 2700
20209 gosub 198:print "The Dryth Forest stretches out before you."
20210 print "There are many pathways."
20212 print:print "You may go [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
20214 if a$="S" then 20125
20216 if a$="N" then 20270
20218 if a$="W" then 20175
20220 if a$="NW" then 20245
20222 if a$="SW" then 20105
20224 goto 20212
20225 REM ROOM7
20227 areat=0:areax=4:mh=22:mlw=17:gosub 3700:gosub 2700
20229 gosub 198:print "The Dryth Forest stretches out before you."
20230 print "There are many pathways."
20232 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
20234 if a$="S" then 20155
20236 if a$="N" then 20295
20238 if a$="E" then 20245
20240 if a$="NE" then 20310
20242 if a$="SE" then 20175
20244 goto 20232
20245 REM ROOM8
20247 areat=0:areax=4:mh=22:mlw=17:gosub 3700:gosub 2700
20248 if mmaxloc=3 then gosub 22000
20249 gosub 198:print "The Dryth Forest stretches out before you."
20250 print "There are many pathways."
20252 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20254 if a$="S" then 20175
20256 if a$="N" then 20310
20258 if a$="E" then 20270
20260 if a$="W" then 20225
20262 if a$="NW" then 20295
20264 if a$="NE" then 20330
20266 if a$="SW" then 20155
20268 if a$="SE" then 20205
20269 goto 20252
20270 REM ROOM9
20272 areat=0:areax=4:mh=26:mlw=17:gosub 3700:gosub 2700
20274 gosub 198:print "The Dryth Forest stretches out before you."
20276 print "A sign says:  East to the Fire Mountains and the White Plains.  Also, there are many pathways."
20278 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
20280 if a$="S" then 20205
20282 if a$="N" then 20330
20284 if a$="E" then 20350
20286 if a$="W" then 20245
20288 if a$="NW" then 20310
20290 if a$="SW" then 20175
20292 goto 20278
20295 REM ROOM10
20297 areat=0:areax=4:mh=22:mlw=17:gosub 3700:gosub 2700
20298 if mmaxloc=4 then gosub 22000
20299 gosub 198:print "The Dryth Forest stretches out before you."
20300 print "There are many pathways."
20302 print:print "You may go [E]ast, [S]outh, [SE]outhEast.";:input a$:gosub 1000
20304 if a$="S" then 20225
20306 if a$="E" then 20310
20308 if a$="SE" then 20245
20309 goto 20302
20310 REM ROOM11
20312 areat=0:areax=4:mh=22:mlw=17:gosub 3700:gosub 2700
20314 gosub 198:print "The Dryth Forest stretches out before you."
20316 print "There are many pathways."
20318 print:print "You may go [E]ast, [W]est, [S]outh, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20320 if a$="S" then 20245
20322 if a$="E" then 20330
20324 if a$="W" then 20295
20326 if a$="SW" then 20225
20328 if a$="SE" then 20270
20329 goto 20318
20330 REM ROOM12
20332 areat=0:areax=4:mh=26:mlw=17:gosub 3700:gosub 2700
20334 if mmaxloc=5 then gosub 22000
20335 gosub 198:print "The Dryth Forest stretches out before you."
20336 print "There are many pathways."
20338 print:print "You may go [W]est, [S]outh, [SW]outhWest.";:input a$:gosub 1000
20340 if a$="S" then 20270
20342 if a$="W" then 20310
20344 if a$="SW" then 20245
20346 goto 20338


20349 REM BlackORIGIN
20350 areat=0:areax=5:mh=26:mlw=17:gosub 3700:gosub 2700
20352 gosub 198:print "This place is called Black Origin because it is at the start of 4 dangerous areas.  To the West is the Dryth Forest, to the North is the Fire Mountains, to"
20354 print "the Southeast are the White Plains, and to the East is the start of the Pass of Lohandi.":print:PRINT "You see an old man sitting here.  He looks at you and smiles.  Its kind of creepy...."
20356 print:print "You may go [W]est, [SE]outhEast, [E]ast, [N]orth or [T]alk to the old man.";:input a$:gosub 1000
20358 if a$="N" then 20480
20360 if a$="E" then 21015
20362 if a$="W" then 20270
20364 if a$="SE" then 20630
20366 if a$="T" then 20370
20367 goto 20356
20369 REM OLD MAN
20370 print:print "'Ahoy, old man!', you yell, trying to sound a little like a pirate but not too much for no other reason than to amuse yourself.": print "The old man's smile widens as words escape his lips in a whispy high tone, 'Greetings, lad!  How are you?'"
20372 print "'Not too bad.', you say, 'I have recently taken the quest from the king, and am looking for riches untold!  Do you know of any place":print "where i can find such treasure?'  'Well, I havent adventured in ages, so I know not of such places.  But"
20374 print "I can tell you of this place and the places beyond if you would like?'"
29375 print:print "'I would love for you too tell me of such things!'/'I would rather drink red hot liquid metal....'(Y/N)";:input a$:gosub 1000
20376 if a$="Y" then 20380
20378 if a$="N" then print:print "'I would rather drink red hot liquid metal....', you say, thinking *ZING* I totally got him.":print "'Well fine, Screw You then.', says the little old man, who stops smiling and goes back to his resting.":goto 20352
20379 goto 29375
20380 PRINT:print "'I would love for you too tell me of such things!'  'Well fine then.', he says smiling away.  'This place, as":print "you may know, is called Black Origin, and for good reason.  It is the apex of 4 very dangerous places.  To the West is the Dryth"
20382 print "Forest, named so for the demon spawn that live there.  1000s of years ago they came to the forest and":print "took it as their home, killing all that dare enter.  To the North is the Fire Mountains.  This harsh volcanic area is host to some of"
20384 print "the most evil monsters to walk the land.  To the Southeast there lies the White Plains, where 500,000 battles":print "have taken place, and the spirits of the warriors who fell still roam.  And finally, to the East is the Pass of Lohandi, leading"
20386 print "to the Town of Myre, the Forest Elf City that has been around since the dawn of time.  Some of the hardest":print "monsters found in this region guard the road, though, so make sure you are prepared to make the long, hard journey to Myre.'"
20388 gosub 198:print:print "'Would you like to know more?'"
20390 print "[1]  'Well yes, I would like to know more about hearing me SNAPPING YOUR NECK' (Attack the old man)"
20392 print "[2]  'The Forest, please tell me about the Forest of Dryth'"
20394 print "[3]  'The Fire Mountains please....'"
20396 print "[4]  'The White Plains, please tell me more about that place.'"
20398 print "[5]  'What about the Pass of Lohandi?'"
20400 print "[6]  'Who are you and what are you doing here?'"
20402 print "[7]  'Hey, how you know so much?'"
20404 print "[8]  'No, I've had quite enough, thanks....'"
20406 print:print "What do you say? (1-8)";:input a:if a=8 then 20352
20407 if a=1 then 20420
20408 if a=2 then 20430
20409 if a=3 then 20440
20410 if a=4 then 20445
20411 if a=5 then 20455
20412 if a=6 then 20465
20413 if a=7 then 20475
20415 goto 20388
20420 if oldman1=1 then print:print "You start to charge the old man, but then remember what it felt like last time and cease.":goto 20388
20421 print:print "You pull out your ";w$;" and charge the old man.  When you are about 3 feet from him, something... happens...":print "The air crackles with electricity and the wind seems to change directions.  Suddenly you feel like you were punch in the"
20422 print "face with brass knuckles, and the next thing you realize you are flying backwards and you land on your back.  You begin":print "to phase in and out of conciousness for a bit, but snap out of it quickly to the harsh laughter of the old man.  You"
20424 print "wipe blood from your lip and shout, 'WTF!?'  The old man continues laughing hysterically and you start thinking about":print "attacking him again, but are unsure of the magical forces around him.  So you wait it out.  Finally, he finishes laughing"
20426 print "at you and wipes a tear from his eye (cause he was laughing so hard at you...)  'Fool of fools, I am surrounded by a":print "Miasma Shield, nothing can penetrate it.  How else do you think and old man like me can survive out here in the wild. Har Har....'"
20428 print:print "You are getting really pissed off, but finally you apologize and ask if he can still help you.  'Hey I would of probably":print "done the same thing when I was your age.  No hard feelings.  Now I told you where the paths lead..'":oldman1=1:gosub 199:goto 20388
20430 print:print "'The Dryth Forest, actually.  Well, eons ago there were 4 demon princes who liked to take the form of a human":print "and walk the earth, causing problems and mischief.  They were extremely young at the time and were experimenting with"
20432 print "demonic powers still.  They sometimes raped and pillaged towns they came across, and the Dryth are the hellspawn":print "of the demon's seed.  They have unnaturally long life and prefer the dark.  After they had fully devoloped they were"
20434 print "called upon by their demon fathers to fight in the Archangel wars of long ago.  Once the battle was faught to a bloody":print "standstill and a truce was called, their fathers discarded them like you would an old weapon, and they were"
20436 print "heartbroken, and took solice in the calm of the woods, where they could be without war.  Unfortunately all they knew":print "was fighting, and madness twisted their minds.  So they now attack all that enter the forest.  Few have"
20438 print "passed through those woods and lived.....'":gosub 199:goto 20388
20440 print:print "'The Fire Mountains are actually a passage into the Hells.  Luckily the gate has been sealed for untold ages.":print "Sealing this gate has made the demons very angry though, and volcanos have sprung up where there had once been"
20442 print "just mountains, and lava flows everywhere, and the earth quakes with their rage.  It is a very chaotic place, magics":print "crackle through the sky like lightning, giving life to some of the most horrid of fire creatures, who guard the demon's"
20444 print "gate, waiting patiently until a way though the seal has been found.  It was sealed by a Forest Elf wizard, I believe.":print "He hasnt been seen in ages, he went into the Caves of Despair and never came out.  Most likely dead, for all I know....'":gosub 199:goto 20388
20445 print:print "The White Plains have been host to some of the most horrific battles known to mankind, for long ago gold and ":print "precious stones were found in the mountains to the west of the plains.  Many rulers tried to lay claim to the"
20447 print "mountain range, gathering up armies to fight over the mountain.  After the supplies of gold and gemstones had run":print "out, the wizards took up home and held a festival up there.  They forged many magical items and again more battles"
20449 print "were waged in the White Plains over control of those items.  Now the undead soldiers roam the area, looking for a":print "way to the next life, and killing all that get in their way...  Actually they just kill everyone they come across."
20450 print  "Doesn't hurt to be thorough, I guess.  They are called the White Plains, but so much blood has been spilled upon":print "their soils that the ground itself has taken on a dark red tint to it, as if it swallowed all the blood up"
20452 print "and has taken it on as its own.  It's a vile, wretched, cursed place.  I would stay far away from it, if I were you...'":gosub 199:goto 20388
20455 print:print "'The Pass of Lohandi was named after a beautiful Forest Elven princess, one of the most beautiful creatures":print "to ever walk the earth.  All men who saw here could not take their eyes off her, they became mesmerized"
20457 print "by her beauty and would do anything for her.  They would fight amonst each other for her hand in marriage, and":print "many elvish overlords went to battle after small feuds escalated over her.  In the end, hehe, they all figured"
20459 print "she was too beautiful, for any man to see, for the mere sight of her would cause riots, bring down governments,":print "you know.  Just too amazing of a creature.  So they sealed her up in a cave with all her belongings and servants"
20460 print "she had.  For years they cried over her lost visage, she affected them that deeply.  They erected a statue in front":print "the tomb, a giant statue of a black widow to warn all to stay away.  No one has ever been able to get into"
20462 print "the tomb, and the world has known no equal to her radiance since her entombment, thank the stars....'":gosub 199:goto 20388
20465 print:print "'Well, hehe, it's kind of a long story.  In the end, I sort of... irritated... some of the wrong people to irritate.":print "I was entrapped in a Miasma Shield, and granted everlasting life, so whereas I can live forever, I cannot go anywhere."
20467 print "Its a rather cruel fate.  It can become quite boring at times, hehe.  Its always fun to see monsters wander up":print "and get cracked in the face by the shield.  They get really mad and come at me again and again, each time getting"
20468 print "knocked back to the ground.  Some loose conciousness, some finally give up.  Some have died trying to kill":print "me.  Am I worth such effort?, I wonder sometimes.  I cant look that appetizing, look at me, I'm pale, skinny, old meat!"
20470 print "Its really interesting that there are creatures that will stop at nothing to try and kill you, even if it means taking":print "their own life.  How can one be so evil?   Anyways, you may call me old man.  I forgot my real name ages ago.'":gosub 199:goto 20388
20475 print:print "'Hehehe, I have been trapped here for hundreds of years.  People pass by here all the time, and tell me news":print "of things that are going on.  I have culled much information from adventurers like yourself.  Some I see again,"
20477 print "some never.  Eaten up by creatures at Lohandi Pass, no doubt, or made undead at the White Plains.  Hehe, the":print "world is a cruel place.....'":gosub 199:goto 20388
20480 REM FIRE MOUNTAINS
20481 REM ROOM1
20482 areat=0:areax=6:mh=26:mlw=17:gosub 3700:gosub 2700
20484 gosub 198:print "You are at the Fire Mountains."
20486 print "There are many pathways."
20488 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast.";:input a$:gosub 1000
20490 if a$="S" then 20350
20492 if a$="N" then 20520
20494 if a$="E" then 20500
20496 if a$="NE" then 20545
20498 goto 20488
20500 REM ROOM2
20502 areat=0:areax=6:mh=26:mlw=17:gosub 3700:gosub 2700
20504 gosub 198:print "You are at the Fire Mountains."
20506 print "There are many pathways."
20508 print:print "You may go [W]est, [N]orth, [NW]orthWest.";:input a$:gosub 1000
20510 if a$="N" then 20545
20512 if a$="NW" then 20520
20514 if a$="W" then 20480
20516 goto 20508
20520 REM ROOM3
20522 areat=0:areax=6:mh=30:mlw=17:gosub 3700:gosub 2700
20524 if mmaxloc=6 then gosub 22000
20525 gosub 198:print "You are at the Fire Mountains."
20526 print "There are many pathways."
20528 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
20530 if a$="S" then 20480
20532 if a$="N" then 20570
20534 if a$="E" then 20545
20536 if a$="NE" then 20590
20538 if a$="SE" then 20500
20540 goto 20528
20545 REM ROOM4
20547 areat=0:areax=6:mh=30:mlw=17:gosub 3700:gosub 2700
20548 if mmaxloc=7 then gosub 22000
20549 gosub 198:print "You are at the Fire Mountains."
20550 print "There are many pathways."
20552 print:print "You may go [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
20554 if a$="S" then 20500
20556 if a$="N" then 20590
20562 if a$="NW" then 20570
20560 if a$="W" then 20520
20566 if a$="SW" then 20480
20569 goto 20552
20570 REM ROOM5
20572 areat=0:areax=6:mh=30:mlw=27:gosub 3700:gosub 2700
20574 if mmaxloc=9 then gosub 22000
20575 gosub 198:print "You are at the Fire Mountains."
20576 print "There are many pathways."
20578 print:print "You may go [E]ast, [S]outh, [SE]outhEast.";:input a$:gosub 1000
20580 if a$="S" then 20520
20582 if a$="E" then 20590
20584 if a$="SE" then 20545
20586 goto 20578
20590 REM ROOM6
20592 if mmaxloc=8 then gosub 22000
20593 areat=0:areax=6:mh=30:mlw=27:gosub 3700:gosub 2700
20594 gosub 198:print "You are at the Fire Mountains."
20596 print "There are many pathways."
20598 print:print "You may go [W]est, [S]outh, [SW]outhWest.";:input a$:gosub 1000
20600 if a$="S" then 20545
20602 if a$="W" then 20570
20604 if a$="SW" then 20520
20605 goto 20598


20609 REM WHITE PLAINS
20610 REM ROOM1
20612 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20614 gosub 198:print "The rolling White Plains stretch out before you."
20616 print "There are many pathways."
20618 print:print "You may go [E]ast, [S]outh, [SE]outhEast.";:input a$:gosub 1000
20620 if a$="S" then 20700
20622 if a$="E" then 20630
20624 if a$="SE" then 20720
20626 goto 20618
20630 REM ROOM2
20632 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20634 if mmaxloc=10 then gosub 22000
20635 gosub 198:print "The rolling White Plains stretch out before you."
20636 print "There are many pathways."
20638 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20640 if a$="S" then 20720
20642 if a$="N" then 21015
20644 if a$="E" then 20655
20646 if a$="W" then 20610
20648 if a$="NW" then 20350
20650 if a$="SW" then 20700
20652 if a$="SE" then 20745
20654 goto 20638
20655 REM ROOM3
20657 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20659 gosub 198:print "The rolling White Plains stretch out before you."
20660 print "There are many pathways."
20662 print:print "You may go [E]ast, [W]est, [S]outh, [NW]orthWest, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20664 if a$="S" then 20745
20666 if a$="E" then 20680
20668 if a$="W" then 20630
20670 if a$="NW" then 21015
20672 if a$="SW" then 20720
20674 if a$="SE" then 20775
20675 goto 20662
20680 REM ROOM4
20682 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20684 if mmaxloc=11 then gosub 22000
20685 gosub 198:print "The rolling White Plains stretch out before you."
20686 print "There are many pathways."
20688 print:print "You may go [W]est, [S]outh, [SW]outhWest.";:input a$:gosub 1000
20690 if a$="S" then 20775
20692 if a$="W" then 20655
20694 if a$="SW" then 20745
20696 goto 20688
20700 REM ROOM5
20702 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20704 if mmaxloc=14 then gosub 22000
20705 gosub 198:print "The rolling White Plains stretch out before you."
20706 print "There are many pathways."
20708 print:print "You may go [E]ast, [N]orth, [NE]orthEast.";:input a$:gosub 1000
20710 if a$="N" then 20610
20712 if a$="E" then 20720
20714 if a$="NE" then 20630
20715 goto 20708
20720 REM ROOM6
20722 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20725 gosub 198:print "The rolling White Plains stretch out before you."
20726 print "There are many pathways."
20728 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
20730 if a$="S" then 20800
20732 if a$="N" then 20630
20734 if a$="E" then 20745
20736 if a$="W" then 20700
20738 if a$="NW" then 20610
20740 if a$="NE" then 20655
20742 if a$="SE" then 20825
20744 goto 20728
20745 REM ROOM7
20747 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20749 gosub 198:print "The rolling White Plains stretch out before you."
20750 print "There are many pathways."
20752 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20754 if a$="S" then 20825
20756 if a$="N" then 20655
20758 if a$="E" then 20775
20760 if a$="W" then 20720
20762 if a$="NW" then 20630
20764 if a$="NE" then 20680
20768 if a$="SW" then 20800
20770 if a$="SE" then 20855
20772 goto 20752
20775 REM ROOM8
20778 areat=0:areax=7:mh=38:mlw=31:gosub 3700:gosub 2700
20780 if mmaxloc=12 then gosub 22000
20781 gosub 198:print "The rolling White Plains stretch out before you."
20782 print "There are many pathways."
20784 print:print "You may go [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
20786 if a$="S" then 20855
20788 if a$="N" then 20680
20792 if a$="W" then 20745
20794 if a$="NW" then 20655
20798 if a$="SW" then 20825
20799 goto 20784
20800 REM ROOM9
20802 areat=0:areax=7:mh=41:mlw=31:gosub 3700:gosub 2700
20804 gosub 198:print "The rolling White Plains stretch out before you."
20806 print "There are many pathways."
20808 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
20810 if a$="S" then 20880
20812 if a$="N" then 20720
20814 if a$="E" then 20825
20816 if a$="NE" then 20745
20818 if a$="SE" then 20900
20820 goto 20808
20825 REM ROOM10
20828 areat=0:areax=7:mh=41:mlw=31:gosub 3700:gosub 2700
20830 if mmaxloc=13 then gosub 22000
20831 gosub 198:print "The rolling White Plains stretch out before you."
20832 print "There are many pathways."
20834 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
20836 if a$="S" then 20900
20838 if a$="N" then 20745
20840 if a$="E" then 20855
20842 if a$="W" then 20800
20844 if a$="NW" then 20720
20846 if a$="NE" then 20775
20848 if a$="SW" then 20880
20850 if a$="SE" then 20925
20852 goto 20834
20855 REM ROOM11
20858 areat=0:areax=7:mh=41:mlw=31:gosub 3700:gosub 2700
20860 gosub 198:print "The rolling White Plains stretch out before you."
20862 print "There are many pathways."
20864 print:print "You may go [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
20866 if a$="S" then 20925
20868 if a$="N" then 20775
20870 if a$="W" then 20825
20872 if a$="NW" then 20745
20874 if a$="SW" then 20900
20875 goto 20864
20880 REM ROOM12
20882 areat=0:areax=7:mh=44:mlw=39:gosub 3700:gosub 2700
20884 if mmaxloc=15 then gosub 22000
20885 gosub 198:print "The rolling White Plains stretch out before you."
20886 print "There are many pathways."
20888 print:print "You may go [E]ast, [W]est, [N]orth, [NE]orthEast.";:input a$:gosub 1000
20890 if a$="N" then 20800
20892 if a$="E" then 20900
20894 if a$="W" then 20950
20896 if a$="NE" then 20825
20898 goto 20888
20900 REM ROOM13
20902 areat=0:areax=7:mh=44:mlw=39:gosub 3700:gosub 2700
20904 if mmaxloc=16 then gosub 22000
20905 gosub 198:print "The rolling White Plains stretch out before you."
20906 print "There are many pathways."
20908 print:print "You may go [E]ast, [W]est, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
20910 if a$="N" then 20825
20912 if a$="E" then 20925
20914 if a$="W" then 20880
20916 if a$="NW" then 20800
20918 if a$="NE" then 20855
20920 goto 20908
20925 REM ROOM14
20927 if mmaxloc=17 then gosub 22000
20928 areat=0:areax=7:mh=44:mlw=39:gosub 3700:gosub 2700
20929 gosub 198:print "The rolling White Plains stretch out before you."
20930 print "There are many pathways."
20932 print:print "You may go [W]est, [N]orth, [NW]orthWest.";:input a$:gosub 1000
20934 if a$="N" then 20855
20936 if a$="W" then 20900
20938 if a$="NW" then 20825
20940 goto 20925


20945 REM Passage to the Gwarve Cave
20950 REM Start of path
20951 if pgcx=1 then 20976
20952 areat=0:areax=7:mh=44:mlw=42:gosub 3700:gosub 2700
20954 gosub 198:print "You have come to a dead end.  Mountains rise up the the North, West and South."
20956 print "It looks like this is the end of the road."
20958 print:print "You may go [E]ast.";:input a$:gosub 1000
20962 if a$="E" then 20880
20964 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then 20968
20966 goto 20958
20968 a=(int(rnd(1)*100)+1)-iq1:if a<1 then 20972
20970 goto 20958
20972 print:print "As you are looking around, you come across a well concealed path that passes through an archway into the mountain itself!":print "It was covered by shrubbery and you couldn't see it before!  Now that you have found it,"
20974 print "you realize you can go Northwest as well.":pgcx=1:goto 20978
20976 gosub 198:print "Mountains raise up to your North, West and South.  There is a well concealed pathway here leading [NW]orthwest":print "and you may also go [E]ast."
20978 print:print "Which way - [NW]orthwest or [E]ast";:input a$:gosub 1000
20980 if a$="NW" then 20988
20982 if a$="E" then 20880
20984 goto 20978
20986 areat=0:areax=8:mh=48:mlw=45:gosub 3700:gosub 2700
20988 gosub 198:print "The path here widens into a open area here.  To the [SE]outheast you see that it cuts through the base of the":print "mountain and out to the White Plains.  The path also continues [NW]orthwest, winding back upon itself"
20990 print "many many times as it delves down into a chasm between mountains.  It is very very dark down there."
20992 print:print "Which way - [NW]orthwest or [SE]outheast";:input a$:gosub 1000
20994 if a$="NW" then 21000
20996 if a$="SE" then 20976
20998 goto 20992
21000 areat=0:areax=8:mh=48:mlw=45:gosub 3700:gosub 2700
21002 gosub 198: print "You are at the bottom of a deep, dark chasm.  To the SE the path doubles back on itself up the face of a":print "mountain.  As you look around, you notice giant stone faces carved into the rock.  They all seem to be of"
21004 print "Gwarvish decent.  Between 2 of the most detailed carvings 2 large iron doors stand, making for a cold welcome.":print "You figure you could push one of them open and see what lays beyond if you really wanted to."
21006 print:print "What would you like to do - [C]limb back up the path to the SE, or [P]ush open one of the doors and enter.";:input a$:gosub 1000
21008 if a$="C" then 20986
21010 if a$="P" then print:print "gwarve city of Kassalia"
21012 goto 21006


21015 REM PASS OF LOHANDI
21016 REM ROOM1
21017 areat=0:areax=11:mh=41:mlw=31:gosub 3700:gosub 2700
21018 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North, and to the West is the Black Origin Area."
21020 print "There are many paths."
21022 print:print "You may go [W]est, [S]outh, [N]orth, [SE]outhEast.";:input a$:gosub 1000
21024 if a$="S" then 20630
21025 if a$="N" then 21030
21026 if a$="W" then 20350
21027 if a$="SE" then 20655
21029 goto 21022
21030 REM ROOM2
21032 areat=0:areax=11:mh=44:mlw=39:gosub 3700:gosub 2700
21034 if mmaxloc=18 then gosub 22000
21035 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21036 print "There are many paths."
21038 print:print "You may go [S]outh, [N]orth.";:input a$:gosub 1000
21040 if a$="S" then 21015
21042 if a$="N" then 21045
21044 goto 21038
21045 REM ROOM3
21047 areat=0:areax=11:mh=48:mlw=42:gosub 3700:gosub 2700
21049 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21050 print "There are many paths."
21052 print:print "You may go [S]outh, [N]orth.";:input a$:gosub 1000
21054 if a$="S" then 21030
21056 if a$="N" then 21060
21057 goto 21052
21060 REM ROOM4
21062 areat=0:areax=11:mh=48:mlw=42:gosub 3700:gosub 2700
21064 if mmaxloc=19 then gosub 22000
21065 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21066 print "There are many paths."
21068 print:print "You may go [S]outh, [N]orth.";:input a$:gosub 1000
21070 if a$="S" then 21045
21072 if a$="N" then 21075
21074 goto 21068
21075 REM ROOM5
21077 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21079 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21080 print "There are many paths."
21082 print:print "You may go [W]est, [S]outh.";:input a$:gosub 1000
21084 if a$="S" then 21060
21086 if a$="W" then 21090
21087 goto 21082
21090 REM ROOM6
21092 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21095 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21096 print "There are many paths."
21098 print:print "You may go [E]ast, [W]est.";:input a$:gosub 1000
21100 if a$="E" then 21075
21102 if a$="W" then 21105
21104 goto 21098
21105 REM ROOM7
21106 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21108 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21110 print "There are many paths."
21112 print:print "You may go [E]ast, [W]est.";:input a$:gosub 1000
21114 if a$="E" then 21090
21116 if a$="W" then 21120
21118 goto 21112
21120 REM ROOM8
21122 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21124 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21126 print "There are many paths."
21128 print:print "You may go [E]ast, [S]outh.";:input a$:gosub 1000
21130 if a$="S" then 21135
21132 if a$="E" then 21105
21134 goto 21128
21135 REM ROOM9
21137 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21139 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21140 print "There are many paths."
21142 print:print "You may go [S]outh, [N]orth.";:input a$:gosub 1000
21144 if a$="S" then 21150
21146 if a$="N" then 21120
21148 goto 21142
21150 REM ROOM10
21152 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21154 if mmaxloc=20 then gosub 22000
21155 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21156 print "There are many paths."
21158 print:print "You may go [S]outh, [N]orth.";:input a$:gosub 1000
21160 if a$="S" then 21165
21162 if a$="N" then 21135
21164 goto 21158
21165 REM ROOM11
21167 areat=0:areax=11:mh=48:mlw=45:gosub 3700:gosub 2700
21169 gosub 198:print:print "You are at the Pass of Lohandi.  To the South lie the White Plains.  Dark buzzards fly around the borders....":print "The path narrows and climbs up into the mountains to the North."
21170 print "There are many paths."
21172 print:print "You may go [W]est, [N]orth.";:input a$:gosub 1000
21174 if a$="N" then 21150
21176 if a$="W" then 21180
21178 goto 21172


21179 REM AREA AROUND MYRE
21180 REM ROOM1
21182 areat=0:areax=12:mh=52:mlw=49:gosub 3700:gosub 2700
21184 gosub 198:print:print "You are at the area around Myre."
21186 print "There are many paths."
21188 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth.";:input a$:gosub 1000
21190 if a$="S" then 21200
21192 if a$="N" then 21260
21194 if a$="E" then 21165
21196 if a$="W" then 900000
21198 goto 21188
21200 REM ROOM2
21202 areat=0:areax=12:mh=52:mlw=49:gosub 3700:gosub 2700
21204 if mmaxloc=21 then gosub 22000
21205 gosub 198:print:print "You are at the area around Myre."
21206 print "There are many paths."
21208 print:print "You may go [W]est, [N]orth.";:input a$:gosub 1000
21210 if a$="N" then 21180
21212 if a$="W" then 21215
21214 goto 21208
21215 REM ROOM3
21217 areat=0:areax=12:mh=52:mlw=49:gosub 3700:gosub 2700
21219 gosub 198:print:print "You are at the area around Myre."
21220 print "There are many paths."
21222 print:print "You may go [E]ast, [N]orth.";:input a$:gosub 1000
21224 if a$="N" then 21230
21226 if a$="E" then 21200
21228 goto 21222
21230 REM ROOM4
21232 areat=0:areax=12:mh=52:mlw=49:gosub 3700:gosub 2700
21234 if mmaxloc=22 then gosub 22000
21235 gosub 198:print:print "You are at the area around Myre."
21236 print "There are many paths."
21238 print:print "You may go [S]outh, [N]orth.";:input a$:gosub 1000
21240 if a$="S" then 21215
21242 if a$="N" then 21245
21244 goto 21238
21245 REM ROOM5
21247 areat=0:areax=12:mh=52:mlw=49:gosub 3700:gosub 2700
21249 gosub 198:print:print "You are at the area around Myre."
21250 print "There are many paths."
21252 print:print "You may go [E]ast, [S]outh.";:input a$:gosub 1000
21254 if a$="S" then 21230
21256 if a$="E" then 21260
21258 goto 21252
21260 REM ROOM6
21262 areat=0:areax=12:mh=52:mlw=49:gosub 3700:gosub 2700
21264 if mmaxloc=23 then gosub 22000
21265 gosub 198:print:print "You are at the area around Myre."
21266 print "There are many paths."
21268 print:print "You may go [W]est, [S]outh.";:input a$:gosub 1000
21270 if a$="S" then 21180
21272 if a$="W" then 21245
21274 goto 21268

22000 REM Monster Mission Start
22002 if mmaxdescr$=" " then gosub 22050
22004 gosub 198:print:print "Your guide stops you and points over to ";mmaxdescr$;".  'This is the place.  Get in there and kill kill kill!!!'"
22006 print:print "Do you wish to destroy the monster lair now (Y/N)";:input a$:gosub 1000
22008 if a$="Y" then 22014
22010 if a$="N" then print:print "The guide says, 'Ok, just remember this spot and come back any time....'":return
22012 goto 22006
22014 lairin=1:lairout=0:ec=0:lairwg=0:gosub 100000:lair=1:mmaxon1=1
22016 if clvl >0 and clvl<=5 then lairmax=4:trms2=5:trms3=8:lairmn=2:GOTO 500016
22018 if clvl >5 and clvl<=15 then lairmax=5:trms2=8:trms3=12:lairmn=2.5:GOTO 500016
22020 if clvl >15 and clvl<=25 then lairmax=6:trms2=9:trms3=14:lairmn=3:GOTO 500016
22022 if clvl >25 and clvl<=35 then lairmax=7:trms2=10:trms3=16:lairmn=3.5:GOTO 500016
22024 if clvl >35 and clvl<=45 then lairmax=8:trms2=12:trms3=18:lairmn=4:GOTO  500016
22026 lairmax=10:trms2=13:trms3=20:lairmn=5:GOTO 500016
22028 mmaxon1=0:mmaxdescr$=" ":mmaxchange=1:mmaxmis=0:mmaxloc=0:mmaxdescr2$=" "
22030 if mmaxwin=2 then print:print "The guide looks very irrate that you left the mission without completing it.  'Well, I guess we'll get somebody else to do it.....'":gosub 199:print "'Well, anyways, you didn't finish the mission, so you don't get paid.  Seeya, loser....', and with that, the guide wanders back to town....":gosub 199:return
22032 if mmaxwin=1 then print:print "'Woot!  You did it!  Congrats!', yells the ecstatic guide when you come out.  You help set the place on fire to destroy what's left of it,":print "and then the guide turns to you and says, 'Thanks very much, you have earned your ";xxpay;" Gold reward!  Come back anytime to get another Monster Mission!'"
22034 g=g+xxpay:gosub 199:print:gosub 198:print "You have completed your Monster Mission.  Reward:  ";xxpay;" Gold.  Gold = ";g;"!!":mmaxdescr$=" ":lairin=0:lairout=1:lair=0:gosub 198:gosub 199:return
22050 a=int(rnd(1)*10)+1:if a=1 then mmaxdescr$="a hidden cave behind some brush":return
22052 if a=2 then mmaxdescr$="a run down castle":return
22054 if a=3 then mmaxdescr$="a broken down keep":return
22056 if a=4 then mmaxdescr$="a hole in the ground":return
22058 if a=5 then mmaxdescr$="a degenerating temple":return
22060 if a=6 then mmaxdescr$="a large cave coming up from the earth":return
22062 if a=7 then mmaxdescr$="a small mining cave":return
22064 if a=8 then mmaxdescr$="a ladder going down into a well":return
22066 if a=9 then mmaxdescr$="a large cave going into a rocky outcrop":return
22068 mmaxdescr$="a small fortress":return






300000  rem CAVES OF DESPAIR GENERATOR +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
300002 REM SIZE of ROOM
300004 if rtype=4 then print:GOSUB 198:print "You are in a dark forest.":GOSUB 198:return
300005 if rtype=2 then print:GOSUB 198:print "You are in a cavernous maze.":GOSUB 198:return
300006 cc=int(rnd(1)*100)+1:if cc<40 or rtype=3 then cc$="a 10 foot ceiling.":cc=10:goto 300018
300008 if cc<60 then cc$="a 15 foot ceiling.":cc=15:goto 300018
300010 if cc<70 then cc$="a 20 foot ceiling.":cc=20:goto 300018
300012 if cc<80 then cc$="a 40 foot ceiling.":cc=40:goto 300018
300013 if cc<85 then cc$="a 50 foot ceiling.":cc=50:goto 300018
300014 if cc<90 then cc$="a 75 foot ceiling.":cc=75:goto 300018
300016 if cc<=100 then cc$="a ceiling so tall it dissapears into the darkness above.":cc=int(rnd(1)+75)+75
300018 print:GOSUB 198:print "You have entered a ";sze$;" room, ";aa;" X ";bb;" foot in dimension, with ";cc$:GOSUB 198:return
300020 REM ROOM SiZE
300022 a=int(rnd(1)*100)+1:if a<50 then sze$="small":aa1=2:bb1=2:dd1=1:goto 300028
300024 if a>=50 and a<90 then sze$="large":aa1=4:bb1=4:dd1=2:goto 300028
300026 sze$="giant":aa1=6:bb1=6:dd1=6
300028 aa=(int(rnd(1)*aa1)+dd1)*10:if aa<10 then aa=10
300030 bb=(int(rnd(1)*bb1)+dd1)*10:if bb<10 then bb=10
300031 goto 300004
300035 REM ROOM TYPE CHANGE?  rtype1=current time count, rtype2=when it changes
300037 if rtype1=rtype2 then rtype1=0:rtype2=int(rnd(1)*20)+10:goto 300040
300039 rtype1=rtype1+1:return
300040 if rtype2=30 then rtype2=rtype2+int(rnd(1)*20)+1
300042 REM RooM TYPE CHANGES
300044 GOSUB 198:a=int(rnd(1)*6)+1:if a=1 and rtype<>1 then print "The rooms in this area are vaulted and have tall pillars with gargoyles at the top of them.":print "Broken stained glass windows line walls and shredded murals hang or lay on the ground.  The floors are tiled and":print "everything is made out colorful marbles and white oak.":rtype=1:GOSUB 198:return
300046 if a=2              and rtype<>2   and dlvl>7  then           print "This area is a cavernous maze.  There are stalagtites lining the ceiling and":print "stalagmites jutting up from the ground around you, like a giant mouth of sharp teeth.  Moss is everywhere, eerily":print "glowing, showing you the way.  Large boulders lie about as well.":rtype=2:GOSUB 198:return
300048 if a=3  and rtype<>3        then            print "This area is a castle-like place.  All the ceilings are very low, and everything":print "is cut from stone.  There is broken furniture everywhere, as if someone long ago had lived here....":rtype=3:GOSUB 198:return
300050 if a=5 and rtype<>5       then            print "There is much vegetation about the rooms in this area.  Vines hang from ceilings and":print "the moss on the floor makes everything slippery.  Large pools of water stand in places, and everywhere there is":print "beetles and bugs of all kinds.  The air is fresh and clear, and you take a deep breath of it.":rtype=5:GOSUB 198:return
300052 if a=4     and rtype<>4 and dlvl>11     then                 print "You have entered an underground forest.  Tall trees of all types grow for as far as the eye":print "can see.  Birds and other wildlife call out across lands.  You may go in all directions while in this area.":rtype=4:GOSUB 198:return
300056 if a=6      and rtype<>6       then               print "You have entered an area that has no apparant attributes about it.  All the walls are stone.":print "All the doors are pine.  The floors are hardwood.  A rather unremarkable area...":rtype=6:GOSUB 198:return
300058 goto 300044
300060 REM UNIQUE FEATURES
300062 a=int(rnd(1)*100)+1:if a<4 and unique=0 then GOSUB 198:GOTO 300250
300063 if rtype=4 then return
300064 IF rtype=2 then return
300065 if a<7 and unique=0 then GOSUB 198:GOTO 300072
300066 return
300070 REM FOR ALL ROOMS
300072 a=int(rnd(1)*40)+1:if a<=6 then 300100
300074 if a>6 AND a<=8 then 300105
300075 if a>8 and a<=10 then 300115
300076 if a>10 AND a<=13 then 300125
300078 if a>13 AND a<=20 then 300140
300080 if a>20 AND a<=27 then 300185
300082 if a>27 AND a<=33 then 300215
300084 if a>33 AND a<=36 then 300220
300086 if a>36 AND a<=38 then 300225
300088 if a=39 then 300230
300090 if a=40 then 300235
300092 a=int(rnd(1)*4)+1:if a=1 then wall$="East":return
300094 if a=2 then wall$="West":return
300096 if a=3 then wall$="South":return
300098 wall$="North":return
300100 gosub 300092:a=int(rnd(1)*2)+1:if a=1 then txxx$="short"
300102 txxx$="long"
300104 print:print "The ";wall$;" wall has crumbled and collapsed.  It looked like it happened a ";txxx$;" time ago.":return
300105 gosub 300092:print:print "The ceiling towards the ";wall$;" of the room has collapsed."
300107 if cc<=15 or rtype=3 then a=int(rnd(1)*20)+1:if a=1 then 300115
300108 if cc<=40 then 300120
300110 print "Unfortunately the ceiling is way too high for you to reach the hole above...."
300111 return
300115 print:print "The ceiling has collapsed in such a way that it acts as sort of a ramp up 1 level.":climpup=1:return
300120 if un1=1 and un2=2 then print:print "It looks like you could use your grappling hook to hook something on the level above and climb up.":climbup=2:return
300122 print "Unfortunately there's no way you could get up to the hole 'cause it's too high.":return
300125 gosub 300092:print:print "The floor towards the ";wall$;" has rotted and collapsed."
300127 a=(int(rnd(1)*12)+1)*10:print "You guage the floor below to be about ";a;" feet down."
300129 if a<=40 and un1=1 then print:print "You realize you could tie your rope to something and climb down if you wanted.":climbd=1:return
300130 if a>40 and un1=1 then print:print "You could tie your rope to something and climb down, but you would have to fall the remaining ";a-40;" feet":print "to reach the floor below you.":axaxxa=a-40:climbd=2:return
300132 if a<=40 then print:print "You figure, if you really wanted to, jump down to the floor below without taking any real damage.":climbd=3:axaxxa=a:return
300134 if a>40 then print:print "You figure that jumping that distance to the floor below would hurt pretty f'ing bad.  But you could":print "still do it if you want.":climbd=3:axaxxa=a:return
300135 return
300140 gosub 300175:a=int(rnd(1)*14)+1:if a=1 then rcxx$="stone head on a pedestal":mh=193:mlw=100:aaa=1:gosub 100000:goto 300170
300142 if a=2 then rcxx$="fountain":junk1=1:goto 300170
300143 if a=3 then rcxx$="bed":junk2=1:goto 300170
300144 if a=4 then rcxx$="cot":junk2=1:goto 300170
300145 if a=5 then rcxx$="weapons rack":goto 300170
300146 if a=6 then rcxx$="drawer":rubble1=1:goto 300170
300147 if a=7 then rcxx$="cabinet":rubble1=1:goto 300170
300148 if a=8 then rcxx$="pillar":goto 300170
300150 if a=9 then rcxx$="stone statue":goto 300170
300152 if a=10 then rcxx$="bronze statue":goto 300170
300154 if a=11 then rcxx$="stack of crates":junk4=1:goto 300170
300156 if a=12 then rcxx$="pile of rags":junk4=1:goto 300170
300158 if a=13 then rcxx$="bunch of barrels":junk4=1:goto 300170
300160 if a=14 then rcxx$="pile of rocks":junk4=1
300170 gosub 300092:print "In the ";wall$;" part of the room, there is a ";sze1$;" ";rcxx$;".":if aaa=1 then aaa=0:print "It is the stone head carving of a horrible ";mn$;".":return
300171 if a=9 then print "It is a statue of a vicious ";mn$;".":return
300172 if a=10 then print "It is a statue of a frightening ";mn$;".":return
300173 return
300175 a=int(rnd(1)*5)+1:if a=1 then sze1$="Very Small":mh=16:mlw=8:gosub 100000:return
300176 if a=2 then sze1$="Small":mh=16:mlw=9:gosub 100000:return
300178 if a=3 then sze1$="Medium-Sized":mh=26:mlw=17:gosub 100000:return
300180 if a=4 then sze1$="Large":mh=44:mlw=27:gosub 100000:return
300182 sze1$="Huge":mh=52:mlw=45:gosub 100000:return
300185 a=int(rnd(1)*4)+1:if a=1 then rcx1$="chairs":goto 300192
300186 if a=2 then rcx1$="stools":goto 300192
300188 if a=3 then rcx1$="shredded pillows":goto 300192
300190 rcx1$="cabinets"
300192 a=int(rnd(1)*4)+1:if a=1 then rcx2$="table":goto 300200
300194 if a=2 then rcx2$="cabinet":goto 300200
300196 if a=3 then rcx2$="dresser":goto 300200
300198 rcx2$="smashed mirror"
300200 a=int(rnd(1)*4)+1:if a=1 then rcx3$="torn up bed":goto 300208
300202 if a=2 then rcx3$="smashed up bath basin":goto 300208
300204 if a=3 then rcx3$="busted up chest":goto 300208
300206 rcx3$="rotted away bookshelve"
300208 a=int(rnd(1)*2)+1:if a=1 then print:print "There is broken furniture everywhere, including a few ";rcx1$;", a large ";rcx2$;", and a ";rcx3$;".":rubble1=1:return
300210 print:print "There is broken furniture everywhere, including a bunch of ";rcx1$;" and a ";rcx2$;".":rubble1=1:return
300215 gosub 300175:gosub 300092:print:print "There is a ";sze1$;" skeleton laying in the ";wall$;" side of the room.  It looks to be an old ";mn$;" skeleton.":rubble2=1:return
300220 a=int(rnd(1)*5)+2:print:print "There is about ";a;" inches of standing water in this room.":water=1:return
300225 print:print "Iracandescent moss is everywhere in this room, pulsing a soft glow to light your way.":return
300230 a=(int(rnd(1)*16)+4)*2:if a>20 and aa+bb<40 then a=10
300232 gosub 300175:print:print "You see ";sze1$;" pillars in this room, about ";a;" of them.":if cc>=90 then print "They raise up into the darkness above and dissapear.":return
300234 print "They look old and the ceiling is sagging down a bit in spots, but other than that they are doing a fine job.":return
300235 a=int(rnd(1)*5)+1:if a=1 then carv$="faces of some monster":goto 300244
300237 if a=2 then carv$="people at a gathering of some sort":goto 300244
300239 if a=3 then carv$="a ritual sacrifice of some sort":goto 300244
300240 if a=4 then carv$="a peaceful village on a hill":goto 300244
300242 carv$="a mountain range with 2 eyes glowing in a cave"
300244 gosub 300092:gosub 300175:print:print "On the wall to your ";wall$;", you see a ";sze1$;" carving, probably done some monster that got bored down here."
300246 print "Inspecting the carving further you see that it is ";carv$;".  There is nothing else interesting about it....":return
300250 if rtype=6 then 300072
300252 if rtype=1 then 300265
300254 if rtype=2 then 300275
300256 if rtype=3 then 300290
300258 if rtype=4 then 300300
300260 if rtype=5 then 300335
300265 a=int(rnd(1)*3)+1:if a=1 then 300270
300267 if a=2 then 300272
300269 print:print "Stained glass lies shattered all around you.":return
300270 print:print "The tiles on the floor are cracked and broken all around you.":return
300272 print:print "The marble walls have deep cuts in them, as if something was trying to claw its way out.":return
300275 a=int(rnd(1)*3)+1:if a=1 then 300280
300277 if a=2 then 300285
300279 print:print "Everything in this room is covered in a glowing moss.  Its light throbs before you, showing you the way.":return
300280 gosub 300092:a=int(rnd(1)*4)+1:if a=1 then print:print "The floor slopes down sharply to the ";wall$;".":return
300282 if a=2 then print:print "The floor gradually slopes down to the ";wall$;".":return
300283 if a=3 then print:print "The floor slopes up sharply to the ";wall$;".":return
300284 print:print "The floor gradually slopes up to the ";wall$;".":return
300285 a=int(rnd(1)*2)+1:if a=1 then print:print "There are stalagtites all over in this room, all looking like they would love to fall on you...":stalag=1:return
300287 print:print "There are stalagmites poking up from the ground, making travel through this room difficult.":return
300290 a=int(rnd(1)*3)+1:if a=1 then 300296
300292 if a=2 then 300298
300294 print:print "There are weapons racks lining this room, all empty and broken.":return
300296 a=int(rnd(1)*10)+2:print:print "This is a prison block area.  There are ";a;" cells here, and every single one of them is empty.":return
300298 gosub 300092:print:print "To the ";wall$;", the room splits into a lower and upper level, with stairs leading down to the lower level.":print "There is nothing else of interest about the level split, nor does it go down or up any dungeon levels.":return
300300 a=int(rnd(1)*6)+1:if a=1 then 300312
300302 if a=2 then 300314
300304 if a=3 then 300316
300306 if a=4 then 300318
300308 if a=5 then 300320
300310 gosub 300092:print:print "There is a large tree that has fallen ages ago to the ";wall$;".  Its rotting away...":return
300312 gosub 300092:print:print "There are several large trees that have fallen ages ago to the ";wall$;".  They are all rotting away....":return
300314 print:print "There is a small pond here, and several white fish swim around in it.  There is nothing else of interest about it.":return
300316 gosub 300092:print:print "Several trees have been chopped down to the ";wall$;", leaving thick stumps.  Mold has slowly grown over":print "them over the last few thousand years....":return
300318 a=(int(rnd(1)*3)+2)*10:print:print "You are amazed by the size of the trees in this area, they must be ";a;" feet thick and as tall as the eye can see.":return
300320 a=int(rnd(1)*12)+1:if a=1 then clring$="a bunch of skulls":goto 300334
300322 if a=2 then clring$="a bunch of spiderwebs":goto 300334
300324 if a=3 then clring$="a few straw huts":huts1=1:goto 300334
300326 if a=4 then clring$="a few clay huts":huts1=1:goto 300334
300328 if a=5 then clring$="a few stone huts":huts1=1:goto 300334
300330 if a=6 then clring$="an old campsite":camp1=1:goto 300334
300332 print:print "You have come to a clearing in the woods, all plants and trees have been chopped down.  Whoever did this must":print "have moved on to a new place, because there is nothing else of interest here.....":return
300334 print:print "You have come to a clearing in the woods, all plants and trees have been chopped down.  Looking around, you see":print clring$;" around the center of it.":return
300335 a=int(rnd(1)*6)+1:if a=1 then 300342
300336 if a=2 then 300344
300337 if a=3 then 300346
300338 if a=4 then 300348
300339 if a=5 then 300350
300340 print:print "Large vines hang down from the ceiling here, making moving through this room difficult.":return
300342 gosub 300355:print:print "Pretty ";clor$;" flowers grow from the moss on the floor in this room.":return
300344 gosub 300092:print:print "Vines grown up and down the wall to the ";wall$;".":return
300346 gosub 300092:gosub 300375 :print:print "There is a pool of ";watr$;" water to the ";wall$;".":print "There is nothing of interest about it.":return
300348 gosub 300175:gosub 300092:gosub 300355:print:print sze1$;" ";clor$;" colored flowers grow along the ";wall$;" wall.":return
300350 print:print "Thick vines and plantlife twist and tumble throughout the room, making movement through this room very difficult.":return
300355 a=int(rnd(1)*14)+1:if a=1 then clor$="Red":return
300357 if a=2 then clor$="Black":return
300359 if a=3 then clor$="Green":return
300360 if a=4 then clor$="Yellow":return
300362 if a=5 then clor$="Blue":return
300364 if a=6 then clor$="Orange":return
300366 if a=7 then clor$="Red and White":return
300368 if a=8 then clor$="Black and Green":return
300370 if a=9 then clor$="Purple and Blue":return
300372 clor$="White":return
300375 a=int(rnd(1)*4)+1:if a=1 then watr$="Mirky":return
300377 if a=2 then watr$="Clear":return
300379 if a=3 then watr$="Cloudy":return
300380 watr$="Dark":return

300385 REM ATMOSPHERE
300387 a=int(rnd(1)*15)+1:if a<7 then GOSUB 198:GOTO 300390
300389 return
300390 REM Light
300392 a=int(rnd(1)*4)+1:if a=1 then atmos1$="[It is very dark here.]":goto 300400
300394 if a=2 then atmos1$="[It is very bright here.]":goto 300400
300396 if a=3 then atmos1$="[It is kind of dim in here.]":goto 300400
300398 atmos1$="[It is well lit here.]"
300400 REM Smells
300402 a=int(rnd(1)*10)+1:if a=1 then atmos2$="[It smells like dead things here.]":goto 300421
300404 if a=2 then atmos2$="[It smells like natural gas here.]":goto 300421
300406 if a=3 then atmos2$="[It smells like plantlife here.]":goto 300421
300408 if a=4 then atmos2$="[It smells like meat cooking on a fire here.]":goto 300421
300410 if a=5 then atmos2$="[It smells acrid here.]":goto 300421
300412 if a=6 then atmos2$="[It smells like metal burning here.]":goto 300421
300414 if a=7 then atmos2$="[There is a sulphurous smell here.]":goto 300421
300416 if a=8 then atmos2$="[It smells like paper burning here.]":goto 300421
300418 if a=9 then atmos2$="[It smells like hair burning here.]":goto 300421
300419 atmost2$= "[It smells water rotting away wood here.]"
300420 REM Sounds
300421 gosub 300092:a=int(rnd(1)*11)+1:if a=1 then atmos3$="[There is a loud crashing sound.]":goto 300435
300422 if a=2 then atmos3$="[There is a scratching sound.]":goto 300435
300423 if a=3 then atmos3$="[There is a grinding of metal sound.]":goto 300435
300424 if a=4 then atmos3$="[There is a grinding of stone sound.]":goto 300435
300425 if a=5 then atmos3$="[There is a very loud roar.]":goto 300435
300426 if a=6 then atmos3$="[There is a very loud scream.]":goto 300435
300428 if a=7 then atmos3$="[There sounds like something is walking... around....]":goto 300435
300429 if a=8 then atmos3$="[There is a loud fwooshing sound.]":goto 300435
300430 if a=9 then atmos3$="[There is a sharp crackling sound.]":goto 300435
300431 if a=10 and rtype=4 then atmos3$="[You hear birds singing.]":goto 300435
300432 atmos3$="[There is a sound of bones breaking and a unhuman scream.]"
300435 REM direction of sound
300437 a=int(rnd(1)*4)+1:if a=1 then atmos4$="[The sound comes from behind you.]":goto 300445
300439 if a=2 then atmos4$="[The sound comes from your left.]":goto 300445
300440 if a=3 then atmos4$="[The sound comes from your right.]":goto 300445
300442 atmos4$="[The sound comes from far away from you.]"
300445 REM ATMOSPHERE PICKER
300447 a=int(rnd(1)*100)+1:if a>=0 and a<25 then print atmos1$:GOSUB 198:return
300449 if a>=25 and a<45 then print atmos2$:GOSUB 198:return
300450 if a>=45 and a<65 then print atmos3$:print atmos4$:GOSUB 198:return
300452 if a>=65 and a<75 then print atmos1$:print atmos2$:GOSUB 198:return
300454 if a>=75 and a<85 then print atmos1$:print atmos3$:print atmos4$:GOSUB 198:return
300455 if a>=85 and a<95 then print atmos2$:print atmos3$:print atmos4$:GOSUB 198:return
300457 print atmos1$:print atmos2$:print atmos3$:print atmos4$:GOSUB 198:return

300460 REM Exit GENERATOR, directions are West=exit1:East=exit2:North=3:South=4:NW=5:SW=6:SE=7:NE=8
300462 exit1=0:exit2=0:exit3=0:exit4=0:exit5=0:exit6=0:exit7=0:exit8=0:nnnn=1:axa=0:gosub 199:gosub 198
300465 if lwc$="E" then gosub 300600:print:print "There is an ";extt$;" to the [W]est.":exit1=1:goto 300480
300467 if lwc$="W" then  gosub 300600:print:print "There is an ";extt$;" to the [E]ast.":exit2=1:goto  300480
300469 if lwc$="S" then  gosub 300600:print:print "There is an ";extt$;" to the [N]orth.":exit3=1:goto  300480
300470 if lwc$="N" then  gosub 300600:print:print "There is an ";extt$;" to the [S]outh.":exit4=1:goto  300480
300472 if lwc$="NW" then  gosub 300600:print:print "There is an ";extt$;" to the [SE]outheast.":exit5=1:goto  300480
300474 if lwc$="SW" then  gosub 300600:print:print "There is an ";extt$;" to the [NE]ortheast.":exit6=1:goto 300480
300476 if lwc$="SE" then  gosub 300600:print:print "There is an ";extt$;" to the [NW]orthwest.":exit7=1:goto 300480
300478 if lwc$="NE" then  gosub 300600:print:print "There is an ";extt$;" to the [SW]outhwest.":exit8=1
300480 if rtype=2 then axa=int(rnd(1)*2)+2:goto 300486
300481 if rtype=3 then axa=int(rnd(1)*3)+2:goto 300486
300485 axa=int(rnd(1)*6)+2
300486 if rtype=4 then axa=7
300487 if axa>7 then axa=7
300488 goto 300490
300489 nnnn=nnnn+1:gosub 300630:if nnnn=axa then nnnn=0:axa=0:return
300490 aa=int(rnd(1)*8)+1:if aa>8 then aa=8
300491 if aa=1 and exit1=0  then gosub 300600:print "There is an ";extt$;" to the [W]est.":exit1=1:goto 300489
300492 if aa=2 and exit2=0 then  gosub 300600:print "There is an ";extt$;" to the [E]ast.":exit2=1:goto 300489
300493 if aa=3 and exit3=0 then  gosub 300600:print "There is an ";extt$;" to the [N]orth.":exit3=1:goto 300489
300494 if aa=4 and exit4=0 then  gosub 300600:print "There is an ";extt$;" to the [S]outh.":exit4=1:goto 300489
300496 if aa=5 and exit5=0 then  gosub 300600:print "There is an ";extt$;" to the [SE]outheast.":exit5=1:goto 300489
300498 if aa=6 and exit6=0 then  gosub 300600:print "There is an ";extt$;" to the [NE]ortheast.":exit6=1:goto 300489
300500 if aa=7 and exit7=0 then  gosub 300600:print "There is an ";extt$;" to the [NW]orthwest.":exit7=1:goto 300489
300502 if aa=8 and exit8=0 then  gosub 300600:print "There is an ";extt$;" to the [SW]outhwest.":exit8=1:goto 300489
300504 goto 300490

300506 REM After Exit Is Chosen//Clean UP
300508 if a$="E" then lwc$="E":goto 300525
300510 if a$="W" then lwc$="W":goto  300525
300512 if a$="S" then  lwc$="S":goto 300525
300514 if a$="N" then  lwc$="N" :goto 300525
300516 if a$="NW" then  lwc$="NW" :goto 300525
300518 if a$="SW" then  lwc$="SW" :goto 300525
300520 if a$="SE" then  lwc$="SE" :goto 300525
300522 if a$="NE" then  lwc$="NE"
300525 exit1=0:exit2=0:exit3=0:exit4=0:exit5=0:exit6=0:exit7=0:exit8=0:unique=0:addcho1=0:addcho2=0:addcho3=0:addcho4=0:addcho5=0:addcho6=0:addcho7=0:addcho8=0:addcho9=0:addcho10=0:climbup=0:climbd=0:axaxxa=0:stairs=0:trick1=0:xrxrx=0:treasure7=0:treasure8=0:treasure9=0
300526 rubble1=0:rubble2=0:treasure1=0:treasure2=0:treasure3=0:treasure4=0:treasure5=0:treasure6=0:treasure10=0:junk1=0:junk1=0:junk1=0:junk1=0:huts1=0:camp1=0:statue1=0:statue2=0:statue33=0:trap1=0:trap2=0:trap3=0:portal1=0:portal2=0:unique=0:return


300530 REM ADDITIONAL CHOICES
300532 if climbup=1 then print:print "You may also [C]limb up 1 dungeon level where the ceiling has collapsed.":addcho1=1
300534 if climpup=2 then print:print "You may also try to [G]rapple to the floor above.":addcho2=1
300536 if climbd=1 then print:print "You may also [T]ie your rope to something and climb down one level.":addcho3=1
300538 if climbd=2 then print:print "You may also tie your rope to something and climb down partways and [F]all the rest of the way.":addcho4=1
300540 if climbd=3 then print:print "You may also [J]ump down to the level below.":addcho5=1
300542 if climbd=4 then print:print "You may also [C]limb back down the hole in the floor you came up.":addcho6=1
300544 if climbup=3 then print:print "You may also climb back up your [T]ied rope through the hole in the floor in which you came.":addcho7=1
300546 if portal1=1 then print:print "You may also [WLK] through the Portal before you.":addcho8=1
300548 if portal2=1 then print:print "You may also [WLK] through the Portal before you.":addcho9=1
300550 IF stairs=1 then print:print "You may also use the [STAIRS].":addcho10=1
300599 return

300600 REM EXIT TYPE
300602 if rytpe=1 or rytpe=3 or rtype=5 or rtype=6 then 300610
300603 if rtype=4 then 300620
300604 a=int(rnd(1)*5)+1:if a=1 then extt$="path following a ridge":return
300606 if a=2 then extt$="path mined into the rock":return
300608 extt$="stone pathway":return
300610 a=int(rnd(1)*7)+1:if a=1 then extt$="doorway":return
300611 if a=2 then extt$="archway":return
300612 if a=3 then extt$="hallway":return
300614 if a=4 then extt$="narrow hallway":return
300616 extt$="passageway":return
300620 a=int(rnd(1)*6)+1:if a=1 then extt$="dirt path":return
300622 if a=2 then extt$="pathway":return
300624 if a=3 then extt$="shrouded pathway":return
300626 if a=4 then extt$="dark path":return
300628 extt$="road":return

300630 rem STAIRS ADDITIONS
300632 IF exit1=1 and exit2=1 and exit3=1 and exit4=1 and exit5=1 and exit6=1 and exit7=1 and exit8=1 then nnnn=axa:return
300633 if exit1=1 and exit2=1 and exit3=1 and exit4=1 and exit5=1 and exit6=1 and exit7=1 then  exit8=1:gosub 300600:print "There is an ";extt$;" to the [SW]outhwest.": nnnn=axa:return
300634 if exit1=1 and exit2=1 and exit3=1 and exit4=1 and exit5=1 and exit6=1 and exit8=1 then exit7=1:gosub 300600:print "There is an ";extt$;" to the [NW]orthwest." : nnnn=axa:return
300635 if exit1=1 and exit2=1 and exit3=1 and exit4=1 and exit5=1 and exit8=1  and exit7=1 then exit6=1:gosub 300600:print "There is an ";extt$;" to the [NE]ortheast."  : nnnn=axa:return
300636 if exit1=1 and exit2=1 and exit3=1 and exit4=1 and exit8=1 and exit6=1 and exit7=1 then exit5=1 :gosub 300600:print "There is an ";extt$;" to the [SE]outheast.": nnnn=axa:return
300637 if exit1=1 and exit2=1 and exit3=1 and exit8=1 and exit5=1 and exit6=1 and exit7=1 then exit4=1:gosub 300600:print "There is an ";extt$;" to the [S]outh.": nnnn=axa:return
300638 if exit1=1 and exit2=1 and exit8=1 and exit4=1 and exit5=1 and exit6=1 and exit7=1 then exit3=1 :gosub 300600:print "There is an ";extt$;" to the [N]orth.": nnnn=axa:return
300639 if exit1=1 and exit8=1 and exit3=1 and exit4=1 and exit5=1 and exit6=1 and exit7=1 then exit2=1:gosub 300600:print "There is an ";extt$;" to the [E]ast." : nnnn=axa:return
300640 if  exit8=1 and exit2=1 and exit3=1 and exit4=1 and exit5=1 and exit6=1 and exit7=1 then exit1=1:gosub 300600:print "There is an ";extt$;" to the [W]est." : nnnn=axa:return
300642 return

300700 REM FALL DAMAGE
300701 axaxxa=axaxxa/10:a=1:b=0:c=0
300702 b=int(rnd(1)*6)+1:a=a+1
300703 if axaxxa>8 then b=b*2
300704 c=c+b:if a>=axaxxa then 300710
300706 goto 300702
300710 c=c+(axaxxa*10):print:print "You fall down ";axaxxa*10;" feet and take ";c;" points of damage!":hp=hp-c:if hp<0 then GOSUB 300506:gosub 3540:goto 3512
300712 if addcho4=1 then print "Your rope magically untangles and falls back to your hand and you put it away.":print "You wont be able to get back up anyways...."
300714 print:print "HP = ";hp;"/";thp;"  MP = ";mp;"/";tmp;".":GOSUB 300506:climbup=0:climbd=0:gosub 198:gosub 199:dlvl=dlvl+1:ent=1:goto  301000

300725 gosub 198:print "New Dungeon Level:  ";dlvl;"         New Dungeon Level:  ";dlvl;"         New Dungeon Level:  ";dlvl;"         New Dungeon Level:  ";dlvl;"         ":gosub 198:return



300750 REM START OF CAVEs OF DESPAIR 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
300752 GOSUB 300525:ins=1:areax=0:areat=0:insdd=1:keysf=1:stairsf=1:dlvl=1:rtype1=0:rtype2=int(rnd(1)*20)+10:if rtype2=30 then rtype2=rtype2+int(rnd(1)*20)+1
300754 gosub 300800:gosub 301500
300755 gosub 300775:print:gosub 198:print "You are at the very start of the Caves of Despair.  A mirror swirls with magics like waves on the ocean.":print "All you have to do is step through it...."
300756 print:print "You may [E]nter the Magical Mirror,":print "or [R]eturn outside";:input a$:gosub 1000
300757 if a$="E" then 300762
300759 if a$="R" then stz1=0:keyz1=0:ins=0:insdd=0:areax=1:print:gosub 198:gosub 198:GOSUB 2899:print ":::: Time:  Chronos";x3: print ":::: Weather:  ";wx$: print ":::: ";time2$:print ":::: Days Played:  ";days:print ":::: Hours in Dungeon:  ";hic:hic=0:gosub 198:gosub 199:GOSUB 300506:goto 410
300760 goto 300756
300762 if ldvlxx1>1 then print:print "You have unlocked up to Dungeon Level ";ldvlxx1;".  You may start at any Dungeon Level from 1-";ldvlxx1;".":goto 300766
300764 print:print "You step through the mirrors swirling colors and materialize in a new place!!":gosub 302000:gosub 300042:print:gosub 198:gosub 199:ent=1:goto 301000
300766 print:print "Which Dungeon Level would you like to start on (1-";ldvlxx1;")";:input arxrxa:if arxrxa>ldvlxx1 then print:print "Unlock that Level first, Genius....":goto 300766
300768 if arxrxa<=0 then print:print "That doesnt work, Smart Guy.....":goto 300766
300769 if arxrxa=ldvlxx1 and bkill=1 then dlvl=arxrxa:gosub 800000
300770 print:gosub 198:print "You materialize at Dungeon Level ";arxrxa;"!!":gosub 198:dlvl=arxrxa:gosub 302000:gosub 300042:print:gosub 198:gosub 199:ent=1:goto 301000
300775 if prisoners>0 then 300778
300776 return
300778 print:print "The prisoners thank you again for releasing them!!  They head off to Krynn to tell of their savior!":gosub 199:prisoners1=prisoners1+prisoners:print:print "You have released ";prisoners;" prisoners.  Total Prisoners Released = ";prisoners1;".":gosub 199:return
300799 REM 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000


300800 REM Stairs and Key Timers
300802 lkfxx=0:lsfxx=0:stz1=0:keyz1=0:stz=int(rnd(1)*20)+10:keyz=int(rnd(1)*15)+10:IF clvl<20 and keyz>stz then stz=keyz+INT(RND(1)*5)+1
300803 if dlvl<25 then return
300804 a=int(dlvl/25):stz=stz+a:keyz=keyz+a:return
300805 stairsf=0:lsfxx=0:stz=int(rnd(1)*20)+10:stz1=0:if dlvl<25 then return
300806 a=int(dlvl/25):stz=stz+a:return
300807 keysf=0:lkfxx=0:keyz=int(rnd(1)*15)+10:keyz1=0:if dlvl<25 then return
300808 a=int(dlvl/25):keyz=keyz+a:return

300809 REM THERE IS A KEY!
300810 if dlvl<=10 and key1=1 then keyz=99999:goto 301035
300811 if dlvl>10 and dlvl<=20 and key1=1 and key2=1 then  keyz=99999:goto 301035
300812 if dlvl>20 and dlvl<=30 and key1=1 and key2=1 and key3=1 and key4=1 then  keyz=99999:goto 301035
300813 if dlvl>30 and dlvl<=40 and key1=1 and key2=1 and key3=1 and key4=1 and key5=1 and key6=1 then  keyz=99999:goto 301035
300814 if dlvl>40 and dlvl<=50 and key1=1 and key2=1 and key3=1 and key4=1 and key5=1 and key6=1 and key7=1 then  keyz=99999:goto 301035
300815 if dlvl>50 and dlvl<=75 and key1=1 and key2=1 and key3=1 and key4=1 and key5=1 and key6=1 and key7=1 and key8=1 then  keyz=99999:goto 301035
300816 if dlvl>75 and dlvl<=100 and key1=1 and key2=1 and key3=1 and key4=1 and key5=1 and key6=1 and key7=1 and key8=1 and key9=1  then  keyz=99999:goto 301035
300818 if dlvl>100  and key1=1 and key2=1 and key3=1 and key4=1 and key5=1 and key6=1 and key7=1 and key8=1 and key9=1 and key10=1 and key11=1 and key12=1 and key13=1 then  keyz=99999:goto 301035
300820 print:gosub 198:print "There is a Key here!"
300822 if dlvl<=7 then key$="Gold":key1=1:GOTO 300884
300824 if dlvl>7 and dlvl<=16 then 300880
300826 if dlvl>16 and dlvl<=25 then 300876
300828 if dlvl>25 and dlvl<=35 then 300872
300829 if dlvl>35 and dlvl<=50 then 300868
300830 if dlvl>50 and dlvl<=75 then 300864
300832 if dlvl>75 and dlvl<=100 then 300760
300834 if dlvl>100 then a=int(rnd(1)*13)+1
300835 if a=1 and key1=0 then key$="Gold":key1=1:gOTO 300884
300836 if a=2 and key2=0 then key$="Silver":key2=1:gOTO 300884
300838 if a=3 and key3=0 then key$="Black":key3=1:gOTO 300884
300839 if a=4 and key4=0 then key$="White":key4=1:gOTO 300884
300840 if a=5 and key5=0 then key$="Red":key5=1:gOTO 300884
300842 if a=6 and key6=0 then key$="Blue":key6=1:gOTO 300884
300844 if a=7 and key7=0 then key$="Green":key7=1:gOTO 300884
300846 if a=8 and key8=0 then key$="Orange":key8=1:gOTO 300884
300848 if a=9 and key9=0 then key$="Yellow":key9=1:gOTO 300884
300850 if a=10 and key10=0 then key$="Fire":key10=1:gOTO 300884
300852 if a=11 and key11=0 then key$="Ice":key11=1:gOTO 300884
300854 if a=12 and key12=0 then key$="Earth":key12=1:gOTO 300884
300856 if a=13 and key13=0 then key$="Wind":key13=1:gOTO 300884
300858 goto 300824
300860 a=int(rnd(1)*9)+1:if a=1 and key1=0 then key$="Gold":gOTO 300884
300862 goto 300836
300864 a=int(rnd(1)*8)+1:if a=1 and key1=0 then key$="Gold":gOTO 300884
300866 goto 300836
300868 a=int(rnd(1)*7)+1:if a=1 and key1=0 then key$="Gold":gOTO 300884
300870 goto 300836
300872 a=int(rnd(1)*6)+1:if a=1 and key1=0 then key$="Gold":gOTO 300884
300874 goto 300836
300876 a=int(rnd(1)*4)+1:if a=1 and key1=0 then key$="Gold":gOTO 300884
300878 goto 300836
300880 a=int(rnd(1)*2)+1:if a=1 and key1=0 then key$="Gold":gOTO 300884
300882 goto 300836
300884 keyz1=0:print:print "It is the ++ ";key$;" Key ++ !  You pick it up and add it to your backpack!!":gosub 300885:gosub 300807:goto 301035
300885 PRINT:print "You have the following Keys:":if key1=1 then print "O:: Gold ::::::::::::::..||"
300886 if key2=1 then print "O:: Silver ::::::::::::::..||"
300887 if key3=1 then print "O:: Black ::::::::::::::..||"
300888 if key4=1 then print "O:: White ::::::::::::::..||"
300889 if key5=1 then print "O:: Red ::::::::::::::..||"
300890 if key6=1 then print "O:: Blue ::::::::::::::..||"
300891 if key7=1 then print "O:: Green ::::::::::::::..||"
300892 if key8=1 then print "O:: Orange ::::::::::::::..||"
300893 if key9=1 then print "O:: Yellow ::::::::::::::..||"
300894 if key10=1 then print "O:: Fire ::::::::::::::..||"
300895 if key11=1 then print "O:: Ice ::::::::::::::..||"
300896 if key12=1 then print "O:: Earth ::::::::::::::..||"
300897 if key13=1 then print "O:: Wind ::::::::::::::..||"
300898 if key1=0 and key2=0 and key3=0 and key4=0 and key5=0 and key6=0 and key7=0 and key8=0 and key9=0 and key10=0 and key11=0 and key12=0 and  key13=0 then print:print "~NONE~"
300899 GOSUB 198:return



300900 REM FOUND STAIRS!
300901 print:gosub 198:print "There is a Staircase here!"
300902 if dlvl<=7 then stair$="Gold":goto 300965
300904 if dlvl>7 and dlvl<=16 then 300960
300906 if dlvl>16 and dlvl<=25 then 300956
300908 if dlvl>25 and dlvl<=35 then 300952
300909 if dlvl>35 and dlvl<=50 then 300948
300910 if dlvl>50 and dlvl<=75 then 300944
300912 if dlvl>75 and dlvl<=100 then 300940
300914 if dlvl>100 then a=int(rnd(1)*13)+1
300915 if a=1 then stair$="Gold":goto 300965
300916 if a=2 then stair$="Silver":goto 300965
300918 if a=3 then stair$="Black":goto 300965
300919 if a=4 then stair$="White":goto 300965
300920 if a=5 then stair$="Red":goto 300965
300922 if a=6 then stair$="Blue":goto 300965
300924 if a=7 then stair$="Green":goto 300965
300926 if a=8 then stair$="Orange":goto 300965
300928 if a=9 then stair$="Yellow":goto 300965
300930 if a=10 then stair$="Fire":goto 300965
300932 if a=11 then stair$="Ice":goto 300965
300934 if a=12 then stair$="Earth":goto  300965
300936 if a=13 then stair$="Wind":goto  300965
300938 goto 300824
300940 a=int(rnd(1)*9)+1:if a=1 then stair$="Gold":goto 300965
300942 goto 300916
300944 a=int(rnd(1)*8)+1:if a=1 then stair$="Gold":goto 300965
300946 goto 300916
300948 a=int(rnd(1)*7)+1:if a=1 then stair$="Gold":goto 300965
300950 goto 300916
300952 a=int(rnd(1)*6)+1:if a=1 then stair$="Gold":goto 300965
300954 goto 300916
300956 a=int(rnd(1)*4)+1:if a=1 then stair$="Gold":goto 300965
300958 goto 300916
300960 a=int(rnd(1)*2)+1:if a=1 then stair$="Gold":goto 300965
300962 goto 300916
300965 print:print "It is the -- ";stair$;" Staircase -- !":gosub 300805:If stair$="Gold" and key1=0 then gosub 300999:goto 301040
300966 if stair$="Silver" and key2=0 then gosub 300999:goto 301040
300967 if stair$="Black" and key3=0 then gosub 300999:goto 301040
300968 if stair$="White" and key4=0 then gosub 300999:goto 301040
300969 if stair$="Red" and key5=0 then gosub 300999:goto 301040
300970 if stair$="Blue" and key6=0 then gosub 300999:goto 301040
300971 if stair$="Green" and key7=0 then gosub 300999:goto 301040
300972 if stair$="Orange" and key8=0 then gosub 300999:goto 301040
300973 if stair$="Yellow" and key9=0 then gosub 300999:goto 301040
300974 if stair$="Fire" and key10=0 then gosub 300999:goto 301040
300975 if stair$="Ice" and key11=0 then gosub 300999:goto 301040
300976 if stair$="Earth" and key12=0 then gosub 300999:goto 301040
300977 if stair$="Wind" and key13=0 then gosub 300999:goto 301040
300978 REM BOSS BATTLE HERE
300979 stairs=1:print:print "You use can use the ++ ";stair$;" Key ++ to open the -- ";stair$;" Staircase --":print "To unlock, type [STAIRS] at the command prompt.":goto 301040
300980 print:GOSUB 198:print "You Open the Staircase!"
300981 print:print "You may now go [U]p or [D]own or [C]ontinue on with this level!!":print "You may also [E]xit the Caves of Despair from this level."
300983 stairs=0:PRINT:PRINT "What do you want to do";:input a$:gosub 1000
300984 if a$="U" then gosub 301110:gosub 300506:print:gosub 198:gosub 199:goto 301000
300985 if a$="D" then gosub 800000:gosub 301125:gosub 300506:print:gosub 198:gosub 199:goto 301000
300986 if a$="E" then bkill=1:ldvlxx1=ldvlxx1+1:print:print "You warp to the top of the Caves":goto 300750
300988 if a$="C" then 300990
300989 goto 300981
300990 print:print "Are you sure you want to continue with Dungeon Level ";dlvl;" (Y/N)";:input a$:gosub 1000
300991 if a$="Y" then 300995
300992 if a$="N" then 301300
300993 goto 300989
300995 print:print "You put the ";stair$;" Key back in your pocket!":gosub 199:goto 301300
300999 GOSUB 198:print "Unfortunately you dont have that Key to that staircase!!  Find the Key!!!":gosub 300885:return




301000 REM EVENT MAP START TO FINISH XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
301002 cls:GOSUB 301500:hic=hic+1
301005 if ent=1 then ent=0:gosub 300725:gosub 300802:GOSUB 301065
301010 print:print "You have come to a new place."
301014 REM ENCOUNTER
301016 GOSUB 198:ara=int(rnd(1)*30)+1:if ara<3 then 304600
301018 if ara>=3 and ara<=25 then goto 302025
301019 IF ara=30 then 340000
301020 print:print "There is nothing good or bad in this room."
301024 REM TIME/ETC
301025 GOSUB 2700
301029 REM KEY STAIRS CHECK
301030 stz1=stz1+1:keyz1=keyz1+1:if keyz1=keyz then 300810
301035 if stz1=stz then 300900
301039 REM ROOM TYPE CHANGE?
301040 gosub 300035
301044 REM ROOM SIZE
301045 gosub 300020:gosub 300385
301049 REM UNIQUE FEATURES OF ROOM?
301050 GOSUB 350000:gosub 300060
301054 REM LIST EXITS
301055 gosub 300460:gosub 300530
301059 REM GOTO choice picker
301060 goto 300650
301061 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

301065 IF ldvlxx1>dlvl then return
301067 ldvlxx1=dlvl:return

3006494444 REM CHOICE PICKER
300650 print:print "Which option would you like to choose";:input a$:gosub 1000:IF a$="STAT" then 301300
300651 goto 301475
300652 if a$="W" and exit1=1 then gosub 198:print "You go West!":gosub 300506:gosub 198:gosub 199:goto 301000
300654 if a$="E" and exit2=1 then gosub 198:print "You go East!":gosub 300506:gosub 198:gosub 199:goto  301000
300655 if a$="N" and exit3=1 then gosub 198:print "You go North!":gosub 300506:gosub 198:gosub 199:goto  301000
300656 if a$="S" and exit4=1 then gosub 198:print "You go South!":gosub 300506:gosub 198:gosub 199:goto  301000
300657 if a$="SE" and exit5=1 then gosub 198:print "You go Southeast!":gosub 300506:gosub 198:gosub 199:goto  301000
300658 if a$="NE" and exit6=1 then gosub 198:print "You go Northeast!":gosub 300506:gosub 198:gosub 199:goto  301000
300659 if a$="NW" and exit7=1 then gosub 198:print "You go Northwest!":gosub 300506:gosub 198:gosub 199:goto  301000
300660 if a$="SW" and exit8=1 then gosub 198:print "You go Southwest!":gosub 300506:gosub 198:gosub 199:goto  301000
300662 if a$="C" and addcho1=1 then gosub 198:print "You climb Up 1 Dungeon Level.  The room below you morphs into something else...." :dlvl=dlvl-1:GOSUB 300506:climbup=0:climbd=4:gosub 198:gosub 199:goto 301000
300664 if a$="C" and addcho6=1 then gosub 198:print "You climb Down 1 Dungeon Level.  The room above you morphs into something else....":dlvl=dlvl+1:GOSUB 300506:climbup=1:climbd=0:gosub 198:gosub 199:ent=1:goto 301000
300666 if a$="G" and addcho2=1 then gosub 198:print "After a few tries you latch onto something and climb up.  The room below you morphs into something else....":dlvl=dlvl-1:GOSUB 300506:climbup=0:climbd=4:gosub 198:gosub 199:goto 301000
300668 if a$="T" and addcho3=1 then gosub 198:print "You climb Down 1 Dungeon Level.  The room above you morphs into something else...." :dlvl=dlvl+1:GOSUB 300506:climbup=3:climbd=0:gosub 198:gosub 199:ent=1:goto 301000
300670 if a$="T" and addcho7=1 then gosub 198:print "You climb Up 1 Dungeon Level.  The room below you morphs into something else...." :dlvl=dlvl-1:GOSUB 300506:climbup=0:climbd=1:gosub 198:gosub 199:ent=1:goto 301000
300672 if a$="F" and addcho4=1 then gosub 198:print "You climb down your rope and fall the rest of the way!":goto 300700
300674 if a$="J" and addcho5=1 then gosub 198:print "You jump down the hole in the floor!":goto 300700
300676 if a$="WLK" and addcho8=1 then gosub 198:print "You walk through the Portal!!":addcho8=0:statue1=0:statue2=0:portal1=0:gosub 199:cls:goto 300750
300678 if a$="WLK" and addcho9=1 then gosub 198:print "You walk through the Portal!!":portal2=0:goto 302495
300679 if a$="STAIRS" and addcho10=1 then gosub 198:goto 300980
300698 goto 301150
300699 goto 300650


301100 REM GOING UP OR DOWN A LEVEL resetter
301102 key1=0:key2=0:key3=0:key4=0:key5=0:key6=0:key7=0:key8=0:key9=0:key10=0:key11=0:key12=0:key13=0:print:print "All your keys have crumbled to dust.  You must find new keys for this level.":return

301110 REM GOING UP from staircase
301112 if stair$="Ice" then dlvl=dlvl-2: gosub 301500:print:print "ICE Staircases bring you up 2 levels.":gosub 301100:gosub 300800:ent=1:return
301114 if stair$="Wind" then dlvl=dlvl-3: gosub 301500:print:print "WIND Staircases bring you up 3 levels.":gosub 301100:gosub 300800:ent=1:return
301116 if stair$="Earth" then dlvl=dlvl-4: gosub 301500:print:print "EARTH Staircases bring you up 4 levels.":gosub 301100:gosub 300800:ent=1:return
301118 if stair$="Fire" then dlvl=dlvl-5: gosub 301500:print:print "FIRE Staircases bring you up 5 levels.":gosub 301100:gosub 300800:ent=1:return
301120 dlvl=dlvl-1:gosub 301500:print:print "You go up One level.":gosub 301100:gosub 300800:ent=1:return

301125 REM GOING DOWN from staircase
301127 if stair$="Ice" then dlvl=dlvl+2: gosub 301500:print:print "ICE Staircases bring you down 2 levels.":gosub 301100:gosub 300800:ent=1:return
301129 if stair$="Wind" then dlvl=dlvl+3: gosub 301500:print:print "WIND Staircases bring you down 3 levels.":gosub 301100:gosub 300800:ent=1:return
301130 if stair$="Earth" then dlvl=dlvl+4: gosub 301500:print:print "EARTH Staircases bring you down 4 levels.":gosub 301100:gosub 300800:ent=1:return
301132 if stair$="Fire" then dlvl=dlvl+5: gosub 301500:print:print "FIRE Staircases bring you down 5 levels.":gosub 301100:gosub 300800:ent=1:return
301134 dlvl=dlvl+1:gosub 301500:print:print "You go down One level.":gosub 301100:gosub 300800:ent=1:return

301150 REM SEARCHING STUFF
301152 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then 301158
301154 goto 301300
301158 if rubble1=1 then rubble1=0:goto 301323
301160 if rubble2=1 then rubble2=0:goto 301327
301170 if treasure1=1 then treasure1=0:goto 301452
301172 if treasure2=1 then treasure2=0:goto 301454
301174 if treasure3=1 then treasure3=0:goto 301458
301176 if treasure4=1 then treasure4=0:goto 301465
301178 if treasure5=1 then treasure5=0:goto 301467
301180 if junk1=1 then junk1=0:goto 301352
301182 if junk2=1 then junk2=0:goto 301356
301183 if junk3=1 then junk3=0:goto 301359
301185 if junk4=1 then junk4=0:goto 301362
301190 if huts1=1 then huts1=0:goto 301400
301192 if camp1=1 then camp1=0:goto 301395
301194 if trap3=1 then 302425
301196 if trap3=2 then 302465
301198 if treasure6=1 then treasure6=0:goto 304790
301199 if treasure7=1 then 304806
301200 if treasure8=1 then treasure8=0:goto 340085
301202 if treasure9=1 then treasure9=0:goto 340145
301204 if treasure10=1 then treasure10=0:goto 302755

301299 goto 301300

301300 REM SHOWING EXIT OPTIONS AGAIN
301301 print:gosub 198:print:print "Possible Exits Are:"
301302 if exit1=1 then print "[W]est."
301304 if exit2=1 then print "[E]ast."
301306 if exit3=1 then print "[N]orth."
301308 if exit4=1 then print "[S]outh."
301310 if exit5=1 then print "[SE]outheast."
301312 if exit6=1 then print "[NE]ortheast."
301314 if exit7=1 then print "[NW]orthwest."
301316 if exit8=1 then print "[SW]outhwest."
301318 gosub 300530:goto 300650

301320 REM RUBBLE
301323 a=int(rnd(1)*8)+1:if a>1 then print:print "You find nothing of value in the broken furniture.":goto 301300
301325 a=int(rnd(1)*10)+dlvl:print:print "You find ";a;" Gold Pieces under the broken furniture.":g=g+a:print "Gold = ";g;".":goto 301300
301327 a=int(rnd(1)*12)+1:if a>1 then print:print "You find nothing of value in the skeleton.":goto 301300
301329 a=int(rnd(1)*15)+dlvl:print:print "You find ";a;" Gold Pieces under the skeleton.":g=g+a:print "Gold = ";g;".":goto 301300
301350 REM JUNK
301352 a=int(rnd(1)*15)+1:if a>1 then print:print "You find nothing of value in fountain.":goto 301300
301354 a=int(rnd(1)*25)+dlvl:print:print "You find ";a;" Gold Pieces in the fountain.":g=g+a:print "Gold = ";g;".":goto 301300
301356 a=int(rnd(1)*17)+1:if a>1 then print:print "You find nothing of value under the bedding.":goto 301300
301358 a=int(rnd(1)*35)+dlvl:print:print "You find ";a;" Gold Pieces under the bedding.":g=g+a:print "Gold = ";g;".":goto 301300
301359 a=int(rnd(1)*19)+1:if a>1 then print:print "You find nothing of value in the furniture.":goto 301300
301360 a=int(rnd(1)*45)+dlvl:print:print "You find ";a;" Gold Pieces in the furniture.":g=g+a:print "Gold = ";g;".":goto 301300
301362 print:print "You spend an hour searching through the ";rcxx$;":":print:x3=x3+1:a=int(rnd(1)*9)+3:b=0:c=1:d=1:goto 301366
301364 c=c+1:if c>a then 301385
301366 b=int(rnd(1)*500)+1:if b<300 then d=d+1:goto 301364
301368 if b>=300 and b<400 then axa=int(rnd(1)*55)+dlvl:print "---You have found ";axa;" Gold Pieces!":g=g+axa:print "Gold = ";g;".":goto 301364
301370 if b>=400 and b<440 then ml=dlvl:mg=dlvl*6:gosub 1200:print "---You have found a Gemstone!":gosub 1328:goto 301364
301372 if b>=440 and b<480 then ml=dlvl:mg=dlvl*7:gosub 1235:print "---You have found a Jewel!":gosub 1334:goto 301364
301374 if b>=480 and b<485 then gosub 1432: print "---You have found an item:  ";it$;".":goto 301364
301376 if b>=485 and b<490 then gosub 1450: print "---You have found an item:  ";it$;".":goto 301364
301378 if b>=490 and b<494 then gosub 1465: print "---You have found an item:  ";it$;".":goto 301364
301380 if b>494 and b<498  then gosub 1480: print "---You have found an item:  ";it$;".":goto 301364
301382 gosub 1500: print "---You have found an item:  ";it$;".":goto 301364
301385 if d=a then print "You have found nothing in the ";rcxx$;".":goto 301300
301390 goto 301300
301400 REM HUTS
301402 print:print "You spend an hour searching through the huts.":x3=x3+1:a=int(rnd(1)*9)+3:b=0:c=1:d=1:goto 301406
301404 c=c+1:if c>a then 301426
301406 print:GOSUB 198:print "Hut ";c;":":gosub 198
301408 b=int(rnd(1)*500)+1:if b<400 then d=d+1:PRINT "There is nothing of value here....":GOSUB 199:goto 301404
301410 if b>=400 and b<420 then axa=int(rnd(1)*155)+dlvl:print "---You have found ";axa;" Gold Pieces!":g=g+axa:print "Gold = ";g;".":GOSUB 199:goto 301404
301412 if b>=420 and b<440 then ml=dlvl:mg=dlvl*6:gosub 1200:print "---You have found a Gemstone!":gosub 1328:GOSUB 199:goto 301404
301414 if b>=440 and b<460 then ml=dlvl:mg=dlvl*7:gosub 1235:print "---You have found a Jewel!":gosub 1334:GOSUB 199:goto 301404
301416 if b>=460 and b<480 then gosub 1432: print "---You have found an item:  ";it$;".":GOSUB 199:goto 301404
301418 if b>=480 and b<490 then gosub 1450: print "---You have found an item:  ";it$;".":GOSUB 199:goto 301404
301420 if b>=490 and b<494 then gosub 1465: print "---You have found an item:  ";it$;".":GOSUB 199:goto 301404
301422 if b>494 and b<498  then gosub 1480: print "---You have found an item:  ";it$;".":GOSUB 199:Goto 301404
301424 gosub 1500: print "---You have found an item:  ";it$;".":GOSUB 199:goto 301404
301426 goto 301300
301428 goto 301300
301430 a=int(rnd(1)*20)+1:if a<>1 then print:print "You find nothing of value in or around the campsite.":goto 301300
301432 a=int(rnd(1)*45)+dlvl:print:print "You find ";a;" Gold Pieces scattered about the campsite.":g=g+a:print "Gold = ";g;".":goto 301300
301450 REM HIDDEN TREASURE
301452 a=int(rnd(1)*(5+clvl))+dlvl: print:print "As you are searching you find ";a;" Gold Pieces hidden away.":g=g+a:print "Gold = ";g;".":goto 301300
301454 a=int(rnd(1)*2)+1:if a=1 then ml=dlvl:mg=dlvl*6:gosub 1200:print:print "As you are searching you find a Gemstone!":gosub 1328:goto 301300
301456 ml=dlvl:mg=dlvl*7:gosub 1235:print:print "As you are searching you find a Jewel!":gosub 1334:goto 301300
301458 a=int(rnd(1)*5)+1:if a=1 then gosub 1432: print:print  "As you are searching you find an item:  ";it$;".":goto 301300
301460 if a=2 then gosub 1450: print:print  "As you are searching you find an item:  ";it$;".":goto 301300
301462 if a=3 then gosub 1465: print:print  "As you are searching you find an item:  ";it$;".":goto 301300
301463 if a=4 then gosub 1480: print:print  "As you are searching you find an item:  ";it$;".":goto 301300
301464 if a=5 then gosub 1500: print:print  "As you are searching you find an item:  ";it$;".":goto 301300
301465 gosub 1400:print:print  "As you are searching you find a Very Special item:  ";it$;".":goto 301300
301467 print:print "As you are searching you find an EXTREMELY RARE ITEM!!!":goto 301300

301475 REM STALAGTITES AND WATER
301477 if stalag=1 then stalag=0:goto 301482
301479 if water=1 then water=0:goto 301490
301480 goto 302330
301482 a=int(rnd(1)*100)+1:if a=1 then print:print "As you are walking towards the exit, a Stalagtite falls on you!!!":d=(int(rnd(1)*6)+1)*dlvl-clvl-dex1:goto 301486
301484 goto 300652
301486 if d>hp then d=hp-1
301487 if d<=0 then print:print "You think quick and dodge out of the way and take no damage though!!":goto 301300
301488 print:print "You take ";d;" damage from the falling rock!":hp=hp-d:print "HP = ";hp;"/";thp;".":goto 301300
301490 a=int(rnd(1)*40)+1:if a=1 then print:print "As you are trudging through the water towards the exit, you trip over something and fall on your face!!":d=(int(rnd(1)*dlvl)+1)-clvl-dex:goto 301494
301492 goto 300652
301494 if d>hp then d=hp-1
301496 if d<=0 then print:print "Luckily you catch yourself and soften the fall and take no damage!":goto 301300
301498 print:print "You take ";d;" damage from falling on your face!":hp=hp-d:print "You pick yourself up and swear to be more careful walking through the water from now on....":print "HP = ";hp;"/";thp;".":goto 301300

301500 REM MONSTER HIGH AND LOW FOR FINDER PER DLVL
301502 if dlvl=1 then mh=105:mlw=100:return
301504 if dlvl=2 then mh=111:mlw=100:return
301506 if dlvl=3 then mh=111:mlw=100:return
301508 if dlvl=4 then mh=116:mlw=100:return
301510 if dlvl=5 then mh=122:mlw=100:return
301512 if dlvl=6 then mh=122:mlw=106:return
301514 if dlvl=7 then mh=128:mlw=112:return
301516 if dlvl=8 then mh=128:mlw=112:return
301518 if dlvl=9 then mh=133:mlw=112:return
301520 if dlvl=10 then mh=133:mlw=117:return
301522 if dlvl=11 then mh=138:mlw=123:return
301524 if dlvl=12 then mh=143:mlw=123:return
301526 if dlvl=13 then mh=143:mlw=129:return
301528 if dlvl=14 then mh=147:mlw=134:return
301530 if dlvl=15 then mh=152:mlw=134:return
301532 if dlvl=16 then mh=152:mlw=139:return
301534 if dlvl=17 then mh=156:mlw=139:return
301536 if dlvl=18 then mh=156:mlw=144:return
301538 if dlvl=19 then mh=161:mlw=144:return
301540 if dlvl=20 then mh=161:mlw=148:return
301542 if dlvl=21 then mh=164:mlw=148:return
301544 if dlvl=22 then mh=168:mlw=153:return
301546 if dlvl=23 then mh=173:mlw=157:return
301548 if dlvl=24 then mh=178:mlw=162:return
301550 if dlvl=25 then mh=181:mlw=165:return
301552 if dlvl=26 then mh=184:mlw=169:return
301554 if dlvl=27 then mh=188:mlw=174:return
301556 if dlvl=28 then mh=193:mlw=179:return
301558 if dlvl=29 then mh=197:mlw=182:return
301560 if dlvl=30 then mh=197:mlw=189:return
301562 if dlvl=31 then mh=201:mlw=194:return
301564 if dlvl=32 then mh=206:mlw=198:return
301566 if dlvl=33 then mh=209:mlw=202:return
301568 if dlvl=34 then mh=212:mlw=207:return
301570 if dlvl=35 then mh=215:mlw=210:return
301572 if dlvl=36 then mh=219:mlw=213:return
301574 if dlvl=37 then mh=223:mlw=216:return
301576 if dlvl=38 then mh=226:mlw=220:return
301578 if dlvl=39 then mh=229:mlw=224:return
301999 return




302000 REM STARTING LAST DIRECTION
302002 a=int(rnd(1)*8)+1:if a=1 then lwc$="E":return
302004 if a=2 then lwc$="W":return
302006 if a=3 then lwc$="S":return
302007 if a=4 then lwc$="N":return
302008 if a=5 then lwc$="NE":return
302009 if a=6 then lwc$="SE":return
302010 if a=7 then lwc$="NW":return
302012 lwc$="SW":return



302050 REM NOTHING HERE
302052 print:print "There seems to be nothing here......":return

302100 REM TRAPS LOGS WITH SPIKES
302102 if rtype=2 or rtype=4 then gosub 302052:goto 301025
302103 a=int(rnd(1)*30)+1:if a>0 and a<12 then a$="head":dd=50:dd2=20:dd3=100:goto 302210
302104 if a>=12 and a<25 then a$="mid":dd=40:dd2=10:dd3=0:goto 302210
302106 a$="leg":dd=30:dd2=5:dd3=75
302210 a=int(rnd(1)*500)+dex1+dd3
302212 print:print "A Log with Metal Spikes sticking out of it comes rolling at you spinning on a track at high velocity!!!":print "The deadly log is about ";a$;"-level!!!"
302214 if a>400 then print:print "Luckily, you were able to dodge out of the way off to the side, narrowly escaping the blow!!":gosub 199:goto 301025
302216 a=int(rnd(1)*dd)+dd2+dlvl:print:print "You have been hit by the log trap!!!  It has done ";a;" damage to you!!!":hp=hp-a:if hp<=0 then print:gosub 198:print "You have died on the Spiked Monstrosity!!":gosub 199:gosub 3540:goto 3512
302218 print "HP = ";hp;"/";thp;".":gosub 199:goto 301025

302220 REM TRAPS Things Flying out of the WAlls!
302221 if dlvl<5 then gosub 302052:goto 301025
302222 if rtype=2 or rtype=4 then gosub 302052:goto 301025
302223 xr=1:a=int(rnd(1)*10)+1:if a=1 then gosub 302365:goto 301025
302224 if a>1 and a<=5 then 302355
302225 xr=xr+1:if xr=4 then 302246
302226 a=int(rnd(1)*100)+1:if a>0 and a<=45 and dlvl>=10 then a$="Arrows":dd=5:dd2=1:dd3=100:goto 302250
302228 if a>45 and a<=50 and dlvl>=10 and rtype=5 then dd=20:dd2=1:dd3=100:goto 302300
302230 if a>50 and a<=55 and dlvl>=10 and rtype=3 then a$="Crossbow Bolts":dd=10:dd2=1:dd3=100:goto 302250
302232 if a>55 and a<=60 and dlvl>=10 and rtype=1 then dd=30:dd2=1:dd3=100:goto 302275
302234 if a>60 and a<=65 and dlvl>=15 then a$="Spears":dd=10:dd2=1:dd3=90:goto 302250
302236 if a>65 and a<=70 and dlvl>=20 then a$="Blades":dd=20:dd2=1:dd3=80:goto 302250
302238 if a>70 and a<=75 and dlvl>=25 then a$="Axes":dd=30:dd2=1:dd3=70:goto 302250
302240 if a>75 and a<=80 and dlvl>=30 then a$="Metal Shards":dd=40:dd2=1:dd3=60:goto 302250
302241 if a>80 and a<=85 and dlvl>=35 then a$="Fire Arrows":dd=50:dd2=1:dd3=50:goto 302250
302242 if a>85 and a<=90 and dlvl>=40 then a$="Ice Missles":dd=60:dd2=1:dd3=20:goto 302250
302243 if a>90 and a<=95 and dlvl>=45 then a$="Lightning Bolts":dd=70:dd2=1:dd3=10:goto 302250
302244 if a>95 and a<=100 and dlvl>=50 then a$="Fireballs":dd=100:dd2=1:dd3=0:goto 302250
302245 goto 302225
302246 a$="Darts":dd=3:dd2=1:dd3=100
302250 b=1:ddx=0:jkjk=int(rnd(1)*dlvl)+1:if jkjk<3 then jkjk=3
302251 aa=int(rnd(1)*500)+dex1+dd3:if aa>450 then 302272
302253 if aa<=450 and aa>400 and jkjk>5 then dd4=2: b$="most of them":goto 302262
302255 if aa<=400 and aa>300 and jkjk>5 then dd4=3: b$="some of them":goto 302262
302256 if aa<=300 and aa>200 and jkjk>5 then dd4=4: b$="about half of them":goto 302262
302258 if aa<=200 and aa>100 and jkjk>5 then dd4=5: b$="very few of them":goto 302262
302259 b$="none of them":goto 302262
302260 b=b+1:if b=jkjk then 302265
302262 a=int(rnd(1)*dd)+dd2:ddx=ddx+a:goto 302260
302265 ddx=ddx+dlvl:ddx=(int(ddx/dd4)):if trap2=1 then 302360
302267 print:print "As you are walking through the room, you step on a stone button that realeases ";jkjk;" ";a$;"!!!":print "You are able to dodge ";b$;".":gosub 199
302269 print:print "You take ";ddx;" damage from the ";a$;"!!!":hp=hp-ddx:if hp<=0 then print:gosub 198:print "You have died from the trap damage!!":gosub 199:gosub 3540:goto 3512
302270 print "HP = ";hp;"/";thp;".":gosub 199:goto 301025
302272 print:print "As you are walking through the room, you step on a stone button that realeases ";jkjk;" ";a$;"!!!":print "You duck out of the way just in time, and they all go flying harmlessly past you!!":gosub 199:goto 301025
302274 REM Gargoyle
302275 if trap2=1 then 302226
302276 print:print "A Gargoyle on one of the marble pillars turns its head towards you......"
302277 a=int(rnd(1)*5)+1:if a=1 then b$="Fire":goto 302286
302278 if a=2 then b$="Ice Shards":goto 302286
302280 if a=3 then b$="Acidic Gas":goto 302286
302282 if a=4 then b$="Acid":goto 302286
302284 b$="Lava"
302286 print ".....and breathes ";b$;" at you!!!":a=int(rnd(1)*500)+dd3:if a>410 then print:print "Luckily you dodge out of the way just in time to not get hit by the stream.":print:print "The Gargoyle moves its head back into position and returns to its stony sleep....":gosub 199:goto 301025
302288 a=int(rnd(1)*dd)+dd2+dlvl:print:print "You take ";a;" points of damage from the blast!!":hp=hp-a:if hp<=0 then print:gosub 198:print "You have died from the gargoyles breath weapon!!":gosub 199:gosub 3540:goto 3512
302290 print:print "The Gargoyle moves its head back into position and returns to its stony sleep....":print "HP = ";hp;"/";thp;".":gosub 199:goto 301025
302299 REM bugz
302300 print:print "A swarm of bugs fly out from all directions and envelope you in a disgusting, writhing cloud!!!":print "They crawl all over you and bite and sting you numerous times!!!"
302302 a=int(rnd(1)*dd)+dd2+dlvl:print:print "Unfortunately you cannot get away from them before you take ";a;" damage!!":hp=hp-a:if hp<=0 then print:gosub 198:print "You have died from the bites and stings of the insect plague!!!":gosub 199:gosub 3540:goto 3512
302304 print:print "The swarm subsides off down a hallway and soon is very far away.....":print "HP = ";hp;"/";thp;".":gosub 199:goto 301025
302310 REM Only when going down a certain passageway!
302312 a=int(rnd(1)*8)+1:if a=1 then ttrp1$="E":trap1=1:return
302314 if a=2 then ttrp1$="W":trap1=1:return
302316 if a=3 then ttrp1$="S":trap1=1:return
302318 if a=4 then ttrp1$="N":trap1=1:return
302320 if a=5 then ttrp1$="SW":trap1=1:return
302322 if a=6 then ttrp1$="NW":trap1=1:return
302324 if a=7 then ttrp1$="SE":trap1=1:return
302326 ttrp1$="NE":trap1=1:return
302330 REM TRAP CHECK?
302332 if trap1=0 then 300652
302334 if a$="E" and ttrp1$="E" then trap1=0:xr=1:gosub 302350:goto 302226
302336 if a$="W" and ttrp1$="W" then trap1=0:xr=1:gosub 302350:goto 302226
302338 if a$="S" and ttrp1$="S" then trap1=0:xr=1:gosub 302350 :goto 302226
302340 if a$="N" and ttrp1$="N" then trap1=0:xr=1:gosub 302350:goto 302226
302342 if a$="NW" and ttrp1$="NW" then trap1=0:xr=1:gosub 302350:goto 302226
302344 if a$="SW" and ttrp1$="SW" then trap1=0:xr=1:gosub 302350:goto 302226
302346 if a$="SE" and ttrp1$="SE" then trap1=0:xr=1:gosub 302350:goto 302226
302347 if a$="NE" and ttrp1$="NE" then trap1=0:xr=1:gosub 302350:goto 302226
302348 trap1=0: goto 300652
302350 print:print "As you enter that exitway you spring a trap!!!":trap2=1:return
302355 gosub 302310:gosub 302052:goto 301025
302360 print:print "You step on a stone button that realeases ";jkjk;" ";a$;"!!!":print "You are able to dodge ";b$;".":gosub 199:goto 302269

302365 REM IF TRAPS DONT WORK THEN THEY DO THIS:
302367 a=int(rnd(1)*5)+1:if a=1 then print:print "You hear a grinding of gears and then a snap and a crack.  You stand perfectly still for a few seconds":print "waiting for something to happen, but whatever was supposed to happen, didn't.....":gosub 199:return
302369 if a=2 then print:print "You hear a loud clanging and a grind and a thump.  You stand perfectly still for a few seconds":print "waiting for something to happen, but whatever was supposed to happen, didn't.....":gosub 199:return
302370 if a=3 then print:print "You hear a cracking sound a loud whistling.  You stand perfectly still for a few seconds":print "waiting for something to happen, but whatever was supposed to happen, didn't.....":gosub 199:return
302372 if a=4 then print:print "You hear a low hum and a pop.  You stand perfectly still for a few seconds":print "waiting for something to happen, but whatever was supposed to happen, didn't.....":gosub 199:return
302374 print:print "You hear a shrieking sound and a loud crash.  You stand perfectly still for a few seconds":print "waiting for something to happen, but whatever was supposed to happen, didn't.....":gosub 199:return

302375 REM sTATuES
302376 rem statue finder
302377 xx=1:goto 302379
302378 xx=xx+1:if xx=10 then xx=0:a=50:goto 302380
302379 a=int(rnd(1)*100)+1+int(dlvl/2)
302380 if a>0 and a<=50 then trap$="stone":mn$="Stone Statue":dd=20:dd2=2:sze1$="very small":mhp=100:mmax=cmax:mmin=cmin:mxp=2:mg=100:mn=1:ml=10:return
302381 if a>50 and a<=80 and dlvl>=5 then trap$="bronze":mn$="Bronze Statue":dd=40:dd2=2:sze1$="small":mhp=200:mmax=cmax:mmin=cmin:mxp=4:mg=200:mn=1:ml=20:return
302382 if a>80 and a<=90 and dlvl>=17 then trap$="iron":mn$="Iron Statue":dd=60:dd2=4:sze1$="medium-sized":mhp=300:mmax=cmax:mmin=cmin:mxp=6:mg=500:mn=1:ml=30:return
302384 if a>90 and a<=92 and dlvl>=24 then trap$="gold":mn$="Gold Statue":dd=80:dd2=6:statue1=1:statue2=350:sze1$="large":mhp=400:mmax=cmax:mmin=cmin:mxp=8:mg=750:mn=1:ml=40:return
302386 if a>92 and a<=90 and dlvl>=31 then trap$="silver":mn$="Silver Statue":dd=100:dd2=8:statue1=1:statue2=300:sze1$="large":mhp=500:mmax=cmax+10:mmin=cmin+10:mxp=10:mg=1000:mn=1:ml=50:return
302388 if a>94 and a<=90 and dlvl>=39 then trap$="platinum":mn$="Platinum Statue":dd=120:dd2=10:statue1=1:statue2=250:sze1$="large":mhp=600:mmax=cmax+25:mmin=cmin+25:mxp=12:mg=2000:mn=1:ml=60:return
302390 if a>96 and a<=90 and dlvl>=45 then trap$="bloodstone":mn$="Bloodstone Statue":dd=140:dd2=12:statue1=1:statue2=200:sze1$="large":mhp=700:mmax=cmax+50:mmin=cmin+50:mxp=14:mg=4000:mn=1:ml=70:return
302392 if a>98 and a<=99 and dlvl>=54 then trap$="jade":mn$="Jade Statue":dd=160:dd2=14:statue1=1:statue2=150:sze1$="huge":mhp=800:mmax=cmax+60:mmin=cmin+60:mxp=16:mg=8000:mn=1:ml=80:return
302394 if a>99 and dlvl>=65 then trap$="diamond":mn$="Diamond Statue":dd=200:dd2=20:statue1=1:statue2=100:sze1$="huge":mhp=1000:mmax=cmax+75:mmin=cmin+75:mxp=18:mg=10000:mn=1:ml=100:return
302396 goto 302378
302400 REM GOOD/BAD Room
302402 gosub 300092:gosub 302378:gosub 302500
302404 print "In the ";wall$;" part of the room, there is a ";sze1$;" ";trap$;" statue.":mh=193:mlw=100:gosub 100000
302406 a=int(rnd(1)*2)+1:if a=1 then print "It is a statue of a vicious ";mn$;".":goto 302410
302408 print "It is a statue of a frightening ";mn$;"."
302410 gosub 302504
302414 a=int(rnd(1)*4)+1:if a=1 then lvr1$="lever":lvr2$="pull down":goto 301025
302416 if a=2 then lvr1$="button":lvr2$="push":goto 301025
302418 if a=3 then lvr1$="switch":lvr2$="flip up":goto 301025
302420 lvr1$="sliding panel":lvr2$="slide":goto 301025

302425 REM GOOD
302426 a=int(rnd(1)*3)+1:if a=1 or statue33=1 then 302428
302427 print:print "You inspect the ";trap$;" statue further, but find nothing of any interest about it.  Just a statue....":trap3=0:gosub 199:goto 301300
302428 print:print "Upon inspecting the ";trap$;" statue further, you see that it has a ";lvr1$;" that you can ";lvr2$;".":statue33=1
302429 print:print "Do you wish to ";lvr2$;" the ";lvr1$;"(Y/N)";:input a$:gosub 1000
302430 if a$="Y" then 302456
302432 if a$="N" then 302436
302434 goto 302429
302436 a=int(rnd(1)*100)+1:if a<=iq1 then 302440
302438 print:print "You leave the statue alone....":gosub 199:goto 301300
302440 if statue1=1 then print:print "You figure, if you are strong enough, you could break down the statue into smaller pieces":print "and stuff them into your backpack, and then maybe sell them to the jewler....":GOTO 302443
302441 if jgg=1 then jgg=0:goto 301300
302442 print:print "You leave the statue alone....":gosub 199:goto 301300
302443 print:print "Would you like to try to bust up that there statue (Y/N)";:input a$:gosub 1000
302444 if a$="Y" then 302448
302446 if a$="N" then print:print "You leave the statue alone....":gosub 199:goto  301300
302448 a=int(rnd(1)*1000)+str1+statue2:if a>=1000 then 302452
302450 print:print "Unfortunately you are unable to break the statue down.  Perhaps if you grew stronger.....":statue33=0:statue1=0:statue2=0:gosub 199:goto 301300
302452 aa=int(rnd(1)*5)+2:print:print "You bust up the statue into ";aa;" pieces!!!  Hopefully you will get a good price for them!!":statu1=statu1+aa
302454 a=int(rnd(1)*500)+int(mg/(aa+int(rnd(1)*6)+1)):a=aa*a:statu2=statu2+a:gosub 199:goto 301300
302456 a=int(rnd(1)*20)+1:if a>1 then 302460
302458 print:print "The statue's eyes light up and shoot 2 beams out in front of it.":gosub 199:print "The beams connect and then widen out into a large square.  Shimmering light starts to flow through the square.":print "It looks like this is a portal back to the start of the dungeon!!  Walk through it if you want to leave!!":trap3=0:portal1=1:gosub 199:goto 301300
302460 print:print "A door pops open on the back of the statue.":gosub 199:a=int(rnd(1)*mg)+clvl+int(mg/4): if a>mg then a=mg
302462 print:print "Your eyes bug out of your head when you see ";a;" gold sitting inside!!  You quickly collect all":print "the gold and stuff it in your backpack!!":g=g+a:print "Gold = ";g;".":trap3=0:statue33=0:jgg=1:gosub 199:goto 302436

302465 REM BAD
302466 a=int(rnd(1)*5)+1:if a=1 or statue33=1 then 302468
302467 print:print "You inspect the ";trap$;" statue further, but find nothing of any interest about it.  Just a statue....":trap3=0:gosub 199:goto 301300
302468 print:print "Upon inspecting the ";trap$;" statue further, you see that it has a ";lvr1$;" that you can ";lvr2$;".":statue33=1
302469 print:print "Do you wish to ";lvr2$;" the ";lvr1$;"(Y/N)";:input a$:gosub 1000
302470 if a$="Y" then 302476
302472 if a$="N" then 302438
302474 goto 302469
302476 print:print "You ";lvr2$;" the ";lvr1$;"!":gosub 199:a=int(rnd(1)*30)+1:if a=1 then gosub 302365:print:print "You wait a short while, then inspect the statue from top to bottom.  There is nothing of value, and you leave it....":trap3=0:gosub 199:goto 301025
302478 if a>1 and a<=20 then 302510
302480 if a>20 and a<=28 then 302515
302482 if a>28 and a<=29 then 302535
302484 print:print "The statue's eyes light up and shoot 2 beams out in front of it.":gosub 199:print "The beams connect and then widen out into a large square.  Shimmering light starts to flow through the square...."
302486 axaxaxx2=int(rnd(1)*(dlvl/10))+1:if axaxaxx2<=0 then axaxaxx2=1
302487 axaxaxx1=int(rnd(1)*2)+1:c=int(rnd(1)*200)+1+iq1:if c>=175 then 302490
302488 print:print "This is a portal to another place.  You cannot be sure where in the dungeon the portal":print "takes you, but you know that it is in this dungeon Somewhere....":trap3=0:portal2=1:gosub 199:goto 301300
302490 if c>200 and axaxaxx1=1 then print:print "This is a portal to another place.  You estimate it to be a portal to":print "a Lower part of the dungeon, , about ";axaxaxx2;" levels down....":trap3=0:portal2=1:gosub 199:goto 301300
302491 if c>200 and axaxaxx1=2 then print:print "This is a portal to another place.  You estimate it to be a portal to":print "a Higher part of the dungeon, about ";axaxaxx2;" levels up....":trap3=0:portal2=1:gosub 199:goto 301300
302492 if axaxaxx1=1 then print:print "This is a portal to another place.  You estimate it to be a portal to":print "a Lower part of the dungeon, though you cannot tell how low it goes....":trap3=0:portal2=1:gosub 199:goto 301300
302494 print:print "This is a portal to another place.  You estimate it to be a portal to":print "a Higher part of the dungeon, though you cannot tell how high it goes....":trap3=0:portal2=1:gosub 199:goto 301300
302495 if axaxaxx1=1 then dlvl=dlvl+axaxaxx2:print:print "The portal you walk through dissapears behind you....":print "You are in a new place....":ent=1:addcho9=0:statue1=0:statue2=0:statue33=0:gosub 199:goto 301000
302496 dlvl=dlvl-axaxaxx2:print:print "The portal you walk through dissapears behind you....":print "You are in a new place....":if dlvl<=0 then print:print "You are floating in the ether of unworldly planes that subsist around the Caves of Despair":print "After a few moments you appear back at the entrance....":addcho9=0:statue1=0:statue2=0:statue33=0:gosub 199:cls:goto 300750
302498 ent=1:addcho9=0:statue1=0:statue2=0:statue33=0:gosub 199:goto 301000


302499 REM saving monster config
302500 mn1$=mn$:mhp1=mhp:mmax1=mmax:mmin1=mmin:mxp1=mxp:mg1=mg:mn1=mn:ml1=ml:return
302502 REM loading monster config
302504 mn$=mn1$:mhp=mhp1:mmax=mmax1:mmin=mmin1:mxp=mxp1:mg=mg1:mn=mn1:ml=ml1:mhp1=0:mmax1=0:mmin1=0:mxp1=0:mg1=0:mn1=0:ml1=0:return

302510 print:print "The ";trap$;" statue comes to life and attacks you!!!!":gosub 199:goldon=1:gosub 3735:print:print "The body of the statue disintegrates to dust before your eyes...":addcho9=0:statue1=0:statue2=0:statue33=0:trap3=0:goto 301300
302515 print:print "The ";trap$;" statue turns its head towards you..."
302517 a=int(rnd(1)*5)+1:if a=1 then b$="Fire":goto 302526
302518 if a=2 then b$="Ice Shards":goto 302526
302520 if a=3 then b$="Acidic Gas":goto 302526
302522 if a=4 then b$="Acid":goto 302526
302524 b$="Lava"
302526 print ".....and breathes ";b$;" at you!!!":GOSUB 199:a=int(rnd(1)*500)+dd3:if a>410 then print:print "Luckily you dodge out of the way just in time to not get hit by the stream.":print:print "The statue moves its head back into position and returns to its ";trap$;" slumber.  With that the statue Vanishes!!!":addcho9=0:statue1=0:statue2=0:statue33=0:trap3=0:gosub 199:goto 301300
302528 a=int(rnd(1)*dd)+dd2+dlvl:print:print "You take ";a;" points of damage from the blast!!":hp=hp-a:if hp<=0 then print:gosub 198:print "You have died from the statue's breath weapon!!":gosub 199:gosub 3540:goto 3512
302530 print:print "The statue moves its head back into position and returns to its ";trap$;" slumber.  With that the statue Vanishes!!!":print "HP = ";hp;"/";thp;".":addcho9=0:statue1=0:statue2=0:statue33=0:trap3=0:gosub 199:goto 301300
302535 if dlvl<30 then 302510
302537 print:print "The ";trap$;" statue EXPLODES!!!!":gosub 199:print:print "You are caught in the blast radius!!"
302540 a=int(rnd(1)*(dlvl*100))+1:print:print "You take ";a;" damage!!!!":hp=hp-a:if hp<=0 then print:gosub 198:print "You have died from the Violent Explosion!!":gosub 199:gosub 3540:goto 3512
302542 print "HP = ";hp;"/";thp;".":gosub 199:addcho9=0:statue1=0:statue2=0:statue33=0:trap3=0:gosub 199:goto 301300




302545 REM TRICKS B:Illusionary Floor
302546 gosub 100000:if clvl<5 then mn=1
302548 if mn=1 then  print:GOSUB 198:print "@@@ There is something here! @@@":GOTO 302568
302550 a=int(rnd(1)*mn)+1:if a=1 then mn=1:goTO 302548
302552 mn=a
302554 print:GOSUB 198:print "@@@ There are several somethings here! @@@":a=int(rnd(1)*100)+1:if a>iq1 then print:print ":::::::::::: You are too stupid to know what they are!":mn$="Unknown Creature":munknown=1
302556 gosub 302558:print:print ":::::::::::: It's a ";groupname$;" ";mn$;"s!":mn3=mn:mn1=mn:mn4=1:goto 302572
302558 if mn>15 then groupname$="huge group of":return
302560 if mn>10 then groupname$="crowd of":return
302562 if mn>3 then groupname$="bunch of":return
302564 if mn=3 then groupname$="few":return
302566 if mn=2 then groupname$="couple of":return
302568 a=int(rnd(1)*100)+1:if a>iq1 then print:print ":::::::::::: You are too stupid to know what it is!":mn$="Unknown Creature":munknown=1
302570 print:print ":::::::::::: It is a horrible ";mn$;"!"
302572 a=int(rnd(1)*20)+1
302574 IF mn>1 then 302580
302576 if a=1 then print:print "::::The ";mn$;" notices you and attacks!":GOTO 302584
302578 print:print "++++The ";mn$;" hasnt noticed you!  You get first strike!":initm=1:GOTO 302584
302580 if a=1 then print:print "::::The ";mn$;"s notice you and attack!":GOTO 302584
302582 print:print "++++The ";mn$;"s havnt noticed you!  You get first strike!":initm=1
302584 PRINT:PRINT "::: Initiative Roll :::::::"
302586 GOSUB 198:PRINT "+++++ You win initiative!":GOSUB 198:GOSUB 199:trick1=1:CLS:goto 50000
302590 REM RUNNING TRICK FLOOR
302592 print:print "You attempt to flee, and as you turn to run, you take your first step, and....":gosub 199:print:print "You go straight through the floor!!  It seems to have been illusionary!  You are falling!!"
302594 goto 302635
302596 REM ATTACKING TRICK FLOOR
302598 print:print "You step into attack, and, as you take your first step....":gosub 199:print:print "You go straight through the floor!!  It seems to have been illusionary!  You are falling!!"
302599 goto 302635

302600 REM TRAP B:PITS types:  normal, spiked, locking door, water
302602 rem depth
302604 if dlvl<5 then depth=1
302606 if dlvl>4 and dlvl<=12 then depth=3
302607 if dlvl>12 and dlvl<=24 then depth=5
302608 if dlvl>24 and dlvl<=36 then depth=7
302609 if dlvl>36 and dlvl<=48 then depth=9
302610 if dlvl>48 and dlvl<=60 then depth=11
302611 if dlvl>60 and dlvl<=72 then depth=13
302612 if dlvl>72 and dlvl<=84 then depth=15
302613 if dlvl>84 and dlvl<=96 then depth=17
302614 if dlvl>96 then depth=20
302615 a=(int(rnd(1)*depth)+1)*10:print "A":depth1=a:a=int(a/3)
302616 for b=1 to a
302617 print "H"
302618 next b
302619 if waterpit=1 then print:print:print "* * * SPLASH * * *":gosub 199:goto 302652
302620 print:print:print "* * * SPLAT * * *":gosub 199:goto 302652
302621 a=int(rnd(1)*20)+1:if a<4 then print:print "You step on a button!  The floor falls away from under your feet!":goto 302630
302622 if a>=4 and a<8 then print:print "You step on a button!  A door in the floor opens up underneath you!":goto 302630
302624 if a>=8 and a<14 then print:print "You step on a button!  A panel slides out from underneath you!":goto 302630
302626 if a>=14 and a<19 then print:print "You step on a button!  The floor splits in two and falls from under you!":goto 302630
302628 print:print "You step on a button!  A large trap door drops out from beneath you!"
302630 a=int(rnd(1)*300)+1+dex1-dlvl:if a>250 then print:print "Luckily you dodge to the side and avoid falling in!!":slip=0:waterpit=0:spike=0:srchx=0:depth=0:depth1=0:panel=0:gosub 199:goto 301025
302632 print:print "YOU HAVE FALLEN IN!!":gosub 199
302635 a=int(rnd(1)*1000)+1+dlvl:if a<400 then 302604
302637 if a>=400 and a<800 then waterpit=1:goto 302604
302638 if a>=800 and a<900 then panel=1:goto 302604
302640 if a>=900 then spike=1:goto 302604
302645 c=1:dd=0:d=0:a=depth:goto 302648
302646 c=c+1:if c>a then 302652
302648 d=int(rnd(1)*6)+1:dd=dd+d:if spike=1 then dd=dd+(int(dlvl/3))
302650 goto 302646
302652 if waterpit=1 then print:print "You have fallen ";depth1;" feet into a pool of water!!!  The water has cushioned your fall, reducing your damage...":dd=int(dd/2):goto 302658
302653 if spike=1 then print:print "You have fallen ";depth1;" feet into a spiked pit!!!  The spikes have sliced through you, increasing the damage!!":goto 302656
302654 print:print "You have fallen ";depth1;" feet into a pit!!!"
302656 if dd<6 then dd=6
302658 dd=dd+depth1:gosub 199:print:print "You have taken ";dd;" damage from the fall!!!":hp=hp-dd:if hp<=0 then gosub 199:gosub 3540:goto 3512
302660 print "HP = ";hp;"/";thp;".":if slip=1 then print:print "You are back at the bottom.....":gosub 199:goto 302670
302665 a=int(rnd(1)*10)+1:if a=1 or panel=1 then panel=0:goto 302669
302667 goto 302670
302669 print:print "A large iron panel slides over the top of the pit!!  You cannot climb out!!":gosub 199:PRINT:print "But just as you are about to panic, a doorway swings open, and there's a new room, on a new level.....":gosub 199:goto 302718
302670 print:print "You will have to try and climb out.  Do you wish to do so now? (Y/N)";:input a$:gosub 1000
302672 if a$="Y" then 302678
302674 if a$="N" then print:print "You wait patiently for about 10 minutes and then contemplate your situation again....":goto 302670
302676 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then 302690
302677 goto 302670
302678 a=int(rnd(1)*100)+1+dex1:if waterpit=1 then a=a-30:PRINT:PRINT "The water makes the walls extra slippery...."
302680 if a>=50 then print:print "You make it out!!  You brush yourself off and continue on....":slip=0:waterpit=0:spike=0:srchx=0:depth=0:depth1=0:gosub 199:goto 301025
302682 print:print "You have slipped and fallen while climbing out!!!"
302684 a=int(rnd(1)*100)+1+dex1:if a<100 then dd=(int(dd/2))-depth1:slip=1:goto 302658
302686 gosub 199:print:print "Luckily you catch and slow your fall this time and take no damage.":gosub 199:PRINT:print "You resume climbing up the side of the pit....":gosub 199:a=51:goto 302680
302690 if srchx=1 then goto 302670
302691 if waterpit=1 then 302710
302692 a=int(rnd(1)*10)+1:if a=1 then 302696
302694 srchx=1:goto 302670
302696 print:print "You have triggered a secret panel to open!  A doorway opens up to a new room.":print "You have a sneaking suspicion that if you enter the room this pit and the ability to climb out will dissapear...."
302698 print:print "You may [C]limb back up to the level you were at, or [E]nter the room to the new level you are on";:input a$:gosub 1000
302700 if a$="C" then 302678
302702 if a$="E" then 302718
302704 goto 302698
302710 print:print "You dive underwater to see if you can find anything...":gosub 199
302712 a=int(rnd(1)*10)+1:if a=1 then 302716
302714 srchx=1:goto 302670
302716 print:print "You find a tunnel under the water that slopes up after a while and when you surface, you find a new room.":print "You now have a choice to make....":goto 302698
302718 print:print "You enter the new room!":gosub 301500:gosub 301100:gosub 300506:gosub 300800:depthx=int(depth/(int(rnd(1)*3)+2)):if depthx<1 then depthx=1
302720 slip=0:waterpit=0:spike=0:srchx=0:depth=0:depth1=0:dlvl=dlvl+depthx:depthx=0:ent=1:gosub 199:goto 301000

302721 REM ADDON FOR ILLUSIONARY FLOORs
302722 if mn>1 and mn1>1 then print:print "You go to cast a spell and the ";mn$;"s dissapear before your eyes!":goto 50052
302724 if mn=1 or mn1=1 then print:print "You go to cast a spell and the ";mn$;"s dissapear before your eyes!"
302725 trick1=0:a=int(rnd(1)*100)+1+iq1:if a>50 then print:print "You figure it was some sort of illusion.... You wait a few minutes, looking around alertly, but nothing else happens...":goto 501025
302726 print:print "You have no clue as to what just happened.... but everything seems ok now....":goto  501025

302728 rem TRAPS B LIGHTNING AND FIRE AND ICE RAYS
302730 if dlvl>20 then a$="Lightning":a=10:b=2:goto 302736
302732 if dlvl>10 then a$="Ice":a=8:b=1:goto 302736
302734 a$="Fire":a=6:b=1
302736 print:print "A ray of ";a$;" shoots out of the wall at you!":aaa=int(rnd(1)*500)+1+dex1:gosub 199:if aaa>450 then print:print "Luckily, you dodge out of the way before it hits you.":goto 301025
302738 c=1:d=0:aa=0:GOTO 302742
302740 c=c+1:if c>dlvl then 302746
302742 aa=int(rnd(1)*a)+b:d=d+aa
302744 goto 302740
302746 print:print "The ray of ";a$;" has hit you and done ";d;" damage to you!!":hp=hp-d:if hp<=0 then gosub 199:gosub 3540:goto 3512
302748 print "HP = ";hp;"/";thp;".":gosub 199:goto 301025

302749 REM TRAPS B MIMIC BOX
302750 print:print "There is a large box here.....":treasure10=1:goto 301025
302755 print:print "Upon inspecting the box further, you see that it is unlocked."
302756 print:print "Do you wish to open the box (Y/N)";:input a$:gosub 1000
302757 if a$="Y" then 304798
302758 if a$="N" then treasure10=1:print:print "You leave the box alone.....":goto 301300
302760 goto 302756
302762 print:print "You go to open the box, when it begins to growl at you!  Suddenly eyes on the side open,":print "and it opens its lid and there is nothing but black shiny teeth glistening at you!"
302764 print:print "The Mimic Chest attacks you!!":gosub 199:mobboss=1:mn$="Mimic Chest":mmax=cmax:mmin=cmin:mxp=int(mhp/50):mg=dlvl*50:mn=1:ml=10:goldon=1:gosub 3735:print:print "The chest turns to ash and blows away in the breeze....":gosub 199:goto 301025



304000 REM BAD THING TRAP A
304002 a=int(rnd(1)*2)+1:if a=1 then 302100
304004 goto 302220

304050 REM BAD THING TRICK A
304052 goto 500350

304100 REM BAD THING TRAP B
304102 a=int(rnd(1)*3)+1:if a=1 then 302621
304104 if a=2 then 302750
304106 goto 302730

304150 REM BAD THING  TRICK B
304152 a=int(rnd(1)*3)+1:if a=1 then trap3=2:goto 302400
304154 goto 302545

304200 REM BAD THING TRAP C
304250 REM BAD THING TRICK C
304300 REM SUPER RARE BAD THING

304350 REM GOOD THING A
304352 a=int(rnd(1)*4)+1
304354 if a=1 then 304700
304356 if a=2 then 304725
304358 if a=3 then 304800
304360 goto 304785

304400 REM GOOD THING B
304402 a=int(rnd(1)*5)+1:if a<3 THEN 304744
304404 if a=3 then 404825
304405 if a=4 then 404840
304406 trap3=1:goto 302400

304450 REM GOOD THING C
304500 REM SUPER RARE GOOD THING



304600 REM GOOD THINGs that Happen ROLLER
304602 a=int(rnd(1)*200)+1:if a>=0 and a<=160 then 304350
304604 if a>160 and a<=190 THEN 304400
304606  if a>190 and a<=199 THEN print "GOOD THING C!!!":goto 301025
304608 if a=200 THEN print "SUPER RARE GOOD THING!!!":goto 301025

302025 REM BAD tHINGS tHAT hAPPEN Roller
302026 a=int(rnd(1)*400)+1:if a>=0 and a<=360 then gosub 301500:gosub 3700:goto 301025
302028 if a>360 and a<=370 THEN 304000
302030  if a>370 and a<=380 THEN 304050
302032 if a>380 and a<=385 THEN 304100
302034 if a>385 and a<=390 THEN 304150
302036 if a>390 and a<=393 THEN print "Bad thing - TrapC":goto 301025
302038 if a>393 and a<=396 THEN print "Bad thing - TrickC":goto 301025
302040  if a>396 and a<=398 then dlvlxxx=dlvl:dlvl=dlv+5:print:print "You feel a cool breeze....":gosub 301500:gosub 3700:dlvl=dlvlxxx:goto 301025
302042 if a>398 and a<=399 then dlvlxxx=dlvl:dlvl=dlv+10:print:print "You feel a warm breeze.....":gosub 301500:gosub 3700:dlvl=dlvlxxx:goto 301025
302044 if a=400 then print "super rare bad thing":goto 301025



304700 REM GOOD THINGS A
304702 Rem Healed by a ray of light
304703 if hp=thp then 304350
304704 a=int(rnd(1)*5)+1:if a=1 then a$="White Wand":goto 304715
304706 if a=2 then a$="White Staff":goto 304715
304708 if a=3 then a$="White Statuette":goto 304715
304710 if a=4 then a$="White Gemstone":goto 304715
304712 a$="White Chalice"
304715 print:print "There is a ";a$;" floating in the middle of the room.  When you enter the room,":print "the ";a$;" shoots you with a beam of light!!":gosub 199
304717 a=int(rnd(1)*15)+clvl+dlvl:if a<=1 then a=2
304719 hp=hp+a:if hp>thp then hp=thp
304720 print:print "The light is warm and soothing, and heals your body of damage!!!":print "You are healed for ";a;" damage!!":gosub 199:if hp=thp then print:print "This completely heals you!!"
304722 print:print "The ";a$;" dissapears before your eyes....   HP = ";hp;"/";thp;".":gosub 199:goto 301025
304724 Rem MP Healed by Ray of Light
304725 if mp=tmp then 304350
304727 a=int(rnd(1)*5)+1:if a=1 then a$="Blue Wand":goto 304735
304728 if a=2 then a$="Blue Staff":goto 304735
304729 if a=3 then a$="Blue Statuette":goto 304735
304730 if a=4 then a$="Blue Gemstone":goto 304735
304732 a$="Blue Chalice"
304735 print:print "There is a ";a$;" floating in the middle of the room.  When you enter the room,":print "the ";a$;" shoots you with a beam of light!!":gosub 199
304737 a=int(rnd(1)*15)+clvl+dlvl:if a<=1 then a=2
304739 mp=mp+a:if mp>tmp then mp=thp
304740 print:print "The light is cool and invigorating, and heals your magic points!!!":print "You are healed for ";a;" MP!!":gosub 199:if mp=tmp then print:print "This completely heals your MP!!"
304742 print: print "The ";a$;" dissapears before your eyes....   MP = ";mp;"/";tmp;".":gosub 199:goto 301025

304785 REM GOOD A Box of Herb
304786 print:print "There is a large box here.....":treasure6=1:goto 301025
304790 print:print "Upon inspecting the box further, you see that it is unlocked."
304792 print:print "Do you wish to open the box (Y/N)";:input a$:gosub 1000
304794 if a$="Y" then 304798
304796 if a$="N" then treasure6=1:print:print "You leave the box alone.....":goto 301300
304797 goto 304792
304798 a=int(rnd(1)*5)+dlvl:print:print "You open the box and inside you find ";a;" herbs!!!":print "You quickly collect them all and add them to your pack."
304799 it1=it1+a:print:print "Herbs = ";it1;".":gosub 199:goto 301300

304800 REM GOOD A Hidden under a slab
304802 if rtype=2 or rtype=4 then 304350
304804 treasure7=1:gosub 302050:goto 301025
304806 a=int(rnd(1)*300)+1+iq1+xrxrx:if a>300 then 304810
304808 xrxrx=xrxrx+10:goto 301300
304810 print:print "As you are searching you find a slab of rock that is loose....":gosub 199
304812 print:print "Do you wish to lift up the slab of rock and see whats underneath (Y/N)";:input a$:gosub 1000
304814 if a$="Y" then 304820
304816 if a$="N" then xrxrx=300:goto 301300
304818 goto 304812
304820 print:print "It looks like someone or someThing has stored treasure here!!":a=((int(rnd(1)*10)+1)+1)*dlvl:gosub 199:print:print "You find ";a;" Gold, which you add to your pack.  Gold = ";g;".":treasure7=0:goto 301300

304743 REM GOOD B TrEaSuRE
304744 print:print "There is a pile of treasure here.":b=0:c=1:d=1:gosub 199:gosub 304765:goto 304746
304745 c=c+1:if c>a then 304780
304746 b=int(rnd(1)*500)+1
304748 if b>=0 and b<420 then axa=int(rnd(1)*aa)+dlvl:print "---You have found ";axa;" Gold Pieces!":g=g+axa:goto 304745
304750 if b>=420 and b<440 then ml=dlvl:mg=dlvl*bb:gosub 1200:print "---You have found a Gemstone!":gosub 1328:goto 304745
304752 if b>=440 and b<460 then ml=dlvl:mg=dlvl*cc:gosub 1235:print "---You have found a Jewel!":gosub 1334:goto 304745
304754 if b>=460 and b<480 then gosub 1432: print "---You have found an item:  ";it$;".":goto 304745
304756 if b>=480 and b<490 then gosub 1450: print "---You have found an item:  ";it$;".":goto 304745
304758 if b>=490 and b<494 then gosub 1465: print "---You have found an item:  ";it$;".":goto 304745
304760 if b>494 and b<498  then gosub 1480: print "---You have found an item:  ";it$;".":Goto 304745
304762 gosub 1500: print "---You have found an item:  ";it$;".":goto 304747
304765 if dlvl<10 then a=2:aa=155:bb=6:cc=7:return
304766 if dlvl>=10 and dlvl<20 then a=3:aa=200:bb=6:cc=7:return
304768 if dlvl>=20 and dlvl<50 then a=4:aa=255:bb=7:cc=7:return
304770 if dlvl>=50 and dlvl<120 then a=5:aa=355:bb=7:cc=8:return
304772 if dlvl>120 and dlvl<300 then a=6:aa=455:bb=7:cc=9:return
304774 if dlvl>300 and dlvl<550 then a=7:aa=555:bb=8:cc=9:return
304776 if dlvl>550 and dlvl<1000 then a=8:aa=655:bb=9:cc=10:return
304778 a=10:aa=755:bb=10:cc=11:return
304780 print:gosub 198:print "Gold = ";g:goto 301025

404825 REM GOOD B Stash OF Treasure
404826 a=int(rnd(1)*100)+1:if a>5 then cratex=1:print:print "There is a crate here.  You bust it open and find treasure!":goto 404830
404828 cratex=2:print:print "There are 2 crates here.  You bust them open and find a lot of treasure!"
404830 gosub 500422
404832 if cratex=2 then gosub 199:print:print "In the second Crate you find:":gosub 500422
404834 cratex=0:goto 301300

404840 REM GOOD B Gold Doubler
404842 if golddoubler=1 then 404825
404844 a=(int(rnd(1)*dl)+1)*5:if a>20 then a=20
404845 print:print "There is a large gold Chalice floating in the middle of the room.  It is overflowing with gold coins.  When you enter, it shoots you with":print "a ray of magic!  Your body glows with a golden light, and you feel that your luck has increased!"
404846 gosub 199:print:print "When you defeat monsters now, the gold that they drop is now doubled!  This will last ";a;" rooms!":golddoubler1=a:golddoubler=1:goto 301300
404850 REM Gold Doubler Check
404852 if golddoubler=0 then return
404854 golddoubler1=golddoubler1-1:if golddoubler1 <=0 then print:print ":::: Your Gold Doubler Enchantment has dissapated!":golddoubler1=0:golddoubler=0
404856 return

340000 REM UNIQUE ROOMS HERE rtype=1 temple :: rtype=2 caverns ::  rtype=3 castle  :: rtype=4 forest  :: rtype=5 vegetation  :: rtype=6 plain  (need to do 4,5,6)
340002 unique=1:if rtype=1 then 340015
340004 if rtype=2 then 340080
340006 if rtype=3 then 340140
340008 if rtype=4 then 340210
340009 if rtype=5 then print:print "uniqueroom type5":gosub 199:goto 301025
340010 if rtype=6 then print:print "uniqueroom type6":gosub 199:goto 301025
340015 a=int(rnd(1)*3)+1:if a=1 then 340045
340016 if a=2 then 340050
340018 print:print "There is a large pentagram in the center of the floor.  There are symbols all around it.":gosub 199
340020 print:print "It looks like these symbols are on a axis and can be turned.  You have a bad feeling about turning them, though.....":gosub 199
340022 print:print "Would you like to manipulate the symbols (Y/N)";:input a$:gosub 1000
340024 if a$="Y" then 340028
340026 if a$="N" then print:print "You leave the symbols alone....":gosub 199:goto 301025
340028 print:print "You turn the symbols.  The pentagram begins to glow red!!!":gosub 199
340030 gosub 340032:print:print "Suddenly a Demon appears in the center of the circle!  ";a$:print "It roars at you and attacks!!":gosub 199:goto 340042
340032 a=int(rnd(1)*5)+1:if a=1 then mn$="Xeraoxanoth":a$="It has black wings and dark red skin and stands over nine feet tall!":return
340034 if a=2 then mn$="Ioaclinatinith":a$="It has a sickly pale skin color with black eyes, teeth, and claws!":return
340036 if a=3 then mn$="Lopointinack":a$="It has long barbed horns and tan colored skin, and a huge mouth full of barbed teeth!!":return
340038 if a=4 then mn$="Yystemicalituk":a$="It looks somewhat like a Dragon, with a large head with no eyes and black, scaley skin!":return
340040 mn$="Aaaroghotic":a$="It looks like a large ball of muscle, with a huge mouth and a thousand red eyes that stare at you!":return
340042 mhp=dlvl*100:mmax=cmax:mmin=cmin:mxp=int(mhp/100):mg=dlvl*100:mn=1:ml=100:goldon=1:mobboss=1:gosub 3735:print:print "The pentagram slowly fades away.  You have destroyed the evil presence here.  Good Job!!":gosub 199:goto 301025
340045 print:print "You have found a Temple Treasury!!":goto 304744
340050 gosub 340070:print:print "There is a large ";stone$;" Alter here!":gosub 199
340052 print:print "It looks like there is a place to kneel in front of it!":gosub 199
340054 print:print "Would you like to kneel in front of it now (Y/N)";:input a$:gosub 1000
340056 if a$="Y" then 340060
340058 if a$="N" then print:print "You leave the Alter behind....":gosub 199:goto 301025
340060 a=int(rnd(1)*5)+1:if a=1 or a=2 then hp=thp:print:print "You're HPs are completely healed!":print "HP = ";hp;"/";thp;".":goto 340066
340062 if a=3 or a=4 then mp=tmp:print:print "You're MPs are completely healed!":print "MP = ";mp;"/";tmp;".":goto 340066
340064 mp=tmp:hp=thp:print:print "You're HPs and MPs are completely healed!":print "HP = ";hp;"/";thp;"    MP = ";mp;"/";tmp;"."
340066 gosub 199:print:print "And with that, the ";stone$;" Alter dissapears into thin air....":gosub 199:goto 301025
340070 a=int(rnd(1)*5)+1:if a=1 then stone$="Jade":return
340072 if a=2 then stone$="Onyx":return
340074 if a=3 then stone$="Marble":return
340076 if a=4 then stone$="Limestone":return
340078 stone$="Pearl":return
340079 REM a=1 goes to underwater lairs
340080 a=int(rnd(1)*3)+1:if a=1 then 340120
340082 if a=2 then 340120
340084 print:print "As you are looking around you find an old book.  It looks like the pages are torn out....":treasure8=1:gosub 199:goto 301025
340085 print:print "You search a bit more and find one of the pages to the book!":gosub 199:un3=un3+1:if un3<10 then print:print "You pick it up and add it to your pack, it may come in useful one day....":gosub 199:goto 301300
340086 print:print "When you pick up this last page, all the other pages you have collected begin to glow!":gosub 199:print:print "When you place it with the others they dissapear..........":gosub 199
340088 a=int(rnd(1)*4)+1:if a<4 then a=int(rnd(1)*90)+50:print:print "You feel much more hearty!  You have gained ";a;" Maximum HPs!!!":hp=hp+a:thp=thp+a:print:print "HP = ";hp;"/";thp;".":gosub 199:goto 301300
340089 a=int(rnd(1)*70)+50:print:print "You feel much more magically inclined!  You have gained ";a;" Maximum MPs!!!":mp=mp+a:tmp=tmp+a:print:print "MP = ";mp;"/";tmp;".":gosub 199:goto 301300
340090 REM UNDERWATER LAIRS
340120 print:print "You see an old mine shaft in this area.  It seems to go down a level or so......":gosub 199
340122 print:print "Would you like to follow it to a lower Dungeon Level (Y/N)";:input a$:gosub 1000
340124 if a$="Y" then print:print "You follow the mine shaft downwards!":goto 340130
340126 if a$="N" then print:print "You leave the mine shaft behind....":gosub 199:goto 301025
340128 goto 340122
340130 a=int(rnd(1)*100)+1:if a<90 then a=1:goto 340134
340132 a=2:print:print "It went down 2 levels!"
340134 dlvl=dlvl+a:gosub 301500:gosub 301100:gosub 300800:gosub 300506:ent=1:print:gosub 198:gosub 199:goto 301000
340140 a=int(rnd(1)*2)+1:if a=1 then 340162
340142 print:print "You have come to a torture room.  Instruments of death line the walls.  You can almost hear the screams of its past victems":print "crying out for mercy....":treasure9=1:gosub 199:goto 301025
340145 a=int(rnd(1)*100)+1:if a<90 then 340148
340146 goto 301300
340148 print:print "You search a bit more and find a Ring that's a deep red color!":gosub 199:un4=un4+1:if un4<10 then print:print "You pick it up and add it to your pack, it may come in useful one day....":gosub 199:goto 301300
340150 print:print "When you pick up this last ring, all the other rings you have collected begin to glow!":gosub 199:print:print "When you place it with the others they dissapear..........":gosub 199
340152 a=int(rnd(1)*4)+1:if a<4 then a=int(rnd(1)*90)+50:print:print "You feel much more hearty!  You have gained ";a;" Maximum HPs!!!":hp=hp+a:thp=thp+a:print:print "HP = ";hp;"/";thp;".":gosub 199:goto 301300
340154 a=int(rnd(1)*70)+50:print:print "You feel much more magically inclined!  You have gained ";a;" Maximum MPs!!!":mp=mp+a:tmp=tmp+a:print:print "MP = ";mp;"/";tmp;".":gosub 199:goto 301300
340159 REM PRISONS
340162 cells=int(rnd(1)*10)+2:print:print "This is a prison block area.  There are ";cells;" cells here.":gosub 199
340164 bxbxb=1:print:print "You are not sure, but there may be things of value behind the doors....":print "(Choose N at the prompt to quit searching cells and leave the rest behind)":gosub 199
340166 print:gosub 198:print "Would you like to search prison cell ";bxbxb;" / ";cells;" (Y/N)";:input a$:gosub 1000
340168 if a$="Y" then 340174
340170 if a$="N" then print:print "You stop searching the cells and leave the rest behind.":gosub 199:goto 301025
340172 goto 340166
340174 a=int(rnd(1)*100)+1:if a<50 then print:print "This cell contains nothing........":goto 340184
340176 if a>=50 and a<80 then gosub 301500:gosub 3700:goto 340184
340178 if a>=80 and a<85 then PRINT:PRINT "There is a Merchant held captive here.  He thanks you for releasing him and insists you look at his wares!":print:merch=1:gosub 1580: gosub 12000:goto 340184
340180 if a>=85 and a<90 then a=int(rnd(1)*3)+1:gosub 500154:goto 340184
340182 if a>=90 then gosub 340190
340184 bxbxb=bxbxb+1:if bxbxb>cells then print:gosub 198:print "There are no more cells to search now....":gosub 199:goto 301025
340186 goto 340166

340189 REM THIS IS A RANDOM TREASURE GOSUB ROUTINE for 1 single treasure in 1 location
340190 b=int(rnd(1)*500)+1
340191 if b>=0 and b<420 then axa=int(rnd(1)*dlvl)+(10*dlvl):print "---You have found ";axa;" Gold Pieces!":g=g+axa:return
340192 if b>=420 and b<440 then ml=dlvl:mg=dlvl:gosub 1200:print "---You have found a Gemstone!":gosub 1328:return
340194 if b>=440 and b<460 then ml=dlvl:mg=dlvl:gosub 1235:print "---You have found a Jewel!":gosub 1334:return
340196 if b>=460 and b<480 then gosub 1432: print "---You have found an item:  ";it$;".":return
340198 if b>=480 and b<490 then gosub 1450: print "---You have found an item:  ";it$;".":return
340200 if b>=490 and b<494 then gosub 1465: print "---You have found an item:  ";it$;".":return
340202 if b>494 and b<498  then gosub 1480: print "---You have found an item:  ";it$;".":return
340204 gosub 1500: print "---You have found an item:  ";it$;".":return

340209 REM TREEHOUSES
340210 huts=int(rnd(1)*14)+2:print:print "You look skyward and notice huts up in the trees, about ";huts;" of them.  You could go":print "up there and check them out if you really wanted to...."
340212 print:gosub 198:print "Would you like to search the treehouses (Y/N)";:input a$:gosub 1000
340214 if a$="Y" then print:print "You find a ladder up to the houses, and you are now standing in front of the first hut....":goto 340220
340216 if a$="N" then print:print "You leave the treehouses behind....":gosub 199:goto 301025
340218 goto 340212
340220 tsx=0:dlvlx=dlvl:dlvl=dlvl+5:gosub 301500:bb=1:print:gosub 198:print "The monsters contained within these types of lairs are generally more dangerous":print "Press N to quit searching the treehouses...."
340222 print:gosub 198:print "Would you like to check treehouse ";bb;"/";huts;" (Y/N)";:input a$:gosub 1000
340224 if a$="Y" then 340230
340226 if a$="N" then print:print "You stop searching the treehouses and leave the rest behind.":gosub 199:goto 301025
340228 goto 340222
340230 a=int(rnd(1)*100)+1:if a<40 then print:print "This treehouse is empty........":goto 340244
340232 if a>=40 and a<80 then gosub 3707:goto 340244
340234 if a>=80 and a<85 then PRINT:PRINT "There is a Merchant held captive here.  He thanks you for releasing him and insists you look at his wares!":print:merch=1:gosub 1580: gosub 12000:goto 340244
340238 if a>=85 and a<99 then gosub 340190
340240 if a=99 then 340348
340242 if a=100 then 340260
340244 bb=bb+1:if bb>huts then print:gosub 198:print "There are no more treehouse dwellings to search now....":dlvl=dlvlx:dlvlx=0:gosub 199:goto 301025
340246 goto 340222
340248 if tsx=1 then gosub 340190:goto 340244
340250 print:print "There is a tree spirit being held captive here.  She thanks you and says she can grant you passage to the":print "start of the Caves."
340252 print:print "Do you wish to leave the Caves at this time (Y/N)";:input a$:gosub 1000
340254 if a$="Y" then print:print "You warp to the start of the Caves!":gosub 199:cls:goto 300752
340256 if a$="N" then print:print "She thanks you again and blinks out of existance....":goto 340244
340258 goto 340252
340260 print:print "You hear a creaking and some branches breaking under your weight!  The treehouse is collapsing!":gosub 199:print:print "It tilts on its side at a 45 degree angle and you go crashing into the wall at the lowest point.":gosub 199
340262 print:print "The treehouse starts to flip over, and the branches finally give away, and it all comes crashing down.....":gosub 199
340264 print:gosub 198:a=int(rnd(1)*3)+1:b=(int(rnd(1)*6)+1)*a:a=(a*10)+b:b=int(rnd(1)*200)+100:print "You take ";a;" points of Falling Damage and":print b;" points of damage from Debris that fell on top of you."
340266 gosub 199:print:print "For a total of ";a+b;" points of damage!":hp=hp-a:hp=hp-b:if hp<=0 then gosub 199:gosub 3540:goto 3512
340268 gosub 199:print:print "And what's even worse, the way you got up to the treehouses in the first place has been destroyed........":gosub 199:goto 301025


350000 REM RANDOM THINGS FOR EMPTY ROOMS
350001 a=int(rnd(1)*6)+1:if a=1 then 350003
350002 return
350003 a=int(rnd(1)*48)+1:if a=1 then a$="a few broken arrows.":ty=1:goto 350075
350004 if a=1 then a$="ashes strewn all about.":ty=2:goto 350075
350006 if a=2 then a$="a few bones laying around.":ty=1:goto 350075
350008 if a=3 then a$="a few broken bottles on the floor.":ty=1:goto 350075
350010 if a=4 then a$="a corroded chain laying on the floor.":ty=1:goto 350075
350012 if a=5 then a$="a few splintered clubs laying on the floor.":ty=2:goto 350075
350013 if a=6 then a$="some cobwebs here.":ty=2:goto 350075
350014 if a=7 then a$="a lot of cobwebs here.":ty=2:goto 350075
350015 if a=8 then a$="cracks all over the ceiling.":ty=2:goto 350075
350016 if a=9 then a$="cracks all over the floor.":ty=2:goto 350075
350017 if a=10 then a$="cracks up and down the walls.":ty=2:goto 350075
350018 if a=11 then a$="a dagger hilt laying on the floor.":ty=1:goto 350075
350019 if a=12 then a$="dampness on the ceiling.":ty=1:goto 350075
350020 if a=13 then a$="dampness on the walls.":ty=1:goto 350075
350022 if a=14 then a$="water dripping from the ceiling.":ty=1:goto 350075
350024 if a=15 then a$="a pool of dried blood.":ty=1:goto 350075
350026 if a=16 then a$="a lot of dung on the floor.":ty=1:goto 350075
350028 if a=17 then a$="a few cracked empty flasks.":ty=1:goto 350075
350030 if a=18 then a$="some food scraps laying about.":ty=1:goto 350075
350031 if a=19 then a$="a lot of guano on the floor, but you see no bats around.":ty=1:goto 350075
350032 if a=20 then a$="some fur bits on the floor.":ty=1:goto 350075
350033 if a=21 then a$="some hair bits on the floor.":ty=1:goto 350075
350034 if a=22 then a$="a cracked hammerhead on the floor.":ty=1:goto 350075
350035 if a=23 then a$="a badly dented helmet on the floor.":ty=1:goto 350075
350036 if a=24 then a$="a bent, rusted iron bar on the floor.":ty=1:goto 350075
350037 if a=25 then a$="a blunt javelin head on the floor.":ty=1:goto 350075
350038 if a=26 then a$="a rotted leather boot on the floor.":ty=1:goto 350075
350039 if a=27 then a$="dry leaves and twigs scattered across the floor.":ty=2:goto 350075
350040 if a=28 then a$="a pick handle laying on the floor.":ty=1:goto 350075
350042 if a=29 then a$="a long, broken pole on the floor.":ty=1:goto 350075
350044 if a=30 then a$="a bunch of pottery shards strewn about.":ty=1:goto 350075
350046 if a=31 then a$="a rotted rope hanging on the wall.":ty=1:goto 350075
350048 if a=32 then a$="a lot of dirt and rubble.":ty=1:goto 350075
350050 if a=33 then a$="a few torn sacks in the corner.":ty=1:goto 350075
350051 if a=34 then a$="a coat of slime on the ceiling.":ty=1:goto 350075
350052 if a=35 then a$="a coat of slime on the floor.":ty=1:goto 350075
350053 if a=36 then a$="a coat of slime on the walls.":ty=1:goto 350075
350054 if a=37 then a$="a few rusted spikes.":ty=1:goto 350075
350055 if a=38 then a$="some sticks laying around.":ty=2:goto 350075
350056 if a=39 then a$="a few small stones.":ty=1:goto 350075
350057 if a=40 then a$="dirty, rotted straw strewn about.":ty=1:goto 350075
350058 if a=41 then a$="a broken sword blade.":ty=1:goto 350075
350059 if a=42 then a$="some monster's old teeth laying in the corner.":ty=1:goto 350075
350060 if a=43 then a$="a torch stub laying on the floor.":ty=1:goto 350075
350062 if a=44 then a$="small puddles of water on the floor.":ty=2:goto 350075
350064 if a=45 then a$="large puddles of water on the floor.":ty=2:goto 350075
350066 if a=46 then a$="water trickling down the side of the walls.":ty=1:goto 350075
350068 if a=47 then a$="wax drippings on the floor.":ty=1:goto 350075
350069 if a=48 then a$="a few melted candle stubs in the corner.":ty=1:goto 350075
350070 a$="a few rotting wood pieces scattered about.":ty=1
350075 if ty=1 then print:print "There is ";a$
350076 if ty=2 then print:print "There are ";a$
350078 ty=0:print "There seems to be nothing else of interest that you can see.....":return







400000 rem GAMBLING
400002 cls:gosub 198:print "Welcome to Gambler's Row!":gosub 198
400004 print:print "You may play one of the following games here:"
400005 print:print "1.  IN BETWEEN  - get the black dice's numbers between the high and low white dice's number and win big!"
400007 print        "2.  DICE RACE - race your opponent to the other side of the board and back and win big!"
400009 print        "3.  SUPER HAPPY FUN SLOTS - slots at it's finest!  huge payouts!"
400010 print        "4.  CRAPS - repeat your roll and win cash prizes!"
400019 print:print "(go to the specific game to learn All rules and regulations)"
400020 print:gosub 198:print "Which would you like to play (1-4, 99 to Exit)";:input a
400021 if a=99 then return
400022 if a=1 then 400100
400023 if a=2 then 400150
400024 if a=3 then 400350
400026 if a=4 then 400450
400028 goto 400002

400100 cls:print:print "IN BETWEEN:  You roll 3 20-sided dice, 2 white, 1 black.  If the black dice's number is in between the high white number and the low white number,"
400102 print "you win!  If the 2 white dice equal each other, it's an automatic loss.  If the black dice's number equals one of the white dice's numbers, you lose."
400104 print:print "Do you wish to play (Y/N)";:input a$:gosub 1000
400106 if a$="Y" then 400112
400108 if a$="N" then gosub 198:gosub 199:goto 400000
400110 goto 400104
400112 print:print "How much will you wager (1-";g;", 0 to exit)";:input a: if a>g then print:print "You don't have that much!!!":goto 400112
400114 if a<=0 then gosub 198:gosub 199:goto 400000
400116 wager=a:a=int(rnd(1)*20)+1:b=int(rnd(1)*20)+1:c=int(rnd(1)*20)+1
400118 if a>b then print:gosub 198:print "White High = ";a;".  White Low = ";b:gosub 198:gosub 199:rx=1:goto 400124
400120 if b>a then print:gosub 198:print "White High = ";b;".  White Low = ";a:gosub 198:gosub 199:rx=2:goto 400124
400122 if b=a then print:gosub 198:print "White Dice 1 = ";a;"  White Dice 2 = ";b;".  You have lost!!":g=g-wager:gosub 198:print "Gold = ";g;".":gosub 199:goto 400100
400124 if c=a or c=b then print:gosub 198:print "Black Dice = ";c;".  White Dice = ";a;"  //  ";b;".   You have lost!!":g=g-wager:gosub 198:print "Gold = ";g;".":gosub 199:goto 400100
400126 if rx=1 and c<a and c>b then print:gosub 198:print "Black Dice = ";c;".  You Have Won!!!":g=g+wager:gosub 198:print:print "You have won ";wager;" Gold!":print "Gold = ";g;".":gosub 199:goto 400100
400128 if rx=2 and c<b and c>a then print:gosub 198:print "Black Dice = ";c;".  You Have Won!!!":g=g+wager:gosub 198:print:print "You have won ";wager;" Gold!":print "Gold = ";g;".":gosub 199:goto 400100
400130 if rx=1 and c>a OR c<b then print:gosub 198:print "Black Dice = ";c;".  White Dice = ";a;"  //  ";b;".   You have lost!!":g=g-wager:gosub 198:print "Gold = ";g;".":gosub 199:goto 400100
400132 if rx=2 and c>b OR c<a then print:gosub 198:print "Black Dice = ";c;".  White Dice = ";a;"  //  ";b;".   You have lost!!":g=g-wager:gosub 198:print "Gold = ";g;".":gosub 199:goto 400100

400150 cls:print:print "DICE RACE:  You use a small checkers-like board, 10 squares by 10 squares.  You and your Opponent's markers start at one end of the board."
400152 print "The object is to 'race' the markers to the other side of the board, over one, and then back to start.  You do this by casting a 6-sided dice to determine"
400154 print "how many spaces forward you take.  When it comes to the 'over one' part, only a dice roll of 1 is acceptable, any other roll will skip your turn."
400156 print "Also if, for example, you are 3 slots away from the far side, and you roll a 6, you will only move up to that side (3 moves), because you need a roll of"
400157 print "1 to move over the one space.  If you make it over and back before your opponent, you win the wager!"
400158 print:print "Do you wish to play (Y/N)";:input a$:gosub 1000
400160 if a$="Y" then 400166
400162 if a$="N" then gosub 198:gosub 199:goto 400000
400164 goto 400158
400166 print:print "How much will you wager (1-";g;", 0 to exit)";:input a: if a>g then print:print "You don't have that much!!!":goto 400166
400168 if a<=0 then gosub 198:gosub 199:goto 400000
400170 print:print "You find somebody to play with you and the game begins!!":gosub 199:gosub 400325
400172 wager=a:dr1=1:dr21=2:drx1=1:drx2=1:cm1=0:cm2=0
400175 CLS:gosub 400300:a=int(rnd(1)*6)+1:b=int(rnd(1)*6)+1
400177 if drx1=10 and a>1 then print:gosub 198:print "Your roll = ";a;"  You cannot move until a roll of 1 only!":dr10=1:cm1=1:gosub 198
400179 if drx2=10 and b>1 then print:gosub 198:print "Opponent's roll = ";b;"  They cannot move until a roll of 1 only!":dr30=2:cm2=1:gosub 198
400180 if drx1>=5 and drx1<10 and (drx1+a)>10 then drx1=10:dr10=1:print:gosub 198:print "Your roll = ";a;"  But you can only move to the 10th square until you roll a 1!!":cm1=1:gosub 198
400181 if drx2>=5 and drx2<10 and (drx2+b)>10 then drx2=10:dr30=2:print:gosub 198:print "Opponent's roll = ";b;"  But they can only move to the 10th square until they roll a 1!!":cm2=1:gosub 198
400182 if (drx1+a)>=20 and (drx2+b)>=20 then print:gosub 198:print "Your roll = ";a;"  Opponent's roll = ";b;".  You have both moved off the board at the same time!":gosub 198:gosub 199:goto 400235
400183 if (drx1+a)>=20 then print:gosub 198:print "Your roll = ";a;"  You have moved over the board and back before your Opponent!  You have Won ";wager;" Gold!":g=g+wager:print "Gold = ";g;".":gosub 198:gosub 199:goto 400150
400184 if (drx2+b)>=20 then print:print "Opponent's roll = ";b;"  They have moved over the board and back before you have!  Your Opponent has Won ";wager;" Gold!!!":g=g-wager:print "Gold = ";g;".":gosub 198:gosub 199:goto 400150
400190 if drx1=10 and a=1 then print:gosub 198:print "You roll a 1!!  You are able to move again!":gosub 198
400191 if drx2=10 and b=1 then print:gosub 198:print "Your Opponent rolls a 1!!  They are able to move again!!":gosub 198
400192 if cm1=1 then cm1=0:goto 400213
400193 print:gosub 198:print "Your Roll was ";a;".":drx1=drx1+a:gosub 198:if drx1=2 then dr2=1
400194 if drx1=3 then dr3=1
400195 if drx1=4 then dr4=1
400196 if drx1=5 then dr5=1
400197 if drx1=6 then dr6=1
400198 if drx1=7 then dr7=1
400199 if drx1=8 then dr8=1
400200 if drx1=9 then dr9=1
400202 if drx1=10 then dr10=1
400203 if drx1=11 then dr11=1
400204 if drx1=12 then dr12=1
400205 if drx1=13 then dr13=1
400206 if drx1=14 then dr14=1
400207 if drx1=15 then dr15=1
400208 if drx1=16 then dr16=1
400209 if drx1=17 then dr17=1
400210 if drx1=18 then dr18=1
400212 if drx1=19 then dr19=1
400213 if cm2=1 then cm2=0:gosub 199:goto 400175
400214 print:gosub 198:print "Your Opponent's Roll was ";b;".":drx2=drx2+b:GOSUB 198:if drx2=2 then dr22=2
400215 if drx2=3 then dr23=2
400216 if drx2=4 then dr24=2
400217 if drx2=5 then dr25=2
400218 if drx2=6 then dr26=2
400219 if drx2=7 then dr27=2
400220 if drx2=8 then dr28=2
400221 if drx2=9 then dr29=2
400222 if drx2=10 then dr30=2
400223 if drx2=11 then dr31=2
400224 if drx2=12 then dr32=2
400225 if drx2=13 then dr33=2
400226 if drx2=14 then dr34=2
400227 if drx2=15 then dr35=2
400228 if drx2=16 then dr36=2
400229 if drx2=17 then dr37=2
400230 if drx2=18 then dr38=2
400231 if drx2=19 then dr39=2
400232 GOSUB 199:goto 400175
400235 print:print  "Looks like we'll need a tie breaker!  The House will roll 2 6-sided dice.  Then each of you will roll 2 6-sided dice.  The first one to match the House's"
400237 print "score will win the tie!  If both roll the same number as the House on the same roll, then the rolling shall continue.":gosub 199
400239 print:gosub 198:aa=int(rnd(1)*6)+1:bb=int(rnd(1)*6)+1:cc=aa+bb
400240 print "The House has rolled ";aa;" and ";bb;", for a total of ";cc;".  Whoever gets ";cc;" first wins.":gosub 198
400242 a=0:b=0:c=0:d=0:aaa=0:bbb=0:a=int(rnd(1)*6)+1:b=int(rnd(1)*6)+1:c=int(rnd(1)*6)+1:d=int(rnd(1)*6)+1
400244 print:gosub 198:print "Your rolls are ";a;"+";b;"=";a+b
400246 print:gosub 198:print "Your Opponent's rolls are ";c;"+";d;"=";c+d:gosub 198
400248 aaa=a+b:bbb=c+d:if aaa=cc and bbb=cc then print:gosub 198:print "Both you and your Opponent have matched the House's total, so the tie breaker will continue...":gosub 198:gosub 199:goto 400242
400250 if aaa<>cc and bbb<>cc then print:gosub 198:print "Neither of you have rolled the House's score (";cc;"), so the rolling shall continue....":gosub 198:gosub 199:goto 400242
400252 if aaa=cc and bbb<>cc then print:gosub 198:print "You have matched the House's score!  You have Won ";wager;" Gold!":g=g+wager:print "Gold = ";g;".":gosub 198:gosub 199:goto 400150
400254 if bbb=cc and aaa<>cc then print:gosub 198:print "Your Opponent has matched the House's score!  They have Won ";wager;" Gold!":g=g-wager:print "Gold = ";g;".":gosub 198:gosub 199:goto 400150

400300 gosub 198:print:print "YOU = 1   OPPONENT = 2     (0 = unnoccupied space)"
400301 print:print " ";dr1;" || ";dr20;" ||  ||  ||  ||  ||  ||  || ";dr40;" || ";dr21;" "
400302      print "===================="
400304    print " ";dr2;" || ";dr19;" ||  ||  ||  ||  ||  ||  || ";dr39;" || ";dr22;" "
400306     print "===================="
400307      print " ";dr3;" || ";dr18;" ||  ||  ||  ||  ||  ||  || ";dr38;" || ";dr23;" "
400308      print "===================="
400309     print " ";dr4;" || ";dr17;" ||  ||  ||  ||  ||  ||  || ";dr37;" || ";dr24;" "
400310     print "===================="
400312      print " ";dr5;" || ";dr16;" ||  ||  ||  ||  ||  ||  || ";dr36;" || ";dr25;" "
400313     print "===================="
400314     print " ";dr6;" || ";dr15;" ||  ||  ||  ||  ||  ||  || ";dr35;" || ";dr26;" "
400315     print "===================="
400317      print " ";dr7;" || ";dr14;" ||  ||  ||  ||  ||  ||  || ";dr34;" || ";dr27;" "
400318    print "===================="
400319   print " ";dr8;" || ";dr13;" ||  ||  ||  ||  ||  ||  || ";dr33;" || ";dr28;" "
400320    print "===================="
400321   print " ";dr9;" || ";dr12;" ||  ||  ||  ||  ||  ||  || ";dr32;" || ";dr29;" "
400322    print "===================="
400324  print " ";dr10;" || ";dr11;" ||  ||  ||  ||  ||  ||  || ";dr31;" || ";dr30;" ":print:gosub 198:gosub 199
400325 dr1=0:dr2=0:dr3=0:dr4=0:dr5=0:dr6=0:dr7=0:dr8=0:dr9=0:dr10=0:dr11=0:dr12=0:dr13=0:dr14=0:dr15=0
400326 dr16=0:dr17=0:dr18=0:dr19=0:d20=0:dr21=0:dr22=0:dr23=0:dr24=0:dr25=0:dr26=0:dr27=0:dr28=0:dr29=0:dr30=0:dr31=0:dr32=0:dr33=0:dr34=0:dr35=0:dr36=0:dr37=0:dr38=0:dr39=0:dr40=0:return

400350 cls:print:print "SUPER HAPPY FUN SLOTS:  Pull the lever and see what you get.  Get 3 of a kind or 2 Cherries and another (2 Cherries must be first)"
400352 print "and come out a winner!  Payout varies on what you get, the lowest being 2-1 for 2 Cherries and a Lemon, the higest being 3 Crowns at 100-1!!!"
400354 print:print "Do you wish to play (Y/N)";:input a$:gosub 1000
400356 if a$="Y" then 400360
400358 if a$="N" then gosub 198:gosub 199:goto 400000
400359 goto 400354
400360 print:print "How much will you wager (1-";g;", 0 to exit)";:input a: if a>g then print:print "You don't have that much!!!":goto 400360
400362 if a<=0 then gosub 198:gosub 199:goto 400000
400364 wager=a:a=int(rnd(1)*8)+1:b=int(rnd(1)*8)+1:c=int(rnd(1)*8)+1:print:print "You Pull the Lever!!!":gosub 199:gosub 198:print
400365 if a=1 then print ":::: Lemon :::: [] ";
400366 if a=2 then print ":::: Orange :::: [] ";
400367 if a=3 then print ":::: Bar :::: [] ";
400368 if a=4 then print ":::: Bell :::: [] ";
400369 if a=5 then print ":::: Plum :::: [] ";
400370 if a=6 then print ":::: Cherries :::: [] ";
400371 if a=7 then print ":::: Anchor :::: [] ";
400372 if a=8 then print ":::: Crown :::: [] ";
400373 if b=1 then print ":::: Lemon :::: [] ";
400374 if b=2 then print ":::: Orange :::: [] ";
400375 if b=3 then print ":::: Bar :::: [] ";
400376 if b=4 then print ":::: Bell :::: [] ";
400377 if b=5 then print ":::: Plum :::: [] ";
400378 if b=6 then print ":::: Cherries :::: [] ";
400379 if b=7 then print ":::: Anchor :::: [] ";
400380 if b=8 then print ":::: Crown :::: [] ";
400381 if c=1 then print ":::: Lemon  :::: "
400382 if c=2 then print ":::: Orange  :::: "
400383 if c=3 then print ":::: Bar  :::: "
400384 if c=4 then print ":::: Bell  :::: "
400385 if c=5 then print ":::: Plum :::: "
400386 if c=6 then print ":::: Cherries :::: "
400387 if c=7 then print ":::: Anchor :::: "
400388 if c=8 then print ":::: Crown :::: "
400390 if a=6 and b=6 and c=1 then po=2:goto 400415
400391 if a=6 and b=6 and c=2 then po=4:goto 400415
400392 if a=6 and b=6 and c=3 then po=6:goto 400415
400393 if a=6 and b=6 and c=4 then po=8:goto 400415
400394 if a=6 and b=6 and c=5 then po=10:goto 400415
400396 if a=6 and b=6 and c=7 then po=12:goto 400415
400397 if a=6 and b=6 and c=8 then po=15:goto 400415
400398 if a=1 and b=1 and c=1 then po=8:goto 400415
400399 if a=2 and b=2 and c=2 then po=12:goto 400415
400400 if a=3 and b=3 and c=3 then po=14:goto 400415
400401 if a=4 and b=4 and c=4 then po=16:goto 400415
400402 if a=5 and b=5 and c=5 then po=20:goto 400415
400403 if a=6 and b=6 and c=6 then po=24:goto 400415
400404 if a=7 and b=7 and c=7 then po=50:goto 400415
400405 if a=8 and b=8 and c=8 then po=100:goto 400415
400410 print:print "You have lost!!":g=g-wager:print "Gold = ";g;" Gold.":gosub 198:gosub 199:goto 400350
400415 print:gosub 198:print "You have Won!!!!  Odds of winning with that combo are ";po;"-1.  You have won ";wager*po;" Gold!!":g=g+(wager*po):print "Gold = ";g;".":po=0:gosub 198:gosub 199:goto 400350

400450 CLS:print:print "CRAPS:  The shooter wins on a first roll (2 6-sided dice are used) of a 7 or 11, or loses on a 2, 3, or 12.  Otherwise the shooter"
400452 print "rolls until the number first rolled is rolled a second time - a win - or a 7 is rolled - a loss."
400454 print:print "Do you wish to play (Y/N)";:input a$:gosub 1000
400456 if a$="Y" then 400460
400458 if a$="N" then gosub 198:gosub 199:goto 400000
400459 goto 400454
400460 print:print "How much will you wager (1-";g;", 0 to exit)";:input a: if a>g then print:print "You don't have that much!!!":goto 400460
400462 if a<=0 then gosub 198:gosub 199:goto 400000
400463 roll=1:wager=a:print:gosub 198:a=int(rnd(1)*6)+1:print "First Dice Score is ";a;"."
400464 b=int(rnd(1)*6)+1:print "Second Dice Score is ";b;"."
400466 c=a+b:print:print "For a Total of ";c;".":gosub 198:gosub 199
400468 if c=7 or c=11 then print:gosub 198:print "You have Won!!  You win ";wager;" Gold!":g=g+wager:print "Gold = ";g:Gosub 198:gosub 199:goTO 400450
400470 if c=2 or c=3 or c=12 then print:gosub 198:print "You have Lost!!  You lose ";wager;" Gold!":g=g-wager:print "Gold = ";g:Gosub 198:gosub 199:goTO 400450
400472 print:print "You must now roll ";c;" again to win!":gosub 199
400474 a=int(rnd(1)*6)+1:b=int(rnd(1)*6)+1:print:gosub 198:print "Roll ";roll:print "First Dice Score is ";a;", Second Dice Score is ";b;".  For a total of ";a+b;".":d=a+b
400476 if d=c then print:gosub 198:print "You have Won!!  You win ";wager;" Gold!":g=g+wager:print "Gold = ";g:Gosub 198:gosub 199:goTO 400450
400478 if d=7 then print:gosub 198:print "You have Lost!!  You lose ";wager;" Gold!":g=g-wager:print "Gold = ";g:Gosub 198:gosub 199:goTO 400450
400480 print:print "You have neither won nor lost.  Keep on rollin'!":gosub 198:roll=roll+1:gosub 199:goto 400474

500000 REM LAIRS
500002 REM SETUP
500004 city=0:lairin=1:lairout=0:ec=0:lairwg=0:gosub 301500:gosub 100000:lair=1
500005 if dlvl >0 and dlvl<=5 then lairmax=4:trms2=5:trms3=8:lairmn=2:goto 500016
500007 if dlvl >5 and dlvl<=10 then lairmax=5:trms2=8:trms3=12:lairmn=2.5:goto 500016
500009 if dlvl >10 and dlvl<=15 then lairmax=6:trms2=9:trms3=14:lairmn=3:goto 500016
500010 if dlvl >15 and dlvl<=20 then lairmax=7:trms2=10:trms3=16:lairmn=3.5:goto 500016
500012 if dlvl >20 and dlvl<=25 then lairmax=8:trms2=12:trms3=18:lairmn=4:goto 500016
500014 lairmax=10:trms2=13:trms3=20:lairmn=5
500016 mn=lairmax:a=int(rnd(1)*(trms3-trms2))+trms2:lairmn=int(lairmn*a):if dlvl>26 then lairmn=lairmn+int(dlvl/10)
500018 trms=a:trms1=trms
500020 REM EVENT MAP
500022 CLS:gosub 2700:print:GOSUB 198:print "You enter Lair Room ";lairin;"!":GOSUB 198:if lairin=1 then mnmax=1:GOTO 500028
500024 a=int(rnd(1)*10)+1:if a>5 or ec=10 and lairout=0 then 500028
500026 print:print "There are no monsters guarding this place!":ec=ec+1:goto 500032
500028 print:print "There are monsters guarding this place!":if mnmax=1 then mnmax=0:mn=lairmax:gosub 3710:goto 500030
500029 mn=lairmax:gosub 3707
500030 lairmn=lairmn-mn:mn=lairmax
500032 a=int(rnd(1)*100)+1:if a<=30 then GOSUB 500115
500036 a=int(rnd(1)*100)+1:if a>0 and a<=30 or nmd=1 then 500064
500038 if a>30 and a<=60 then 500062
500040 if a>60 and a<=90 then 500060
500042 if a>90 and a<=95 then 500058
500044 if a>95 and a<=97 then 500056
500046 if a=98 then 500054
500048 if a=99 then 500052
500050 gosub 198:print:print "You have entered a huge room with 5 doors and 1 other exit.":doorx1=5:goto 500082
500052 gosub 198:print:print "You have entered a large room with 4 doors and 1 other exit.":doorx1=4:goto 500082
500054 gosub 198:print:print "You have entered a medium sized room with 3 doors and 1 other exit.":doorx1=3:goto 500082
500056 gosub 198:print:print "You have entered a medium sized room with 2 doors and 1 other exit.":doorx1=2:goto 500082
500058 gosub 198:print:print "You have entered a small room with 1 doors and 1 other exit.":doorx1=1:goto 500082
500060 gosub 300092:gosub 198:print:print "You have entered a room with another passageway leading off to the ";wall$;".":psg$="passageway":goto 500066
500062 gosub 300092:gosub 198:print:print "You have entered a room with another hallway leading off to the ";wall$;".":psg$="hallway":goto 500066
500064 gosub 300092:gosub 198:print:print "You have entered a room with another tunnel leading off to the ";wall$;".":psg$="tunnel"
500066 gosub 198:gosub 198:print:print "Would you like to [C]ontinue or [LVE]eave this place";:input a$:gosub 1000:GOSUB 500600
500068 if a$="C" then gosub 198:print:print "You continue down the ";psg$;" to the ";wall$;".":gosub 199:goto 500165
500070 if a$="LVE" then 500074
500072 goto 500066
500074 gosub 198:print:print "Are you sure you want to leave this lair behind?  You cannot come back (Y/N)";:input a$:gosub 1000
500076 if a$="Y" then gosub 198:print:print "You leave the lair forever....":if mmaxon1=1 then mmaxwin=2:GOTO 22028
500077 if a$="Y" then 301000
500078 if a$="N" then 500066
500080 goto 500074
500082 gosub 198:print:print "There are ";doorx1;" doors left to open.":gosub 199:if doorx1>0 then 500085
500084 gosub 300092:gosub 198:print:print "Down the other ";psg$;" to the ";wall$;" is now the only other exit.":goto 500066
500085 gosub 198:print:print "You open door # ";doorx1;":":a=int(rnd(1)*100)+1:GOSUB 199:lairin=lairin+1:doorx1=doorx1-1:if a<=5 then andoor=1
500087 cls:GOSUB 198:print "You enter Lair Room ";lairin;"!":GOSUB 198
500089 a=int(rnd(1)*10)+1:if a>5 or ec=10 and lairout=0 then 500092
500090 gosub 198:print:print "There are no monsters guarding this place!":ec=ec+1:goto 500096
500092 gosub 198:print:print "This place is being guarded!!":gosub 3707
500094 lairmn=lairmn-mn:mn=lairmax
500096 a=int(rnd(1)*100)+1:if a<=5 then GOSUB 500115
500097 if andoor=1 then andoor=0:goto 500110
500098 gosub 198:print:print "You are in a room that's a dead end.  There are no other doors here so you go back the way you came in."
500100 print:print "Do that now (Y/N)";:input a$:gosub 1000
500103 if a$="Y" then print:print "You enter the room that you entered the door in the first place from....":gosub 199:goto 500082
500106 if a$="N" then print:print "You wait a few minutes....":gosub 199:goto 500174
500107 goto 500100
500110 gosub 198:print:gosub 300092:print "There is another door to the ";wall$;".  You take it!":lairin=lairin+1:goto 500087
500111 REM SPECIAL ROOMS
500115 lairrm=lairrm+1
500117 if lairrm1=1 and lairrm2=1 and lairrm3=1 and lairrm4=1 and lairrm5=1 and lairrm6=1 and lairrm7=1 and lairrm8=1 then lairrm1=0:lairrm2=0:lairrm3=0:lairrm4=0:lairrm5=0:lairrm6=0:lairrm7=0:lairrm8=0
500118 a=int(rnd(1)*8)+1:if a=1 and lairrm1=0 then 500134
500119 if a=2 and lairrm2=0 then 500136
500120 if a=3 and lairrm3=0 then 500138
500122 if a=4 and lairrm4=0 then 500140
500124 if a=5 and lairrm5=0 then  500142
500126 if a=6 and lairrm6=0 then 500144
500128 if a=7 and lairrm7=0 then 500146
500130 if a=8 and lairrm8=0 then 500148
500132 goto 500117
500134 gosub 198:print:print "This room looks to be a broken down kitchen.  There are pots and pans everywhere and old food pieces laying about.":lairrm1=1:return
500136 gosub 198:print:print "This room looks to be the dining area.  A long table with dirty dishes and old food covering it stretches out with many chairs at it.":lairrm2=1:return
500138 gosub 198:print:print "This room seems to be a make shift temple.  A large ";mn$;" statue rests on a pedestal.  Both are made out of stone and worthless.":lairrm3=1:srch4=1:return
500140 gosub 198:print:print "This seems to be an old crypt.  The air smells of death and its very cold here.":lairrm4=1:srch2=1:return
500142 gosub 198:print:print "There are a few cells here, leading you to believe that this is some sort of prison.":lairrm5=1:goto 500150
500144 gosub 198:print:print "There are several irons and a big stove thats not lit.  This is a smithy of some sort.  There are no weapons or armors of any value though.":lairrm6=1:return
500146 gosub 198:print:print "There are racks and an iron maiden, and various whips and knives and cutlery here.  An evil torture room....":lairrm7=1:gosub 199:goto 500150
500148 gosub 198:print:print "There is a very large well here.  It looks to be very deep....":lairrm8=1:srch3=1:return
500150 a=int(rnd(1)*100)+1:if a>=10 then a=int(rnd(1)*3)+1:goto 500154
500152 return
500154 if a=1 then gosub 500160: gosub 198:print:print "You hear the wails and screams of a human!  ";they$;" pleads with you to release ";they2$;" and help ";they2$;" escape this evil place,":print "before ";they$;" Is Eaten!":gosub 199:goto 500158
500156 gosub 198:print:print "You hear the wails and screams of several humans!  They plead with you to release them and help them escape this evil place,":print "before they are Eaten!":gosub 199
500158 print:print "You release them and they join your party until you leave!  They thank you profously and offer any aid they can possibly give!":prisoners=prisoners+a:return
500160 a=int(rnd(1)*3)+1:if a=1 then they$="He":they2$="him":return
500162 they$="She":they2$="her":return
500165 a=int(rnd(1)*100)+1:if a>lairwg or lairmn<=0 then lairwg=lairwg+10:goto 500180
500166 lairwg=lairwg+10:gosub 198:print:print "You are walking down the hallway when sentries see you and attack!!":mn=int(rnd(1)*lairmax)+1:mn=int(mn/2):if mn=1 then mn=2
500167 IF mn>5 then mn=5
500168 GOSUB 3735:lairmn=lairmn-mn:mn=lairmax
500170 gosub 198:print:print "You brush yourself off and continue down the ";psg$;".":gosub 199:goto 500180
500172 a=int(rnd(1)*100)+1:if a>lairwg or lairmn<=0 then lairwg=lairwg+10:goto 500180
500174 lairwg=lairwg+10:gosub 198:print:print "You are waiting in the room when sentries enter, see you, and attack!!":mn=int(rnd(1)*lairmax)+1:mn=int(mn/2):if mn=1 then mn=2
500175 if mn>5 then mn=5
500176 GOSUB 3735:lairmn=lairmn-mn:mn=lairmax
500178 print:print "You brush yourself off and collect your thoughts....":gosub 199:GOTO 500098
500180 lairin=lairin+1:trms1=trms1-lairin:if lairin>=int(trms/2) then ec=ec+1
500182 if lairmn<=lairmax and trms1<=0 then 500190
500184 if lairmn<=lairmax and lairin<trms then nmd=1:lairout=1:goto 500022
500186 if lairmn>lairmax and trms1=0 then trms=trms+1:trms1=(trms1-lairin)+1:goto 500022
500188 goto 500022
500190 CLS:mobboss=1:print:GOSUB 198:print "You have entered the Master Chamber!":print:GOSUB 198:print "You see the leader of the ";mn$;"s sitting on a throne.  Before you can attack him, though,":print "you are attacked by ";lairmax;" Guards!":mhpx=mhp:mhp=(int(mhp*1.5)):mn=lairmax:GOSUB 199:gosub 3710
500192 print:print "The leader drops from his chair and attacks you!":mhp=mhpx:mhp=(int(mhp*5)):mn=1:goldon=1:mobboss=1:initp=0:initm=0:gosub 3735
500194 REM TREASURE HORDE
500196 gosub 500330:mg1=mg*100:a=int(rnd(1)*10)+1:if a=1 then mg1=mg1+(int(rnd(1)*mg)+1)+1
500197 gosub 198:print:print "In a large ";cont$;", you find ";mg1;" Gold!!":g=g+mg1:print:print "You now have ";g;" Gold!":gosub 199
500198 if dlvl>=5 then aa=20:goto 500216
500200 if dlvl>=10 then aa=20:goto 500220
500202 if dlvl>=15 then aa=10:goto 500224
500204 if dlvl>=20 then aa=10:goto 500228
500206 if dlvl>=25 then aa=5:goto 500232
500208 if dlvl>=30 then aa=5:goto 500236
500210 if dlvl>=35 then aa=1:goto 500240
500212 if dlvl>=40 then aa=1:goto 500244
500214 if dlvl>=50 then  aa=1:goto 500248
500215 goto 500325
500216 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500255
500218 goto 500200
500220 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500265
500222 goto 500202
500224 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500275
500226 goto 500204
500228 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500285
500230 goto 500206
500232 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500295
500234 goto 500208
500236 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500308
500238 goto 500210
500240 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500318
500242 goto 500212
500244 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500320
500246 goto 500214
500248 a=int(rnd(1)*100)+1:if a<=aa then gosub 500330:goto 500322
500250 goto 500325
500255 a=int(rnd(1)*6)+2:gosub 198:print:print "In a smaller ";cont$;", you find ";a;" Gems!"
500257 for b=1 to a
500259 gosub 1200:print "---You have found a Gemstone!":gosub 1328
500260 next b
500262 gosub 199:goto 500202
500265 a=int(rnd(1)*6)+2:gosub 198:print:print "In a smaller ";cont$;", you find ";a;" Jewelry Pieces!!"
500267 for b=1 to a
500269 gosub 1235:print "---You have found a Jewel!":gosub 1334
500270 next b
500272 gosub 199:goto 500204
500275 a=int(rnd(1)*3)+2:gosub 198:print:print "In a smaller ";cont$;", you find ";a;" Jewelry Pieces!!"
500277 for b=1 to a
500279 gosub 1235:print "---You have found a Jewel!":gosub 1334
500280 next b
500282 gosub 199:goto 500206
500285 a=int(rnd(1)*3)+2:gosub 198:print:print "In a smaller ";cont$;", you find ";a;" Jewelry Pieces!!"
500287 for b=1 to a
500289 gosub 1235:print "---You have found a Jewel!":gosub 1334
500290 next b
500292 gosub 199:goto 500208
500295 a=int(rnd(1)*2)+2:gosub 198:print:print "In a smaller ";cont$;", you find ";a;" Trade Items!!!"
500297 for b=1 to a
500298 c=int(rnd(1)*3)+1:if c=1 then gosub 1450:gosub 198: print "---You have found an item:  ";it$;"."
500300 if c=2 then gosub 1465:gosub 198: print "---You have found an item:  ";it$;"."
500302 if c=3 then gosub 1480:gosub 198: print "---You have found an item:  ";it$;"."
500304 next b
500306 gosub 199:goto 500210
500308 a=int(rnd(1)*2)+2:gosub 198:print:print "In a smaller ";cont$;", you find ";a;" Healing Items!!!"
500310 for b=1 to a
500312 gosub 1432: print "---You have found an item:  ";it$;"."
500314 next b
500316 gosub 199:goto 500212
500318 gosub 198:print:print "In a very small ";cont$;", you find a Special Item!!!":gosub 1401:print "---It is a:  ";it$;".":goto 500214
500320 gosub 198:print:print "In a very small ";cont$;", you find a Unique Item!!!":gosub 1401:print "---It is a:  ";it$;".":goto 500216
500322 gosub 198:print:print "In a very small ";cont$;", you find a Very Rare Item!!!":gosub 1401:print "---It is a:  ";it$;".":goto 500325
500324 REM REMEMBER TO ADD UNIQUE AND RARE ITEMS HERE LATER (500320/500322)

500325 print:gosub 198:print "This Lair has been defeated!!!  Well done!!":print:print "You lasted a full ";trms;" Rooms and won phat loot!  Congrats!":if mmaxon1=1 then mmaxwin=1:GOTO 22028
500326 print:print "You exit back out into the room in the Caves of Despair, which, has, incidentally, changed since you were last there.":a=0:lair=0:lairmn=0:b=0:c=0:lairin=0:GOSUB 300525:lairout=0:nmd=0:trms1=0:trms=0:GOSUB 199:goto 301000

500330 a=int(rnd(1)*7)+1:if a=1 then cont$="Crate":return
500332 if a=2 then cont$="Urn":return
500334 if a=3 then cont$="Coffer":return
500336 if a=4 then cont$="Box":return
500338 cont$="Chest":return

500340 print:print "It seems to be a passage into a Monster Lair!  Enter and fight the grouping of creatures that have made their home here":print "and relieve them of their treasures untold!":GOSUB 198
500342 print:print "Would you like to enter the Monster Lair (Y/N)";:input a$:gosub 1000
500344 if a$="Y" then 500000
500346 if a$="N" then print:print "You leave the Monster Lair behind....":goto 301025
500348 goto 500342

500350 if rtype=4 then 500360
500351 if rtype=2 then 500370
500354 a=int(rnd(1)*3)+1
500355 if a=1 then print:gosub 198:print "The stonework breaks away into a crude tunnel.  It twists and turns into the earth,":print "and darkness soon envelopes the passage....":goto 500340
500357 if a=2 then print:gosub 198:print "There seems to be a mine shaft here.  A horrible, unhuman stench comes from within.":print "It slowly descends into the darkness.....":goto 500340
500359 print:gosub 198:print "There is a large door in the floor here...":print "When you open it, you see a ladder going down into the darkness....":goto 500340
500360 a=int(rnd(1)*2)+1
500362 if a=1 then print:gosub 198:print "A mound of earth here has a hole going into it, and when you look further,":print "you see that there is a tunnel leading down....":goto 500340
500364 print:gosub 198:print "You see a small shack here, and when you look inside there is a hole in the floor,":print "with a ladder going down into darkness.....":goto 500340
500370 a=int(rnd(1)*2)+1
500372 if a=1 then print:gosub 198:print "There is a cave here, with a tunnel going deep into the darkness beyond.":print "A horrible smell comes from within....":goto 500340
500374 print:gosub 198:print "A narrow chasm here holds stairs that lead down into a tunnel far below.":print "Bones are scattered around the entrance....":goto 500340

500375 REM SRCHING STUFF IN LAIRS::Statue
500376 a=int(rnd(1)*4)+1:if a=4 then 500378
500377 return
500378 a=int(rnd(1)*4)+1:if a=1 then gem$="Sapphires":goto 500390
500380 if a=2 then gem$="Opals":goto 500390
500382 if a=3 then gem$="Rubies":goto 500390
500384 gem$="Diamonds"
500390 print:print "...but as you inspect the statue further, you see that the eyes are made out of finely carved ";gem$;".":print "You remove the ";gem$;" and place them gently into your pack."
500392 jv1=int(rnd(1)*mg)+1+int(mg*.75):gem=gem+jv1+jv1:gem1=gem1+2:jv1=0:return
500399 REM SRCHING STUFF IN LAIRS::Wells
500400 if un1=0 then print:print "...but as you inspect the well further, you realize that if you had a rope you could lower yourself down.....":return
500402 print:print "....but as you inspect the well further, you realize that you could fasten your rope and climb down to the bottom."
500404 print:print "Would you like to climb down the well (Y/N)";:input a$:gosub 1000
500406 if a$="N" then print:print "You leave well enough alone (pun ftw!)":return
500408 if a$="Y" then print:print "You fasten the rope to the mantle above the well and lower yourself down.":goto 500412
500410 goto 500404
500412 gosub 199:a=int(rnd(1)*3)+1:if a=1 then 500580
500414 if a=2 then 500418
500416 print:print "Once you reach the bottom you search all about in the mirky water.":gosub 199:print:print "Unfortunately there is absolutely nothing of value here, so you climb back to the room above.":gosub 199:return
500418 print:print "Once you reach the bottom you search all about in the mirky water.":gosub 199:print:print "Just as you are about to give up your foot bangs against something....":gosub 199
500420 print:print "It is a large crate.  You bust the crate open and find treasure!!!":gosub 500422:print:print "You climb back up the rope to the room above.":return

500421 REM THIS IS A NICE GROUP TREASURE FINDER
500422 acca=dlvl+(int(rnd(1)*ml)+1)
500424 a=int(rnd(1)*6)+1:if a=1 then 500440
500426 if a=2 then 500444
500428 if a=3 then 500460
500430 if a=4 then 500475
500436 if a=5 then 500485
500438 if a=6 then 500510
500440 gosub 1200:print:print "It is a stash of ";acca;" ";g$;"s!!  You gather them up and place them into your pack!!":gosub 199:jv1=jv1*acca:gem1=gem1+acca:return
500444 print:print "It is a cache of ";acca;" Jewlery Pieces!!":b=0:grouptrfi=0
500446 grouptrfi=grouptrfi+1:if grouptrfi>acca then 500454
500448 gosub 1235:print "You have found ";x$;" ";j1$;" ";j2$;".":b=b+1:jwl=jwl+jv1
500450 if b=5 then b=0:gosub 199
500452 goto 500446
500454 jwl1=jwl1+acca:gosub 199:return
500460 print:print "It is a stash of ";acca;" Items!!":b=0:grouptrfi=0
500462 grouptrfi=grouptrfi+1:if grouptrfi>acca then 500470
500464 gosub 1430:print "You have found a ";it$;"!"
500466 b=b+1:if b=5 then b=0:gosub 199
500468 goto 500462
500470 print:print "For a total of ";acca;" Items!!":gosub 199:gosub 199:return
500475 print:print "You have found something very Special!":gosub 1400:if ionx=1 then ionx=0:goto 500478
500476 print:print "It is a ";it$;"!!!!"
500478 gosub 199:return
500485 print:print "You have found a cache of Trade Items!!":b=0:grouptrfi=0
500486 grouptrfi=grouptrfi+1:if grouptrfi>acca then 500498
500488 aaa=int(rnd(1)*3)+1:if aaa=1 then gosub 1450
500490 if aaa=2 then gosub 1465
500492 if aaa=3 then gosub 1480
500494 print "You have found ";it$;"!"
500496 b=b+1:if b=5 then b=0:gosub 199
500497 goto 500486
500498 print:print "For a total of ";acca;" Items!!":gosub 199:return
500510 acca=int(acca/2):if acca<=1 then acca=2
500512 print:print "You have found some Damage Items!":a=0:grouptrfi=0
500514 grouptrfi=grouptrfi+1:if grouptrfi>acca then 500524
500516 gosub 1520
500518 print "You have found ";it$;"!"
500520 b=b+1:if b=5 then b=0:gosub 199
500522 goto 500514
500524 print:print "For a total of ";acca;" Items!!":gosub 199:return
500530 REM SRCHING STUFF IN LAIRS::Crypts
500532 print:print "....but you then you decide you could open the crypts if you really wanted to.":gosub 199
500534 crypt=int(rnd(1)*9)+2:print:print "You see ";crypt;" crypts.":gosub 199:aaxxff=0
500536 aaxxff=aaxxff+1:if aaxxff>crypt then print:print "There are no more Crypts to explore...":gosub 199:return
500538 gosub 198:print:print "Do you want to open Crypt ";aaxxff;" (Y/N)";:input a$:gosub 1000
500540 if a$="Y" then 500546
500542 if a$="N" then 500536
500544 goto 500538
500546 b=int(rnd(1)*3)+1:if b=1 then 500556
500548 if b=2 then 500552
500550 print:print "Looks like this Crypt is completely empty...":goto 500536
500552 print:print "You have disturbed an Evil Spirit!":print "It flies out of the Crypt and attacks!":mnx$=mn$:mn$="Evil Spirit":mhpx=mhp:mhp=(int(mhp*5)):mn=1:goldon=1:mobboss=1:ml=dlvl:mg11=mg:mg=mg*3:initp=0:initm=0:mspec=182:gosub 3735:mhp=mhpx:mn$=mnx$:mg=mg11
500554 print:print "You brush yourself off and move on to the next Crypt.":goto 500536
500556 print:print "You bust open the Crypt and find treasure!":gosub 199:a=int(rnd(1)*5)+1:if a=1 then gosub 500422:print:print "You move on to the next Crypt.":gosub 199:goto 500536
500558 b=((int(rnd(1)*mg)+1)*6):g=g+b:print:print "You have found ";b;" Gold!  You now have ";g;" Gold!":print:print "You move on to the next Crypt.":gosub 199:goto 500536
500580 REM SRCHING STUFF IN LAIRS::Wells Dragon Stinger
500582 print:print "You have disturbed an evil Poisonous Dragon Stinger Fish!":gosub 199:print:print "It bears down on you and attacks!":mnx$=mn$:mn$="Poisonous Dragon Stinger Fish":mhpx=mhp:mhp=(int(mhp*5)):mn=1:goldon=1:mobboss=1:mmax11=mmax:mmax=mmax*2:ml=dlvl:mg11=mg:mg=mg*3:initp=0:initm=0:mspec=182:gosub 3735:mhp=mhpx:mmax=mmax11:mn$=mnx$:mg=mg11
500584 print:print "You brush yourself off and move on to the next Crypt.":goto 500536
500600 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then 500602
500601 RETURN
500602 if srch2=1 then srch2=0:goto 500530
500604 if srch3=1 then srch3=0:goto 500400
500606 if srch4=1 then srch4=0:goto 500375
500608 RETURN








600000 REM MONSTER SPECIAL ATTACKS
600001 REM MAX DAMAGE ATTACKS
600002 REM ATTACK 1 CLAW ATTACK
600004 print mn$;" is attacking you with a Claw Attack!"
600006 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600010
600008 print "Luckily the Claw Attack misses!":goto 60030
600010 d=mmax+mmin
600012 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Claw damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600014 goto 60030
600016 REM ATTACK 2 TAIL ATTACK
600018 print mn$;" is slashing at you with it's Tail!"
600020 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600024
600022 print "Luckily the Tail Attack misses!":goto 60030
600024 d=mmax+mmin
600026 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Tail damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600028 goto 60030
600030 REM ATTACK 3 WING ATTACK
600032 print mn$;" is slicing at you with it's Wings!"
600034 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600038
600036 print "Luckily the Wing Attack misses!":goto 60030
600038 d=mmax+mmin
600040 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Wing damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600042 goto 60030
600044 REM ATTACK 4 BITING ATTACK
600046 print mn$;" is Biting at you with full force!"
600048 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600052
600050 print "Luckily the Bite Attack misses!":goto 60030
600052 d=mmax+mmin
600054 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Bite damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600056 goto 60030
600059 REM BREATH WEAPONS
600060 REM ATTACK 5-12 FIRE
600062 print mn$;" is Breathing Fire at you!!"
600064 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600068
600066 print "Luckily it missed!":goto 60030
600068 gosub 600075
600070 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Fire damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600072 goto 60030
600074 REM DAMAGE FINDER ON ALL BREATH WEAPONS
600075 if mspec=5 or mspec=13 or mspec=21 or mspec=29 or mspec=37 then a=20:b=1:goto 600083
600076 if mspec=6 or mspec=14 or mspec=22 or mspec=30 or mspec=38 then a=20:b=20:goto 600083
600077 if mspec=7 or mspec=15 or mspec=23 or mspec=31 or mspec=39 then a=40:b=40:goto 600083
600078 if mspec=8 or mspec=16 or mspec=24 or mspec=32 or mspec=40 then a=80:b=80:goto 600083
600079 if mspec=9 or mspec=17 or mspec=25 or mspec=33 or mspec=41 then a=100:b=100:goto 600083
600080 if mspec=10 or mspec=18 or mspec=26 or mspec=34 or mspec=42 then a=250:b=250:goto 600083
600081 if mspec=11 or mspec=19 or mspec=27 or mspec=35 or mspec=43 then a=500:b=500:goto 600083
600082 if mspec=12 or mspec=20 or mspec=28 or mspec=36 or mspec=44 then d=mhp:return
600083 d=int(rnd(1)*a)+b:return
600085 REM ATTACK 13-20 ICE
600086 print mn$;" is Breathing Ice Shards at you!!"
600088 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600092
600090 print "Luckily it missed!":goto 60030
600092 gosub 600075
600094 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Ice damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600096 goto 60030
600098 REM ATTACK 21-28 SPITTING LAVA
600100 print mn$;" is Spitting Lava at you!!"
600102 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600106
600104 print "Luckily it missed!":goto 60030
600106 gosub 600075
600108 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Lava damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600110 goto 60030
600112 REM ATTACK 29-36 LIGHTNING
600114 print mn$;" is Breathing Lightning at you!!"
600116 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600120
600118 print "Luckily it missed!":goto 60030
600120 gosub 600075
600122 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Lightning damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600124 goto 60030
600126 REM ATTACK 37-44 CHLORINE GAS
600128 print mn$;" is Breathing Chlorine Gas at you!!"
600130 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600134
600132 print "Luckily it missed!":goto 60030
600134 gosub 600075
600136 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Chlorine damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600138 goto 60030
600139 REM HP BASED ATTACKS
600140 REM ATTACK 45 GORE ATTACK
600142 print mn$;" is trying to Gore you!"
600144 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600148
600146 print "Luckily the Gore Attack misses!":goto 60030
600148 d=int(mhp*.25)
600150 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Gore damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600152 goto 60030
600154 REM ATTACK 46 REND ATTACK
600156 print mn$;" is trying to Rend you!"
600158 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600162
600160 print "Luckily the Rend Attack misses!":goto 60030
600162 d=int(mhp*.45)
600164 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Rend damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600166 goto 60030
600168 REM ATTACK 47 GASH ATTACK
600170 print mn$;" is trying to Gash you!"
600172 a=int(rnd(1)*100)+1+mthb-crefl:if a>=10 then 600176
600174 print "Luckily the Gash Attack misses!":goto 60030
600176 d=int(mhp*.65)
600178 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Gash damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600180 goto 60030
600184 REM HEALING SPEC 48-63
600186 if mhp1>int(mhp*.20) then 60010
600188 print mn$;" is casting some sort of Heal spell on ";mn$;" ";mn4;"!!!":gosub 600195
600190 print mn$;" ";mn4;" has been healed for ";a;" points!!!":mhp1=mhp1+a:if mhp1>mhp then mhp1=mhp
600192 if mspec1>0 then mspec=mspec1:mspec1=0
600193 goto 60030
600194 REM HEALING VALUES
600195 if mspec=48 then a=5:b=1:goto 600222
600196 if mspec=49 then a=15:b=1:goto 600222
600197 if mspec=50 then a=5:b=10:goto 600222
600198 if mspec=51 then a=15:b=10:goto 600222
600199 if mspec=52 then a=20:b=20:goto 600222
600200 if mspec=53 then a=40:b=40:goto 600222
600202 if mspec=54 then a=60:b=60:goto 600222
600204 if mspec=55 then a=80:b=80:goto 600222
600206 if mspec=56 then a=100:b=100:goto 600222
600208 if mspec=57 then a=150:b=150:goto 600222
600210 if mspec=58 then a=250:b=250:goto 600222
600212 if mspec=59 then a=350:b=350:goto 600222
600214 if mspec=60 then a=450:b=450:goto 600222
600216 if mspec=61 then a=550:b=550:goto 600222
600218 if mspec=62 then a=900:b=900:goto 600222
600220 if mspec=63 then a=10000:b=10000
600222 a=int(rnd(1)*a)+b:return
600224 REM SPELLS, DAMAGE
600225 REM DAMAGE ROLLER
600226 if mspec=64 or mspec=71 or mspec=78 or mspec=85 or mspec=92 or mspec=99 or mspec=106 or mspec=113 or mspec=120 or mspec=127 or mspec=134 or mspec=141 or mspec=148 or mspec=155 or mspec=162 then a=20:b=1:goto 600234
600227 if mspec=65 or mspec=72 or mspec=79 or mspec=86 or mspec=93 or mspec=100 or mspec=107 or mspec=114 or mspec=121 or mspec=128 or mspec=135 or mspec=142 or mspec=149 or mspec=156 or mspec=163 then a=20:b=20:goto 600234
600228 if mspec=66 or mspec=73 or mspec=80 or mspec=87 or mspec=94 or mspec=101 or mspec=108 or mspec=115 or mspec=122 or mspec=129 or mspec=136 or mspec=143 or mspec=150 or mspec=157 or mspec=164 then a=40:b=40:goto 600234
600229 if mspec=67 or mspec=74 or mspec=81 or mspec=88 or mspec=95 or mspec=102 or mspec=109 or mspec=116 or mspec=123 or mspec=130 or mspec=137 or mspec=144 or mspec=151 or mspec=158 or mspec=165 then a=80:b=80:goto 600234
600230 if mspec=68 or mspec=75 or mspec=82 or mspec=89 or mspec=96 or mspec=103 or mspec=110 or mspec=117 or mspec=124 or mspec=131 or mspec=138 or mspec=145 or mspec=152 or mspec=159 or mspec=166 then a=100:b=100:goto 600234
600231 if mspec=69 or mspec=76 or mspec=83 or mspec=90 or mspec=97 or mspec=104 or mspec=111 or mspec=118 or mspec=125 or mspec=132 or mspec=139 or mspec=146 or mspec=153 or mspec=160 or mspec=167 then a=250:b=250:goto 600234
600232 if mspec=70 or mspec=77 or mspec=84 or mspec=91 or mspec=98 or mspec=105 or mspec=112 or mspec=119 or mspec=126 or mspec=133 or mspec=140 or mspec=147 or mspec=154 or mspec=161 or mspec=168 then a=500:b=500
600234 d=int(rnd(1)*a)+b:return
600235 REM SPELLS, DAMAGE, FIRE 64-70
600236 print mn$;" is Casting a Fire Spell!  Flames shoot out from it's body!!"
600238 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600242
600240 print "Luckily the Fire Spell misses!":goto 60030
600242 gosub 600226
600244 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Fire damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600246 goto 60030
600248 REM SPELLS, DAMAGE, ICE 71-77
600250 print mn$;" is Casting a Ice Spell!  Ice Shards shoot out from it's eyes!!"
600252 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600256
600254 print "Luckily the Ice Spell misses!":goto 60030
600256 gosub 600226
600257 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Ice damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600258 goto 60030
600260 REM SPELLS, DAMAGE, POWER 78-84
600262 print mn$;" is Casting a Power Spell!  White Heat shoots out from it's head!!"
600264 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600268
600266 print "Luckily the Power Spell misses!":goto 60030
600268 gosub 600226
600269 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Power damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600270 goto 60030
600272 REM SPELLS, DAMAGE, LIGHTNING 85-91
600274 print mn$;" is Casting a Lightning Spell!  Lightning Bolts shoot out from it's hands!!"
600276 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600280
600278 print "Luckily the Lightning Spell misses!":goto 60030
600280 gosub 600226
600282 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Lightning damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600284 goto 60030
600286 REM SPELLS, DAMAGE, ACID 92-98
600288 print mn$;" is Casting a Acid Spell!  Acid shoots out from it's body!!"
600290 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600294
600292 print "Luckily the Acid Spell misses!":goto 60030
600294 gosub 600226
600295 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Acid damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600296 goto 60030
600298 REM SPELLS, DAMAGE, EARTHQUAKE 99-105
600300 print mn$;" is Casting a Earthquake Spell!  The ground shakes beneath you and chunks of stone come flying down from above!!"
600302 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600306
600304 print "Luckily the Earthquake Spell misses!":goto 60030
600306 gosub 600226
600308 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Earthquake damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600310 goto 60030
600312 REM SPELLS, DAMAGE, BLADES 106-112
600314 print mn$;" is Casting Lynin's Blade Spell!  Blades of all shapes and sizes come flying at you!!"
600316 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600320
600318 print "Luckily the Blade Spell misses!":goto 60030
600320 gosub 600226
600322 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Blade damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600324 goto 60030
600326 REM SPELLS, DAMAGE, HAMMERS 113-119
600328 print mn$;" is Casting Gwartax's Hammer Spell!  Hammers of all shapes and sizes come flying at you!!"
600330 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600334
600332 print "Luckily the Hammer Spell misses!":goto 60030
600334 gosub 600226
600336 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Hammer damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600338 goto 60030
600340 REM SPELLS, DAMAGE, VINES 120-126
600342 print mn$;" is Casting a Vine Spell!  Barbed Vines grow from the ground and slash at you!!"
600344 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600348
600346 print "Luckily the Vine Spell misses!":goto 60030
600348 gosub 600226
600350 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Vine damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600352 goto 60030
600354 REM SPELLS, DAMAGE, DEATH GRIP 127-133
600356 print mn$;" is Casting a Death Grip Spell!  It is trying to reach out and grab you!!"
600358 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600362
600360 print "Luckily the Death Grip Spell misses!":goto 60030
600362 gosub 600226
600364 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Death Grip damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600366 goto 60030
600368 REM SPELLS, DAMAGE, METEOR 134-140
600370 print mn$;" is Casting a Meteor Spell!  Chunks of blackened rock fall from above and attempt to hit you!!"
600372 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600376
600374 print "Luckily the Meteor Spell misses!":goto 60030
600376 gosub 600226
600378 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Meteor damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600380 goto 60030
600382 REM SPELLS, DAMAGE, NOVA 141-147
600384 print mn$;" is Casting a Nova Spell!  A single white ball of light appears in front of you, then grows until it's close to you, then detonates!!"
600386 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600390
600388 print "Luckily the Nova Spell misses!":goto 60030
600390 gosub 600226
600392 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Nova damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600394 goto 60030
600396 REM SPELLS, DAMAGE, ICE HAIL 148-154
600398 print mn$;" is Casting a Ice Hail Spell!  Chunks of white and blue shards rain down upon you!!"
600400 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600404
600402 print "Luckily the Ice Hail Spell misses!":goto 60030
600404 gosub 600226
600406 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Ice Hail damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600408 goto 60030
600410 REM SPELLS, DAMAGE, LIGHTNING STORM 155-161
600412 print mn$;" is Casting a Lightning Storm Spell!  Thick blue bolts of electricity rain down upon you!!"
600414 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600418
600416 print "Luckily the Lightning Storm Spell misses!":goto 60030
600418 gosub 600226
600420 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Lightning Storm damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600422 goto 60030
600424 REM SPELLS, DAMAGE, LAVA BLAST 162-168
600426 print mn$;" is Casting a Lava Blast Spell!  Thick red lava blasts out from the palm of it's hand!!"
600428 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600432
600430 print "Luckily the Lava Blast Spell misses!":goto 60030
600432 gosub 600226
600434 gosub 198:print "The ";mn$;" has hit you for ";d;" points of Lava Blast damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600436 goto 60030
600438 REM SPELLS, SUMMONING
600440 if mspec=169 then mmmm=8
600442 if mspec=170 then mmmm=10
600444 if mspec=171 then mmmm=15
600446 if mspec=172 then mmmm=20
600448 if mspec=173 then mmmm=25
600449 if mspec=174 then mmmm=30
600450 if mspec=175 then mmmm=35
600452 if mspec=176 then mmmm=40
600454 if mn>mmmm then 60010
600456 print mn$;" is trying to summon allies!!":a=int(rnd(1)*3)+1:if a=1 then 600460
600458 print "Luckily nothing shows up to it's aide....":goto 60030
600460 print "Another ";mn$;" comes to it's aide!!":mn3=mn3+1:mn=mn+1:goto 60030
600463 REM POISON, STUN, SLEEP, HOLD, STOPPED
600464 REM POISON 177
600466 if caff1>100 then 60010
600468 print mn$;" is attempting to hit you!"
600470 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600473
600472 print "Luckily it misses!":goto 60030
600473 d=(int(rnd(1)*(mmax-mmin))+mmin+mdamb)-car
600474 gosub 198:print "The ";mn$;" has hit you for ";d;" points of damage!":print "You have been POISONED!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600476 caff1=caff1+(int(rnd(1)*ml)+1):goto 60030
600480 REM POISON AT TURN
600482 if caff1=0 then return
600484 print:print "You have taken ";caff1;" points of Poison Damage!":caff1=caff1-1:gosub 198:hp=hp-caff1:dx=dx+caff1:if hp<=0 then hp=1:print:print "The Poison Dissapates from your system....":print "HP = ";hp;"/";thp;".":caff1=0:return
600486 print "HP = ";hp;"/";thp;".":if caff1<=0 then print:print "You have Recovered from the Poison.  You will no longer take damage....":return
600488 return
600489 REM STUN 178
600490 if caff2=1 then 60010
600492 print mn$;" is attempting to hit you!"
600494 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600498
600496 print "Luckily it misses!":goto 60030
600498 d=(int(rnd(1)*(mmax-mmin))+mmin+mdamb)-car
600500 gosub 198:print "The ";mn$;" has hit you for ";d;" points of damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600502 a=int(rnd(1)*1000)+1+con1:if a>900 then print "You feel like some sort of power dissapates upon hitting you....":goto 60030
600504 print "You have been STUNNED!":caff2=1:xrstun=int(rnd(1)*800)+1:goto 60030
600506 REM STUNNED AT TURN
600508 if caff2=0 then return
600510 a=int(rnd(1)*950)+1+con1:if a>900 then print:print "You overcome the Stun Attack and are able to move again....":caff2=0:xrstun=0:return
600512 xrstun=xrstun+int(iq1/4)+con1:if xrstun>900 then print:print "The effects of the Stun Attack have worn off and you are able to move again....":caff2=0:xrstun=0:return
600514 print:print "You are still STUNNED!!  You lose your turn!!":return
600516 REM SLEEP 179
600518 if caff3=1 then 60010
600520 print mn$;" is attempting to hit you!"
600522 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600526
600524 print "Luckily it misses!":goto 60030
600526 d=(int(rnd(1)*(mmax-mmin))+mmin+mdamb)-car
600528 gosub 198:print "The ";mn$;" has hit you for ";d;" points of damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600530 a=int(rnd(1)*1000)+1+con1+iq1:if a>900 then print "You feel like some sort of power dissapates upon hitting you....":goto 60030
600532 print "You have FALLEN ASLEEP!":caff3=1:xrsleep=int(rnd(1)*800)+1:goto 60030
600534 REM SLEPT AT TURN
600536 if caff3=0 then return
600538 a=int(rnd(1)*950)+1+con1+iq1:if a>900 then print:print "You have woken up....":caff3=0:xrsleep=0:return
600540 xrsleep=xrsleep+int(iq1/2)+con1:if xrsleep>900 then print:print "The effects of the Sleep Attack have worn off....":caff3=0:xrsleep=0:return
600542 print:print "You are still ASLEEP!!  You lose your turn!!":return
600544 REM HOLD 180
600546 if caff4=1 then 60010
600548 print mn$;" is attempting to hit you!"
600550 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600554
600552 print "Luckily it misses!":goto 60030
600554 d=(int(rnd(1)*(mmax-mmin))+mmin+mdamb)-car
600556 gosub 198:print "The ";mn$;" has hit you for ";d;" points of damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600558 a=int(rnd(1)*1000)+1+iq1:if a>900 then print "You feel like some sort of power dissapates upon hitting you....":goto 60030
600560 print "You have been HELD!  Your body freezes up and you are unable to move!!!":caff4=1:xrhold=int(rnd(1)*800)+1:goto 60030
600562 REM HELD AT TURN
600564 if caff4=0 then return
600566 a=int(rnd(1)*950)+1+iq1:if a>900 then print:print "You overcome the Hold Attack and are able to move again....":caff4=0:xrhold=0:return
600568 xrhold=xrhold+int(iq1/2)+con1:if xrhold>900 then print:print "The effects of the Hold Attack have worn off....":caff4=0:xrhold=0:return
600570 print:print "You are still HELD!!  You lose your turn!!":return
600572 REM STOPPED 181
600574 if caff5=1 then 60010
600576 print mn$;" is attempting to hit you!"
600578 a=int(rnd(1)*100)+1+mthb:if a>=10 then 600582
600580 print "Luckily it misses!":goto 60030
600582 d=(int(rnd(1)*(mmax-mmin))+mmin+mdamb)-car
600584 gosub 198:print "The ";mn$;" has hit you for ";d;" points of damage!":gosub 198:hp=hp-d:dx=dx+d:if hp<=0 then 3500
600586 a=int(rnd(1)*1000)+1:if a>900 then print "You feel like some sort of power dissapates upon hitting you....":goto 60030
600588 print "You have been STOPPED!  Your body freezes up and you cannot move!!!":caff5=1:xrstop=int(rnd(1)*800)+1:goto 60030
600590 REM STOPPED AT TURN
600592 if caff5=0 then return
600594 a=int(rnd(1)*950)+1:if a>900 then print:print "You have overcome the Stop Attack....":caff5=0:xrstop=0:return
600596 xrstop=xrstop+int(iq1/2)+int(con1/2):if xrstop>900 then print:print "The effects of the Stop Attack have worn off....":caff5=0:xrstop=0:return
600598 print:print "You are still STOPPED!!  You lose your turn!!":return



700000 REM WILL THEY USE THE SPECIAL ATTACKS?
700002 if mspec=1 then 750000
700003 if mspec=2 then 750004
700004 if mspec=3 then 750008
700005 if mspec=4 then 750012
700006 if mspec>=5 and mspec<=12 then 750016
700007 if mspec>=13 and mspec<=20 then 750020
700008 if mspec>=21 and mspec<=28 then 750024
700009 if mspec>=29 and mspec<=36 then 750028
700010 if mspec>=37 and mspec<=44 then 750032
700011 if mspec=45 then 750036
700012 if mspec=46 then 750040
700013 if mspec=47 then 750044
700014 if mspec>=48 and mspec<=63 then 750048
700015 if mspec>=64 and mspec<=70 then 750052
700016 if mspec>=71 and mspec<=77 then 750056
700017 if mspec>=78 and mspec<=84 then 750060
700018 if mspec>=85 and mspec<=91 then 750064
700019 if mspec>=92 and mspec<=98 then 750068
700020 if mspec>=99 and mspec<=105 then 750072
700022 if mspec>=106 and mspec<=112 then 750076
700024 if mspec>=113 and mspec<=119 then 750080
700026 if mspec>=120 and mspec<=126 then 750084
700028 if mspec>=127 and mspec<=133 then 750088
700030 if mspec>=134 and mspec<=140 then 750092
700031 if mspec>=141 and mspec<=147 then 750096
700032 if mspec>=148 and mspec<=154 then 750100
700033 if mspec>=155 and mspec<=161 then 750104
700034 if mspec>=162 and mspec<=168 then 750108
700035 if mspec>=169 and mspec<=176 then 750112
700036 if mspec=177 then 750116
700037 if mspec=178 then 750120
700038 if mspec=179 then 750124
700039 if mspec=180 then 750128
700040 if mspec=181 then 750132
700042 if mspec=182 then 750134
700099 goto 60010




750000 a=int(rnd(1)*5)+1:if a=1 then 600002
750002 goto 60010
750004 a=int(rnd(1)*5)+1:if a=1 then 600016
750006 goto 60010
750008 a=int(rnd(1)*5)+1:if a=1 then 600030
750010 goto 60010
750012 a=int(rnd(1)*5)+1:if a=1 then 600044
750014 goto 60010
750016 a=int(rnd(1)*5)+1:if a=1 then 600060
750018 goto 60010
750020 a=int(rnd(1)*5)+1:if a=1 then 600085
750022 goto 60010
750024 a=int(rnd(1)*5)+1:if a=1 then 600098
750026 goto 60010
750028 a=int(rnd(1)*5)+1:if a=1 then 600112
750030 goto 60010
750032 a=int(rnd(1)*5)+1:if a=1 then 600126
750034 goto 60010
750036 a=int(rnd(1)*5)+1:if a=1 then 600140
750038 goto 60010
750040 a=int(rnd(1)*5)+1:if a=1 then 600154
750042 goto 60010
750044 a=int(rnd(1)*5)+1:if a=1 then 600168
750046 goto 60010
750048 a=int(rnd(1)*5)+1:if a=1 then 600184
750050 goto 60010
750052 a=int(rnd(1)*5)+1:if a=1 then 600235
750054 goto 60010
750056 a=int(rnd(1)*5)+1:if a=1 then 600248
750058 goto 60010
750060 a=int(rnd(1)*5)+1:if a=1 then 600260
750062 goto 60010
750064 a=int(rnd(1)*5)+1:if a=1 then 600272
750066 goto 60010
750068 a=int(rnd(1)*5)+1:if a=1 then 600286
750070 goto 60010
750072 a=int(rnd(1)*5)+1:if a=1 then 600298
750074 goto 60010
750076 a=int(rnd(1)*5)+1:if a=1 then 600312
750078 goto 60010
750080 a=int(rnd(1)*5)+1:if a=1 then 600326
750082 goto 60010
750084 a=int(rnd(1)*5)+1:if a=1 then 600340
750086 goto 60010
750088 a=int(rnd(1)*5)+1:if a=1 then 600354
750090 goto 60010
750092 a=int(rnd(1)*5)+1:if a=1 then 600368
750094 goto 60010
750096 a=int(rnd(1)*5)+1:if a=1 then 600382
750098 goto 60010
750100 a=int(rnd(1)*5)+1:if a=1 then 600396
750102 goto 60010
750104 a=int(rnd(1)*5)+1:if a=1 then 600410
750106 goto 60010
750108 a=int(rnd(1)*5)+1:if a=1 then 600424
750110 goto 60010
750112 a=int(rnd(1)*5)+1:if a=1 then 600440
750114 goto 60010
750116 a=int(rnd(1)*5)+1:if a=1 then 600464
750118 goto 60010
750120 a=int(rnd(1)*5)+1:if a=1 then 600489
750122 goto 60010
750124 a=int(rnd(1)*5)+1:if a=1 then 600516
750126 goto 60010
750128 a=int(rnd(1)*5)+1:if a=1 then 600544
750130 goto 60010
750132 a=int(rnd(1)*5)+1:if a=1 then 600572
750134 a=int(rnd(1)*8)+1:if a=1 then 600044
750135 if a=2 then mspec1=182:mpspec=55:goto 600184
750137 if a=3 then 600464
750140 goto 60010


800000 if dlvl=1 then mn$="Giant Toad":mspec=177
800002 if dlvl=2 then mn$="Black Scorpion":mspec=177
800004 if dlvl=3 then mn$="Wax Giant":mspec=92
800006 if dlvl=4 then mn$="Jelly Killer":mspec=178
800008 if dlvl=5 then mn$="Heart Eater":mspec=47
800010 if dlvl=6 then mn$="Hollow Giant":mspec=78
800012 if dlvl=7 then mn$="Demegorgon":mspec=30
800014 if dlvl=8 then mn$="Chill Child":mspec=149
800016 if dlvl=9 then mn$="Great Tortoise":mspec=45
800018 if dlvl=10 then mn$="Iat Hound":mspec=180
800020 if dlvl=11 then mn$="Servert":mspec=128:matt1=2:matt=2
800022 if dlvl=12 then mn$="Jinne":matt1=2:matt=2:mspec=100
800024 if dlvl=13 then mn$="Brainstem":matt1=2:matt=2:mspec=86
800026 if dlvl=14 then mn$="Goat God":matt1=2:matt=2:mspec=38
800028 if dlvl=15 then mn$="Dhant":matt1=2:matt=2:mspec=156
800030 if dlvl=16 then mn$="Polargeist":matt1=2:matt=2:mspec=1
800032 if dlvl=17 then mn$="Black Djinn":matt1=2:matt=2:mspec=163
800034 if dlvl=18 then mn$="Black Giant":matt1=2:matt=2:mspec=135
800036 if dlvl=19 then mn$="Killerosk":matt1=2:matt=2:mspec=14
800038 if dlvl=20 then mn$="Owlbear":matt1=2:matt=2:mspec=177
800040 if dlvl=21 then mn$="Flametongue":matt1=2:matt=2:mspec=182
800042 if dlvl=22 then mn$="Eiger":matt1=2:matt=2:mspec=183
800044 if dlvl=23 then mn$="Planetorn":matt1=2:matt=2:mspec=184
800046 if dlvl=24 then mn$="Ferret Dragon":matt1=2:matt=2:mspec=185
800048 if dlvl=25 then mn$="Eel Horn":matt1=2:matt=2:mspec=186
800050 if dlvl=26 then mn$="Intelinate":matt1=2:matt=2:mspec=187
800052 if dlvl=27 then mn$="Limsk":matt1=2:matt=2:mspec=188
800054 if dlvl=28 then mn$="Tra'an":matt1=2:matt=2:mspec=189
800056 if dlvl=29 then mn$="Horgoth":matt1=2:matt=2:mspec=190
800058 if dlvl=30 then mn$="Lion Deity":matt1=3:matt=3:mspec=191

890000 mhp=dlvl*50:mmax=cmax:mmin=cmin:mxp=5*dlvl:mg=50*dlvl:mn=1:ml=dlvl+10
890002 a=int(rnd(1)*6)+1:if a=1 then a$="dark bluish mist"
890004 if a=2 then a$="greenish mist"
890006 if a=3 then a$="bright white light"
890008 if a=4 then a$="purplish fog"
890010 if a=5 then a$="black vapors"
890012 if a=6 then a$="blood red fog"
890020 print:print "Before you can descend, a ";a$;" appears.  It soon dissipates and in its place stands the boss of this level, who promply attacks!!!":gosub 199:goldon=1:mobboss=1:gosub 3735
890022 print:gosub 198:print "With the Boss of this level Dead, you may now continue onto the Next Level!  Gratz!":gosub 198:gosub 199:return
















900000 REM MyRE
900002 cls:city=2:gosub 2700
900004 gosub 198:gosub 198:gosub 198:print "City of Myre"
900006 GOSUB 198:GOSUB 198:GOSUB 198:print "From here you may do the following:"
900008 print "[M]       Maraline Temple                                      **Heal yourself and get Better / Buy Healing Items**"
900010 print "[R]        Rogue's Gallery                                       **Buy Weapons and Armor / Buy/Sell Trade Items / Hear Rumors and Be Merry**"
900012 print "[A]        Azar's Relics                                           **Buy Magical Relics**"
900014 print "[S]        Summoner's                                            **Buy Magic Spells"
900016 print "[J]        Jeweler                                                   **Sell your Gems and Jewels**"
900018 print "[B]        Go to the Myre Bank                                **Bank Your Gold to Keep it Safe**"
900020 print "[CO]     Go to Castle's Courtyard                           **Visit the Castle of Varsailles**"
900022 print "[L]        Leave the City of Myre                              **Head Out!**"
900024 GOSUB 198:print "::HP = ";hp;"/";thp;" :: MP = ";mp;"/";tmp;" :: Gold = ";g;" :: Gems = ";gem1;" :: Jewels = ";jwl1;" :: Gold In Bank = ";acc;"  ::  type STAT for more info.":gosub 198:print:print "Which do you want to do (M, R, A, S, J, B, CO, L)";:Input a$
900026 gosub 1000
900028 if a$="M" then 900045
900030 if a$="R" then 901000
900032 if a$="A" then END
900034 if a$="S" then END
900036 if a$="J" then gosub 902000
900038 if a$="B" then gosub 2620:goto 900002
900040 if a$="CO" then 903002
900042 if a$="L" then print:print "You leave the city of Myre.":goto 21180
900044 cls:goto 900002

900045 cls:areat=15:gosub 198:print "Maraline Temple":gosub 198
900047 print:print "White marble arches with gold accents lead to to 2 gold doors.  Inside Neophytes rush about doing various chores.  A beautiful young elvish girl":print "sits at a desk and smiles when you walk up.  Her face radiates cheer and, in a very caring manner, she ask's"
900049 print:print "'Oi, what ye want.....  ([H]eal or [B]uy Healing Items or [L]eave)'";:input a$:gosub 1000
900050 if a$="H" then 900075
900052 if a$="B" then 900090
900054 if a$="L" then print:print "You leave Maraline Temple....":gosub 199:goto 900002
900075 REM Healing Maraline
900076 if hp=thp and mp=tmp then print:print "'Oi, wait a minute!  Yer not in need of 'healing, now, is ye?  Get on witcha......'":gosub 199:goto 900044
900078 c=int(((thp-hp)+(tmp-mp))/1000):print:print "To be roight fully 'ealed, it will cost ye ";c;" Gold.":if g<c then print:print "'Oi, looks like ye be in teh poorhouse.  Scram, you!'":gosub 199:goto 900045
900079 print:print "'Would ye like to be 'ealed (Y/N)";:input a$:gosub 1000
900080 if a$="Y" then g=g-c:hp=thp:mp=tmp:print:print "You are fully healed:  HP = ";hp;"/";thp;"  ::  MP = ";mp;"/";tmp;".":gosub 199:goto 900045
900082 if a$="N" then print:print "'Pfff, fine then.....'":gosub 199:goto 900045
900084 goto 900079
900090 REM Healing Shop Maraline
900092 CLS:GOSUB 198:print "Welcome ye to the 'ealing Items section of Maraline!"
900094 GOSUB 198:print "Item                              Cost                                      Effect                                                                  You have":GOSUB 198
900096         print "1.  Herb                         20                                       Heals 10-50 hps                                                            ";it1
900098         print "2.  Herb2                       200                                      Heals 25-250 hps                                                          ";it2
900100         print "3.  Herb3                       400                                      Heals 100-500 hps                                                        ";it3
900102         print "4.  Herb4                       1000                                    Heals 250-1000 hps                                                       ";it4
900104         print "5.  Manashroom             50                                       Heals 10-30 mana                                                          ";it5
900106         print "6.  Manashroom2           100                                      Heals 25-75 mana                                                          ";it6
900108         print "7.  Manashroom3           300                                      Heals 50-150 mana                                                         ";it7
900110         print "8.  Manashroom4           750                                      Heals 75-250 mana                                                         ";it8
900112 GOSUB 198:print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
900114 print:print "Which did you want to buy (1-4, 99 to exit)";:input a:if a=99 then gosub 199:goto 900045
900116 if a=1 then c=20:goto 900134
900118 if a=2 then c=200:goto 900134
900120 if a=3 then c=400:goto 900134
900122 if a=4 then c=1000:goto 900134
900124 if a=5 then c=50:goto 900134
900126 if a=6 then c=100:goto 900134
900128 if a=7 then c=300:goto 900134
900130 if a=8 then c=750:goto 900134
900132 goto 900092
900134 if g<c then PRINT:GOSUB 198:print "You dont have enough money to buy this item!  Gold:  ";g:gOSUB 198:gosub 199:goto 900092
900136 print:print "You may buy up to ";int(g/c);" of this item."
900138 print:print "How many did you want to buy (0 to exit)?";:input b:if b=0 then GOSUB 199:goto 900092
900140 n=b*c:if n>g then print:print "You dont have enough money!":GOSUB 199:goto 900092
900142 g=g-n:if a=1 then it1=it1+b:print:print "You buy ";b;" Herbs.  Gold = ";g;".":GOSUB 199:goto 900092
900144 if a=2 then it2=it2+b:print:print "You buy ";b;" Herb2s.  Gold = ";g;".":GOSUB 199:goto 900092
900146 if a=3 then it3=it3+b:print:print "You buy ";b;" Herb3s.  Gold = ";g;".":GOSUB 199:goto 900092
900148 if a=4 then it4=it4+b:print:print "You buy ";b;" Herb4s.  Gold = ";g;".":GOSUB 199:goto 900092
900150 if a=5 then it5=it5+b:print:print "You buy ";b;" Manashrooms.  Gold = ";g;".":GOSUB 199:goto 900092
900152 if a=6 then it6=it6+b:print:print "You buy ";b;" Manashroom2s.  Gold = ";g;".":GOSUB 199:goto 900092
900154 if a=7 then it7=it7+b:print:print "You buy ";b;" Manashroom3s.  Gold = ";g;".":GOSUB 199:goto 900092
900156 if a=8 then it8=it8+b:print:print "You buy ";b;" Manashroom4s.  Gold = ";g;".":GOSUB 199:goto 900092
900158 goto 900092

901000 REM ROgUEs GallERY
901002 cls:areat=16:gosub 198:print "The Rogue's Gallery":gosub 198
901004 print:print "The entire structure is made of blackened wood and is very dark and disturbing looking.  Inside is an entirely different atmosphere, though, as":print "elves, dwarves, humans and other races laugh and sing heartily.  You look around it seems there are"
901006 print "endless amounts of things to do.  You take a step in and a radiant elven man steps up and says,"
901008 print:print "'Oi, I be 'ere to 'elp ye.....  What be ye pois'n:'":if rogues1=1 then 901018
901010 print "'Ye could do a little [G]amblin', or per'aps hear ye a [R]umor or 2, o' maybee ye wants to buy ye some roight noice [A]dventuring Gear from yonder shop.'":gosub 199
901012 print "'Ye might also be interested in [S]elling Trade It'ms, or mayhaps [B]uy ye a few Trade It'ms as well, or getting rid of some ol [J]unk ye don't want anymore?'":gosub 199
901014 print "'Well, there also be a roight fine Smithy 'ere as well, hrrrmmm...  'e be able to [O]utfit ye with a roight nice setup, 'e will, also gots some [U]pgrades, 'e does.'":gosub 199
901016 print "Beyond thait, we gots a roight beauty of a [M]ission Setup as well, if ye be feelin the adventurin sort.....'":rogues1=1:gosub 199:print "'Which be it:"
901018 print:print "'[G]amble                                      [R]umor                    Buy [A]dventuring Gear"
901020         print "[S]ell Trade Items                          [B]uy Trade Items     Sell [J]unk Items"
901022         print "[O]utfit Armor/Weapons      Browse [U]pgrades"
901024         print "[M]ission Areas                             [L]eave the Rogue's Gallery";:input a$:gosub 1000
901026 if a$="G" then gosub 400000
901028 if a$="R" then 901046
901030 if a$="A" then 901100
901032 if a$="S" then x=2:goto 901200
901034 if a$="B" then x=1:goto 901200
901036 if a$="J" then 901340
901038 if a$="O" then end
901040 if a$="U" then end
901042 if a$="M" then end
901043 if a$="L" then print:print "You leave the Gallery.":gosub 199:goto 900002
901044 goto 901002
901046 a=int(rnd(1)*11)+1:if a=1 then print:print "'Treehouses, located in Forest sections in the Caves of Despair, contain not only ":print "harder monsters than the current level houses, but also better treasure to find.....'"
901048 if a=2 then print:print "'Boxes in the Caves of Despair may not always be what they look like.  Creatures that look like boxes,":print "called Mimics, lie in wait for the unsuspecting adventurer, and are quite hard to beat, at any level of the Dungeon.....'"
901050 if a=3 then print:print "'Monster Lairs, although containing only 1 type of monster, are filled with good treasure.  Vanquish":print "the evil of the lair and collect whats rightfully yours!'"
901052 if a=4 then print:print "'Traps in the Caves of Despair come in many different sizes and shapes, but I'd like to tell you about pit traps.":print "At the bottom of a pit trap there could be either nothing, or water, or spikes.  Water cushions the fall, reducing":print "damage.  Spikes increase damage.  Also there may be secret doors down there, so make sure you SRCH...'"
901054 if a=5 then print:print "'Monsters at the Fire Mountains have various Fire Attacks that cause massive damage!  Be very careful if you go there....'"
901056 if a=6 then print:print "'Pentagrams located in Temple areas in the Caves of Despair are very dangerous devices.  They are gateways to":print "the Hells and unspeakable things could come through it if it is opened....'"
901058 if a=7 then print:print "'The more armor you have, the less damage you will take.  Get armor as soon as you can and upgrade as much":print "as you can.  Unfortunately the cost to upgrade goes up each time you do so...'"
901060 if a=8 then print:print "'The more you cast spells, the higher of level the spell will become.  It will add to whatever it does when it reaches":print "a new level, from adding damage healed if its a heal spell, to adding to the duration the spell lasts for other":print "kinds of spells.  The drawback is that the mana cost is also increased by 1....'"
901062 if a=9 then print:print "'Weapon Experience is very important, because the more powerful the weapon is, the more damage it will do.  If you":print "die and they take your weapon, you will have to buy a new weapon and start all over again.  Luckily, the":print "weapon specialty level goes up faster when fighting harder monsters, so it should be right as rain in no time....'"
901064 if a=10 then print:print "'The Caves of Despair is not a place where a room connects to another room, but a constant shifting of magical forces.":print "What was there one time may not be there the next time you go back to the Caves, or for that matter, if you leave the":print "room and come back it will be an entirely new room.  It is this horrible magic that has cost so many their lives.  You get lost in there, you're done for....'"
901066 if a=11 then print:print "'Prisoners - people dumb enough to get caught by the inhabitants of the Caves of Despair - are scattered about in Cell Blocks":print "and other places.  Free them and lead them to the start of the Caves.  This will bring you good":print "fortune later on.........'"
901068 GOSUB 198:GOSUB 199:goto 901002
901100 cls:gosub 198:print ":: Sean's Tavern ::":print "'Have ye a look at me fine wares...'":gosub 198
901102 print              "    Item                                          Description                                       Cost                                Owned"
901104 print              "1.  Rope, 40'                            An Adventuring Necessity                      50 Gold                                ";un1
901106 print              "2.  Grappling Hook                   Used to Reach High Up Places             200 Gold                                ";un2:gosub 198: print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
901108 print:print "Which would you like to buy (1-2, 99 to exit)";:input a:if a=99 THEN CLS:GOTO 901002
901110 if a=1 and un1=0 then c=50:goto 901116
901112 if a=2 and un2=0 then c=200:goto 901116
901114 goto 901100
901116 if g<c then print:print "You dont have enough money!  Gold = ";g;".":gosub 199:goto 901100
901118 if a=1 then g=g-50:un1=1:print:print "You now have a 40' Rope!":gosub 199:goto 901100
901120 if a=2 then g=g-200:un2=1:print:print "You now have a Grappling Hook!":gosub 199:goto 901100

901200 REM Trade Shops
901202 CLS
901204 GOSUB 198:print "   Type                            Current Cost                                             You Have":gosub 198
901206 print "1.    Cloth                               ";ttt1;"        (range 150-250)                                ";it9
901208 print "2.    Velvet                              ";ttt2;"        (range 260-460)                               ";it10
901210 print "3.    Silk                                 ";ttt3;"         (range 370-670)                               ";it11
901212 print "4.    Leather                            ";ttt4;"         (range 480-880)                               ";it12
901214 print "5.    Dreamweave                    ";ttt5;"         (range 539-1039)                             ";it13
901216 print "6.    Cord                                ";ttt6;"         (range 539-1039)                             ";it14
901218 print "7.    Steel                               ";ttt7;"         (range 160-260)                               ";it15
901220 print "8.    Lead                               ";ttt8 ;"         (range 270-470)                               ";it16
901222 print "9.    Iron                                 ";ttt9  ;"         (range 380-680)                                ";it17
901224 print "10.  Admantium                      ";ttt10;"         (range 539-1039)                               ";it18
901226 print "11.  Spikes                            ";ttt11;"          (range 120-220)                                ";it19
901228 print "12.  Talons                            ";ttt12;"          (range 130-230)                                ";it20
901230 print "13.  Teeth                              ";ttt13;"          (range 140-340)                                ";it21
901232 print "14.  Ears                               ";ttt14;"          (range 200-500)                                ";it22
901234 print "15.  Scales                            ";ttt15;"          (range 300-780)                                ";it23
901236 print "16.  Bladders                         ";ttt16;"          (range 400-1080)                              ";it24
901238 print "17.  Eyes                              ";ttt17;"           (range 500-1330)                              ";it25:gosub 198: print "{{{:::  Gold   ";g;"  :::::::::}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}"
901240 if x=1 then print:print "Which would you like to buy (1-17, 99 to exit)";:input a:goto 901288
901242 print:print "Which would you like to sell (1-17, 99 to exit, 100 to SELL ALL)";:input a:if a=1 and it9>0 then vxv=ttt1: n=it9:gosub 3080:it9=it9-v:gosub 199:goto 901202
901244 if a=2 and it10>0 then vxv=ttt2:n=it10:gosub 901282:it10=it10-v:gosub 199:goto 901202
901246 if a=3 and it11>0 then  vxv=ttt3:n=it11:gosub 901282:it11=it11-v:gosub 199:goto 901202
901248 if a=4 and it12>0 then  vxv=ttt4:n=it12:gosub 901282:it12=it12-v:gosub 199:goto 901202
901250 if a=5 and it13>0 then  vxv=ttt5:n=it13:gosub 901282:it13=it13-v:gosub 199:goto 901202
901252 if a=6 and it14>0 then  vxv=ttt6:n=it14:gosub 901282:it14=it14-v:gosub 199:goto 901202
901254 if a=7 and it15>0 then  vxv=ttt7:n=it15:gosub 901282:it15=it15-v:gosub 199:goto 901202
901256 if a=8 and it16>0 then  vxv=ttt8:n=it16:gosub 901282:it16=it16-v:gosub 199:goto 901202
901258 if a=9 and it17>0 then  vxv=ttt9:n=it17:gosub 901282:it17=it17-v:gosub 199:goto 901202
901260 if a=10 and it18>0 then  vxv=ttt10:n=it18:gosub 901282:it18=it18-v:gosub 199:goto 901202
901262 if a=11 and it19>0 then  vxv=ttt11:n=it19:gosub 901282:it19=it19-v:gosub 199:goto 901202
901264 if a=12 and it20>0 then  vxv=ttt12:n=it20:gosub 901282:it20=it20-v:gosub 199:goto 901202
901266 if a=13 and it21>0 then vxv=ttt13: n=it21:gosub 901282:it21=it21-v:gosub 199:goto 901202
901268 if a=14 and it22>0 then  vxv=ttt14:n=it22:gosub 901282:it22=it22-v:gosub 199:goto 901202
901270 if a=15 and it23>0 then  vxv=ttt15:n=it23:gosub 901282:it23=it23-v:gosub 199:goto 901202
901272 if a=16 and it24>0 then  vxv=ttt16:n=it24:gosub 901282:it24=it24-v:gosub 199:goto 901202
901274 if a=17 and it25>0 then  vxv=ttt17:n=it25:gosub 901282:it25=it25-v:gosub 199:goto 901202
901276 if a=99 then 901002
901278 if a=100 then gosub 901346
901280 goto 901202
901282 print "How much will you sell (1-";n;", 0 to exit)";:input a:if a>n or a< 0 then print:print "Please try again.":Goto 901282
901284 if a=0 then 901242
901286 v=a:n=0:g=g+(vxv*a):print "Gold = ";g:return
901288 if a=1 then vxv=ttt1:gosub 901326:it9=it9+v:g=g-n:gosub 199:goto 901202
901290 if a=2 then vxv=ttt2:gosub 901326:it10=it10+v:g=g-n:gosub 199:goto 901202
901292 if a=3 then vxv=ttt3: gosub 901326:it11=it11+v:g=g-n:gosub 199:goto 901202
901294 if a=4 then vxv=ttt4: gosub 901326 :it12=it12+v:g=g-n:gosub 199:goto 901202
901296 if a=5 then vxv=ttt5: gosub 901326 :it13=it13+v:g=g-n:gosub 199:goto 901202
901298 if a=6 then vxv=ttt6: gosub 901326:it14=it14+v:g=g-n:gosub 199:goto 901202
901300 if a=7 then vxv=ttt7: gosub 901326:it15=it15+v:g=g-n:gosub 199:goto 901202
901302 if a=8 then vxv=ttt8: gosub 901326:it16=it16+v:g=g-n:gosub 199:goto 901202
901304 if a=9 then vxv=ttt9: gosub 901326:it17=it17+v:g=g-n:gosub 199:goto 901202
901306 if a=10 then vxv=ttt10: gosub 901326:it18=it18+v:g=g-n:gosub 199:goto 901202
901308 if a=11 then vxv=ttt11: gosub 901326:it19=it19+v:g=g-n:gosub 199:goto 901202
901310 if a=12 then vxv=ttt12: gosub 901326:it20=it20+v:g=g-n:gosub 199:goto 901202
901312 if a=13 then vxv=ttt13: gosub 901326:it21=it21+v:g=g-n:gosub 199:goto 901202
901314 if a=14 then vxv=ttt14: gosub 901326:it22=it22+v:g=g-n:gosub 199:goto 901202
901316 if a=15 then vxv=ttt15: gosub 901326:it23=it23+v:g=g-n:gosub 199:goto 901202
901318 if a=16 then vxv=ttt16: gosub 901326:it24=it24+v:g=g-n:gosub 199:goto 901202
901320 if a=17 then vxv=ttt17: gosub 901326:it25=it25+v:g=g-n:gosub 199:goto 901202
901322 if a=99 then 901002
901324 goto 901202
901326 print "How much will you buy (0 to exit)";:input a
901328 if a=0 then print:print "You buy none of this trade item.":v=0:n=0:return
901330 v=a:n=a*vxv:if n>g then print:print "That will cost ";n;" gold.  You have ";g;" gold.":goto 901326
901332 print:print "That will cost ";n;" gold.  You have ";g;" gold."
901334 print "Do you want to make this purchase?";:input a$:if a$="Y" then return
901336 if a$="N" then 901326
901338 goto 901334
901340 CLS:if junk=0 then print:gosub 198:print "You have no junk items.":GOSUB 199:CLS:goto 901002
901342 g=g+junk:print:gosub 198:print "I will buy all your junk for ";junk;" gold.  You now have ";g;" gold.":junk=0:jun=0
901344 it32=0:it33=0:it34=0:it35=0:it36=0:it37=0:it38=0:it39=0:GOSUB 199:CLS:goto 901002
901346 print:gosub 198:print "Selling All.":GOSUB 199:PRINT:print "//  Cloth [ ";it9*ttt1;" ]  //  Velvet [ ";it10*ttt2;" ]  //  Silk [ ";it11*ttt3;" ]  //  Leather [ ";it12*ttt4;" ]  //":print"//  Dreamweave [ ";it13*ttt5;" ]  //  Cord [ ";it14*ttt6;" ]  //  Steel [ ";it15*ttt7;" ]  //  Lead [ ";it16*ttt8;" ]  //":print "//  Iron [ ";it17*ttt9;" ]  //  Admantium [ ";it18*ttt10;" ]  //  Spikes [ ";it19*ttt11;" ]  //  Talons [ ";it20*ttt12;" ]  //"
901348 print "//  Teeth [ ";it21*ttt13;" ]  //  Ears [ ";it22*ttt14;" ]  //  Scales [ ";it23*ttt15;" ]  //  Bladders [ ";it24*ttt16;" ]  //  Eyes [ ";it25*ttt17;" ]  //":vxv=(it9*ttt1)+(it10*ttt2)+(it11*ttt3)+(it12*ttt4)+(it13*ttt5)+(it14*ttt6)+(it15*ttt7)+(it16*ttt8)+(it17*ttt9)+(it18*ttt10)+(it19*ttt11)+(it20*ttt12)+(it21*ttt13)+(it22*ttt1)+(it23*ttt15)+(it24*ttt16)+(it25*ttt17)
901350 g=g+vxv:GOSUB 199:PRINT:print "For a total of ";vxv;" Gold!  Gold = ";g;"!":gosub 198:gosub 199:it9=0:it10=0:it11=0:it12=0:it13=0:it14=0:it15=0:it16=0:it17=0:it18=0:it19=0:it20=0:it21=0:it22=0:it23=0:it24=0:it25=0:return

901355 Rem Trade Items Values in MYRE
901356 ttt1=int(rnd(1)*100)+150:ttt2=(int(rnd(1)*100)+1)*2+260:ttt3=(int(rnd(1)*100)+1)*3+370:ttt4=(int(rnd(1)*100)+1)*4+480:ttt5=(int(rnd(1)*100)+1)*5+539:ttt6=(int(rnd(1)*100)+1)*5+549
901357 ttt7=(int(rnd(1)*100)+160):ttt8=(int(rnd(1)*100)+1)*2+270:ttt9=(int(rnd(1)*100)+1)*3+380:ttt10=(int(rnd(1)*100)+1)*5+539:ttt11=(int(rnd(1)*100)+120):ttt12=(int(rnd(1)*100)+130)
901358 ttt13=(int(rnd(1)*100)*2+140):ttt14=(int(rnd(1)*150)+1)*2+200:ttt15=(int(rnd(1)*160)+1)*3+300:ttt16=(int(rnd(1)*170)+1)*4+400:ttt17=(int(rnd(1)*180)+1)*5+499
901359  return


902000 REM JEWELERS
902002 CLS:areat=21:GOSUB 198:print "Welcome to Jeweler Jehina's, the jewley jewlster of jewels!":GOSUB 198
902004 print:print "Do you have gems and jewelry for me? (Y/N)";:input a$:gosub 1000
902006 if a$="Y" then 902012
902008 if a$="N" then PRINT:print "Well seeya around then, pallie.'  You leave the jewlers.":gosub 199:cls:return
902010 goto 902004
902012 GOSUB 198: if gem1>0 then print "You have ";gem1;" gems i see."
902014 if jwl1>0 and gem1>0 then print "O, and you have ";jwl1;" jewelry pieces too.":jwl1=0
902016 if statu1>0 then print "Well, look at this, you have found ";statu1;" valuable statue pieces!!  I could melt this down for...well, anything!  I'll take em!!"
902018 if jwl1>0 then print "You have ";jwl1;" jewelry for me, very nice."
902020 if jwl1=0 and gem1=0 and statu1=0 then print:print "'You dont have anything of value.  What ya tryin ta pull here?'":print:print "You leave the Jewelers.":GOSUB 199:CLS:return
902022 a = gem+jwl+statu2
902024 GOSUB 198:print:print "All together i can give you ";a;" Gold for them.  (Y/N)";:input a$:gosub 1000
902026 if a$="Y" then 902032
902028 if a$="N" then print "I'm sorry, but that is what they are worth.  Try finding a better deal....":print "You leave the Jewelers.":gosub 199:cls:RETURN
902030 goto 902024
902032 gem=0:jwl=0:statu2=0:g=g+a:gem1=0:jwl1=0:print:print "Gold = ";g;"   Gems = 0   Jewels = 0.":if statu1>0 then statu1=0:print "Statue Pieces = 0."
902034 print:print "The jeweler thanks you and you leave.":print:GOSUB 198:gosub 199:CLS:return

903000 REM COURTYARD
903002 cls:gosub 198:city=0:areat=17:print "Courtyard of Varsailles":gosub 198:if guardspeak1=1 then 903020
903004 courtyard=200:print:print "A sleek elven guard floats up to you and in a thick accent says, 'Oi, this 'ere be the Courtyard.  And woe is the day this be, it is.  It be a day of":print "Monsterous uprisings.  They came in the night, they did.  Hundreds of them.  Overtook the Courtyard they did, I barely"
903006 print "made it out alive meself.  Poor Jeseph, he never did make it, did 'e.  Poor, poor Jeseph....'":gosub 199:print:print "The guard looks solemnly at the ground for a minute, and just when you think he isnt going to go on, he does,"
903008 print:print "'You must 'elp us elves!  You must revenge the death of me mate!  He was a good lad, no more than 20, too young to die at the 'ands of ":print "creatures such as these!!'":gosub 199
903010 print:print "'If ye kill all monsters in the Courtyard, we shall bestow upon ye a most bountiful... ah, er, bounty.....!  Now get in there and Kill Em All!'":gosub 199:guardspeak1=1:goto 903025
903015 if courtyard1=1 then print:print "The guard smiles at you and thanks you again for killing all the monsters, and then waves you through....":goto 903025
903020 xxx=courtyard/10:xxx=int(xxx):xxx=xxx*10:print:print "The guard wonders up to you and says, ''I estimates about ";xxx;" monsters left before they not be botherin us no mores....'"
903025 print:print "Would you like to enter the Courtyard of Varsailles (Y/N)";:input a$:gosub 1000
903030 if a$="Y" then 903250
903035 if a$="N" then print:print "You leave the Courtyard area.":print:gosub 198:gosub 199:cls:goto 900000
903040 goto 903025

903250 Rem Courtyard 1
903252 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700:if courtyard4=1 then 903255
903254 gosub 198:print "2 giant female Elven warrior statues tower above you, magic making them glow softly."
903255 print "This is the entrance to the courtyards.  To the south is the":print "guardhouse to Varsailles.  To the north is Varsailles Castle itself."
903256 print "There are many pathways."
903258 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
903260 if a$="S" then 903000
903262 if a$="N" then 903278
903264 if a$="E" then 903582
903266 if a$="W" then 903322
903268 if a$="NW" then 903302
903270 if a$="NE" then 903604
903272 IF a$="SRCH" or a$="Srch" or a$="srch" or a$="SEARCH" or a$="SCH" or a$="search" or a$="Search" or a$="Sch" or a$="sch" then gosub 903950
903276 goto 903258
903278 Rem Courtyard 2
903280 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903282 gosub 198:print "You are at the Courtyard of Varsailles.  White marble archways line the path.  To the North lies the Castle of Varsailles."
903284 print "There are many pathways."
903286 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903288 if a$="S" then 903250
903290 if a$="N" then print "Varsailles"
903292 if a$="E" then 903604
903294 if a$="W" then 903302
903296 if a$="SW" then 903322
903298 if a$="SE" then 903582
903300 goto 903286
903302 Rem Courtyard 3
903304 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903306 gosub 198:print "You are at the Courtyard of Varsailles.  This is a garden area, with multiple levels.  Vines dangle down the wall, and various":print "apple and pear trees grow on each of the levels.  Other types of bushes yield wild fruits, and beautiful pink and purple flowers grow about everywhere.":print "It is very calm and relaxing here, and as the birds sing and the wind blows through the trees, you feel quite at ease."
903308 print "There are many pathways."
903310 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest, [SE]outhEast..";:input a$:gosub 1000
903312 if a$="N" then 903480
903313 if a$="S" then 903322
903314 if a$="E" then 903278
903316 if a$="W" then 903344
903317 if a$="NW" then 903452
903318 if a$="SW" then 903372
903319 if a$="SE" then 903250
903320 goto 903310
903322 Rem Courtyard 4
903324 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903326 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the south, making you feel small....."
903328 print "There are many pathways."
903330 print:print "You may go [E]ast, [W]est, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
903332 if a$="N" then 903302
903334 if a$="E" then 903250
903336 if a$="W" then 903372
903338 if a$="NW" then 903344
903340 if a$="NE" then 903278
903342 goto 903330
903344 Rem Courtyard 5
903346 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903348 gosub 198:print "You are at the Courtyard of Varsailles.  There is a large tiered fountain here, about 20 feet high.  It depicts cherubs and giant seahorses and":print "mermaid like people dancing about as if they were playing in the water.  Gold is threaded throughout the fountain piece, but looks too hard to remove.":print "Water flows down intricate chambers and spills out of random places in the artwork.  Staring at it makes you very relaxed."
903350 print "There are many pathways."
903352 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903354 if a$="S" then 903372
903356 if a$="N" then 903452
903358 if a$="E" then 903302
903360 if a$="W" then 903394
903362 if a$="NW" then 903434
903364 if a$="NE" then 903480
903366 if a$="SW" then 903416
903368 if a$="SE" then 903322
903370 goto 903352
903372 Rem Courtyard 6
903374 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903376 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the south, making you feel small....."
903378 print "There are many pathways."
903380 print:print "You may go [E]ast, [W]est, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
903382 if a$="N" then 903344
903384 if a$="E" then 903322
903386 if a$="W" then 903416
903388 if a$="NW" then 903394
903390 if a$="NE" then 903302
903392 goto 903380
903394 Rem Courtyard 7
903396 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903398 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the west, making you feel small....."
903400 print "There are many pathways."
903402 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
903404 if a$="S" then 903416
903406 if a$="N" then 903434
903408 if a$="E" then 903344
903410 if a$="NE" then 903452
903412 if a$="SE" then 903372
903414 goto 903402
903416 Rem Courtyard 8
903418 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903420 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the south and west, making you feel small....."
903422 print "There are many pathways."
903424 print:print "You may go [E]ast,  [N]orth, [NE]orthEast.";:input a$:gosub 1000
903426 if a$="N" then 903394
903428 if a$="E" then 903372
903430 if a$="NE" then 903344
903432 goto 903424
903434 Rem Courtyard 9
903436 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903438 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the west, making you feel small....."
903440 print "There are many pathways."
903442 print:print "You may go [E]ast, [S]outh, [N]orth, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
903444 if a$="S" then 903394
903446 if a$="N" then 903504
903448 if a$="E" then 903452
903449 if a$="NE" then 903524
903450 if a$="SE" then 903344
903451 goto 903442
903452 Rem Courtyard 10
903454 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903456 gosub 198:print "You are at the Courtyard of Varsailles.  Towering above you is a half man/half dragon statue made of white marble."
903458 print "There are many pathways."
903460 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903462 if a$="S" then 903344
903464 if a$="N" then 903524
903466 if a$="E" then 903480
903468 if a$="W" then 903434
903470 if a$="NW" then 903504
903472 if a$="NE" then 903546
903474 if a$="SW" then 903394
903476 if a$="SE" then 903302
903478 goto 903460
903480 Rem Courtyard 11
903482 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903484 gosub 198:print "You are at the Courtyard of Varsailles.  White marble archways line the path.  To the East is the Castle of Varsailles."
903486 print "There are many pathways."
903488 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
903490 if a$="S" then 903302
903492 if a$="N" then 903546
903494 if a$="E" then print "Varsailles"
903496 if a$="W" then 903452
903498 if a$="NW" then 903524
903500 if a$="SW" then 903344
903502 goto 903488
903504 Rem Courtyard 12
903506 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903508 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the west and north, making you feel small....."
903510 print "There are many pathways."
903512 print:print "You may go [E]ast, [S]outh, [NE]orthEast,  [SE]outhEast.";:input a$:gosub 1000
903514 if a$="S" then 903434
903516 if a$="E" then 903524
903518 if a$="NE" then 903566
903520 if a$="SE" then 903452
903522 goto 903512
903524 Rem Courtyard 13
903526 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903528 gosub 198:print "You are at the Courtyard of Varsailles."
903530 print "There are many pathways."
903532 print:print "You may go [E]ast, [W]est, [S]outh, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903534 if a$="S" then 903452
903536 if a$="E" then 903546
903538 if a$="W" then 903504
903540 if a$="SW" then 903434
903542 if a$="SE" then 903480
903544 goto 903532
903546 Rem Courtyard 14
903548 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903550 gosub 198:print "You are at the Courtyard of Varsailles."
903552 print "There are many pathways."
903554 print:print "You may go [W]est, [S]outh, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
903556 if a$="S" then 903480
903558 if a$="NW" then 903566
903560 if a$="W" then 903524
903562 if a$="SW" then 903452
903564 goto 903554
903566 Rem Courtyard 15
903568 areat=17:areax=0:mh=62:mlw=53:gosub 2700:if courtyard2=0 then gosub 903900:if cow=1 then 903546
903570 gosub 198:print "You are at the Courtyard of Varsailles."
903572 print "There are 2 paths."
903574 print:print "You may go [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903576 if a$="SW" then 903504
903578 if a$="SE" then 903546
903580 goto 903574
903582 Rem Courtyard 16
903584 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903586 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the south, making you feel small....."
903588 print "There are many pathways."
903590 print:print "You may go [E]ast, [W]est, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
903592 if a$="N" then 903604
903594 if a$="E" then 903656
903596 if a$="W" then 903250
903598 if a$="NW" then 903278
903600 if a$="NE" then 903628
903602 goto 903590
903604 Rem Courtyard 17
903606 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903608 gosub 198:print "You are at the Courtyard of Varsailles.  This is a garden area, with multiple levels.  Vines dangle down the wall, and various":print "peach and plum trees grow on each of the levels.  Other types of shrubs yield wild fruits, and beautiful green and blue flowers grow about everywhere.":print "It is very calm and relaxing here, and as the birds sing and the wind blows through the trees, you feel quite at ease."
903610 print "There are many pathways."
903612 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903614 if a$="S" then 903582
903616 if a$="N" then 903718
903618 if a$="E" then 903628
903619 if a$="W" then 903278
903620 if a$="NE" then 903742
903622 if a$="SW" then 903250
903624 if a$="SE" then 903656
903626 goto 903612
903628 Rem Courtyard 18
903630 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903632 gosub 198:print "You are at the Courtyard of Varsailles.  There is a large tiered fountain here, about 20 feet high.  It depicts angels and dragons and":print "centaur like people dancing about as if they were playing in the water.  Gold is threaded throughout the fountain piece, but looks too hard to remove.":print "Water flows down intricate chambers and spills out of random places in the artwork.  Staring at it makes you very relaxed."
903634 print "There are many pathways."
903636 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903638 if a$="S" then 903656
903640 if a$="N" then 903742
903642 if a$="E" then 903696
903644 if a$="W" then 903604
903646 if a$="NW" then 903718
903648 if a$="NE" then 903770
903650 if a$="SW" then 903582
903652 if a$="SE" then 903678
903654 goto 903636
903656 Rem Courtyard 19
903658 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903660 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the south, making you feel small....."
903662 print "There are many pathways."
903664 print:print "You may go [E]ast, [W]est, [N]orth, [NW]orthWest, [NE]orthEast.";:input a$:gosub 1000
903666 if a$="N" then 903628
903668 if a$="E" then 903678
903670 if a$="W" then 903582
903672 if a$="NW" then 903604
903674 if a$="NE" then 903696
903676 goto 903664
903678 Rem Courtyard 20
903680 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903682 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the south and east, making you feel small....."
903684 print "There are many pathways."
903686 print:print "You may go [W]est, [N]orth, [NW]orthWest.";:input a$:gosub 1000
903688 if a$="N" then 903696
903690 if a$="W" then 903656
903692 if a$="NW" then 903628
903694 goto 903686
903696 Rem Courtyard 21
903698 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903700 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the east, making you feel small....."
903702 print "There are many pathways."
903704 print:print "You may go [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
903706 if a$="S" then 903678
903708 if a$="N" then 903770
903710 if a$="W" then 903628
903712 if a$="NW" then 903742
903714 if a$="SW" then 903656
903716 goto 903704
903718 Rem Courtyard 22
903720 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903722 gosub 198:print "You are at the Courtyard of Varsailles.  White marble archways line the path.  You may go west to the Castle of Varsailles."
903724 print "There are many pathways."
903726 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth,[NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
903728 if a$="S" then 903604
903730 if a$="N" then 903794
903732 if a$="E" then 903742
903734 if a$="W" then print "Varsailles"
903736 if a$="NE" then 903814
903738 if a$="SE" then 903628
903740 goto 903726
903742 Rem Courtyard 23
903744 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903746 gosub 198:print "You are at the Courtyard of Varsailles.  Towering above you is a half woman/half dragon statue made of white marble."
903748 print "There are many pathways."
903750 print:print "You may go [E]ast, [W]est, [S]outh, [N]orth, [NW]orthWest, [NE]orthEast, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903752 if a$="S" then 903628
903754 if a$="N" then 903814
903756 if a$="E" then 903770
903758 if a$="W" then 903718
903760 if a$="NW" then 903794
903762 if a$="NE" then 903836
903764 if a$="SW" then 903604
903766 if a$="SE" then 903696
903768 goto 903750
903770 Rem Courtyard 24
903772 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903774 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the east, making you feel small....."
903776 print "There are many pathways."
903778 print:print "You may go [W]est, [S]outh, [N]orth, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
903780 if a$="S" then 903696
903782 if a$="N" then 903836
903786 if a$="W" then 903742
903788 if a$="NW" then 903814
903790 if a$="SW" then 903628
903792 goto 903778
903794 Rem Courtyard 25
903796 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903798 gosub 198:print "You are at the Courtyard of Varsailles."
903800 print "There are many pathways."
903802 print:print "You may go [E]ast, [S]outh, [NE]orthEast, [SE]outhEast.";:input a$:gosub 1000
903804 if a$="S" then 903718
903806 if a$="E" then 903814
903808 if a$="NE" then 903856
903810 if a$="SE" then 903742
903812 goto 903802
903814 Rem Courtyard 26
903816 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903818 gosub 198:print "You are at the Courtyard of Varsailles."
903820 print "There are many pathways."
903822 print:print "You may go [E]ast, [W]est, [S]outh, [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903824 if a$="S" then 903742
903826 if a$="E" then 903836
903828 if a$="W" then 903794
903830 if a$="SW" then 903718
903832 if a$="SE" then 903770
903834 goto 903822
903836 Rem Courtyard 27
903838 areat=17:areax=0:mh=62:mlw=53:gosub 3700:gosub 2700
903840 gosub 198:print "The hundred foot courtyard wall of Varsailles raises to the east and north, making you feel small....."
903842 print "There are many pathways."
903844 print:print "You may go [W]est, [S]outh, [NW]orthWest, [SW]outhWest.";:input a$:gosub 1000
903846 if a$="S" then 903770
903848 if a$="W" then 903814
903850 if a$="NW" then 903856
903852 if a$="SW" then 903742
903854 goto 903844
903856 Rem Courtyard 28
903858 areat=17:areax=0:mh=62:mlw=53:gosub 2700:if courtyard3=0 then gosub 903920:if cow=1 then 903794
903860 gosub 198:print "You are at the Courtyard of Varsailles."
903862 print "There are 2 pathways."
903864 print:print "You may go [SW]outhWest, [SE]outhEast.";:input a$:gosub 1000
903866 if a$="SW" then 903794
903868 if a$="SE" then 903836
903870 goto 903864

903900 rem fishdragon 1
903902 print:print "As you walk down the narrow hallway, you hear monsterous roars coming from ahead!  As you reach the corner you peek around it and see what ":print "appears to be a giant eel like creature with wings!  It is black and scaley, and has multiple fins on it.  It looks ":print "like it should belong in the water, but it seems quite content here hovering above the land."
903904 print "It looks quite mean....."
903906 gosub 199:print:print "Do you wish to attack it (Y/N)";:input a$:gosub 1000
903908 if a$="Y" then 903914
903910 if a$="N" then print:print "You run back down the path like a coward!":cow=1:return
903912 goto 903906
903914 mn$="Winged Black Eel":mhp=2300:mmax=155:mmin=100:mxp=700:mg=9000:mn=1:ml=15:mobboss=1:print:print "You attack the Monster Boss!":gosub 3735:courtyard2=1
903916 print:print "As you search the body of the creature, you see something glowing in its stomach.  You cut the creature open and find a glowing white rock.  It hums":print "a low hum and is very bright, but other than that it seems not to do much.....":GOSUB 199:return

903920 rem fishdragon 2
903922 print:print "As you walk down the narrow hallway, you hear monsterous roars coming from ahead!  As you reach the corner you peek around it and see what ":print "appears to be a giant eel like creature with wings!  It is white and scaley, and has multiple fins on it.  It looks ":print "like it should belong in the water, but it seems quite content here hovering above the land."
903924 print "It looks quite mean....."
903926 gosub 199:print:print "Do you wish to attack it (Y/N)";:input a$:gosub 1000
903928 if a$="Y" then 903934
903930 if a$="N" then print:print "You run back down the path like a coward!":cow=1:return
903932 goto 903926
903934 mn$="Winged White Eel":mhp=2300:mmax=155:mmin=100:mxp=700:mg=9000:mn=1:ml=15:mobboss=1:print:print "You attack the Monster Boss!":gosub 3735:courtyard3=1
903936 print:print "As you search the body of the creature, you see something glowing in its stomach.  You cut the creature open and find a glowing black rock.  It hums":print "a low hum and is very bright, but other than that it seems not to do much.....":GOSUB 199:return

903950 REm Elven Statue Fight
903951 if courtyard4=1 then 903258
903952 if courtyard2=1 and courtyard3=1 then 903956
903954 print:print "As you are searching, you find a hole in the base of each statue.  It looks like something should be placed in each......":goto 903258
903956 print:print "As you are searching, you find a hole in the base of each statue.  As you near each hole, the glowing stones begin to glow brighter, the black one":print "glowing brighter as you near the eastern statue, the white one glowing brighter as you near the western statue.":print "You figure you could put the stones in the statues corresponding to the glow, but you figure you could switch them too...."
903958 print:print "Would you like to drop the stones now (Y/N)";:input a$:gosub 1000
903960 if a$="Y" then 903966
903962 if a$="N" then print:print "You leave the statues alone....":goto 903258
903964 goto 903958
903966 print:print "Which way would you like to drop them:"
903968 print:print "1.  The black stone in the eastern statue and the white stone in the western statue."
903970 print "2.  The white stone in the eastern statue and the black stone in the western statue."
903972 print "3.  Nah, I changed my mind....."
903974 print:print "(1-3)";:input a
903976 if a=1 then mn$="Giant Elven Statue":mhp=2300:mmax=155:mmin=100:mxp=900:mg=1000:mn=2:ml=20:mobboss=1:goto 903984
903978 if a=2 then mn$="Giant Elven Statue":mhp=3300:mmax=180:mmin=100:mxp=950:mg=10000:mn=2:ml=25:mobboss=1:goto 903984
903980 if a=3 then 903258
903982 goto 903966
903984 print:print "You drop the stones into the statues.  The statues begin to glow wildly!  Beams of light shoot out from within them.  Their expressionless faces take on life!":print "They both look at you angrily and attack you!":gosub 3735:courtyard4=1
903986 print:print "Both the statues crumble to dust before your eyes.  The dust becomes liquid.  The liquid puddles begin to move together as if they have a life of their own!":print "They join quickly and begin to take on a new shape.  There is a bright blinding light, and then it pulses out a second later, ":print "as if it never happened.  Everything is gone, except a intricately detailed key with a lion's head."
903988 gosub 199:print:print "You pick up the key and it feels warm to the touch, and fills you with feelings of happiness and joy.  It soothes your wounds and you realize you":print "are now completely healed.  Then the warmth dissapates and it becomes an ordinary key again....":hp=thp:mp=tmp:gosub 199:goto 903258

950000 REM ION STONES
950002 it$=" ":print:print "You have found an Ion Stone!":ionx=1:gosub 199:aa=int(rnd(1)*100)+1:if a>=60 then 950014
950004 ishp1=int(clv/10)+ml:print:print "It is a ";ishp1;"% Health Stone.":if ishp=1 then 950008
950006 print:print "You pick it up and you feel more hearty!":ishp=1:hpx=0:ishp3=ishp1:goto 950012
950008 if ishp3>=ishp1 then print:print "But your current one is better, a ";ishp3;"%.  The smaller one quickly dissintegrates when the larger one comes near.":print "Soon it is just ashen dust.":gosub 199:return
950010 print:print "This one is better by ";ishp1-ishp3;"%.  When you near it the lesser of the 2 dissintegrates into ashen dust.":print "You pick up the new Health Stone and add it to your packs."
950012 gosub 199:thp=thp-hpx:hp=hp-hpx:ishp2=ishp1*.01:hpx=int(thp*ishp2):thpis=thp:thp=thp+hpx:hp=hp+hpx
950013 print:print "You now have ";hp;"/";thp;" (";thpis;"+";hpx;" bonus)  !!!!":gosub 199:return

950014 it$=" ":ismp1=int(clv/10)+ml:print:print "It is a ";ismp1;"% Mana Stone.":if ismp=1 then 950018
950016 print:print "You pick it up and you feel more powerful!":ismp=1:mpx=0:ismp3=ismp1:goto 950022
950018 if ismp3>=ismp1 then print:print "But your current one is better, a ";ismp3;"%.  The smaller one quickly dissintegrates when the larger one comes near.":print "Soon it is just crystal dust.":gosub 199:return
950020 print:print "This one is better by ";ismp1-ismp3;"%.  When you near it the lesser of the 2 dissintegrates into crystal dust.":print "You pick up the new Mana Stone and add it to your packs."
950022 gosub 199:tmp=tmp-mpx:mp=mp-mpx:ismp2=ismp1*.01:mpx=int(tmp*ismp2):tmpis=tmp:tmp=tmp+mpx:mp=mp+mpx
950024 print:print "You now have ";mp;"/";tmp;" (";tmpis;"+";mpx;" bonus)  !!!!":gosub 199:return

950030 REM AT LVL UP
950032 if ishp=0 and ismp=0 then return
950034 tmp=tmp-mpx:mp=mp-mpx:ismp2=ismp1*.01:mpx=int(tmp*ismp2):tmpis=tmp:tmp=tmp+mpx:mp=mp+mpx:thp=thp-hpx:hp=hp-hpx:ishp2=ishp1*.01:hpx=int(thp*ishp2):thpis=thp:thp=thp+hpx:hp=hp+hpx:RETURN

950050 REM Other Special Awesome Treasures
950052 if a=18 then 950002
950199 goto 1428


