home *** CD-ROM | disk | FTP | other *** search
/ CD PowerPlay 6 / TheCompleteAdventureCollection1995 / CDPP6.ISO / utility / agtsrc / runpart2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-20  |  1.9 KB  |  109 lines
  1. {$R-}                             {Range checking off}
  2. {$B+}                             {Boolean short circuiting off}
  3. {$S-}                             {Stack checking off}
  4. {$I-}                             {I/O checking off}
  5. {$V-}                             { disable string parameter type checking - faster }
  6.  
  7.  
  8. UNIT RUNPART2;
  9.  
  10. INTERFACE
  11.  
  12. USES
  13.   Crt,
  14.   Dos,
  15.   Graph3,
  16.   Turbo3,
  17.   RUNPART1;
  18.  
  19.  
  20. PROCEDURE CheckParams;
  21.  
  22. PROCEDURE TELL(noun, object_word : words);
  23.  
  24. PROCEDURE ASK(noun, object_word : words);
  25.  
  26. FUNCTION Is_Or_Are(num : Integer) : words;
  27.  
  28. PROCEDURE List_Exits(rm : Integer);
  29.  
  30. PROCEDURE Help;
  31.  
  32. PROCEDURE Detach(num : Integer);
  33.   {Make object num's position = none,
  34.   i.e., it is no longer "in", "near", "on", etc. some other object}
  35.  
  36. PROCEDURE Take(noun : words);
  37.  
  38. PROCEDURE Wear(noun : words);
  39.  
  40. PROCEDURE Throw(noun, prep, object_word : words);
  41.  
  42. PROCEDURE Put(noun, prep, object_word : words);
  43.  
  44. PROCEDURE Open_Noun(noun, prep, object_word : words);
  45.  
  46. PROCEDURE Close_Noun(noun : words);
  47.  
  48. PROCEDURE Shoot(noun, prep, object_word : words);
  49.  
  50. PROCEDURE Unlock(noun, prep, object_word : words);
  51.  
  52. PROCEDURE Lock(noun, prep, object_word : words);
  53.  
  54. PROCEDURE Eat(noun : words);
  55.  
  56. PROCEDURE Drink(noun : words);
  57.  
  58. PROCEDURE Inventory;
  59.  
  60. PROCEDURE Read_Noun(noun : words);
  61.  
  62. PROCEDURE light(noun : words);
  63.  
  64. PROCEDURE Extinguish(noun : words);
  65.  
  66. PROCEDURE Quit;
  67.  
  68. PROCEDURE show_score;
  69.  
  70. FUNCTION ScoreValue : Integer;
  71.  
  72. PROCEDURE Do_Nothing;
  73.  
  74. PROCEDURE Scream;
  75.  
  76. PROCEDURE Script;
  77.  
  78. PROCEDURE UNScript;
  79.  
  80. PROCEDURE Resurrect;
  81.  
  82. PROCEDURE ChangeDriveDirectory;
  83.  
  84. PROCEDURE Save;
  85.  
  86. PROCEDURE Restore;
  87.  
  88. PROCEDURE ReadFinalVersion;
  89.  
  90. PROCEDURE SetColors(Sen : s);
  91.  
  92. PROCEDURE Title;
  93.  
  94.   {===========================================================================}
  95.  
  96. IMPLEMENTATION
  97.  
  98.   {$I PARAM.PA4 }
  99.  
  100.   {$I EXECSUBS.PA4 }
  101.  
  102.   {$I SAVEREST.PA4 }
  103.  
  104.   {$I FINAL.PA4 }
  105.  
  106.   {$I TITLE.PA4 }
  107.  
  108. END.
  109.