Willus.com
Home
|
Archive
|
About
WIZCAST1.BAS
(21020 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.
h ***************************************************** 2i * WIZARD'S CASTLE GAME FROM JULY/AUGUST 1980 * ni * ISSUE OF RECREATIONAL COMPUTING MAGAZINE * i * WRITTEN FOR EXIDY SORCERER BY JOSEPH R. POWER * i * MODIFIED FOR HEATH MICROSOFT BASIC BY J.F.STETSON * "j ***************************************************** 4j5000: AZ: Zj C$(34),I$(34),R$(4),W$(8),E$(8) }j L(512),C(3,4),T(8),O(3),R(3) j A(Q)1((0)Q) j$ B(Q)Q8((Q9)(Q0)) j) C(Q)Q(Q19)18(Q18) j. D(Q)64(Q1)8(X1)Y k3 E(Q)Q100(Q99) /k8Y$"** PLEASE ANSWER YES OR NO" 8k=NG0 >kB XkG INITIALIZE ARRAYS ^kL jkQNGNG1 ukVQ(0) {k[ k` Q1 34 ke C$(Q),I$(Q) kj Q ko Q1 512 ktL(Q)101 ky Q k~ Q1 8 k W$(Q),E$(Q) k Q k Q1 4 l R$(Q) l Q 'l NG 1 1250 4l (27); ?l 5375 nl 16);"* * * THE WIZARD'S CASTLE * * *": yl 5375 l "MANY CYCLES AGO, IN THE KINGDOM OF N'DIC, THE GNOMIC" l "WIZARD ZOT FORGED HIS GREAT *ORB OF POWER*. HE SOON" 0m "VANISHED, LEAVING BEHIND HIS VAST SUBTERRANEAN CASTLE" om "FILLED WITH ESURIENT MONSTERS, FABULOUS TREASURES, AND" m "THE INCREDIBLE *ORB OF ZOT*. FROM THAT TIME HENCE, MANY" m "A BOLD YOUTH HAS VENTURED INTO THE WIZARD'S CASTLE. AS" -n "OF NOW, *NONE* HAS EVER EMERGED VICTORIOUSLY! BEWARE!!" 3n Hn"STAND BY....." VnX1 : Y4 enL(D(1))2 sn Z1 7 n Q11 2 nQ104 n 5285 n L(D(Z1))103 n Q1 n Z n Z1 8 n Q113 124 n 5285 n Q n# Q11 3 o( Q105 112 o- 5285 "o2 Q ,o7Q125 7o< 5285 @oA Q1 HoF Z ZoK Q126 133 foPZվA(8) qoU 5285 yoZ Q o_Q101 od A1 3 oiZվA(8) on 5285 osC(A,1)X oxC(A,2)Y o}C(A,3)Z oC(A,4)0 o A oRC0 oST2 pDX14 pR$(3)"MAN" !pQ112;A(12) -pZվA(8) 8p 5285 CpR(1)X NpR(2)Y YpR(3)Z cpQ109 opZվA(8) zp 5285 pO(1)X pO(2)Y pO(3)Z pBF0 : OT8 : AV0 : HT0 : T1 : VF0 : LF0 qTC0 : GP60 : RF0 : OF0 : BL0 : IQ8 : SX0 q Q1 8 qT(Q)0 "q Q .q (7); Kq "ALL RIGHT, BOLD ONE." }q "YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT." q 5405 q Q1 4 q (R$(Q),1)O$ RCQ : STST2Q : DXDX2Q q Q q q OTOT4(RC1) r" RC 0 R$(3)"HUMAN" : 1585 Jr' "** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H." Ur, 1535 |r1 "WHICH SEX DO YOU PREFER TO BE"; r6 5415 r; O$"M" SX1 : 1615 r@ O$"F" 1615 rE "** CUTE ";R$(RC);", REAL CUTE. TRY M OR F." rJ 1585 rO 8sT "OK, ";R$(RC);", YOU HAVE THE FOLLOWING ATTRIBUTES :" usY "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX s^ "AND";OT;"OTHER POINTS TO ALLOCATE AS YOU WISH." sc shZ$"STRENGTH" sm 5430 srSTSTQ sw OT0 1695 t|Z$"INTELLIGENCE" t 5430 tIQIQQ ,t OT0 1695 ?tZ$"DEXTERITY" Jt 5430 VtDXDXQ t "OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP'S)." tZ$"ARMOR" t 5555 tAV0 : WV0 : FL0 : WC0 t "PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>" u 5405 u O$"N" 1755 CuAV3(O$"P")2(O$"C")(O$"L") Wu AV 0 1755 ]u u "** ARE YOU A ";R$(RC);" OR ";C$(A(12)12);"?" u 1700 uAHAV7 : GPGPAV10 u u "OK, BOLD ";R$(RC);", YOU HAVE";GP;"GP'S LEFT." vZ$"WEAPONS" v 5555 Av "SWORD<30> MACE<20> DAGGER<10> NOTHING<0>" Lv 5405 `v O$"N" 1820 vWV3(O$"S")2(O$"M")(O$"D") v WV 0 1820 v v "** IS YOUR IQ REALLY";IQ;"?" v 1770 v GPGPWV10 v! GP 20 1855 v& +w+ "DO YOU WANT TO BUY A LAMP FOR 20 GP'S"; 6w0 5415 ^w5 O$"Y" LF1 : GPGP20 : 1855 w: O$ "N" : Y$ : : 1835 w? wD GP 1 Q0 : 1915 wI "OK, ";R$(RC);", YOU HAVE";GP;"GOLD PIECES LEFT." wN xS "FLARES COST 1 GP EACH. HOW MANY DO YOU WANT";O$ )xXQ(O$) /x] Mxb Q 0 (O$)48 1910 xg "** IF YOU DON'T WANT ANY, JUST TYPE 0 (ZERO)." xl xq 1875 xv Q GP "** YOU CAN ONLY AFFORD";GP;"." : : 1875 x{FLFLQ : GPGPQ xX1 : Y4 : Z1 5y "OK, ";R$(RC);", YOU ARE NOW ENTERING THE CASTLE!" @y 3450 Fy cy MAIN PROCESSING LOOP iy syTT1 y RFOF 0 2020 y C(1,4) T(1) TT1 y C(2,4) T(3) GPGPξA(5) y GP 0 GP0 y C(3,4) T(5) 2020 zAX : BY : CZ ,zXվA(8) : YվA(8) : ZվA(8) JzL(D(Z))վE(L(D(Z)))100 ^zXA : YB : ZC yz L(D(Z)) 1 2020 z Q1 3 zC(Q,4)(C(Q,1)X)(C(Q,2)Y)(C(Q,3)Z) z Q z A(5) 1 2165 z z "YOU "; zQվA(7)BL { Q 7 Q4 5{ Q 2125,2065,2115,2055,2135,2145,2155 @{ 2165 [{ "STEPPED ON A FROG!" a{ p{ "HEAR "; { A(4) 2075,2085,2095,2105 { "A SCREAM!" { {% "FOOTSTEPS!" {* {/ "A WUMPUS!" {4 {9 "THUNDER!" {> |C "SNEEZED!" |H #|M "SEE A BAT FLY BY!" )|R Q|W "SMELL ";C$(12;A(13));" FRYING!" W|\ |a "FEEL LIKE YOU'RE BEING WATCHED!" |f |k "HEAR FAINT RUSTLING NOISES!" |p |u BLT(4) 2 2185 |z | C$(29);" CURES YOUR BLINDNESS!" |BL0 } BFT(6) 2 2205 } B} C$(31);" DISSOLVES THE BOOK!" K}BF0 Q} } "ENTER YOUR COMMAND (TYPE HELP FOR HELP): ";O$ } (O$,2)"DR" 2870 }O$(O$,1) } O$"N" 2435 } (O$"S") (O$"W") (O$"E") 2440 ~ O$"U" 2465 ~ O$"D" 2480 -~ O$"M" 2505 O~ O$"F" BL1 2620,2505 q~ O$"L" BL1 2750,2505 ~ O$"O" 2965 ~ O$"G" BL1 3185,2505 ~ O$"T" : RF1 3315,3335 ~ O$"Q" 3390 ~ O$"H" 2420 (27);"E" F "*** WIZARD'S CASTLE COMMAND AND INFORMATION SUMMARY ***" L { "THE FOLLOWING COMMANDS ARE AVAILABLE :" "H/ELP N/ORTH S/OUTH E/AST W/EST U/P" "D/OWN DR/INK M/AP F/LARE L/AMP O/PEN" " "G/AZE T/ELEPORT Q/UIT" I :"PRESS <ENTER> TO CONTINUE";ZZ$ x "THE CONTENTS OF ROOMS ARE AS FOLLOWS :" ~ $ ". = EMPTY ROOM B = BOOK C = CHEST" ) "D = STAIRS DOWN E = ENTRANCE/EXIT F = FLARES" 3. "G = GOLD PIECES M = MONSTER O = CRYSTAL ORB" p3 "P = MAGIC POOL S = SINKHOLE T = TREASURE" 8 "U = STAIRS UP V = VENDOR W = WARP/ORB" = B "THE BENEFITS OF HAVING TREASURES ARE :" G 'L "RUBY RED - AVOID LETHARGY PALE PEARL - AVOID LEECH" hQ "GREEN GEM - AVOID FORGETTING OPAL EYE - CURES BLINDNESS" V "BLUE FLAME - DISSOLVES BOOKS NORN STONE - NO BENEFIT" [ "PALANTIR - NO BENEFIT SILMARIL - NO BENEFIT" ` e "PRESS RETURN WHEN READY TO RESUME, ";R$(RC);"."; .j "";O$ 9o 1950 ?t yy "** SILLY ";R$(RC);", THAT WASN'T A VALID COMMAND!" ~ 1950 L(D(Z))2 4970 XX(O$"N")(O$"S") Ѓ YY(O$"W")(O$"E") ܃ XվB(X) 胗 YվB(Y) 3450 L(D(Z))3 ZZ1 : 3450 ! Z$"UP" , 2490 : Z$"DOWN" \ L(D(Z))4 ZZ1 : 3450 b "** THERE ARE NO STAIRS GOING ";Z$;" FROM HERE!" 1950 BL 1 2540 "** YOU CAN'T SEE ANYTHING, YOU DUMB ";R$(RC);"!" 1950 4 DISPLAY MAP OF CURRENT CASTLE LEVEL : @ N AX : BY \ X1 8 j Y1 8 y QL(D(Z)) Q 99 QQ100 : LET Q=34 TO HIDE ROOMS م XA YB "<";I$(Q);"> "; : 2580 " ";I$(Q);" "; Y # X ( XA : YB - 2725 12 ") LEVEL";Z <7 1950 Q< FL 0 2650 A "** HEY, BRIGHT ONE, YOU'RE OUT OF FLARES!" F 1950 K ƆP DISPLAY ADJACENT ROOM CONTENTS WITH FLARE ̆U ҆Z ކ_ FLFL1 d AX : BY i Q1A1 A1 n XվB(Q1) s Q2B1 B1 ,x YվB(Q2) ?} QվE(L(D(Z))) N L(D(Z))Q e " ";I$(Q);" "; n Q2 t z Q1 XA : YB 5570 1950 ᇴ DISPLAY CONTENTS OF ADJACENT ROOM WITH LAMP 燹 LF 0 2770 0 "** YOU DON'T HAVE A LAMP, ";R$(RC);"!" ; 1950 A x "WHERE DO YOU WANT TO SHINE THE LAMP (N,S,E,W)"; 5415 AX : BY XվB(X(O$"N")(O$"S")) ͈ YվB(Y(O$"W")(O$"E")) AXBY 0 2820 "** THAT'S NOT A DIRECTION, ";R$(RC);"!" ' 1950 - d "THE LAMP SHINES INTO (";X;",";Y;") LEVEL";Z;"." j L(D(Z))վE(L(D(Z))) "THERE YOU WILL FIND ";C$(L(D(Z)));"." XA : YB ˉ" 1950 щ' , TAKE A DRINK FROM A POOL 1 6 L(D(Z))5 2890 ; C@ "** IF YOU WANT A DRINK, FIND A POOL!" NE 1950 ZJ QվA(8) `O T "YOU TAKE A DRINK AND "; Y Q 7 "FEEL "; ʊ^ Q 2915,2920,2925,2930,2935,2940,2945,2955 c STվC(ST;A(3)) : "STRONGER." : 1950 0h STSTξA(3) : "WEAKER." : (1(ST1)) 1950,4910 \m IQվC(IQ;A(3)) : "SMARTER." : 1950 r IQIQξA(3) : "DUMBER." : (1(IQ1)) 1950,4910 w DXվC(DX;A(3)) : "NIMBLER." : 1950 | DXDXξA(3) : "CLUMSIER." : (1(DX1)) 1950,4910 QվA(4) : QRC 2945 E RCQ : "BECOME A ";R$(RC);"." : 1950 x SX1SX : "TURN INTO A "; : SX0 "FE"; "MALE ";R$(RC);"!" : 1950 L(D(Z)) 6 2985 ڌ "YOU OPEN THE CHEST AND" 匤 3115 L(D(Z)) 12 3005 % "YOU OPEN THE BOOK AND" 0 3020 6 k "** THE ONLY THING OPENED WAS YOUR BIG MOUTH!" v 1950 A(6) 3025,3040,3050,3060,3075,3090 ؍ "FLASH! OH NO! YOU ARE NOW A BLIND ";R$(RC);"!" BL1 3105 " "IT'S ANOTHER VOLUME OF ZOT'S POETRY! - YECH!!" - 3105 \ "IT'S AN OLD COPY OF PLAY";R$(A(4));"!" g 3105 "IT'S A MANUAL OF DEXTERITY!" DX18 3105 Î "IT'S A MANUAL OF STRENGTH!" ͎ ST18 ؎ 3105 "THE BOOK STICKS TO YOUR HANDS -" 0 "NOW YOU ARE UNABLE TO DRAW YOUR WEAPON!" 9 BF1 H! L(D(Z))1 S& 1950 u+ A(4) 3120,3140,3160,3140 0 "KABOOM! IT EXPLODES!!" 5 QվA(6) : 4860 Ǐ? (1(ST1)) 3105,4910 ֏D QվA(1000) I "FIND";Q;"GOLD PIECES!" N GPGPQ S 3105 4X "GAS!! YOU STAGGER FROM THE ROOM!" C] L(D(Z))1 Nb TT20 gg O$("NSEW",A(4),1) rl 2440 q L(D(Z))11 3205 v { "** IT'S HARD TO GAZE WITHOUT AN ORB!" ɐ 1950 ϐ ᐊ "YOU SEE "; A(6) 3220,3230,3240,3250,3285,3305 0 "YOURSELF IN A BLOODY HEAP!" [ STSTξA(2) : (1(ST1)) 1950,4910 "YOURSELF DRINKING FROM A POOL AND BECOMING ";C$(12;A(13));"!" 1950 ב C$(12;A(13));" GAZING BACK AT YOU!" ⑭ 1950 AX : BY : CZ XվA(8) : YվA(8) : ZվA(8) ) QվE(L(D(Z))) 8 L(D(Z))Q d C$(Q);" AT (";X;",";Y;") LEVEL";Z;"." x XA : YB : ZC 1950 AվA(8) : BվA(8) : CվA(8) Β A(8) 4 AO(1) : BO(2) : CO(3) "***THE ORB OF ZOT*** AT (";A;",";B;") LEVEL";C;"!" 1950 / "A SOAP OPERA RERUN!" : 1950 O RF 0 3335 U "** YOU CAN'T TELEPORT WITHOUT THE RUNESTAFF!" 1950 Z$"X-COORDINATE" 5485 XQ ԓ Z$"Y-COORDINATE" ߓ 5485 YQ % Z$"Z-COORDINATE" * 5485 / ZQ 4 O$"T" &9 3450 ,> TC "DO YOU REALLY WANT TO QUIT NOW"; _H 5415 eM yR O$"Y" 3425 W "** THEN DON'T SAY THAT YOU DO!" \ 1950 a f 5030 k p DISPLAY STATUS INFORMATION u z BL0 5570 : F "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX "TREASURES =";TC;" FLARES =";FL;" GOLD PIECES =";GP "WEAPON = ";W$(WV1);" ARMOR = ";W$(AV5); ѕ LF1 " AND A LAMP"; ו WC0 QվE(L(D(Z))) L(D(Z))Q Z$"YOU NOW HAVE" ? "HERE YOU FIND ";C$(Q);"." d (Q7) (Q11) (Q12) 1950 Q7 GPGP;A(10) : Z$;GP;"." : 3105 Ö Q8 FLFL;A(5) : Z$;FL;"." : 3105 ֖ Q 9 3545 (O(1)X) (O(2)Y) (O(3)Z) (1(O$"T")) 2440,5175 A XվA(8) : YվA(8) : ZվA(8) : 3450 a Q10 ZվB(Z1) : 3450 Q 25 Q 34 3580 "IT'S NOW YOURS!" T(Q25)1 TCTC1 × 3105 AL(D(Z))12 ޗWC0 (A13) (VF1) 4185 ; "YOU MAY TRADE WITH, ATTACK, OR IGNORE THE VENDOR." F 5405 Z O$"I" 1950 q O$ "A" 3640 z$VF1 ) . "YOU'LL BE SORRY THAT YOU DID THAT!" 3 4185 ʘ8 O$"T" 3660 И= B "** NICE SHOT, ";R$(RC);"!" G 3595 L Q1 8 QAվA(Q1500) 0V T(Q)0 3700 6[ m` "DO YOU WANT TO SELL ";C$(Q25);" FOR";A;"GP'S"; xe 5415 j O$"Y" TCTC1 : T(Q)0 : GPGPA : 3700 ˙o O$ "N" Y$ : 3675 әt Q y GP 1000 3725 ~ "YOU'RE TOO POOR TO TRADE, ";R$(RC);"." * 1950 A GP 1250 3975 G "OK, ";R$(RC);", YOU HAVE";GP;"GP'S AND ";W$(AV5);" ARMOR." Z$"ARMOR" 5555 ͚ "NOTHING<0> LEATHER<1250> "; GP 1499 "CHAINMAIL<1500> "; GP 1999 "PLATE<2000>"; ) 5405 / C O$"N" 3850 t O$"L" GPGP1250 : AV1 : AH7 : 3850 O$ "C" GP 1500 3810 ˛ "** YOU HAVEN'T GOT THAT MUCH CASH ON HAND!" ֛ 3740 O$"C" GPGP1500 : AV2 : AH14 : 3850 , O$ "P" GP 2000 3830 U "** YOU CAN'T AFFORD PLATE ARMOR!" ` 3740 O$"P" GPGP2000 : AV3 : AH21 : 3850 ǜ "** DON'T BE SILLY. CHOOSE A SELECTION." Ҝ 3770 GP 1250 3975 * "YOU HAVE";GP;"GP'S LEFT WITH ";W$(WV1);" IN HAND." 0 @ Z$"WEAPON" K# 5555 m( "NOTHING<0> DAGGER<1250> "; - GP 1499 "MACE<1500> "; 2 GP 1999 "SWORD<2000>"; 7 ĝ< 5405 ʝA ޝF O$"N" 3975 K O$"D" GPGP1250 : WV1 : 3975 ,P O$ "M" GP 1500 3935 bU "** SORRY SIR, I'M AFRAID I DON'T GIVE CREDIT!" mZ 3865 _ O$"M" GPGP1500 : WV2 : 3975 d O$ "S" GP 2000 3960 i "** YOUR DUNGEON EXPRESS CARD - "; n "YOU LEFT HOME WITHOUT IT!" s 3865 ;x O$"S" GPGP2000 : WV3 : 3975 `} "** TRY CHOOSING A SELECTION!" k 3895 GP 1000 1950 Z$"STRENGTH" 5525 O$ "Y" 4020 şGPGP1000 ٟSTվC(ST;A(6)) ⟥QST ퟪ 5540 3975 O$ "N" Y$ : 3980 / GP 1000 1950 EZ$"INTELLIGENCE" P 5525 g O$ "Y" 4070 vGPGP1000 IQվC(IQ;A(6)) QIQ 5540 4025 ɠ O$ "N" Y$ : 4030 GP 1000 1950 Z$"DEXTERITY" 5525 O$ "Y" 4120 $GPGP1000 8DXվC(DX;A(6)) A QDX L 5540 W 4075 w O$ "N" Y$ : 4080 (GP1000) (LF1) 1950 " Ρ' "DO YOU WANT TO BUY A LAMP FOR 1000 GP'S"; ١, 5415 1 O$ "Y" 4175 6GPGP1000 ;LF1 @ 6E "IT'S GUARANTEED TO OUTLIVE YOU!" AJ 1950 aO O$ "N" Y$ : 4130 lT 1950 YQ11(A2) : Q2A2 : Q31 â^ (C(1,4)T(1)) (BL1) (DX־A(9);A(9)) 4700 ɢc h "YOU'RE FACING ";C$(A12);"!" m r "YOU MAY ATTACK OR RETREAT." Ew Q31 "YOU CAN ALSO ATTEMPT A BRIBE." t| IQ 14 "YOU CAN ALSO CAST A SPELL." z "YOUR STRENGTH IS";ST;"AND YOUR DEXTERITY IS";DX;"." 5405 ף O$ "A" 4445 죕 WV 0 4265 % "** POUNDING ON ";C$(A12);" WON'T HURT IT!" 0 4700 E BF 1 4285 K ~ "** YOU CAN'T BEAT IT TO DEATH WITH A BOOK!" 4700 DX A(20)(3BL) 4305 ͤ "YOU MISSED, TOO BAD!" ؤ 4700 Z$(C$(A12),(C$(A12))2) (Z$,1)" " Z$(Z$,2) ? "YOU HIT THE EVIL ";Z$;"!" LQ2Q2WV l (A 9 A 12) 4355 A(8) 1 4355 "OH NO! YOUR ";W$(WV1);" BROKE!" WV0 ϥ Q2 0 4700 ե MCMC1 C$(A12);" LIES DEAD AT YOUR FEET!" ! H T60 4395 ' `! "YOU SPEND AN HOUR EATING ";C$(A12);E$(A(8));"." h&HT + X R(1) Y R(2) Z R(3) (1(A13)) 4420,5305 0 5 "GREAT ZOT! YOU'VE FOUND THE RUNESTAFF!";(7) :R(1)0 ?RF1 DQվA(1000) I 9N "YOU NOW GET HIS HOARD OF";Q;"GP'S!" ESGPGPQ PX 3105 d] O$"R" 4700 {b O$ "C" 4595 g IQ 15 Q3 1 4475 l ȧq "** YOU CAN'T CAST A SPELL NOW!" ӧv 4195 ٧{ "WHICH SPELL (WEB, FIREBALL, DEATHSPELL)"; 5415 2 O$ "W" 4515 >STST1 MWCվA(8)1 j (1(ST1)) 4700,4910 O$ "F" 4560 QվA(7);A(7) STST1 IQIQ1 ̨ (IQ 1) (ST 1) 4910 "IT DOES";Q;"POINTS WORTH OF DAMAGE." Q2Q2Q 4355 ) O$"D" 4580 / X "** TRY ONE OF THE OPTIONS GIVEN." c 4195 y "DEATH . . . "; IQ A(4)15 "YOURS!" : IQ0 : 4910 ǩ "HIS!" : Q20 : 4360 O$"B" Q3 1 4615 "** CHOOSE ONE OF THE OPTIONS LISTED." # 4195 8 TC 0 4635 > _ "ALL I WANT IS YOUR LIFE!" j 4700 vQվA(8) T(Q)0 4635 % Ū* "I WANT ";C$(Q25);". WILL YOU GIVE IT TO ME"; Ъ/ 5415 4 O$"N" 4700 9 O$ "Y" Y$ : 4645 >T(Q)0 CTCTC1 !H JM "OK, JUST DON'T TELL ANYONE ELSE." bRVFVF(L(D(Z))25) mW 1950 v\Q32 a WC 0 4720 fWCWC1 k WC0 : "THE WEB JUST BROKE!" pZ$(C$(A12),(C$(A12))2) u (Z$,1)" " Z$(Z$,2) z WC 0 4750 M "THE ";Z$;" IS STUCK AND CAN'T ATTACK NOW!" X 4805 ^ z "THE ";Z$;" ATTACKS!" DX A(7);A(7);A(7)3BL 4780 ˬ "WHAT LUCK, HE MISSED YOU!" ֬ 4805 ܬ "OUCH! HE HIT YOU!" QQ1 4860 ST 1 4910 5 O$ "R" 4195 ; U "YOU HAVE ESCAPED!" [ "DO YOU WANT TO GO NORTH, SOUTH, EAST, OR WEST"; 5415 ̭ O$"N" O$"S" O$"E" O$"W" 2440 ҭ "** DON'T PRESS YOUR LUCK, ";R$(RC);"!" 4825 # AV0 4900 .QQAV ;AHAHAV W Q 0 AHAHQ : Q0 l AH 0 4900 |AH0 : AV0 "YOUR ARMOR HAS BEEN DESTROYED . . . GOOD LUCK!" Ů$STSTQ ˮ) ֮. (7) 3 5375 8 "A NOBLE EFFORT, OH FORMERLY LIVING ";R$(RC);"!" = @B "YOU DIED DUE TO LACK OF "; ]G ST 1 "STRENGTH." ~L IQ 1 "INTELLIGENCE." Q DX 1 "DEXTERITY." V [Q31 ӯ` "AT THE TIME YOU DIED, YOU HAD :" ޯe 5055 jQ30 o t "YOU LEFT THE CASTLE WITH"; %y OF0 "OUT"; >~ " THE ORB OF ZOT." D V OF0 5030 \ "AN INCREDIBLY GLORIOUS VICTORY!!" "IN ADDITION, YOU GOT OUT WITH THE FOLLOWING :" ̰ 5050 Ұ "A LESS THAN AWE-INSPIRING DEFEAT." . "WHEN YOU LEFT THE CASTLE, YOU HAD :" T Q30 "YOUR MISERABLE LIFE!" b Q1 8 | T(Q)1 C$(Q25) Q W$(WV1);" AND ";W$(AV5); ñ LF1 " AND A LAMP"; ɱ "YOU ALSO HAD";FL;"FLARES AND";GP;"GOLD PIECES" " RF1 "AND THE RUNESTAFF" ( K "AND IT TOOK YOU";T;"TURNS!" Q "ARE YOU FOOLISH ENOUGH TO WANT TO PLAY AGAIN"; 5415 O$ "Y" 5155 ղ "SOME ";R$(RC);"S NEVER LEARN!" ۲ "PLEASE BE PATIENT WHILE THE CASTLE IS RESTOCKED." % 1105 E# O$ "N" Y$ : 5110 }( "MAYBE DUMB ";R$(RC);" IS NOT SO DUMB AFTER ALL!" - 2 5580 7 < "GREAT UNMITIGATED ZOT!" A F "YOU JUST FOUND ***THE ORB OF ZOT***!" K P "THE RUNESTAFF HAS DISAPPEARED!" URF0 %ZOF1 0_O(1)0 ;d 3105 ri AN EMPTY ROOM,.,THE ENTRANCE,E,STAIRS GOING UP,U n STAIRS GOING DOWN,D,A POOL,P,A CHEST,C,GOLD PIECES,G s FLARES,F,A WARP,W,A SINKHOLE,S,A CRYSTAL ORB,O #x A BOOK,B,A KOBOLD,M,AN ORC,M,A WOLF,M,A GOBLIN,M,AN OGRE,M b} A TROLL,M,A BEAR,M,A MINOTAUR,M,A GARGOYLE,M,A CHIMERA,M A BALROG,M,A DRAGON,M,A VENDOR,V,THE RUBY RED,T ϵ THE NORN STONE,T,THE PALE PEARL,T,THE OPAL EYE,T THE GREEN GEM,T,THE BLUE FLAME,T,THE PALANTIR,T,THE SILMARIL,T 6 X,"?",NO WEAPON," SANDWICH" z DAGGER," STEW",MACE," SOUP",SWORD," BURGER",NO ARMOR," ROAST" LEATHER," FILET",CHAINMAIL," TACO",PLATE," PIE" ˶ HOBBIT,ELF,MAN,DWARF ᶥXվA(8) : YվA(8) L(D(Z)) 101 5285 L(D(Z))Q 9 "YOU GET ALL HIS WARES :" M "PLATE ARMOR" ^AV3 : AH21 n "A SWORD" wWV3 "A STRENGTH POTION" STվC(ST;A(6)) ķ "AN INTELLIGENCE POTION" طIQվC(IQ;A(6)) "A DEXTERITY POTION" DXվC(DX;A(6)) & LF0 "A LAMP" : LF1 1 4420 @ Q1 64 K "*"; S Q Y _ e z" "YOUR CHOICE"; ' O$ ,O$(O$,1) 1 и6 "HOW MANY POINTS DO YOU WISH TO ADD TO YOUR ";Z$; ٸ; O$ ߸@ EQ(O$) J Q0 (O$) 48 Q1 9O Q0 QOT Q(Q) "** "; : 5430 ETOTOTQ KY T^ O$ ccQ((O$)) ih om yr Z$; w O$ |Q((O$)) Q 0 Q 9 Թ "** TRY A NUMBER FROM 1 TO 8." ߹ 5485 幕 " "DO YOU WANT TO BUY A POTION OF ";Z$;" FOR 1000 GP'S"; - 5415 3 T "YOUR ";Z$;" IS NOW";Q;"." Z ` "THESE ARE THE TYPES OF ";Z$;" YOU CAN BUY :" Ǻ "YOU ARE AT (";X;",";Y;") LEVEL";Z;"." ͺ Ӻ