1 /* @(#)com4.c 8.2 (Berkeley) 4/28/95 */
2 /* $NetBSD: command4.c,v 1.3 2005/07/01 06:04:54 jmc Exp $ */
5 * Copyright (c) 1983, 1993
6 * The Regents of the University of California. All rights reserved.
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. Neither the name of the University nor the names of its contributors
17 * may be used to endorse or promote products derived from this software
18 * without specific prior written permission.
20 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 take(unsigned int from
[])
38 int firstnumber
, heavy
, bulky
, value
;
40 firstnumber
= wordnumber
;
41 if (wordnumber
< wordcount
&& wordvalue
[wordnumber
+ 1] == OFF
) {
43 wordvalue
[wordnumber
] = TAKEOFF
;
44 wordtype
[wordnumber
] = VERB
;
48 while (wordnumber
<= wordcount
&& wordtype
[wordnumber
] ==
50 value
= wordvalue
[wordnumber
];
51 printf("%s:\n", objsht
[value
]);
52 heavy
= (carrying
+ objwt
[value
]) <= WEIGHT
;
53 bulky
= (encumber
+ objcumber
[value
]) <= CUMBER
;
54 if ((testbit(from
, value
) || wiz
|| tempwiz
) &&
55 heavy
&& bulky
&& !testbit(inven
, value
)) {
57 carrying
+= objwt
[value
];
58 encumber
+= objcumber
[value
];
60 if (testbit(from
, value
))
63 printf("Zap! Taken from thin air.\n");
64 clearbit(from
, value
);
65 if (value
== MEDALION
)
67 } else if (testbit(inven
, value
))
68 printf("You're already holding %s%s.\n",
69 A_OR_AN_OR_BLANK(value
),
71 else if (!testbit(from
, value
))
72 printf("I don't see any %s around here.\n",
75 printf("The %s %stoo heavy.\n", objsht
[value
],
78 printf("The %s %stoo cumbersome to hold.\n",
79 objsht
[value
], IS_OR_ARE(value
));
80 if (wordnumber
< wordcount
- 1 &&
81 wordvalue
[++wordnumber
] == AND
)
87 /* special cases with their own return()'s */
89 if (wordnumber
<= wordcount
&& wordtype
[wordnumber
] == NOUNS
)
90 switch (wordvalue
[wordnumber
]) {
93 if (testbit(from
, SWORD
)) {
94 wordtype
[wordnumber
--] = OBJECT
;
97 if (testbit(from
, TWO_HANDED
)) {
98 wordvalue
[wordnumber
] = TWO_HANDED
;
99 wordtype
[wordnumber
--] = OBJECT
;
102 wordvalue
[wordnumber
] = BROAD
;
103 wordtype
[wordnumber
--] = OBJECT
;
107 if (testbit(from
, MAID
)) {
108 wordvalue
[wordnumber
] = MAID
;
109 wordtype
[wordnumber
--] = OBJECT
;
111 } else if (testbit(from
, DEADWOOD
)) {
112 wordvalue
[wordnumber
] = DEADWOOD
;
113 wordtype
[wordnumber
--] = OBJECT
;
115 } else if (testbit(from
, DEADNATIVE
)) {
116 wordvalue
[wordnumber
] = DEADNATIVE
;
117 wordtype
[wordnumber
--] = OBJECT
;
120 if (testbit(from
, DEADGOD
)) {
121 wordvalue
[wordnumber
] = DEADGOD
;
122 wordtype
[wordnumber
--] = OBJECT
;
125 wordvalue
[wordnumber
] = DEADTIME
;
126 wordtype
[wordnumber
--] = OBJECT
;
133 if (testbit(location
[position
].objects
, AMULET
)) {
134 printf("The amulet is warm to the touch, and ");
135 puts("its beauty catches your breath.");
136 printf("A mist falls over your eyes, but ");
137 puts("then it is gone. Sounds seem clearer");
138 printf("and sharper but far away as if in a ");
139 puts("dream. The sound of purling water");
140 printf("reaches you from afar. The mist ");
141 printf("falls again, and your heart leaps in ");
143 printf("The gold freezes your hands and ");
144 puts("fathomless darkness engulfs your soul.");
146 wordtype
[wordnumber
--] = OBJECT
;
150 if (testbit(location
[position
].objects
, MEDALION
)) {
151 printf("The medallion is warm, and it ");
152 printf("rekindles your spirit with the ");
153 puts("warmth of life.");
154 printf("Your amulet begins to glow as the ");
155 printf("medallion is brought near to it, ");
156 printf("and together\nthey radiate.\n");
158 wordtype
[wordnumber
--] = OBJECT
;
162 if (testbit(location
[position
].objects
, TALISMAN
)) {
163 printf("The talisman is cold to the touch, ");
164 puts("and it sends a chill down your spine.");
166 wordtype
[wordnumber
--] = OBJECT
;
170 if (testbit(location
[position
].objects
, BATHGOD
) &&
171 (testbit(wear
, AMULET
) || testbit(inven
, AMULET
))) {
172 printf("She offers a delicate hand, and you ");
173 puts("help her out of the sparkling springs.");
174 printf("Water droplets like liquid silver ");
175 printf("bedew her golden skin, but when ");
177 printf("from her, they fall as teardrops. ");
178 puts("She wraps a single cloth around her and");
179 printf("ties it at the waist. Around her ");
180 puts("neck hangs a golden amulet.");
181 printf("She bids you to follow her, and ");
185 clearbit(location
[position
].objects
, BATHGOD
);
187 if (!testbit(location
[position
].objects
,
189 printf("You're in no position to ");
192 puts("She moves away from you.");
196 puts("It doesn't seem to work.");
199 puts("You've got to be kidding.");
200 return (firstnumber
);
204 throw(const char *name
)
211 if (drop(name
) != -1) {
212 switch (wordvalue
[wordnumber
]) {
231 deposit
= location
[position
].up
*
232 (location
[position
].access
|| position
== FINAL
);
236 deposit
= location
[position
].down
;
239 wordnumber
= first
+ 1;
240 while (wordnumber
<= wordcount
) {
241 value
= wordvalue
[wordnumber
];
243 testbit(location
[position
].objects
, value
)) {
244 clearbit(location
[position
].objects
, value
);
245 if (value
!= GRENADE
)
246 setbit(location
[deposit
].objects
,
249 printf("A thundering explosion ");
250 printf("nearby sends up a cloud of ");
251 puts("smoke and shrapnel.");
252 for (n
= 0; n
< NUMOFWORDS
; n
++)
253 location
[deposit
].objects
[n
] =
255 setbit(location
[deposit
].objects
, CHAR
);
257 if (value
== ROPE
&& position
== FINAL
)
258 location
[position
].access
= 1;
262 puts("The stone door is unhinged.");
263 location
[189].north
= 231;
264 location
[231].south
= 189;
267 puts("The wooden door is blown open.");
268 location
[30].west
= 25;
271 puts("The door is not damaged.");
274 if (value
== GRENADE
&&
275 testbit(location
[position
].objects
,
277 printf("You are blown into shreds ");
278 puts("when your grenade explodes.");
281 if (wordnumber
< wordcount
- 1 &&
282 wordvalue
[++wordnumber
] == AND
)
293 drop(const char *name
)
296 int firstnumber
, value
;
298 firstnumber
= wordnumber
;
300 while (wordnumber
<= wordcount
&&
301 (wordtype
[wordnumber
] == OBJECT
|| wordtype
[wordnumber
] == NOUNS
)) {
302 value
= wordvalue
[wordnumber
];
303 if (value
== BODY
) { /* special case */
304 wordtype
[wordnumber
] = OBJECT
;
305 if (testbit(inven
, MAID
) ||
306 testbit(location
[position
].objects
, MAID
))
308 else if (testbit(inven
, DEADWOOD
) ||
309 testbit(location
[position
].objects
, DEADWOOD
))
311 else if (testbit(inven
, DEADGOD
) ||
312 testbit(location
[position
].objects
, DEADGOD
))
314 else if (testbit(inven
, DEADTIME
) ||
315 testbit(location
[position
].objects
, DEADTIME
))
317 else if (testbit(inven
, DEADNATIVE
) ||
318 testbit(location
[position
].objects
, DEADNATIVE
))
321 if (wordtype
[wordnumber
] == NOUNS
&& value
== DOOR
) {
323 puts("You hurt your foot.");
325 puts("You're not holding a door.");
326 } else if (objsht
[value
] == NULL
) {
328 puts("That's not for kicking!");
330 puts("You don't have that.");
332 printf("%s:\n", objsht
[value
]);
333 if (testbit(inven
, value
)) {
334 clearbit(inven
, value
);
335 carrying
-= objwt
[value
];
336 encumber
-= objcumber
[value
];
338 printf("The bomb explodes. A ");
339 printf("blinding white light and ");
340 printf("immense concussion ");
341 puts("obliterate us.");
344 if (value
!= AMULET
&& value
!= MEDALION
&&
346 setbit(location
[position
].objects
,
352 puts("Drop kicked.");
354 printf("%s.\n", name
);
357 printf("You aren't holding the %s.\n",
359 if (testbit(location
[position
].objects
,
362 puts("Kicked instead.");
363 else if (*name
== 'G')
364 puts("Given anyway.");
366 } else if (testbit(location
[position
].objects
,
369 else if (testbit(wear
, value
))
370 puts("Not while it's being worn.");
375 if (wordnumber
< wordcount
- 1 &&
376 wordvalue
[++wordnumber
] == AND
)
379 return (firstnumber
);
388 wordnumber
= take(wear
);
389 return (drop("Dropped"));
395 wordnumber
= take(location
[position
].objects
);
402 int firstnumber
, value
;
404 firstnumber
= wordnumber
;
406 while (wordnumber
<= wordcount
) {
407 value
= wordvalue
[wordnumber
];
408 if (wordtype
[wordnumber
] != OBJECT
|| objsht
[value
] == NULL
)
413 puts("You can't eat that!");
414 return (firstnumber
);
418 return (firstnumber
);
421 printf("You can't eat %s%s!\n",
422 A_OR_AN_OR_BLANK(value
), objsht
[value
]);
423 return (firstnumber
);
428 case COCONUTS
: /* eatable things */
431 printf("%s:\n", objsht
[value
]);
432 if (testbit(inven
, value
) &&
433 ourtime
> ate
- CYCLE
&&
434 testbit(inven
, KNIFE
)) {
435 clearbit(inven
, value
);
436 carrying
-= objwt
[value
];
437 encumber
-= objcumber
[value
];
438 ate
= max(ourtime
, ate
) + CYCLE
/ 3;
439 snooze
+= CYCLE
/ 10;
441 printf("Eaten. You can explore a little ");
443 } else if (!testbit(inven
, value
)) {
444 printf("You aren't holding the %s.\n",
446 } else if (!testbit(inven
, KNIFE
))
447 puts("You need a knife.");
449 puts("You're stuffed.");
450 if (wordnumber
< wordcount
- 1 &&
451 wordvalue
[++wordnumber
] == AND
)
454 return (firstnumber
);
457 return (firstnumber
);