home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum3.lzh / SAMPLES / AARD / aard.adl < prev    next >
Text File  |  1987-09-25  |  964b  |  64 lines
  1. INCLUDE "standard.adl";
  2.  
  3. INCLUDE "constant.adl";
  4. INCLUDE "routines.adl";
  5. INCLUDE "locnames.adl";
  6.  
  7. NOUN me(mrm1);
  8. me(pmax) = 250;
  9. me(NOTAKE) = TRUE;
  10. me(ACTION) = ActAction;
  11.  
  12. INCLUDE "objects.adl";
  13. INCLUDE "locales.adl";
  14. INCLUDE "verbs.adl";
  15. INCLUDE "objrouts.adl";
  16. INCLUDE "transit.adl";
  17.  
  18. MoveFeet =            { Your feet just keep following you... }
  19.     ($move feet ($loc .ME))
  20. ;
  21.  
  22. START =
  23.     ($sdem MoveFeet)
  24.     (StdInit me)
  25.     ($setv n s e w u d enter exit 0 0)
  26.     ($prompt PROMPT)
  27.     ($sdem endgame)
  28. ;
  29.  
  30. DWIMI = (Dwimmer %1);
  31. DWIMD = (Dwimmer %1);
  32.  
  33. {*** CHEAT ROUTINES ***}
  34.  
  35. chetr =
  36.     (IF ($eq ($prop .ME debug) 0) THEN
  37.     ($exit 1)
  38.     )
  39. ;
  40.  
  41.  
  42. VERB cheat;
  43. cheat(ACTION) =
  44.     ($setp .ME debug ($not ($prop .ME debug)))
  45. ;
  46.  
  47. VERB beam;
  48. beam(ACTION) =
  49.     (chetr)
  50.     ($move .ME ($dobj))
  51. ;
  52.  
  53.  
  54. VERB tractor;
  55. tractor(ACTION) =
  56.     (chetr)
  57.     ($move ($dobj) ($loc .ME))
  58.     ($say "The ")
  59.     (($sdesc ($dobj)))
  60.     ($say " magically appears.\n")
  61. ;
  62.  
  63. { *** EOF aard.adl *** }
  64.