Home » Archimedes archive » Acorn User » AU 1994-10.adf » !Adventure_Adventure » zcode/h/VerbLib

zcode/h/VerbLib

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1994-10.adf » !Adventure_Adventure
Filename: zcode/h/VerbLib
Read OK: ✔
File size: 623D bytes
Load address: 0000
Exec address: 0000
File contents
! ----------------------------------------------------------------------------
!  VERBLIB:  A library of standard verb routines which run the universe...
!
!  Supplied for use with Inform 5
!
!  The actions provided are:
!
!    Quit, Restart, Restore, Verify, Save, ScriptOn, ScriptOff,
!    Inv, Take, Drop, Remove, PutOn, Insert, Transfer, Empty,
!    Enter, Exit, Go, Look, Examine, Give,
!    Unlock, Lock, SwitchOn, SwitchOff, Open, Close, Disrobe, Wear, Eat;
!
!  and routines for verbs which by default only print a suitable reply:
!
!    Yes, No, Burn, Pray, Wake, WakeOther [person],
!    Kiss, Think, Smell, Listen, Taste, Touch, TouchThing, Dig,
!    Cut, Jump [jump on the spot], JumpOver, Tie, Drink,
!    Fill, Sorry, Strong [swear word], Mild [swear word], Attack, Swim,
!    Swing [something], Blow, Rub, Set, SetTo, WaveHands [ie, just "wave"],
!    Wave [something], Pull, Push, PushDir [push something in a direction],
!    Turn, Squeeze, LookUnder [look underneath something], Search,
!    ThrowAt, Answer, Buy, Ask, Sing, Climb, Wait, Sleep, Consult
!
!  and the useful routines DescribeObj, which describes an object with
!  its possessions, PlayerTo, which moves the player to a new place,
!  MovePlayer, which moves the player in a given direction and looks.
! ----------------------------------------------------------------------------
!  Acorn User edition: prepared 3/7/94
! ----------------------------------------------------------------------------

System_file;

Default MAX_CARRIED  100;
Default MAX_SCORE    0;
Default NUMBER_TASKS 1;
Default OBJECT_SCORE 4;
Default ROOM_SCORE   5;
Default SACK_OBJECT  0;   
Default AMUSING_PROVIDED 1;
Default TASKS_PROVIDED   1;

#IFNDEF task_scores;
Global task_scores initial 0;
#ENDIF;

[ ScoreSub;
  if (deadflag==0)
       print "You have so far scored ";
  else print "In that game you scored ";

  print score, " out of a possible ", MAX_SCORE, ", in ", turns, " turns";

  PrintRank();
];

Global task_done data NUMBER_TASKS;

[ Achieved num;
  if (task_done->num==0)
  {   task_done->num=1; score=score+task_scores->num;
  }
];

[ PANum m n;
  print "  ";
  n=m;
  if (n<0)    { n=-m; n=n*10; }
  if (n<10)   { print "   "; jump panuml; }
  if (n<100)  { print "  "; jump panuml; }
  if (n<1000) { print " "; }
.panuml;
  print m, " ";
];

[ FullScoreSub i;
  ScoreSub();
  if (score==0 || TASKS_PROVIDED==1) rfalse;
  new_line;
  if (deadflag==0) print "The score is ";
  else             print "The score was ";
  print "made up as follows:^^";

  for (i=0:i<NUMBER_TASKS:i++)
      if (task_done->i==1)
      {   PANum(task_scores->i);
          PrintTaskName(i);
      }
  
  if (things_score~=0)
  {   PANum(things_score);
      print "finding sundry items^";
  }
  if (places_score~=0)
  {   PANum(places_score);
      print "visiting various places^";
  }
  new_line; PANum(score); print "total (out of ", MAX_SCORE, ")^";
];

