![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to objects.ddl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / games / ddl / sample|
Return to objects.ddl CVS log | Up to [CSRG BSD Unix] / 42BSD / games / ddl / sample |
1.1 root 1: ADJECTIVE red,green,blue,clear;
2: ADJECTIVE glass;
3:
4: NOUN red message(road2); { It's red so there can be others elsewhere }
5: red message(WEIGH) = CAPAC;
6: red message(LDESC) = ($say "There is a message scratched in the dirt.\n");
7: red message(SDESC) = ($say "a message in the dirt");
8: red message(ACTION) = (($eq ($verb) read):
9: ($say "'in' is a preposition. 'enter' is a verb.\n")
10: ($exit 1)
11: );
12:
13: NOUN keys (town4);
14: keys(WEIGH) = 2;
15: keys(LDESC) = ($say "There's a set of keys here.\n");
16: keys(SDESC) = ($say "a set of keys");
17:
18: NOUN toolbox (farm5);
19: toolbox(WEIGH) = CAPAC;
20: toolbox(HOLDS) = 50;
21: toolbox(OPENS) = TRUE;
22: toolbox(LOCKS) = TRUE;
23: toolbox(LOCKD) = TRUE;
24: toolbox(LIGHT) = TRUE;
25: toolbox(LDESC) = (($eq ($loc .ME) toolbox):
26: ($say
27: "You are in a huge wooden structure, towering up at least 80 feet
28: above your head, with wooden walls formed of immense 10-foot by 50-foot
29: boards. Everything here, even the grains of dust which cover the wooden
30: floor, seems immense. ")
31: (($prop toolbox OPEN):
32: ($say
33: "Above your head, the top of the structure is open,
34: and sunlight streams in.\n")
35: : ($say
36: "The structure is closed at the top, but
37: enough light comes in from between the boards to enable you to see.\n")
38: )
39: : {else} ($say
40: " Against
41: the house is a heavy ")
42: (($prop toolbox OPEN):
43: ($say "toolbox with the lid open.\n")
44: { (($cont toolbox) :
45: ($say "In the toolbox, you see:\n")
46: ($setp toolbox CONTS TRUE)
47: (Slook 1 ($cont toolbox))
48: ($setp toolbox CONTS FALSE)
49: )}
50: :{else} (($prop toolbox LOCKD) :
51: ($say "toolbox with a rusty lock, painted
52: with an insignia composed of blue and green squares, joined at
53: their corners.\n") :
54: ($say "toolbox, the lid of which is ajar.\n")
55: )
56: )
57: );
58:
59: toolbox(SDESC) =
60: (($eq ($loc .ME) toolbox):
61: ($say "Inside huge box.\n")
62: :{else} ($say "a toolbox"));
63:
64: toolbox(ACTION) =
65: (($eq ($loc .ME) toolbox) :
66: (($or ($eq ($verb) drop)
67: ($eq ($verb) throw)):
68: ($say "You just lost ")(($sdisc ($dobj)))
69: ($say " in a crack between the wooden floorboards!\n")
70: ($move ($dobj) .ALL)
71: )
72: ($miss cg cg cg cg cg cg cg cg cg cg)
73:
74: {else} :
75: (($eq ($verb) lock):
76: (Lockup toolbox keys "The toolbox seals with a CLICK!\n"))
77: (($eq ($verb) unlock):
78: (Ulock toolbox keys
79: "One of the keys fits! The toolbox can be opened now.\n")
80: )
81: );
82:
83: NOUN signpost(roadx);
84: signpost(RDLOC)=10;
85: signpost(WEIGH)=CAPAC;
86: signpost(LDESC)=($say "There is a signpost by the side of the road.\n");
87: signpost(SDESC)=($say "a signpost");
88: signpost(ACTION) = (($eq ($verb) read):
89: ($say
90: "Pointing east, it says: 'Unuchevala: 10 miles'\n")
91: ($exit 1)
92: );
93: NOUN globe(toolbox);
94: globe(WEIGH) = 20;
95: globe(LDESC) = (($prop globe LIGHT):
96: ($say "A globe of stone glows brightly here.\n")
97: {else}:
98: ($say "There is a strange globe of polished stone here.\n")
99: );
100: globe(SDESC) = (($prop globe LIGHT): ($say "a glowing globe of stone")
101: : ($say "a stone globe"));
102: globe(ACTION) = (($eq ($verb) rub):
103: (($prop globe LIGHT):
104: ($say "The light from the stone globe fades away.\n")
105: ($setp globe LIGHT FALSE)
106: {else}:
107: ($say "The stone globe glows brightly!\n")
108: ($setp globe LIGHT TRUE)
109: )
110: ($setg LOOKP TRUE)
111: ($exit 1)
112: )
113: ;
114:
115:
116: NOUN crowbar (town3);
117: crowbar(WEIGH) = 100;
118: crowbar(LDESC) = ($say "There is a long crowbar here.\n");
119: crowbar(SDESC) = ($say "a crowbar");
120:
121: crydie =
122: ($say
123: "What POWER! The magic crystal releases a flood of energy in
124: a split-second! Unfortunately, you were a little close...\n")
125: (die);
126:
127:
128:
129: { Dragon Stuff }
130: AWAKE=MISC1;
131:
132: NOUN dragon (cel06);
133:
134:
135: white=clear;
136: NOUN green crystal(cel07);
137: NOUN red crystal(cel08);
138: NOUN blue crystal(cel10);
139: NOUN clear crystal(cel09);
140:
141: {NOUN diamond { = clear crystal;
142: {NOUN sapphire{= blue crystal;
143: {NOUN ruby (cel08){= red crystal;
144: {NOUN emerald (cel07){= green crystal;}
145:
146:
147: green crystal(WEIGH)=15;
148: green crystal(POINT)=25;
149: green crystal(LDESC) = ($say "There is a beautiful green crystal here!\n");
150: green crystal(SDESC) = ($say "a green crystal");
151:
152: green crystal(ACTION) =
153: (($eq ($verb) take):
154: (($eq ($loc .ME) cel07):
155: (($not ($prop dragon AWAKE)):
156: ($say "You hear a stirring in the Ice Cavern.\n")
157: ($setg Tempr ($plus @Tempr 2))
158: ($setp dragon AWAKE TRUE)
159: ($setp cel06 VISIT FALSE)
160:
161: :{else} ($setg Tempr 0)
162: )
163: )
164: )
165: (($eq ($verb) drop):
166: (($eq ($loc .ME) cel07):
167: ($setg Tempr ($minus @Tempr 2))
168: (($le @Tempr 0) :
169: ($setp dragon AWAKE FALSE)
170: ($say
171: "You hear a deep Y A W N from the Cavern.\n"))
172: ($setp cel06 VISIT FALSE)
173: )
174: )
175: (($eq ($verb) touch):
176: (($eq ($dobj) [red crystal]) :
177: ($say "The red and green crystals flare briefly!\n")
178: (Grow)
179: ($move .ME cel01)
180: ($setg LOOKP TRUE)
181: ($exit 1)
182: )
183: (($eq ($dobj) [blue crystal]) :
184: ($say "The blue and green crystals flare briefly!\n")
185: ($move .ME toolbox)
186: (Shrink)
187: ($setg LOOKP TRUE)
188: ($exit 1)
189: )
190: )
191: (($eq ($verb) break):
192: (($eq ($dobj) [green crystal]):
193: (crydie)
194: )
195: );
196: ROUTINE CRout;
197: WORKD = MISC1; { Has Clear crystal shed its light? }
198: red crystal(WEIGH)=15;
199: red crystal(POINT)=25;
200: red crystal(LDESC) = ($say "There is a beautiful red crystal here!\n");
201: red crystal(SDESC) = ($say "a red crystal");
202: red crystal(ACTION) =
203: (($eq ($verb) touch):
204: (($eq ($dobj) [clear crystal]) :
205: (($not ($prop [clear crystal] WORKD)):
206: ($say "The red and clear crystals flare briefly!\n")
207: ($setp [clear crystal] WORKD TRUE)
208: ($setp [clear crystal] LIGHT TRUE)
209: ($say
210: "The clear crystal blazes forth with a magical incandescence brilliant
211: enough to penetrate even the deepest darkness!!\n\n")
212: ($sfus CRout 4)
213: ($setg LOOKP TRUE)
214: ($exit 1)
215: {else} :
216: ($say
217: "The clear crystal seems curiously inert now.\n")
218: ($exit 1)
219: )
220: )
221: (($eq ($dobj) [green crystal]) :
222: ($say "The red and green crystals flare briefly!\n")
223: (Grow)
224: ($move .ME cel01)
225: ($setg LOOKP TRUE)
226: ($exit 1)
227: )
228: )
229: (($eq ($verb) break):
230: (($eq ($dobj) [red crystal]):
231: (crydie)
232: )
233: );
234:
235:
236: blue crystal(WEIGH)=15;
237: blue crystal(POINT)=25;
238: blue crystal(LDESC) = ($say "There is a beautiful blue crystal here!\n");
239: blue crystal(SDESC) = ($say "a blue crystal");
240: blue crystal(ACTION) =
241: (($eq ($verb) touch):
242: (($eq ($dobj) [red crystal]) :
243: ($say "The red and blue crystals flare briefly!\n")
244: ($exit 1)
245: )
246: (($eq ($dobj) [green crystal]) :
247: ($say "The blue and green crystals flare briefly!\n")
248: ($move .ME toolbox)
249: (Shrink)
250: ($setg LOOKP TRUE)
251: ($exit 1)
252: )
253: )
254: (($eq ($verb) break):
255: (($eq ($dobj) [blue crystal]):
256: (crydie)
257: )
258: );
259:
260:
261: CRout = ($say "The glowing magical crystal seems to have gone dark.\n> ")
262: ($setp [clear crystal] LIGHT FALSE)
263: ;
264: clear crystal(WEIGH)=15;
265: clear crystal(POINT)=25;
266: clear crystal(LDESC) = ($say "There is a beautiful clear crystal here")
267: (($prop [clear crystal] LIGHT): ($say " (GLOWING!)"))
268: ($say "!\n");
269: clear crystal(SDESC) = ($say "a clear crystal")
270: (($prop [clear crystal] LIGHT): ($say " (GLOWING!)"))
271: ;
272: clear crystal(ACTION) =
273: (($eq ($verb) touch):
274: (($eq ($dobj) [red crystal]) :
275: (($not ($prop [clear crystal] WORKD)):
276: ($say "The red and clear crystals flare briefly!\n")
277: ($setp [clear crystal] WORKD TRUE)
278: ($setp [clear crystal] LIGHT TRUE)
279: ($say
280: "The clear crystal blazes forth with a magical incandescence brilliant
281: enough to penetrate even the deepest darkness!!\n\n")
282: ($setg LOOKP TRUE)
283: ($sfus CRout 4)
284: ($exit 1)
285: {else} :
286: ($say
287: "The clear crystal seems curiously inert now.\n")
288: ($exit 1)
289: )
290: )
291: )
292: (($eq ($verb) break):
293: (($eq ($dobj) [red crystal]):
294: (crydie)
295: )
296: );
297:
298:
299:
300: ROUTINE DRdem; { Dragon Daemon. Increases temper in .my presence }
301: DRdem= (($not ($prop dragon AWAKE)): ($exit 0))
302: (($eq ($loc .ME) ($loc dragon)):
303: (($eq ($loc [green crystal]) .ME): { even worse! }
304: ($setg Tempr ($plus @Tempr 1)))
305: ($setg Tempr ($plus @Tempr 1)) )
306: { ($say "His temper is now at ")($num @Tempr)($say "\n") }
307: (($ge @Tempr 7):
308: ($say
309: "Jeez, I didn't know ice dragons could reach their boiling point!
310: In a final flare of rage, he opens his mouth and breathes his frigid
311: breath in a blast in your direction. It's a bit much for you.\n")
312: (die)
313: )
314: (($ge @Tempr 6) :
315: ($say "Gee, he looks like he's really at the edge!\n")
316: ($exit 0))
317: (($ge @Tempr 5) :
318: ($say "This is one upset dragon! Be careful!\n")
319: ($exit 0))
320: (($ge @Tempr 3) :
321: ($say "He's getting angrier...\n")($exit 0))
322: ;
323:
324: dragon(WEIGH)=CAPAC;
325: dragon(LDESC)=
326: (($prop dragon AWAKE):
327: ($say
328: "There is a fierce ice dragon glaring balefully in your direction.\n")
329: :{else}
330: ($say
331: "There is a large white dragon sleeping peacefully in the middle
332: of the cavern floor.\n")
333: )
334: (DRdem);
335: dragon(SDESC)=
336: (($prop dragon AWAKE): ($say "a fierce dragon")
337: : ($say "a somnolent dragon")
338: )
339: (@LOOKP: ($say "\n") (DRdem))
340: ;
341:
342: dragon(ACTION)= { Man, the things you can try here... }
343: (($prop dragon AWAKE): { This is the harder stuff }
344: (($eq ($verb) strike):
345: ($say "This just seems to get him angrier!\n")
346: ($setg Tempr ($plus @Tempr 1))
347: ($exit 1))
348: (($eq ($verb) throw):
349: (($eq ($iobj) dragon):
350: (($gt ($prop ($dobj) WEIGH) 75):
351: ($say
352: "This just bruises him! Now he's getting mad!\n")
353: ($setg Tempr ($plus @Tempr 1))
354: ($exit 1) :
355: {else}
356: ($say
357: "That object is just too light to hurt him.\n")
358: ($exit 1)
359: )
360: : ($say "This amuses the dragon no end!\n")
361: ($exit 1)
362: )) { end of Throw case}
363: :{else}
364: { he's snoozing}
365: (($eq ($verb) wake):
366: ($say "You manage to waken him. He's not happy.\n")
367: ($setg Tempr 1)
368: ($setp dragon AWAKE TRUE)
369: ($exit 1))
370: (($eq ($verb) strike):
371: ($say "Now you woke him up! He's upset, too!\n")
372: ($setg Tempr 2)
373: ($setp dragon AWAKE TRUE)
374: ($exit 1))
375: (($eq ($verb) throw):
376: (($eq ($iobj) dragon):
377: (($gt ($prop ($dobj) WEIGH) 75):
378: ($say
379: "It's just heavy enough to waken him. The bruise doesn't help
380: his temper any either.\n")
381: ($setp dragon AWAKE TRUE)
382: ($setg Tempr 3)
383: ($exit 1) :
384: {else}
385: ($say
386: "That object is just too light to wake him.\n")
387: ($exit 1)
388: )
389: : ($say "Don't hurt yourself trying!\n")
390: ($exit 1)
391: )) { end of Throw case}
392: );
393:
394:
395:
396:
397: NOUN bed (farm7);
398: bed(WEIGH) = CAPAC;
399: bed(SDESC) = ($say "an old, rickety bed");
400:
401: bed(ACTION) =
402: (($eq ($verb) move):
403: (($prop bed OPEN) :
404: ($say "Stop messing with the bed, it's fragile!\n")
405: ($exit 1)
406: )
407: ($say
408: "Moving the bed seems to have loosened one of the wall panels
409: on the west wall.\n")
410: ($setp bed OPEN TRUE)
411: ($exit 1)
412: );
413:
414: NOUN panel (farm7);
415: panel(OPENS) = TRUE;
416: panel(WEIGH) = CAPAC;
417: panel(ACTION) =
418: (($or ($eq ($verb) open)
419: ($eq ($verb) pry) ):
420: (($and ($eq ($iobj) crowbar)
421: ($eq ($loc crowbar) .ME)):
422: (($not ($prop bed OPEN)):
423: ($say "There aren't any loose enough.\n")
424: ($exit 1))
425: ($say
426: "The loose panel comes away, revealing a secret stairway down, down...\n")
427: ($setp panel OPEN TRUE)
428: {else}:
429: ($say "You can't seem to get the panel open.\n")
430: )
431: ($exit 1)
432:
433: );
434:
435: NOUN knife (farm6);
436: knife(LDESC)=
437: (($prop farm6 VISIT):
438: ($say "There is a carving knife here.\n")
439: :{else} ($say "However,
440: on the table is a large carving knife (suitable for blind mice).\n")
441: );
442: knife(SDESC)=($say "a carving knife");
443:
444:
445:
446: NOUN bottle(town6);
447: bottle (LDESC) = ($say "There is a bottle here.\n");
448: bottle (SDESC) = ($say "a bottle");
449: bottle (TRANS) = TRUE;
450: bottle (ACTION) =
451: (($eq ($verb) open):
452: ($say "Hm, the bottle is somehow sealed shut.\n")
453: ($exit 1))
454: (($eq ($verb) break):
455: ($say "Wow, is that heavy glass! It won't break!\n")
456: ($exit 1))
457: (($eq ($verb) strike):
458: (($eq ($iobj) bottle):
459: ($say "Weird thing to do with it.\n")
460: : ($say "Nice try, but it isn't even scratched.\n")
461: )
462: ($exit 1));
463:
464: NOUN ship(bottle);
465: ship (LDESC) = ($say "There is a model ship here.\n");
466: ship (SDESC) = ($say "a model ship");
467: ship (POINT) = 50;
468:
469: ROUTINE TWN5y;
470: NOUN well(town5);
471: well (WEIGH) = CAPAC;
472: well (ACTION) =
473: (($eq ($iobj) well):
474: (($eq ($verb) put):
475: (cdrop)
476: (TWN5y)
477: ($exit 1)
478: )
479: );
480:
481: NOUN insignia;
482: insignia (WEIGH) = CAPAC;
483: insignia (ACTION) = ($say "There's nothing useful to do with the insignia.\n")
484: ($exit 1);
485: square=insignia;
486:
487: NOUN glass box(cel08);
488: glass box(HOLDS)=1;
489: glass box(TRANS)=TRUE;
490: glass box(OPENS)=TRUE;
491: glass box(OPEN)=FALSE;
492: glass box(SHRNK)=TRUE; { First seen as a tiny box }
493: glass box(LDESC) =
494: (($eq ($prop .ME SHRNK) ($prop [glass box] SHRNK)):
495: ($say "There is a big glass case here.\n")
496: ($setp [glass box] WEIGH CAPAC)
497: ($setp [glass box] HOLDS 50)
498:
499: {else}:
500: (($prop .ME SHRNK):
501: ($say
502: "Before you looms a huge glass wall, inscribed with the words,
503: 'program error!'\n")
504: {else} :
505: ($say
506: "There is a tiny glass box with a snap lid here.\n")
507: ($setp [glass box] WEIGH 5)
508: ($setp [glass box] HOLDS 1)
509:
510: )
511: );
512: glass box(SDESC) =
513: (($eq ($prop .ME SHRNK) ($prop [glass box] SHRNK)):
514: ($say "a glass case")
515: ($setp [glass box] WEIGH CAPAC)
516: ($setp [glass box] HOLDS 50)
517:
518: {else}:
519: (($prop .ME SHRNK):
520: ($say
521: "a huge glass wall, inscribed with the words,
522: 'program error'")
523: {else} :
524: ($say "a tiny glass box")
525: ($setp [glass box] WEIGH 5)
526: ($setp [glass box] HOLDS 1)
527:
528: )
529: );
530: case=glass box;
531:
532: NOUN sand(glass box);
533: sand(SHRNK)=TRUE;
534: sand(WEIGH)=1;
535: sand(LDESC)=(($and ($prop sand SHRNK)
536: ($not ($prop .ME SHRNK))):
537: ($setp sand POINT 0)
538: ($say "There is a grain of sand here.\n")
539:
540: {else}: ($say "There is a beautiful porcelain statue here!\n")
541: ($setp sand POINT 50)
542: );
543: sand(SDESC)=(($and ($prop sand SHRNK)
544: ($not ($prop .ME SHRNK))):
545: ($setp sand POINT 0)
546: ($say "a grain of sand") :
547: ($say "a porcelain statue")
548: ($setp sand POINT 50)
549: );
550: statue=sand;
551: sand(ACTION)=(($eq ($verb) take):
552: (($and ($prop sand SHRNK)
553: ($not ($prop .ME SHRNK))):
554: ($say "You fumble the grain of sand and lose it on the ground.\n")
555: ($move sand .ALL)
556: ($exit 1)
557: )
558: );
559:
560: NOUN hole;
561:
562:
563: NOUN rock(road5);
564: rock(LDESC)=($say "There is a plain-looking rock here.\n");
565: rock(SDESC)=($say "an ordinary rock");
566: rock(ACTION)=
567: (($and ($eq ($verb) take)
568: ($eq ($dobj) rock)):
569: ($say "Mmph! Heavy!\n"));
570: rock(WEIGH)=100;
571: {
572: {NOUN saw(toolbox);
573: {saw(WEIGH) = 20;
574: {saw(LDESC) = ($say "There is a saw here.\n");
575: {saw(SDESC) = ($say "a saw");
576: {saw(ACTION) = (($eq ($verb) cut):
577: { (($eq ($dobj) hole):
578: { (($eq ($loc .ME) cel13):
579: { (($prop cel13 HOLED):
580: { ($say "There's already one here!\n")
581: { ($exit 1)
582: { :{else}
583: { ($say
584: {"You cut a hole in the thick ice; icy water sloshes about two feet down.\n")
585: { ($setp cel13 HOLED TRUE)
586: { ($move hole cel13)
587: { ($exit 1)
588: { )
589: { )
590: { { cutting a hole somewhere else }
591: { ($say "There's nowhere to cut a hole.\n")
592: { ($exit 1)
593: { )
594: { ($say "The saw isn't used that way.\n")
595: { ($exit 1)
596: { ); /* I Know A better way to make a Hole */}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.