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 / locnames.adl < prev    next >
Text File  |  1988-01-22  |  2KB  |  50 lines
  1. NOUN .road;
  2. NOUN .gard;
  3. NOUN .frst;     fdsc =  ($say "You're lost in the forest.\n");
  4. NOUN .farm;
  5. NOUN .town;
  6.  
  7. NOUN road1(.road);      road1(LIGHT) = TRUE;
  8. NOUN road2(.road);      road2(LIGHT) = TRUE;
  9. NOUN road3(.road);      road3(LIGHT) = TRUE;
  10. NOUN road4(.road);      road4(LIGHT) = TRUE;
  11. NOUN road5(.road);      road5(LIGHT) = TRUE;
  12. NOUN road6(.road);      road6(LIGHT) = TRUE;
  13. NOUN road7(.road);      road7(LIGHT) = TRUE;
  14. NOUN Roadx;     { Where things on Highway 7 get held }
  15. NOUN riverx;    { Where things in the river bed get held }
  16.  
  17. NOUN gard1(.gard);      gard1(LIGHT) = TRUE;
  18. NOUN gard2(.gard);      gard2(LIGHT) = TRUE;
  19.  
  20. NOUN frst1(.frst);      frst1(LIGHT) = TRUE;
  21.  
  22. NOUN farm1(.farm);      farm1(LIGHT) = TRUE;
  23. NOUN farm2(.farm);      farm2(LIGHT) = TRUE;
  24. NOUN farm3(.farm);      farm3(LIGHT) = TRUE;
  25. NOUN farm4(.farm);      farm4(LIGHT) = TRUE;
  26. NOUN farm5(.farm);      farm5(LIGHT) = TRUE;
  27. NOUN farm6(.farm);      farm6(LIGHT) = TRUE;
  28. NOUN farm7(.farm);      farm7(LIGHT) = TRUE;
  29.  
  30. NOUN town1(.town);      town1(LIGHT) = TRUE;
  31. NOUN town2(.town);      town2(LIGHT) = TRUE;
  32. NOUN town3(.town);      town3(LIGHT) = TRUE;
  33. NOUN town4(.town);      town4(LIGHT) = TRUE;
  34. NOUN .bank;
  35. NOUN town5(.bank);      town5(LIGHT) = TRUE;
  36. NOUN town6(.town);      town6(LIGHT) = TRUE;
  37.  
  38. NOUN
  39.   cel01, cel02, cel03, cel04, cel05, cel06, cel07,
  40.   cel08, cel09, cel10, cel11, cel12, cel13, cel14,
  41.   cel15, cel16, cel17, cel18, cel19, cel20, cel21;
  42.  
  43. cel21(LIGHT) = TRUE;
  44.  
  45. NOUN
  46.   desert, field;
  47.  
  48. field(LIGHT) = TRUE;
  49. desert(LIGHT) = TRUE;
  50.