Willus.com
Home
|
Archive
|
About
GARGCST2.BAS
(13827 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
1 'DOWNLOADED FROM TBBS HEADQUARTERS 2 'RUN BY EBERT'S PERSONAL COMPUTERS 3 ' 690-4566 (DATA) 10 CLEAR 100 11 CLS 12 ON ERROR GOTO 570 15 PRINT@470,CHR$(34);"GARGOYLE CASTLE";CHR$(34) 20 PRINT@896,"COPYRIGHT 1980-PANIC SIMULATIONS";TAB(45);"VERSION: PROTO 1.1"; 30 PRINT@960,"KIT DOMENICO";TAB(50);"16K LEVEL II":PRINT"PLEASE USE UPPERCASE ONLY" 105 READ IT:REM THIS IS THE NUMBER OF ITEMS ON THE NOUN LIST 108 DIM NA$(IT),NM$(IT),LO(IT) 110 FOR I=1 TO IT:READ NA$(I),NM$(I),LO(I):NEXT I 120 PL=6:PO=1 160 READ LO 170 DIM CO(LO,6),LI(LO),D$(LO) 180 FOR I=0 TO LO 190 READ D$(I) 200 FOR J=1 TO 6 210 READ CO(I,J) 220 NEXT J 225 READ LI(I) 230 NEXT I 460 LC=5 480 SS$=NM$(4) 500 REM 504 CLS 505 IF LI(LC)=0 AND L=0 THEN PRINT"IT'S DARK IN HERE!":GOTO 560 510 CLS:PRINT"I AM IN ";D$(LC) 520 PRINT"I CAN SEE "; 522 IF LO(32)=99 AND LC=28 PRINT"THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC=0: GOTO 5300 525 VI=0 530 FOR I=1 TO IT 540 IF LO(I)<>LC THEN 545 542 IF 64-POS(X)<LEN(NA$(I))+LEN(NM$(I)) THEN PRINT 543 PRINTNM$(I);NA$(I);". "; 544 VI=VI+1 545 NEXT I 550 IF VI=0 THEN PRINT "THAT THERE ARE NO ITEMS IN SIGHT."; 551 PRINT 552 PRINT"THE EXITS ARE "; 554 IF CO(LC,1)<>0 THEN PRINT" NORTH,"; 555 IF CO(LC,2)<>0 THEN PRINT" EAST,"; 556 IF CO(LC,3)<>0 THEN PRINT" SOUTH,"; 557 IF CO(LC,4)<>0 THEN PRINT" WEST,"; 558 IF CO(LC,5)<>0 THEN PRINT" UP,"; 559 IF CO(LC,6)<>0 THEN PRINT" DOWN,"; 560 PRINT 569 PRINT STRING$(63,"+") 570 A$="" 571 IF (LO(31)=LC OR LO(31)=99) AND LO(32)<>99 AND NM$(31)="A VICIOUS GREEN AND PURPLE " THEN 2012 572 INPUT"WHAT SHOULD I DO";A$ 574 IF LEN(A$)=1 THEN 1000 580 REM 590 REM 600 V$=LEFT$(A$,3) 610 FOR I=1 TO LEN(A$) 620 IF RIGHT$(LEFT$(A$,I),1)= " " THEN A$=LEFT$(RIGHT$(A$,LEN(A$)-I),3):GOTO 650 630 NEXT I 650 REM VERB LIST 660 IF V$="GO " THEN 1000 664 IF V$="WAL" THEN 1000 665 IF V$="RUN" THEN 1000 670 IF V$="GET" THEN 2000 672 IF V$="TAK" THEN 2000 675 IF V$="PIC" THEN 2000 680 IF V$="DRO" THEN 2500 685 IF V$="PUT" THEN 2500 690 IF V$="LOO" THEN 500 700 IF V$="INV" THEN 3000 710 IF V$="REA" THEN 4000 720 IF V$="UNR" THEN 4300 725 IF V$="BUR" THEN 4400 730 IF V$="LIG" THEN 4400 740 IF V$="CLI" THEN 4500 750 IF V$="RUB" THEN 4600 760 IF V$="HEL" THEN 4700 770 IF V$="DIG" THEN 4800 780 IF V$="OPE" THEN 5000 790 IF V$="POL" THEN 5100 800 IF V$="TIE" THEN 5200 810 IF V$="SCO" THEN 5300 820 IF V$="QUI" THEN 5600 830 IF V$="REM" THEN 5800 840 IF V$="COV" THEN 5900 850 IF V$="SCR" THEN 6000 860 IF V$="EAT" THEN 6100 870 IF V$="MEL" THEN 6200 880 IF V$="PLA" THEN 6300 980 PRINT"SORRY, I DON'T KNOW HOW TO DO THAT." 990 GOTO 570 1000 REM 1003 IF TR=1 THEN LO(21)=14:TR=0 1004 IF L=0 AND LI(LC)=0 PRINT"MOVING IN THE DARK CAN BE DANGEROUS!":FOR I=1 TO 300:NEXT I 1005 NM$(5)="A " 1006 NM$(4)=SS$ 1007 IF LO(10)<>99 OR NM$(10)<>"A LIT " THEN L=0 1009 A$=LEFT$(A$,3) 1010 IF A$="NOR" THEN A$="N" 1020 IF A$="WES" THEN A$="W" 1030 IF A$="SOU" THEN A$="S" 1040 IF A$="EAS" THEN A$="E" 1041 IF A$="DOW" THEN A$="D" 1042 IF A$="UP" THEN A$="U" 1050 REM 1060 IF CO(LC,1)<>0 AND A$="N" THEN LC=CO(LC,1):GOTO 1200 1070 IF CO(LC,2)<>0 AND A$="E" THEN LC=CO(LC,2):GOTO 1200 1080 IF CO(LC,3)<>0 AND A$="S" THEN LC=CO(LC,3):GOTO 1200 1090 IF CO(LC,4)<>0 AND A$="W" THEN LC=CO(LC,4):GOTO 1200 1092 IF A$="U" AND CO(1,5)<>0 AND LC=1 AND LO(6)<>99 AND LO(6)<>1 THEN PRINT"IT'S TOO HIGH TO REACH.":GOTO 570 1094 IF A$="U" AND LO(6)=99 THEN PRINT"I CAN'T CLIMB A LADDER I'M CARRYING.":GOTO 570 1100 IF CO(LC,5)<>0 AND A$="U" THEN LC=CO(LC,5):GOTO 1200 1110 IF CO(LC,6)<>0 AND A$="D" THEN LC=CO(LC,6):GOTO 1200 1180 PRINT"SORRY, I CAN'T GO THAT DIRECTION." 1190 GOTO 570 1200 IF LO(6)=LC THEN CO(6,6)=LC 1220 GOTO 500 2000 REM 2004 IF A$="SOC" THEN 2040 2005 IF PO=>PL THEN PRINT"I HAVE TOO MUCH ALREADY!":GOTO 2040 2010 IF A$<>"GAR" THEN 2018 2011 IF LO(31)<>LC THEN PRINT"IT ISN'T HERE":GOTO 570 2012 IF NM$(31)="A VICIOUS GREEN AND PURPLE " AND LO(32)<>99 THEN PRINT"A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. i AM DEAD." 2013 LC=0:GOTO5300:REM GOTO SCORE 2018 FOR I=1TOIT 2020 IF A$<>LEFT$(NA$(I),3) OR LO(I)<>LC THEN 2030 2022 IF A$="COA" AND MID$(NM$(30),6,1)="G" AND LO(19)<>99 THEN PRINT"YOU DON'T HAVE ANYTHING TO CARRY THEM IN.":GOTO 570 2023 IF A$="COA" AND MID$(NM$(30),6,1)="G" AND LO(19)=99 AND MID$(NM$(19),3,1)="F" THEN PRINT"NOT WHILE THE URN IS CLOSED":GOTO 570 2024 IF A$="BIR" AND (LO(9)<>99 AND LO(9)<>LC) THEN PRINT"IT FLYS AWAY FROM ME.":LO(22)=RND(6):FOR J=1 TO 300:NEXT J:GOTO 500 2025 IF A$="BIR" THEN LO(22)=0:NM$(9)="* A CRYSTAL BIRD LOCKED IN A ":GOTO 500 2028 LO(I)=99:PO=PO+1:GOTO 500 2030 NEXT I 2040 PRINT"I CAN'T PICK THAT UP." 2100 GOTO 570 2500 REM 2510 FOR I=1 TO IT 2516 IF A$="URN" AND LO(30)=99 THEN LO(30)=LC:PO=PO-1 2518 IF A$="LAD" AND LO(6)=99 THEN CO(7,6)=LC 2520 IF A$=LEFT$(NA$(I),3) AND LO(I)=99 THEN LO(I)=LC:PO=PO-1:GOTO 500 2530 NEXT I 2535 PRINT "YOU DON'T HAVE THAT." 2540 GOTO 570 3000 REM 3001 PO=0 3005 C=0 3010 PRINT"I AM CARRYING "; 3020 FOR I=1 TO IT 3030 IF LO(I)=99 THEN PRINT NM$(I);NA$(I);", ":C=C+1:PO=PO+1 3040 NEXT I 3045 IF C=0 PRINT"NOTHING." 3060 GOTO 570 4000 REM 4005 IF L=0 AND LI(LC)=0 THEN PRINT"IN THE DARK?":GOTO 4190 4010 IF A$="BOO" AND (LO(2)=LC OR LO(2)=99) THEN PRINT"i DON'T READ GERMAN.":GOTO 570 4015 IF A$="SCR" AND LEFT$(NM$(4),4)="A TI" AND (LO(4)=99 OR LO(4)=LC) THEN PRINT"ON THE OUTSIDE, IT SAYS 'ROLLED BY SCROLL ROLLER'S UNION 207.'":GOTO 570 4020 IF A$="SCR" AND NM$(4)="AN UNROLLED " AND(LO(4)=LC OR LO(4)=99) THEN PRINT"IT SAYS, BURN IT UP, CHUCK.":GOTO 570 4030 IF A$="CLO" AND NM$(7)="A FAINTLY LETTERED " AND (LO(7)=99 OR LO(7)=LC) THEN PRINT"IT SAYS, IN THE CLOSET,DUMMY.":GOTO 570 4040 IF A$="SIG" AND LC=26 THEN PRINT"IT SAYS, 'STAND BY FOR MORE ADVENTURE.' CALL YOUR LOCAL DISTRIBUTOR TODAY.":GOTO 570 4050 IF A$="PLA" AND LC=13 AND (L=1 OR LI(13)=1) THEN PRINT"GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.":GOTO 570 4190 PRINT "SORRY CHARLIE, CAN'T DO IT." 4195 GOTO 570 4300 REM 4310 IF A$<>"SCR" THEN PRINT"I DON'T KNOW HOW.":GOTO 570 4320 IF A$="SCR" THEN LO(5)=LC:NM$(4)="AN UNROLLED ":SS$=NM$(4):PRINT"A LIGHTER FELL OUT.":GOTO 570 4400 REM 4410 IF A$<>"LIG" AND A$<>"FLA" AND A$<>"SCR" THEN PRINT"SORRY, IT WON'T LIGHT":GOTO 570 4420 IF A$="LIG" AND (LO(5)=LC OR LO(5)=99) THEN NM$(5)="A LIT ":L=1:PRINT"THE LIGHTER FLARES.":FOR I=1 TO 300:NEXT I:GOTO 500 4425 IF A$="SCR" AND LO(4)<>LC AND LO(4)<>99 THEN PRINT"IT ISN'T HERE.":GOTO 570 4430 IF A$="SCR" AND NM$(5)="A LIT "THEN NM$(4)="A BURNING ":PRINT"THE SCROLL BURNS BRIGHTLY.":L=1:GOTO 4460 4440 IF A$="FLA" AND LO(10)=99 THEN L=1:NM$(10)="A LIT ":GOTO 500 4450 PRINT"WHAT DO YOU MEAN?":GOTO 570 4460 IF LC=1 THEN PRINT"IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)=7 4470 IF LC=1 THEN CO(1,5)=7:CO(6,6)=7:CO(7,5)=6:GOTO 570 4480 GOTO 570 4500 REM 4510 IF A$<>"LAD" THEN PRINT "I CAN'T CLIMB THAT.":GOTO 570 4525 IF LO(6)<>LC AND LO(6)<>99 THEN PRINT"WHAT LADDER?":GOTO 570 4530 IF CO(LC,5)=0 THEN PRINT"I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.":GOTO 570 4540 A$="U":GOTO 1050 4600 REM 4605 FOR I=1 TO IT 4606 IF A$=LEFT$(NA$(I),3) AND (LO(I)<>LC AND LO(I)<>99) THEN PRINT"IT'S NOT HERE.":GOTO 570 4607 NEXT I 4610 IF A$<>"RIN" THEN PRINT "NOTHING, SPORT.":GOTO 570 4620 IF LO(3)<>LC AND LO(3)<>99 THEN PRINT"WHAT RING?":GOTO 570 4625 IF LO(7)<>99 AND LO(7)<>LC THEN PRINT"I HAVE NOTHING TO RUB IT WITH.":GOTO 570 4630 PRINT"THE RING GLOWS GOLD.":NM$(3)="* A SHIMMERING " 4640 NM$(7)="A FAINTLY LETTERED " 4650 GOTO 570 4700 REM 4710 PRINT"HELP? YOU'RE SUPPOSED TO BE HELPING ME!":GOTO 570 4800 REM 4810 IF LO(8)<>99 AND LO(20)<>99 THEN PRINT"WITH WHAT?":GOTO 570 4820 IF LC<>5 AND LC<>12 AND LC<>14 AND LC<>15 AND LC<>24 AND LC<>26 THEN PRINT"i CAN'T DIG HERE.":GOTO 570 4830 PRINT"OKAY. HERE'S A HOLE." 4840 IF LC=5 THEN CO(27,5)=5 : CO(5,6)=27 :IF LO(22)=90 THEN LO(22)=27 4850 IF LC=12 THEN CO(27,5)=12 : CO(12,6)=27 4860 IF LC=14 THEN CO(27,5)=14 : CO(14,6)=27 4870 IF LC=15 THEN CO(27,5)=15 : CO(15,6)=27:IF LO(25)=90 THEN LO(25)=27 4880 IF LC=24 THEN CO(27,5)=24 : CO(24,6)=27:IF LO(23)=90 THEN LO(23)=27 4885 IF LC=24 AND LO(15)=90 THEN LO(15)=24 4890 IF LC=26 THEN CO(27,5)=26 : CO(26,6)=27:IF LO(31)=90 THEN LO(31)=27 4900 GOTO 570 5000 REM 5005 IF A$="SCR" THEN 4300 5010 IF A$<>"CAG" AND A$<>"URN" THEN PRINT"IT DOESN'T SEEM TO OPEN.":GOTO 570 5015 IF A$="CAG" AND LO(9)<>99 AND LO(9)<>LC THEN PRINT"WHAT CAGE":GOTO 570 5020 IF A$="CAG" AND (LO(9)=99 OR LO(9)=LC) THEN PRINT"THE DOOR OPENED.":NM$(9)="AN OPEN " 5030 IF A$="URN" AND (LO(19)=99 OR LO(19)=LC)THEN PRINT"IT'S OPEN":NM$(19)="AN OPEN FUNERARY ":IF LO(26)=90 THEN LO(26)=LC 5035 PRINT"SOMETHING FELL OUT." 5040 GOTO 570 5100 REM 5110 IF A$<>"CRO" AND A$<>"RIN" THEN PRINT"I CAN'T POLISH SUCH A THING":GOTO 570 5113 IF A$="RIN" AND LO(3)<>LC AND LO(3)<>99 THEN PRINT"WHAT RING?":GOTO 570 5115 IF LO(16)<>LC AND LO(16)<>99 THEN PRINT"I DON'T HAVE ANY POLISH.":GOTO 570 5118 IF A$="CRO" AND LO(23)<>LC AND LO(23)<>99 THEN PRINT "WHAT CROWN?":GOTO 570 5120 IF A$="RIN" THEN PRINT"I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.":GOTO 570 5130 IF NM$(16)="AN EMPTY BOTTLE OF " THEN PRINT "SORRY, I'M OUT OF POLISH.":GOTO 570 5140 IF A$="CRO"AND NM$(16)="A BOTTLE FULL OF " THEN NM$(23)="*A GLISTENING SILVER ":NM$(16)="AN EMPTY BOTTLE OF " 5145 PRINT"IT SHINES OF SILVER.":GOTO 570 5200 REM 5210 IF A$<>"GAR" THEN PRINT"I AM UNABLE TO TIE THAT.":GOTO 570 5220 IF (LO(31)<>99 AND LO(31)<>LC) OR (LO(17)<>99 AND LO(17)<>LC) THEN PRINT"I'M SORRY. I CANNOT.":GOTO 570 5230 NM$(17)="A KNOTTED " 5235 LO(17)=0 5240 NM$(31)="* A ROPE BOUND " 5250 PRINT"IT'S FRIENDLY WHEN IT'S TIED UP." 5260 GOTO 570 5300 REM 5305 SC=0 5307 SM=0 5310 FOR I=1 TO IT 5320 IF LEFT$(NM$(I),1)="*" AND LO(I)=13 THEN SC=SC+1:GOTO 5330 5325 IF LO(I)<>27 AND LO(I)<>99 AND LO(I)<>1 AND LO(I)<>28 AND LO(I)<>0 AND LO(I)<>90 AND LO(I)<>24 THEN SM=SM+1 5330 NEXT I 5340 PRINT"YOU SCORED ";SC*10;" POINTS OUT OF 100"; 5350 IF SM=0 THEN PRINT".":GOTO 5370 5355 PRINT"," 5360 PRINT "BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." 5370 PRINT"AND YOUR NET SCORE IS ";SC*10-SM;"." 5380 IF SM>6 PRINT"CLEAN UP AFTER YOURSELF." 5390 IF SC*10-SM=100 THEN PRINT"CONGRATULATIONS! A PERFECT SCORE.":LC=0 5400 IF SC*10-SM>90 AND SC*10-SM<100 PRINT"VERY, VERY GOOD." 5490 IF LC=0 THEN PRINT"THE GAME IS OVER":GOTO65000 5500 GOTO 570 5600 REM 5610 PRINT"DO YOU WANT TO QUIT";:INPUT X$ 5620 IF LEFT$(X$,1)<>"Y" THEN 570 5630 LC=0 5635 CLS 5640 GOTO 5300 5800 REM 5810 IF A$<>"ARM" THEN PRINT"I CANNOT REMOVE THAT.":GOTO 570 5815 IF LO(32)<>99 THEN PRINT"I AM NOT WEARING IT.":GOTO 570 5820 LO(32)=LC 5830 PRINT"AH, THAT FEELS BETTER." 5840 GOTO 570 5900 REM 5910 IF A$<>"BOO" PRINT "i CAN'T COVER THAT.":GOTO 570 5920 IF (LO(2)<>99 AND LO(2)<>LC) OR (LO(11)<>99 AND LO(11)<>LC)THEN PRINT"I CAN'T YET.":GOTO 570 5930 LO(11)=0:REM GET RID OF COVER 5940 NM$(2)="* A COMPLETE GUTENBURG " 5945 NA$(2)="BIBLE" 5950 PRINT"THAT LOOKS NICE." 5960 GOTO 570 6000 REM 6010 IF A$<>"BUL" THEN PRINT"THE ONLY THING I CAN SCREW IS A BULB.":GOTO 570 6020 IF (LO(13)<>99 AND LO(13)<>13) AND (LO(12)=99 OR LO(12)=13) THEN PRINT"THAT'S THE WRONG KIND OF BULB!":GOTO 570 6030 REM SUCCESS 6040 LO(13)=0 6045 LI(13)=1 6050 NA$(14)="LAMP":NM$(14)="* A TIFFANY " 6070 GOTO 500 6100 REM 6110 IF A$<>"COM" THEN PRINT"I CAN'T EAT THAT!":GOTO 570 6120 IF LO(15)=99 OR LO(15)=LC THEN PRINT"GAG......YURP! BAD!":GOTO 570 6130 PRINT"THANK GOD, IT ISN'T HERE!" 6140 GOTO 570 6200 REM 6210 IF A$<>"ICE" THEN PRINT"THAT WON'T MELT":GOTO 570 6215 IF NA$(29)<>"ICE" THEN PRINT"ONLY ONCE!":GOTO 570 6220 IF (LO(29)<>LC AND LO(29)<>99) OR (LO(30)<>LC AND LO(30)<>99) THEN PRINT"I CAN'T YET.":GOTO 570 6230 NM$(29)="SOME THAWED " 6240 NA$(29)="WATER" 6250 NM$(30)="SOME COLD " 6260 PRINT"THAT DID IT. THE WATER FLOWS." 6270 GOTO 570 6300 REM 6310 IF A$<>"BUL" AND A$<>"TUL" THEN PRINT"I CAN'T PLANT THAT.":GOTO 570 6320 IF (LO(13)=99 OR LO(13)=LC) AND NOT (LO(12)=99 OR LO(12)=LC) THEN PRINT"PLANT THAT BULB?":GOTO 570 6330 IF (LO(12)=99 OR LO(12)=LC) AND (LO(15)=99 OR LO(15)=LC) AND NA$(29)="WATER" THEN 6350 6340 PRINT"I DON'T HAVE EVERYTHING I NEED.":GOTO 570 6350 IF LC<>14 THEN PRINT "IT WON'T GROW HERE.":GOTO 570 6360 IF LO(20)<>99 AND LO(20)<>LC AND LO(8)<>LC AND LO(8)<>99 THEN PRINT"NOT WITH THESE BARE HANDS!!!":GOTO 570 6370 TR=1:REM THIS IS THE TULIP READY COUNTER 6380 PRINT"OKAY. I BURIED THAT MESS" 6390 LO(12)=0:LO(15)=0:LO(29)=0 6400 GOTO 570 28002 REM NA$(I),NM$(I),LO(I) 28005 DATA 32: REM THIS IS THE ITEM COUNT 28010 DATA"RUBY","* A HUGE ",4 28020 DATA"BOOK","AN OLD ",3 28030 DATA"RING","A DULL ",2 28040 DATA"SCROLL","A TIGHTLY ROLLED ",3 28050 DATA"LIGHTER","A ",0 28060 DATA"LADDER","A LONG ",4 28070 DATA"CLOTH","A FUZZY ",3 28080 DATA"SHOVEL","AN ANTIQUE ",16 28090 DATA"CAGE","A WICKER ",18 28100 DATA"FLASHLIGHT","AN UNLIT ",15 28110 DATA"BOOKCOVER","AN EMPTY ",11 28120 DATA"BULB","A TULIP ",25 28130 DATA"BULB","A LIGHT ",27 28140 DATA"SOCKET","AN EMPTY ",13 28150 DATA"COMPOST","SOME WELL ROTTED ",90 28160 DATA"POLISH","A BOTTLE FULL OF ",13 28170 DATA"ROPE","A COILED ",21 28180 DATA"TRASH","A MOUND OF ",21 28190 DATA"URN","A FUNERARY ",15 28200 DATA"TROWEL","A GARDEN ",1 28210 DATA"TULIP","* A RAINBOW COLORED ",90 28220 DATA"BIRD","* A LIVING CRYSTAL ",5 28230 DATA"CROWN","A DISCARDED, BLACKENED ",90 28240 DATA"D","D",90 28250 DATA"COINS","* SOME TRIANGULAR GOLD ",90 28260 DATA"PIPE","* A PLATINUM SMOKING ",90 28270 DATA"D","D",90 28280 DATA"D","D",90 28290 DATA"ICE","SOME GREENISH ",26 28300 DATA"COALS","SOME GLOWING ",18 28310 DATA"GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 28320 DATA"ARMOUR","SOME VERY, VERY HEAVY ",99 29005 DATA 28 :REM THIS IS THE LOCATION COUNT 29010 DATA "NOWHERE.",0,0,0,0,0,0,0 29020 DATA"A DIM CLOSET.",0,2,3,0,0,0,0 29030 DATA"A GATHERING ROOM WITH WIDE BENCHES DOWN BOTH SIDES.",5,0,4,1,0,0,1 29040 DATA"AN OLD STONE ARMS ROOM.",1,4,0,0,0,0,1 29050 DATA"A DANK AND MUSTY DUNGEON.",2,0,0,3,0,0,0 29060 DATA"A LUSH GREEN MEADOW, WITH A TOWER TO THE SOUTH. NOT TOO FAR TO THE WEST IT LOOKS LIKE THERE'S A CASTLE. THERE'S A DEEP MOAT WEST.",0,0,2,28,0,0,1 29070 DATA"A HIGH TOWER LOOKING OUT ON THE MEADOW. THROUGH A WESTERN PORTAL, A BRIDGE LEADS TO ANOTHER CASTLE.",0,0,0,8,0,7,1 29080 DATA"THE TOP OF THE LADDER.",0,0,0,0,0,0,0 29090 DATA"A BRIDGE TO A TOWER OFF TO THE WEST.",0,6,0,9,0,0,1 29100 DATA"A NORTH-SOUTH CORRIDOR IN THE TOWER.",10,8,19,0,0,0,1 29110 DATA"A SQUARE ROOM WITH A VAULTED CEILING.",0,0,9,11,0,24,1 29120 DATA"A LIBRARY FULL OF ANCIENT AND WONDERFUL BOOKS.",0,10,12,0,0,0,1 29130 DATA"A GRASSY ROOF-TOP WITH POTTED PALMS AND A CLEAR BLUE SKY.",11,13,14,25,0,0,1 29140 DATA"A ROOM WITH A TALL GOLDEN THRONE, AND A SMALL PLASTER PLAQUE SET IN THE FLOOR..",0,0,0,12,0,0,0 29150 DATA"A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 29160 DATA"A TOMB WITH A ROW OF BRONZE MARKERS FOR FALLEN SCHOLARS.",18,16,0,14,0,0,0 29170 DATA"A MUSEUM WITH BROKEN AND DESTROYED DISPLAYS.",17,0,0,15,0,0,0 29180 DATA"AN EAST-WEST CORRIDOR WITH PORCELAIN TILE WALLS.",0,22,16,18,0,0,0 29190 DATA"A TORTURE CHAMBER WITH A BRAZIER IN THE CORNER.",0,17,15,0,0,0,0 29200 DATA"A SQUARE ROOM WITH A VAULTED CEILING.",9,20,0,0,0,0,1 29210 DATA"A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 29220 DATA"A BATHROOM WITH PRECIOUS METAL FIXTURES.",0,0,23,22,0,0,0 29230 DATA"A HALLWAY WITH WARRIORS IN BAS-RELIEF IN THE WALL STONES.",20,21,23,17,0,0,1 29240 DATA"A BEDROOM FIT FOR A KING. IT SAYS 'KING' RIGHT ON THE CURTAIN.",22,21,0,0,0,0,0 29250 DATA"A PIT FULL OF SMELLY GARBAGE AND FOUL REFUSE.",0,0,0,0,10,0,0 29260 DATA"A PASSAGE WITH A BLINDING GLARE TO THE WEST AND A DARK HOLE TO THE EAST.",0,12,0,26,0,0,1 29270 DATA"A WIND SWEPT ICEFIELD. STORM CLOUDS BLOT A FAINT RED SUN. i CAN SEE A CARAVAN OF ICE BEASTS. tHERE'S A SIGN HALF-BURIED IN THE ICE. WHOOPS, THIS IS THE WRONG ADVENTURE.",0,25,0,0,0,0,1 29280 DATA"THE BOTTOM OF A HOLE.",0,0,0,0,0,0,0 29290 DATA"THE WATER OF THE MOAT.",0,5,0,0,0,0,1 65000 END