[ YesOrNo i;
  for (::)
  {   read buffer parse;
      i=parse-->1;
      if (i=='yes' or #n$y) rtrue;
      if (i=='no' or #n$n) rfalse;
      print "Please answer yes or no.> ";
  }
];

[ QuitSub;
  print "Are you sure you want to quit? ";
  if (YesOrNo()~=0) quit;
];

[ RestartSub;
  print "Are you sure you want to restart? ";
  if (YesOrNo()~=0) { restart; "Failed."; }
];

[ RestoreSub;
  restore Rmaybe;
  "Restore failed.";
  .RMaybe; print "Ok.^";
];

[ SaveSub;
  save Smaybe;
  "Save failed.";
  .Smaybe; print "Ok.^";
];

[ VerifySub;
  verify Vmaybe;
  jump Vwrong;
  .Vmaybe; "The game file has verified as intact.";
  .Vwrong;
  "The game file did not verify properly, and may be corrupted \
             (unless you are running it on a primitive interpreter which \
             does not properly implement the VERIFY code).";
];

[ ScriptOnSub;
  if (transcript_mode==1) "Transcripting is already on.";
  transcript_mode=1;
  0-->8 = (0-->8)|1;
  print "Start of a transcript of^";
  Banner();
];

[ ScriptOffSub;
  if (transcript_mode==0) "Transcripting is already off.";
  print "^End of transcript.^";
  transcript_mode=0;
  0-->8 = (0-->8)&$fffe;
];

[ MoveFloatingObjects place i k l address top;
  top=#largest_object-256;
  for (i=1: i<=top: i++)
  {   address=i.&found_in;
      if (i hasnt absent && address~=0 && i.found_in~=0)
      {   k=i.#found_in;
          #IFV3;
          for (l=0: l<k: l++)
              if (place==address->l) move i to place;
          #ENDIF;
          #IFV5;
          for (l=0: l<k/2: l++)
              if (place==address-->l) move i to place;
          #ENDIF;
      }
  }
];

[ InvSub;
  if (child(player)==0) "You are carrying nothing.";
  print "You are carrying:^";
  Inventory(player);
  AfterRoutines();
];

[ Inventory obj n o2;
  o2=1;
  if (n~=0)
  {   spaces 2*n;
      o2=DescribeObj(obj,0); new_line;
  }
  if (o2==0) rtrue;

  objectloop(o2 in obj) Inventory(o2,n+1);
];

[ TakeSub;
  if (RTakeSub(location)~=0) rtrue;
  if (AfterRoutines()==1) rtrue;
  notheld_mode=onotheld_mode;
  if (notheld_mode==0) print "Taken.^";
];

[ RTakeSub fromobj i j k postonobj;
  if (noun==player) "As the bishop said to the actress.";

  if (noun has animate)
  {   print "I don't suppose "; DefArt(noun);
      " would care for that.";
  }

  i=parent(noun);
  if (i==player) "You already have that.";

  if (i has container || i has supporter)
  {   postonobj=i;
      k=action; action=##LetGo;
      if (RunRoutines(i,before)~=0) { action=k; rtrue; }
      action=k;
  }

  while (i~=fromobj)
  {   if (i hasnt container && i hasnt supporter)
          "That isn't available.";
      if (i has container && i hasnt open)
      {   print "Unfortunately "; DefArt(i); " isn't open."; }
      i=parent(i);
      if (i==player) i=fromobj;
  }
  if (noun has scenery)  "That's hardly portable.";
  if (noun has static)   "Fixed in place.";

  k=0; objectloop (j in player) if (j hasnt worn) k++;

  if (k >= MAX_CARRIED)
  {   if (SACK_OBJECT~=0)
      {   if (parent(SACK_OBJECT)~=player)
              "You're carrying too many things already.";
          j=0;
          objectloop (k in player) 
              if (k~=SACK_OBJECT && k hasnt worn && k hasnt light) j=k;

          if (j~=0)
          {   print "(putting "; DefArt(j); print " into ";
              DefArt(SACK_OBJECT); print " to make room)^";
              move j to SACK_OBJECT;
          }
          else "You're carrying too many things already.";
      }
      else "You're carrying too many things already.";
  }
  move noun to player;
  if (noun hasnt moved)
  {   give noun moved;
      if (noun has scored)
      {   score=score+OBJECT_SCORE;
          things_score=things_score+OBJECT_SCORE;
      }
  }

  if (postonobj~=0)
  {   k=action; action=##LetGo;
      if (RunRoutines(postonobj,after)~=0) { action=k; rtrue; }
      action=k;
  }
  rfalse;
];

[ DropSub i;
  i=parent(noun);
  if (i==location)
      "Already on the floor.";
  if (i~=player)
      "You haven't got that.";
  if (noun has worn)
  {   print "(First taking "; DefArt(noun); print " off)^"; give noun ~worn; }

  move noun to parent(player);
  if (AfterRoutines()==1) rtrue;
  print "Dropped.^";
];

[ RemoveSub i;

  i=parent(noun);
  if (i has container && i hasnt open) "Alas, it is closed.";
  if (i~=second) "But it isn't there now.";
  if (second has worn) "You'll need to take it off first.";
  if (RTakeSub(second)~=0) rtrue;
  action=##Take;   if (AfterRoutines()==1) rtrue;
  action=##Remove; if (AfterRoutines()==1) rtrue;

  print "Removed.^";
];

[ PutOnSub;
  if (second==d_obj) { <Drop noun>; rfalse; }
  if (parent(noun)~=player)
      "You need to be holding it before you can put it onto \
          something else.";

  if (second>1)
  {   action=##Receive;
      if (RunRoutines(second,before)~=0) { action=##PutOn; rtrue; }
      action=##PutOn;
  }

  if (second==noun) "You can't put something on top of itself.";
  if (second hasnt supporter)
  {   print "Putting things on "; DefArt(second);
      " would achieve nothing.";
  }
  if (parent(second)==player) "You lack the dexterity.";
  if (noun has worn)
  {   print "(first taking it off)^"; give noun ~worn; }
  if (children(second)>=prop(second,capacity))
  {   print "There is no more room on "; DefArt(second); ".";
  }
  move noun to second;

  if (AfterRoutines()==1) rtrue;

  if (second>1)
  {   action=##Receive;
      if (RunRoutines(second,after)~=0) { action=##PutOn; rtrue; }
      action=##PutOn;
  }

  if (multiflag==1) "Done.";
  print "You put the "; print_obj noun; print " on "; DefArt(second);
  ".";
];

[ InsertSub;
  if (second==d_obj ) <<Drop noun>>;
  if (parent(noun)~=player)
     "You need to be holding it before you can put it into \
          something else.";

  if (second>1)
  {   action=##Receive;
      if (RunRoutines(second,before)~=0) { action=##Insert; rtrue; }
      action=##Insert;
  }

  if (second hasnt container) "That can't contain things.";
  if (second hasnt open)      "Alas, it is closed.";
  if (second has worn)        "You'll need to take it off first.";
  if (second==noun)           "You can't put something inside itself.";
  if (noun has worn) { print "(first taking it off)^"; give noun ~worn; }

  if (children(second)>=prop(second,capacity))
  {   print "There is no more room in "; DefArt(second); "."; }

  move noun to second;

  if (AfterRoutines()==1) rtrue;

  if (second>1)
  {   action=##Receive;
      if (RunRoutines(second,after)~=0) { action=##Insert; rtrue; }
      action=##Insert;
  }

  if (multiflag==1) "Done.";
  print "You put "; DefArt(noun); print " into "; DefArt(second); ".";
];

[ TransferSub i a;
  a=##Drop;
  if (second has container) a=##Insert;
  else
      if (second has supporter) a=##PutOn;

  i=parent(noun);
  if (i~=player)
  {   while (i~=0)
      {   if (i hasnt open) "That isn't in your possession.";
          i=parent(i);
          if (i==player) jump Segue;
      }
      "First pick that up.";
  }
  .Segue; move noun to player;
  Process(noun,second,a); rfalse;
];

[ EmptySub;
  second=d_obj; EmptyTSub();
];

[ EmptyTSub i j;
  if (noun hasnt container)
  {   CDefArt(noun); " can't contain things."; }
  if (noun hasnt open)
  {   CDefArt(noun); " is closed."; }
  if (second~=d_obj)
  {   if (second hasnt container)
      {   CDefArt(second); " can't contain things."; }
      if (second hasnt open) { CDefArt(second); " is closed."; }
  }
  i=child(noun);
  if (i==0) { DefArt(noun); " is empty already."; }
  while (i~=0)
  {   j=sibling(i);
      print object i, ": ";
      <Transfer i second>;
      i=j;
  }
];

[ EnterSub i;
  if (noun has door) <<Go noun>>;
  i=parent(player);
  if (i~=location)
  {   print "But you're already in "; DefArt(i); "."; }
  if (noun hasnt enterable) "A surreal idea.";
  i=parent(noun);
  if (i==compass) <<Go noun>>;
  if (i~=location) "You can only get into something on the floor.";
  move player to noun;
  print "You get into "; DefArt(noun); print ".^";
  Locale(noun);
];

[ ExitSub;
  if (parent(player)==location)
  {   if (location.out_to~=0) <<Go out_obj>>;
      "But you're aren't in anything at the moment.";
  }
  move player to location;
  print "You are on your own two feet again.^"; LookSub(1); AfterRoutines();
];

[ VagueGoSub;
  "You'll have to say which compass direction to go in.";
];

[ GoInSub;
  <Go in_obj>; rtrue;
];

[ GoSub i j df movewith thedir;

  movewith=0;
  i=parent(player);
  if ((location~=thedark && i~=location)
      || (location==thedark && i~=real_location))
  {   j=location; location=real_location;
      if (RunRoutines(i,before)~=0)
      {   movewith=i; i=parent(i); location=j; jump gotroom; }
      location=j;
      print "You'll have to get out of "; DefArt(i);
      " first.";
  }
  .gotroom;
  thedir=noun.door_dir;
  if ((thedir-#code_offset)>=0) thedir=RunRoutines(noun,door_dir);
  
  j=i.thedir;

  if (j>#largest_object)
  {   if ((j-#strings_offset)>=0)
      {   print_paddr j; new_line; rfalse; }
      j=RunRoutines(i,thedir);
      if (j==1) rtrue;
  }

  if (j==0)
  {   print_paddr i.cantgo; new_line; rfalse; }

  if (j has door)
  {   if (j has concealed) "You can't go that way.";
      if (j hasnt open)
      {   if (noun==u_obj)
          {   print "You are unable to climb "; Defart(j); "."; }
          if (noun==d_obj)
          {   print "You are unable to descend "; Defart(j); "."; }
          print "You can't, since "; Defart(j); " is in the way.";
      }
      if ((j.door_to-#code_offset)>=0) j=RunRoutines(j,door_to);
      else j=j.door_to;
      if (j==0)
      {   print "You can't, since "; Defart(j); " leads nowhere."; }
  }
  if (movewith==0) move player to j; else move movewith to j;

  df=OffersLight(j);
  if (df~=0) { location=j; lightflag=1; }
  else
  {   if (location==thedark) DarkToDark();
      real_location=j;
      location=thedark; lightflag=0;
  }
  if (LAfterRoutines()==1) rtrue;
  LookSub(1);
];

[ SayWhatsOn descon o i k;
  print "^On "; DefArt(descon);
  k=children(descon);
  if (children(descon)==1) print " is "; else print " are ";
  i=0;
  objectloop (o in descon)
  {   i++; 
      DescribeObj(o,1);
      if (i==k-1)  print " and ";
      if (i<k-1) print ", ";
  }
  print ".^";
];

[ Locale descin o k j flag i;

  k=0;
  objectloop (o in descin)
      if (o hasnt concealed)
      {  if (o hasnt scenery)
         {   give o workflag; inc k;
             if (o hasnt moved || o.describe~=$ffff)
             {   if (o.describe~=$ffff && RunRoutines(o,describe)~=0)
                 {   flag=1;
                     give o ~workflag; dec k;
                 }    
                 else
                 {   j=o.initial;
                     if ((o has door && o hasnt open)
                          || (o has switchable && o hasnt on) ) j=o.closedpos;
                     if (j~=0)
                     {   new_line; print_paddr j; new_line;
                         flag=1;
                         give o ~workflag; dec k;
                         if (o has supporter && child(o)~=0) SayWhatsOn(o);
                     }
                 }
             }
         }
         else
             if (o has supporter && child(o)~=0) SayWhatsOn(o);
      }

  if (k==0) return;
  new_line;
  if (descin~=location) { print "In "; DefArt(descin); print " you"; }
  if (descin==location) print "You";
  print " can ";
  if (flag==1) print "also ";
  print "see ";
  i=0;
  objectloop (o in descin)
      if (o has workflag)
      {  i++;
         DescribeObj(o,1);
         if (i==k-1) print " and ";
         if (i< k-1) print ", ";
      }
  if (descin~=location) print ".^";
  if (descin==location) print " here.^";
];

[ LMode1Sub;
  lookmode=1; print_paddr #Story;
  " is now in its normal ~brief~ printing mode, which gives \
              long descriptions of \
              places never before visited and short descriptions otherwise.";
];

[ LMode2Sub;
  lookmode=2; print_paddr #Story;
  " is now in its ~verbose~ mode, which always gives long \
              descriptions of locations (even if you've been there before).";
];

[ LMode3Sub;
  lookmode=3; print_paddr #Story;
  " is now in its ~superbrief~ mode, which always gives short \
              descriptions of locations (even if you haven't been there \
              before).";
];

[ LookSub weary i descin j;
  descin=location;
  if (descin~=lastdesc)
  {   j=descin.initial;
      if ((j-#strings_offset)>0) print_paddr j; 
      else
      {   if (j>0 && RunRoutines(descin,initial)~=0) NewRoom();
      }
      MoveFloatingObjects(location);
  }
  new_line;
#IFV5; style bold; #ENDIF;
  print object location;
#IFV5; style roman; #ENDIF;

  i=parent(player);
  if (location~=thedark && i~=location)
  {   print " (in "; DefArt(i); print ")"; descin=i; }
  new_line;

  if ((weary~=1) || (lookmode==2) || (location hasnt visited))
  {   if (location.describe~=$ffff) RunRoutines(location,describe);
      else
      {   j=location.description;
          if ((j-#strings_offset)>0)
          {   print_paddr j; new_line; } 
          else
              RunRoutines(location,description);
      }
  }

  if (location hasnt visited)
  {   give location visited;
      if (location has scored)
      {   score=score+ROOM_SCORE;
          places_score=places_score+ROOM_SCORE;
      }
  }

  if (descin~=location) Locale(location);
  Locale(descin);

  LookRoutine();
  action=##Look;
  if (LAfterRoutines()==1) rtrue;
];

[ ExamineSub i;
  if (location==thedark)
      "Darkness, noun.  An absence of light to see by.";
  if (noun==player)
      "As good-looking as ever.";
  if (noun has autosearch) { SearchSub(); rfalse; }
  i=noun.description;
  if (i==0)
  {   if (noun has container) { SearchSub(); rfalse; }
      print "You see nothing special about "; Defart(noun); ".";
  }
  if ((i-#strings_offset)>0)
  {   print_paddr i; new_line; }
  else
      RunRoutines(noun,description);
  if (noun has switchable)
  {   print "It is currently switched ";
      if (noun has on) print "on.^"; else print "off.^";
  }
  if (AfterRoutines()==1) rtrue;
];

[ DescribeObj o listmode p i k rval;

  if (listmode~=2) Indefart(o); else Defart(o);

  if (o has light) print " (providing light)";
  if (o has worn)  print " (being worn)";
  if (o has container)
  {   if (listmode~=2) print " (which is "; else print ", which is ";
      if (o hasnt open)
      {   print "closed";
          if (o hasnt transparent) jump Cdone;
      }
      if (o has open) print "open";
      if (listmode==0) { rval=1; jump Cdone; }
      k=children(o);
      if (k==0)
      {   print " but empty";
          jump Cdone;
      }
      print " and contains ";
      i=0;
      objectloop (p in o)
      {   i++; DescribeObj(p,1);
          if (i==k-1) print " and ";
          if (i< k-1) print ", ";
      }
      .Cdone;
      if (listmode~=2) print ")";
  }
  if (o has supporter)
  {   p=child(o);
      if (p~=0)
      {   if (listmode~=2)
              print " (on which ";
          else
              print ", on top of which ";
          if (listmode==0) { rval=1; jump Sdone; }
          k=children(o); i=0;
          if (k==1) print "is "; else print "are ";
          objectloop (p in o)
          {   i++;
              DescribeObj(p,1);
              if (i==k-1) print " and ";
              if (i< k-1) print ", ";
          }
          .SDone;
          if (listmode~=2) print ")";
      }
  }
  return rval;
];

[ GiveSub;
  if (parent(noun)~=player)
  {   print "You aren't holding "; DefArt(noun); "."; }
  if (second==player) { print "You juggle "; DefArt(noun);
      " for a while, but don't achieve much."; }
  if (RunLife(second,##Give)~=0) rfalse;
  CDefArt(second); " doesn't seem interested.";
];

[ GiveRSub; <Give second noun>; ];

[ UnlockSub;
  if (noun hasnt lockable) "I can't see how to unlock that.";
  if (noun hasnt locked)   "It is in fact unlocked now.";
  if (noun.with_key~=second) "That doesn't seem to fit the lock.";
  give noun ~locked;
  if (AfterRoutines()==1) rtrue;
  print "You unlock "; DefArt(noun); ".";
];

[ LockSub;
  if (noun hasnt lockable) "I can't see how to lock that.";
  if (noun has locked)     "It is in fact locked now.";
  if (noun has open)       "First you'll have to close it.";
  if (noun.with_key~=second) "That doesn't seem to fit the lock.";
  give noun locked;
  if (AfterRoutines()==1) rtrue;
  print "You lock "; DefArt(noun); ".";
];

[ SwitchonSub;
  if (noun hasnt switchable)
      "That's not something you can switch.";
  if (noun has on) "It's already on.";
  give noun on;
  if (AfterRoutines()==1) rtrue;
  print "You switch "; DefArt(noun); " on.";
];

[ SwitchoffSub;
  if (noun hasnt switchable)
      "That's not something you can switch.";
  if (noun hasnt on) "It's already off.";
  give noun ~on;
  if (AfterRoutines()==1) rtrue;
  print "You switch "; DefArt(noun); " off.";
];

[ OpenSub;
  if (noun hasnt openable) "That's not something you can open.";
  if (noun has locked)     "It seems to be locked.";
  if (noun has open)       "It's already open.";
  give noun open;
  if (AfterRoutines()==1) rtrue;
  print "You open "; DefArt(noun); ".";
];

[ CloseSub;
  if (noun hasnt openable) "That's not something you can close.";
  if (noun hasnt open)     "It's already closed.";
  give noun ~open;
  if (AfterRoutines()==1) rtrue;
  print "You close "; DefArt(noun); ".";
];

[ DisrobeSub;
  if (noun hasnt worn) "You're not wearing that.";
  give noun ~worn;
  if (AfterRoutines()==1) rtrue;
  print "You take off "; DefArt(noun); print ".^";
];

[ WearSub;
  if (noun hasnt clothing)  "You can't wear that!";
  if (parent(noun)~=player) "You're not holding that!";
  if (noun has worn)        "You're already wearing that!";
  give noun worn;
  if (AfterRoutines()==1) rtrue;
  print "You put on "; DefArt(noun); print ".^";
];

[ EatSub;
  if (noun hasnt edible)    "No, it's plainly inedible.";
  remove noun;
  if (AfterRoutines()==1) rtrue;
  print "You eat "; DefArt(noun); ".  Not bad.";
];

[ YesSub;
  "That was a rhetorical question.";
];

[ NoSub;
  "That was a rhetorical question.";
];

[ BurnSub;
  "In this game, arson is (usually) forbidden.";
];

[ PraySub;
  "Spooky!  For a moment there, a deep voice seemed \
             to say ~you're on your own~.";
];

[ WakeSub;
  "The dreadful truth is, this is not a dream.";
];

[ WakeOtherSub;
  "That seems unnecessary.";
];

[ KissSub;
  if (RunLife(noun,##Kiss)~=0) rfalse;
  "Keep your mind on the game.";
];

[ ThinkSub;
  "What a good idea.";
];

[ SmellSub;
  "You smell nothing unexpected.";
];

[ ListenSub;
  "You hear nothing unexpected.";
];

[ TasteSub;
  "You taste nothing unexpected.";
];

[ TouchSub;
  "You feel nothing unexpected.";
];

[ TouchThingSub;
  if (noun has animate) "Keep your hands to yourself!";
  "You feel nothing unexpected.";
];

[ DigSub;
  "The ground is unsuitable for digging here.";
];

[ CutSub;
  "In this game, cutting things up is never helpful.";
];

[ JumpSub;
  "You jump on the spot, fruitlessly.";
];

[ JumpOverSub;
  "You would achieve nothing by this.";
];

[ TieSub;
  "You would achieve nothing by this.";
];

[ DrinkSub;
  "There's nothing suitable to drink here.";
];

[ FillSub;
  "But there's no water here to carry.";
];

[ SorrySub;
  "Oh, don't apologise.";
];

[ StrongSub;
  "Disgraceful!  Once upon a time adventurers had moral standards.";
];

[ MildSub;
  "Quite.";
];

[ AttackSub;
  if (noun has animate && RunLife(noun,##Attack)~=0) rfalse;
  "Violence isn't the answer, you know.";
];

[ SwimSub;
  "There's not enough water to swim in.";
];

[ SwingSub;
  "There's nothing sensible to swing here.";
];

[ BlowSub;
  "You can't usefully blow that.";
];

[ RubSub;
  "You achieve nothing by this.";
];

[ SetSub;
  "No, you can't set that.";
];

[ SetToSub;
  "No, you can't set that to anything.";
];

[ WaveHandsSub;
  "You wave, feeling foolish.";
];

[ WaveSub;
  if (parent(noun)~=player) "But you aren't holding that.";
  print "You look ridiculous waving "; DefArt(noun); ".";
];

[ PullSub;
  if (noun has static)   "It is fixed in place.";
  if (noun has scenery)  "You are unable to.";
  "Nothing obvious happens.";
];

[ PushSub;
  if (noun has static)   "It is fixed in place.";
  if (noun has scenery)  "You are unable to.";
  "Nothing obvious happens.";
];

[ AllowPushDir i;
  if (parent(second)~=compass) "That's not a direction.";
  if (second==u_obj or d_obj)  "Not that way you can't.";
  AfterRoutines();
  i=noun; <Go second>; move i to location;
];

[ PushDirSub;          
  "Is that the best you can think of?";
];

[ TurnSub;
  if (noun has static)  "It is fixed in place.";
  if (noun has scenery) "You are unable to.";
  "Nothing obvious happens.";
];

[ SqueezeSub;
  if (noun has animate) "Keep your hands to yourself.";
  "You achieve nothing by this.";
];

[ LookUnderSub;
  "You find nothing of interest.";
];

[ SearchSub;
  if (noun hasnt container)
      "You find nothing of interest.";
  if (noun hasnt transparent && noun hasnt open)
      "You can't see inside, since it is closed.";
  if (AfterRoutines()==1) rtrue;
  print "You peer at "; DescribeObj(noun,2); ".";
];

[ ThrowAtSub;
  if (second hasnt animate) "Futile.";
  if (RunLife(second,##ThrowAt)~=0) rfalse;
  "You lack the nerve when it comes to the crucial moment.";
];

[ AnswerSub;
  inp1=special_word;
  if (RunLife(second,##Answer)~=0) rfalse;
  "No reply.";
];  

[ BuySub;
  "Nothing is on sale.";
];

[ AskSub;
  inp1=special_word;
  if (RunLife(noun,##Ask)~=0) rfalse;
  "No reply.";
];  

[ SingSub;
  if (random(2)==1) print "Your yodelling ";
  else print "Your singing ";
  "is atrocious, if you say so yourself.";
];

[ ClimbSub;
  "I don't think much is to be achieved by that.";
];  

[ WaitSub;
  if (LAfterRoutines()==1) rtrue;
  "Time passes.";
];  

[ SleepSub;
  "You must have slept yourself out.  \
             You certainly aren't drowsy now.";
];

[ ConsultSub;
  print "There's nothing to be discovered";
  if (noun==0) ".";
  print " by consulting "; DefArt(noun); ".";
];

[ PlayerTo newplace flag;
  move player to newplace; location=newplace;
  real_location=location;
  AdjustLight(1);
  if (flag==0) <Look>;
];

[ MovePlayer direc; <Go direc>; <Look>; ];

00000000  21 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |! --------------|
00000010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000040  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 21  |--------------.!|
00000050  20 20 56 45 52 42 4c 49  42 3a 20 20 41 20 6c 69  |  VERBLIB:  A li|
00000060  62 72 61 72 79 20 6f 66  20 73 74 61 6e 64 61 72  |brary of standar|
00000070  64 20 76 65 72 62 20 72  6f 75 74 69 6e 65 73 20  |d verb routines |
00000080  77 68 69 63 68 20 72 75  6e 20 74 68 65 20 75 6e  |which run the un|
00000090  69 76 65 72 73 65 2e 2e  2e 0a 21 0a 21 20 20 53  |iverse....!.!  S|
000000a0  75 70 70 6c 69 65 64 20  66 6f 72 20 75 73 65 20  |upplied for use |
000000b0  77 69 74 68 20 49 6e 66  6f 72 6d 20 35 0a 21 0a  |with Inform 5.!.|
000000c0  21 20 20 54 68 65 20 61  63 74 69 6f 6e 73 20 70  |!  The actions p|
000000d0  72 6f 76 69 64 65 64 20  61 72 65 3a 0a 21 0a 21  |rovided are:.!.!|
000000e0  20 20 20 20 51 75 69 74  2c 20 52 65 73 74 61 72  |    Quit, Restar|
000000f0  74 2c 20 52 65 73 74 6f  72 65 2c 20 56 65 72 69  |t, Restore, Veri|
00000100  66 79 2c 20 53 61 76 65  2c 20 53 63 72 69 70 74  |fy, Save, Script|
00000110  4f 6e 2c 20 53 63 72 69  70 74 4f 66 66 2c 0a 21  |On, ScriptOff,.!|
00000120  20 20 20 20 49 6e 76 2c  20 54 61 6b 65 2c 20 44  |    Inv, Take, D|
00000130  72 6f 70 2c 20 52 65 6d  6f 76 65 2c 20 50 75 74  |rop, Remove, Put|
00000140  4f 6e 2c 20 49 6e 73 65  72 74 2c 20 54 72 61 6e  |On, Insert, Tran|
00000150  73 66 65 72 2c 20 45 6d  70 74 79 2c 0a 21 20 20  |sfer, Empty,.!  |
00000160  20 20 45 6e 74 65 72 2c  20 45 78 69 74 2c 20 47  |  Enter, Exit, G|
00000170  6f 2c 20 4c 6f 6f 6b 2c  20 45 78 61 6d 69 6e 65  |o, Look, Examine|
00000180  2c 20 47 69 76 65 2c 0a  21 20 20 20 20 55 6e 6c  |, Give,.!    Unl|
00000190  6f 63 6b 2c 20 4c 6f 63  6b 2c 20 53 77 69 74 63  |ock, Lock, Switc|
000001a0  68 4f 6e 2c 20 53 77 69  74 63 68 4f 66 66 2c 20  |hOn, SwitchOff, |
000001b0  4f 70 65 6e 2c 20 43 6c  6f 73 65 2c 20 44 69 73  |Open, Close, Dis|
000001c0  72 6f 62 65 2c 20 57 65  61 72 2c 20 45 61 74 3b  |robe, Wear, Eat;|
000001d0  0a 21 0a 21 20 20 61 6e  64 20 72 6f 75 74 69 6e  |.!.!  and routin|
000001e0  65 73 20 66 6f 72 20 76  65 72 62 73 20 77 68 69  |es for verbs whi|
000001f0  63 68 20 62 79 20 64 65  66 61 75 6c 74 20 6f 6e  |ch by default on|
00000200  6c 79 20 70 72 69 6e 74  20 61 20 73 75 69 74 61  |ly print a suita|
00000210  62 6c 65 20 72 65 70 6c  79 3a 0a 21 0a 21 20 20  |ble reply:.!.!  |
00000220  20 20 59 65 73 2c 20 4e  6f 2c 20 42 75 72 6e 2c  |  Yes, No, Burn,|
00000230  20 50 72 61 79 2c 20 57  61 6b 65 2c 20 57 61 6b  | Pray, Wake, Wak|
00000240  65 4f 74 68 65 72 20 5b  70 65 72 73 6f 6e 5d 2c  |eOther [person],|
00000250  0a 21 20 20 20 20 4b 69  73 73 2c 20 54 68 69 6e  |.!    Kiss, Thin|
00000260  6b 2c 20 53 6d 65 6c 6c  2c 20 4c 69 73 74 65 6e  |k, Smell, Listen|
00000270  2c 20 54 61 73 74 65 2c  20 54 6f 75 63 68 2c 20  |, Taste, Touch, |
00000280  54 6f 75 63 68 54 68 69  6e 67 2c 20 44 69 67 2c  |TouchThing, Dig,|
00000290  0a 21 20 20 20 20 43 75  74 2c 20 4a 75 6d 70 20  |.!    Cut, Jump |
000002a0  5b 6a 75 6d 70 20 6f 6e  20 74 68 65 20 73 70 6f  |[jump on the spo|
000002b0  74 5d 2c 20 4a 75 6d 70  4f 76 65 72 2c 20 54 69  |t], JumpOver, Ti|
000002c0  65 2c 20 44 72 69 6e 6b  2c 0a 21 20 20 20 20 46  |e, Drink,.!    F|
000002d0  69 6c 6c 2c 20 53 6f 72  72 79 2c 20 53 74 72 6f  |ill, Sorry, Stro|
000002e0  6e 67 20 5b 73 77 65 61  72 20 77 6f 72 64 5d 2c  |ng [swear word],|
000002f0  20 4d 69 6c 64 20 5b 73  77 65 61 72 20 77 6f 72  | Mild [swear wor|
00000300  64 5d 2c 20 41 74 74 61  63 6b 2c 20 53 77 69 6d  |d], Attack, Swim|
00000310  2c 0a 21 20 20 20 20 53  77 69 6e 67 20 5b 73 6f  |,.!    Swing [so|
00000320  6d 65 74 68 69 6e 67 5d  2c 20 42 6c 6f 77 2c 20  |mething], Blow, |
00000330  52 75 62 2c 20 53 65 74  2c 20 53 65 74 54 6f 2c  |Rub, Set, SetTo,|
00000340  20 57 61 76 65 48 61 6e  64 73 20 5b 69 65 2c 20  | WaveHands [ie, |
00000350  6a 75 73 74 20 22 77 61  76 65 22 5d 2c 0a 21 20  |just "wave"],.! |
00000360  20 20 20 57 61 76 65 20  5b 73 6f 6d 65 74 68 69  |   Wave [somethi|
00000370  6e 67 5d 2c 20 50 75 6c  6c 2c 20 50 75 73 68 2c  |ng], Pull, Push,|
00000380  20 50 75 73 68 44 69 72  20 5b 70 75 73 68 20 73  | PushDir [push s|
00000390  6f 6d 65 74 68 69 6e 67  20 69 6e 20 61 20 64 69  |omething in a di|
000003a0  72 65 63 74 69 6f 6e 5d  2c 0a 21 20 20 20 20 54  |rection],.!    T|
000003b0  75 72 6e 2c 20 53 71 75  65 65 7a 65 2c 20 4c 6f  |urn, Squeeze, Lo|
000003c0  6f 6b 55 6e 64 65 72 20  5b 6c 6f 6f 6b 20 75 6e  |okUnder [look un|
000003d0  64 65 72 6e 65 61 74 68  20 73 6f 6d 65 74 68 69  |derneath somethi|
000003e0  6e 67 5d 2c 20 53 65 61  72 63 68 2c 0a 21 20 20  |ng], Search,.!  |
000003f0  20 20 54 68 72 6f 77 41  74 2c 20 41 6e 73 77 65  |  ThrowAt, Answe|
00000400  72 2c 20 42 75 79 2c 20  41 73 6b 2c 20 53 69 6e  |r, Buy, Ask, Sin|
00000410  67 2c 20 43 6c 69 6d 62  2c 20 57 61 69 74 2c 20  |g, Climb, Wait, |
00000420  53 6c 65 65 70 2c 20 43  6f 6e 73 75 6c 74 0a 21  |Sleep, Consult.!|
00000430  0a 21 20 20 61 6e 64 20  74 68 65 20 75 73 65 66  |.!  and the usef|
00000440  75 6c 20 72 6f 75 74 69  6e 65 73 20 44 65 73 63  |ul routines Desc|
00000450  72 69 62 65 4f 62 6a 2c  20 77 68 69 63 68 20 64  |ribeObj, which d|
00000460  65 73 63 72 69 62 65 73  20 61 6e 20 6f 62 6a 65  |escribes an obje|
00000470  63 74 20 77 69 74 68 0a  21 20 20 69 74 73 20 70  |ct with.!  its p|
00000480  6f 73 73 65 73 73 69 6f  6e 73 2c 20 50 6c 61 79  |ossessions, Play|
00000490  65 72 54 6f 2c 20 77 68  69 63 68 20 6d 6f 76 65  |erTo, which move|
000004a0  73 20 74 68 65 20 70 6c  61 79 65 72 20 74 6f 20  |s the player to |
000004b0  61 20 6e 65 77 20 70 6c  61 63 65 2c 0a 21 20 20  |a new place,.!  |
000004c0  4d 6f 76 65 50 6c 61 79  65 72 2c 20 77 68 69 63  |MovePlayer, whic|
000004d0  68 20 6d 6f 76 65 73 20  74 68 65 20 70 6c 61 79  |h moves the play|
000004e0  65 72 20 69 6e 20 61 20  67 69 76 65 6e 20 64 69  |er in a given di|
000004f0  72 65 63 74 69 6f 6e 20  61 6e 64 20 6c 6f 6f 6b  |rection and look|
00000500  73 2e 0a 21 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |s..! -----------|
00000510  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000550  2d 0a 21 20 20 41 63 6f  72 6e 20 55 73 65 72 20  |-.!  Acorn User |
00000560  65 64 69 74 69 6f 6e 3a  20 70 72 65 70 61 72 65  |edition: prepare|
00000570  64 20 33 2f 37 2f 39 34  0a 21 20 2d 2d 2d 2d 2d  |d 3/7/94.! -----|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005c0  2d 2d 2d 2d 2d 2d 2d 0a  0a 53 79 73 74 65 6d 5f  |-------..System_|
000005d0  66 69 6c 65 3b 0a 0a 44  65 66 61 75 6c 74 20 4d  |file;..Default M|
000005e0  41 58 5f 43 41 52 52 49  45 44 20 20 31 30 30 3b  |AX_CARRIED  100;|
000005f0  0a 44 65 66 61 75 6c 74  20 4d 41 58 5f 53 43 4f  |.Default MAX_SCO|
00000600  52 45 20 20 20 20 30 3b  0a 44 65 66 61 75 6c 74  |RE    0;.Default|
00000610  20 4e 55 4d 42 45 52 5f  54 41 53 4b 53 20 31 3b  | NUMBER_TASKS 1;|
00000620  0a 44 65 66 61 75 6c 74  20 4f 42 4a 45 43 54 5f  |.Default OBJECT_|
00000630  53 43 4f 52 45 20 34 3b  0a 44 65 66 61 75 6c 74  |SCORE 4;.Default|
00000640  20 52 4f 4f 4d 5f 53 43  4f 52 45 20 20 20 35 3b  | ROOM_SCORE   5;|
00000650  0a 44 65 66 61 75 6c 74  20 53 41 43 4b 5f 4f 42  |.Default SACK_OB|
00000660  4a 45 43 54 20 20 30 3b  20 20 20 0a 44 65 66 61  |JECT  0;   .Defa|
00000670  75 6c 74 20 41 4d 55 53  49 4e 47 5f 50 52 4f 56  |ult AMUSING_PROV|
00000680  49 44 45 44 20 31 3b 0a  44 65 66 61 75 6c 74 20  |IDED 1;.Default |
00000690  54 41 53 4b 53 5f 50 52  4f 56 49 44 45 44 20 20  |TASKS_PROVIDED  |
000006a0  20 31 3b 0a 0a 23 49 46  4e 44 45 46 20 74 61 73  | 1;..#IFNDEF tas|
000006b0  6b 5f 73 63 6f 72 65 73  3b 0a 47 6c 6f 62 61 6c  |k_scores;.Global|
000006c0  20 74 61 73 6b 5f 73 63  6f 72 65 73 20 69 6e 69  | task_scores ini|
000006d0  74 69 61 6c 20 30 3b 0a  23 45 4e 44 49 46 3b 0a  |tial 0;.#ENDIF;.|
000006e0  0a 5b 20 53 63 6f 72 65  53 75 62 3b 0a 20 20 69  |.[ ScoreSub;.  i|
000006f0  66 20 28 64 65 61 64 66  6c 61 67 3d 3d 30 29 0a  |f (deadflag==0).|
00000700  20 20 20 20 20 20 20 70  72 69 6e 74 20 22 59 6f  |       print "Yo|
00000710  75 20 68 61 76 65 20 73  6f 20 66 61 72 20 73 63  |u have so far sc|
00000720  6f 72 65 64 20 22 3b 0a  20 20 65 6c 73 65 20 70  |ored ";.  else p|
00000730  72 69 6e 74 20 22 49 6e  20 74 68 61 74 20 67 61  |rint "In that ga|
00000740  6d 65 20 79 6f 75 20 73  63 6f 72 65 64 20 22 3b  |me you scored ";|
00000750  0a 0a 20 20 70 72 69 6e  74 20 73 63 6f 72 65 2c  |..  print score,|
00000760  20 22 20 6f 75 74 20 6f  66 20 61 20 70 6f 73 73  | " out of a poss|
00000770  69 62 6c 65 20 22 2c 20  4d 41 58 5f 53 43 4f 52  |ible ", MAX_SCOR|
00000780  45 2c 20 22 2c 20 69 6e  20 22 2c 20 74 75 72 6e  |E, ", in ", turn|
00000790  73 2c 20 22 20 74 75 72  6e 73 22 3b 0a 0a 20 20  |s, " turns";..  |
000007a0  50 72 69 6e 74 52 61 6e  6b 28 29 3b 0a 5d 3b 0a  |PrintRank();.];.|
000007b0  0a 47 6c 6f 62 61 6c 20  74 61 73 6b 5f 64 6f 6e  |.Global task_don|
000007c0  65 20 64 61 74 61 20 4e  55 4d 42 45 52 5f 54 41  |e data NUMBER_TA|
000007d0  53 4b 53 3b 0a 0a 5b 20  41 63 68 69 65 76 65 64  |SKS;..[ Achieved|
000007e0  20 6e 75 6d 3b 0a 20 20  69 66 20 28 74 61 73 6b  | num;.  if (task|
000007f0  5f 64 6f 6e 65 2d 3e 6e  75 6d 3d 3d 30 29 0a 20  |_done->num==0). |
00000800  20 7b 20 20 20 74 61 73  6b 5f 64 6f 6e 65 2d 3e  | {   task_done->|
00000810  6e 75 6d 3d 31 3b 20 73  63 6f 72 65 3d 73 63 6f  |num=1; score=sco|
00000820  72 65 2b 74 61 73 6b 5f  73 63 6f 72 65 73 2d 3e  |re+task_scores->|
00000830  6e 75 6d 3b 0a 20 20 7d  0a 5d 3b 0a 0a 5b 20 50  |num;.  }.];..[ P|
00000840  41 4e 75 6d 20 6d 20 6e  3b 0a 20 20 70 72 69 6e  |ANum m n;.  prin|
00000850  74 20 22 20 20 22 3b 0a  20 20 6e 3d 6d 3b 0a 20  |t "  ";.  n=m;. |
00000860  20 69 66 20 28 6e 3c 30  29 20 20 20 20 7b 20 6e  | if (n<0)    { n|
00000870  3d 2d 6d 3b 20 6e 3d 6e  2a 31 30 3b 20 7d 0a 20  |=-m; n=n*10; }. |
00000880  20 69 66 20 28 6e 3c 31  30 29 20 20 20 7b 20 70  | if (n<10)   { p|
00000890  72 69 6e 74 20 22 20 20  20 22 3b 20 6a 75 6d 70  |rint "   "; jump|
000008a0  20 70 61 6e 75 6d 6c 3b  20 7d 0a 20 20 69 66 20  | panuml; }.  if |
000008b0  28 6e 3c 31 30 30 29 20  20 7b 20 70 72 69 6e 74  |(n<100)  { print|
000008c0  20 22 20 20 22 3b 20 6a  75 6d 70 20 70 61 6e 75  | "  "; jump panu|
000008d0  6d 6c 3b 20 7d 0a 20 20  69 66 20 28 6e 3c 31 30  |ml; }.  if (n<10|
000008e0  30 30 29 20 7b 20 70 72  69 6e 74 20 22 20 22 3b  |00) { print " ";|
000008f0  20 7d 0a 2e 70 61 6e 75  6d 6c 3b 0a 20 20 70 72  | }..panuml;.  pr|
00000900  69 6e 74 20 6d 2c 20 22  20 22 3b 0a 5d 3b 0a 0a  |int m, " ";.];..|
00000910  5b 20 46 75 6c 6c 53 63  6f 72 65 53 75 62 20 69  |[ FullScoreSub i|
00000920  3b 0a 20 20 53 63 6f 72  65 53 75 62 28 29 3b 0a  |;.  ScoreSub();.|
00000930  20 20 69 66 20 28 73 63  6f 72 65 3d 3d 30 20 7c  |  if (score==0 ||
00000940  7c 20 54 41 53 4b 53 5f  50 52 4f 56 49 44 45 44  || TASKS_PROVIDED|
00000950  3d 3d 31 29 20 72 66 61  6c 73 65 3b 0a 20 20 6e  |==1) rfalse;.  n|
00000960  65 77 5f 6c 69 6e 65 3b  0a 20 20 69 66 20 28 64  |ew_line;.  if (d|
00000970  65 61 64 66 6c 61 67 3d  3d 30 29 20 70 72 69 6e  |eadflag==0) prin|
00000980  74 20 22 54 68 65 20 73  63 6f 72 65 20 69 73 20  |t "The score is |
00000990  22 3b 0a 20 20 65 6c 73  65 20 20 20 20 20 20 20  |";.  else       |
000009a0  20 20 20 20 20 20 70 72  69 6e 74 20 22 54 68 65  |      print "The|
000009b0  20 73 63 6f 72 65 20 77  61 73 20 22 3b 0a 20 20  | score was ";.  |
000009c0  70 72 69 6e 74 20 22 6d  61 64 65 20 75 70 20 61  |print "made up a|
000009d0  73 20 66 6f 6c 6c 6f 77  73 3a 5e 5e 22 3b 0a 0a  |s follows:^^";..|
000009e0  20 20 66 6f 72 20 28 69  3d 30 3a 69 3c 4e 55 4d  |  for (i=0:i<NUM|
000009f0  42 45 52 5f 54 41 53 4b  53 3a 69 2b 2b 29 0a 20  |BER_TASKS:i++). |
00000a00  20 20 20 20 20 69 66 20  28 74 61 73 6b 5f 64 6f  |     if (task_do|
00000a10  6e 65 2d 3e 69 3d 3d 31  29 0a 20 20 20 20 20 20  |ne->i==1).      |
00000a20  7b 20 20 20 50 41 4e 75  6d 28 74 61 73 6b 5f 73  |{   PANum(task_s|
00000a30  63 6f 72 65 73 2d 3e 69  29 3b 0a 20 20 20 20 20  |cores->i);.     |
00000a40  20 20 20 20 20 50 72 69  6e 74 54 61 73 6b 4e 61  |     PrintTaskNa|
00000a50  6d 65 28 69 29 3b 0a 20  20 20 20 20 20 7d 0a 20  |me(i);.      }. |
00000a60  20 0a 20 20 69 66 20 28  74 68 69 6e 67 73 5f 73  | .  if (things_s|
00000a70  63 6f 72 65 7e 3d 30 29  0a 20 20 7b 20 20 20 50  |core~=0).  {   P|
00000a80  41 4e 75 6d 28 74 68 69  6e 67 73 5f 73 63 6f 72  |ANum(things_scor|
00000a90  65 29 3b 0a 20 20 20 20  20 20 70 72 69 6e 74 20  |e);.      print |
00000aa0  22 66 69 6e 64 69 6e 67  20 73 75 6e 64 72 79 20  |"finding sundry |
00000ab0  69 74 65 6d 73 5e 22 3b  0a 20 20 7d 0a 20 20 69  |items^";.  }.  i|
00000ac0  66 20 28 70 6c 61 63 65  73 5f 73 63 6f 72 65 7e  |f (places_score~|
00000ad0  3d 30 29 0a 20 20 7b 20  20 20 50 41 4e 75 6d 28  |=0).  {   PANum(|
00000ae0  70 6c 61 63 65 73 5f 73  63 6f 72 65 29 3b 0a 20  |places_score);. |
00000af0  20 20 20 20 20 70 72 69  6e 74 20 22 76 69 73 69  |     print "visi|
00000b00  74 69 6e 67 20 76 61 72  69 6f 75 73 20 70 6c 61  |ting various pla|
00000b10  63 65 73 5e 22 3b 0a 20  20 7d 0a 20 20 6e 65 77  |ces^";.  }.  new|
00000b20  5f 6c 69 6e 65 3b 20 50  41 4e 75 6d 28 73 63 6f  |_line; PANum(sco|
00000b30  72 65 29 3b 20 70 72 69  6e 74 20 22 74 6f 74 61  |re); print "tota|
00000b40  6c 20 28 6f 75 74 20 6f  66 20 22 2c 20 4d 41 58  |l (out of ", MAX|
00000b50  5f 53 43 4f 52 45 2c 20  22 29 5e 22 3b 0a 5d 3b  |_SCORE, ")^";.];|
00000b60  0a 0a 5b 20 59 65 73 4f  72 4e 6f 20 69 3b 0a 20  |..[ YesOrNo i;. |
00000b70  20 66 6f 72 20 28 3a 3a  29 0a 20 20 7b 20 20 20  | for (::).  {   |
00000b80  72 65 61 64 20 62 75 66  66 65 72 20 70 61 72 73  |read buffer pars|
00000b90  65 3b 0a 20 20 20 20 20  20 69 3d 70 61 72 73 65  |e;.      i=parse|
00000ba0  2d 2d 3e 31 3b 0a 20 20  20 20 20 20 69 66 20 28  |-->1;.      if (|
00000bb0  69 3d 3d 27 79 65 73 27  20 6f 72 20 23 6e 24 79  |i=='yes' or #n$y|
00000bc0  29 20 72 74 72 75 65 3b  0a 20 20 20 20 20 20 69  |) rtrue;.      i|
00000bd0  66 20 28 69 3d 3d 27 6e  6f 27 20 6f 72 20 23 6e  |f (i=='no' or #n|
00000be0  24 6e 29 20 72 66 61 6c  73 65 3b 0a 20 20 20 20  |$n) rfalse;.    |
00000bf0  20 20 70 72 69 6e 74 20  22 50 6c 65 61 73 65 20  |  print "Please |
00000c00  61 6e 73 77 65 72 20 79  65 73 20 6f 72 20 6e 6f  |answer yes or no|
00000c10  2e 3e 20 22 3b 0a 20 20  7d 0a 5d 3b 0a 0a 5b 20  |.> ";.  }.];..[ |
00000c20  51 75 69 74 53 75 62 3b  0a 20 20 70 72 69 6e 74  |QuitSub;.  print|
00000c30  20 22 41 72 65 20 79 6f  75 20 73 75 72 65 20 79  | "Are you sure y|
00000c40  6f 75 20 77 61 6e 74 20  74 6f 20 71 75 69 74 3f  |ou want to quit?|
00000c50  20 22 3b 0a 20 20 69 66  20 28 59 65 73 4f 72 4e  | ";.  if (YesOrN|
00000c60  6f 28 29 7e 3d 30 29 20  71 75 69 74 3b 0a 5d 3b  |o()~=0) quit;.];|
00000c70  0a 0a 5b 20 52 65 73 74  61 72 74 53 75 62 3b 0a  |..[ RestartSub;.|
00000c80  20 20 70 72 69 6e 74 20  22 41 72 65 20 79 6f 75  |  print "Are you|
00000c90  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
00000ca0  6f 20 72 65 73 74 61 72  74 3f 20 22 3b 0a 20 20  |o restart? ";.  |
00000cb0  69 66 20 28 59 65 73 4f  72 4e 6f 28 29 7e 3d 30  |if (YesOrNo()~=0|
00000cc0  29 20 7b 20 72 65 73 74  61 72 74 3b 20 22 46 61  |) { restart; "Fa|
00000cd0  69 6c 65 64 2e 22 3b 20  7d 0a 5d 3b 0a 0a 5b 20  |iled."; }.];..[ |
00000ce0  52 65 73 74 6f 72 65 53  75 62 3b 0a 20 20 72 65  |RestoreSub;.  re|
00000cf0  73 74 6f 72 65 20 52 6d  61 79 62 65 3b 0a 20 20  |store Rmaybe;.  |
00000d00  22 52 65 73 74 6f 72 65  20 66 61 69 6c 65 64 2e  |"Restore failed.|
00000d10  22 3b 0a 20 20 2e 52 4d  61 79 62 65 3b 20 70 72  |";.  .RMaybe; pr|
00000d20  69 6e 74 20 22 4f 6b 2e  5e 22 3b 0a 5d 3b 0a 0a  |int "Ok.^";.];..|
00000d30  5b 20 53 61 76 65 53 75  62 3b 0a 20 20 73 61 76  |[ SaveSub;.  sav|
00000d40  65 20 53 6d 61 79 62 65  3b 0a 20 20 22 53 61 76  |e Smaybe;.  "Sav|
00000d50  65 20 66 61 69 6c 65 64  2e 22 3b 0a 20 20 2e 53  |e failed.";.  .S|
00000d60  6d 61 79 62 65 3b 20 70  72 69 6e 74 20 22 4f 6b  |maybe; print "Ok|
00000d70  2e 5e 22 3b 0a 5d 3b 0a  0a 5b 20 56 65 72 69 66  |.^";.];..[ Verif|
00000d80  79 53 75 62 3b 0a 20 20  76 65 72 69 66 79 20 56  |ySub;.  verify V|
00000d90  6d 61 79 62 65 3b 0a 20  20 6a 75 6d 70 20 56 77  |maybe;.  jump Vw|
00000da0  72 6f 6e 67 3b 0a 20 20  2e 56 6d 61 79 62 65 3b  |rong;.  .Vmaybe;|
00000db0  20 22 54 68 65 20 67 61  6d 65 20 66 69 6c 65 20  | "The game file |
00000dc0  68 61 73 20 76 65 72 69  66 69 65 64 20 61 73 20  |has verified as |
00000dd0  69 6e 74 61 63 74 2e 22  3b 0a 20 20 2e 56 77 72  |intact.";.  .Vwr|
00000de0  6f 6e 67 3b 0a 20 20 22  54 68 65 20 67 61 6d 65  |ong;.  "The game|
00000df0  20 66 69 6c 65 20 64 69  64 20 6e 6f 74 20 76 65  | file did not ve|
00000e00  72 69 66 79 20 70 72 6f  70 65 72 6c 79 2c 20 61  |rify properly, a|
00000e10  6e 64 20 6d 61 79 20 62  65 20 63 6f 72 72 75 70  |nd may be corrup|
00000e20  74 65 64 20 5c 0a 20 20  20 20 20 20 20 20 20 20  |ted \.          |
00000e30  20 20 20 28 75 6e 6c 65  73 73 20 79 6f 75 20 61  |   (unless you a|
00000e40  72 65 20 72 75 6e 6e 69  6e 67 20 69 74 20 6f 6e  |re running it on|
00000e50  20 61 20 70 72 69 6d 69  74 69 76 65 20 69 6e 74  | a primitive int|
00000e60  65 72 70 72 65 74 65 72  20 77 68 69 63 68 20 5c  |erpreter which \|
00000e70  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 64 6f  |.             do|
00000e80  65 73 20 6e 6f 74 20 70  72 6f 70 65 72 6c 79 20  |es not properly |
00000e90  69 6d 70 6c 65 6d 65 6e  74 20 74 68 65 20 56 45  |implement the VE|
00000ea0  52 49 46 59 20 63 6f 64  65 29 2e 22 3b 0a 5d 3b  |RIFY code).";.];|
00000eb0  0a 0a 5b 20 53 63 72 69  70 74 4f 6e 53 75 62 3b  |..[ ScriptOnSub;|
00000ec0  0a 20 20 69 66 20 28 74  72 61 6e 73 63 72 69 70  |.  if (transcrip|
00000ed0  74 5f 6d 6f 64 65 3d 3d  31 29 20 22 54 72 61 6e  |t_mode==1) "Tran|
00000ee0  73 63 72 69 70 74 69 6e  67 20 69 73 20 61 6c 72  |scripting is alr|
00000ef0  65 61 64 79 20 6f 6e 2e  22 3b 0a 20 20 74 72 61  |eady on.";.  tra|
00000f00  6e 73 63 72 69 70 74 5f  6d 6f 64 65 3d 31 3b 0a  |nscript_mode=1;.|
00000f10  20 20 30 2d 2d 3e 38 20  3d 20 28 30 2d 2d 3e 38  |  0-->8 = (0-->8|
00000f20  29 7c 31 3b 0a 20 20 70  72 69 6e 74 20 22 53 74  |)|1;.  print "St|
00000f30  61 72 74 20 6f 66 20 61  20 74 72 61 6e 73 63 72  |art of a transcr|
00000f40  69 70 74 20 6f 66 5e 22  3b 0a 20 20 42 61 6e 6e  |ipt of^";.  Bann|
00000f50  65 72 28 29 3b 0a 5d 3b  0a 0a 5b 20 53 63 72 69  |er();.];..[ Scri|
00000f60  70 74 4f 66 66 53 75 62  3b 0a 20 20 69 66 20 28  |ptOffSub;.  if (|
00000f70  74 72 61 6e 73 63 72 69  70 74 5f 6d 6f 64 65 3d  |transcript_mode=|
00000f80  3d 30 29 20 22 54 72 61  6e 73 63 72 69 70 74 69  |=0) "Transcripti|
00000f90  6e 67 20 69 73 20 61 6c  72 65 61 64 79 20 6f 66  |ng is already of|
00000fa0  66 2e 22 3b 0a 20 20 70  72 69 6e 74 20 22 5e 45  |f.";.  print "^E|
00000fb0  6e 64 20 6f 66 20 74 72  61 6e 73 63 72 69 70 74  |nd of transcript|
00000fc0  2e 5e 22 3b 0a 20 20 74  72 61 6e 73 63 72 69 70  |.^";.  transcrip|
00000fd0  74 5f 6d 6f 64 65 3d 30  3b 0a 20 20 30 2d 2d 3e  |t_mode=0;.  0-->|
00000fe0  38 20 3d 20 28 30 2d 2d  3e 38 29 26 24 66 66 66  |8 = (0-->8)&$fff|
00000ff0  65 3b 0a 5d 3b 0a 0a 5b  20 4d 6f 76 65 46 6c 6f  |e;.];..[ MoveFlo|
00001000  61 74 69 6e 67 4f 62 6a  65 63 74 73 20 70 6c 61  |atingObjects pla|
00001010  63 65 20 69 20 6b 20 6c  20 61 64 64 72 65 73 73  |ce i k l address|
00001020  20 74 6f 70 3b 0a 20 20  74 6f 70 3d 23 6c 61 72  | top;.  top=#lar|
00001030  67 65 73 74 5f 6f 62 6a  65 63 74 2d 32 35 36 3b  |gest_object-256;|
00001040  0a 20 20 66 6f 72 20 28  69 3d 31 3a 20 69 3c 3d  |.  for (i=1: i<=|
00001050  74 6f 70 3a 20 69 2b 2b  29 0a 20 20 7b 20 20 20  |top: i++).  {   |
00001060  61 64 64 72 65 73 73 3d  69 2e 26 66 6f 75 6e 64  |address=i.&found|
00001070  5f 69 6e 3b 0a 20 20 20  20 20 20 69 66 20 28 69  |_in;.      if (i|
00001080  20 68 61 73 6e 74 20 61  62 73 65 6e 74 20 26 26  | hasnt absent &&|
00001090  20 61 64 64 72 65 73 73  7e 3d 30 20 26 26 20 69  | address~=0 && i|
000010a0  2e 66 6f 75 6e 64 5f 69  6e 7e 3d 30 29 0a 20 20  |.found_in~=0).  |
000010b0  20 20 20 20 7b 20 20 20  6b 3d 69 2e 23 66 6f 75  |    {   k=i.#fou|
000010c0  6e 64 5f 69 6e 3b 0a 20  20 20 20 20 20 20 20 20  |nd_in;.         |
000010d0  20 23 49 46 56 33 3b 0a  20 20 20 20 20 20 20 20  | #IFV3;.        |
000010e0  20 20 66 6f 72 20 28 6c  3d 30 3a 20 6c 3c 6b 3a  |  for (l=0: l<k:|
000010f0  20 6c 2b 2b 29 0a 20 20  20 20 20 20 20 20 20 20  | l++).          |
00001100  20 20 20 20 69 66 20 28  70 6c 61 63 65 3d 3d 61  |    if (place==a|
00001110  64 64 72 65 73 73 2d 3e  6c 29 20 6d 6f 76 65 20  |ddress->l) move |
00001120  69 20 74 6f 20 70 6c 61  63 65 3b 0a 20 20 20 20  |i to place;.    |
00001130  20 20 20 20 20 20 23 45  4e 44 49 46 3b 0a 20 20  |      #ENDIF;.  |
00001140  20 20 20 20 20 20 20 20  23 49 46 56 35 3b 0a 20  |        #IFV5;. |
00001150  20 20 20 20 20 20 20 20  20 66 6f 72 20 28 6c 3d  |         for (l=|
00001160  30 3a 20 6c 3c 6b 2f 32  3a 20 6c 2b 2b 29 0a 20  |0: l<k/2: l++). |
00001170  20 20 20 20 20 20 20 20  20 20 20 20 20 69 66 20  |             if |
00001180  28 70 6c 61 63 65 3d 3d  61 64 64 72 65 73 73 2d  |(place==address-|
00001190  2d 3e 6c 29 20 6d 6f 76  65 20 69 20 74 6f 20 70  |->l) move i to p|
000011a0  6c 61 63 65 3b 0a 20 20  20 20 20 20 20 20 20 20  |lace;.          |
000011b0  23 45 4e 44 49 46 3b 0a  20 20 20 20 20 20 7d 0a  |#ENDIF;.      }.|
000011c0  20 20 7d 0a 5d 3b 0a 0a  5b 20 49 6e 76 53 75 62  |  }.];..[ InvSub|
000011d0  3b 0a 20 20 69 66 20 28  63 68 69 6c 64 28 70 6c  |;.  if (child(pl|
000011e0  61 79 65 72 29 3d 3d 30  29 20 22 59 6f 75 20 61  |ayer)==0) "You a|
000011f0  72 65 20 63 61 72 72 79  69 6e 67 20 6e 6f 74 68  |re carrying noth|
00001200  69 6e 67 2e 22 3b 0a 20  20 70 72 69 6e 74 20 22  |ing.";.  print "|
00001210  59 6f 75 20 61 72 65 20  63 61 72 72 79 69 6e 67  |You are carrying|
00001220  3a 5e 22 3b 0a 20 20 49  6e 76 65 6e 74 6f 72 79  |:^";.  Inventory|
00001230  28 70 6c 61 79 65 72 29  3b 0a 20 20 41 66 74 65  |(player);.  Afte|
00001240  72 52 6f 75 74 69 6e 65  73 28 29 3b 0a 5d 3b 0a  |rRoutines();.];.|
00001250  0a 5b 20 49 6e 76 65 6e  74 6f 72 79 20 6f 62 6a  |.[ Inventory obj|
00001260  20 6e 20 6f 32 3b 0a 20  20 6f 32 3d 31 3b 0a 20  | n o2;.  o2=1;. |
00001270  20 69 66 20 28 6e 7e 3d  30 29 0a 20 20 7b 20 20  | if (n~=0).  {  |
00001280  20 73 70 61 63 65 73 20  32 2a 6e 3b 0a 20 20 20  | spaces 2*n;.   |
00001290  20 20 20 6f 32 3d 44 65  73 63 72 69 62 65 4f 62  |   o2=DescribeOb|
000012a0  6a 28 6f 62 6a 2c 30 29  3b 20 6e 65 77 5f 6c 69  |j(obj,0); new_li|
000012b0  6e 65 3b 0a 20 20 7d 0a  20 20 69 66 20 28 6f 32  |ne;.  }.  if (o2|
000012c0  3d 3d 30 29 20 72 74 72  75 65 3b 0a 0a 20 20 6f  |==0) rtrue;..  o|
000012d0  62 6a 65 63 74 6c 6f 6f  70 28 6f 32 20 69 6e 20  |bjectloop(o2 in |
000012e0  6f 62 6a 29 20 49 6e 76  65 6e 74 6f 72 79 28 6f  |obj) Inventory(o|
000012f0  32 2c 6e 2b 31 29 3b 0a  5d 3b 0a 0a 5b 20 54 61  |2,n+1);.];..[ Ta|
00001300  6b 65 53 75 62 3b 0a 20  20 69 66 20 28 52 54 61  |keSub;.  if (RTa|
00001310  6b 65 53 75 62 28 6c 6f  63 61 74 69 6f 6e 29 7e  |keSub(location)~|
00001320  3d 30 29 20 72 74 72 75  65 3b 0a 20 20 69 66 20  |=0) rtrue;.  if |
00001330  28 41 66 74 65 72 52 6f  75 74 69 6e 65 73 28 29  |(AfterRoutines()|
00001340  3d 3d 31 29 20 72 74 72  75 65 3b 0a 20 20 6e 6f  |==1) rtrue;.  no|
00001350  74 68 65 6c 64 5f 6d 6f  64 65 3d 6f 6e 6f 74 68  |theld_mode=onoth|
00001360  65 6c 64 5f 6d 6f 64 65  3b 0a 20 20 69 66 20 28  |eld_mode;.  if (|
00001370  6e 6f 74 68 65 6c 64 5f  6d 6f 64 65 3d 3d 30 29  |notheld_mode==0)|
00001380  20 70 72 69 6e 74 20 22  54 61 6b 65 6e 2e 5e 22  | print "Taken.^"|
00001390  3b 0a 5d 3b 0a 0a 5b 20  52 54 61 6b 65 53 75 62  |;.];..[ RTakeSub|
000013a0  20 66 72 6f 6d 6f 62 6a  20 69 20 6a 20 6b 20 70  | fromobj i j k p|
000013b0  6f 73 74 6f 6e 6f 62 6a  3b 0a 20 20 69 66 20 28  |ostonobj;.  if (|
000013c0  6e 6f 75 6e 3d 3d 70 6c  61 79 65 72 29 20 22 41  |noun==player) "A|
000013d0  73 20 74 68 65 20 62 69  73 68 6f 70 20 73 61 69  |s the bishop sai|
000013e0  64 20 74 6f 20 74 68 65  20 61 63 74 72 65 73 73  |d to the actress|
000013f0  2e 22 3b 0a 0a 20 20 69  66 20 28 6e 6f 75 6e 20  |.";..  if (noun |
00001400  68 61 73 20 61 6e 69 6d  61 74 65 29 0a 20 20 7b  |has animate).  {|
00001410  20 20 20 70 72 69 6e 74  20 22 49 20 64 6f 6e 27  |   print "I don'|
00001420  74 20 73 75 70 70 6f 73  65 20 22 3b 20 44 65 66  |t suppose "; Def|
00001430  41 72 74 28 6e 6f 75 6e  29 3b 0a 20 20 20 20 20  |Art(noun);.     |
00001440  20 22 20 77 6f 75 6c 64  20 63 61 72 65 20 66 6f  | " would care fo|
00001450  72 20 74 68 61 74 2e 22  3b 0a 20 20 7d 0a 0a 20  |r that.";.  }.. |
00001460  20 69 3d 70 61 72 65 6e  74 28 6e 6f 75 6e 29 3b  | i=parent(noun);|
00001470  0a 20 20 69 66 20 28 69  3d 3d 70 6c 61 79 65 72  |.  if (i==player|
00001480  29 20 22 59 6f 75 20 61  6c 72 65 61 64 79 20 68  |) "You already h|
00001490  61 76 65 20 74 68 61 74  2e 22 3b 0a 0a 20 20 69  |ave that.";..  i|
000014a0  66 20 28 69 20 68 61 73  20 63 6f 6e 74 61 69 6e  |f (i has contain|
000014b0  65 72 20 7c 7c 20 69 20  68 61 73 20 73 75 70 70  |er || i has supp|
000014c0  6f 72 74 65 72 29 0a 20  20 7b 20 20 20 70 6f 73  |orter).  {   pos|
000014d0  74 6f 6e 6f 62 6a 3d 69  3b 0a 20 20 20 20 20 20  |tonobj=i;.      |
000014e0  6b 3d 61 63 74 69 6f 6e  3b 20 61 63 74 69 6f 6e  |k=action; action|
000014f0  3d 23 23 4c 65 74 47 6f  3b 0a 20 20 20 20 20 20  |=##LetGo;.      |
00001500  69 66 20 28 52 75 6e 52  6f 75 74 69 6e 65 73 28  |if (RunRoutines(|
00001510  69 2c 62 65 66 6f 72 65  29 7e 3d 30 29 20 7b 20  |i,before)~=0) { |
00001520  61 63 74 69 6f 6e 3d 6b  3b 20 72 74 72 75 65 3b  |action=k; rtrue;|
00001530  20 7d 0a 20 20 20 20 20  20 61 63 74 69 6f 6e 3d  | }.      action=|
00001540  6b 3b 0a 20 20 7d 0a 0a  20 20 77 68 69 6c 65 20  |k;.  }..  while |
00001550  28 69 7e 3d 66 72 6f 6d  6f 62 6a 29 0a 20 20 7b  |(i~=fromobj).  {|
00001560  20 20 20 69 66 20 28 69  20 68 61 73 6e 74 20 63  |   if (i hasnt c|
00001570  6f 6e 74 61 69 6e 65 72  20 26 26 20 69 20 68 61  |ontainer && i ha|
00001580  73 6e 74 20 73 75 70 70  6f 72 74 65 72 29 0a 20  |snt supporter). |
00001590  20 20 20 20 20 20 20 20  20 22 54 68 61 74 20 69  |         "That i|
000015a0  73 6e 27 74 20 61 76 61  69 6c 61 62 6c 65 2e 22  |sn't available."|
000015b0  3b 0a 20 20 20 20 20 20  69 66 20 28 69 20 68 61  |;.      if (i ha|
000015c0  73 20 63 6f 6e 74 61 69  6e 65 72 20 26 26 20 69  |s container && i|
000015d0  20 68 61 73 6e 74 20 6f  70 65 6e 29 0a 20 20 20  | hasnt open).   |
000015e0  20 20 20 7b 20 20 20 70  72 69 6e 74 20 22 55 6e  |   {   print "Un|
000015f0  66 6f 72 74 75 6e 61 74  65 6c 79 20 22 3b 20 44  |fortunately "; D|
00001600  65 66 41 72 74 28 69 29  3b 20 22 20 69 73 6e 27  |efArt(i); " isn'|
00001610  74 20 6f 70 65 6e 2e 22  3b 20 7d 0a 20 20 20 20  |t open."; }.    |
00001620  20 20 69 3d 70 61 72 65  6e 74 28 69 29 3b 0a 20  |  i=parent(i);. |
00001630  20 20 20 20 20 69 66 20  28 69 3d 3d 70 6c 61 79  |     if (i==play|
00001640  65 72 29 20 69 3d 66 72  6f 6d 6f 62 6a 3b 0a 20  |er) i=fromobj;. |
00001650  20 7d 0a 20 20 69 66 20  28 6e 6f 75 6e 20 68 61  | }.  if (noun ha|
00001660  73 20 73 63 65 6e 65 72  79 29 20 20 22 54 68 61  |s scenery)  "Tha|
00001670  74 27 73 20 68 61 72 64  6c 79 20 70 6f 72 74 61  |t's hardly porta|
00001680  62 6c 65 2e 22 3b 0a 20  20 69 66 20 28 6e 6f 75  |ble.";.  if (nou|
00001690  6e 20 68 61 73 20 73 74  61 74 69 63 29 20 20 20  |n has static)   |
000016a0  22 46 69 78 65 64 20 69  6e 20 70 6c 61 63 65 2e  |"Fixed in place.|
000016b0  22 3b 0a 0a 20 20 6b 3d  30 3b 20 6f 62 6a 65 63  |";..  k=0; objec|
000016c0  74 6c 6f 6f 70 20 28 6a  20 69 6e 20 70 6c 61 79  |tloop (j in play|
000016d0  65 72 29 20 69 66 20 28  6a 20 68 61 73 6e 74 20  |er) if (j hasnt |
000016e0  77 6f 72 6e 29 20 6b 2b  2b 3b 0a 0a 20 20 69 66  |worn) k++;..  if|
000016f0  20 28 6b 20 3e 3d 20 4d  41 58 5f 43 41 52 52 49  | (k >= MAX_CARRI|
00001700  45 44 29 0a 20 20 7b 20  20 20 69 66 20 28 53 41  |ED).  {   if (SA|
00001710  43 4b 5f 4f 42 4a 45 43  54 7e 3d 30 29 0a 20 20  |CK_OBJECT~=0).  |
00001720  20 20 20 20 7b 20 20 20  69 66 20 28 70 61 72 65  |    {   if (pare|
00001730  6e 74 28 53 41 43 4b 5f  4f 42 4a 45 43 54 29 7e  |nt(SACK_OBJECT)~|
00001740  3d 70 6c 61 79 65 72 29  0a 20 20 20 20 20 20 20  |=player).       |
00001750  20 20 20 20 20 20 20 22  59 6f 75 27 72 65 20 63  |       "You're c|
00001760  61 72 72 79 69 6e 67 20  74 6f 6f 20 6d 61 6e 79  |arrying too many|
00001770  20 74 68 69 6e 67 73 20  61 6c 72 65 61 64 79 2e  | things already.|
00001780  22 3b 0a 20 20 20 20 20  20 20 20 20 20 6a 3d 30  |";.          j=0|
00001790  3b 0a 20 20 20 20 20 20  20 20 20 20 6f 62 6a 65  |;.          obje|
000017a0  63 74 6c 6f 6f 70 20 28  6b 20 69 6e 20 70 6c 61  |ctloop (k in pla|
000017b0  79 65 72 29 20 0a 20 20  20 20 20 20 20 20 20 20  |yer) .          |
000017c0  20 20 20 20 69 66 20 28  6b 7e 3d 53 41 43 4b 5f  |    if (k~=SACK_|
000017d0  4f 42 4a 45 43 54 20 26  26 20 6b 20 68 61 73 6e  |OBJECT && k hasn|
000017e0  74 20 77 6f 72 6e 20 26  26 20 6b 20 68 61 73 6e  |t worn && k hasn|
000017f0  74 20 6c 69 67 68 74 29  20 6a 3d 6b 3b 0a 0a 20  |t light) j=k;.. |
00001800  20 20 20 20 20 20 20 20  20 69 66 20 28 6a 7e 3d  |         if (j~=|
00001810  30 29 0a 20 20 20 20 20  20 20 20 20 20 7b 20 20  |0).          {  |
00001820  20 70 72 69 6e 74 20 22  28 70 75 74 74 69 6e 67  | print "(putting|
00001830  20 22 3b 20 44 65 66 41  72 74 28 6a 29 3b 20 70  | "; DefArt(j); p|
00001840  72 69 6e 74 20 22 20 69  6e 74 6f 20 22 3b 0a 20  |rint " into ";. |
00001850  20 20 20 20 20 20 20 20  20 20 20 20 20 44 65 66  |             Def|
00001860  41 72 74 28 53 41 43 4b  5f 4f 42 4a 45 43 54 29  |Art(SACK_OBJECT)|
00001870  3b 20 70 72 69 6e 74 20  22 20 74 6f 20 6d 61 6b  |; print " to mak|
00001880  65 20 72 6f 6f 6d 29 5e  22 3b 0a 20 20 20 20 20  |e room)^";.     |
00001890  20 20 20 20 20 20 20 20  20 6d 6f 76 65 20 6a 20  |         move j |
000018a0  74 6f 20 53 41 43 4b 5f  4f 42 4a 45 43 54 3b 0a  |to SACK_OBJECT;.|
000018b0  20 20 20 20 20 20 20 20  20 20 7d 0a 20 20 20 20  |          }.    |
000018c0  20 20 20 20 20 20 65 6c  73 65 20 22 59 6f 75 27  |      else "You'|
000018d0  72 65 20 63 61 72 72 79  69 6e 67 20 74 6f 6f 20  |re carrying too |
000018e0  6d 61 6e 79 20 74 68 69  6e 67 73 20 61 6c 72 65  |many things alre|
000018f0  61 64 79 2e 22 3b 0a 20  20 20 20 20 20 7d 0a 20  |ady.";.      }. |
00001900  20 20 20 20 20 65 6c 73  65 20 22 59 6f 75 27 72  |     else "You'r|
00001910  65 20 63 61 72 72 79 69  6e 67 20 74 6f 6f 20 6d  |e carrying too m|
00001920  61 6e 79 20 74 68 69 6e  67 73 20 61 6c 72 65 61  |any things alrea|
00001930  64 79 2e 22 3b 0a 20 20  7d 0a 20 20 6d 6f 76 65  |dy.";.  }.  move|
00001940  20 6e 6f 75 6e 20 74 6f  20 70 6c 61 79 65 72 3b  | noun to player;|
00001950  0a 20 20 69 66 20 28 6e  6f 75 6e 20 68 61 73 6e  |.  if (noun hasn|
00001960  74 20 6d 6f 76 65 64 29  0a 20 20 7b 20 20 20 67  |t moved).  {   g|
00001970  69 76 65 20 6e 6f 75 6e  20 6d 6f 76 65 64 3b 0a  |ive noun moved;.|
00001980  20 20 20 20 20 20 69 66  20 28 6e 6f 75 6e 20 68  |      if (noun h|
00001990  61 73 20 73 63 6f 72 65  64 29 0a 20 20 20 20 20  |as scored).     |
000019a0  20 7b 20 20 20 73 63 6f  72 65 3d 73 63 6f 72 65  | {   score=score|
000019b0  2b 4f 42 4a 45 43 54 5f  53 43 4f 52 45 3b 0a 20  |+OBJECT_SCORE;. |
000019c0  20 20 20 20 20 20 20 20  20 74 68 69 6e 67 73 5f  |         things_|
000019d0  73 63 6f 72 65 3d 74 68  69 6e 67 73 5f 73 63 6f  |score=things_sco|
000019e0  72 65 2b 4f 42 4a 45 43  54 5f 53 43 4f 52 45 3b  |re+OBJECT_SCORE;|
000019f0  0a 20 20 20 20 20 20 7d  0a 20 20 7d 0a 0a 20 20  |.      }.  }..  |
00001a00  69 66 20 28 70 6f 73 74  6f 6e 6f 62 6a 7e 3d 30  |if (postonobj~=0|
00001a10  29 0a 20 20 7b 20 20 20  6b 3d 61 63 74 69 6f 6e  |).  {   k=action|
00001a20  3b 20 61 63 74 69 6f 6e  3d 23 23 4c 65 74 47 6f  |; action=##LetGo|
00001a30  3b 0a 20 20 20 20 20 20  69 66 20 28 52 75 6e 52  |;.      if (RunR|
00001a40  6f 75 74 69 6e 65 73 28  70 6f 73 74 6f 6e 6f 62  |outines(postonob|
00001a50  6a 2c 61 66 74 65 72 29  7e 3d 30 29 20 7b 20 61  |j,after)~=0) { a|
00001a60  63 74 69 6f 6e 3d 6b 3b  20 72 74 72 75 65 3b 20  |ction=k; rtrue; |
00001a70  7d 0a 20 20 20 20 20 20  61 63 74 69 6f 6e 3d 6b  |}.      action=k|
00001a80  3b 0a 20 20 7d 0a 20 20  72 66 61 6c 73 65 3b 0a  |;.  }.  rfalse;.|
00001a90  5d 3b 0a 0a 5b 20 44 72  6f 70 53 75 62 20 69 3b  |];..[ DropSub i;|
00001aa0  0a 20 20 69 3d 70 61 72  65 6e 74 28 6e 6f 75 6e  |.  i=parent(noun|
00001ab0  29 3b 0a 20 20 69 66 20  28 69 3d 3d 6c 6f 63 61  |);.  if (i==loca|
00001ac0  74 69 6f 6e 29 0a 20 20  20 20 20 20 22 41 6c 72  |tion).      "Alr|
00001ad0  65 61 64 79 20 6f 6e 20  74 68 65 20 66 6c 6f 6f  |eady on the floo|
00001ae0  72 2e 22 3b 0a 20 20 69  66 20 28 69 7e 3d 70 6c  |r.";.  if (i~=pl|
00001af0  61 79 65 72 29 0a 20 20  20 20 20 20 22 59 6f 75  |ayer).      "You|
00001b00  20 68 61 76 65 6e 27 74  20 67 6f 74 20 74 68 61  | haven't got tha|
00001b10  74 2e 22 3b 0a 20 20 69  66 20 28 6e 6f 75 6e 20  |t.";.  if (noun |
00001b20  68 61 73 20 77 6f 72 6e  29 0a 20 20 7b 20 20 20  |has worn).  {   |
00001b30  70 72 69 6e 74 20 22 28  46 69 72 73 74 20 74 61  |print "(First ta|
00001b40  6b 69 6e 67 20 22 3b 20  44 65 66 41 72 74 28 6e  |king "; DefArt(n|
00001b50  6f 75 6e 29 3b 20 70 72  69 6e 74 20 22 20 6f 66  |oun); print " of|
00001b60  66 29 5e 22 3b 20 67 69  76 65 20 6e 6f 75 6e 20  |f)^"; give noun |
00001b70  7e 77 6f 72 6e 3b 20 7d  0a 0a 20 20 6d 6f 76 65  |~worn; }..  move|
00001b80  20 6e 6f 75 6e 20 74 6f  20 70 61 72 65 6e 74 28  | noun to parent(|
00001b90  70 6c 61 79 65 72 29 3b  0a 20 20 69 66 20 28 41  |player);.  if (A|
00001ba0  66 74 65 72 52 6f 75 74  69 6e 65 73 28 29 3d 3d  |fterRoutines()==|
00001bb0  31 29 20 72 74 72 75 65  3b 0a 20 20 70 72 69 6e  |1) rtrue;.  prin|
00001bc0  74 20 22 44 72 6f 70 70  65 64 2e 5e 22 3b 0a 5d  |t "Dropped.^";.]|
00001bd0  3b 0a 0a 5b 20 52 65 6d  6f 76 65 53 75 62 20 69  |;..[ RemoveSub i|
00001be0  3b 0a 0a 20 20 69 3d 70  61 72 65 6e 74 28 6e 6f  |;..  i=parent(no|
00001bf0  75 6e 29 3b 0a 20 20 69  66 20 28 69 20 68 61 73  |un);.  if (i has|
00001c00  20 63 6f 6e 74 61 69 6e  65 72 20 26 26 20 69 20  | container && i |
00001c10  68 61 73 6e 74 20 6f 70  65 6e 29 20 22 41 6c 61  |hasnt open) "Ala|
00001c20  73 2c 20 69 74 20 69 73  20 63 6c 6f 73 65 64 2e  |s, it is closed.|
00001c30  22 3b 0a 20 20 69 66 20  28 69 7e 3d 73 65 63 6f  |";.  if (i~=seco|
00001c40  6e 64 29 20 22 42 75 74  20 69 74 20 69 73 6e 27  |nd) "But it isn'|
00001c50  74 20 74 68 65 72 65 20  6e 6f 77 2e 22 3b 0a 20  |t there now.";. |
00001c60  20 69 66 20 28 73 65 63  6f 6e 64 20 68 61 73 20  | if (second has |
00001c70  77 6f 72 6e 29 20 22 59  6f 75 27 6c 6c 20 6e 65  |worn) "You'll ne|
00001c80  65 64 20 74 6f 20 74 61  6b 65 20 69 74 20 6f 66  |ed to take it of|
00001c90  66 20 66 69 72 73 74 2e  22 3b 0a 20 20 69 66 20  |f first.";.  if |
00001ca0  28 52 54 61 6b 65 53 75  62 28 73 65 63 6f 6e 64  |(RTakeSub(second|
00001cb0  29 7e 3d 30 29 20 72 74  72 75 65 3b 0a 20 20 61  |)~=0) rtrue;.  a|
00001cc0  63 74 69 6f 6e 3d 23 23  54 61 6b 65 3b 20 20 20  |ction=##Take;   |
00001cd0  69 66 20 28 41 66 74 65  72 52 6f 75 74 69 6e 65  |if (AfterRoutine|
00001ce0  73 28 29 3d 3d 31 29 20  72 74 72 75 65 3b 0a 20  |s()==1) rtrue;. |
00001cf0  20 61 63 74 69 6f 6e 3d  23 23 52 65 6d 6f 76 65  | action=##Remove|
00001d00  3b 20 69 66 20 28 41 66  74 65 72 52 6f 75 74 69  |; if (AfterRouti|
00001d10  6e 65 73 28 29 3d 3d 31  29 20 72 74 72 75 65 3b  |nes()==1) rtrue;|
00001d20  0a 0a 20 20 70 72 69 6e  74 20 22 52 65 6d 6f 76  |..  print "Remov|
00001d30  65 64 2e 5e 22 3b 0a 5d  3b 0a 0a 5b 20 50 75 74  |ed.^";.];..[ Put|
00001d40  4f 6e 53 75 62 3b 0a 20  20 69 66 20 28 73 65 63  |OnSub;.  if (sec|
00001d50  6f 6e 64 3d 3d 64 5f 6f  62 6a 29 20 7b 20 3c 44  |ond==d_obj) { <D|
00001d60  72 6f 70 20 6e 6f 75 6e  3e 3b 20 72 66 61 6c 73  |rop noun>; rfals|
00001d70  65 3b 20 7d 0a 20 20 69  66 20 28 70 61 72 65 6e  |e; }.  if (paren|
00001d80  74 28 6e 6f 75 6e 29 7e  3d 70 6c 61 79 65 72 29  |t(noun)~=player)|
00001d90  0a 20 20 20 20 20 20 22  59 6f 75 20 6e 65 65 64  |.      "You need|
00001da0  20 74 6f 20 62 65 20 68  6f 6c 64 69 6e 67 20 69  | to be holding i|
00001db0  74 20 62 65 66 6f 72 65  20 79 6f 75 20 63 61 6e  |t before you can|
00001dc0  20 70 75 74 20 69 74 20  6f 6e 74 6f 20 5c 0a 20  | put it onto \. |
00001dd0  20 20 20 20 20 20 20 20  20 73 6f 6d 65 74 68 69  |         somethi|
00001de0  6e 67 20 65 6c 73 65 2e  22 3b 0a 0a 20 20 69 66  |ng else.";..  if|
00001df0  20 28 73 65 63 6f 6e 64  3e 31 29 0a 20 20 7b 20  | (second>1).  { |
00001e00  20 20 61 63 74 69 6f 6e  3d 23 23 52 65 63 65 69  |  action=##Recei|
00001e10  76 65 3b 0a 20 20 20 20  20 20 69 66 20 28 52 75  |ve;.      if (Ru|
00001e20  6e 52 6f 75 74 69 6e 65  73 28 73 65 63 6f 6e 64  |nRoutines(second|
00001e30  2c 62 65 66 6f 72 65 29  7e 3d 30 29 20 7b 20 61  |,before)~=0) { a|
00001e40  63 74 69 6f 6e 3d 23 23  50 75 74 4f 6e 3b 20 72  |ction=##PutOn; r|
00001e50  74 72 75 65 3b 20 7d 0a  20 20 20 20 20 20 61 63  |true; }.      ac|
00001e60  74 69 6f 6e 3d 23 23 50  75 74 4f 6e 3b 0a 20 20  |tion=##PutOn;.  |
00001e70  7d 0a 0a 20 20 69 66 20  28 73 65 63 6f 6e 64 3d  |}..  if (second=|
00001e80  3d 6e 6f 75 6e 29 20 22  59 6f 75 20 63 61 6e 27  |=noun) "You can'|
00001e90  74 20 70 75 74 20 73 6f  6d 65 74 68 69 6e 67 20  |t put something |
00001ea0  6f 6e 20 74 6f 70 20 6f  66 20 69 74 73 65 6c 66  |on top of itself|
00001eb0  2e 22 3b 0a 20 20 69 66  20 28 73 65 63 6f 6e 64  |.";.  if (second|
00001ec0  20 68 61 73 6e 74 20 73  75 70 70 6f 72 74 65 72  | hasnt supporter|
00001ed0  29 0a 20 20 7b 20 20 20  70 72 69 6e 74 20 22 50  |).  {   print "P|
00001ee0  75 74 74 69 6e 67 20 74  68 69 6e 67 73 20 6f 6e  |utting things on|
00001ef0  20 22 3b 20 44 65 66 41  72 74 28 73 65 63 6f 6e  | "; DefArt(secon|
00001f00  64 29 3b 0a 20 20 20 20  20 20 22 20 77 6f 75 6c  |d);.      " woul|
00001f10  64 20 61 63 68 69 65 76  65 20 6e 6f 74 68 69 6e  |d achieve nothin|
00001f20  67 2e 22 3b 0a 20 20 7d  0a 20 20 69 66 20 28 70  |g.";.  }.  if (p|
00001f30  61 72 65 6e 74 28 73 65  63 6f 6e 64 29 3d 3d 70  |arent(second)==p|
00001f40  6c 61 79 65 72 29 20 22  59 6f 75 20 6c 61 63 6b  |layer) "You lack|
00001f50  20 74 68 65 20 64 65 78  74 65 72 69 74 79 2e 22  | the dexterity."|
00001f60  3b 0a 20 20 69 66 20 28  6e 6f 75 6e 20 68 61 73  |;.  if (noun has|
00001f70  20 77 6f 72 6e 29 0a 20  20 7b 20 20 20 70 72 69  | worn).  {   pri|
00001f80  6e 74 20 22 28 66 69 72  73 74 20 74 61 6b 69 6e  |nt "(first takin|
00001f90  67 20 69 74 20 6f 66 66  29 5e 22 3b 20 67 69 76  |g it off)^"; giv|
00001fa0  65 20 6e 6f 75 6e 20 7e  77 6f 72 6e 3b 20 7d 0a  |e noun ~worn; }.|
00001fb0  20 20 69 66 20 28 63 68  69 6c 64 72 65 6e 28 73  |  if (children(s|
00001fc0  65 63 6f 6e 64 29 3e 3d  70 72 6f 70 28 73 65 63  |econd)>=prop(sec|
00001fd0  6f 6e 64 2c 63 61 70 61  63 69 74 79 29 29 0a 20  |ond,capacity)). |
00001fe0  20 7b 20 20 20 70 72 69  6e 74 20 22 54 68 65 72  | {   print "Ther|
00001ff0  65 20 69 73 20 6e 6f 20  6d 6f 72 65 20 72 6f 6f  |e is no more roo|
00002000  6d 20 6f 6e 20 22 3b 20  44 65 66 41 72 74 28 73  |m on "; DefArt(s|
00002010  65 63 6f 6e 64 29 3b 20  22 2e 22 3b 0a 20 20 7d  |econd); ".";.  }|
00002020  0a 20 20 6d 6f 76 65 20  6e 6f 75 6e 20 74 6f 20  |.  move noun to |
00002030  73 65 63 6f 6e 64 3b 0a  0a 20 20 69 66 20 28 41  |second;..  if (A|
00002040  66 74 65 72 52 6f 75 74  69 6e 65 73 28 29 3d 3d  |fterRoutines()==|
00002050  31 29 20 72 74 72 75 65  3b 0a 0a 20 20 69 66 20  |1) rtrue;..  if |
00002060  28 73 65 63 6f 6e 64 3e  31 29 0a 20 20 7b 20 20  |(second>1).  {  |
00002070  20 61 63 74 69 6f 6e 3d  23 23 52 65 63 65 69 76  | action=##Receiv|
00002080  65 3b 0a 20 20 20 20 20  20 69 66 20 28 52 75 6e  |e;.      if (Run|
00002090  52 6f 75 74 69 6e 65 73  28 73 65 63 6f 6e 64 2c  |Routines(second,|
000020a0  61 66 74 65 72 29 7e 3d  30 29 20 7b 20 61 63 74  |after)~=0) { act|
000020b0  69 6f 6e 3d 23 23 50 75  74 4f 6e 3b 20 72 74 72  |ion=##PutOn; rtr|
000020c0  75 65 3b 20 7d 0a 20 20  20 20 20 20 61 63 74 69  |ue; }.      acti|
000020d0  6f 6e 3d 23 23 50 75 74  4f 6e 3b 0a 20 20 7d 0a  |on=##PutOn;.  }.|
000020e0  0a 20 20 69 66 20 28 6d  75 6c 74 69 66 6c 61 67  |.  if (multiflag|
000020f0  3d 3d 31 29 20 22 44 6f  6e 65 2e 22 3b 0a 20 20  |==1) "Done.";.  |
00002100  70 72 69 6e 74 20 22 59  6f 75 20 70 75 74 20 74  |print "You put t|
00002110  68 65 20 22 3b 20 70 72  69 6e 74 5f 6f 62 6a 20  |he "; print_obj |
00002120  6e 6f 75 6e 3b 20 70 72  69 6e 74 20 22 20 6f 6e  |noun; print " on|
00002130  20 22 3b 20 44 65 66 41  72 74 28 73 65 63 6f 6e  | "; DefArt(secon|
00002140  64 29 3b 0a 20 20 22 2e  22 3b 0a 5d 3b 0a 0a 5b  |d);.  ".";.];..[|
00002150  20 49 6e 73 65 72 74 53  75 62 3b 0a 20 20 69 66  | InsertSub;.  if|
00002160  20 28 73 65 63 6f 6e 64  3d 3d 64 5f 6f 62 6a 20  | (second==d_obj |
00002170  29 20 3c 3c 44 72 6f 70  20 6e 6f 75 6e 3e 3e 3b  |) <<Drop noun>>;|
00002180  0a 20 20 69 66 20 28 70  61 72 65 6e 74 28 6e 6f  |.  if (parent(no|
00002190  75 6e 29 7e 3d 70 6c 61  79 65 72 29 0a 20 20 20  |un)~=player).   |
000021a0  20 20 22 59 6f 75 20 6e  65 65 64 20 74 6f 20 62  |  "You need to b|
000021b0  65 20 68 6f 6c 64 69 6e  67 20 69 74 20 62 65 66  |e holding it bef|
000021c0  6f 72 65 20 79 6f 75 20  63 61 6e 20 70 75 74 20  |ore you can put |
000021d0  69 74 20 69 6e 74 6f 20  5c 0a 20 20 20 20 20 20  |it into \.      |
000021e0  20 20 20 20 73 6f 6d 65  74 68 69 6e 67 20 65 6c  |    something el|
000021f0  73 65 2e 22 3b 0a 0a 20  20 69 66 20 28 73 65 63  |se.";..  if (sec|
00002200  6f 6e 64 3e 31 29 0a 20  20 7b 20 20 20 61 63 74  |ond>1).  {   act|
00002210  69 6f 6e 3d 23 23 52 65  63 65 69 76 65 3b 0a 20  |ion=##Receive;. |
00002220  20 20 20 20 20 69 66 20  28 52 75 6e 52 6f 75 74  |     if (RunRout|
00002230  69 6e 65 73 28 73 65 63  6f 6e 64 2c 62 65 66 6f  |ines(second,befo|
00002240  72 65 29 7e 3d 30 29 20  7b 20 61 63 74 69 6f 6e  |re)~=0) { action|
00002250  3d 23 23 49 6e 73 65 72  74 3b 20 72 74 72 75 65  |=##Insert; rtrue|
00002260  3b 20 7d 0a 20 20 20 20  20 20 61 63 74 69 6f 6e  |; }.      action|
00002270  3d 23 23 49 6e 73 65 72  74 3b 0a 20 20 7d 0a 0a  |=##Insert;.  }..|
00002280  20 20 69 66 20 28 73 65  63 6f 6e 64 20 68 61 73  |  if (second has|
00002290  6e 74 20 63 6f 6e 74 61  69 6e 65 72 29 20 22 54  |nt container) "T|
000022a0  68 61 74 20 63 61 6e 27  74 20 63 6f 6e 74 61 69  |hat can't contai|
000022b0  6e 20 74 68 69 6e 67 73  2e 22 3b 0a 20 20 69 66  |n things.";.  if|
000022c0  20 28 73 65 63 6f 6e 64  20 68 61 73 6e 74 20 6f  | (second hasnt o|
000022d0  70 65 6e 29 20 20 20 20  20 20 22 41 6c 61 73 2c  |pen)      "Alas,|
000022e0  20 69 74 20 69 73 20 63  6c 6f 73 65 64 2e 22 3b  | it is closed.";|
000022f0  0a 20 20 69 66 20 28 73  65 63 6f 6e 64 20 68 61  |.  if (second ha|
00002300  73 20 77 6f 72 6e 29 20  20 20 20 20 20 20 20 22  |s worn)        "|
00002310  59 6f 75 27 6c 6c 20 6e  65 65 64 20 74 6f 20 74  |You'll need to t|
00002320  61 6b 65 20 69 74 20 6f  66 66 20 66 69 72 73 74  |ake it off first|
00002330  2e 22 3b 0a 20 20 69 66  20 28 73 65 63 6f 6e 64  |.";.  if (second|
00002340  3d 3d 6e 6f 75 6e 29 20  20 20 20 20 20 20 20 20  |==noun)         |
00002350  20 20 22 59 6f 75 20 63  61 6e 27 74 20 70 75 74  |  "You can't put|
00002360  20 73 6f 6d 65 74 68 69  6e 67 20 69 6e 73 69 64  | something insid|
00002370  65 20 69 74 73 65 6c 66  2e 22 3b 0a 20 20 69 66  |e itself.";.  if|
00002380  20 28 6e 6f 75 6e 20 68  61 73 20 77 6f 72 6e 29  | (noun has worn)|
00002390  20 7b 20 70 72 69 6e 74  20 22 28 66 69 72 73 74  | { print "(first|
000023a0  20 74 61 6b 69 6e 67 20  69 74 20 6f 66 66 29 5e  | taking it off)^|
000023b0  22 3b 20 67 69 76 65 20  6e 6f 75 6e 20 7e 77 6f  |"; give noun ~wo|
000023c0  72 6e 3b 20 7d 0a 0a 20  20 69 66 20 28 63 68 69  |rn; }..  if (chi|
000023d0  6c 64 72 65 6e 28 73 65  63 6f 6e 64 29 3e 3d 70  |ldren(second)>=p|
000023e0  72 6f 70 28 73 65 63 6f  6e 64 2c 63 61 70 61 63  |rop(second,capac|
000023f0  69 74 79 29 29 0a 20 20  7b 20 20 20 70 72 69 6e  |ity)).  {   prin|
00002400  74 20 22 54 68 65 72 65  20 69 73 20 6e 6f 20 6d  |t "There is no m|
00002410  6f 72 65 20 72 6f 6f 6d  20 69 6e 20 22 3b 20 44  |ore room in "; D|
00002420  65 66 41 72 74 28 73 65  63 6f 6e 64 29 3b 20 22  |efArt(second); "|
00002430  2e 22 3b 20 7d 0a 0a 20  20 6d 6f 76 65 20 6e 6f  |."; }..  move no|
00002440  75 6e 20 74 6f 20 73 65  63 6f 6e 64 3b 0a 0a 20  |un to second;.. |
00002450  20 69 66 20 28 41 66 74  65 72 52 6f 75 74 69 6e  | if (AfterRoutin|
00002460  65 73 28 29 3d 3d 31 29  20 72 74 72 75 65 3b 0a  |es()==1) rtrue;.|
00002470  0a 20 20 69 66 20 28 73  65 63 6f 6e 64 3e 31 29  |.  if (second>1)|
00002480  0a 20 20 7b 20 20 20 61  63 74 69 6f 6e 3d 23 23  |.  {   action=##|
00002490  52 65 63 65 69 76 65 3b  0a 20 20 20 20 20 20 69  |Receive;.      i|
000024a0  66 20 28 52 75 6e 52 6f  75 74 69 6e 65 73 28 73  |f (RunRoutines(s|
000024b0  65 63 6f 6e 64 2c 61 66  74 65 72 29 7e 3d 30 29  |econd,after)~=0)|
000024c0  20 7b 20 61 63 74 69 6f  6e 3d 23 23 49 6e 73 65  | { action=##Inse|
000024d0  72 74 3b 20 72 74 72 75  65 3b 20 7d 0a 20 20 20  |rt; rtrue; }.   |
000024e0  20 20 20 61 63 74 69 6f  6e 3d 23 23 49 6e 73 65  |   action=##Inse|
000024f0  72 74 3b 0a 20 20 7d 0a  0a 20 20 69 66 20 28 6d  |rt;.  }..  if (m|
00002500  75 6c 74 69 66 6c 61 67  3d 3d 31 29 20 22 44 6f  |ultiflag==1) "Do|
00002510  6e 65 2e 22 3b 0a 20 20  70 72 69 6e 74 20 22 59  |ne.";.  print "Y|
00002520  6f 75 20 70 75 74 20 22  3b 20 44 65 66 41 72 74  |ou put "; DefArt|
00002530  28 6e 6f 75 6e 29 3b 20  70 72 69 6e 74 20 22 20  |(noun); print " |
00002540  69 6e 74 6f 20 22 3b 20  44 65 66 41 72 74 28 73  |into "; DefArt(s|
00002550  65 63 6f 6e 64 29 3b 20  22 2e 22 3b 0a 5d 3b 0a  |econd); ".";.];.|
00002560  0a 5b 20 54 72 61 6e 73  66 65 72 53 75 62 20 69  |.[ TransferSub i|
00002570  20 61 3b 0a 20 20 61 3d  23 23 44 72 6f 70 3b 0a  | a;.  a=##Drop;.|
00002580  20 20 69 66 20 28 73 65  63 6f 6e 64 20 68 61 73  |  if (second has|
00002590  20 63 6f 6e 74 61 69 6e  65 72 29 20 61 3d 23 23  | container) a=##|
000025a0  49 6e 73 65 72 74 3b 0a  20 20 65 6c 73 65 0a 20  |Insert;.  else. |
000025b0  20 20 20 20 20 69 66 20  28 73 65 63 6f 6e 64 20  |     if (second |
000025c0  68 61 73 20 73 75 70 70  6f 72 74 65 72 29 20 61  |has supporter) a|
000025d0  3d 23 23 50 75 74 4f 6e  3b 0a 0a 20 20 69 3d 70  |=##PutOn;..  i=p|
000025e0  61 72 65 6e 74 28 6e 6f  75 6e 29 3b 0a 20 20 69  |arent(noun);.  i|
000025f0  66 20 28 69 7e 3d 70 6c  61 79 65 72 29 0a 20 20  |f (i~=player).  |
00002600  7b 20 20 20 77 68 69 6c  65 20 28 69 7e 3d 30 29  |{   while (i~=0)|
00002610  0a 20 20 20 20 20 20 7b  20 20 20 69 66 20 28 69  |.      {   if (i|
00002620  20 68 61 73 6e 74 20 6f  70 65 6e 29 20 22 54 68  | hasnt open) "Th|
00002630  61 74 20 69 73 6e 27 74  20 69 6e 20 79 6f 75 72  |at isn't in your|
00002640  20 70 6f 73 73 65 73 73  69 6f 6e 2e 22 3b 0a 20  | possession.";. |
00002650  20 20 20 20 20 20 20 20  20 69 3d 70 61 72 65 6e  |         i=paren|
00002660  74 28 69 29 3b 0a 20 20  20 20 20 20 20 20 20 20  |t(i);.          |
00002670  69 66 20 28 69 3d 3d 70  6c 61 79 65 72 29 20 6a  |if (i==player) j|
00002680  75 6d 70 20 53 65 67 75  65 3b 0a 20 20 20 20 20  |ump Segue;.     |
00002690  20 7d 0a 20 20 20 20 20  20 22 46 69 72 73 74 20  | }.      "First |
000026a0  70 69 63 6b 20 74 68 61  74 20 75 70 2e 22 3b 0a  |pick that up.";.|
000026b0  20 20 7d 0a 20 20 2e 53  65 67 75 65 3b 20 6d 6f  |  }.  .Segue; mo|
000026c0  76 65 20 6e 6f 75 6e 20  74 6f 20 70 6c 61 79 65  |ve noun to playe|
000026d0  72 3b 0a 20 20 50 72 6f  63 65 73 73 28 6e 6f 75  |r;.  Process(nou|
000026e0  6e 2c 73 65 63 6f 6e 64  2c 61 29 3b 20 72 66 61  |n,second,a); rfa|
000026f0  6c 73 65 3b 0a 5d 3b 0a  0a 5b 20 45 6d 70 74 79  |lse;.];..[ Empty|
00002700  53 75 62 3b 0a 20 20 73  65 63 6f 6e 64 3d 64 5f  |Sub;.  second=d_|
00002710  6f 62 6a 3b 20 45 6d 70  74 79 54 53 75 62 28 29  |obj; EmptyTSub()|
00002720  3b 0a 5d 3b 0a 0a 5b 20  45 6d 70 74 79 54 53 75  |;.];..[ EmptyTSu|
00002730  62 20 69 20 6a 3b 0a 20  20 69 66 20 28 6e 6f 75  |b i j;.  if (nou|
00002740  6e 20 68 61 73 6e 74 20  63 6f 6e 74 61 69 6e 65  |n hasnt containe|
00002750  72 29 0a 20 20 7b 20 20  20 43 44 65 66 41 72 74  |r).  {   CDefArt|
00002760  28 6e 6f 75 6e 29 3b 20  22 20 63 61 6e 27 74 20  |(noun); " can't |
00002770  63 6f 6e 74 61 69 6e 20  74 68 69 6e 67 73 2e 22  |contain things."|
00002780  3b 20 7d 0a 20 20 69 66  20 28 6e 6f 75 6e 20 68  |; }.  if (noun h|
00002790  61 73 6e 74 20 6f 70 65  6e 29 0a 20 20 7b 20 20  |asnt open).  {  |
000027a0  20 43 44 65 66 41 72 74  28 6e 6f 75 6e 29 3b 20  | CDefArt(noun); |
000027b0  22 20 69 73 20 63 6c 6f  73 65 64 2e 22 3b 20 7d  |" is closed."; }|
000027c0  0a 20 20 69 66 20 28 73  65 63 6f 6e 64 7e 3d 64  |.  if (second~=d|
000027d0  5f 6f 62 6a 29 0a 20 20  7b 20 20 20 69 66 20 28  |_obj).  {   if (|
000027e0  73 65 63 6f 6e 64 20 68  61 73 6e 74 20 63 6f 6e  |second hasnt con|
000027f0  74 61 69 6e 65 72 29 0a  20 20 20 20 20 20 7b 20  |tainer).      { |
00002800  20 20 43 44 65 66 41 72  74 28 73 65 63 6f 6e 64  |  CDefArt(second|
00002810  29 3b 20 22 20 63 61 6e  27 74 20 63 6f 6e 74 61  |); " can't conta|
00002820  69 6e 20 74 68 69 6e 67  73 2e 22 3b 20 7d 0a 20  |in things."; }. |
00002830  20 20 20 20 20 69 66 20  28 73 65 63 6f 6e 64 20  |     if (second |
00002840  68 61 73 6e 74 20 6f 70  65 6e 29 20 7b 20 43 44  |hasnt open) { CD|
00002850  65 66 41 72 74 28 73 65  63 6f 6e 64 29 3b 20 22  |efArt(second); "|
00002860  20 69 73 20 63 6c 6f 73  65 64 2e 22 3b 20 7d 0a  | is closed."; }.|
00002870  20 20 7d 0a 20 20 69 3d  63 68 69 6c 64 28 6e 6f  |  }.  i=child(no|
00002880  75 6e 29 3b 0a 20 20 69  66 20 28 69 3d 3d 30 29  |un);.  if (i==0)|
00002890  20 7b 20 44 65 66 41 72  74 28 6e 6f 75 6e 29 3b  | { DefArt(noun);|
000028a0  20 22 20 69 73 20 65 6d  70 74 79 20 61 6c 72 65  | " is empty alre|
000028b0  61 64 79 2e 22 3b 20 7d  0a 20 20 77 68 69 6c 65  |ady."; }.  while|
000028c0  20 28 69 7e 3d 30 29 0a  20 20 7b 20 20 20 6a 3d  | (i~=0).  {   j=|
000028d0  73 69 62 6c 69 6e 67 28  69 29 3b 0a 20 20 20 20  |sibling(i);.    |
000028e0  20 20 70 72 69 6e 74 20  6f 62 6a 65 63 74 20 69  |  print object i|
000028f0  2c 20 22 3a 20 22 3b 0a  20 20 20 20 20 20 3c 54  |, ": ";.      <T|
00002900  72 61 6e 73 66 65 72 20  69 20 73 65 63 6f 6e 64  |ransfer i second|
00002910  3e 3b 0a 20 20 20 20 20  20 69 3d 6a 3b 0a 20 20  |>;.      i=j;.  |
00002920  7d 0a 5d 3b 0a 0a 5b 20  45 6e 74 65 72 53 75 62  |}.];..[ EnterSub|
00002930  20 69 3b 0a 20 20 69 66  20 28 6e 6f 75 6e 20 68  | i;.  if (noun h|
00002940  61 73 20 64 6f 6f 72 29  20 3c 3c 47 6f 20 6e 6f  |as door) <<Go no|
00002950  75 6e 3e 3e 3b 0a 20 20  69 3d 70 61 72 65 6e 74  |un>>;.  i=parent|
00002960  28 70 6c 61 79 65 72 29  3b 0a 20 20 69 66 20 28  |(player);.  if (|
00002970  69 7e 3d 6c 6f 63 61 74  69 6f 6e 29 0a 20 20 7b  |i~=location).  {|
00002980  20 20 20 70 72 69 6e 74  20 22 42 75 74 20 79 6f  |   print "But yo|
00002990  75 27 72 65 20 61 6c 72  65 61 64 79 20 69 6e 20  |u're already in |
000029a0  22 3b 20 44 65 66 41 72  74 28 69 29 3b 20 22 2e  |"; DefArt(i); ".|
000029b0  22 3b 20 7d 0a 20 20 69  66 20 28 6e 6f 75 6e 20  |"; }.  if (noun |
000029c0  68 61 73 6e 74 20 65 6e  74 65 72 61 62 6c 65 29  |hasnt enterable)|
000029d0  20 22 41 20 73 75 72 72  65 61 6c 20 69 64 65 61  | "A surreal idea|
000029e0  2e 22 3b 0a 20 20 69 3d  70 61 72 65 6e 74 28 6e  |.";.  i=parent(n|
000029f0  6f 75 6e 29 3b 0a 20 20  69 66 20 28 69 3d 3d 63  |oun);.  if (i==c|
00002a00  6f 6d 70 61 73 73 29 20  3c 3c 47 6f 20 6e 6f 75  |ompass) <<Go nou|
00002a10  6e 3e 3e 3b 0a 20 20 69  66 20 28 69 7e 3d 6c 6f  |n>>;.  if (i~=lo|
00002a20  63 61 74 69 6f 6e 29 20  22 59 6f 75 20 63 61 6e  |cation) "You can|
00002a30  20 6f 6e 6c 79 20 67 65  74 20 69 6e 74 6f 20 73  | only get into s|
00002a40  6f 6d 65 74 68 69 6e 67  20 6f 6e 20 74 68 65 20  |omething on the |
00002a50  66 6c 6f 6f 72 2e 22 3b  0a 20 20 6d 6f 76 65 20  |floor.";.  move |
00002a60  70 6c 61 79 65 72 20 74  6f 20 6e 6f 75 6e 3b 0a  |player to noun;.|
00002a70  20 20 70 72 69 6e 74 20  22 59 6f 75 20 67 65 74  |  print "You get|
00002a80  20 69 6e 74 6f 20 22 3b  20 44 65 66 41 72 74 28  | into "; DefArt(|
00002a90  6e 6f 75 6e 29 3b 20 70  72 69 6e 74 20 22 2e 5e  |noun); print ".^|
00002aa0  22 3b 0a 20 20 4c 6f 63  61 6c 65 28 6e 6f 75 6e  |";.  Locale(noun|
00002ab0  29 3b 0a 5d 3b 0a 0a 5b  20 45 78 69 74 53 75 62  |);.];..[ ExitSub|
00002ac0  3b 0a 20 20 69 66 20 28  70 61 72 65 6e 74 28 70  |;.  if (parent(p|
00002ad0  6c 61 79 65 72 29 3d 3d  6c 6f 63 61 74 69 6f 6e  |layer)==location|
00002ae0  29 0a 20 20 7b 20 20 20  69 66 20 28 6c 6f 63 61  |).  {   if (loca|
00002af0  74 69 6f 6e 2e 6f 75 74  5f 74 6f 7e 3d 30 29 20  |tion.out_to~=0) |
00002b00  3c 3c 47 6f 20 6f 75 74  5f 6f 62 6a 3e 3e 3b 0a  |<<Go out_obj>>;.|
00002b10  20 20 20 20 20 20 22 42  75 74 20 79 6f 75 27 72  |      "But you'r|
00002b20  65 20 61 72 65 6e 27 74  20 69 6e 20 61 6e 79 74  |e aren't in anyt|
00002b30  68 69 6e 67 20 61 74 20  74 68 65 20 6d 6f 6d 65  |hing at the mome|
00002b40  6e 74 2e 22 3b 0a 20 20  7d 0a 20 20 6d 6f 76 65  |nt.";.  }.  move|
00002b50  20 70 6c 61 79 65 72 20  74 6f 20 6c 6f 63 61 74  | player to locat|
00002b60  69 6f 6e 3b 0a 20 20 70  72 69 6e 74 20 22 59 6f  |ion;.  print "Yo|
00002b70  75 20 61 72 65 20 6f 6e  20 79 6f 75 72 20 6f 77  |u are on your ow|
00002b80  6e 20 74 77 6f 20 66 65  65 74 20 61 67 61 69 6e  |n two feet again|
00002b90  2e 5e 22 3b 20 4c 6f 6f  6b 53 75 62 28 31 29 3b  |.^"; LookSub(1);|
00002ba0  20 41 66 74 65 72 52 6f  75 74 69 6e 65 73 28 29  | AfterRoutines()|
00002bb0  3b 0a 5d 3b 0a 0a 5b 20  56 61 67 75 65 47 6f 53  |;.];..[ VagueGoS|
00002bc0  75 62 3b 0a 20 20 22 59  6f 75 27 6c 6c 20 68 61  |ub;.  "You'll ha|
00002bd0  76 65 20 74 6f 20 73 61  79 20 77 68 69 63 68 20  |ve to say which |
00002be0  63 6f 6d 70 61 73 73 20  64 69 72 65 63 74 69 6f  |compass directio|
00002bf0  6e 20 74 6f 20 67 6f 20  69 6e 2e 22 3b 0a 5d 3b  |n to go in.";.];|
00002c00  0a 0a 5b 20 47 6f 49 6e  53 75 62 3b 0a 20 20 3c  |..[ GoInSub;.  <|
00002c10  47 6f 20 69 6e 5f 6f 62  6a 3e 3b 20 72 74 72 75  |Go in_obj>; rtru|
00002c20  65 3b 0a 5d 3b 0a 0a 5b  20 47 6f 53 75 62 20 69  |e;.];..[ GoSub i|
00002c30  20 6a 20 64 66 20 6d 6f  76 65 77 69 74 68 20 74  | j df movewith t|
00002c40  68 65 64 69 72 3b 0a 0a  20 20 6d 6f 76 65 77 69  |hedir;..  movewi|
00002c50  74 68 3d 30 3b 0a 20 20  69 3d 70 61 72 65 6e 74  |th=0;.  i=parent|
00002c60  28 70 6c 61 79 65 72 29  3b 0a 20 20 69 66 20 28  |(player);.  if (|
00002c70  28 6c 6f 63 61 74 69 6f  6e 7e 3d 74 68 65 64 61  |(location~=theda|
00002c80  72 6b 20 26 26 20 69 7e  3d 6c 6f 63 61 74 69 6f  |rk && i~=locatio|
00002c90  6e 29 0a 20 20 20 20 20  20 7c 7c 20 28 6c 6f 63  |n).      || (loc|
00002ca0  61 74 69 6f 6e 3d 3d 74  68 65 64 61 72 6b 20 26  |ation==thedark &|
00002cb0  26 20 69 7e 3d 72 65 61  6c 5f 6c 6f 63 61 74 69  |& i~=real_locati|
00002cc0  6f 6e 29 29 0a 20 20 7b  20 20 20 6a 3d 6c 6f 63  |on)).  {   j=loc|
00002cd0  61 74 69 6f 6e 3b 20 6c  6f 63 61 74 69 6f 6e 3d  |ation; location=|
00002ce0  72 65 61 6c 5f 6c 6f 63  61 74 69 6f 6e 3b 0a 20  |real_location;. |
00002cf0  20 20 20 20 20 69 66 20  28 52 75 6e 52 6f 75 74  |     if (RunRout|
00002d00  69 6e 65 73 28 69 2c 62  65 66 6f 72 65 29 7e 3d  |ines(i,before)~=|
00002d10  30 29 0a 20 20 20 20 20  20 7b 20 20 20 6d 6f 76  |0).      {   mov|
00002d20  65 77 69 74 68 3d 69 3b  20 69 3d 70 61 72 65 6e  |ewith=i; i=paren|
00002d30  74 28 69 29 3b 20 6c 6f  63 61 74 69 6f 6e 3d 6a  |t(i); location=j|
00002d40  3b 20 6a 75 6d 70 20 67  6f 74 72 6f 6f 6d 3b 20  |; jump gotroom; |
00002d50  7d 0a 20 20 20 20 20 20  6c 6f 63 61 74 69 6f 6e  |}.      location|
00002d60  3d 6a 3b 0a 20 20 20 20  20 20 70 72 69 6e 74 20  |=j;.      print |
00002d70  22 59 6f 75 27 6c 6c 20  68 61 76 65 20 74 6f 20  |"You'll have to |
00002d80  67 65 74 20 6f 75 74 20  6f 66 20 22 3b 20 44 65  |get out of "; De|
00002d90  66 41 72 74 28 69 29 3b  0a 20 20 20 20 20 20 22  |fArt(i);.      "|
00002da0  20 66 69 72 73 74 2e 22  3b 0a 20 20 7d 0a 20 20  | first.";.  }.  |
00002db0  2e 67 6f 74 72 6f 6f 6d  3b 0a 20 20 74 68 65 64  |.gotroom;.  thed|
00002dc0  69 72 3d 6e 6f 75 6e 2e  64 6f 6f 72 5f 64 69 72  |ir=noun.door_dir|
00002dd0  3b 0a 20 20 69 66 20 28  28 74 68 65 64 69 72 2d  |;.  if ((thedir-|
00002de0  23 63 6f 64 65 5f 6f 66  66 73 65 74 29 3e 3d 30  |#code_offset)>=0|
00002df0  29 20 74 68 65 64 69 72  3d 52 75 6e 52 6f 75 74  |) thedir=RunRout|
00002e00  69 6e 65 73 28 6e 6f 75  6e 2c 64 6f 6f 72 5f 64  |ines(noun,door_d|
00002e10  69 72 29 3b 0a 20 20 0a  20 20 6a 3d 69 2e 74 68  |ir);.  .  j=i.th|
00002e20  65 64 69 72 3b 0a 0a 20  20 69 66 20 28 6a 3e 23  |edir;..  if (j>#|
00002e30  6c 61 72 67 65 73 74 5f  6f 62 6a 65 63 74 29 0a  |largest_object).|
00002e40  20 20 7b 20 20 20 69 66  20 28 28 6a 2d 23 73 74  |  {   if ((j-#st|
00002e50  72 69 6e 67 73 5f 6f 66  66 73 65 74 29 3e 3d 30  |rings_offset)>=0|
00002e60  29 0a 20 20 20 20 20 20  7b 20 20 20 70 72 69 6e  |).      {   prin|
00002e70  74 5f 70 61 64 64 72 20  6a 3b 20 6e 65 77 5f 6c  |t_paddr j; new_l|
00002e80  69 6e 65 3b 20 72 66 61  6c 73 65 3b 20 7d 0a 20  |ine; rfalse; }. |
00002e90  20 20 20 20 20 6a 3d 52  75 6e 52 6f 75 74 69 6e  |     j=RunRoutin|
00002ea0  65 73 28 69 2c 74 68 65  64 69 72 29 3b 0a 20 20  |es(i,thedir);.  |
00002eb0  20 20 20 20 69 66 20 28  6a 3d 3d 31 29 20 72 74  |    if (j==1) rt|
00002ec0  72 75 65 3b 0a 20 20 7d  0a 0a 20 20 69 66 20 28  |rue;.  }..  if (|
00002ed0  6a 3d 3d 30 29 0a 20 20  7b 20 20 20 70 72 69 6e  |j==0).  {   prin|
00002ee0  74 5f 70 61 64 64 72 20  69 2e 63 61 6e 74 67 6f  |t_paddr i.cantgo|
00002ef0  3b 20 6e 65 77 5f 6c 69  6e 65 3b 20 72 66 61 6c  |; new_line; rfal|
00002f00  73 65 3b 20 7d 0a 0a 20  20 69 66 20 28 6a 20 68  |se; }..  if (j h|
00002f10  61 73 20 64 6f 6f 72 29  0a 20 20 7b 20 20 20 69  |as door).  {   i|
00002f20  66 20 28 6a 20 68 61 73  20 63 6f 6e 63 65 61 6c  |f (j has conceal|
00002f30  65 64 29 20 22 59 6f 75  20 63 61 6e 27 74 20 67  |ed) "You can't g|
00002f40  6f 20 74 68 61 74 20 77  61 79 2e 22 3b 0a 20 20  |o that way.";.  |
00002f50  20 20 20 20 69 66 20 28  6a 20 68 61 73 6e 74 20  |    if (j hasnt |
00002f60  6f 70 65 6e 29 0a 20 20  20 20 20 20 7b 20 20 20  |open).      {   |
00002f70  69 66 20 28 6e 6f 75 6e  3d 3d 75 5f 6f 62 6a 29  |if (noun==u_obj)|
00002f80  0a 20 20 20 20 20 20 20  20 20 20 7b 20 20 20 70  |.          {   p|
00002f90  72 69 6e 74 20 22 59 6f  75 20 61 72 65 20 75 6e  |rint "You are un|
00002fa0  61 62 6c 65 20 74 6f 20  63 6c 69 6d 62 20 22 3b  |able to climb ";|
00002fb0  20 44 65 66 61 72 74 28  6a 29 3b 20 22 2e 22 3b  | Defart(j); ".";|
00002fc0  20 7d 0a 20 20 20 20 20  20 20 20 20 20 69 66 20  | }.          if |
00002fd0  28 6e 6f 75 6e 3d 3d 64  5f 6f 62 6a 29 0a 20 20  |(noun==d_obj).  |
00002fe0  20 20 20 20 20 20 20 20  7b 20 20 20 70 72 69 6e  |        {   prin|
00002ff0  74 20 22 59 6f 75 20 61  72 65 20 75 6e 61 62 6c  |t "You are unabl|
00003000  65 20 74 6f 20 64 65 73  63 65 6e 64 20 22 3b 20  |e to descend "; |
00003010  44 65 66 61 72 74 28 6a  29 3b 20 22 2e 22 3b 20  |Defart(j); "."; |
00003020  7d 0a 20 20 20 20 20 20  20 20 20 20 70 72 69 6e  |}.          prin|
00003030  74 20 22 59 6f 75 20 63  61 6e 27 74 2c 20 73 69  |t "You can't, si|
00003040  6e 63 65 20 22 3b 20 44  65 66 61 72 74 28 6a 29  |nce "; Defart(j)|
00003050  3b 20 22 20 69 73 20 69  6e 20 74 68 65 20 77 61  |; " is in the wa|
00003060  79 2e 22 3b 0a 20 20 20  20 20 20 7d 0a 20 20 20  |y.";.      }.   |
00003070  20 20 20 69 66 20 28 28  6a 2e 64 6f 6f 72 5f 74  |   if ((j.door_t|
00003080  6f 2d 23 63 6f 64 65 5f  6f 66 66 73 65 74 29 3e  |o-#code_offset)>|
00003090  3d 30 29 20 6a 3d 52 75  6e 52 6f 75 74 69 6e 65  |=0) j=RunRoutine|
000030a0  73 28 6a 2c 64 6f 6f 72  5f 74 6f 29 3b 0a 20 20  |s(j,door_to);.  |
000030b0  20 20 20 20 65 6c 73 65  20 6a 3d 6a 2e 64 6f 6f  |    else j=j.doo|
000030c0  72 5f 74 6f 3b 0a 20 20  20 20 20 20 69 66 20 28  |r_to;.      if (|
000030d0  6a 3d 3d 30 29 0a 20 20  20 20 20 20 7b 20 20 20  |j==0).      {   |
000030e0  70 72 69 6e 74 20 22 59  6f 75 20 63 61 6e 27 74  |print "You can't|
000030f0  2c 20 73 69 6e 63 65 20  22 3b 20 44 65 66 61 72  |, since "; Defar|
00003100  74 28 6a 29 3b 20 22 20  6c 65 61 64 73 20 6e 6f  |t(j); " leads no|
00003110  77 68 65 72 65 2e 22 3b  20 7d 0a 20 20 7d 0a 20  |where."; }.  }. |
00003120  20 69 66 20 28 6d 6f 76  65 77 69 74 68 3d 3d 30  | if (movewith==0|
00003130  29 20 6d 6f 76 65 20 70  6c 61 79 65 72 20 74 6f  |) move player to|
00003140  20 6a 3b 20 65 6c 73 65  20 6d 6f 76 65 20 6d 6f  | j; else move mo|
00003150  76 65 77 69 74 68 20 74  6f 20 6a 3b 0a 0a 20 20  |vewith to j;..  |
00003160  64 66 3d 4f 66 66 65 72  73 4c 69 67 68 74 28 6a  |df=OffersLight(j|
00003170  29 3b 0a 20 20 69 66 20  28 64 66 7e 3d 30 29 20  |);.  if (df~=0) |
00003180  7b 20 6c 6f 63 61 74 69  6f 6e 3d 6a 3b 20 6c 69  |{ location=j; li|
00003190  67 68 74 66 6c 61 67 3d  31 3b 20 7d 0a 20 20 65  |ghtflag=1; }.  e|
000031a0  6c 73 65 0a 20 20 7b 20  20 20 69 66 20 28 6c 6f  |lse.  {   if (lo|
000031b0  63 61 74 69 6f 6e 3d 3d  74 68 65 64 61 72 6b 29  |cation==thedark)|
000031c0  20 44 61 72 6b 54 6f 44  61 72 6b 28 29 3b 0a 20  | DarkToDark();. |
000031d0  20 20 20 20 20 72 65 61  6c 5f 6c 6f 63 61 74 69  |     real_locati|
000031e0  6f 6e 3d 6a 3b 0a 20 20  20 20 20 20 6c 6f 63 61  |on=j;.      loca|
000031f0  74 69 6f 6e 3d 74 68 65  64 61 72 6b 3b 20 6c 69  |tion=thedark; li|
00003200  67 68 74 66 6c 61 67 3d  30 3b 0a 20 20 7d 0a 20  |ghtflag=0;.  }. |
00003210  20 69 66 20 28 4c 41 66  74 65 72 52 6f 75 74 69  | if (LAfterRouti|
00003220  6e 65 73 28 29 3d 3d 31  29 20 72 74 72 75 65 3b  |nes()==1) rtrue;|
00003230  0a 20 20 4c 6f 6f 6b 53  75 62 28 31 29 3b 0a 5d  |.  LookSub(1);.]|
00003240  3b 0a 0a 5b 20 53 61 79  57 68 61 74 73 4f 6e 20  |;..[ SayWhatsOn |
00003250  64 65 73 63 6f 6e 20 6f  20 69 20 6b 3b 0a 20 20  |descon o i k;.  |
00003260  70 72 69 6e 74 20 22 5e  4f 6e 20 22 3b 20 44 65  |print "^On "; De|
00003270  66 41 72 74 28 64 65 73  63 6f 6e 29 3b 0a 20 20  |fArt(descon);.  |
00003280  6b 3d 63 68 69 6c 64 72  65 6e 28 64 65 73 63 6f  |k=children(desco|
00003290  6e 29 3b 0a 20 20 69 66  20 28 63 68 69 6c 64 72  |n);.  if (childr|
000032a0  65 6e 28 64 65 73 63 6f  6e 29 3d 3d 31 29 20 70  |en(descon)==1) p|
000032b0  72 69 6e 74 20 22 20 69  73 20 22 3b 20 65 6c 73  |rint " is "; els|
000032c0  65 20 70 72 69 6e 74 20  22 20 61 72 65 20 22 3b  |e print " are ";|
000032d0  0a 20 20 69 3d 30 3b 0a  20 20 6f 62 6a 65 63 74  |.  i=0;.  object|
000032e0  6c 6f 6f 70 20 28 6f 20  69 6e 20 64 65 73 63 6f  |loop (o in desco|
000032f0  6e 29 0a 20 20 7b 20 20  20 69 2b 2b 3b 20 0a 20  |n).  {   i++; . |
00003300  20 20 20 20 20 44 65 73  63 72 69 62 65 4f 62 6a  |     DescribeObj|
00003310  28 6f 2c 31 29 3b 0a 20  20 20 20 20 20 69 66 20  |(o,1);.      if |
00003320  28 69 3d 3d 6b 2d 31 29  20 20 70 72 69 6e 74 20  |(i==k-1)  print |
00003330  22 20 61 6e 64 20 22 3b  0a 20 20 20 20 20 20 69  |" and ";.      i|
00003340  66 20 28 69 3c 6b 2d 31  29 20 70 72 69 6e 74 20  |f (i<k-1) print |
00003350  22 2c 20 22 3b 0a 20 20  7d 0a 20 20 70 72 69 6e  |", ";.  }.  prin|
00003360  74 20 22 2e 5e 22 3b 0a  5d 3b 0a 0a 5b 20 4c 6f  |t ".^";.];..[ Lo|
00003370  63 61 6c 65 20 64 65 73  63 69 6e 20 6f 20 6b 20  |cale descin o k |
00003380  6a 20 66 6c 61 67 20 69  3b 0a 0a 20 20 6b 3d 30  |j flag i;..  k=0|
00003390  3b 0a 20 20 6f 62 6a 65  63 74 6c 6f 6f 70 20 28  |;.  objectloop (|
000033a0  6f 20 69 6e 20 64 65 73  63 69 6e 29 0a 20 20 20  |o in descin).   |
000033b0  20 20 20 69 66 20 28 6f  20 68 61 73 6e 74 20 63  |   if (o hasnt c|
000033c0  6f 6e 63 65 61 6c 65 64  29 0a 20 20 20 20 20 20  |oncealed).      |
000033d0  7b 20 20 69 66 20 28 6f  20 68 61 73 6e 74 20 73  |{  if (o hasnt s|
000033e0  63 65 6e 65 72 79 29 0a  20 20 20 20 20 20 20 20  |cenery).        |
000033f0  20 7b 20 20 20 67 69 76  65 20 6f 20 77 6f 72 6b  | {   give o work|
00003400  66 6c 61 67 3b 20 69 6e  63 20 6b 3b 0a 20 20 20  |flag; inc k;.   |
00003410  20 20 20 20 20 20 20 20  20 20 69 66 20 28 6f 20  |          if (o |
00003420  68 61 73 6e 74 20 6d 6f  76 65 64 20 7c 7c 20 6f  |hasnt moved || o|
00003430  2e 64 65 73 63 72 69 62  65 7e 3d 24 66 66 66 66  |.describe~=$ffff|
00003440  29 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 7b  |).             {|
00003450  20 20 20 69 66 20 28 6f  2e 64 65 73 63 72 69 62  |   if (o.describ|
00003460  65 7e 3d 24 66 66 66 66  20 26 26 20 52 75 6e 52  |e~=$ffff && RunR|
00003470  6f 75 74 69 6e 65 73 28  6f 2c 64 65 73 63 72 69  |outines(o,descri|
00003480  62 65 29 7e 3d 30 29 0a  20 20 20 20 20 20 20 20  |be)~=0).        |
00003490  20 20 20 20 20 20 20 20  20 7b 20 20 20 66 6c 61  |         {   fla|
000034a0  67 3d 31 3b 0a 20 20 20  20 20 20 20 20 20 20 20  |g=1;.           |
000034b0  20 20 20 20 20 20 20 20  20 20 67 69 76 65 20 6f  |          give o|
000034c0  20 7e 77 6f 72 6b 66 6c  61 67 3b 20 64 65 63 20  | ~workflag; dec |
000034d0  6b 3b 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |k;.             |
000034e0  20 20 20 20 7d 20 20 20  20 0a 20 20 20 20 20 20  |    }    .      |
000034f0  20 20 20 20 20 20 20 20  20 20 20 65 6c 73 65 0a  |           else.|
00003500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003510  20 7b 20 20 20 6a 3d 6f  2e 69 6e 69 74 69 61 6c  | {   j=o.initial|
00003520  3b 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;.              |
00003530  20 20 20 20 20 20 20 69  66 20 28 28 6f 20 68 61  |       if ((o ha|
00003540  73 20 64 6f 6f 72 20 26  26 20 6f 20 68 61 73 6e  |s door && o hasn|
00003550  74 20 6f 70 65 6e 29 0a  20 20 20 20 20 20 20 20  |t open).        |
00003560  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003570  20 20 7c 7c 20 28 6f 20  68 61 73 20 73 77 69 74  |  || (o has swit|
00003580  63 68 61 62 6c 65 20 26  26 20 6f 20 68 61 73 6e  |chable && o hasn|
00003590  74 20 6f 6e 29 20 29 20  6a 3d 6f 2e 63 6c 6f 73  |t on) ) j=o.clos|
000035a0  65 64 70 6f 73 3b 0a 20  20 20 20 20 20 20 20 20  |edpos;.         |
000035b0  20 20 20 20 20 20 20 20  20 20 20 20 69 66 20 28  |            if (|
000035c0  6a 7e 3d 30 29 0a 20 20  20 20 20 20 20 20 20 20  |j~=0).          |
000035d0  20 20 20 20 20 20 20 20  20 20 20 7b 20 20 20 6e  |           {   n|
000035e0  65 77 5f 6c 69 6e 65 3b  20 70 72 69 6e 74 5f 70  |ew_line; print_p|
000035f0  61 64 64 72 20 6a 3b 20  6e 65 77 5f 6c 69 6e 65  |addr j; new_line|
00003600  3b 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;.              |
00003610  20 20 20 20 20 20 20 20  20 20 20 66 6c 61 67 3d  |           flag=|
00003620  31 3b 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |1;.             |
00003630  20 20 20 20 20 20 20 20  20 20 20 20 67 69 76 65  |            give|
00003640  20 6f 20 7e 77 6f 72 6b  66 6c 61 67 3b 20 64 65  | o ~workflag; de|
00003650  63 20 6b 3b 0a 20 20 20  20 20 20 20 20 20 20 20  |c k;.           |
00003660  20 20 20 20 20 20 20 20  20 20 20 20 20 20 69 66  |              if|
00003670  20 28 6f 20 68 61 73 20  73 75 70 70 6f 72 74 65  | (o has supporte|
00003680  72 20 26 26 20 63 68 69  6c 64 28 6f 29 7e 3d 30  |r && child(o)~=0|
00003690  29 20 53 61 79 57 68 61  74 73 4f 6e 28 6f 29 3b  |) SayWhatsOn(o);|
000036a0  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000036b0  20 20 20 20 20 20 7d 0a  20 20 20 20 20 20 20 20  |      }.        |
000036c0  20 20 20 20 20 20 20 20  20 7d 0a 20 20 20 20 20  |         }.     |
000036d0  20 20 20 20 20 20 20 20  7d 0a 20 20 20 20 20 20  |        }.      |
000036e0  20 20 20 7d 0a 20 20 20  20 20 20 20 20 20 65 6c  |   }.         el|
000036f0  73 65 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |se.             |
00003700  69 66 20 28 6f 20 68 61  73 20 73 75 70 70 6f 72  |if (o has suppor|
00003710  74 65 72 20 26 26 20 63  68 69 6c 64 28 6f 29 7e  |ter && child(o)~|
00003720  3d 30 29 20 53 61 79 57  68 61 74 73 4f 6e 28 6f  |=0) SayWhatsOn(o|
00003730  29 3b 0a 20 20 20 20 20  20 7d 0a 0a 20 20 69 66  |);.      }..  if|
00003740  20 28 6b 3d 3d 30 29 20  72 65 74 75 72 6e 3b 0a  | (k==0) return;.|
00003750  20 20 6e 65 77 5f 6c 69  6e 65 3b 0a 20 20 69 66  |  new_line;.  if|
00003760  20 28 64 65 73 63 69 6e  7e 3d 6c 6f 63 61 74 69  | (descin~=locati|
00003770  6f 6e 29 20 7b 20 70 72  69 6e 74 20 22 49 6e 20  |on) { print "In |
00003780  22 3b 20 44 65 66 41 72  74 28 64 65 73 63 69 6e  |"; DefArt(descin|
00003790  29 3b 20 70 72 69 6e 74  20 22 20 79 6f 75 22 3b  |); print " you";|
000037a0  20 7d 0a 20 20 69 66 20  28 64 65 73 63 69 6e 3d  | }.  if (descin=|
000037b0  3d 6c 6f 63 61 74 69 6f  6e 29 20 70 72 69 6e 74  |=location) print|
000037c0  20 22 59 6f 75 22 3b 0a  20 20 70 72 69 6e 74 20  | "You";.  print |
000037d0  22 20 63 61 6e 20 22 3b  0a 20 20 69 66 20 28 66  |" can ";.  if (f|
000037e0  6c 61 67 3d 3d 31 29 20  70 72 69 6e 74 20 22 61  |lag==1) print "a|
000037f0  6c 73 6f 20 22 3b 0a 20  20 70 72 69 6e 74 20 22  |lso ";.  print "|
00003800  73 65 65 20 22 3b 0a 20  20 69 3d 30 3b 0a 20 20  |see ";.  i=0;.  |
00003810  6f 62 6a 65 63 74 6c 6f  6f 70 20 28 6f 20 69 6e  |objectloop (o in|
00003820  20 64 65 73 63 69 6e 29  0a 20 20 20 20 20 20 69  | descin).      i|
00003830  66 20 28 6f 20 68 61 73  20 77 6f 72 6b 66 6c 61  |f (o has workfla|
00003840  67 29 0a 20 20 20 20 20  20 7b 20 20 69 2b 2b 3b  |g).      {  i++;|
00003850  0a 20 20 20 20 20 20 20  20 20 44 65 73 63 72 69  |.         Descri|
00003860  62 65 4f 62 6a 28 6f 2c  31 29 3b 0a 20 20 20 20  |beObj(o,1);.    |
00003870  20 20 20 20 20 69 66 20  28 69 3d 3d 6b 2d 31 29  |     if (i==k-1)|
00003880  20 70 72 69 6e 74 20 22  20 61 6e 64 20 22 3b 0a  | print " and ";.|
00003890  20 20 20 20 20 20 20 20  20 69 66 20 28 69 3c 20  |         if (i< |
000038a0  6b 2d 31 29 20 70 72 69  6e 74 20 22 2c 20 22 3b  |k-1) print ", ";|
000038b0  0a 20 20 20 20 20 20 7d  0a 20 20 69 66 20 28 64  |.      }.  if (d|
000038c0  65 73 63 69 6e 7e 3d 6c  6f 63 61 74 69 6f 6e 29  |escin~=location)|
000038d0  20 70 72 69 6e 74 20 22  2e 5e 22 3b 0a 20 20 69  | print ".^";.  i|
000038e0  66 20 28 64 65 73 63 69  6e 3d 3d 6c 6f 63 61 74  |f (descin==locat|
000038f0  69 6f 6e 29 20 70 72 69  6e 74 20 22 20 68 65 72  |ion) print " her|
00003900  65 2e 5e 22 3b 0a 5d 3b  0a 0a 5b 20 4c 4d 6f 64  |e.^";.];..[ LMod|
00003910  65 31 53 75 62 3b 0a 20  20 6c 6f 6f 6b 6d 6f 64  |e1Sub;.  lookmod|
00003920  65 3d 31 3b 20 70 72 69  6e 74 5f 70 61 64 64 72  |e=1; print_paddr|
00003930  20 23 53 74 6f 72 79 3b  0a 20 20 22 20 69 73 20  | #Story;.  " is |
00003940  6e 6f 77 20 69 6e 20 69  74 73 20 6e 6f 72 6d 61  |now in its norma|
00003950  6c 20 7e 62 72 69 65 66  7e 20 70 72 69 6e 74 69  |l ~brief~ printi|
00003960  6e 67 20 6d 6f 64 65 2c  20 77 68 69 63 68 20 67  |ng mode, which g|
00003970  69 76 65 73 20 5c 0a 20  20 20 20 20 20 20 20 20  |ives \.         |
00003980  20 20 20 20 20 6c 6f 6e  67 20 64 65 73 63 72 69  |     long descri|
00003990  70 74 69 6f 6e 73 20 6f  66 20 5c 0a 20 20 20 20  |ptions of \.    |
000039a0  20 20 20 20 20 20 20 20  20 20 70 6c 61 63 65 73  |          places|
000039b0  20 6e 65 76 65 72 20 62  65 66 6f 72 65 20 76 69  | never before vi|
000039c0  73 69 74 65 64 20 61 6e  64 20 73 68 6f 72 74 20  |sited and short |
000039d0  64 65 73 63 72 69 70 74  69 6f 6e 73 20 6f 74 68  |descriptions oth|
000039e0  65 72 77 69 73 65 2e 22  3b 0a 5d 3b 0a 0a 5b 20  |erwise.";.];..[ |
000039f0  4c 4d 6f 64 65 32 53 75  62 3b 0a 20 20 6c 6f 6f  |LMode2Sub;.  loo|
00003a00  6b 6d 6f 64 65 3d 32 3b  20 70 72 69 6e 74 5f 70  |kmode=2; print_p|
00003a10  61 64 64 72 20 23 53 74  6f 72 79 3b 0a 20 20 22  |addr #Story;.  "|
00003a20  20 69 73 20 6e 6f 77 20  69 6e 20 69 74 73 20 7e  | is now in its ~|
00003a30  76 65 72 62 6f 73 65 7e  20 6d 6f 64 65 2c 20 77  |verbose~ mode, w|
00003a40  68 69 63 68 20 61 6c 77  61 79 73 20 67 69 76 65  |hich always give|
00003a50  73 20 6c 6f 6e 67 20 5c  0a 20 20 20 20 20 20 20  |s long \.       |
00003a60  20 20 20 20 20 20 20 64  65 73 63 72 69 70 74 69  |       descripti|
00003a70  6f 6e 73 20 6f 66 20 6c  6f 63 61 74 69 6f 6e 73  |ons of locations|
00003a80  20 28 65 76 65 6e 20 69  66 20 79 6f 75 27 76 65  | (even if you've|
00003a90  20 62 65 65 6e 20 74 68  65 72 65 20 62 65 66 6f  | been there befo|
00003aa0  72 65 29 2e 22 3b 0a 5d  3b 0a 0a 5b 20 4c 4d 6f  |re).";.];..[ LMo|
00003ab0  64 65 33 53 75 62 3b 0a  20 20 6c 6f 6f 6b 6d 6f  |de3Sub;.  lookmo|
00003ac0  64 65 3d 33 3b 20 70 72  69 6e 74 5f 70 61 64 64  |de=3; print_padd|
00003ad0  72 20 23 53 74 6f 72 79  3b 0a 20 20 22 20 69 73  |r #Story;.  " is|
00003ae0  20 6e 6f 77 20 69 6e 20  69 74 73 20 7e 73 75 70  | now in its ~sup|
00003af0  65 72 62 72 69 65 66 7e  20 6d 6f 64 65 2c 20 77  |erbrief~ mode, w|
00003b00  68 69 63 68 20 61 6c 77  61 79 73 20 67 69 76 65  |hich always give|
00003b10  73 20 73 68 6f 72 74 20  5c 0a 20 20 20 20 20 20  |s short \.      |
00003b20  20 20 20 20 20 20 20 20  64 65 73 63 72 69 70 74  |        descript|
00003b30  69 6f 6e 73 20 6f 66 20  6c 6f 63 61 74 69 6f 6e  |ions of location|
00003b40  73 20 28 65 76 65 6e 20  69 66 20 79 6f 75 20 68  |s (even if you h|
00003b50  61 76 65 6e 27 74 20 62  65 65 6e 20 74 68 65 72  |aven't been ther|
00003b60  65 20 5c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |e \.            |
00003b70  20 20 62 65 66 6f 72 65  29 2e 22 3b 0a 5d 3b 0a  |  before).";.];.|
00003b80  0a 5b 20 4c 6f 6f 6b 53  75 62 20 77 65 61 72 79  |.[ LookSub weary|
00003b90  20 69 20 64 65 73 63 69  6e 20 6a 3b 0a 20 20 64  | i descin j;.  d|
00003ba0  65 73 63 69 6e 3d 6c 6f  63 61 74 69 6f 6e 3b 0a  |escin=location;.|
00003bb0  20 20 69 66 20 28 64 65  73 63 69 6e 7e 3d 6c 61  |  if (descin~=la|
00003bc0  73 74 64 65 73 63 29 0a  20 20 7b 20 20 20 6a 3d  |stdesc).  {   j=|
00003bd0  64 65 73 63 69 6e 2e 69  6e 69 74 69 61 6c 3b 0a  |descin.initial;.|
00003be0  20 20 20 20 20 20 69 66  20 28 28 6a 2d 23 73 74  |      if ((j-#st|
00003bf0  72 69 6e 67 73 5f 6f 66  66 73 65 74 29 3e 30 29  |rings_offset)>0)|
00003c00  20 70 72 69 6e 74 5f 70  61 64 64 72 20 6a 3b 20  | print_paddr j; |
00003c10  0a 20 20 20 20 20 20 65  6c 73 65 0a 20 20 20 20  |.      else.    |
00003c20  20 20 7b 20 20 20 69 66  20 28 6a 3e 30 20 26 26  |  {   if (j>0 &&|
00003c30  20 52 75 6e 52 6f 75 74  69 6e 65 73 28 64 65 73  | RunRoutines(des|
00003c40  63 69 6e 2c 69 6e 69 74  69 61 6c 29 7e 3d 30 29  |cin,initial)~=0)|
00003c50  20 4e 65 77 52 6f 6f 6d  28 29 3b 0a 20 20 20 20  | NewRoom();.    |
00003c60  20 20 7d 0a 20 20 20 20  20 20 4d 6f 76 65 46 6c  |  }.      MoveFl|
00003c70  6f 61 74 69 6e 67 4f 62  6a 65 63 74 73 28 6c 6f  |oatingObjects(lo|
00003c80  63 61 74 69 6f 6e 29 3b  0a 20 20 7d 0a 20 20 6e  |cation);.  }.  n|
00003c90  65 77 5f 6c 69 6e 65 3b  0a 23 49 46 56 35 3b 20  |ew_line;.#IFV5; |
00003ca0  73 74 79 6c 65 20 62 6f  6c 64 3b 20 23 45 4e 44  |style bold; #END|
00003cb0  49 46 3b 0a 20 20 70 72  69 6e 74 20 6f 62 6a 65  |IF;.  print obje|
00003cc0  63 74 20 6c 6f 63 61 74  69 6f 6e 3b 0a 23 49 46  |ct location;.#IF|
00003cd0  56 35 3b 20 73 74 79 6c  65 20 72 6f 6d 61 6e 3b  |V5; style roman;|
00003ce0  20 23 45 4e 44 49 46 3b  0a 0a 20 20 69 3d 70 61  | #ENDIF;..  i=pa|
00003cf0  72 65 6e 74 28 70 6c 61  79 65 72 29 3b 0a 20 20  |rent(player);.  |
00003d00  69 66 20 28 6c 6f 63 61  74 69 6f 6e 7e 3d 74 68  |if (location~=th|
00003d10  65 64 61 72 6b 20 26 26  20 69 7e 3d 6c 6f 63 61  |edark && i~=loca|
00003d20  74 69 6f 6e 29 0a 20 20  7b 20 20 20 70 72 69 6e  |tion).  {   prin|
00003d30  74 20 22 20 28 69 6e 20  22 3b 20 44 65 66 41 72  |t " (in "; DefAr|
00003d40  74 28 69 29 3b 20 70 72  69 6e 74 20 22 29 22 3b  |t(i); print ")";|
00003d50  20 64 65 73 63 69 6e 3d  69 3b 20 7d 0a 20 20 6e  | descin=i; }.  n|
00003d60  65 77 5f 6c 69 6e 65 3b  0a 0a 20 20 69 66 20 28  |ew_line;..  if (|
00003d70  28 77 65 61 72 79 7e 3d  31 29 20 7c 7c 20 28 6c  |(weary~=1) || (l|
00003d80  6f 6f 6b 6d 6f 64 65 3d  3d 32 29 20 7c 7c 20 28  |ookmode==2) || (|
00003d90  6c 6f 63 61 74 69 6f 6e  20 68 61 73 6e 74 20 76  |location hasnt v|
00003da0  69 73 69 74 65 64 29 29  0a 20 20 7b 20 20 20 69  |isited)).  {   i|
00003db0  66 20 28 6c 6f 63 61 74  69 6f 6e 2e 64 65 73 63  |f (location.desc|
00003dc0  72 69 62 65 7e 3d 24 66  66 66 66 29 20 52 75 6e  |ribe~=$ffff) Run|
00003dd0  52 6f 75 74 69 6e 65 73  28 6c 6f 63 61 74 69 6f  |Routines(locatio|
00003de0  6e 2c 64 65 73 63 72 69  62 65 29 3b 0a 20 20 20  |n,describe);.   |
00003df0  20 20 20 65 6c 73 65 0a  20 20 20 20 20 20 7b 20  |   else.      { |
00003e00  20 20 6a 3d 6c 6f 63 61  74 69 6f 6e 2e 64 65 73  |  j=location.des|
00003e10  63 72 69 70 74 69 6f 6e  3b 0a 20 20 20 20 20 20  |cription;.      |
00003e20  20 20 20 20 69 66 20 28  28 6a 2d 23 73 74 72 69  |    if ((j-#stri|
00003e30  6e 67 73 5f 6f 66 66 73  65 74 29 3e 30 29 0a 20  |ngs_offset)>0). |
00003e40  20 20 20 20 20 20 20 20  20 7b 20 20 20 70 72 69  |         {   pri|
00003e50  6e 74 5f 70 61 64 64 72  20 6a 3b 20 6e 65 77 5f  |nt_paddr j; new_|
00003e60  6c 69 6e 65 3b 20 7d 20  0a 20 20 20 20 20 20 20  |line; } .       |
00003e70  20 20 20 65 6c 73 65 0a  20 20 20 20 20 20 20 20  |   else.        |
00003e80  20 20 20 20 20 20 52 75  6e 52 6f 75 74 69 6e 65  |      RunRoutine|
00003e90  73 28 6c 6f 63 61 74 69  6f 6e 2c 64 65 73 63 72  |s(location,descr|
00003ea0  69 70 74 69 6f 6e 29 3b  0a 20 20 20 20 20 20 7d  |iption);.      }|
00003eb0  0a 20 20 7d 0a 0a 20 20  69 66 20 28 6c 6f 63 61  |.  }..  if (loca|
00003ec0  74 69 6f 6e 20 68 61 73  6e 74 20 76 69 73 69 74  |tion hasnt visit|
00003ed0  65 64 29 0a 20 20 7b 20  20 20 67 69 76 65 20 6c  |ed).  {   give l|
00003ee0  6f 63 61 74 69 6f 6e 20  76 69 73 69 74 65 64 3b  |ocation visited;|
00003ef0  0a 20 20 20 20 20 20 69  66 20 28 6c 6f 63 61 74  |.      if (locat|
00003f00  69 6f 6e 20 68 61 73 20  73 63 6f 72 65 64 29 0a  |ion has scored).|
00003f10  20 20 20 20 20 20 7b 20  20 20 73 63 6f 72 65 3d  |      {   score=|
00003f20  73 63 6f 72 65 2b 52 4f  4f 4d 5f 53 43 4f 52 45  |score+ROOM_SCORE|
00003f30  3b 0a 20 20 20 20 20 20  20 20 20 20 70 6c 61 63  |;.          plac|
00003f40  65 73 5f 73 63 6f 72 65  3d 70 6c 61 63 65 73 5f  |es_score=places_|
00003f50  73 63 6f 72 65 2b 52 4f  4f 4d 5f 53 43 4f 52 45  |score+ROOM_SCORE|
00003f60  3b 0a 20 20 20 20 20 20  7d 0a 20 20 7d 0a 0a 20  |;.      }.  }.. |
00003f70  20 69 66 20 28 64 65 73  63 69 6e 7e 3d 6c 6f 63  | if (descin~=loc|
00003f80  61 74 69 6f 6e 29 20 4c  6f 63 61 6c 65 28 6c 6f  |ation) Locale(lo|
00003f90  63 61 74 69 6f 6e 29 3b  0a 20 20 4c 6f 63 61 6c  |cation);.  Local|
00003fa0  65 28 64 65 73 63 69 6e  29 3b 0a 0a 20 20 4c 6f  |e(descin);..  Lo|
00003fb0  6f 6b 52 6f 75 74 69 6e  65 28 29 3b 0a 20 20 61  |okRoutine();.  a|
00003fc0  63 74 69 6f 6e 3d 23 23  4c 6f 6f 6b 3b 0a 20 20  |ction=##Look;.  |
00003fd0  69 66 20 28 4c 41 66 74  65 72 52 6f 75 74 69 6e  |if (LAfterRoutin|
00003fe0  65 73 28 29 3d 3d 31 29  20 72 74 72 75 65 3b 0a  |es()==1) rtrue;.|
00003ff0  5d 3b 0a 0a 5b 20 45 78  61 6d 69 6e 65 53 75 62  |];..[ ExamineSub|
00004000  20 69 3b 0a 20 20 69 66  20 28 6c 6f 63 61 74 69  | i;.  if (locati|
00004010  6f 6e 3d 3d 74 68 65 64  61 72 6b 29 0a 20 20 20  |on==thedark).   |
00004020  20 20 20 22 44 61 72 6b  6e 65 73 73 2c 20 6e 6f  |   "Darkness, no|
00004030  75 6e 2e 20 20 41 6e 20  61 62 73 65 6e 63 65 20  |un.  An absence |
00004040  6f 66 20 6c 69 67 68 74  20 74 6f 20 73 65 65 20  |of light to see |
00004050  62 79 2e 22 3b 0a 20 20  69 66 20 28 6e 6f 75 6e  |by.";.  if (noun|
00004060  3d 3d 70 6c 61 79 65 72  29 0a 20 20 20 20 20 20  |==player).      |
00004070  22 41 73 20 67 6f 6f 64  2d 6c 6f 6f 6b 69 6e 67  |"As good-looking|
00004080  20 61 73 20 65 76 65 72  2e 22 3b 0a 20 20 69 66  | as ever.";.  if|
00004090  20 28 6e 6f 75 6e 20 68  61 73 20 61 75 74 6f 73  | (noun has autos|
000040a0  65 61 72 63 68 29 20 7b  20 53 65 61 72 63 68 53  |earch) { SearchS|
000040b0  75 62 28 29 3b 20 72 66  61 6c 73 65 3b 20 7d 0a  |ub(); rfalse; }.|
000040c0  20 20 69 3d 6e 6f 75 6e  2e 64 65 73 63 72 69 70  |  i=noun.descrip|
000040d0  74 69 6f 6e 3b 0a 20 20  69 66 20 28 69 3d 3d 30  |tion;.  if (i==0|
000040e0  29 0a 20 20 7b 20 20 20  69 66 20 28 6e 6f 75 6e  |).  {   if (noun|
000040f0  20 68 61 73 20 63 6f 6e  74 61 69 6e 65 72 29 20  | has container) |
00004100  7b 20 53 65 61 72 63 68  53 75 62 28 29 3b 20 72  |{ SearchSub(); r|
00004110  66 61 6c 73 65 3b 20 7d  0a 20 20 20 20 20 20 70  |false; }.      p|
00004120  72 69 6e 74 20 22 59 6f  75 20 73 65 65 20 6e 6f  |rint "You see no|
00004130  74 68 69 6e 67 20 73 70  65 63 69 61 6c 20 61 62  |thing special ab|
00004140  6f 75 74 20 22 3b 20 44  65 66 61 72 74 28 6e 6f  |out "; Defart(no|
00004150  75 6e 29 3b 20 22 2e 22  3b 0a 20 20 7d 0a 20 20  |un); ".";.  }.  |
00004160  69 66 20 28 28 69 2d 23  73 74 72 69 6e 67 73 5f  |if ((i-#strings_|
00004170  6f 66 66 73 65 74 29 3e  30 29 0a 20 20 7b 20 20  |offset)>0).  {  |
00004180  20 70 72 69 6e 74 5f 70  61 64 64 72 20 69 3b 20  | print_paddr i; |
00004190  6e 65 77 5f 6c 69 6e 65  3b 20 7d 0a 20 20 65 6c  |new_line; }.  el|
000041a0  73 65 0a 20 20 20 20 20  20 52 75 6e 52 6f 75 74  |se.      RunRout|
000041b0  69 6e 65 73 28 6e 6f 75  6e 2c 64 65 73 63 72 69  |ines(noun,descri|
000041c0  70 74 69 6f 6e 29 3b 0a  20 20 69 66 20 28 6e 6f  |ption);.  if (no|
000041d0  75 6e 20 68 61 73 20 73  77 69 74 63 68 61 62 6c  |un has switchabl|
000041e0  65 29 0a 20 20 7b 20 20  20 70 72 69 6e 74 20 22  |e).  {   print "|
000041f0  49 74 20 69 73 20 63 75  72 72 65 6e 74 6c 79 20  |It is currently |
00004200  73 77 69 74 63 68 65 64  20 22 3b 0a 20 20 20 20  |switched ";.    |
00004210  20 20 69 66 20 28 6e 6f  75 6e 20 68 61 73 20 6f  |  if (noun has o|
00004220  6e 29 20 70 72 69 6e 74  20 22 6f 6e 2e 5e 22 3b  |n) print "on.^";|
00004230  20 65 6c 73 65 20 70 72  69 6e 74 20 22 6f 66 66  | else print "off|
00004240  2e 5e 22 3b 0a 20 20 7d  0a 20 20 69 66 20 28 41  |.^";.  }.  if (A|
00004250  66 74 65 72 52 6f 75 74  69 6e 65 73 28 29 3d 3d  |fterRoutines()==|
00004260  31 29 20 72 74 72 75 65  3b 0a 5d 3b 0a 0a 5b 20  |1) rtrue;.];..[ |
00004270  44 65 73 63 72 69 62 65  4f 62 6a 20 6f 20 6c 69  |DescribeObj o li|
00004280  73 74 6d 6f 64 65 20 70  20 69 20 6b 20 72 76 61  |stmode p i k rva|
00004290  6c 3b 0a 0a 20 20 69 66  20 28 6c 69 73 74 6d 6f  |l;..  if (listmo|
000042a0  64 65 7e 3d 32 29 20 49  6e 64 65 66 61 72 74 28  |de~=2) Indefart(|
000042b0  6f 29 3b 20 65 6c 73 65  20 44 65 66 61 72 74 28  |o); else Defart(|
000042c0  6f 29 3b 0a 0a 20 20 69  66 20 28 6f 20 68 61 73  |o);..  if (o has|
000042d0  20 6c 69 67 68 74 29 20  70 72 69 6e 74 20 22 20  | light) print " |
000042e0  28 70 72 6f 76 69 64 69  6e 67 20 6c 69 67 68 74  |(providing light|
000042f0  29 22 3b 0a 20 20 69 66  20 28 6f 20 68 61 73 20  |)";.  if (o has |
00004300  77 6f 72 6e 29 20 20 70  72 69 6e 74 20 22 20 28  |worn)  print " (|
00004310  62 65 69 6e 67 20 77 6f  72 6e 29 22 3b 0a 20 20  |being worn)";.  |
00004320  69 66 20 28 6f 20 68 61  73 20 63 6f 6e 74 61 69  |if (o has contai|
00004330  6e 65 72 29 0a 20 20 7b  20 20 20 69 66 20 28 6c  |ner).  {   if (l|
00004340  69 73 74 6d 6f 64 65 7e  3d 32 29 20 70 72 69 6e  |istmode~=2) prin|
00004350  74 20 22 20 28 77 68 69  63 68 20 69 73 20 22 3b  |t " (which is ";|
00004360  20 65 6c 73 65 20 70 72  69 6e 74 20 22 2c 20 77  | else print ", w|
00004370  68 69 63 68 20 69 73 20  22 3b 0a 20 20 20 20 20  |hich is ";.     |
00004380  20 69 66 20 28 6f 20 68  61 73 6e 74 20 6f 70 65  | if (o hasnt ope|
00004390  6e 29 0a 20 20 20 20 20  20 7b 20 20 20 70 72 69  |n).      {   pri|
000043a0  6e 74 20 22 63 6c 6f 73  65 64 22 3b 0a 20 20 20  |nt "closed";.   |
000043b0  20 20 20 20 20 20 20 69  66 20 28 6f 20 68 61 73  |       if (o has|
000043c0  6e 74 20 74 72 61 6e 73  70 61 72 65 6e 74 29 20  |nt transparent) |
000043d0  6a 75 6d 70 20 43 64 6f  6e 65 3b 0a 20 20 20 20  |jump Cdone;.    |
000043e0  20 20 7d 0a 20 20 20 20  20 20 69 66 20 28 6f 20  |  }.      if (o |
000043f0  68 61 73 20 6f 70 65 6e  29 20 70 72 69 6e 74 20  |has open) print |
00004400  22 6f 70 65 6e 22 3b 0a  20 20 20 20 20 20 69 66  |"open";.      if|
00004410  20 28 6c 69 73 74 6d 6f  64 65 3d 3d 30 29 20 7b  | (listmode==0) {|
00004420  20 72 76 61 6c 3d 31 3b  20 6a 75 6d 70 20 43 64  | rval=1; jump Cd|
00004430  6f 6e 65 3b 20 7d 0a 20  20 20 20 20 20 6b 3d 63  |one; }.      k=c|
00004440  68 69 6c 64 72 65 6e 28  6f 29 3b 0a 20 20 20 20  |hildren(o);.    |
00004450  20 20 69 66 20 28 6b 3d  3d 30 29 0a 20 20 20 20  |  if (k==0).    |
00004460  20 20 7b 20 20 20 70 72  69 6e 74 20 22 20 62 75  |  {   print " bu|
00004470  74 20 65 6d 70 74 79 22  3b 0a 20 20 20 20 20 20  |t empty";.      |
00004480  20 20 20 20 6a 75 6d 70  20 43 64 6f 6e 65 3b 0a  |    jump Cdone;.|
00004490  20 20 20 20 20 20 7d 0a  20 20 20 20 20 20 70 72  |      }.      pr|
000044a0  69 6e 74 20 22 20 61 6e  64 20 63 6f 6e 74 61 69  |int " and contai|
000044b0  6e 73 20 22 3b 0a 20 20  20 20 20 20 69 3d 30 3b  |ns ";.      i=0;|
000044c0  0a 20 20 20 20 20 20 6f  62 6a 65 63 74 6c 6f 6f  |.      objectloo|
000044d0  70 20 28 70 20 69 6e 20  6f 29 0a 20 20 20 20 20  |p (p in o).     |
000044e0  20 7b 20 20 20 69 2b 2b  3b 20 44 65 73 63 72 69  | {   i++; Descri|
000044f0  62 65 4f 62 6a 28 70 2c  31 29 3b 0a 20 20 20 20  |beObj(p,1);.    |
00004500  20 20 20 20 20 20 69 66  20 28 69 3d 3d 6b 2d 31  |      if (i==k-1|
00004510  29 20 70 72 69 6e 74 20  22 20 61 6e 64 20 22 3b  |) print " and ";|
00004520  0a 20 20 20 20 20 20 20  20 20 20 69 66 20 28 69  |.          if (i|
00004530  3c 20 6b 2d 31 29 20 70  72 69 6e 74 20 22 2c 20  |< k-1) print ", |
00004540  22 3b 0a 20 20 20 20 20  20 7d 0a 20 20 20 20 20  |";.      }.     |
00004550  20 2e 43 64 6f 6e 65 3b  0a 20 20 20 20 20 20 69  | .Cdone;.      i|
00004560  66 20 28 6c 69 73 74 6d  6f 64 65 7e 3d 32 29 20  |f (listmode~=2) |
00004570  70 72 69 6e 74 20 22 29  22 3b 0a 20 20 7d 0a 20  |print ")";.  }. |
00004580  20 69 66 20 28 6f 20 68  61 73 20 73 75 70 70 6f  | if (o has suppo|
00004590  72 74 65 72 29 0a 20 20  7b 20 20 20 70 3d 63 68  |rter).  {   p=ch|
000045a0  69 6c 64 28 6f 29 3b 0a  20 20 20 20 20 20 69 66  |ild(o);.      if|
000045b0  20 28 70 7e 3d 30 29 0a  20 20 20 20 20 20 7b 20  | (p~=0).      { |
000045c0  20 20 69 66 20 28 6c 69  73 74 6d 6f 64 65 7e 3d  |  if (listmode~=|
000045d0  32 29 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |2).             |
000045e0  20 70 72 69 6e 74 20 22  20 28 6f 6e 20 77 68 69  | print " (on whi|
000045f0  63 68 20 22 3b 0a 20 20  20 20 20 20 20 20 20 20  |ch ";.          |
00004600  65 6c 73 65 0a 20 20 20  20 20 20 20 20 20 20 20  |else.           |
00004610  20 20 20 70 72 69 6e 74  20 22 2c 20 6f 6e 20 74  |   print ", on t|
00004620  6f 70 20 6f 66 20 77 68  69 63 68 20 22 3b 0a 20  |op of which ";. |
00004630  20 20 20 20 20 20 20 20  20 69 66 20 28 6c 69 73  |         if (lis|
00004640  74 6d 6f 64 65 3d 3d 30  29 20 7b 20 72 76 61 6c  |tmode==0) { rval|
00004650  3d 31 3b 20 6a 75 6d 70  20 53 64 6f 6e 65 3b 20  |=1; jump Sdone; |
00004660  7d 0a 20 20 20 20 20 20  20 20 20 20 6b 3d 63 68  |}.          k=ch|
00004670  69 6c 64 72 65 6e 28 6f  29 3b 20 69 3d 30 3b 0a  |ildren(o); i=0;.|
00004680  20 20 20 20 20 20 20 20  20 20 69 66 20 28 6b 3d  |          if (k=|
00004690  3d 31 29 20 70 72 69 6e  74 20 22 69 73 20 22 3b  |=1) print "is ";|
000046a0  20 65 6c 73 65 20 70 72  69 6e 74 20 22 61 72 65  | else print "are|
000046b0  20 22 3b 0a 20 20 20 20  20 20 20 20 20 20 6f 62  | ";.          ob|
000046c0  6a 65 63 74 6c 6f 6f 70  20 28 70 20 69 6e 20 6f  |jectloop (p in o|
000046d0  29 0a 20 20 20 20 20 20  20 20 20 20 7b 20 20 20  |).          {   |
000046e0  69 2b 2b 3b 0a 20 20 20  20 20 20 20 20 20 20 20  |i++;.           |
000046f0  20 20 20 44 65 73 63 72  69 62 65 4f 62 6a 28 70  |   DescribeObj(p|
00004700  2c 31 29 3b 0a 20 20 20  20 20 20 20 20 20 20 20  |,1);.           |
00004710  20 20 20 69 66 20 28 69  3d 3d 6b 2d 31 29 20 70  |   if (i==k-1) p|
00004720  72 69 6e 74 20 22 20 61  6e 64 20 22 3b 0a 20 20  |rint " and ";.  |
00004730  20 20 20 20 20 20 20 20  20 20 20 20 69 66 20 28  |            if (|
00004740  69 3c 20 6b 2d 31 29 20  70 72 69 6e 74 20 22 2c  |i< k-1) print ",|
00004750  20 22 3b 0a 20 20 20 20  20 20 20 20 20 20 7d 0a  | ";.          }.|
00004760  20 20 20 20 20 20 20 20  20 20 2e 53 44 6f 6e 65  |          .SDone|
00004770  3b 0a 20 20 20 20 20 20  20 20 20 20 69 66 20 28  |;.          if (|
00004780  6c 69 73 74 6d 6f 64 65  7e 3d 32 29 20 70 72 69  |listmode~=2) pri|
00004790  6e 74 20 22 29 22 3b 0a  20 20 20 20 20 20 7d 0a  |nt ")";.      }.|
000047a0  20 20 7d 0a 20 20 72 65  74 75 72 6e 20 72 76 61  |  }.  return rva|
000047b0  6c 3b 0a 5d 3b 0a 0a 5b  20 47 69 76 65 53 75 62  |l;.];..[ GiveSub|
000047c0  3b 0a 20 20 69 66 20 28  70 61 72 65 6e 74 28 6e  |;.  if (parent(n|
000047d0  6f 75 6e 29 7e 3d 70 6c  61 79 65 72 29 0a 20 20  |oun)~=player).  |
000047e0  7b 20 20 20 70 72 69 6e  74 20 22 59 6f 75 20 61  |{   print "You a|
000047f0  72 65 6e 27 74 20 68 6f  6c 64 69 6e 67 20 22 3b  |ren't holding ";|
00004800  20 44 65 66 41 72 74 28  6e 6f 75 6e 29 3b 20 22  | DefArt(noun); "|
00004810  2e 22 3b 20 7d 0a 20 20  69 66 20 28 73 65 63 6f  |."; }.  if (seco|
00004820  6e 64 3d 3d 70 6c 61 79  65 72 29 20 7b 20 70 72  |nd==player) { pr|
00004830  69 6e 74 20 22 59 6f 75  20 6a 75 67 67 6c 65 20  |int "You juggle |
00004840  22 3b 20 44 65 66 41 72  74 28 6e 6f 75 6e 29 3b  |"; DefArt(noun);|
00004850  0a 20 20 20 20 20 20 22  20 66 6f 72 20 61 20 77  |.      " for a w|
00004860  68 69 6c 65 2c 20 62 75  74 20 64 6f 6e 27 74 20  |hile, but don't |
00004870  61 63 68 69 65 76 65 20  6d 75 63 68 2e 22 3b 20  |achieve much."; |
00004880  7d 0a 20 20 69 66 20 28  52 75 6e 4c 69 66 65 28  |}.  if (RunLife(|
00004890  73 65 63 6f 6e 64 2c 23  23 47 69 76 65 29 7e 3d  |second,##Give)~=|
000048a0  30 29 20 72 66 61 6c 73  65 3b 0a 20 20 43 44 65  |0) rfalse;.  CDe|
000048b0  66 41 72 74 28 73 65 63  6f 6e 64 29 3b 20 22 20  |fArt(second); " |
000048c0  64 6f 65 73 6e 27 74 20  73 65 65 6d 20 69 6e 74  |doesn't seem int|
000048d0  65 72 65 73 74 65 64 2e  22 3b 0a 5d 3b 0a 0a 5b  |erested.";.];..[|
000048e0  20 47 69 76 65 52 53 75  62 3b 20 3c 47 69 76 65  | GiveRSub; <Give|
000048f0  20 73 65 63 6f 6e 64 20  6e 6f 75 6e 3e 3b 20 5d  | second noun>; ]|
00004900  3b 0a 0a 5b 20 55 6e 6c  6f 63 6b 53 75 62 3b 0a  |;..[ UnlockSub;.|
00004910  20 20 69 66 20 28 6e 6f  75 6e 20 68 61 73 6e 74  |  if (noun hasnt|
00004920  20 6c 6f 63 6b 61 62 6c  65 29 20 22 49 20 63 61  | lockable) "I ca|
00004930  6e 27 74 20 73 65 65 20  68 6f 77 20 74 6f 20 75  |n't see how to u|
00004940  6e 6c 6f 63 6b 20 74 68  61 74 2e 22 3b 0a 20 20  |nlock that.";.  |
00004950  69 66 20 28 6e 6f 75 6e  20 68 61 73 6e 74 20 6c  |if (noun hasnt l|
00004960  6f 63 6b 65 64 29 20 20  20 22 49 74 20 69 73 20  |ocked)   "It is |
00004970  69 6e 20 66 61 63 74 20  75 6e 6c 6f 63 6b 65 64  |in fact unlocked|
00004980  20 6e 6f 77 2e 22 3b 0a  20 20 69 66 20 28 6e 6f  | now.";.  if (no|
00004990  75 6e 2e 77 69 74 68 5f  6b 65 79 7e 3d 73 65 63  |un.with_key~=sec|
000049a0  6f 6e 64 29 20 22 54 68  61 74 20 64 6f 65 73 6e  |ond) "That doesn|
000049b0  27 74 20 73 65 65 6d 20  74 6f 20 66 69 74 20 74  |'t seem to fit t|
000049c0  68 65 20 6c 6f 63 6b 2e  22 3b 0a 20 20 67 69 76  |he lock.";.  giv|
000049d0  65 20 6e 6f 75 6e 20 7e  6c 6f 63 6b 65 64 3b 0a  |e noun ~locked;.|
000049e0  20 20 69 66 20 28 41 66  74 65 72 52 6f 75 74 69  |  if (AfterRouti|
000049f0  6e 65 73 28 29 3d 3d 31  29 20 72 74 72 75 65 3b  |nes()==1) rtrue;|
00004a00  0a 20 20 70 72 69 6e 74  20 22 59 6f 75 20 75 6e  |.  print "You un|
00004a10  6c 6f 63 6b 20 22 3b 20  44 65 66 41 72 74 28 6e  |lock "; DefArt(n|
00004a20  6f 75 6e 29 3b 20 22 2e  22 3b 0a 5d 3b 0a 0a 5b  |oun); ".";.];..[|
00004a30  20 4c 6f 63 6b 53 75 62  3b 0a 20 20 69 66 20 28  | LockSub;.  if (|
00004a40  6e 6f 75 6e 20 68 61 73  6e 74 20 6c 6f 63 6b 61  |noun hasnt locka|
00004a50  62 6c 65 29 20 22 49 20  63 61 6e 27 74 20 73 65  |ble) "I can't se|
00004a60  65 20 68 6f 77 20 74 6f  20 6c 6f 63 6b 20 74 68  |e how to lock th|
00004a70  61 74 2e 22 3b 0a 20 20  69 66 20 28 6e 6f 75 6e  |at.";.  if (noun|
00004a80  20 68 61 73 20 6c 6f 63  6b 65 64 29 20 20 20 20  | has locked)    |
00004a90  20 22 49 74 20 69 73 20  69 6e 20 66 61 63 74 20  | "It is in fact |
00004aa0  6c 6f 63 6b 65 64 20 6e  6f 77 2e 22 3b 0a 20 20  |locked now.";.  |
00004ab0  69 66 20 28 6e 6f 75 6e  20 68 61 73 20 6f 70 65  |if (noun has ope|
00004ac0  6e 29 20 20 20 20 20 20  20 22 46 69 72 73 74 20  |n)       "First |
00004ad0  79 6f 75 27 6c 6c 20 68  61 76 65 20 74 6f 20 63  |you'll have to c|
00004ae0  6c 6f 73 65 20 69 74 2e  22 3b 0a 20 20 69 66 20  |lose it.";.  if |
00004af0  28 6e 6f 75 6e 2e 77 69  74 68 5f 6b 65 79 7e 3d  |(noun.with_key~=|
00004b00  73 65 63 6f 6e 64 29 20  22 54 68 61 74 20 64 6f  |second) "That do|
00004b10  65 73 6e 27 74 20 73 65  65 6d 20 74 6f 20 66 69  |esn't seem to fi|
00004b20  74 20 74 68 65 20 6c 6f  63 6b 2e 22 3b 0a 20 20  |t the lock.";.  |
00004b30  67 69 76 65 20 6e 6f 75  6e 20 6c 6f 63 6b 65 64  |give noun locked|
00004b40  3b 0a 20 20 69 66 20 28  41 66 74 65 72 52 6f 75  |;.  if (AfterRou|
00004b50  74 69 6e 65 73 28 29 3d  3d 31 29 20 72 74 72 75  |tines()==1) rtru|
00004b60  65 3b 0a 20 20 70 72 69  6e 74 20 22 59 6f 75 20  |e;.  print "You |
00004b70  6c 6f 63 6b 20 22 3b 20  44 65 66 41 72 74 28 6e  |lock "; DefArt(n|
00004b80  6f 75 6e 29 3b 20 22 2e  22 3b 0a 5d 3b 0a 0a 5b  |oun); ".";.];..[|
00004b90  20 53 77 69 74 63 68 6f  6e 53 75 62 3b 0a 20 20  | SwitchonSub;.  |
00004ba0  69 66 20 28 6e 6f 75 6e  20 68 61 73 6e 74 20 73  |if (noun hasnt s|
00004bb0  77 69 74 63 68 61 62 6c  65 29 0a 20 20 20 20 20  |witchable).     |
00004bc0  20 22 54 68 61 74 27 73  20 6e 6f 74 20 73 6f 6d  | "That's not som|
00004bd0  65 74 68 69 6e 67 20 79  6f 75 20 63 61 6e 20 73  |ething you can s|
00004be0  77 69 74 63 68 2e 22 3b  0a 20 20 69 66 20 28 6e  |witch.";.  if (n|
00004bf0  6f 75 6e 20 68 61 73 20  6f 6e 29 20 22 49 74 27  |oun has on) "It'|
00004c00  73 20 61 6c 72 65 61 64  79 20 6f 6e 2e 22 3b 0a  |s already on.";.|
00004c10  20 20 67 69 76 65 20 6e  6f 75 6e 20 6f 6e 3b 0a  |  give noun on;.|
00004c20  20 20 69 66 20 28 41 66  74 65 72 52 6f 75 74 69  |  if (AfterRouti|
00004c30  6e 65 73 28 29 3d 3d 31  29 20 72 74 72 75 65 3b  |nes()==1) rtrue;|
00004c40  0a 20 20 70 72 69 6e 74  20 22 59 6f 75 20 73 77  |.  print "You sw|
00004c50  69 74 63 68 20 22 3b 20  44 65 66 41 72 74 28 6e  |itch "; DefArt(n|
00004c60  6f 75 6e 29 3b 20 22 20  6f 6e 2e 22 3b 0a 5d 3b  |oun); " on.";.];|
00004c70  0a 0a 5b 20 53 77 69 74  63 68 6f 66 66 53 75 62  |..[ SwitchoffSub|
00004c80  3b 0a 20 20 69 66 20 28  6e 6f 75 6e 20 68 61 73  |;.  if (noun has|
00004c90  6e 74 20 73 77 69 74 63  68 61 62 6c 65 29 0a 20  |nt switchable). |
00004ca0  20 20 20 20 20 22 54 68  61 74 27 73 20 6e 6f 74  |     "That's not|
00004cb0  20 73 6f 6d 65 74 68 69  6e 67 20 79 6f 75 20 63  | something you c|
00004cc0  61 6e 20 73 77 69 74 63  68 2e 22 3b 0a 20 20 69  |an switch.";.  i|
00004cd0  66 20 28 6e 6f 75 6e 20  68 61 73 6e 74 20 6f 6e  |f (noun hasnt on|
00004ce0  29 20 22 49 74 27 73 20  61 6c 72 65 61 64 79 20  |) "It's already |
00004cf0  6f 66 66 2e 22 3b 0a 20  20 67 69 76 65 20 6e 6f  |off.";.  give no|
00004d00  75 6e 20 7e 6f 6e 3b 0a  20 20 69 66 20 28 41 66  |un ~on;.  if (Af|
00004d10  74 65 72 52 6f 75 74 69  6e 65 73 28 29 3d 3d 31  |terRoutines()==1|
00004d20  29 20 72 74 72 75 65 3b  0a 20 20 70 72 69 6e 74  |) rtrue;.  print|
00004d30  20 22 59 6f 75 20 73 77  69 74 63 68 20 22 3b 20  | "You switch "; |
00004d40  44 65 66 41 72 74 28 6e  6f 75 6e 29 3b 20 22 20  |DefArt(noun); " |
00004d50  6f 66 66 2e 22 3b 0a 5d  3b 0a 0a 5b 20 4f 70 65  |off.";.];..[ Ope|
00004d60  6e 53 75 62 3b 0a 20 20  69 66 20 28 6e 6f 75 6e  |nSub;.  if (noun|
00004d70  20 68 61 73 6e 74 20 6f  70 65 6e 61 62 6c 65 29  | hasnt openable)|
00004d80  20 22 54 68 61 74 27 73  20 6e 6f 74 20 73 6f 6d  | "That's not som|
00004d90  65 74 68 69 6e 67 20 79  6f 75 20 63 61 6e 20 6f  |ething you can o|
00004da0  70 65 6e 2e 22 3b 0a 20  20 69 66 20 28 6e 6f 75  |pen.";.  if (nou|
00004db0  6e 20 68 61 73 20 6c 6f  63 6b 65 64 29 20 20 20  |n has locked)   |
00004dc0  20 20 22 49 74 20 73 65  65 6d 73 20 74 6f 20 62  |  "It seems to b|
00004dd0  65 20 6c 6f 63 6b 65 64  2e 22 3b 0a 20 20 69 66  |e locked.";.  if|
00004de0  20 28 6e 6f 75 6e 20 68  61 73 20 6f 70 65 6e 29  | (noun has open)|
00004df0  20 20 20 20 20 20 20 22  49 74 27 73 20 61 6c 72  |       "It's alr|
00004e00  65 61 64 79 20 6f 70 65  6e 2e 22 3b 0a 20 20 67  |eady open.";.  g|
00004e10  69 76 65 20 6e 6f 75 6e  20 6f 70 65 6e 3b 0a 20  |ive noun open;. |
00004e20  20 69 66 20 28 41 66 74  65 72 52 6f 75 74 69 6e  | if (AfterRoutin|
00004e30  65 73 28 29 3d 3d 31 29  20 72 74 72 75 65 3b 0a  |es()==1) rtrue;.|
00004e40  20 20 70 72 69 6e 74 20  22 59 6f 75 20 6f 70 65  |  print "You ope|
00004e50  6e 20 22 3b 20 44 65 66  41 72 74 28 6e 6f 75 6e  |n "; DefArt(noun|
00004e60  29 3b 20 22 2e 22 3b 0a  5d 3b 0a 0a 5b 20 43 6c  |); ".";.];..[ Cl|
00004e70  6f 73 65 53 75 62 3b 0a  20 20 69 66 20 28 6e 6f  |oseSub;.  if (no|
00004e80  75 6e 20 68 61 73 6e 74  20 6f 70 65 6e 61 62 6c  |un hasnt openabl|
00004e90  65 29 20 22 54 68 61 74  27 73 20 6e 6f 74 20 73  |e) "That's not s|
00004ea0  6f 6d 65 74 68 69 6e 67  20 79 6f 75 20 63 61 6e  |omething you can|
00004eb0  20 63 6c 6f 73 65 2e 22  3b 0a 20 20 69 66 20 28  | close.";.  if (|
00004ec0  6e 6f 75 6e 20 68 61 73  6e 74 20 6f 70 65 6e 29  |noun hasnt open)|
00004ed0  20 20 20 20 20 22 49 74  27 73 20 61 6c 72 65 61  |     "It's alrea|
00004ee0  64 79 20 63 6c 6f 73 65  64 2e 22 3b 0a 20 20 67  |dy closed.";.  g|
00004ef0  69 76 65 20 6e 6f 75 6e  20 7e 6f 70 65 6e 3b 0a  |ive noun ~open;.|
00004f00  20 20 69 66 20 28 41 66  74 65 72 52 6f 75 74 69  |  if (AfterRouti|
00004f10  6e 65 73 28 29 3d 3d 31  29 20 72 74 72 75 65 3b  |nes()==1) rtrue;|
00004f20  0a 20 20 70 72 69 6e 74  20 22 59 6f 75 20 63 6c  |.  print "You cl|
00004f30  6f 73 65 20 22 3b 20 44  65 66 41 72 74 28 6e 6f  |ose "; DefArt(no|
00004f40  75 6e 29 3b 20 22 2e 22  3b 0a 5d 3b 0a 0a 5b 20  |un); ".";.];..[ |
00004f50  44 69 73 72 6f 62 65 53  75 62 3b 0a 20 20 69 66  |DisrobeSub;.  if|
00004f60  20 28 6e 6f 75 6e 20 68  61 73 6e 74 20 77 6f 72  | (noun hasnt wor|
00004f70  6e 29 20 22 59 6f 75 27  72 65 20 6e 6f 74 20 77  |n) "You're not w|
00004f80  65 61 72 69 6e 67 20 74  68 61 74 2e 22 3b 0a 20  |earing that.";. |
00004f90  20 67 69 76 65 20 6e 6f  75 6e 20 7e 77 6f 72 6e  | give noun ~worn|
00004fa0  3b 0a 20 20 69 66 20 28  41 66 74 65 72 52 6f 75  |;.  if (AfterRou|
00004fb0  74 69 6e 65 73 28 29 3d  3d 31 29 20 72 74 72 75  |tines()==1) rtru|
00004fc0  65 3b 0a 20 20 70 72 69  6e 74 20 22 59 6f 75 20  |e;.  print "You |
00004fd0  74 61 6b 65 20 6f 66 66  20 22 3b 20 44 65 66 41  |take off "; DefA|
00004fe0  72 74 28 6e 6f 75 6e 29  3b 20 70 72 69 6e 74 20  |rt(noun); print |
00004ff0  22 2e 5e 22 3b 0a 5d 3b  0a 0a 5b 20 57 65 61 72  |".^";.];..[ Wear|
00005000  53 75 62 3b 0a 20 20 69  66 20 28 6e 6f 75 6e 20  |Sub;.  if (noun |
00005010  68 61 73 6e 74 20 63 6c  6f 74 68 69 6e 67 29 20  |hasnt clothing) |
00005020  20 22 59 6f 75 20 63 61  6e 27 74 20 77 65 61 72  | "You can't wear|
00005030  20 74 68 61 74 21 22 3b  0a 20 20 69 66 20 28 70  | that!";.  if (p|
00005040  61 72 65 6e 74 28 6e 6f  75 6e 29 7e 3d 70 6c 61  |arent(noun)~=pla|
00005050  79 65 72 29 20 22 59 6f  75 27 72 65 20 6e 6f 74  |yer) "You're not|
00005060  20 68 6f 6c 64 69 6e 67  20 74 68 61 74 21 22 3b  | holding that!";|
00005070  0a 20 20 69 66 20 28 6e  6f 75 6e 20 68 61 73 20  |.  if (noun has |
00005080  77 6f 72 6e 29 20 20 20  20 20 20 20 20 22 59 6f  |worn)        "Yo|
00005090  75 27 72 65 20 61 6c 72  65 61 64 79 20 77 65 61  |u're already wea|
000050a0  72 69 6e 67 20 74 68 61  74 21 22 3b 0a 20 20 67  |ring that!";.  g|
000050b0  69 76 65 20 6e 6f 75 6e  20 77 6f 72 6e 3b 0a 20  |ive noun worn;. |
000050c0  20 69 66 20 28 41 66 74  65 72 52 6f 75 74 69 6e  | if (AfterRoutin|
000050d0  65 73 28 29 3d 3d 31 29  20 72 74 72 75 65 3b 0a  |es()==1) rtrue;.|
000050e0  20 20 70 72 69 6e 74 20  22 59 6f 75 20 70 75 74  |  print "You put|
000050f0  20 6f 6e 20 22 3b 20 44  65 66 41 72 74 28 6e 6f  | on "; DefArt(no|
00005100  75 6e 29 3b 20 70 72 69  6e 74 20 22 2e 5e 22 3b  |un); print ".^";|
00005110  0a 5d 3b 0a 0a 5b 20 45  61 74 53 75 62 3b 0a 20  |.];..[ EatSub;. |
00005120  20 69 66 20 28 6e 6f 75  6e 20 68 61 73 6e 74 20  | if (noun hasnt |
00005130  65 64 69 62 6c 65 29 20  20 20 20 22 4e 6f 2c 20  |edible)    "No, |
00005140  69 74 27 73 20 70 6c 61  69 6e 6c 79 20 69 6e 65  |it's plainly ine|
00005150  64 69 62 6c 65 2e 22 3b  0a 20 20 72 65 6d 6f 76  |dible.";.  remov|
00005160  65 20 6e 6f 75 6e 3b 0a  20 20 69 66 20 28 41 66  |e noun;.  if (Af|
00005170  74 65 72 52 6f 75 74 69  6e 65 73 28 29 3d 3d 31  |terRoutines()==1|
00005180  29 20 72 74 72 75 65 3b  0a 20 20 70 72 69 6e 74  |) rtrue;.  print|
00005190  20 22 59 6f 75 20 65 61  74 20 22 3b 20 44 65 66  | "You eat "; Def|
000051a0  41 72 74 28 6e 6f 75 6e  29 3b 20 22 2e 20 20 4e  |Art(noun); ".  N|
000051b0  6f 74 20 62 61 64 2e 22  3b 0a 5d 3b 0a 0a 5b 20  |ot bad.";.];..[ |
000051c0  59 65 73 53 75 62 3b 0a  20 20 22 54 68 61 74 20  |YesSub;.  "That |
000051d0  77 61 73 20 61 20 72 68  65 74 6f 72 69 63 61 6c  |was a rhetorical|
000051e0  20 71 75 65 73 74 69 6f  6e 2e 22 3b 0a 5d 3b 0a  | question.";.];.|
000051f0  0a 5b 20 4e 6f 53 75 62  3b 0a 20 20 22 54 68 61  |.[ NoSub;.  "Tha|
00005200  74 20 77 61 73 20 61 20  72 68 65 74 6f 72 69 63  |t was a rhetoric|
00005210  61 6c 20 71 75 65 73 74  69 6f 6e 2e 22 3b 0a 5d  |al question.";.]|
00005220  3b 0a 0a 5b 20 42 75 72  6e 53 75 62 3b 0a 20 20  |;..[ BurnSub;.  |
00005230  22 49 6e 20 74 68 69 73  20 67 61 6d 65 2c 20 61  |"In this game, a|
00005240  72 73 6f 6e 20 69 73 20  28 75 73 75 61 6c 6c 79  |rson is (usually|
00005250  29 20 66 6f 72 62 69 64  64 65 6e 2e 22 3b 0a 5d  |) forbidden.";.]|
00005260  3b 0a 0a 5b 20 50 72 61  79 53 75 62 3b 0a 20 20  |;..[ PraySub;.  |
00005270  22 53 70 6f 6f 6b 79 21  20 20 46 6f 72 20 61 20  |"Spooky!  For a |
00005280  6d 6f 6d 65 6e 74 20 74  68 65 72 65 2c 20 61 20  |moment there, a |
00005290  64 65 65 70 20 76 6f 69  63 65 20 73 65 65 6d 65  |deep voice seeme|
000052a0  64 20 5c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |d \.            |
000052b0  20 74 6f 20 73 61 79 20  7e 79 6f 75 27 72 65 20  | to say ~you're |
000052c0  6f 6e 20 79 6f 75 72 20  6f 77 6e 7e 2e 22 3b 0a  |on your own~.";.|
000052d0  5d 3b 0a 0a 5b 20 57 61  6b 65 53 75 62 3b 0a 20  |];..[ WakeSub;. |
000052e0  20 22 54 68 65 20 64 72  65 61 64 66 75 6c 20 74  | "The dreadful t|
000052f0  72 75 74 68 20 69 73 2c  20 74 68 69 73 20 69 73  |ruth is, this is|
00005300  20 6e 6f 74 20 61 20 64  72 65 61 6d 2e 22 3b 0a  | not a dream.";.|
00005310  5d 3b 0a 0a 5b 20 57 61  6b 65 4f 74 68 65 72 53  |];..[ WakeOtherS|
00005320  75 62 3b 0a 20 20 22 54  68 61 74 20 73 65 65 6d  |ub;.  "That seem|
00005330  73 20 75 6e 6e 65 63 65  73 73 61 72 79 2e 22 3b  |s unnecessary.";|
00005340  0a 5d 3b 0a 0a 5b 20 4b  69 73 73 53 75 62 3b 0a  |.];..[ KissSub;.|
00005350  20 20 69 66 20 28 52 75  6e 4c 69 66 65 28 6e 6f  |  if (RunLife(no|
00005360  75 6e 2c 23 23 4b 69 73  73 29 7e 3d 30 29 20 72  |un,##Kiss)~=0) r|
00005370  66 61 6c 73 65 3b 0a 20  20 22 4b 65 65 70 20 79  |false;.  "Keep y|
00005380  6f 75 72 20 6d 69 6e 64  20 6f 6e 20 74 68 65 20  |our mind on the |
00005390  67 61 6d 65 2e 22 3b 0a  5d 3b 0a 0a 5b 20 54 68  |game.";.];..[ Th|
000053a0  69 6e 6b 53 75 62 3b 0a  20 20 22 57 68 61 74 20  |inkSub;.  "What |
000053b0  61 20 67 6f 6f 64 20 69  64 65 61 2e 22 3b 0a 5d  |a good idea.";.]|
000053c0  3b 0a 0a 5b 20 53 6d 65  6c 6c 53 75 62 3b 0a 20  |;..[ SmellSub;. |
000053d0  20 22 59 6f 75 20 73 6d  65 6c 6c 20 6e 6f 74 68  | "You smell noth|
000053e0  69 6e 67 20 75 6e 65 78  70 65 63 74 65 64 2e 22  |ing unexpected."|
000053f0  3b 0a 5d 3b 0a 0a 5b 20  4c 69 73 74 65 6e 53 75  |;.];..[ ListenSu|
00005400  62 3b 0a 20 20 22 59 6f  75 20 68 65 61 72 20 6e  |b;.  "You hear n|
00005410  6f 74 68 69 6e 67 20 75  6e 65 78 70 65 63 74 65  |othing unexpecte|
00005420  64 2e 22 3b 0a 5d 3b 0a  0a 5b 20 54 61 73 74 65  |d.";.];..[ Taste|
00005430  53 75 62 3b 0a 20 20 22  59 6f 75 20 74 61 73 74  |Sub;.  "You tast|
00005440  65 20 6e 6f 74 68 69 6e  67 20 75 6e 65 78 70 65  |e nothing unexpe|
00005450  63 74 65 64 2e 22 3b 0a  5d 3b 0a 0a 5b 20 54 6f  |cted.";.];..[ To|
00005460  75 63 68 53 75 62 3b 0a  20 20 22 59 6f 75 20 66  |uchSub;.  "You f|
00005470  65 65 6c 20 6e 6f 74 68  69 6e 67 20 75 6e 65 78  |eel nothing unex|
00005480  70 65 63 74 65 64 2e 22  3b 0a 5d 3b 0a 0a 5b 20  |pected.";.];..[ |
00005490  54 6f 75 63 68 54 68 69  6e 67 53 75 62 3b 0a 20  |TouchThingSub;. |
000054a0  20 69 66 20 28 6e 6f 75  6e 20 68 61 73 20 61 6e  | if (noun has an|
000054b0  69 6d 61 74 65 29 20 22  4b 65 65 70 20 79 6f 75  |imate) "Keep you|
000054c0  72 20 68 61 6e 64 73 20  74 6f 20 79 6f 75 72 73  |r hands to yours|
000054d0  65 6c 66 21 22 3b 0a 20  20 22 59 6f 75 20 66 65  |elf!";.  "You fe|
000054e0  65 6c 20 6e 6f 74 68 69  6e 67 20 75 6e 65 78 70  |el nothing unexp|
000054f0  65 63 74 65 64 2e 22 3b  0a 5d 3b 0a 0a 5b 20 44  |ected.";.];..[ D|
00005500  69 67 53 75 62 3b 0a 20  20 22 54 68 65 20 67 72  |igSub;.  "The gr|
00005510  6f 75 6e 64 20 69 73 20  75 6e 73 75 69 74 61 62  |ound is unsuitab|
00005520  6c 65 20 66 6f 72 20 64  69 67 67 69 6e 67 20 68  |le for digging h|
00005530  65 72 65 2e 22 3b 0a 5d  3b 0a 0a 5b 20 43 75 74  |ere.";.];..[ Cut|
00005540  53 75 62 3b 0a 20 20 22  49 6e 20 74 68 69 73 20  |Sub;.  "In this |
00005550  67 61 6d 65 2c 20 63 75  74 74 69 6e 67 20 74 68  |game, cutting th|
00005560  69 6e 67 73 20 75 70 20  69 73 20 6e 65 76 65 72  |ings up is never|
00005570  20 68 65 6c 70 66 75 6c  2e 22 3b 0a 5d 3b 0a 0a  | helpful.";.];..|
00005580  5b 20 4a 75 6d 70 53 75  62 3b 0a 20 20 22 59 6f  |[ JumpSub;.  "Yo|
00005590  75 20 6a 75 6d 70 20 6f  6e 20 74 68 65 20 73 70  |u jump on the sp|
000055a0  6f 74 2c 20 66 72 75 69  74 6c 65 73 73 6c 79 2e  |ot, fruitlessly.|
000055b0  22 3b 0a 5d 3b 0a 0a 5b  20 4a 75 6d 70 4f 76 65  |";.];..[ JumpOve|
000055c0  72 53 75 62 3b 0a 20 20  22 59 6f 75 20 77 6f 75  |rSub;.  "You wou|
000055d0  6c 64 20 61 63 68 69 65  76 65 20 6e 6f 74 68 69  |ld achieve nothi|
000055e0  6e 67 20 62 79 20 74 68  69 73 2e 22 3b 0a 5d 3b  |ng by this.";.];|
000055f0  0a 0a 5b 20 54 69 65 53  75 62 3b 0a 20 20 22 59  |..[ TieSub;.  "Y|
00005600  6f 75 20 77 6f 75 6c 64  20 61 63 68 69 65 76 65  |ou would achieve|
00005610  20 6e 6f 74 68 69 6e 67  20 62 79 20 74 68 69 73  | nothing by this|
00005620  2e 22 3b 0a 5d 3b 0a 0a  5b 20 44 72 69 6e 6b 53  |.";.];..[ DrinkS|
00005630  75 62 3b 0a 20 20 22 54  68 65 72 65 27 73 20 6e  |ub;.  "There's n|
00005640  6f 74 68 69 6e 67 20 73  75 69 74 61 62 6c 65 20  |othing suitable |
00005650  74 6f 20 64 72 69 6e 6b  20 68 65 72 65 2e 22 3b  |to drink here.";|
00005660  0a 5d 3b 0a 0a 5b 20 46  69 6c 6c 53 75 62 3b 0a  |.];..[ FillSub;.|
00005670  20 20 22 42 75 74 20 74  68 65 72 65 27 73 20 6e  |  "But there's n|
00005680  6f 20 77 61 74 65 72 20  68 65 72 65 20 74 6f 20  |o water here to |
00005690  63 61 72 72 79 2e 22 3b  0a 5d 3b 0a 0a 5b 20 53  |carry.";.];..[ S|
000056a0  6f 72 72 79 53 75 62 3b  0a 20 20 22 4f 68 2c 20  |orrySub;.  "Oh, |
000056b0  64 6f 6e 27 74 20 61 70  6f 6c 6f 67 69 73 65 2e  |don't apologise.|
000056c0  22 3b 0a 5d 3b 0a 0a 5b  20 53 74 72 6f 6e 67 53  |";.];..[ StrongS|
000056d0  75 62 3b 0a 20 20 22 44  69 73 67 72 61 63 65 66  |ub;.  "Disgracef|
000056e0  75 6c 21 20 20 4f 6e 63  65 20 75 70 6f 6e 20 61  |ul!  Once upon a|
000056f0  20 74 69 6d 65 20 61 64  76 65 6e 74 75 72 65 72  | time adventurer|
00005700  73 20 68 61 64 20 6d 6f  72 61 6c 20 73 74 61 6e  |s had moral stan|
00005710  64 61 72 64 73 2e 22 3b  0a 5d 3b 0a 0a 5b 20 4d  |dards.";.];..[ M|
00005720  69 6c 64 53 75 62 3b 0a  20 20 22 51 75 69 74 65  |ildSub;.  "Quite|
00005730  2e 22 3b 0a 5d 3b 0a 0a  5b 20 41 74 74 61 63 6b  |.";.];..[ Attack|
00005740  53 75 62 3b 0a 20 20 69  66 20 28 6e 6f 75 6e 20  |Sub;.  if (noun |
00005750  68 61 73 20 61 6e 69 6d  61 74 65 20 26 26 20 52  |has animate && R|
00005760  75 6e 4c 69 66 65 28 6e  6f 75 6e 2c 23 23 41 74  |unLife(noun,##At|
00005770  74 61 63 6b 29 7e 3d 30  29 20 72 66 61 6c 73 65  |tack)~=0) rfalse|
00005780  3b 0a 20 20 22 56 69 6f  6c 65 6e 63 65 20 69 73  |;.  "Violence is|
00005790  6e 27 74 20 74 68 65 20  61 6e 73 77 65 72 2c 20  |n't the answer, |
000057a0  79 6f 75 20 6b 6e 6f 77  2e 22 3b 0a 5d 3b 0a 0a  |you know.";.];..|
000057b0  5b 20 53 77 69 6d 53 75  62 3b 0a 20 20 22 54 68  |[ SwimSub;.  "Th|
000057c0  65 72 65 27 73 20 6e 6f  74 20 65 6e 6f 75 67 68  |ere's not enough|
000057d0  20 77 61 74 65 72 20 74  6f 20 73 77 69 6d 20 69  | water to swim i|
000057e0  6e 2e 22 3b 0a 5d 3b 0a  0a 5b 20 53 77 69 6e 67  |n.";.];..[ Swing|
000057f0  53 75 62 3b 0a 20 20 22  54 68 65 72 65 27 73 20  |Sub;.  "There's |
00005800  6e 6f 74 68 69 6e 67 20  73 65 6e 73 69 62 6c 65  |nothing sensible|
00005810  20 74 6f 20 73 77 69 6e  67 20 68 65 72 65 2e 22  | to swing here."|
00005820  3b 0a 5d 3b 0a 0a 5b 20  42 6c 6f 77 53 75 62 3b  |;.];..[ BlowSub;|
00005830  0a 20 20 22 59 6f 75 20  63 61 6e 27 74 20 75 73  |.  "You can't us|
00005840  65 66 75 6c 6c 79 20 62  6c 6f 77 20 74 68 61 74  |efully blow that|
00005850  2e 22 3b 0a 5d 3b 0a 0a  5b 20 52 75 62 53 75 62  |.";.];..[ RubSub|
00005860  3b 0a 20 20 22 59 6f 75  20 61 63 68 69 65 76 65  |;.  "You achieve|
00005870  20 6e 6f 74 68 69 6e 67  20 62 79 20 74 68 69 73  | nothing by this|
00005880  2e 22 3b 0a 5d 3b 0a 0a  5b 20 53 65 74 53 75 62  |.";.];..[ SetSub|
00005890  3b 0a 20 20 22 4e 6f 2c  20 79 6f 75 20 63 61 6e  |;.  "No, you can|
000058a0  27 74 20 73 65 74 20 74  68 61 74 2e 22 3b 0a 5d  |'t set that.";.]|
000058b0  3b 0a 0a 5b 20 53 65 74  54 6f 53 75 62 3b 0a 20  |;..[ SetToSub;. |
000058c0  20 22 4e 6f 2c 20 79 6f  75 20 63 61 6e 27 74 20  | "No, you can't |
000058d0  73 65 74 20 74 68 61 74  20 74 6f 20 61 6e 79 74  |set that to anyt|
000058e0  68 69 6e 67 2e 22 3b 0a  5d 3b 0a 0a 5b 20 57 61  |hing.";.];..[ Wa|
000058f0  76 65 48 61 6e 64 73 53  75 62 3b 0a 20 20 22 59  |veHandsSub;.  "Y|
00005900  6f 75 20 77 61 76 65 2c  20 66 65 65 6c 69 6e 67  |ou wave, feeling|
00005910  20 66 6f 6f 6c 69 73 68  2e 22 3b 0a 5d 3b 0a 0a  | foolish.";.];..|
00005920  5b 20 57 61 76 65 53 75  62 3b 0a 20 20 69 66 20  |[ WaveSub;.  if |
00005930  28 70 61 72 65 6e 74 28  6e 6f 75 6e 29 7e 3d 70  |(parent(noun)~=p|
00005940  6c 61 79 65 72 29 20 22  42 75 74 20 79 6f 75 20  |layer) "But you |
00005950  61 72 65 6e 27 74 20 68  6f 6c 64 69 6e 67 20 74  |aren't holding t|
00005960  68 61 74 2e 22 3b 0a 20  20 70 72 69 6e 74 20 22  |hat.";.  print "|
00005970  59 6f 75 20 6c 6f 6f 6b  20 72 69 64 69 63 75 6c  |You look ridicul|
00005980  6f 75 73 20 77 61 76 69  6e 67 20 22 3b 20 44 65  |ous waving "; De|
00005990  66 41 72 74 28 6e 6f 75  6e 29 3b 20 22 2e 22 3b  |fArt(noun); ".";|
000059a0  0a 5d 3b 0a 0a 5b 20 50  75 6c 6c 53 75 62 3b 0a  |.];..[ PullSub;.|
000059b0  20 20 69 66 20 28 6e 6f  75 6e 20 68 61 73 20 73  |  if (noun has s|
000059c0  74 61 74 69 63 29 20 20  20 22 49 74 20 69 73 20  |tatic)   "It is |
000059d0  66 69 78 65 64 20 69 6e  20 70 6c 61 63 65 2e 22  |fixed in place."|
000059e0  3b 0a 20 20 69 66 20 28  6e 6f 75 6e 20 68 61 73  |;.  if (noun has|
000059f0  20 73 63 65 6e 65 72 79  29 20 20 22 59 6f 75 20  | scenery)  "You |
00005a00  61 72 65 20 75 6e 61 62  6c 65 20 74 6f 2e 22 3b  |are unable to.";|
00005a10  0a 20 20 22 4e 6f 74 68  69 6e 67 20 6f 62 76 69  |.  "Nothing obvi|
00005a20  6f 75 73 20 68 61 70 70  65 6e 73 2e 22 3b 0a 5d  |ous happens.";.]|
00005a30  3b 0a 0a 5b 20 50 75 73  68 53 75 62 3b 0a 20 20  |;..[ PushSub;.  |
00005a40  69 66 20 28 6e 6f 75 6e  20 68 61 73 20 73 74 61  |if (noun has sta|
00005a50  74 69 63 29 20 20 20 22  49 74 20 69 73 20 66 69  |tic)   "It is fi|
00005a60  78 65 64 20 69 6e 20 70  6c 61 63 65 2e 22 3b 0a  |xed in place.";.|
00005a70  20 20 69 66 20 28 6e 6f  75 6e 20 68 61 73 20 73  |  if (noun has s|
00005a80  63 65 6e 65 72 79 29 20  20 22 59 6f 75 20 61 72  |cenery)  "You ar|
00005a90  65 20 75 6e 61 62 6c 65  20 74 6f 2e 22 3b 0a 20  |e unable to.";. |
00005aa0  20 22 4e 6f 74 68 69 6e  67 20 6f 62 76 69 6f 75  | "Nothing obviou|
00005ab0  73 20 68 61 70 70 65 6e  73 2e 22 3b 0a 5d 3b 0a  |s happens.";.];.|
00005ac0  0a 5b 20 41 6c 6c 6f 77  50 75 73 68 44 69 72 20  |.[ AllowPushDir |
00005ad0  69 3b 0a 20 20 69 66 20  28 70 61 72 65 6e 74 28  |i;.  if (parent(|
00005ae0  73 65 63 6f 6e 64 29 7e  3d 63 6f 6d 70 61 73 73  |second)~=compass|
00005af0  29 20 22 54 68 61 74 27  73 20 6e 6f 74 20 61 20  |) "That's not a |
00005b00  64 69 72 65 63 74 69 6f  6e 2e 22 3b 0a 20 20 69  |direction.";.  i|
00005b10  66 20 28 73 65 63 6f 6e  64 3d 3d 75 5f 6f 62 6a  |f (second==u_obj|
00005b20  20 6f 72 20 64 5f 6f 62  6a 29 20 20 22 4e 6f 74  | or d_obj)  "Not|
00005b30  20 74 68 61 74 20 77 61  79 20 79 6f 75 20 63 61  | that way you ca|
00005b40  6e 27 74 2e 22 3b 0a 20  20 41 66 74 65 72 52 6f  |n't.";.  AfterRo|
00005b50  75 74 69 6e 65 73 28 29  3b 0a 20 20 69 3d 6e 6f  |utines();.  i=no|
00005b60  75 6e 3b 20 3c 47 6f 20  73 65 63 6f 6e 64 3e 3b  |un; <Go second>;|
00005b70  20 6d 6f 76 65 20 69 20  74 6f 20 6c 6f 63 61 74  | move i to locat|
00005b80  69 6f 6e 3b 0a 5d 3b 0a  0a 5b 20 50 75 73 68 44  |ion;.];..[ PushD|
00005b90  69 72 53 75 62 3b 20 20  20 20 20 20 20 20 20 20  |irSub;          |
00005ba0  0a 20 20 22 49 73 20 74  68 61 74 20 74 68 65 20  |.  "Is that the |
00005bb0  62 65 73 74 20 79 6f 75  20 63 61 6e 20 74 68 69  |best you can thi|
00005bc0  6e 6b 20 6f 66 3f 22 3b  0a 5d 3b 0a 0a 5b 20 54  |nk of?";.];..[ T|
00005bd0  75 72 6e 53 75 62 3b 0a  20 20 69 66 20 28 6e 6f  |urnSub;.  if (no|
00005be0  75 6e 20 68 61 73 20 73  74 61 74 69 63 29 20 20  |un has static)  |
00005bf0  22 49 74 20 69 73 20 66  69 78 65 64 20 69 6e 20  |"It is fixed in |
00005c00  70 6c 61 63 65 2e 22 3b  0a 20 20 69 66 20 28 6e  |place.";.  if (n|
00005c10  6f 75 6e 20 68 61 73 20  73 63 65 6e 65 72 79 29  |oun has scenery)|
00005c20  20 22 59 6f 75 20 61 72  65 20 75 6e 61 62 6c 65  | "You are unable|
00005c30  20 74 6f 2e 22 3b 0a 20  20 22 4e 6f 74 68 69 6e  | to.";.  "Nothin|
00005c40  67 20 6f 62 76 69 6f 75  73 20 68 61 70 70 65 6e  |g obvious happen|
00005c50  73 2e 22 3b 0a 5d 3b 0a  0a 5b 20 53 71 75 65 65  |s.";.];..[ Squee|
00005c60  7a 65 53 75 62 3b 0a 20  20 69 66 20 28 6e 6f 75  |zeSub;.  if (nou|
00005c70  6e 20 68 61 73 20 61 6e  69 6d 61 74 65 29 20 22  |n has animate) "|
00005c80  4b 65 65 70 20 79 6f 75  72 20 68 61 6e 64 73 20  |Keep your hands |
00005c90  74 6f 20 79 6f 75 72 73  65 6c 66 2e 22 3b 0a 20  |to yourself.";. |
00005ca0  20 22 59 6f 75 20 61 63  68 69 65 76 65 20 6e 6f  | "You achieve no|
00005cb0  74 68 69 6e 67 20 62 79  20 74 68 69 73 2e 22 3b  |thing by this.";|
00005cc0  0a 5d 3b 0a 0a 5b 20 4c  6f 6f 6b 55 6e 64 65 72  |.];..[ LookUnder|
00005cd0  53 75 62 3b 0a 20 20 22  59 6f 75 20 66 69 6e 64  |Sub;.  "You find|
00005ce0  20 6e 6f 74 68 69 6e 67  20 6f 66 20 69 6e 74 65  | nothing of inte|
00005cf0  72 65 73 74 2e 22 3b 0a  5d 3b 0a 0a 5b 20 53 65  |rest.";.];..[ Se|
00005d00  61 72 63 68 53 75 62 3b  0a 20 20 69 66 20 28 6e  |archSub;.  if (n|
00005d10  6f 75 6e 20 68 61 73 6e  74 20 63 6f 6e 74 61 69  |oun hasnt contai|
00005d20  6e 65 72 29 0a 20 20 20  20 20 20 22 59 6f 75 20  |ner).      "You |
00005d30  66 69 6e 64 20 6e 6f 74  68 69 6e 67 20 6f 66 20  |find nothing of |
00005d40  69 6e 74 65 72 65 73 74  2e 22 3b 0a 20 20 69 66  |interest.";.  if|
00005d50  20 28 6e 6f 75 6e 20 68  61 73 6e 74 20 74 72 61  | (noun hasnt tra|
00005d60  6e 73 70 61 72 65 6e 74  20 26 26 20 6e 6f 75 6e  |nsparent && noun|
00005d70  20 68 61 73 6e 74 20 6f  70 65 6e 29 0a 20 20 20  | hasnt open).   |
00005d80  20 20 20 22 59 6f 75 20  63 61 6e 27 74 20 73 65  |   "You can't se|
00005d90  65 20 69 6e 73 69 64 65  2c 20 73 69 6e 63 65 20  |e inside, since |
00005da0  69 74 20 69 73 20 63 6c  6f 73 65 64 2e 22 3b 0a  |it is closed.";.|
00005db0  20 20 69 66 20 28 41 66  74 65 72 52 6f 75 74 69  |  if (AfterRouti|
00005dc0  6e 65 73 28 29 3d 3d 31  29 20 72 74 72 75 65 3b  |nes()==1) rtrue;|
00005dd0  0a 20 20 70 72 69 6e 74  20 22 59 6f 75 20 70 65  |.  print "You pe|
00005de0  65 72 20 61 74 20 22 3b  20 44 65 73 63 72 69 62  |er at "; Describ|
00005df0  65 4f 62 6a 28 6e 6f 75  6e 2c 32 29 3b 20 22 2e  |eObj(noun,2); ".|
00005e00  22 3b 0a 5d 3b 0a 0a 5b  20 54 68 72 6f 77 41 74  |";.];..[ ThrowAt|
00005e10  53 75 62 3b 0a 20 20 69  66 20 28 73 65 63 6f 6e  |Sub;.  if (secon|
00005e20  64 20 68 61 73 6e 74 20  61 6e 69 6d 61 74 65 29  |d hasnt animate)|
00005e30  20 22 46 75 74 69 6c 65  2e 22 3b 0a 20 20 69 66  | "Futile.";.  if|
00005e40  20 28 52 75 6e 4c 69 66  65 28 73 65 63 6f 6e 64  | (RunLife(second|
00005e50  2c 23 23 54 68 72 6f 77  41 74 29 7e 3d 30 29 20  |,##ThrowAt)~=0) |
00005e60  72 66 61 6c 73 65 3b 0a  20 20 22 59 6f 75 20 6c  |rfalse;.  "You l|
00005e70  61 63 6b 20 74 68 65 20  6e 65 72 76 65 20 77 68  |ack the nerve wh|
00005e80  65 6e 20 69 74 20 63 6f  6d 65 73 20 74 6f 20 74  |en it comes to t|
00005e90  68 65 20 63 72 75 63 69  61 6c 20 6d 6f 6d 65 6e  |he crucial momen|
00005ea0  74 2e 22 3b 0a 5d 3b 0a  0a 5b 20 41 6e 73 77 65  |t.";.];..[ Answe|
00005eb0  72 53 75 62 3b 0a 20 20  69 6e 70 31 3d 73 70 65  |rSub;.  inp1=spe|
00005ec0  63 69 61 6c 5f 77 6f 72  64 3b 0a 20 20 69 66 20  |cial_word;.  if |
00005ed0  28 52 75 6e 4c 69 66 65  28 73 65 63 6f 6e 64 2c  |(RunLife(second,|
00005ee0  23 23 41 6e 73 77 65 72  29 7e 3d 30 29 20 72 66  |##Answer)~=0) rf|
00005ef0  61 6c 73 65 3b 0a 20 20  22 4e 6f 20 72 65 70 6c  |alse;.  "No repl|
00005f00  79 2e 22 3b 0a 5d 3b 20  20 0a 0a 5b 20 42 75 79  |y.";.];  ..[ Buy|
00005f10  53 75 62 3b 0a 20 20 22  4e 6f 74 68 69 6e 67 20  |Sub;.  "Nothing |
00005f20  69 73 20 6f 6e 20 73 61  6c 65 2e 22 3b 0a 5d 3b  |is on sale.";.];|
00005f30  0a 0a 5b 20 41 73 6b 53  75 62 3b 0a 20 20 69 6e  |..[ AskSub;.  in|
00005f40  70 31 3d 73 70 65 63 69  61 6c 5f 77 6f 72 64 3b  |p1=special_word;|
00005f50  0a 20 20 69 66 20 28 52  75 6e 4c 69 66 65 28 6e  |.  if (RunLife(n|
00005f60  6f 75 6e 2c 23 23 41 73  6b 29 7e 3d 30 29 20 72  |oun,##Ask)~=0) r|
00005f70  66 61 6c 73 65 3b 0a 20  20 22 4e 6f 20 72 65 70  |false;.  "No rep|
00005f80  6c 79 2e 22 3b 0a 5d 3b  20 20 0a 0a 5b 20 53 69  |ly.";.];  ..[ Si|
00005f90  6e 67 53 75 62 3b 0a 20  20 69 66 20 28 72 61 6e  |ngSub;.  if (ran|
00005fa0  64 6f 6d 28 32 29 3d 3d  31 29 20 70 72 69 6e 74  |dom(2)==1) print|
00005fb0  20 22 59 6f 75 72 20 79  6f 64 65 6c 6c 69 6e 67  | "Your yodelling|
00005fc0  20 22 3b 0a 20 20 65 6c  73 65 20 70 72 69 6e 74  | ";.  else print|
00005fd0  20 22 59 6f 75 72 20 73  69 6e 67 69 6e 67 20 22  | "Your singing "|
00005fe0  3b 0a 20 20 22 69 73 20  61 74 72 6f 63 69 6f 75  |;.  "is atrociou|
00005ff0  73 2c 20 69 66 20 79 6f  75 20 73 61 79 20 73 6f  |s, if you say so|
00006000  20 79 6f 75 72 73 65 6c  66 2e 22 3b 0a 5d 3b 0a  | yourself.";.];.|
00006010  0a 5b 20 43 6c 69 6d 62  53 75 62 3b 0a 20 20 22  |.[ ClimbSub;.  "|
00006020  49 20 64 6f 6e 27 74 20  74 68 69 6e 6b 20 6d 75  |I don't think mu|
00006030  63 68 20 69 73 20 74 6f  20 62 65 20 61 63 68 69  |ch is to be achi|
00006040  65 76 65 64 20 62 79 20  74 68 61 74 2e 22 3b 0a  |eved by that.";.|
00006050  5d 3b 20 20 0a 0a 5b 20  57 61 69 74 53 75 62 3b  |];  ..[ WaitSub;|
00006060  0a 20 20 69 66 20 28 4c  41 66 74 65 72 52 6f 75  |.  if (LAfterRou|
00006070  74 69 6e 65 73 28 29 3d  3d 31 29 20 72 74 72 75  |tines()==1) rtru|
00006080  65 3b 0a 20 20 22 54 69  6d 65 20 70 61 73 73 65  |e;.  "Time passe|
00006090  73 2e 22 3b 0a 5d 3b 20  20 0a 0a 5b 20 53 6c 65  |s.";.];  ..[ Sle|
000060a0  65 70 53 75 62 3b 0a 20  20 22 59 6f 75 20 6d 75  |epSub;.  "You mu|
000060b0  73 74 20 68 61 76 65 20  73 6c 65 70 74 20 79 6f  |st have slept yo|
000060c0  75 72 73 65 6c 66 20 6f  75 74 2e 20 20 5c 0a 20  |urself out.  \. |
000060d0  20 20 20 20 20 20 20 20  20 20 20 20 59 6f 75 20  |            You |
000060e0  63 65 72 74 61 69 6e 6c  79 20 61 72 65 6e 27 74  |certainly aren't|
000060f0  20 64 72 6f 77 73 79 20  6e 6f 77 2e 22 3b 0a 5d  | drowsy now.";.]|
00006100  3b 0a 0a 5b 20 43 6f 6e  73 75 6c 74 53 75 62 3b  |;..[ ConsultSub;|
00006110  0a 20 20 70 72 69 6e 74  20 22 54 68 65 72 65 27  |.  print "There'|
00006120  73 20 6e 6f 74 68 69 6e  67 20 74 6f 20 62 65 20  |s nothing to be |
00006130  64 69 73 63 6f 76 65 72  65 64 22 3b 0a 20 20 69  |discovered";.  i|
00006140  66 20 28 6e 6f 75 6e 3d  3d 30 29 20 22 2e 22 3b  |f (noun==0) ".";|
00006150  0a 20 20 70 72 69 6e 74  20 22 20 62 79 20 63 6f  |.  print " by co|
00006160  6e 73 75 6c 74 69 6e 67  20 22 3b 20 44 65 66 41  |nsulting "; DefA|
00006170  72 74 28 6e 6f 75 6e 29  3b 20 22 2e 22 3b 0a 5d  |rt(noun); ".";.]|
00006180  3b 0a 0a 5b 20 50 6c 61  79 65 72 54 6f 20 6e 65  |;..[ PlayerTo ne|
00006190  77 70 6c 61 63 65 20 66  6c 61 67 3b 0a 20 20 6d  |wplace flag;.  m|
000061a0  6f 76 65 20 70 6c 61 79  65 72 20 74 6f 20 6e 65  |ove player to ne|
000061b0  77 70 6c 61 63 65 3b 20  6c 6f 63 61 74 69 6f 6e  |wplace; location|
000061c0  3d 6e 65 77 70 6c 61 63  65 3b 0a 20 20 72 65 61  |=newplace;.  rea|
000061d0  6c 5f 6c 6f 63 61 74 69  6f 6e 3d 6c 6f 63 61 74  |l_location=locat|
000061e0  69 6f 6e 3b 0a 20 20 41  64 6a 75 73 74 4c 69 67  |ion;.  AdjustLig|
000061f0  68 74 28 31 29 3b 0a 20  20 69 66 20 28 66 6c 61  |ht(1);.  if (fla|
00006200  67 3d 3d 30 29 20 3c 4c  6f 6f 6b 3e 3b 0a 5d 3b  |g==0) <Look>;.];|
00006210  0a 0a 5b 20 4d 6f 76 65  50 6c 61 79 65 72 20 64  |..[ MovePlayer d|
00006220  69 72 65 63 3b 20 3c 47  6f 20 64 69 72 65 63 3e  |irec; <Go direc>|
00006230  3b 20 3c 4c 6f 6f 6b 3e  3b 20 5d 3b 0a           |; <Look>; ];.|
0000623d

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .