src/BEYOND.PAS

   1 {$mode objfpc}
   2
   3 {//-------------------------------------------------------------------------}
   4 {/*                                                                         }
   5 {Copyright (C) 2014 Jason Self <j@jxself.org>                               }
   6 {                                                                           }
   7 {This file is free software: you may copy, redistribute and/or modify it    }
   8 {under the terms of the GNU Affero General Public License as published by   }
   9 {the Free Software Foundation, either version 3 of the License, or (at your }
  10 {option) any later version.                                                 }
  11 {                                                                           }
  12 {This file is distributed in the hope that it will be useful, but WITHOUT   }
  13 {ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or      }
  14 {FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
  15 {for more details.                                                          }
  16 {                                                                           }
  17 {You should have received a copy of the GNU Affero General Public License   }
  18 {along with this program; if not, see https://gnu.org/licenses or write to: }
  19 {  Free Software Foundation, Inc.                                           }
  20 {  51 Franklin Street, Fifth Floor                                          }
  21 {  Boston, MA 02110-1301                                                    }
  22 {  USA                                                                      }
  23 {                                                                           }
  24 {This file incorporates work covered by the following copyright and         }
  25 {permission notice:                                                         }
  26 {                                                                           }
  27 {Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }
  28 {                                                                           }
  29 {This file is part of Beyond The Titanic. Beyond The Titanic is free        }
  30 {software; you can redistribute it and/or modify it under the terms of the  }
  31 {GNU General Public License as published by the Free Software Foundation;   }
  32 {either version 3 of the License, or (at your option) any later version.    }
  33 {                                                                           }
  34 {This program is distributed in the hope that it will be useful, but WITHOUT}
  35 {ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or      }
  36 {FITNESS FOR A PARTICULAR PURPOSE.                                          }
  37 {                                                                           }
  38 {See the GNU General Public License for more details.                       }
  39 {                                                                           }
  40 {You should have received a copy of the GNU General Public License          }
  41 {along with this program; if not, write to:                                 }
  42 {  Free Software Foundation, Inc.                                           }
  43 {  51 Franklin Street, Fifth Floor                                          }
  44 {  Boston, MA 02110-1301                                                    }
  45 {  USA                                                                      }
  46 {                                                                           }
  47 {Original Source: 1990 Scott Miller                                         }
  48 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
  49 {*/                                                                         }
  50 {//-------------------------------------------------------------------------}
  51 {****************************************************************************}
  52 {*                          BEYOND THE TITANIC                              *}
  53 {*    Written by Scott Miller with Turbo Pascal V.2.  Began May 12, '84.    *}
  54 {*                           Shareware Version                              *}
  55 {*                             Copyright 1987                               *}
  56 {$C-,K-,V-,R-****************************************************************}
  57
  58 { Last modified: July 23, 1987 }
  59
  60 uses crt,sysutils;
  61 const
  62      Q        = '#';
  63      VMax     = 65;
  64      NMax     = 89;
  65      RMax     = 76;
  66      Null     = -1;
  67
  68 type
  69      ComSet         = set of 0..VMax;
  70      CharSet        = set of Char;
  71      PlayersObjects = set of 0..NMax;
  72      Str14          = string[14];
  73      Str80          = string[80];
  74      Str240         = string[240];
  75      SaveGame       = record
  76        aInven,
  77        aKitSet,
  78        aCabiSet  :PlayersObjects;
  79        aPanelCon,
  80        aSlotCon,
  81        aCompCon,
  82        aRopeCon,
  83        aTic,
  84        aYearDial,
  85        aPrm,
  86        aMnRm,
  87        aSc,
  88        aShots,
  89        aShRm,
  90        aRx       :integer;
  91        aEv       :CharSet;
  92        aCode,
  93        aLoc      :Str14;
  94        aKeyHole  :boolean;
  95       end;
  96
  97 var
  98      WordList       : file of Str14;
  99      Things         : file of integer;
 100      Objects        : file of PlayersObjects;
 101      GameSave       : file of SaveGame;
 102      DiskSave       : SaveGame;
 103      Input,
 104      Again,
 105      Line           : Str80;
 106      V{erb}         : array [0..VMax,1..5] of Str14;
 107      N{oun}         : array [0..NMax,1..5] of Str14;
 108      R{oom}         : array [0..NMax] of integer;
 109      P{lace}        : array [0..RMax] of PlayersObjects;
 110      RmSh           : set of 0..14;
 111      OneWordCommands: Comset;
 112      Mov{able},
 113      Inven{tory},
 114      KitSet,
 115      CabiSet        : PlayersObjects;
 116      Word,
 117      LastNoun,
 118      Drive,
 119      Code,
 120      Loc{ation},
 121      SepWord        : Str14;
 122      Rooms1, Rooms2,
 123      Special1, Special2 : file of Str240;
 124      Text1, Text2   : Str240;
 125      Line1          : file of Str80;
 126      Verb,
 127      Noun, Noun2,
 128      PanelCon,
 129      RopeCon,
 130      CompCon,
 131      SlotCon,
 132      RopeOld,
 133      Tic,
 134      YearDial,
 135      DayDial,
 136      Prm,  {Player Room}
 137      MnRm, {Monster Room}
 138      Sc{ore},
 139      Shots,
 140      DialNum,
 141      Stuff,
 142      ShRm, {Shuttle Room}
 143      m0,m1,m2,m3,m4,m5,m6,m7,m8,m9,
 144      Rx, {deserted road}
 145      Ox, {ocean bottom}
 146      x, y, o        : integer;
 147      Flag,
 148      FlagSA         : char;
 149      Ev{ent}        : CharSet;
 150      Attack,
 151      Skip,
 152      Back,
 153      KeyHole,
 154      Verbose        : boolean;
 155
 156
 157
 158 {$I AdParser.PAS}{  <--- Loads in sentence logic.    <*********************}
 159
 160
 161 {$I Commands.PAS}{  <--- Loads in misc. procedures.  <*********************}
 162
 163
 164 {$I WordList.PAS }{  <----- CALLS UP THE VERBS & NOUNS <*******************}
 165
 166
 167 {$I Objects.PAS }{   <----- CALLS UP THE VERBS & NOUNS <*******************}
 168
 169
 170 {===================}
 171 procedure DefaultAnswers1;
 172 var o : integer;
 173 begin
 174
 175 CASE VERB OF
 176
 177 22        :begin if(Prm in[59..68])then
 178                   begin RmSh:=RmSh-[ShRm];RS(84)end;
 179             if flasoff and (Prm in [6..24])then RL(54) else
 180              if Verbose then DescribeRm
 181               else begin Verbose:=true;DescribeRm;Verbose:=false;end;
 182             if(23 in p[Prm])and(MnRm=Prm)then RL(357);
 183             if Back then begin Attack:=False; Back:=False;end
 184            end;
 185
 186 18        :if inven=[] then RL(116)
 187              else
 188                begin
 189                  writeln('You have in your possession...');
 190                    for o:= 0 to NMax do
 191                     begin
 192                      if(o in inven)then
 193                       if(o=74)then
 194                        writeln('an ',n[o,1])else writeln('a ',n[o,1]);
 195                      if(ropecon in inven)and(o=ropecon)then
 196                       writeln('  The rope is tied to the ',n[o,1],'.');
 197                      if(o=74)and(en('p'))then RL(174);
 198                      if(o=89)and(en('i'))then RL(321);
 199                     end;
 200                end;
 201
 202 11     :case noun of
 203        60:Diagnose;
 204        2:if(en('b'))then RL(198) else RL(199);
 205        29:begin RL(89);if(en('a'))then RL(200) else RL(201);end;
 206        57:if(ropecon<>Null)then
 207             writeln('The rope is tied to the ',n[ropecon,1],'.')
 208           else RL(133);
 209        65:if(Prm in[59..68])then RS(84)else Line:='l';
 210        8:RL(202);
 211        7:RL(163);
 212        70:RL(164);
 213        52:RL(165);
 214        74:RL(166);
 215        23:RS(70);
 216        32:RL(253);
 217        13:RL(167);
 218        22:RL(226);
 219        1:if(Prm=42)and(13 in p[42])then RL(167);
 220        21:RL(227);
 221        9:if(Prm=49)then RL(228)else if(Prm>62)then RS(68)else RL(229);
 222        69:RL(355);
 223        77:RL(403);
 224        37:RL(295);
 225        27:RL(394);
 226        89:RL(338);
 227        18:if(Prm in[63..70])then RS(68)else RL(348);
 228        46,66:If(Prm in[58,59,63,69])then begin
 229        TextColor(12);RS(83);TextColor(m2)end;
 230        87:RL(230);
 231        84:RL(231);
 232        34:begin RL(189);
 233            if(Shots>0)then writeln('is about ',Shots*10,' percent full.')
 234            else Writeln('is empty.')end;
 235        15:if(84 in p[Prm])then RL(180)else If(71 in p[Prm])then RL(182)
 236           else RL(181);
 237     56,44:if(en('r'))then RL(51) else RL(52)
 238        else if not(noun in[1,12,14,15,17,18,19,22,31,36,50,
 239              54,67,69,73,79,80,84,87,88])and(random(3)=1)then
 240             case random(3) of
 241              0  :RL(407);
 242              1  :writeln('Yea, it''s definitely a ',n[noun,1],'!');
 243              2  :writeln('It looks like any other ',n[noun,1],'.');
 244             end
 245             else writeln('You see nothing special about the ',n[noun,1],'.')
 246        end;
 247
 248 41         :begin writeln('Time passes');y:=wherey;for o:=1 to 6 do
 249               begin gotoxy(11+o,y-1);writeln('.');sound(o*99);delay(30)end;
 250               if(Prm in[59..68])then sound(20)else nosound end;
 251
 252 43..52     :if(Prm in[6..24])and(FlasOff)then RL(14)else
 253              if(Prm=69)then RL(358)else RL(144);
 254
 255 57,58      :begin Attack:=False;
 256              if(Prm in[6..24])and(FlasOff)then RL(14)else RL(190);end;
 257
 258   end {of case}
 259 end;  {of DefaultAnswers1}
 260 {-------------------}
 261 procedure DefaultAnswers2;
 262 var o : integer;
 263 begin
 264
 265 CASE VERB OF
 266
 267 29    :if(noun in Mov)then
 268         if(noun in inven)then
 269          begin FlagSA:='r';
 270           case Noun2 of
 271         39:if(en('o'))then begin RL(186);Vanish(noun);
 272             kitset:=kitset+[noun];r[noun]:=Prm;end
 273            else RL(185);
 274         68:if(Prm=34)then
 275             if(SlotCon=Null)then begin RL(186);Vanish(noun);
 276              SlotCon:=Noun;r[noun]:=Prm;end
 277             else Say(68,'being used')
 278            else
 279             if(noun=63)and(Prm=58)then
 280              begin RL(337);KeyHole:=True;r[63]:=Prm;inven:=inven-[63];end
 281             else RL(327);
 282         88:begin RL(293);vanish(noun);r[noun]:=random(4)+51;end;
 283         47,53,73:if(Prm in[0..6,9,10,13,41..43])then
 284            begin RL(307);vanish(noun);end;
 285         11:if(en('k'))then begin RL(186);Vanish(noun);
 286             CabiSet:=CabiSet+[noun];r[noun]:=Prm;end
 287            else RL(187);
 288         26:if(Prm=76)and(noun=57)then begin RL(409);Vanish(57)end;
 289         49:if(PanelCon=Null)and(noun in[2,7,8,13,27,32,51,52,63,77])then
 290             begin RL(186);Vanish(noun);PanelCon:=Noun;r[noun]:=Prm;end
 291            else RL(188);
 292         30:if(noun=70)then
 293             if not(en('d'))then
 294              begin Ev:=Ev+['d'];RL(69);Vanish(70);r[70]:=Prm;end
 295             else Say(70,'in the dirt')
 296            else Crazy
 297           end;{of case}
 298
 299           if(FlagSA<>'s')then
 300            begin
 301             if(SepWord='to')then
 302              if(noun2 in[4,6,9,11,14,16,22,30,50,59,61,64,65,69,75])then
 303               begin RL(186);Vanish(noun);r[noun]:=Prm;end
 304              else RL(197);
 305             if(SepWord='at')or(SepWord='near')or(SepWord='behind')then
 306              if(noun2 in[0,4,6,9,11,12,14,16,17,20..23,26,28,30,35,39,43,
 307                          50,53,54,59,61,62,64..69,72,73,75,78..80])then
 308               begin RL(186);Vanish(noun);r[noun]:=Prm;end
 309              else RL(197);
 310             if(SepWord='under')then
 311              if(noun2 in[4,15,16,20,23,59,60,61,75])then
 312               begin RL(186);Vanish(noun);r[noun]:=Prm;end
 313              else RL(197);
 314             if(SepWord='in')then
 315              if(noun2 in[6,16,43,47,30,50,59,64,65,72,78,80,84])then
 316               begin RL(186);Vanish(noun);r[noun]:=Prm;end
 317              else RL(197);
 318             if(FlagSA<>'s')then Crazy;
 319            end
 320           end
 321          else writeln('First you must have the ',n[noun,1],'.')
 322         else Crazy;
 323
 324   end {of case}
 325 end;  {of DefaultAnswers2}
 326 {-------------------}
 327   procedure DefaultAnswers3;
 328 var o : integer;
 329 begin
 330
 331 CASE VERB OF
 332
 333 31,63      :if(Verb=63)and(Prm<>MnRm)then RL(395)
 334             else
 335              if(Prm=MnRm)then
 336               begin Attack:=False;
 337                if(input='hi')or(input='hello')or(input='bye')then RL(396)else
 338                if(copy(input,1,6)='follow')then RL(397)else
 339                 case random(5) of
 340                  0:RL(365);1:RL(398);2:RL(399);3:RL(400);4:RL(401)
 341                 end
 342               end
 343              else RL(123);
 344
 345 33         :RL(124);
 346
 347 38         :case noun of
 348              83:RL(262);
 349              23:begin RL(366);DropAll;Ev:=Ev+['r'];Attack:=False end
 350              else RL(125);
 351             end;
 352
 353 16         :if(MnRm=Prm)then begin Attack:=False;RL(372)end else
 354             if(en('r'))then RL(373)else
 355             if(Prm<15)and(70 in p[12])then RL(374)else  RL(371);
 356
 357 19         :if(noun=Null)then RL(136)else Crazy;
 358 24         :if(noun=7)then RL(422)else
 359             if(noun in[26,6,7,22,36,17,50,65,73,74,80,79,30,84])then RL(126)
 360             else Crazy;
 361 21         :RL(127);
 362 40         :Crazy;
 363
 364 8          :if(noun in[73,80])or(noun=Null)then
 365              if(noun<>Null)then RL(36)
 366              else if(here(73))or(here(80))then RL(36)else RL(37)
 367             else RL(53);
 368
 369 12         :RL(38);
 370 2          :if(noun in[4,35,39,8,11,12,14,20,21,30,57,43,59,67,70,75])then
 371               RL(43)else RL(44);
 372
 373 15         :if(noun in mov)then
 374              if(sepword='to')then
 375               if(noun2=23)then
 376                begin RL(62);Vanish(noun);Attack:=False end
 377               else Crazy
 378              else RL(60)
 379             else RL(61);
 380
 381 1          :if(verbose)then
 382               begin verbose:=false;RL(134);end
 383              else begin verbose:=true;RL(135);end;
 384
 385 13         :RL(77);
 386 23         :RL(78);
 387
 388 60         :case noun of
 389             43,12:RL(252);
 390             35:RL(288)
 391             else RL(78);
 392             end;
 393
 394 25         :if(Prm>62)and(Noun in[9,18,19,41])then RL(350)else RL(78);
 395 34         :RL(79);
 396
 397   end {of case}
 398 end;  {of DefaultAnswers3}
 399 {-------------------}
 400   procedure DefaultAnswers4;
 401 var o : integer;
 402 begin
 403
 404 CASE VERB OF
 405
 406 20         :RL(81);
 407 35         :RL(82);
 408
 409 6          :if(noun=23)and(here(40))then begin vanish(40);RL(84);end
 410              else
 411               if here(40)then
 412                if(noun2=Null)or(noun2=40)then
 413                 case noun of
 414                  57:RL(259);
 415                  60:RL(260)
 416                  else writeln('At the last moment you decide to spare',
 417                        ' the ',n[noun,1],'''s life!')
 418                 end
 419                else Crazy
 420               else RL(83);
 421
 422 30         :if(noun in [39,43,12,26,6,22,47,49,68,78,17,11,
 423                50,65,73,74,80,79,30])then RL(93) else RL(94);
 424
 425 54         :begin write('Would you like to SAVE your game first (Y or N)?  ');
 426              flag:=ReadKey;if(upcase(flag)<>'N')then SAVE else writeln('No.');
 427              write('Are you still sure you want to quit? ');
 428              flag:=ReadKey;if(upcase(flag)='Y')then
 429               begin RL(367);delay(999);window(1,1,80,25);clrscr;
 430                // close(rooms1); close(rooms2);close(special1);close(special2);close(line1);
 431               HALT end else RL(264)end;
 432 53         :if(Prm in[27,30])then RL(123) else RL(145);
 433 59         :If(noun=23)then RL(368)else Diagnose;
 434
 435 55         :if(noun=74)then
 436               if(en('p'))then
 437                 begin Ev:=Ev-['p'];RL(169);end
 438               else RL(168)
 439             else
 440             if(noun=89)then
 441               if(en('i'))then
 442                 begin
 443                  Ev:=Ev-['i'];RL(322);
 444                  if(Prm in[59,63..68])then begin RS(66);DEAD;end;
 445                 end
 446               else RL(323)
 447             else Crazy;
 448
 449 56     :if(noun=Null)or(noun in[60,23])or(noun in Mov)then
 450          case noun of
 451           23:RL(369);
 452           60,Null:RL(193);
 453           7:RL(194)
 454           else RL(195);
 455          end
 456         else RL(196);
 457
 458 3       :case noun of
 459          7:RL(235);
 460          2:if(en('b'))then RL(236)else RL(237);
 461          62:RL(238);
 462          65:RL(239);
 463          74:RL(240);
 464          78:RL(241);
 465          84,40,50,68,85:RL(242)
 466          else Crazy;
 467         end;
 468
 469 7      :begin if(noun=Null)then noun:=30;
 470          if(noun in[30,36,47,50,71,72,79])then
 471           case noun of
 472            30,47,50,71:if(Prm in[5..22,44..49])then RL(247) else RL(248);
 473            36:RL(249);
 474            72:RL(250);
 475            79:RL(251);
 476           end
 477          else Crazy;
 478         end;
 479
 480
 481   end   {of CASE.}
 482 end;    {of DefaultAnswers4}
 483 {-------------------}
 484   procedure DefaultAnswers5;
 485 var o: integer;
 486 begin
 487
 488 CASE VERB OF
 489
 490 9         :if noun<>1 then
 491              if(noun in Inven)then
 492                if(noun=74)and(en('p'))then RL(170)
 493           else if(noun=89)and(en('i'))then RL(335)
 494           else begin
 495                  inven:=inven-[noun];writeln(n[noun,1],': Dropped.');
 496                  R[noun]:=Prm;
 497                end
 498              else
 499                writeln('You don''t have the ',n[noun,1],'.')
 500            else
 501              begin
 502               if(74 in inven)and(en('p'))then RL(170)else
 503               if(89 in inven)and(en('i'))then RL(335)else
 504               DropAll;
 505             end;
 506
 507 26        :case noun of
 508          2:if not(en('b'))then
 509               begin
 510                 Ev:=Ev+['b'];
 511                 RL(3);end
 512             else Say(noun,'peeled');
 513          7:RL(162);
 514         57:if(ropecon<>Null)then
 515               begin
 516                 ropecon:=Null;
 517                 RL(117);end
 518             else Say(noun,'untied');
 519         62:RL(238)
 520          else Crazy;
 521          end; {end of OPEN }
 522
 523   end {of case}
 524 end;  {of DefaultAnswers5}
 525 {-------------------}
 526   procedure DefaultAnswers6;
 527 var o : integer;
 528 begin
 529
 530 CASE VERB OF
 531
 532 28,27     :case noun of
 533            23:RL(369);
 534            29:if not(en('a'))then
 535                 begin Ev:=Ev+['a'];
 536                 RL(120);end
 537               else begin Ev:=Ev-['a'];
 538                 RL(121);end;
 539            57:if(ropecon<>Null)and not(ropecon in inven)
 540                     and(r[ropecon]<>Prm)then
 541                   if(ropecon in mov)then begin
 542                     RL(57);writeln('...it''s a ',n[ropecon,1],'!');
 543                     r[ropecon]:=Prm;Ev:=Ev-['u'];
 544                     if(ropecon=29)and not(flasoff)then DescribeRm;end
 545                   else RL(56)
 546                else RL(122);
 547            8:begin RL(243);RL(244);play(9999,3500,0);play(3499,2000,1);
 548               play(1999,1000,2);play(999,200,5);play(199,8,16);Ev:=Ev+['e'];
 549               n[36,5]:=Q;n[78,5]:='glass';n[68,1]:='slot';n[66,4]:=Q;
 550               Ev:=Ev-['j'];
 551               moveto(30);
 552               if(MnRm=Prm)then RS(73);
 553              end;
 554            81:if not(en('j'))then
 555                if KeyHole then
 556                 begin Ev:=Ev+['j'];RL(326);play(2000,2001,200);end
 557                else RL(123)
 558               else
 559                begin Ev:=Ev-['j'];
 560                 if Keyhole then begin RL(326);play(2001,2000,200)end
 561                 else RL(123);
 562                 if(Prm in[59..68])then begin nosound;RS(62);DEAD;end;
 563                end;
 564            36:begin
 565                if(Prm > 57)then if(Prm = 58)then RL(123)else
 566                 begin RS(63);DEAD;end;
 567               end
 568              else RL(122);
 569            end; {of case}
 570
 571 62         :begin write('You have ',Sc,' of 1000 points',
 572                         ', giving you the rank of ');Tic:=Tic-1;
 573               case Sc of
 574               0..99:writeln('beginner.');
 575               100..249:writeln('novice adventurer.');
 576               250..399:writeln('adventurer third class.');
 577               400..549:writeln('adventurer second class.');
 578               550..699:writeln('adventurer first class.');
 579               700..849:writeln('expert adventurer.');
 580               850..999:writeln('master adventurer.')
 581               else writeln('dead adventurer!')
 582               end;
 583             Attack:=False;
 584             if(MnRm=Prm)then RL(370)
 585             end;
 586
 587   end {of case}
 588 end;  {of DefaultAnswers6}
 589 {-------------------}
 590   procedure DefaultAnswers7;
 591 var o : integer;
 592 begin
 593
 594 CASE VERB OF
 595
 596 14      :if(noun<>1)then
 597           if(noun in Mov)then
 598            if not(noun in inven)then
 599             begin
 600             Stuff:=0;
 601             for o:=0 to NMax do if(o in inven)then Stuff:=Stuff+1;
 602             if(Stuff < 6)then
 603              if(en('r'))and(inven<>[])then RL(87)
 604              else begin
 605                    Vanish(Noun);inven:=inven+[noun];
 606                    writeln(n[noun,1],': Taken.');
 607                    if(noun=70)then Ev:=Ev-['d'];
 608                   end
 609             else RL(234)
 610             end
 611            else writeln('You already have the ',n[noun,1],'.')
 612           else Crazy
 613          else if(en('r'))then RL(88) else
 614             begin flag:='0';Stuff:=0;
 615              for o:=0 to NMax do if(o in inven)then Stuff:=Stuff+1;
 616              if(Stuff < 7)then
 617               for o:=0 to NMax do
 618                begin
 619                 if r[o]=Prm then
 620                  if(Stuff+1 < 7)then
 621                   begin
 622                    vanish(o);inven:=inven+[o];Stuff:=Stuff+1;
 623                    writeln(n[o,1],':  Taken.');flag:='1';
 624                    if(o=70)then Ev:=Ev-['d'];
 625                   end
 626                  else
 627                   begin flag:='1';
 628                   writeln(n[o,1],': You have too many objects already!');end
 629                end
 630              else RL(234);
 631              if(flag='0')then RL(49)
 632             end; {of 14}
 633
 634 4,5       :RL(420);
 635
 636 64        :SAVE;
 637
 638   end {of case}
 639 end;  {of DefaultAnswers7}
 640 {-------------------}
 641   procedure DefaultAnswers8;
 642 var o : integer;
 643 begin
 644
 645 CASE VERB OF
 646
 647 10         :if(noun in [2,52])then
 648               if(noun=2)then
 649                 if(en('b'))then begin
 650                   RL(45); Ev:=Ev+['c'];inven:=inven+[51];
 651                   Vanish(2);Sc:=Sc+10;end
 652                 else RL(46)
 653               else begin RL(47);Ev:=Ev+['n'];Sc:=Sc+15;Vanish(52);end
 654             else writeln('I don''t think the ',n[noun,1],
 655                          ' would do much for your digestive system!');
 656
 657 42         :case noun of
 658             74:if not(en('p'))then
 659                 if not(en('i'))then
 660                  begin RL(20);inven:=inven+[74];r[74]:=Null;Ev:=Ev+['p'];end
 661                 else RL(320)
 662                else Say(74,'on');
 663             89:if not(en('i'))then
 664                 if not(en('p'))then
 665                  begin RL(319);vanish(89);inven:=inven+[89];Ev:=Ev+['i'];end
 666                 else RL(318)
 667                else Say(89,'on your head')
 668             else RL(128);
 669             end;
 670
 671 17,0       :if(noun2=Noun)then Crazy else
 672             if(noun2 in Mov)or(Noun2=Null)then
 673             case Noun of
 674              2:begin RL(21);Vanish(2);Sc:=Sc+25;r[51]:=Prm;end;
 675              60:begin RL(22);DEAD;end;
 676              52:begin RL(34);Vanish(52);end;
 677              23:if(noun2=null)then RL(369)
 678                 else begin Vanish(noun2);Attack:=False;
 679                  writeln('The monster grabs the ',n[noun2,1],' and eats it!');
 680                      end;
 681              7:begin RL(35);Vanish(7);r[52]:=Prm;Ev:=Ev+['I'];end
 682              else if(verb=0)then writeln('At the last moment you decide to',
 683                  ' spare the ',n[noun,1],'''s life!')
 684                   else RL(216);
 685              end{of case}
 686              else Crazy;
 687
 688 39         :if((SepWord='to')or(SepWord='off'))and(Noun2=Null)then
 689              case Noun of
 690               29:if(SepWord='to')then begin Ev:=Ev+['a'];RL(120);end
 691                  else begin Ev:=Ev-['a'];RL(121);end;
 692               13:RL(148);
 693               20:RL(149);
 694               65:RL(150)
 695              else Crazy end
 696             else RL(80);
 697
 698   end {of case}
 699 end;  {of DefaultAnswers8}
 700 {-------------------}
 701   procedure DefaultAnswers9;
 702 var o : integer;
 703 begin
 704
 705 CASE VERB OF
 706
 707 32    :if(34 in inven)then
 708         if(shots>0)then
 709          begin
 710          Shots:=Shots-1;
 711          for x:=1 to (26-(4*(6-Shots))) do
 712             begin play(300,350,11-Shots*2);play(320,370,11-Shots*2);end;
 713           if(noun=34)and(noun2<>34)and(noun2<>Null)and(SepWord='at')then
 714              begin noun:=noun2; noun2:=34; SepWord:='with';end;
 715           if((noun2=34)and(noun<>34)and(SepWord='with'))or
 716             ((noun<>34)and(SepWord='s'))then
 717       case noun of
 718        1:begin;Crazy;Shots:=Shots+1;end;
 719        2,7,8,13,27,29,32,40,51,52,63,74,77,89:begin vanish(noun);
 720           writeln('The ',n[noun,1],' vanishes in an explosion of light!');
 721             if(noun=74)and(en('p'))then begin RL(232);DEAD;end;
 722          end;
 723        48:begin RL(222);RL(223);Ev:=Ev+['g'];p[40]:=p[40]-[48];
 724            if not(en('P'))then begin Ev:=Ev+['P'];Sc:=Sc+25;end;end;
 725        12,26:RL(224);
 726        23:begin case random(4)of 0:RL(375);1:RL(376);2:RL(377);3:RL(378)end;
 727            Attack:=False;
 728           end;
 729        45:RL(315);
 730        60,56,44:begin RL(233);DEAD;end
 731        else writeln('A blinding ray strikes the ',n[noun,1],', but it is',
 732                       ' only slightly blackened.');
 733       end {of shoot case}
 734           else if(noun=34)and(noun2=Null)then RL(213)
 735           else begin;Crazy;Shots:=Shots+1;end;
 736          end
 737         else begin writeln('...click!');play(25,32,9);end
 738        else RL(208);
 739
 740   end {of case}
 741 end;  {of DefaultAnswers9}
 742 {-------------------}
 743   procedure DefaultAnswers10;
 744 var o : integer;
 745 begin
 746
 747 CASE VERB OF
 748
 749 36         :if(noun in mov)then
 750              if(noun in inven)then
 751               if((noun in[2,7,52,29])or
 752                  (noun2 in[2,7,23,29,47,52,53,73,88]))and(noun<>noun2)then
 753                begin
 754                 if(noun=2)or(noun2=2)then begin RL(95);vanish(2);
 755                   r[51]:=Prm;end;
 756                 if(noun=7)or(noun2=7)then begin RL(35);vanish(7);
 757                   Ev:=Ev+['I'];r[52]:=Prm;end;
 758                 if(noun=29)or(noun2=29)then begin RL(96);vanish(29);end;
 759                 if(noun=52)or(noun2=52)then begin RL(34);vanish(52);end;
 760                 if(noun2=88)then begin RL(293);vanish(noun);
 761                   if(noun=2)then noun:=51;if(noun=7)then noun:=52;
 762                   r[noun]:=random(4)+51;end;
 763                 if(Prm in[0..6,9,10,13,41..43])and(noun2 in[73,53,47])then
 764                   begin RL(306);vanish(noun);end;
 765                 if(noun2=23)then begin Attack:=False;Vanish(noun);RL(379);
 766                   writeln(n[noun,1],' out of mid-flight and eats it',
 767                         ' in one giant gulp!')end;
 768                end
 769               else begin writeln('The ',n[noun,1],' collides with the ',
 770                 n[noun2,1],' but nothing interesting happens.');
 771                 Vanish(noun);r[noun]:=Prm;end
 772              else writeln('First you must have the ',n[noun,1],'.')
 773             else Crazy;
 774
 775 37         :if(noun=57)then
 776              if(sepword='to')then
 777               if not(noun2 in[1,15,17,22,30,46,47,50,52,72,73,79,80,83])then
 778                if(ropecon=Null)then begin
 779                 ropecon:=noun2;
 780                 writeln('The rope is firmly tied to the ',n[noun2,1],'.');
 781                 if(noun2=57)then RL(48);end
 782                else writeln('It is already tied to the ',n[ropecon,1],'.')
 783               else RL(50)
 784              else Crazy
 785             else Crazy;
 786
 787 61         :begin RL(245);flag:=ReadKey;
 788              if(upcase(flag)<>'N')then
 789               begin RL(380);delay(999);window(1,1,80,25);clrscr;
 790                close(rooms1);
 791                close(rooms2);
 792                close(special1);
 793                close(special2);
 794                close(line1);
 795                SysUtils.ExecuteProcess('beyond', '', []);
 796                end
 797              else RL(264)
 798             end;
 799
 800 65        :RESTORE;
 801
 802   end {of case}
 803 end;  {of DefaultAnswers10}
 804 {===================}
 805   procedure SpecialAnswers1;
 806
 807 begin
 808 FlagSA:='r';
 809 if Present then
 810 CASE Prm OF
 811
 812 3       :case verb of
 813   44,58 :moveto(1);
 814   20,52 :if(noun=6)then RL(40);
 815     14  :if(noun=57)and not(en('o'))then RL(419);
 816    6    :if(noun=57)and(here(40))and((noun2=Null)or(noun2=40))then
 817              begin
 818                RS(4); tic:=15; moveto(4); Ev:=Ev+['A']; Sc:=Sc+25;
 819                if(en('o'))then
 820                  for o:= 0 to 57 do begin
 821                    if(o in kitset)then r[o]:=Prm;
 822                    if(r[o]=3)then r[o]:=Prm;end
 823              end;
 824    26   :if(noun=39)then
 825              if not(en('o'))then
 826                begin Ev:=Ev+['o'];RL(328); for o:=2 to 57 do
 827                  if(o in kitset)then r[o]:=Prm;end
 828              else Say(noun,'opened');
 829    3  :if(noun=39)then
 830              if(en('o'))then
 831                begin Ev:=Ev-['o'];RL(186); for o:=2 to 57 do
 832                  if(o in kitset)then r[o]:=Null;end
 833              else Say(noun,'shut');
 834   17,28,27 :if(noun in [6,57,39,59])then RL(29);
 835   24,11   :case noun of
 836        39  :if(en('o'))then
 837                if kitset=[] then begin RL(329);end
 838                else begin RL(330);for o:= 0 to 57 do
 839                    if(o in kitset)then writeln(' a ',n[o,1]);end
 840              else RL(331);
 841        57 :RL(10);
 842        73 :RL(19);
 843        6 :DescribeRm;
 844            end;
 845          end; {of 3}
 846
 847 4      :case verb of
 848    43..52,20:RL(7);
 849     55  :if(noun=35)then begin RL(332);Ev:=Ev-['B'];end;
 850   42,3:if noun=35 then begin RL(8); Ev:=Ev+['B'];end
 851            else if(noun=39)then
 852              if(en('o'))then
 853                begin Ev:=Ev-['o'];RL(186); for o:=0 to 57 do
 854                  if(o in kitset)then r[o]:=Null;end
 855              else Say(noun,'shut');
 856   29,37 :if(noun=35)and(noun2=60)then begin
 857              RL(8);Ev:=Ev+['B'];end;
 858    26   :if(noun=35)and(en('B'))then begin RL(332);Ev:=Ev-['B'];end
 859            else if(noun=39)then
 860              if not(en('o'))then
 861                begin Ev:=Ev+['o'];RL(328); for o:=0 to 57 do
 862                  if(o in kitset)then r[o]:=Prm;end
 863              else Say(noun,'opened');
 864    19,2:if(noun in[6,64])or(noun=Null)then
 865              if(en('B'))then RL(9)
 866              else begin RL(0);DEAD;end;
 867     24,11:case noun of
 868        39  :if(en('o'))then
 869                if kitset=[] then begin RL(329);end
 870                else begin RL(330);for o:= 0 to 57 do
 871                    if(o in kitset)then writeln(' a ',n[o,1]);end
 872              else RL(331);
 873        35 :RL(12);
 874        73 :RL(19);
 875        6 :DescribeRm;
 876            end;  {of case}
 877          end; {of 4}
 878
 879 end {of case}
 880 else SA
 881 end; {of SP1}
 882 {-------------------}
 883   procedure SpecialAnswers2;
 884
 885 begin
 886 FlagSA:='r';
 887 if Present then
 888 Case Prm of
 889
 890 5       :case verb of
 891    45   :moveto(6);
 892    2    :if(noun=79)then RL(263);
 893            end;
 894
 895 6       :case verb of
 896    46   :moveto(5);
 897   43,44,45,47..52:if FlasOff then RL(14)
 898          else case verb of
 899            43:begin Ox:=0;RL(286);moveto(7);end;
 900            45:moveto(9); 49:moveto(8);
 901               end;
 902              end; {of 6}
 903
 904 7       :case verb of
 905   23..25,11:if(noun in[6,36,73,0,15,64,67])then RS(9);
 906   43..50 :if FlasOff then RL(14)
 907           else
 908            begin
 909             If(Verb in[43,47,48])then Ox:=Ox+1;
 910             If(Verb in[44,49,50])then Ox:=Ox-1;
 911             if(Ox<1)then begin RL(286);moveto(6)end
 912             else
 913              begin
 914               RL(333);
 915               if(random(20)=2)then begin writeln;RS(9);
 916                if not(en('K'))then begin Ev:=Ev+['K'];Sc:=Sc+15;end;end;
 917              end;
 918            end;
 919   28,17,6:if(noun=36)or(noun=15)then begin RS(10);DEAD;end;
 920   31   :if(input='help')then begin RL(334);moveto(6)end;
 921          end;  {of 7}
 922
 923 8       :case verb of
 924    48,58:if FlasOff then RL(14) else moveto(6);
 925   43..47,49..52:if FlasOff then RL(14);
 926   11:if(noun in [46,79])then RS(12)
 927          else if(noun in [15,30])then RL(28);
 928    38 :if(noun=46)then begin SA;writeln('It feels jagged.');end;
 929          end; {of 8}
 930
 931 9         :case verb of
 932    43..52 :if FlasOff then RL(14)
 933          else case verb of
 934            46:moveto(6);47:moveto(10);49:moveto(11);
 935               end;
 936            end; {of 9}
 937
 938 10        :case verb of
 939    50,58 :if FlasOff then RL(14)
 940          else moveto(9);
 941    43..49,51..52:if FlasOff then RL(14);
 942   19,2:if(noun in[17,80])then begin RL(0);DEAD;end;
 943            end; {of 10}
 944
 945 end {of case}
 946 else SA
 947 end; {of SP2}
 948 {-------------------}
 949   procedure SpecialAnswers3;
 950
 951 begin
 952 FlagSA:='r';
 953 if Present then
 954 Case Prm of
 955
 956 14       :case verb of
 957    46,48 :if FlasOff then RL(14)
 958           else if(verb=46)then moveto(11) else moveto(15);
 959   43..45,47,49..52 :if FlasOff then RL(14);
 960           end; {of 14}
 961
 962 15     :case Verb of
 963    52,2 :if(en('d'))and(en('t'))then
 964            begin RL(63);moveto(16);end else RL(64);
 965   19   :RL(64);
 966   7    :RL(65);
 967   14    :if(noun in[57,70])then begin inven:=inven+[noun];r[noun]:=Null;
 968            if(noun=70)then Ev:=Ev-['d']
 969            else Ev:=Ev-['t'];SA;writeln(n[noun,1],':  Taken.');end;
 970   45,49  :if(flasoff)then RL(14) else moveto(14);
 971    44    :RL(73);
 972   24,11:if(noun=17)and not(en('u'))then RL(74)
 973            else if(noun=17)and(en('a'))then RL(75);
 974   17,36,29,9:case noun of
 975    70:if((noun2 in[30,42])or(noun2=Null))and(verb<>9)then
 976          if not(en('d'))then
 977           begin RL(69);Ev:=Ev+['d'];r[70]:=Prm;inven:=inven-[70];end
 978          else RL(67)
 979         else if(verb=9)then begin end else RL(66);
 980    57:if(noun2=17)and(verb<>17)then begin
 981           if(here(ropecon))and(ropecon<>57)then begin
 982             RL(71);inven:=inven-[57];r[57]:=Prm;
 983             if(ropecon=70)then Ev:=Ev+['t'];end
 984           else begin RL(70);vanish(57); end;
 985          end else begin end
 986    else if(verb in[9,29,36])and(noun2=17)and(noun in mov)then
 987          if(here(ropecon))and(noun=ropecon)then begin RL(76);
 988           inven:=inven-[noun];r[noun]:=Null;
 989           if(ropecon=29)then Ev:=Ev+['u'];end
 990          else begin RL(72);inven:=inven-[noun];r[noun]:=17;end
 991       end;{of noun case}
 992          end;{of 15}
 993
 994 16       :case verb of
 995    51,2   :moveto(15);
 996    52    :RL(85);
 997   0,3..18,20..21,26..40,42,53,55,56,60:RL(86);
 998    19,61:begin RS(18);Ev:=Ev-['a'];Ev:=Ev+['r'];Sc:=Sc+60;
 999           moveto(17);dropall;if(here(2))then begin r[2]:=Null;
1000           r[51]:=Prm;end;r[57]:=Null;end;
1001          end;{of 57}
1002
1003 end  {of Case}
1004 else SA
1005 end; {of SP3}
1006 {-------------------}
1007   procedure SpecialAnswers4;
1008
1009 begin
1010 FlagSA:='r';
1011 if Present then
1012 Case Prm of
1013
1014 19      :case verb of
1015    48,51,58:if(flasoff)then RL(14)else begin RL(311);moveto(18);end;
1016    47,52,57:if(flasoff)then RL(14)else begin RL(309);moveto(20);end;
1017          end;{of stairs}
1018
1019 20      :case verb of
1020    50,51,58:if(flasoff)then RL(14)else begin RL(310);moveto(19);end;
1021    11,24,25,23:if(noun=67)then RL(90)
1022      else if(noun in[12,43])and not(en('E'))then begin RL(92);
1023             r[32]:=20;Sc:=Sc+15;Ev:=Ev+['E'];end;
1024   14,38:if(noun in[67,12])then RL(91);
1025   43..49,57:if(noun=Null)or(noun in[12,43])then RL(215);
1026         end;{of 20}
1027
1028 21       :case verb of
1029     50   :if(flasoff)then RL(14)else moveto(18);
1030     47   :if(flasoff)then RL(14)else moveto(22);
1031    2,51:if(flasoff)then RL(14)else
1032             if(noun=64)or(noun=Null)then moveto(23);
1033     45   :RL(97);
1034     49,44,43:RL(258);
1035   11     :if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;
1036         end;
1037
1038 22       :case verb of
1039     50   :if(flasoff)then RL(14)else moveto(21);
1040     2,51 :if(flasoff)then RL(14)else
1041             if(noun=64)or(noun=Null)then moveto(23);
1042     44   :RL(97);
1043     47,45,49:RL(258);
1044     11     :if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;
1045         end; {of 22}
1046
1047 23      :case verb of
1048    46,50 :if(flasoff)then RL(14)else moveto(21);
1049    43,48 :if(flasoff)then RL(14)else moveto(22);
1050    44,45,47,49:RL(258);
1051    26,27 :if(noun=26)then
1052            if(en('l'))then Say(26,'open')
1053            else begin RL(98);Ev:=Ev+['l'];p[23]:=p[23]+[69];end;
1054     3    :if(noun=26)then
1055            if(en('l'))then begin RL(171);Ev:=Ev-['l'];p[23]:=p[23]-[69];end
1056            else Say(26,'closed');
1057   2,52,57:if(en('l'))and((noun=69)or(noun=Null))then moveto(24)else RL(99);
1058   24,25  :if(noun=26)then RL(151);
1059    11    :if(noun=26)then if(en('l'))then RL(217)else RL(218)
1060           else if(noun in[30,64])then begin RL(255);RL(256);RL(257)end;
1061         end; {of 23}
1062
1063 24      :case verb of
1064    51,58:if(en('l'))then moveto(23) else RL(99);
1065    52,57:moveto(25);
1066   24,25 :if(noun=26)then RL(151);
1067    3    :if(noun=26)then begin RL(171);Ev:=Ev-['l'];end else
1068          if(noun=55)then RL(411);
1069    2    :if(noun=69)then Moveto(25);
1070    26   :if(noun=26)then begin RL(98);Ev:=Ev+['l'];end else
1071          if(noun=55)then RL(412);
1072    11   :if(noun=26)then if(en('l'))then RL(217)else RL(218)else
1073          if(noun=55)then RL(410);
1074    27,28:If(noun=55)then RL(411);
1075        end;
1076
1077 end   {of case}
1078 else SA
1079 end;  {of SP4}
1080 {-------------------}
1081   procedure SpecialAnswers5;
1082
1083 begin
1084 FlagSA:='r';
1085 if Present then
1086 Case Prm of
1087
1088 25     :case verb of
1089      43:begin writeln('The door slides open...');play(55,70,40);moveto(27);
1090          writeln('The door slides shut behind you.');play(70,55,40);
1091          if not(en('Y'))then begin Ev:=Ev+['Y'];Sc:=Sc+30 end end;
1092      44:moveto(32); 45:moveto(30);
1093      46:moveto(34); 47:moveto(28); 49:moveto(31);
1094      48:if(en('v')and not(en('p')))then begin Verbose:=False;moveto(35);
1095           RS(25);DEAD; end else moveto(35);
1096      50:moveto(33); 51,58:moveto(24);
1097      52,2:if(noun=69)or(noun=Null)then moveto(26);
1098      17,27,28,38:if(noun=26)then
1099           begin RL(413);play(55,70,45);play(69,54,45)end;
1100    26,40:if(noun=26)then RL(414);
1101         end;
1102
1103 27      :case verb of
1104    44,58:begin writeln('The door slides open...');play(55,70,40);moveto(25);
1105           writeln('The door slides shut behind you.');delay(999);play(70,55,40)
1106          end;
1107      17,27,28,38:if(noun=26)then
1108           begin RL(413);play(30,40,25);play(40,30,25)end;
1109    26,40:if(noun=26)then RL(414);
1110    11  :if(noun in[20,21])then RL(103)
1111       else if(noun=58)then case compcon of
1112         Null:RL(155); 1:RS(21); 2:RS(22); 3:RS(23);
1113         4:begin RS(24);compcon:=Null;gotoxy(1,wherey-1);
1114            writeln('. tim. chamb.r c.de: ',Code,'.. ..tel.port...  .  .',
1115                    '... . .. ime .  p.n.l ....... ...');
1116            RL(105);play(29,29,40);end;end;{of case}
1117    53  :begin
1118          if(input='1')or(input='one')then begin RL(104);compcon:=1;end;
1119          if(input='2')or(input='two')then begin RL(104);compcon:=2;end;
1120          if(input='3')or(input='three')then begin RL(104);compcon:=3;end;
1121          if(input='4')or(input='four')then begin RL(104);compcon:=4;end;
1122          for y:=1 to random(40)+9 do
1123           begin x:=random(6000)+99;play(x,x,50);delay(9)end
1124        end;
1125    31   :if(compcon=null)then begin
1126           play(9,999,0);sound(999);RS(20);play(999,9,0);if not(en('J'))then
1127           begin Ev:=Ev+['J'];Sc:=Sc+40;end;end;
1128        end;
1129
1130 28     :case verb of
1131    50,58:moveto(25);
1132    45,57:moveto(29);
1133    28   :if(noun in[33,10])then begin RL(137);play(31,31,450);end;
1134        end;
1135
1136 29    :case verb of
1137    46,58:moveto(28);
1138    36   :if(noun2 in[33,10])and(noun in Mov)then
1139            if(en('M'))then
1140              begin RS(27);Ev:=Ev-['M','r'];Vanish(noun);r[noun]:=28;
1141                if not(en('N'))then begin Ev:=Ev+['N'];Sc:=Sc+55;end;
1142              play(28,34,600)end
1143            else begin Vanish(noun);r[noun]:=28;RL(179);
1144              if(noun in[7,8,29,34,40,51])then Ev:=Ev+['M'];end;
1145        end;
1146
1147 33     :case verb of
1148    47,58:moveto(25);
1149     34  :RL(272);
1150    28,38:if(noun=10)then begin RL(421);x:=random(9999);case random(3) of
1151           0:play(x,random(9999),random(3));
1152           1:for y:=1 to random(300)+60 do
1153              begin x:=random(9999);play(x,x,2);delay(7)end;
1154           2:begin y:=9999;o:=0;
1155              repeat x:=random(9999);play(x,y,0);
1156                     y:=random(9999);play(y,x,0);o:=o+1;
1157              until o>7 end end end
1158        end;
1159
1160 end {of case}
1161 else SA
1162 end; {of SP5}
1163 {-------------------}
1164   procedure SpecialAnswers6;
1165
1166 begin
1167 FlagSA:='r';
1168 if Present then
1169 Case Prm of
1170
1171 30   :case verb of
1172    46,58:if(en('e'))then RL(212) else moveto(25);
1173    26,27,28,40:if(noun=49)then if(en('h'))then Say(49,'open') else RL(159)
1174                else
1175                 if(noun in[10,76])and(verb=28)then
1176                  begin
1177                  if(MnRm=30)then begin RS(76);DEAD;end;
1178                   if(en('e'))then
1179                    begin RS(29);writeln;
1180                     play(1,700,7);play(701,8000,1);Ev:=Ev-['e'];
1181        case YearDial of
1182               1933:begin Loc:='Civilization!';Sc:=Sc+80;RS(78);HOME;END;
1183         2111..2679:begin
1184                      Verbose:=False;moveto(41);RS(30);Verbose:=True;
1185                      if not(en('O'))then begin Sc:=Sc+55;Ev:=Ev+['O'];end;
1186                n[78,5]:=Q;n[37,5]:='glass';n[72,1]:='fence';
1187                n[70,1]:='hooded figure';n[70,2]:='hooded';n[70,3]:='figure';
1188                n[70,4]:='mutant';n[70,5]:=Q;n[3,1]:='footprints';
1189                n[3,2]:='footpri';n[57,1]:='parachute';n[57,2]:='parachu';
1190                n[35,1]:='boulder';n[35,2]:='rock';n[35,3]:='rocks';
1191                n[66,4]:='red';
1192                    end;
1193         0..1111   :begin writeln;RS(31);DEAD;end;
1194         1112..1932,1934..2110:begin writeln;RS(32);DEAD;end;
1195         2680..3789:begin writeln;RS(33);DEAD;end
1196              else  begin writeln;RS(34);DEAD;end;
1197        end; {of YearDial case}
1198                    end
1199                   else begin RL(209);play(1,9999,0)end;
1200                  end;
1201    33   :if(noun in[16,59])or(noun=Null)then begin Ev:=Ev+['e'];RL(210);end;
1202    35   :if(en('e'))then begin Ev:=Ev-['e'];RL(211);Attack:=False end;
1203    17,0,6:if(noun=49)then RL(160);
1204    53  :if(input=Code)then
1205          If(en('h'))then Say(49,'open')
1206          else
1207           begin Ev:=Ev+['h'];RL(173);play(23,24,250);Sc:=Sc+30;
1208             if(PanelCon<>Null)then begin r[PanelCon]:=30;Code:='R';
1209              writeln('Sitting inside the panel compartment is a ',
1210                       n[PanelCon,1],'.');end
1211             else RL(183);
1212           end
1213         else RL(172);
1214    3   :If(noun=49)then RL(159);
1215    39  :if(noun=25)then RL(115) else
1216         case noun of
1217         24:if(DialNum>0)and(DialNum<377)then begin RL(176);DayDial:=DialNum;end
1218            else RL(178);
1219         82:if(DialNum>-1)and(DialNum<5000)then begin RL(177);
1220              YearDial:=DialNum;end else RL(178);
1221         end;
1222  11,24:case noun of
1223    49:begin SA;if(en('h'))then if(PanelCon=Null)then RL(183)
1224                  else writeln('Inside the compartment is a ',n[PanelCon,1],'.')
1225                else RL(184);end;
1226    82:begin SA;writeln('The year dial is set to ',YearDial,'.');end;
1227    24:begin SA;writeln('The day dial is set to ',DayDial,'.');end;
1228    16:begin RL(203);RL(204)end;
1229    25:RL(115);
1230    38:RL(161);
1231       end;
1232        end; {of 30}
1233
1234 end  {of case}
1235 else SA
1236 end; {of SP6}
1237 {-------------------}
1238   procedure SpecialAnswers7;
1239
1240 begin
1241 FlagSA:='r';
1242 if Present then
1243 Case Prm of
1244
1245 26     :case verb of
1246   51,58,2:if(noun=69)or(noun=Null)then moveto(25);
1247   43,48 :moveto(36); 44,49 :moveto(38); 45,47 :moveto(39); 46,50 :moveto(37);
1248         end;
1249
1250 35      :case verb of
1251    49,58:moveto(25);
1252   11:case noun of
1253     54:RL(100);
1254     62:if(en('v'))then RL(205)else RL(206);
1255     end;
1256   28  :if(noun in[55,10])then
1257         if(en('v'))then begin RL(101);Ev:=Ev-['v'];play(40,65,80)end
1258         else
1259          begin RL(102); Ev:=Ev+['v'];play(65,40,80);
1260           if not(en('p'))then begin RS(28);DEAD;end
1261           else if(MnRm=35)then
1262            begin n[23,1]:='melted monster';n[23,4]:='melted';MnRm:=Null;
1263             RS(74);p[35]:=p[35]+[77];
1264             if not(en('W'))then begin Sc:=Sc+65;Ev:=Ev+['W'] end
1265            end
1266          end;
1267   14  :if(noun in[1,77])and(77 in p[35])then begin Sc:=Sc+10;noun:=77;end;
1268   55  :if(noun=74)then
1269         if(en('v'))then begin RS(26);DEAD end;
1270   38 :RL(30);
1271        end;
1272
1273 36     :case verb of
1274   44,49,58:moveto(26);
1275     45  :moveto(39);
1276     46  :moveto(37);
1277     57  :if(noun=12)then RL(215);
1278         end;
1279
1280 37     :case verb of
1281   45,47,58:moveto(26);
1282     43  :moveto(36);
1283     44  :moveto(38);
1284     57  :if(noun=12)then RL(215);
1285         end;
1286
1287 38     :case verb of
1288   43,48,58:moveto(26);
1289     45  :moveto(39);
1290     46  :moveto(37);
1291     57  :if(noun=12)then RL(215);
1292    0..42,44,47,49,50-56,59..99:if(noun=28)or(noun2=28)then
1293           begin RS(35);RL(220);p[40]:=p[40]+[48];moveto(40);Ev:=Ev-['g'];
1294            if(MnRm=Prm)then begin RS(79);DEAD end
1295           end;
1296         end;{of 38}
1297
1298 39     :case verb of
1299   46,50,58:moveto(26);
1300     45  :if(en('g'))then moveto(40);
1301     3   :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
1302     43  :moveto(36);
1303     44  :moveto(38);
1304     57  :if(noun=12)then RL(215);
1305         end;
1306
1307 40     :case verb of
1308   46,58 :if(en('g'))then moveto(39) else RL(221);
1309    26   :if(noun=26)then if(en('g'))then Say(26,'open') else RL(221);
1310    3    :if(noun=26)then if(en('g'))then RL(225) else Say(26,'shut');
1311   11,14 :if(noun in[12,43,83])then RL(261);
1312        end;
1313
1314 end  {of case}
1315 else SA
1316 end; {of SP7}
1317 {-------------------}
1318   procedure SpecialAnswers8;
1319
1320 begin
1321 FlagSA:='r';
1322 if Present then
1323 Case Prm of
1324
1325 41     :case verb of
1326     43  :moveto(42);
1327     44  :moveto(43);
1328   2,19  :if(noun in[53,73,87])then
1329            begin RS(39);RL(287);moveto(46);Rx:=4;end;
1330        end;
1331
1332 42     :case verb of
1333     44  :moveto(41);
1334     43  :RL(296);
1335     14  :if(noun in[13,1])and(13 in p[42])then
1336           begin Sc:=Sc+10;noun:=13;end;
1337   2,19  :if(noun in[53,73,87])then
1338            begin RS(39);RL(287);moveto(46);Rx:=4;end;
1339        end;
1340
1341 43     :case verb of
1342     43  :moveto(41);
1343     44  :moveto(44);
1344   2,19  :if(noun in[53,73,87])then
1345            begin RS(39);RL(287);moveto(46);Rx:=4;end;
1346         end;
1347
1348 44     :case verb of
1349     43  :moveto(43);
1350     46  :moveto(47);
1351     45  :begin RL(274);Rx:=0;moveto(46);end;
1352   44,47..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);
1353        end;
1354
1355 45     :case verb of
1356     44  :moveto(49);
1357     46  :begin RL(274);Rx:=8;moveto(46);end;
1358     45  :begin Rx:=9;RL(274);moveto(46);end;
1359   43,47..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);
1360         end;
1361
1362 46     :case verb of
1363     45  :begin Rx:=Rx+1;RL(274);
1364           if(Rx=9)then begin
1365           if not(en('T'))then begin Ev:=Ev+['T'];Sc:=Sc+30;end;
1366           moveto(45)end;
1367           if(Rx>86)then begin RL(340);moveto(47)end
1368          end;
1369     46  :begin Rx:=Rx-1;RL(274);
1370           if(Rx=8)then moveto(45);
1371           if(Rx<1)then moveto(44);
1372          end;
1373   43,44,47..51,2,19:if(noun=Null)or(noun in[41,79])then RL(275);
1374         end;
1375
1376 47     :case verb of
1377   46,52,2,19:begin if(random(2)=1)then begin RS(37);DropAll;moveto(48)end
1378                    else begin RL(277);moveto(48)end;end;
1379     45  :moveto(44);
1380   43,44,47..50:RL(278);
1381         end;
1382
1383 48     :case verb of
1384   45,51,2:if(random(3)=2)and(noun<>35)then begin RS(38);moveto(47)end
1385           else if(noun<>35)then RL(279);
1386    43,44,46..50:RL(279);
1387      14  :if(noun in[27,1])and(27 in p[48])then
1388            begin Sc:=Sc+20;noun:=27;end;
1389      11 :if(noun=35)then RL(289)
1390         end;
1391
1392 end  {of case}
1393 else SA
1394 end; {of SP8}
1395 {-------------------}
1396   procedure SpecialAnswers9;
1397
1398 begin
1399 FlagSA:='r';
1400 if Present then
1401 Case Prm of
1402
1403 50     :case verb of
1404   43,58 :begin RL(290);moveto(49);end;
1405   44,57 :if(noun=Null)or(noun in[88,26,50])then
1406           begin RS(41);if not(en('L'))then
1407            begin Ev:=Ev+['L'];Sc:=Sc+25;end;moveto(51);end;
1408     11  :case noun of
1409           35,50:RL(292);
1410           88,68:RS(42);
1411           46,66:RS(43);
1412          end;
1413   30,28,38,17,14:if(noun=88)then RL(294);
1414         end;
1415
1416 51     :case verb of
1417     44  :moveto(52);
1418     46  :moveto(52);
1419     48  :moveto(53);
1420         end;
1421
1422 52     :case verb of
1423     43  :moveto(51);
1424     47  :moveto(53);
1425     46  :moveto(51);
1426         end;
1427
1428 53     :case verb of
1429    52,2,57:if(noun=Null)or(noun=69)then begin if not(en('Q'))then
1430             begin Ev:=Ev+['Q'];Sc:=Sc+30;end;moveto(55);end;
1431     47  :moveto(52);
1432     45  :moveto(53);
1433     49  :moveto(54);
1434         end;
1435
1436 54     :case verb of
1437     43  :moveto(52);
1438     49  :moveto(53);
1439     44  :moveto(51);
1440     50  :begin if not(en('R'))then
1441           begin Ev:=Ev+['R'];Sc:=Sc+20;end;moveto(56);end;
1442         end; {verb case}
1443
1444 55     :case verb of
1445   51,2,58,44:if(noun=Null)or(noun=69)then moveto(53);
1446    11   :if(noun in[11,45])then
1447           begin RL(297);if(en('k'))then RL(298) else RL(299)end;
1448    26,40:if(noun in[45,26,11,68])and(noun2=27)and(SepWord='with')then
1449            if not(en('k'))then
1450             begin Ev:=Ev+['k'];RS(45);for o:=2 to NMax do
1451              if(o in cabiset)then r[o]:=55;
1452              if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;
1453             end
1454            else Say(11,'open')
1455           else if(SepWord='s')then RL(317);
1456    29   :if(noun=27)and(noun2 in[45,26,11,68])and(SepWord='in')then
1457           if not(en('k'))then
1458            begin Ev:=Ev+['k'];RS(45);for o:=2 to NMax do
1459             if(o in cabiset)then r[o]:=55;
1460             if not(en('R'))then begin Ev:=Ev+['R'];Sc:=Sc+55;end;
1461            end
1462           else RL(216);
1463    3    :if(noun in[45,26,11])then
1464           if(en('k'))then
1465            begin RL(314);play(30,32,30);Ev:=Ev-['k'];
1466             for o:= 2 to NMax do if(o in cabiset)then r[o]:=Null;
1467            end
1468           else Say(11,'shut & locked');
1469   24,30 :if(noun in[26,11])then
1470           if(en('k'))then
1471            begin RL(324);
1472             if(cabiset=[])then RL(339)else
1473              for o:=0 to NMax do if(o in Cabiset)then writeln('a ',n[o,1])
1474            end
1475           else RL(299);
1476        end; {of 55}
1477
1478
1479 end  {of case}
1480 else SA
1481 end; {of SP9}
1482 {-------------------}
1483   procedure SpecialAnswers10;
1484
1485 begin
1486 FlagSA:='r';
1487 if Present then
1488 Case Prm of
1489
1490 56     :case verb of
1491     47  :moveto(54);
1492   2,51,58:if(noun=Null)or(noun=69)then moveto(57);
1493         end;
1494
1495 57     :case verb of
1496    46,57,2,33:if(noun=Null)or(noun=65)then
1497           begin n[68,1]:='keyhole';n[68,4]:='slot';moveto(58)end;
1498    52   :moveto(56);
1499         end;
1500
1501 58     :case verb of
1502    45,58:moveto(57);
1503    43,44,46..51,20:if(en('i'))and(en('j'))and KeyHole then
1504          begin sound(38);RS(61);ShRm:=2;moveto(59);sound(20);
1505          for o:=0 to NMax do if(r[o]=58)then r[o]:=59;
1506          if not(en('S'))then begin Ev:=Ev+['S'];Sc:=Sc+60 end end else RL(325);
1507    28   :if(noun=10)then noun:=81;
1508    11   :if(noun=68)then if KeyHole then RL(336)else RL(404);
1509         end;
1510
1511 65     :case verb of
1512    43,47:moveto(66);
1513    44,49:moveto(68);
1514    45,57:begin if not(en('w'))then begin Ev:=Ev+['w'];RL(346);end
1515                else begin RL(347);DEAD end end;
1516    46,48,50:moveto(63);
1517     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1518     51  :begin sound(38);RL(344);delay(999);sound(20)end;
1519     52  :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
1520     14  :if(noun=63)then begin RS(65);DEAD;end;
1521     28  :if(noun=10)then noun:=81;
1522         end;
1523
1524 66     :case verb of
1525     43  :RL(343);
1526   46,50 :moveto(65);
1527   45,49 :moveto(67);
1528     47  :moveto(64);
1529     48  :moveto(63);
1530   57,44 :begin sound(25);if not(en('V'))then begin Ev:=Ev+['V'];Sc:=Sc+30;end;
1531           RS(67);writeln;moveto(69);nosound;
1532          end;
1533     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1534     51  :begin sound(38);RL(344);delay(999);sound(20)end;
1535     52  :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
1536     14  :if(noun=63)then begin RS(65);DEAD;end;
1537     28  :if(noun=10)then noun:=81;
1538         end; {of 66}
1539
1540 67     :case verb of
1541     46  :begin RL(347);DEAD;end;
1542   43,48 :moveto(66);
1543   44,50 :moveto(68);
1544   47,49:moveto(64);
1545     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1546     51  :begin sound(38);RL(344);delay(999);sound(20)end;
1547     52  :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
1548     14  :if(noun=63)then begin RS(65);DEAD;end;
1549     28  :if(noun=10)then noun:=81;
1550         end; {of 67}
1551
1552 end  {of case}
1553 else SA
1554 end; {of SP10}
1555 {-------------------}
1556   procedure SpecialAnswers11;
1557
1558 begin
1559 FlagSA:='r';
1560 if Present then
1561 Case Prm of
1562
1563 63     :case verb of
1564    45   :moveto(65);
1565    47   :moveto(66);
1566    49   :moveto(68);
1567   43,44,46,48,50:RL(343);
1568     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1569     51  :begin sound(38);RL(344);delay(999);sound(20)end;
1570     52  :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
1571     14  :if(noun=63)then begin RS(65);DEAD;end;
1572     28  :if(noun=10)then noun:=81;
1573         end;
1574
1575 64     :case verb of
1576    46   :moveto(67);
1577    48   :moveto(66);
1578    50   :moveto(68);
1579   43,44,45,47,49:RL(343);
1580     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1581     51  :begin sound(38);RL(344);delay(999);sound(20)end;
1582     52  :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
1583     14  :if(noun=63)then begin RS(65);DEAD;end;
1584     28  :if(noun=10)then noun:=81;
1585         end;
1586
1587 68     :case verb of
1588     43  :begin RL(347);DEAD;end;
1589     44  :RL(343);
1590     50  :moveto(63);
1591     49  :moveto(64);
1592   46,48 :moveto(65);
1593   45,47 :moveto(67);
1594     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1595     51  :begin sound(38);RL(344);delay(999);sound(20)end;
1596     52  :begin sound(30);RL(345);ShRm:=13;moveto(59);sound(20)end;
1597     14  :if(noun=63)then begin RS(65);DEAD;end;
1598     28  :if(noun=10)then noun:=81;
1599         end;
1600
1601 69     :case verb of
1602   28,27 :if(noun in[10,21,81,36])then RL(351);
1603    11   :if(noun in[10,21,81,36,20,25])then RL(352)else
1604          if(noun=65)then RL(353);
1605   43,58 :moveto(70);
1606         end;
1607
1608 70     :case verb of
1609   44,57,2,33:if(noun=Null)or(noun=65)then moveto(69)else
1610          if(noun in[69,50])then moveto(71);
1611   43,47,48:RL(354);
1612   49,52 :moveto(71);
1613     11  :if(noun=65)then RL(353)
1614          else if(noun=68)then if KeyHole then RL(336)else RL(404);
1615        end;
1616
1617 71     :case verb of
1618   48,51,58:moveto(70);
1619     45  :moveto(72);
1620     11  :if(noun=58)then RL(386)else
1621          if(noun=25)then RL(418);
1622    28,27:if(noun in[10,36])then begin RL(387);
1623           for o:=1 to random(12)+4 do play(random(250),random(250),random(30))
1624          end;
1625     39  :if(noun=25)then begin RL(387);
1626           for o:=1 to random(99)+75 do
1627            begin x:=random(9999);play(x,x,random(19)+10);delay(5)end
1628          end
1629         end;{ of 71}
1630
1631 end  {of case}
1632 else SA
1633 end; {of SP11}
1634 {-------------------}
1635   procedure SpecialAnswers12;
1636
1637 begin
1638 FlagSA:='r';
1639 if Present then
1640 Case Prm of
1641
1642 11      :case verb of
1643    5,45,47,48,50:if FlasOff then RL(14)
1644           else case verb of
1645           48:moveto(9);47:moveto(13);
1646           5:if(29 in inven)or(40 in inven)or(2 in inven)then
1647                     RL(58)
1648                   else begin RL(18); moveto(12);end;
1649           50:RL(17);
1650           45:if(en('C'))then moveto(14) else RL(144);
1651             end;
1652    31   :if(input='nepo egassap')and not(en('C'))then
1653              begin Ev:=Ev+['C']; RS(11);Sc:=Sc+35;end;
1654   11 :if(noun in [79,72])then if(en('C'))then RL(270)else RS(13);
1655   27,28:if(noun in [79,72])then RL(26);
1656   17,0,6:if(noun in [79,72])then RL(27);
1657   38  :if(noun in [79,72])then RL(30);
1658           end; {of 11}
1659
1660 12     :case verb of
1661   4,47 :if FlasOff then RL(14)
1662            else case verb of
1663              4:begin RL(18); moveto(11);end;
1664                47   :RL(17);
1665                 end;
1666   43..46,48..52  :if FlasOff then RL(14);
1667    14  :if(noun in[70,1])and not(en('G'))then
1668          begin noun:=70;Ev:=Ev+['G'];Sc:=Sc+40;end;
1669    7   :if not(en('G'))then begin Ev:=Ev+['G'];RL(157);
1670           FlagSA:='r';verb:=14;noun:=70;Sc:=Sc+40;end;
1671           end; {of 12}
1672
1673 13      :case verb of
1674    50    :if flasoff then RL(14)
1675             else begin moveto(11); Ev:=Ev-['q'];end;
1676    43    :if(en('q'))then begin RL(24); DEAD;end
1677             else begin RL(23); Ev:=Ev+['q'];end;
1678    52,19,33:RL(42);
1679   14    :if(noun=47)then RL(25);
1680   9   :begin RL(68);vanish(noun);end;
1681           end;{of 13}
1682
1683 17       :case verb of
1684    51,19,2:RL(15);
1685    45    :if(flasoff)then RL(14)else moveto(18);
1686           end;
1687
1688 18      :case verb of
1689    46    :if(flasoff)then RL(14)else moveto(17);
1690   49,52  :if(flasoff)then RL(14)else begin RL(308);moveto(19);end;
1691    47    :if(flasoff)then RL(14)else
1692            if not(en('F'))then begin RS(19);writeln;moveto(21);
1693             Ev:=Ev+['F'];Sc:=Sc+10;end
1694            else moveto(21);
1695   11     :if(noun in[79,50])then RL(254);
1696          end;{of 18}
1697
1698 end  {of case}
1699 else SA
1700 end; {of SP12}
1701 {-------------------}
1702   procedure SpecialAnswers13;
1703
1704 begin
1705 FlagSA:='r';
1706 if Present then
1707 Case Prm of
1708
1709 2         :case verb of
1710    46     :moveto(1);
1711    45, 44 :RL(1);
1712    19,2   :if(noun in[53,6,64,73])then begin RL(0);DEAD;end;
1713   14,27 :if noun=14 then RL(2)else
1714          if(noun in[1,40])and(40 in p[2])then
1715             begin noun:=40;Sc:=Sc+10;Verb:=14;RL(417);FlagSA:='r' end;
1716    11   :if(noun in[66,46])then RL(11);
1717    26   :if noun=14then RL(13);
1718          end;
1719
1720 31     :case verb of
1721    48,58:moveto(25);
1722    14   :if not(en('I'))and(noun in[7,1])then
1723            begin Ev:=Ev+['I'];noun:=7;Sc:=Sc+5 end;
1724  23,24,11:if(noun=84)then RL(152)else
1725           if(noun=22)then RL(415);
1726        end;
1727
1728 32     :case verb of
1729    43,58:moveto(25);
1730  11,23  :case Noun of
1731           61:if(en('H'))then RL(153) else begin Ev:=Ev+['H'];r[34]:=32;
1732                RL(154);Sc:=Sc+15;end;
1733          end;{of Noun case}
1734        end;
1735
1736 34    :case verb of
1737    45,58:moveto(25);
1738    14   :if(noun=74)and(74 in P[34])then begin P[34]:=P[34]-[74];
1739            inven:=inven+[74];RL(138);Sc:=Sc+25;end;
1740    42   :if(noun=74)and(74 in P[34])then RL(175);
1741    28,27:if(noun in[10,36])then begin RL(387);
1742           for o:=1 to random(12)+4 do play(random(250),random(250),random(30))
1743          end;
1744    39   :if(noun=25)then begin RL(387);
1745           for o:=1 to random(99)+75 do
1746            begin x:=random(9999);play(x,x,random(19)+10);delay(5)end
1747          end;
1748    11   :case noun of
1749           0:RL(139);
1750           25:RL(418);
1751           21:begin;RL(140);RL(141);end;
1752           68:if(SlotCon=Null)then RL(143) else
1753               begin SA;writeln('The slot contains a ',n[SlotCon,1],'.')end;
1754           58:if(SlotCon=77)and not(en('x'))then
1755               begin Ev:=Ev+['x'];Sc:=Sc+5;RS(75)end
1756              else if(SlotCon=77)then RS(77)else RL(385)
1757          end
1758        end;
1759
1760 0         :case verb of
1761    45     :MoveTo(1);
1762    44     :begin TextColor(m8);writeln('Casino Hall');TextColor(m2);RS(0)end;
1763   19,2    :if(noun in[53,6,64,73])then begin RL(0);DEAD;end;
1764   11    :if(noun=73)then RL(19);
1765          end;
1766
1767 1        :case verb of
1768    46     :moveto(0);
1769    45     :moveto(2);
1770    43,57  :moveto(3);
1771    6,17   :if(noun=57)and(here(40))and((noun2=40)or(noun2=Null))then
1772            begin RS(16);Sc:=-500;
1773             Loc:='Locked Cabin';Verbose:=True;inven:=[];KitSet:=KitSet-[57];
1774             n[57,1]:='plastic card';n[57,2]:='card';n[57,3]:='plastic';
1775             n[57,4]:='elevato card';n[57,5]:='elevato';r[57]:=76;moveto(76)
1776            end;
1777  33,19,2  :if(noun in[6,53,64])then moveto(3)
1778           end;
1779
1780 end  {of case}
1781 else SA
1782 end; {of SP13}
1783 {-------------------}
1784   procedure SpecialAnswers14;
1785
1786 begin
1787 FlagSA:='r';
1788 if Present then
1789 Case Prm of
1790
1791 49     :case verb of
1792     43  :moveto(45);
1793   44,57 :begin RL(290);moveto(50);n[36,1]:='lever';n[36,2]:='handle';end;
1794   45..50:RL(291);
1795     11  :if(noun in[26,50])then RL(292);
1796     2   :if(noun=72)then RL(312);
1797     12  :if(noun=72)then RL(313);
1798         end;
1799
1800 59     :case verb of
1801    43..50:begin o:=random(8)+3;writeln('You travel about ',o,' miles...');
1802            if(random(4)=2)then ShRm:=13 else ShRm:=Random(15);moveto(59)end;
1803    52,57:RL(341);
1804     58  :if(noun=Null)or(noun=65)then begin RL(342);DEAD;end;
1805     51  :begin sound(30);
1806           if not(en('U'))then begin RS(64);writeln;Ev:=Ev+['U'];Sc:=Sc+45;end
1807           else RL(349);moveto(63);sound(20)end;
1808     14  :if(noun=63)then begin RS(65);DEAD;end;
1809     28  :if(noun=10)then noun:=81;
1810         end; {of case 59}
1811
1812 72     :case verb of
1813     46  :moveto(71);
1814   43,44,58:moveto(73);
1815     45  :moveto(74);
1816         end;
1817
1818 73     :case verb of
1819   43,45,58:moveto(72);
1820     46  :moveto(73);
1821     44  :begin moveto(74);if(MnRm=Null)then RL(356);end;
1822         end;
1823
1824 74     :case verb of
1825   43,45 :moveto(73);
1826   46,58 :moveto(74);
1827     44  :if(MnRm=Null)then begin Verbose:=False;Moveto(75);Verbose:=True;
1828           RS(69);MnRm:=75;Attack:=False end else moveto(75);
1829         end;
1830
1831 75     :case verb of
1832   43,58 :moveto(74);
1833    11   :if(noun in[14,61])then RL(364);
1834         end;
1835
1836 76     :case verb of
1837    43   :RL(114);
1838    11   :if(noun=26)then RL(271)else
1839          if(noun=57)then RL(408);
1840         end;
1841
1842 end  {of case}
1843 else SA
1844 end; {of SP14}
1845 {===================}
1846 procedure ScreenDraw_PlayerInput;
1847   begin
1848    gotoxy(1,23);
1849    writeln();
1850    TextColor(m5);
1851    write(chr(175),' ');
1852
1853    {Window(1,1,80,25);}
1854
1855    gotoxy(1,1);
1856    textcolor(m4);
1857    TextBackGround(m6);
1858
1859    gotoxy(10,1);
1860    writeln(Tic,'  ');
1861
1862    gotoxy(20,1);
1863    writeln(Sc,' ');
1864
1865    gotoxy(35-(length(Loc)div 2),1);
1866    writeln('     ',Loc,'     ');
1867
1868
1869    gotoxy(2,24);
1870    TextBackGround(0);
1871    Window(1,2,80,25);
1872    textcolor(m1);
1873
1874    {BufLen:=77;}
1875    if(Loc<>'Civilization!')then
1876         READLN(LINE)
1877         else repeat;
1878         until false;
1879    if(Line='r') or (Line='repeat') then Line:=Again
1880    else Again:=Line;
1881
1882
1883
1884    TextColor(m3);
1885    writeln(chr(175));
1886    TextColor(m2);
1887
1888
1889   end;
1890 {-------------------}
1891
1892
1893 BEGIN
1894 clrscr;
1895 assign0;
1896 assign1;
1897 assign2;
1898 assign3;
1899 assign4;
1900 assign5;
1901 assign6;
1902 assign7;
1903 assign8;
1904 Initialize;
1905
1906                             {*****} repeat {*****}
1907
1908 if Skip then Time;
1909 {writeln;}
1910
1911 if(length(Line)=0)then begin
1912  ScreenDraw_PlayerInput;
1913  while pos(' then ',Line)>0 do
1914   begin
1915    x:=pos('then ',Line);
1916    delete(Line,x,4);
1917    insert('.',Line,x)
1918   end;
1919  LowerCase(Line);
1920  Format(Line);
1921  Chop(Line);
1922 end;
1923 if(pos('.',Line)>0)then begin
1924   Input:=copy(Line,1,pos('.',Line));
1925   delete(Line,1,pos('.',Line));
1926   delete(Input,pos('.',Input),1);
1927 end else
1928  begin
1929   Input:=Line;
1930   Line:=''
1931  end;
1932 Input:=Input+' ';
1933 while pos(' it ',Input)>0 do
1934  begin
1935  x:=pos(' it ',Input)+1;
1936  delete(Input,x,2);
1937  insert(LastNoun,Input,x);
1938  Format(Input);Chop(Input);
1939  end;
1940 if(Input[length(Input)]=' ')then delete(Input,length(Input),1);
1941
1942
1943
1944 Check(SepWord);
1945
1946 if Flag = 'g' then
1947   begin
1948     case Prm of
1949       3..4                :SpecialAnswers1;
1950       5..10               :SpecialAnswers2;
1951       14..16              :SpecialAnswers3;
1952       19..24              :SpecialAnswers4;
1953       25,27..29,33        :SpecialAnswers5;
1954       30                  :SpecialAnswers6;
1955       26,35..40           :SpecialAnswers7;
1956       41..48              :SpecialAnswers8;
1957       50..55              :SpecialAnswers9;
1958       56..58,60..62,65..67:SpecialAnswers10;
1959       63,64,68..71        :SpecialAnswers11;
1960       11..13,17,18        :SpecialAnswers12;
1961       0..2,31,32,34       :SpecialAnswers13;
1962       49,59,72..76        :SpecialAnswers14
1963     end;
1964
1965     if FlagSA <> 's' then
1966       case Verb of
1967        11,18,22,41,43..52,57,58    :DefaultAnswers1;
1968        29                          :DefaultAnswers2;
1969        1,2,8,12,13,15,16,19,21,
1970         23..25,31,33,34,38,40,60,63:DefaultAnswers3;
1971        3,6,7,20,30,35,53..56,59    :DefaultAnswers4;
1972        9,26                        :DefaultAnswers5;
1973        27,28,62                    :DefaultAnswers6;
1974        14,64,4,5                   :DefaultAnswers7;
1975        0,10,17,42,39               :DefaultAnswers8;
1976        32                          :DefaultAnswers9;
1977        36,37,61,65                 :DefaultAnswers10;
1978       end;
1979   end;
1980
1981                          {*****} until False {*****}
1982
1983 END. {of program}