home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum3.lzh / SAMPLES / MPU / constant.adl next >
Text File  |  1988-01-22  |  1KB  |  49 lines

  1.  
  2. {  *** Intrinsic Properties *** }
  3.  
  4. SHRNK = 1;        { Has it been shrunk? }
  5. CRYST = 2;        { Is it one of our magic thingies? }
  6. KILLED = 3;        { Is the dragon dead? }
  7.  
  8. MISC1 = 7;        { Miscellaneous Property (Semantics per object) }
  9. HOLED = MISC1;
  10.  
  11. RDLOC = 17;        { Location on Highway 7 }
  12. Loc21 = RDLOC;        { Location in river bed }
  13. WEIGH = 18;
  14. HOLDS = 19;
  15. HAS   = 20;
  16. POINT = 21;
  17.  
  18. { Constants }
  19. CAPAC = 250;        { More than I can carry }
  20.  
  21. PMAX = 400;        { Maximum number of points }
  22.  
  23. BEND1LOC = 3;        { Location of first bend in river bed }
  24. BEND2LOC = 6;        { Location of second bend in river bed }
  25. GRATELOC = 11;        { Location of grate in river bed }
  26.  
  27. Shazm = "ShaZam";    { The Wizard's incantation }
  28.  
  29. { Globals }
  30. VAR
  31.   RBTouch,        { Has he touched the red and blue crystals? }
  32.   HWY7,            { My location on highway 7 }
  33.   RiverLoc,        { My location in river bed }
  34.   SCORE,        { My current score }
  35.   Tempr,        { Dragon's Upset? }
  36.   Cel6x,        { Where he came from to enter Cel06 }
  37.   Wizrd,        { Wizardly Ability }
  38.   GO,            { Did the player move on this turn? }
  39.   GOVERB,        { Was the player's verb one of motion (n,s,e,w,etc.)? }
  40.   IncFlag;        { Should the turn counter be incremented? }
  41.  
  42. (IncFlag) = TRUE;    { Defaults to TRUE }
  43.  
  44.  
  45. ROUTINE
  46.   LOOK, GrowX, Grow, ShrnX, Shrink, WzTgl,
  47.   Dump7, Get7, Entr7, East7, West7, CRout, DRdem,
  48.   TWN5y, cg, Sayer;
  49.