mount.8: Fix typo.
[dragonfly.git] / games / battlestar / command4.c
1 /*      @(#)com4.c      8.2 (Berkeley) 4/28/95                  */
2 /*      $NetBSD: command4.c,v 1.3 2005/07/01 06:04:54 jmc Exp $ */
3
4 /*
5  * Copyright (c) 1983, 1993
6  *      The Regents of the University of California.  All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
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.
19  *
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
30  * SUCH DAMAGE.
31  */
32
33 #include "extern.h"
34
35 int
36 take(unsigned int from[])
37 {
38         int     firstnumber, heavy, bulky, value;
39
40         firstnumber = wordnumber;
41         if (wordnumber < wordcount && wordvalue[wordnumber + 1] == OFF) {
42                 wordnumber++;
43                 wordvalue[wordnumber] = TAKEOFF;
44                 wordtype[wordnumber] = VERB;
45                 return (cypher());
46         } else {
47                 wordnumber++;
48                 while (wordnumber <= wordcount && wordtype[wordnumber] == 
49                     OBJECT) {
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)) {
56                                 setbit(inven, value);
57                                 carrying += objwt[value];
58                                 encumber += objcumber[value];
59                                 ourtime++;
60                                 if (testbit(from, value))
61                                         printf("Taken.\n");
62                                 else
63                                         printf("Zap! Taken from thin air.\n");
64                                 clearbit(from, value);
65                                 if (value == MEDALION)
66                                         win--;
67                         } else if (testbit(inven, value))
68                                 printf("You're already holding %s%s.\n",
69                                     A_OR_AN_OR_BLANK(value),
70                                     objsht[value]);
71                         else if (!testbit(from, value))
72                                 printf("I don't see any %s around here.\n", 
73                                     objsht[value]);
74                         else if (!heavy)
75                                 printf("The %s %stoo heavy.\n", objsht[value],
76                                     IS_OR_ARE(value));
77                         else
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)
82                                 wordnumber++;
83                         else
84                                 return (firstnumber);
85                 }
86         }
87         /* special cases with their own return()'s */
88
89         if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS)
90                 switch (wordvalue[wordnumber]) {
91
92                 case SWORD:
93                         if (testbit(from, SWORD)) {
94                                 wordtype[wordnumber--] = OBJECT;
95                                 return (take(from));
96                         }
97                         if (testbit(from, TWO_HANDED)) {
98                                 wordvalue[wordnumber] = TWO_HANDED;
99                                 wordtype[wordnumber--] = OBJECT;
100                                 return (take(from));
101                         }
102                         wordvalue[wordnumber] = BROAD;
103                         wordtype[wordnumber--] = OBJECT;
104                         return (take(from));
105
106                 case BODY:
107                         if (testbit(from, MAID)) {
108                                 wordvalue[wordnumber] = MAID;
109                                 wordtype[wordnumber--] = OBJECT;
110                                 return (take(from));
111                         } else if (testbit(from, DEADWOOD)) {
112                                 wordvalue[wordnumber] = DEADWOOD;
113                                 wordtype[wordnumber--] = OBJECT;
114                                 return (take(from));
115                         } else if (testbit(from, DEADNATIVE)) {
116                                 wordvalue[wordnumber] = DEADNATIVE;
117                                 wordtype[wordnumber--] = OBJECT;
118                                 return (take(from));
119                         } else {
120                                 if (testbit(from, DEADGOD)) {
121                                         wordvalue[wordnumber] = DEADGOD;
122                                         wordtype[wordnumber--] = OBJECT;
123                                         return (take(from));
124                                 } else {
125                                         wordvalue[wordnumber] = DEADTIME;
126                                         wordtype[wordnumber--] = OBJECT;
127                                         return (take(from));
128                                 }
129                         }
130                         break;
131
132                 case AMULET:
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 ");
142                                 puts("horror.");
143                                 printf("The gold freezes your hands and ");
144                                 puts("fathomless darkness engulfs your soul.");
145                         }
146                         wordtype[wordnumber--] = OBJECT;
147                         return (take(from));
148
149                 case MEDALION:
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");
157                         }
158                         wordtype[wordnumber--] = OBJECT;
159                         return (take(from));
160
161                 case TALISMAN:
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.");
165                         }
166                         wordtype[wordnumber--] = OBJECT;
167                         return (take(from));
168
169                 case NORMGOD:
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 ");
176                                 puts("they part");
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 ");
182                                 puts("walks away.");
183                                 pleasure++;
184                                 followgod = ourtime;
185                                 clearbit(location[position].objects, BATHGOD);
186                         } else
187                                 if (!testbit(location[position].objects, 
188                                     BATHGOD)) {
189                                         printf("You're in no position to ");
190                                         puts("take her.");
191                                 } else
192                                         puts("She moves away from you.");
193                         break;
194
195                 default:
196                         puts("It doesn't seem to work.");
197                 }
198         else
199                 puts("You've got to be kidding.");
200         return (firstnumber);
201 }
202
203 int
204 throw(const char *name)
205 {
206         unsigned int     n;
207         int     deposit = 0;
208         int     first, value;
209
210         first = wordnumber;
211         if (drop(name) != -1) {
212                 switch (wordvalue[wordnumber]) {
213
214                 case AHEAD:
215                         deposit = ahead;
216                         break;
217
218                 case BACK:
219                         deposit = back;
220                         break;
221
222                 case LEFT:
223                         deposit = left;
224                         break;
225
226                 case RIGHT:
227                         deposit = right;
228                         break;
229
230                 case UP:
231                         deposit = location[position].up * 
232                             (location[position].access || position == FINAL);
233                         break;
234
235                 case DOWN:
236                         deposit = location[position].down;
237                         break;
238                 }
239                 wordnumber = first + 1;
240                 while (wordnumber <= wordcount) {
241                         value = wordvalue[wordnumber];
242                         if (deposit && 
243                             testbit(location[position].objects, value)) {
244                                 clearbit(location[position].objects, value);
245                                 if (value != GRENADE)
246                                         setbit(location[deposit].objects, 
247                                             value);
248                                 else {
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] = 
254                                                     0;
255                                         setbit(location[deposit].objects, CHAR);
256                                 }
257                                 if (value == ROPE && position == FINAL)
258                                         location[position].access = 1;
259                                 switch (deposit) {
260                                 case 189:
261                                 case 231:
262                                         puts("The stone door is unhinged.");
263                                         location[189].north = 231;
264                                         location[231].south = 189;
265                                         break;
266                                 case 30:
267                                         puts("The wooden door is blown open.");
268                                         location[30].west = 25;
269                                         break;
270                                 case 31:
271                                         puts("The door is not damaged.");
272                                 }
273                         } else
274                                 if (value == GRENADE && 
275                                     testbit(location[position].objects, 
276                                     value)) {
277                                         printf("You are blown into shreds ");
278                                         puts("when your grenade explodes.");
279                                         die();
280                                 }
281                         if (wordnumber < wordcount - 1 && 
282                             wordvalue[++wordnumber] == AND)
283                                 wordnumber++;
284                         else
285                                 return (first);
286                 }
287                 return (first);
288         }
289         return (first);
290 }
291
292 int
293 drop(const char *name)
294 {
295
296         int     firstnumber, value;
297
298         firstnumber = wordnumber;
299         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))
307                                 value = MAID;
308                         else if (testbit(inven, DEADWOOD) || 
309                             testbit(location[position].objects, DEADWOOD))
310                                 value = DEADWOOD;
311                         else if (testbit(inven, DEADGOD) || 
312                             testbit(location[position].objects, DEADGOD))
313                                 value = DEADGOD;
314                         else if (testbit(inven, DEADTIME) || 
315                             testbit(location[position].objects, DEADTIME))
316                                 value = DEADTIME;
317                         else if (testbit(inven, DEADNATIVE) || 
318                             testbit(location[position].objects, DEADNATIVE))
319                                 value = DEADNATIVE;
320                 }
321                 if (wordtype[wordnumber] == NOUNS && value == DOOR) {
322                         if (*name == 'K')
323                                 puts("You hurt your foot.");
324                         else
325                                 puts("You're not holding a door.");
326                 } else if (objsht[value] == NULL) {
327                         if (*name == 'K')
328                                 puts("That's not for kicking!");
329                         else
330                                 puts("You don't have that.");
331                 } else {
332                         printf("%s:\n", objsht[value]);
333                         if (testbit(inven, value)) {
334                                 clearbit(inven, value);
335                                 carrying -= objwt[value];
336                                 encumber -= objcumber[value];
337                                 if (value == BOMB) {
338                                         printf("The bomb explodes.  A ");
339                                         printf("blinding white light and ");
340                                         printf("immense concussion ");
341                                         puts("obliterate us.");
342                                         die();
343                                 }
344                                 if (value != AMULET && value != MEDALION && 
345                                     value != TALISMAN)
346                                         setbit(location[position].objects, 
347                                             value);
348                                 else
349                                         tempwiz = 0;
350                                 ourtime++;
351                                 if (*name == 'K')
352                                         puts("Drop kicked.");
353                                 else
354                                         printf("%s.\n", name);
355                         } else {
356                                 if (*name != 'K') {
357                                         printf("You aren't holding the %s.\n", 
358                                             objsht[value]);
359                                         if (testbit(location[position].objects,
360                                             value)) {
361                                                 if (*name == 'T')
362                                                         puts("Kicked instead.");
363                                                 else if (*name == 'G')
364                                                         puts("Given anyway.");
365                                         }
366                                 } else if (testbit(location[position].objects, 
367                                     value))
368                                         puts("Kicked.");
369                                 else if (testbit(wear, value))
370                                         puts("Not while it's being worn.");
371                                 else
372                                         puts("Not found.");
373                         }
374                 }
375                 if (wordnumber < wordcount - 1 && 
376                     wordvalue[++wordnumber] == AND)
377                         wordnumber++;
378                 else
379                         return (firstnumber);
380         }
381         puts("Do what?");
382         return (-1);
383 }
384
385 int
386 takeoff(void)
387 {
388         wordnumber = take(wear);
389         return (drop("Dropped"));
390 }
391
392 int
393 puton(void)
394 {
395         wordnumber = take(location[position].objects);
396         return (wearit());
397 }
398
399 int
400 eat(void)
401 {
402         int     firstnumber, value;
403
404         firstnumber = wordnumber;
405         wordnumber++;
406         while (wordnumber <= wordcount) {
407                 value = wordvalue[wordnumber];
408                 if (wordtype[wordnumber] != OBJECT || objsht[value] == NULL)
409                         value = -2;
410                 switch (value) {
411
412                 case -2:
413                         puts("You can't eat that!");
414                         return (firstnumber);
415
416                 case -1:
417                         puts("Eat what?");
418                         return (firstnumber);
419
420                 default:
421                         printf("You can't eat %s%s!\n",
422                             A_OR_AN_OR_BLANK(value), objsht[value]);
423                         return (firstnumber);
424
425                 case PAPAYAS:
426                 case PINEAPPLE:
427                 case KIWI:
428                 case COCONUTS:  /* eatable things */
429                 case MANGO:
430
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;
440                                 ourtime++;
441                                 printf("Eaten.  You can explore a little ");
442                                 puts("longer now.");
443                         } else if (!testbit(inven, value)) {
444                                 printf("You aren't holding the %s.\n", 
445                                     objsht[value]);
446                         } else if (!testbit(inven, KNIFE))
447                                 puts("You need a knife.");
448                         else
449                                 puts("You're stuffed.");
450                         if (wordnumber < wordcount - 1 && 
451                             wordvalue[++wordnumber] == AND)
452                                 wordnumber++;
453                         else
454                                 return (firstnumber);
455                 }               /* end switch */
456         }                       /* end while */
457         return (firstnumber);
458 }