![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to locales.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 locales.ddl CVS log | Up to [CSRG BSD Unix] / 42BSD / games / ddl / sample |
1.1 root 1: .ALL(LDESC) = ($say "You shouldn't be here at all. This is THE COSMIC ALL.\n")
2: ($exit 1);
3: .ALL(SDESC) = ($say "THE COSMIC ALL");
4:
5: road1(SDESC) = rdsc;
6: road1(LDESC) = ($say "You're on a dirt road going east-west. Tall stalks of
7: corn grow on either side of the road.\n");
8:
9: road2(SDESC) = rdsc; road2(LDESC) = rdsc;
10: road3(SDESC) = rdsc; road3(LDESC) = rdsc;
11: road4(SDESC) = rdsc; road4(LDESC) = rdsc;
12: road5(SDESC) = rdsc; road5(LDESC) = rdsc;
13: road6(SDESC) = rdsc; road6(LDESC) = rdsc;
14:
15: road7(LDESC) = ($say "A road from the west forks north and south here.
16: To the east is a dense-looking forest; cornfields are seen on the
17: west.\n");
18:
19: road7(SDESC) = ($say "You're at the fork in the road.\n");
20:
21: road8(SDESC) = rdsc;
22: road8(LDESC)=($say
23: "The road stretches a long way east-west. A short fence divides the
24: road from the cornfields beyond. Please don't tresspass.\n");
25:
26:
27: ROUTINE dump8; ROUTINE get8; ROUTINE entr8; ROUTINE east8; ROUTINE west8;
28:
29:
30:
31: gard1(SDESC) = gdsc; gard1(LDESC) = gdsc;
32: gard2(SDESC) = gdsc; gard2(LDESC) = gdsc;
33: gard3(SDESC) = gdsc; gard3(LDESC) = gdsc;
34: gard4(SDESC) = gdsc; gard4(LDESC) = gdsc;
35: gard5(SDESC) = gdsc; gard5(LDESC) = gdsc;
36: gard6(SDESC) = gdsc; gard6(LDESC) = gdsc;
37: gard7(SDESC) = gdsc; gard7(LDESC) = gdsc;
38: gard8(SDESC) = gdsc; gard8(LDESC) = gdsc;
39:
40: frst1(SDESC) = fdsc; frst1(LDESC) = fdsc;
41: frst2(SDESC) = fdsc; frst2(LDESC) = fdsc;
42: frst3(SDESC) = fdsc; frst3(LDESC) = fdsc;
43: frst4(SDESC) = fdsc; frst4(LDESC) = fdsc;
44:
45: farm1(SDESC) = ($say "Entrance to farm.\n");
46: farm1 (LDESC) = ($say
47: "You are at the entrance on the south side of a rundown
48: farmhouse. Someone has painted 'DIE, HEATHENS' on the
49: front door, which barely stays on its hinges. Marks of
50: smoke and flame are visible. A road runs to the south,
51: and you may walk around the farmhouse by going east or west.\n");
52:
53: farm2(LDESC) = ($say
54: "You are in the entry hall of a long-deserted old farmhouse.
55: The floor is covered with the dust of years of disuse. The
56: front door to the south is open, and there is another room
57: to the north. A stairway on the east side of the room goes up.\n");
58: farm2(SDESC) = ($say "Entry hall\n");
59:
60:
61: farm3(LDESC) = ($say
62: "You are on the east side of the farmhouse. To the east, a forest
63: stretches away into the distance. The entrance to the farmhouse
64: is to the south.\n");
65: farm3(SDESC) = ($say "East side of the farmhouse\n");
66:
67: farm4(LDESC) = ($say
68: "You are on the west side of the farmhouse. The cornfields
69: stretch away forever to the west. The entrance to the house
70: is to the south.\n");
71: farm4(SDESC) = ($say "West side of the farmhouse\n");
72:
73: farm5(LDESC) = ($say
74: "You are on the north side of the farmhouse. A high fence
75: separates you from the cornfields to the north.");
76: farm5(SDESC) = ($say "North side of the farmhouse\n");
77:
78:
79: farm6(LDESC) = ($say
80: "You are in an old, empty farmhouse kitchen. All the
81: cupboards and cabinets are bare (unless you can eat the
82: thick layer of dust which covers everything).")
83: (($prop farm6 VISIT):($say "\n"));
84: farm6(SDESC) = ($say "Farmhouse kitchen\n");
85:
86: farm7(LDESC) = ($say
87: "You are in the upstairs bedroom of the farmhouse. All the
88: windows are boarded up, and nobody has slept here for years.
89: To the east is an exit leading to the entry hall below.\n")
90:
91: (($prop bed OPEN ) :
92: ($say
93: "In the middle of the room is an old, rickety bed. The west
94: wall ")
95: (($prop panel OPEN) :
96: ($say
97: "has a panel missing, revealing a secret stairway down.\n")
98: {else}: ($say
99: "seems to have a loose panel.\n")
100: )
101: {else} :
102: ($say
103: "Against the west wall is an old, rickety bed (which may be
104: why nobody has slept here for years).\n")
105: );
106: farm7(SDESC) = ($say "Upstairs bedroom\n");
107:
108: PanL = { Try to go through panel }
109: (($prop panel OPEN):
110: ($move .ME cel01)
111: ($say "You descend into the gloom...\n")
112: {else}: (($eq ($loc .ME) farm7):(cg))
113: );
114:
115:
116: town1(SDESC) = ($say "One horse town.\n");
117: town1(LDESC) = ($say
118: "You are at the northern end of a one-horse town. Although the buildings
119: are in good shape, all seem deserted. You can't even find one horse.
120: To the east is an old smithy. On the west side of the street is an
121: abandoned hotel. The street runs north and south.\n");
122:
123: town2(SDESC) = ($say "One horse business district.\n");
124: town2(LDESC) = ($say
125: "You are at the southern end of a one-horse town. This is the
126: business district. On the east side of the street is an old
127: building with a tastefully lettered sign, 'Arpa-Citizen's Savings'.
128: To the west is the legendary 'Packet Inn'. The street runs north-south.\n");
129:
130: town3(SDESC) = ($say "Blacksmith's Shop.\n");
131: town3(LDESC) = ($say
132: "You're in what is left of a once-thriving blacksmith's shop.
133: Long ago abandoned, nothing much of interest remains.\n");
134:
135: town4(SDESC) = ($say "Flophouse.\n");
136: town4(LDESC) = ($say
137: "You're in the Flophouse hotel. Never worth the visit even in
138: its heyday, a quick search reveals nothing but a lot of dusty rooms.\n");
139:
140: town5(SDESC) = ($say "Arpa-Citizen's Savings.\n");
141: town5(LDESC) = ($say
142: "You are in the ancient and venerable institution of Arpa-Citizen's
143: Savings (there's a branch in your town). The lobby is tastefully
144: decorated in marble. The only feature is a strange sweet-smelling
145: well in the center of the room. A mysterious plaque on the side ")
146: ($say
147: "reads:
148: 'Drop your bits here!'
149: ");
150: TWN5x =
151: (($eq ($verb) drop): (TWN5y));
152: TWN5y =
153: (cdrop) { Do the right thing }
154: ($say
155: "A strange glowing network of lights appears, and you can read:\n")
156: (($prop ($dobj) POINT):
157: ($setg SCORE ($plus @SCORE ($prop ($dobj) POINT)))
158: ($move ($dobj) .ALL)
159: ($say " Your account is now at $")($num @SCORE)
160: ($say ".\n Thank you for letting Arpa-Citizen's be your host.\n")
161: {else}:
162: ($say " Your deposit is worthless")
163: (($pct 25):
164: ($say ", but thanks for the trinket!\n")
165: ($move ($dobj) .ALL)
166: {else}:
167: ($say "! Keep it!\n")
168: )
169: )
170: ($say "The Arpa network mercifully disappears.\n")
171: ($exit 1) { Short circuit the verb }
172: ;
173:
174: town6(SDESC) = ($say "The Packet Inn.\n");
175: town6(LDESC) =
176: ($say
177: "You are at that famous old saloon, the Packet Inn. Thousands
178: of the local adventurers drank 'till they were totally zorked in
179: this colorful old haunt. A little wandering convinces you that
180: nothing much is to be seen.\n");
181:
182: {*** DUNGEON PROPER ***}
183: cel01(LDESC) = ($say
184: "You are in a secret cellar below the farmhouse. In the
185: corner of one wall is a strange insignia composed of red
186: and green squares, joined at the corners. Passages
187: lead to north, west and south. An old stairway leads up and out.\n")
188: ($move insignia cel01);
189: cel01(SDESC) = ($say "Secret cellar.\n")
190: ($move insignia cel01);
191:
192: cel02(LDESC) = ($say
193: "You are in a cool cave, once used for the storage of rare
194: wines. A cool breeze from the caves to the north keeps this cave
195: at an even temperature the year round. Exits can be seen
196: to the south and east.\n");
197: cel02(SDESC) = ($say "Cool cave.\n");
198:
199: { cel03 was moved to after cel08 }
200:
201:
202: cel04(LDESC) = ($say
203: "This is a small temple to Elbereth, Queen of the Stars. The walls
204: glow with a warm iridescence of their own. They are covered
205: with murals depicting the kindling of the stars at the Beginning of
206: Days. In one corner, someone has added a strange insignia composed
207: of red and white squares, joined at the corners. Passages lead
208: east and west, and a stairway to the north leads down into darkness.\n")
209: ($move insignia cel04);
210: cel04(SDESC) = ($say "Temple to Elbereth.\n")
211: ($move insignia cel04);
212: cel04(LIGHT)=TRUE;
213:
214:
215: cel05(LDESC) = ($say
216: "You are in an icy cave. All the walls are covered with thick
217: layers of ice. The cave continues north and south, and there
218: are side tunnels leading to the northeast and northwest.\n");
219: cel05(SDESC) = ($say "Ice Cave.\n");
220:
221: cel06(LDESC) = ($say
222: "You have reached a large cavern of ice. You cannot see
223: the roof, but you are sure it is covered with icicles.
224: There are exits east and west.\n");
225: cel06(SDESC) = ($say "Great Ice Cavern.\n");
226:
227:
228: cel07(LDESC) = ($say
229: "You are in a tiny side room where the ice dragon keeps his
230: single prize treasure. You may leave through a western doorway.\n");
231: cel07(SDESC) = ($say "Dragon's Treasure Room.\n");
232:
233: cel08(LDESC) = ($say
234: "You are in an old abandoned room, once the resident of a frustrated
235: artist. A huge mural depicting a barren wasteland covers the west
236: wall. A dim glow comes from the corridor to the east.\n");
237: cel08(SDESC) = ($say "Artist's Retreat.\n");
238:
239: cel03(LDESC) = ($say
240: "You are standing on the north bank of a frozen underground
241: river. The source of the river seems to have been to the
242: west, and you can walk that way on the ice. However, to
243: the northeast, the river forms a frozen waterfall you can
244: slide down.\n");
245: cel03(SDESC) = ($say "Top of frozen fall.\n");
246:
247: cel09(LDESC) = ($say
248: "You are at the southern end of a dry river gorge. The source
249: of the river was once a waterfall to the south, but for some reason
250: it seems frozen solid. The riverbed continues north.\n");
251: cel09(SDESC) = ($say "Southern gorge.\n");
252:
253: cel10(LDESC) = ($say
254: "You are in a dark cave. The low-hanging stalactites and tall
255: stalagmites cast eerily human-like shadows on the craggy walls.
256: A roughly-hewn stairway to the south is lit by a dim illumination
257: from above, while a slimy pit in the middle of the room leads
258: down into even inkier blackness. The system of caverns continues
259: to the west.\n");
260: cel10(SDESC) = ($say "Shadowy cave.\n");
261: CELdL =
262: (($and (See [clear crystal] ($cont ($loc .ME)) )
263: ($prop [clear crystal] LIGHT)):
264:
265: ($say
266: "You are in an impossibly dark cave. Only the light from your
267: magic crystal makes it possible to see, even dimly, here. You
268: can make out a tunnel leading north, and another leading east.
269: No other exits are visible.\n")
270: : ($say "It's mighty dark in here!")
271: ((See globe ($cont ($loc .ME))):
272: (($prop globe LIGHT):
273: ($say
274: " Even your glowing globe is barely visible!")
275: )
276: )
277: ($say "\n")
278: ($setg DARKG TRUE)
279: );
280: cel11(LDESC) = CELdL;
281: CELdS =
282: ($say "DARK cave.\n")
283: (($and (See [clear crystal] ($cont ($loc .ME)) )
284: ($prop [clear crystal] LIGHT)):
285: ($exit 0):($setg DARKG TRUE));
286: cel11(SDESC) = CELdS;
287:
288: cel12(LDESC) = CELdL;
289: cel12(SDESC) = CELdS;
290:
291: cel13(LDESC) = ($say
292: "You are on a large underground lake of ice, thick enough
293: to walk on. To the west you can dimly make out a cavern
294: entrance; to the east is an icy river you can walk on.\n")
295: (($prop cel13 HOLED):
296: ($say
297: "In the middle of the lake is a hole; icy water sloshes about
298: two feet below the ice.\n")
299: );
300: cel13(SDESC) = ($say "Icy lake.\n");
301:
302: cel14(LDESC) = (($ge ($prop .ME HAS) ($prop globe WEIGH)):
303: ($say
304: "Whatever it is you're carrying drags you down into the icy depths!\n")
305: (die)
306: )
307: ($say
308: "You are swimming beneath the ice. There seems to be light to the
309: west, but you can't hold your breath for long...\n")
310: ;
311: cel14(SDESC) = ($say "Back in the icy lake.\n");
312:
313: cel15(LDESC) = ($say
314: "You are on a sandy beach in a small cave. A small pool of water
315: comes up to the beach, and a quick survey of the place shows that it
316: is completely covered by the stony roof. You can walk up to the
317: back of the cave, but the pool seems to be the only other exit.\n");
318: cel15(SDESC) = ($say "Sandy beach.");
319:
320: cel16(LDESC) = ($say
321: "You are at the back of a small cave. A sandy shore slopes down
322: to a blue pool of water. To the west is a small crawlway.\n");
323: cel16(SDESC) = ($say "Back of cave.\n");
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.