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 / locnames.adl < prev    next >
Text File  |  1987-09-25  |  2KB  |  41 lines
  1. {*** MUSEUM ROOMS ***}
  2.  
  3. NOUN mrm1,  mrm2,  mrm3,  mrm4,
  4.      mrm5,  mrm6;
  5.  
  6. mrm1(LIGHT) = TRUE;    mrm2(LIGHT) = TRUE;    mrm3(LIGHT) = TRUE;
  7. mrm4(LIGHT) = TRUE;    mrm5(LIGHT) = TRUE;    mrm6(LIGHT) = TRUE;
  8.  
  9.  
  10. {*** INDIAN ROOMS ***}
  11.  
  12. NOUN irm1,  irm2,  irm3,  irm4,  irm5,  irm6,  irm7,  irm8,
  13.      irm9,  irm10, irm11, irm12, irm13, irm14, irm15, irm16,
  14.      irm17, irm18, irm19, irm20, irm21, irm22, irm23;
  15.  
  16. irm1(LIGHT) = TRUE;    irm2(LIGHT) = TRUE;    irm3(LIGHT) = TRUE;
  17. irm4(LIGHT) = TRUE;    irm5(LIGHT) = TRUE;    irm6(LIGHT) = TRUE;
  18. irm7(LIGHT) = TRUE;    irm8(LIGHT) = TRUE;    irm9(LIGHT) = TRUE;
  19. irm10(LIGHT) = TRUE;    irm11(LIGHT) = TRUE;    irm12(LIGHT) = TRUE;
  20. irm13(LIGHT) = TRUE;    irm14(LIGHT) = TRUE;    irm15(LIGHT) = TRUE;
  21. irm16(LIGHT) = TRUE;    irm17(LIGHT) = TRUE;    irm18(LIGHT) = TRUE;
  22. irm19(LIGHT) = TRUE;    irm20(LIGHT) = TRUE;    irm21(LIGHT) = TRUE;
  23. irm22(LIGHT) = TRUE;    irm23(LIGHT) = TRUE;
  24.  
  25. {*** PREHISTORIC ROOMS ***}
  26.  
  27. NOUN prehs;
  28.  
  29. NOUN prm1(prehs),  prm2(prehs),  prm3(prehs),  prm4(prehs),
  30.      prm5(prehs),  prm6(prehs),  prm7(prehs),  prm8(prehs),
  31.      prm9(prehs),  prm10(prehs), prm11(prehs), prm12(prehs),
  32.      prm13(prehs), prm14(prehs), prm15(prehs), prm16(prehs),
  33.      prm17(prehs), prm18(prehs), prm19(prehs), prm20(prehs),
  34.      prm21(prehs), prm22(prehs), prm23(prehs);
  35.  
  36. prm2(LIGHT) = TRUE;    prm3(LIGHT) = TRUE;    prm4(LIGHT) = TRUE;
  37. prm9(LIGHT) = TRUE;    prm10(LIGHT) = TRUE;    prm11(LIGHT) = TRUE;
  38. prm12(LIGHT) = TRUE;    prm13(LIGHT) = TRUE;    prm14(LIGHT) = TRUE;
  39. prm15(LIGHT) = TRUE;    prm16(LIGHT) = TRUE;    prm21(LIGHT) = TRUE;
  40. prm22(LIGHT) = TRUE;    prm23(LIGHT) = TRUE;
  41.