iR (,,) () "Y" ( ) ( ) = ****************************************************** * *%( * WIZARD'S CASTLE *=2 * Jul/Aug 80 issue of `Recreational Computing' *=< * Written for Exidy Scorcerer by Joseph R. Power *=F * Modified for Heath Microsoft BASIC by J.F. Stetson *<P * Modified for the Osborne 1 by Mike Bruce *=Z * --- *=d * Modified for Amstrad PCW by Geoff Barnard *=n * (but could do with more mods ! ) *=x * (SO TERRY did some more mods ! ) * * *= ****************************************************** L,C,T,O,R,Q0 "Enter any number in response to prompt."4 ("), ("), (), (), ()7 (), (, ), (), (), ()% () (}())3 () (( )( ))1 () ()()0 () @()()& () d(c)( "** Please answer Yes or No"N " ** Initialize Arrays **",N N6 }()@9J   "  (), ()  0T     () e  9^     (), ()  -h     ()  r N  D| ()"E"()"H" ();  / ( ); "*** THE WIZARD'S CASTLE ***"   ? ()" Many cycles ago, in the kingdom of N'Dic, the"0 ()"Gnomic Wizard Zot forged his great"  (&); "* ORB OF POWER *"D  ()"He soon vanished (some say trapped by the very ORB"@ ()"he created), leaving behind his vast subterranean"@ ()"castle, filled with esurient monsters, fabulous"+ ()"treasures, and the incredible" ('); "* ORB OF ZOT *"I  ()"Since then, many a bold youth has ventured into the"  Q (')"* WIZARD'S CASTLE. * "   ()"Up to now, only TERRY has ";& "emerged victoriously!"0  (*); "BEWARE!"  3:  "Please wait while arrays are set up."D    N(()) X   b Q  l  h v d (()) g  Q       q |  d   Q    i p  d    }  d  Q    ~    () * d 4 > eH   R  () \ df (, ) p (, ) z (, )  (, )   R S D () "man" p( ) ()  d() () ()  m ()  d() $() .() Z8A   B   B   G p  H   I   L UBO   O   R   S      T   V L   V ()  ` jt ** Preliminaries **~, (); (); "All right, bold one."2 "You may be an Elf, Dwarf, Man, or Hobbit."  6   ] x((), )  R   S S  D D   O O(R ), R  () "human"  2  "** WRONG! Please type e, d, m, or h."  # "Which sex to you prefer? ";  @%   "m" S   2  "f" 2?  "** Cute "; (R); ", real cute. Try m or f." ( G2  "OK, "; (R); ", you have the following attributes :"L< "Strength:"; S; " Intelligence:"; I; " Dexterity:"; D<F "and"; O; "other points to allocate as you wish."PZ "strength? " d ^nS Sx O   "intelligence? "  ^I I O   "dexterity? "  ^D DF  "Right, "; (R); ", you have 60 gold pieces (gp's)." "armour"  : 2A   W   F   W ; "Plate <30> Chainmail <20> Leather <10> None <0>"  6  "n" 68A ( "p")( "c")( "l") A  6H"  "** Are you a "; (R); " or "; (( ) ); "?" , -6A A  G GA N@  "Now, bold "; (R); ", you have"; G; "gold pieces left."J "weapons" T : 5^ "Sword <30> Mace <20> Dagger <10> None <0>" h 6r  "n" 8|W ( "s")( "m")( "d") W  -  "** Is your IQ really"; I; "?"  JG GW  G  <  "Do you want to buy a lamp for 20 gold pieces? ";  @8  "y" L   G G  *  "n"     # G     DF "Well, "; (R); ", you have"; G; "gold pieces left."@  "Flares cost 1 gp each. how many do you want? ",  &()%   () 0 :6& "** If you don't want any, just type 0 (zero)." 0 =:  G "** You can only afford"; G ,DF F  G G#N       X ()"E"()"H"Jb (); "Brave "; (R); ", you are now entering the castle!" l v% ** Main Processing Loop **     RO  *+ (, ) ()  4 (, ) () G G() G  G " (, ) () *,       8 ()   ()   ()4(()) ((()))d,       " (())  *    [ (, ) ((, ) )((, ) )((, ) )  * ()  B 4 "You ";> ()BH    /R  , z, , f,  ,  , . \ B f "stepped on a frog!"pz "hear ";$ () , , ,  "a scream!" "footsteps!" "a wumpus!" "thunder!" "sneezed!" "see a bat fly by!"/ "smell "; ( ( )); " frying!" # "feel you're being watched!"$ $. "hear faint rustling noises!"8 B B()  ` -L  (); " cures your blindness!"V B ` B()  ~ +j  (); " dissolves the book!"t B !~  "Give your command: ";"  u   ""   ()"E"()"H"   F G ()c  G    d=1, e=2, ... w = 20q G  ,  ,  ,  ,  ,  ,  ,  ,  , , ,  , t,  , ,  ,  ,  ,  ,  ,  v  down east flare gaze help i j k lamp map north open p quit drink south tele up v westE  "** Silly "; (R); ", that wasn't a valid command!" $ B  , ,  Flare# B , ,  Gaze# B  , ,  Lamp*  R ,   Teleport: (); "*** Command and Information Summary ***"3  "The following commands are available :"<  "Help North South East West Up": "Down dRink Map Flare Lamp Open"(( "Gaze Teleport Quit"'2  "The contents of rooms are:"?<  ". = empty room F = flares S = sinkhole";F "B = book G = gold pieces T = treasure"<P "C = chest M = monster U = stairs up"9Z "D = stairs down O = crystal orb V = vendor"=d "E = entrance/exit P = magic pool W = warp/*ORB*"3n  "The benefits of having treasures are :"Ax  "Ruby Red - avoid lethargy Pale Pearl - avoid leech"< "Green Gem - no forgetting Norn Stone - no benefit"< "Blue Flame - dissolve books Palantir - no benefit"< "Opal Eye - cure blindness Silmaril - no benefit" " (())  *  ( "n")( "s")*  ( "w")( "e")  ()  () 4 (())       "up"    "down"4 (())     ?  "** There are no stairs going "; ; " from here!" " , B  h 76  "** You can't see, blind "; (R); "!" @ J +T ** Display Map of Castle Level **^ h (); ();r     |        (())@  c  d   "  to hide roomsG     "<"; (); "> ";   " "; (); " ";    ();   ( );        ") level";   F  D /  "** Bright one, you have no flares!"  & 90 ** Display Adjacent Room Contents With Flare **: D  ();N F FX     b Q  l  (Q)v Q    (Q)&  ((())) (())  " "; (); " "; Q   (); Q  ( );      N  : ** Display Contents of Adjacent Room With Lamp **  L  * 9  "** You don't have a lamp, "; (R); "!" =*  "Where do you want to shine the lamp? (N S E W) "; 4 @>     1H  (( "n")( "s"))1R  (( "w")( "e"))$\   z :f  "** That's not a direction, "; (R); "!" p Fz  "The lamp shines into ("; ; ", "; ; ") level"; 1 (()) ((())):  "There you will find "; ((()))       ) ** Take a Drink From a Pool ** " (())   1  "** If you want a drink, find a pool!"   () "You take a drink and ";   "feel ";4  , , $, ., 8, B, L, `:S (S())  "stronger."  FS S()  "weaker."  ((S)) , *9$I (I())  "smarter."  F.I I()  "dumber."  ((I)) , *98D (D())  "nimbler."  HBD D()  "clumsier."  ((D)) , *+L ()   R L;VR   "become a "; (R); "."  A`S S  "turn into a ";  S  "fe";(j "male "; (R); "!"  "t (())  .~ "You open the chest and ..."  ();  # (())  - "You open the book and ..."  ( );  9  "** The only thing opened was your big mouth!"  . () , , , , 2, P> "FLASH! Oh no! You are now a blind "; (R); "!"B   n5 "It's another volume of Zot's poetry! Yeuch!"  n6 "It's an old copy of Play"; (()); "!"  n$ "It's a manual of dexterity!"D  ( n#2 "It's a manual of strength!"<S  F n&P "The book sticks to your hands",Z ( ); "-you can't draw your weapon!"dB n(())  x $ () , , , + "B * O * O * O * M ! It explodes!!" ()   ((S)) n, * ()# "find"; ; "gold pieces!"G G  n) "GAS! You stagger from the room!"(())  " ("nsew", (), )   # (())  ,1  "** It's hard to gaze without an orb!" " , "You see ";.6 () @, T, h, |, , #@ "yourself in a bloody heap!"8JS S()  ((S)) , *ZT "yourself drinking from a pool and"  ( ); "becoming "; ( ( )); "!" ^ 1h ( ( )); " gazing back at you!" r ,|       8 ()   ()   ()$ ((()))(()) = (); " at ("; ; ", "; ; ") level"; ,         8 ()   ()   ()F ()   ()   ()   ()I " the * ORB OF ZOT * at ("; ; ", "; ; ") level"; ; "!"   "a soap opera rerun!"   R  9  "** You can't teleport without the runestaff!"   "X-coordinate? " & 0 : "Y-coordinate? " D N X "Level? " b l v "t"  .  "Do you really want to quit now? ";  @  "y" +  "** Then don't say that you do!"    + ** Display Status Information **  B  N X  "Strength:"; S; (); "Intelligence:"; I; (!); "Dexterity:"; DQ  "Treasures:"; T; (); "Flares:"; F; (); "Gold Pieces:"; GE  "Weapon: "; (W); (); "Armour: "; (A); *  #4 L  " and a lamp";>HW $R ((()))\(()) f "You now have",p  "Here you find "; (); "."1z () (  ) (  ) A   G G( )  ; G  n@   F F()  ; F  n   ] (() ) (() ) (() ) (( "t"))  , @ ()   ()   ()  /    ()  $    "  (); "Now it's yours!"() T T  n  (()) W $ ( ) (V ) >  "You can Trade with, Attack, or Ignore the vendor."  6$  "i" .  "a" V8V /B  "You'll be sorry that you did that!" L V  "t" t0`  "** Try again, "; (R); " ..." j t   ~  () ()  J  "Do you want to sell "; (); " for"; ; "gp's? ";  @R  "y" T T  ()   G G  #  "n"      G d 9  "You're too poor to trade, "; (R); "."  * G  [  "OK, "; (R); ", you have"; G; "GP's and "; (A); " armour." "armour"  : ! "None <0> Leather <1250>", G  "Chainmail <1500> ";&( G  "Plate <2000>";2 < 6FP  "n" EZ  "l" G G  A   A   &d  "c" G  +n "** You haven't got that much cash!" x F  "c" G G  A   A   &  "p" G  * "** You can't afford plate armour!"  F  "p" G G  A   A   2  "** Don't be silly. Choose something."  2 G  K  "You have"; G; "gp's left with "; (W); " in hand." "weapon"  :  "None <0> Dagger <1250>"' G  "Mace <1500> ";& G  "Sword <2000>"; " 6,6  "n" 9@  "d" G G  W   &J  "m" G  h6T "** Sorry sir, I'm afraid I don't give credit!" ^ 9h  "m" G G  W   &r  "s" G  )| "** Your Dungeon Express card - ";) ( ); "you left home without it!"  9  "s" G G  W   # "** Try choosing something!"   G  * "strength"     "y" G G"S (S()) S  &  "  "n"    G  *& "intelligence" 0  :  "y" vDG G"NI (I())X I b & l "v  "n"   & G  * "dexterity"     "y" G G"D (D()) D  &  "  "n"   & (G) (L ) *>  "Do you want to buy a lamp for 1000 gold pieces? ";  @  "y"  G GL ,   "It's guaranteed to outlive you!"* G d F4 "Well, "; (R); ", you have"; G; "gold pieces left."B>  "Flares cost 100 gp each. how many do you want? ", H &()R%\   () 0 p6f "** If you don't want any, just type 0 (zero)."Yp d G "** You can only afford"; G  ()"E"()"H"  *1zF F  G G(d)! ()"E"()"H"  "  "n"   ! ()"E"()"H"  6Q ()  Q   Q K ((, )()) (B ) (D()()) /  "You're facing "; ( ); "!"# "You can Attack or Retreat."4 Q  "You can also attempt a Bribe."2 I  "You can also Cast a spell."@ "Your strength is"; S; "and your dexterity is"; D  6  "a" 2 W  =  "** Punching a "; ( ); " won't hurt it!"   B  87$  "** You can't beat it to death with a book!" . )8 D ()(B) VB "You missed, too bad!" L 2V |(( ), (( ))),` x(, ) " "  (, )'j "You smote the evil "; ; "!"tQ QW#~ (    )  ()  > (); "By Zot's ORB! Your "; (W); " broke!"W  Q  M M<  "The "; ( ); " lies dead at your feet!"  < A "You enjoy a meal of "; ( ); (()); "." V  ()  ()  () ((  ))  , ;  "Great Zot! You've found the runestaff!"; ()() R   ()7 "You acquire his hoard of"; ; "gold pieces!"G G ( n2  "r" <  "c" 6%F I  Q  d+P  "** You can't cast a spell now!" Z 3d "Which spell? (Web, Fireball, Deathspell) "; n @x  "w" S SW () ((S)) , *  "f"  ()()S SI I& (I ) (S ) *, "It does"; ; "points damage."  Q Q    "d" -  "** Try one of the options given."   "Death ... ";;" I () "yours!"  I   *!, "his!"  Q   $6  "b" Q  T1@  "** Choose one of the options listed." J T T  r!^ "All I want is your life!" h r ()| ()  r= "I want "; (); ". Will you give it to me";  @  "n" "  "y"   () T T) "OK, just don't tell anyone else."+V V((()) )  Q  W  W W* W  "The web has broken!"2 |(( ), (( ))), x(, ) " "  (, ) W  :6& "The "; ; " is stuck and can't attack now!" 0 #: "The "; ; " attacks! ";7D D ()()()B b#N "What luck! He missed you!" X b "ARGH! He hit you!"l Q v  S  *  "r"   "You have escaped!"9 "Do you want to go North, South, East, or West? ";  @>  "n"  "s"  "e"  "w"  <  "** Don't push your luck, "; (R); "!"    A   AA AA/   A A    A  A   A A   (); "Your armour has been destroyed ... good luck!"S S * (); ()04 "A noble effort, dead "; (R); "!"$>  "You died from lack of "; H S  "strength."$R I  "intelligence."!\ D  "dexterity."fQ +p  "At the time you died, you had:" z Q &  "You left the castle with"; O  "out";  " the * ORB OF ZOT *"   O  -  "An incredibly glorious victory!!"+  "In addition, you got out with:"  .  "A less than awe-inspiring defeat."/  "When you left the castle, you had:"+ Q  "Your miserable life!"   ' ()  ()  - (W); " and "; (A);# L  " and a lamp";D$  "You also had"; F; "flares and"; G; "gold pieces"(. R  "and the runestaff"(8  "It took you"; ; "turns!"B  "y" <L  "Are you foolish enough to want to play again? "; V @`j  "y" -t "Some "; (R); "s never learn!"=~  "Please be patient while the castle is restocked."  ,"  "n"   LE "Maybe a stupid "; (R); " is not so stupid after all!"  b #  "Great unmitigated Zot!"0  "You have found the * ORB OF ZOT * !"+  "The runestaff has disappeared!"R O ()   n< an empty room, ., the entrance, E, stairs going up, UB stairs going down, D, a pool, P, a chest, C, gold pieces, GG  flares, F, a warp, W, a sinkhole, S, a crystal orb, O, a book, BM a kobold, M, an orc, M, a wolf, M, a goblin, M, an ogre, M, a troll, MI a bear, M, a minotaur, M, a gargoyle, M, a chimera, M, a balrog, MC( a dragon, M, a vendor, V, The Ruby Red, T, The Norn Stone, T;2 The Pale Pearl, T, The Opal Eye, T, The Green Gem, T:< The Blue Flame, T, The Palantir, T, The Silmaril, T@F x, "?", None, " sandwich", Dagger, " stew", Mace, " soup":P Sword, " burger", None, " roast", Leather, " filet"AZ Chainmail, " taco", Plate, " pie", hobbit, elf, man, dwarf&d ()   ()#n (()) e dx(()) 6  "You get all his wares:"  "Plate armour"A   A  "A sword"W  "A strength potion""S (S()) "An intelligence potion""I (I()) "A dexterity potion""D (D())) L  "A lamp"  L       V  "*";   "  ,6 "Your choice? ";"@ u   "" @J   T/^ "How many points to add to your "; ;"h u   "" h r | &()+   () 0  >  O () "** ";  ^O O* u   ""     (&())  ;" u   "" ! (&())       )  "** Try a number from 1 to 8."  M "Do you want to buy a potion of ";   (); "for 1000 gp's? ";  @)&  "Your "; ; " is now"; 0 7: "These are the types of "; ; " you can buy:"D PN "Good "; (R); ", you are at ("; ; ", "; ; ") level"; X Cb    " System or Run S/R"/l a u  a ""  a u  $v a "R" a "r"  ()"E"()"H"  ** Change Capitals ** C ()4 C A C Z  (C )  (2,,());           !  (())B  c  d   "  to hide roomsI     "<"; (); "> ";   !! " "; (); " "; ! !   (2); ! *!  (();4!     >! N H! ") level"; R!! !   (2); ! *!  (();4!     >! N H! ") lev