home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug147.arc / ADVENTUR.LBR / ADV1UNT4.PZS / ADV1UNT4.PAS
Pascal/Delphi Source File  |  1979-12-31  |  7KB  |  193 lines
  1. (*****************************************************************************)
  2. (*    procedure pnarrow2                                                       *)
  3. (*****************************************************************************)
  4. PROCEDURE pnarrow2;
  5. BEGIN
  6.  
  7.    writeln ('You are in a very narrow passage.');
  8.    writeln ('To the west the passage opens out by');
  9.    writeln ('a lake shore. To the east it is even');
  10.    writeln ('tighter. You might be able to squeeze');
  11.    writeln ('through if you try real hard.');
  12.    writeln ('   There is also a strange looking ');
  13.    writeln ('alcove in the south wall that seems to ');
  14.    writeln ('open into a very dark tunnel.');
  15.  
  16.    CASE whichway OF
  17.  
  18.       w:     location := lakeshore;
  19.       e:     location := steam;
  20.       s:     location := ogreroom;
  21.       n,u,d: noway;
  22.  
  23.    END; {case}
  24. END; {proc pnarrow2}
  25.  
  26.  
  27.  
  28. (*****************************************************************************)
  29. (*    procedure ppit                                                       *)
  30. (*****************************************************************************)
  31. PROCEDURE ppit;
  32. BEGIN
  33.    writeln ('You are at the bottom of a fifty foot pit.');
  34.    writeln ('The walls are just a hair too steep to climb.');
  35.    writeln ('The pit is empty except for a few old dried');
  36.    writeln ('bones - I can''t tell if they are human or not!!');
  37.    writeln ('In the center of the pit is a narrow shinny');
  38.    writeln ('leading downward.');
  39.  
  40.    CASE whichway OF
  41.  
  42.       d:    location := ladder;
  43.       u:    BEGIN
  44.                writeln ('If you try to climb that,');
  45.                writeln ('you''re sure to kill yourself!');
  46.             END;
  47.  
  48.       n,s,e,w:   noway;
  49.  
  50.    END; {case}
  51. END; {proc ppit}
  52.  
  53. (*****************************************************************************)
  54. (*    procedure pcrystal                                                       *)
  55. (*****************************************************************************)
  56. PROCEDURE pcrystal;
  57. BEGIN
  58.    writeln ('You are in a shining hall of crystal. It is');
  59.    writeln ('intensely cold but also chillingly beautiful.');
  60.    writeln ('THere are glass formations rising from the');
  61.    writeln ('floor as if they had grown there, yet delicately');
  62.    writeln ('sculptured with multi-faceted sides. An intense');
  63.    writeln ('white light shines brilliantly from the floor,');
  64.    writeln ('which is also made of a mirror smooth lead crystal.');
  65.    writeln ('The light is almost blinding and the many reflections');
  66.    writeln ('that it sets off among the crystal formations of ');
  67.    writeln ('the room make it almost impossible to tell where ');
  68.    writeln ('the room begins and where it ends.');
  69.  
  70.    CASE whichway OF
  71.  
  72.       e:     location := maze;
  73.       n,w:   location := ogreroom;
  74.  
  75.       s,u,d: noway;
  76.  
  77.    END; {case}
  78.  
  79. END; {proc pcrystal}
  80.  
  81.  
  82. (*****************************************************************************)
  83. (*    procedure pbatscave                                                       *)
  84. (*****************************************************************************)
  85. PROCEDURE pbatscave;
  86. BEGIN
  87.    writeln ('You are in a steep cavern filled with');
  88.    writeln ('shrieking vampire bats. They swoop and ');
  89.    writeln ('dive at you by the thousands. If I were you,');
  90.    writeln ('I would get out as quickly as I could. There');
  91.    writeln ('are openings to the west and to the north.');
  92.  
  93.    CASE whichway OF
  94.  
  95.       w:     location := ogreroom;
  96.       n:     location := steam;
  97.  
  98.       e,s,u,d:     noway;
  99.  
  100.    END; {case}
  101. END; {proc pbatscave}
  102.  
  103.  
  104. (*****************************************************************************)
  105. (*    procedure psteam                                                       *)
  106. (*****************************************************************************)
  107. PROCEDURE psteam;
  108. BEGIN
  109.    writeln ('You have entered a hall filled with a ');
  110.    writeln ('stifling steamy vapor. There are innumerable');
  111.    writeln ('small geysers scattered about, each contributing');
  112.    writeln ('its own steam to the general mist.');
  113.    writeln ('   To the west is a dark opening, as well as to');
  114.    writeln ('the north. Further out in the middle of the room');
  115.    writeln ('is a dark opening in the floor into which some of');
  116.    writeln ('the vapor seems to be seeping.');
  117.  
  118.    CASE whichway OF
  119.  
  120.       w:     location := narrow2;
  121.       n:     location := deadend;
  122.       d:     location := maze;
  123.       s:     location := batscave;
  124.  
  125.       e,u:     noway;
  126.  
  127.    END; {case}
  128. END; {proc psteam}
  129.  
  130. (*****************************************************************************)
  131. (*    procedure pladder                                                       *)
  132. (*****************************************************************************)
  133. PROCEDURE pladder;
  134. BEGIN
  135.    writeln ('You are at the base of a huge ladder reaching');
  136.    writeln ('up out of sight. It must extend up at least 500');
  137.    writeln ('feet, and it will take someone brave in heart to');
  138.    writeln ('scale it. There are also passages which lead');
  139.    writeln ('north and down.');
  140.  
  141.    CASE whichway OF
  142.  
  143.       n:     location := maze;
  144.       d:     location := flames;
  145.       u:     IF carrying THEN
  146.              BEGIN
  147.                 writeln ('You can''t carry the treasure up the');
  148.                 writeln ('ladder --  it''s much too heavy!');
  149.              END
  150.              ELSE
  151.                 location := vestibule;
  152.              {endif}
  153.  
  154.       e,s,w:     noway;
  155.  
  156.    END; {case}
  157. END; {proc pladder}
  158.  
  159.  
  160. (*****************************************************************************)
  161. (*    procedure pflames                                                       *)
  162. (*****************************************************************************)
  163. PROCEDURE pflames;
  164. BEGIN
  165.  
  166.    writeln ('Unfortunately you have fallen into an ');
  167.    writeln ('underground fire pit. It is the source');
  168.    writeln ('of heat that produces the geysers in the');
  169.    writeln ('steam room.  You have been toasted to a crisp,');
  170.    writeln ('to put it politely.');
  171.  
  172.    cooked := true;
  173.    done := true;
  174.  
  175. END; {proc pflames}
  176.  
  177. (*****************************************************************************)
  178. (*    procedure pdeadend                                                       *)
  179. (*****************************************************************************)
  180. PROCEDURE pdeadend;
  181. BEGIN
  182.  
  183.    writeln ('Dead end.');
  184.  
  185.    CASE whichway OF
  186.  
  187.       s:     location := steam;
  188.       n,e,w,u,d:      noway;
  189.  
  190.    END; {case}
  191.  
  192. END; {proc pdeadend}
  193.