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 / objects.adl < prev    next >
Text File  |  1987-09-25  |  8KB  |  352 lines
  1. {*** OBJECTS ***}
  2.  
  3. NOUN pen(mrm2);
  4. pen(weight) = 1;
  5. pen(LDESC) = ($say "There is a ball-point pen here.\n");
  6. pen(SDESC) = ($say "a ball-point pen");
  7.  
  8. NOUN paper(mrm2);
  9. release = paper;
  10. form = paper;
  11. paper(weight) = 1;
  12. paper(LDESC) =
  13.     (IF ($eq ($prop paper readl) 0) THEN
  14.     ($say "There is a slip of paper here.\n")
  15.      ELSE
  16.     ($say "There is a release form here.\n")
  17.     )
  18. ;
  19. paper(SDESC) =
  20.     (IF ($eq ($prop paper readl) 0) THEN
  21.     ($say "a slip of paper")
  22.      ELSE
  23.     ($say "a release form")
  24.     )
  25. ;
  26.  
  27.  
  28. NOUN spices(irm6);
  29. spices(weight) = 3;
  30. spices(LDESC) = ($say "There is a bag of spices here.\n");
  31. spices(SDESC) = ($say "spices");
  32. spices(rarea) = 1;
  33. spices(pfound) = 5;
  34. spices(pplace) = 9;
  35.  
  36. NOUN rupees(irm7);
  37. coins=rupees;
  38. rupees(weight) = 5;
  39. rupees(LDESC) = ($say "There is a bag of rupees (Indian coins) here.\n");
  40. rupees(SDESC) = ($say "rupees (coins)");
  41. rupees(rarea) = 1;
  42. rupees(pfound) = 5;
  43. rupees(pplace) = 15;
  44.  
  45. NOUN coconut(irm3);
  46. coconut(weight) = 3;
  47. coconut(LDESC) = ($say "There is a large coconut here.\n");
  48. coconut(SDESC) = ($say "a coconut");
  49.  
  50. NOUN rope(mrm1);
  51. rope(weight) = 3;
  52. rldesc =
  53.     (IF ($prop rope ropstf) THEN
  54.     ($say
  55. "There is a long piece of rope here, magically
  56.   rising up in mid-air.\n"
  57.     )
  58.      ELSE
  59.     ($say "There is a coil of rope here.\n")
  60.     )
  61. ;
  62. rsdesc =
  63.     ($say "a rope")
  64. ;
  65. rope(LDESC) = rldesc;
  66. rope(SDESC) = rsdesc;
  67.  
  68. NOUN clarinet(irm2);
  69. clarinet(weight) = 2;
  70. clarinet(LDESC) = ($say "There is a clarinet here.\n");
  71. clarinet(SDESC) = ($say "clarinet");
  72.  
  73. NOUN cobra(irm22);
  74. cobra(NOTAKE) = TRUE;
  75. cobra(LDESC) = ($say "There is a king cobra at the bottom of the pit.\n");
  76. cobra(SDESC) = ($say "a cobra");
  77. snake = cobra;
  78. elapid = cobra;
  79.  
  80. NOUN river;
  81. river(NOTAKE) = TRUE;
  82.  
  83. NOUN statue;
  84. statue(NOTAKE) = TRUE;
  85.  
  86. NOUN banana(irm3);
  87. banana(weight) = 2;
  88. banana(LDESC) = ($say "There is a banana here.\n");
  89. banana(SDESC) = ($say "a banana");
  90.  
  91. NOUN peel;
  92. peel(weight) = 1;
  93. peel(LDESC) = ($say "On the ground, there is a banana peel.\n");
  94. peel(SDESC) = ($say "a banana peel");
  95.  
  96. NOUN vishnu(irm11);
  97. vishnu(NOTAKE) = TRUE;
  98.  
  99. NOUN mara(irm10);
  100. mara(NOTAKE) = TRUE;
  101.  
  102. NOUN lakshmi(irm12);
  103. lakshmi(NOTAKE) = TRUE;
  104.  
  105. NOUN crocodile;
  106. crocodile(NOTAKE) = TRUE;
  107.  
  108. NOUN rhino(irm13);
  109. rhino(NOTAKE) = TRUE;
  110. rhino(LDESC) =
  111.     (IF ($prop rhino cutflg) THEN
  112.     ($say "There is a rhino sleeping here with his horn removed.\n")
  113.      ELSE
  114.     ($say "There is a rhinoceros sleeping in the corner.\n")
  115.     )
  116.     (IF ($prop rhino earplg) THEN
  117.     ($say "  There are two pieces of cotton stuck in his ears.\n")
  118.     )
  119. ;
  120. rhino(SDESC) = ($say "a sleeping rhino");
  121.  
  122. NOUN saw(irm2);
  123. saw(weight) = 2;
  124. saw(LDESC) = ($say "There is a hack-saw on the ground.\n");
  125. saw(SDESC) = ($say "a hack-saw");
  126. hacksaw = saw;
  127. hack-saw = saw;
  128.  
  129. NOUN horn(irm13);
  130. horn(weight) = 2;
  131. horn(NOTAKE) = TRUE;
  132. horn(LDESC) =
  133.     (IF ($prop rhino cutflg) THEN
  134.     ($say "There is a rhinoceros horn here.\n")
  135.     )
  136. ;
  137. horn(SDESC) =
  138.     (IF ($prop rhino cutflg) THEN
  139.     ($say "a rhino horn")
  140.     )
  141. ;
  142. horn(rarea) = 1;
  143. horn(pfound) = 14;
  144. horn(pplace) = 7;
  145.  
  146. NOUN cotton;
  147. cotton(weight) = 1;
  148. cotton(LDESC) = ($say "There is a large wad of cotton on the ground.\n");
  149. cotton(SDESC) = ($say "a wad of cotton");
  150.  
  151. NOUN lattice(irm13);
  152. lattice(NOTAKE) = TRUE;
  153.  
  154. NOUN monkey(irm20);
  155. monkey(NOTAKE) = TRUE;
  156. monkey(LDESC) = ($say "There is a sacred temple monkey here.\n");
  157. monkey(SDESC) = ($say "a monkey");
  158.  
  159. NOUN tandoor(irm4);
  160. oven = tandoor;
  161. tandoor(NOTAKE) = TRUE;
  162.  
  163. NOUN comb(irm14);
  164. comb(weight) = 1;
  165. comb(LDESC) = ($say "There is an expertly carved jade comb here.\n");
  166. comb(SDESC) = ($say "a jade comb");
  167. comb(rarea) = 1;
  168. comb(pfound) = 7;
  169. comb(pplace) = 6;
  170.  
  171. NOUN ruby(irm17);
  172. ruby(weight) = 2;
  173. ruby(LDESC) = ($say "There is a crimson ruby here.\n");
  174. ruby(SDESC) = ($say "a ruby");
  175. ruby(rarea) = 1;
  176. ruby(pfound) = 8;
  177. ruby(pplace) = 7;
  178.  
  179. NOUN bowl(irm21);
  180. bowl(weight) = 3;
  181. bowl(LDESC) = ($say "There is a crystal bowl here.\n");
  182. bowl(SDESC) = ($say "a bowl");
  183. bowl(rarea) = 1;
  184. bowl(pfound) = 10;
  185. bowl(pplace) = 10;
  186.  
  187. NOUN bracelet(irm23);
  188. bracelet(weight) = 1;
  189. bracelet(LDESC) =
  190.     ($say "There is a golden bracelet in the shape of a snake here.\n")
  191. ;
  192. bracelet(SDESC) = ($say "a bracelet");
  193. bracelet(rarea) = 1;
  194. bracelet(pfound) = 11;
  195. bracelet(pplace) = 6;
  196.  
  197. NOUN shovel(mrm1);
  198. shovel(weight) = 3;
  199. shovel(LDESC) = ($say "There is a shovel here.\n");
  200. shovel(SDESC) = ($say "a shovel");
  201.  
  202. NOUN ears(irm13);
  203. ears(NOTAKE) = TRUE;
  204.  
  205. NOUN pole(prm2);
  206. pole(NOTAKE) = TRUE;
  207.  
  208. NOUN amber(prm3);
  209. amber(weight) = 2;
  210. amber(LDESC) = ($say "There is a polished piece of amber here.\n");
  211. amber(SDESC) = ($say "a piece of amber");
  212. amber(rarea) = 2;
  213. amber(pfound) = 12;
  214. amber(pplace) = 6;
  215.  
  216. NOUN lamp(mrm1);
  217. lamp(weight) = 3;
  218. lamp(LDESC) = ($say  "There is a carbide-flame lamp here.\n");
  219. lamp(SDESC) = ($say "a lamp");
  220.  
  221. NOUN grate(mrm5);
  222. grate(NOTAKE) = TRUE;
  223.  
  224. NOUN nugget;
  225. gold = nugget;
  226. nugget(weight) = 4;
  227. nugget(LDESC) = ($say "There is a gold nugget lying on the ground.\n");
  228. nugget(SDESC) = ($say "a gold nugget");
  229. nugget(rarea) = 2;
  230. nugget(pfound) = 13;
  231. nugget(pplace) = 7;
  232.  
  233. NOUN axe(prm1);
  234. axe(weight) = 1;
  235. axe(LDESC) = ($say "There is an stone-age axe here.\n");
  236. axe(SDESC) = ($say "an axe");
  237.  
  238. NOUN spear(prm17);
  239. spear(weight) = 2;
  240. spear(LDESC) =
  241.     (IF ($prop spear tooky) THEN
  242.     ($say "There is a Neanderthal hunting spear here.\n")
  243.      ELSE
  244.     ($say "There is a Neanderthal hunting spear stuck in the ground.\n")
  245.     )
  246. ;
  247. spear(SDESC) = ($say "a spear");
  248.  
  249. NOUN plant(prm2);
  250. plant(weight) = 4;
  251. plant(LDESC) = ($say "There is a strange looking potted plant here.\n");
  252. plant(SDESC) = ($say "a plant");
  253.  
  254. NOUN smilodon(prm6);  {Putty tat}
  255. smilo = smilodon;
  256. sabre = smilodon;
  257. smilodon(NOTAKE) = TRUE;
  258.  
  259. NOUN troglodyte(prm8);
  260. trogl = troglodyte;
  261. troglodyte(NOTAKE) = TRUE;
  262.  
  263. NOUN cheese(prm4);
  264. cheese(weight) = 1;
  265. cheese(LDESC) =
  266.     ($say "There's a piece of Swiss cheese (aged 1,000,000 years) here.\n")
  267. ;
  268. cheese(SDESC) = ($say "a piece of cheese");
  269.  
  270. NOUN towel(prm4);
  271. towel(weight) = 2;
  272. towel(LDESC) = ($say "There is an old towel here.\n");
  273. towel(SDESC) = ($say "a towel");
  274.  
  275. NOUN mammoth(prm14);
  276. mammoth(LDESC) =
  277.     ($say "There is a large wooly mammoth blocking the path to the south.\n")
  278. ;
  279. mammoth(SDESC) = ($say "a mammoth");
  280. elephant = mammoth;
  281. pachyderm = mammoth;
  282.  
  283. NOUN feet;
  284. feet(NOTAKE) = TRUE;
  285.  
  286. NOUN diamond(prm12);
  287. diamond(weight) = 1;
  288. diamond(LDESC) = ($say "There is a small diamond here.\n");
  289. diamond(SDESC) = ($say "a diamond");
  290. diamond(rarea) = 2;
  291. diamond(pfound) = 7;
  292. diamond(pplace) = 8;
  293.  
  294. NOUN ivory(prm15);
  295. ivory(weight) = 2;
  296. ivory(LDESC) = ($say "There is a piece of ivory here.\n");
  297. ivory(SDESC) = ($say "a piece of ivory");
  298. ivory(rarea) = 2;
  299. ivory(pfound) = 9;
  300. ivory(pplace) = 8;
  301.  
  302. NOUN pendant;
  303. pendant(weight) = 2;
  304. pendant(LDESC) = ($say "There is a ancient pendant here.\n");
  305. pendant(SDESC) = ($say "a pendant");
  306. pendant(rarea) = 2;
  307. pendant(pfound) = 14;
  308. pendant(pplace) = 4;
  309.  
  310. NOUN cairn(prm18);
  311. skulls = cairn;
  312. cairn(NOTAKE) = TRUE;
  313.  
  314. NOUN bear(prm19);
  315. bear(NOTAKE) = TRUE;
  316. bear(LDESC) =
  317.     ($say "There is a ferocious cave bear blocking your path to the north.\n")
  318. ;
  319. bear(SDESC) = ($say "a cave bear");
  320.  
  321. NOUN necklace(prm20);
  322. necklace(weight) = 1;
  323. necklace(LDESC) = ($say "There is a pearl necklace here.\n");
  324. necklace(SDESC) = ($say "a necklace");
  325. necklace(rarea) = 2;
  326. necklace(pfound) = 13;
  327. necklace(pplace) = 6;
  328.  
  329. NOUN tyranosaur(prm22);
  330. tyranosaur(NOTAKE) = TRUE;
  331.  
  332. NOUN ring(prm23);
  333. ring(weight) = 1;
  334. ring(LDESC) = ($say "There is a large diamond ring here.\n");
  335. ring(SDESC) = ($say "a ring");
  336. ring(rarea) = 2;
  337. ring(pfound) = 13;
  338. ring(pplace) = 10;
  339.  
  340. NOUN hole;
  341. hole(NOTAKE) = TRUE;
  342.  
  343. NOUN newspaper(mrm1);
  344. newspaper(weight) = 1;
  345. newspaper(LDESC) = ($say "There is a copy of a newspaper here.\n");
  346. newspaper(SDESC) = ($say "a newspaper");
  347.  
  348. NOUN crack;
  349. crack(NOTAKE) = TRUE;
  350. NOUN shaft;
  351. shaft(NOTAKE) = TRUE;
  352.