mount.8: Fix typo.
[dragonfly.git] / games / battlestar / command5.c
1 /*      @(#)com5.c      8.2 (Berkeley) 4/28/95                          */
2 /*      $NetBSD: command5.c,v 1.5 2014/03/22 23:31:28 dholland 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 void
36 kiss(void)
37 {
38         while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount)
39                 continue;
40         /* The goddess must be "taken" first if bathing. */
41         if (wordtype[wordnumber] == NOUNS && wordvalue[wordnumber] == NORMGOD
42             && testbit(location[position].objects, BATHGOD)) {
43                 wordvalue[--wordnumber] = TAKE;
44                 cypher();
45                 return;
46         }
47         if (wordtype[wordnumber] == NOUNS) {
48                 if (testbit(location[position].objects, 
49                     wordvalue[wordnumber])) {
50                         pleasure++;
51                         printf("Kissed.\n");
52                         switch (wordvalue[wordnumber]) {
53                         case NORMGOD:
54                                 switch (godready++) {
55                                 case 0:
56                                         printf("She squirms and avoids your ");
57                                         puts("advances.");
58                                         break;
59                                 case 1:
60                                         puts("She is coming around; she ");
61                                         puts("didn't fight it as much.");
62                                         break;
63                                 case 2:
64                                         puts("She's beginning to like it.");
65                                         break;
66                                 default:
67                                         puts("She's gone limp.");
68
69                                 }
70                                 break;
71                         case NATIVE:
72                                 printf("Her lips are warm and her body ");
73                                 printf("robust.  She pulls you down to ");
74                                 puts("the ground.");
75                                 break;
76                         case TIMER:
77                                 puts("The old man blushes.");
78                                 break;
79                         case MAN:
80                                 puts("The dwarf punches you in the kneecap.");
81                                 break;
82                         default:
83                                 pleasure--;
84                         }
85                 } else
86                         puts("I see nothing like that here.");
87         } else
88                 puts("I'd prefer not to.");
89 }
90
91 void
92 love(void)
93 {
94         int     n;
95
96         while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount)
97                 continue;
98         if (wordtype[wordnumber] == NOUNS) {
99                 if ((testbit(location[position].objects, BATHGOD) ||
100                     testbit(location[position].objects, NORMGOD)) &&
101                     wordvalue[wordnumber] == NORMGOD) {
102                         if (loved) {
103                                 printf("Loved.\n");
104                                 return;
105                         }
106                         if (godready >= 2) {
107                                 printf("She cuddles up to you, and her mouth ");
108                                 printf("starts to work:\n'That was my ");
109                                 printf("sister's amulet.  The lovely ");
110                                 printf("goddess, Purl, was she.  The Empire\n");
111                                 printf("captured her just after the Darkness ");
112                                 printf("came.  My other sister, Vert, was ");
113                                 printf("killed\nby the Dark Lord himself.  ");
114                                 printf("He took her amulet and warped its ");
115                                 printf("power.\nYour quest was foretold by ");
116                                 printf("my father before he died, but to get ");
117                                 printf("the Dark Lord's\namulet you must use ");
118                                 printf("cunning and skill.  I will leave you ");
119                                 puts("my amulet,");
120                                 printf("which you may use as you wish.  As ");
121                                 printf("for me, I am the last goddess of ");
122                                 printf("the\nwaters.  My father was the ");
123                                 printf("Island King, and the rule is ");
124                                 printf("rightfully mine.'\n\nShe pulls the ");
125                                 puts("throne out into a large bed.");
126                                 power++;
127                                 pleasure += 15;
128                                 ego++;
129                                 if (card(injuries, NUMOFINJURIES)) {
130                                         printf("Her kisses revive you; your ");
131                                         printf("wounds are healed.\n");
132                                         for (n = 0; n < NUMOFINJURIES; n++)
133                                                 injuries[n] = 0;
134                                         WEIGHT = MAXWEIGHT;
135                                         CUMBER = MAXCUMBER;
136                                 }
137                                 printf("Goddess:\n");
138                                 if (!loved)
139                                         setbit(location[position].objects, 
140                                             MEDALION);
141                                 loved = 1;
142                                 ourtime += 10;
143                                 printf("Loved.\n");
144                                 zzz();
145                                 return;
146                         } else {
147                                 puts("You wish!");
148                                 return;
149                         }
150                 }
151                 if (testbit(location[position].objects, 
152                     wordvalue[wordnumber])) {
153                         if (wordvalue[wordnumber] == NATIVE) {
154                                 printf("The girl is easy prey.  She peels ");
155                                 puts("off her sarong and indulges you.");
156                                 power++;
157                                 pleasure += 5;
158                                 printf("Girl:\n");
159                                 ourtime += 10;
160                                 printf("Loved.\n");
161                                 zzz();
162                         }
163                         if (wordvalue[wordnumber] == MAN ||
164                             wordvalue[wordnumber] == BODY ||
165                             wordvalue[wordnumber] == ELF ||
166                             wordvalue[wordnumber] == TIMER)
167                                 puts("Kinky!");
168                         else
169                                 puts("It doesn't seem to work.");
170                 } else
171                         puts("Where's your lover?");
172         } else
173                 puts("It doesn't seem to work.");
174 }
175
176 int
177 zzz(void)
178 {
179         int     oldtime;
180         int     n;
181         int zzztime;
182
183         zzztime = (3 * CYCLE) / 4;
184
185         oldtime = ourtime;
186         if ((snooze - ourtime) < zzztime) {
187                 ourtime += zzztime - (snooze - ourtime);
188                 printf("<zzz>");
189                 for (n = 0; n < ourtime - oldtime; n++)
190                         printf(".");
191                 printf("\n");
192                 snooze += 3 * (ourtime - oldtime);
193                 if (notes[LAUNCHED]) {
194                         fuel -= (ourtime - oldtime);
195                         if (location[position].down) {
196                                 position = location[position].down;
197                                 crash();
198                         } else
199                                 notes[LAUNCHED] = 0;
200                 }
201                 if (OUTSIDE && rnd(100) < 50) {
202                         printf("You are awakened abruptly by the sound ");
203                         puts("of someone nearby.");
204                         switch (rnd(4)) {
205                         case 0:
206                                 if (ucard(inven)) {
207                                         n = rnd(NUMOFOBJECTS);
208                                         while (!testbit(inven, n))
209                                                 n = rnd(NUMOFOBJECTS);
210                                         clearbit(inven, n);
211                                         if (n != AMULET && n != MEDALION && 
212                                             n != TALISMAN)
213                                                 setbit(
214                                                     location[position].objects,
215                                                     n);
216                                         carrying -= objwt[n];
217                                         encumber -= objcumber[n];
218                                 }
219                                 printf("A fiendish little Elf is stealing ");
220                                 puts("your treasures!");
221                                 fight(ELF, 10);
222                                 break;
223                         case 1:
224                                 setbit(location[position].objects, DEADWOOD);
225                                 break;
226                         case 2:
227                                 setbit(location[position].objects, HALBERD);
228                                 break;
229                         default:
230                                 break;
231                         }
232                 }
233         } else
234                 return (0);
235         return (1);
236 }
237
238 void
239 chime(void)
240 {
241         if ((ourtime / CYCLE + 1) % 2 && OUTSIDE)
242                 switch ((ourtime % CYCLE) / (CYCLE / 7)) {
243                 case 0:
244                         puts("It is just after sunrise.");
245                         break;
246                 case 1:
247                         puts("It is early morning.");
248                         break;
249                 case 2:
250                         puts("It is late morning.");
251                         break;
252                 case 3:
253                         puts("It is near noon.");
254                         break;
255                 case 4:
256                         puts("It is early afternoon.");
257                         break;
258                 case 5:
259                         puts("It is late afternoon.");
260                         break;
261                 case 6:
262                         puts("It is near sunset.");
263                         break;
264                 }
265         else if (OUTSIDE)
266                 switch ((ourtime % CYCLE) / (CYCLE / 7)) {
267                 case 0:
268                         puts("It is just after sunset.");
269                         break;
270                 case 1:
271                         puts("It is early evening.");
272                         break;
273                 case 2:
274                         puts("The evening is getting old.");
275                         break;
276                 case 3:
277                         puts("It is near midnight.");
278                         break;
279                 case 4:
280                         puts("These are the wee hours of the morning.");
281                         break;
282                 case 5:
283                         puts("The night is waning.");
284                         break;
285                 case 6:
286                         puts("It is almost morning.");
287                         break;
288                 }
289         else
290                 puts("I can't tell the time in here.");
291 }
292
293 int
294 give(void)
295 {
296         int     obj = -1, result = -1, person = 0, firstnumber, last1, last2;
297
298         last1 = last2 = 0;
299         firstnumber = wordnumber;
300         while (wordtype[++wordnumber] != OBJECT && 
301             wordvalue[wordnumber] != AMULET && 
302             wordvalue[wordnumber] != MEDALION && 
303             wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount)
304                 continue;
305         if (wordnumber <= wordcount) {
306                 obj = wordvalue[wordnumber];
307                 if (obj == EVERYTHING)
308                         wordtype[wordnumber] = -1;
309                 last1 = wordnumber;
310         }
311         wordnumber = firstnumber;
312         while ((wordtype[++wordnumber] != NOUNS || 
313             wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
314         if (wordtype[wordnumber] == NOUNS) {
315                 person = wordvalue[wordnumber];
316                 last2 = wordnumber;
317         }
318         /* Setting wordnumber to last1 - 1 looks wrong if last1 is 0, e.g.,
319          * plain `give'.  However, detecting this case is liable to detect
320          * `give foo' as well, which would give a confusing error.  We
321          * need to make sure the -1 value can cause no problems if it arises.
322          * If in the below we get to the drop("Given") then drop will look
323          * at word 0 for an object to give, and fail, which is OK; then
324          * result will be -1 and we get to the end, where wordnumber gets
325          * set to something more sensible.  If we get to "I don't think
326          * that is possible" then again wordnumber is set to something
327          * sensible.  The wordnumber we leave with still isn't right if
328          * you include words the game doesn't know in your command, but
329          * that's no worse than what other commands than give do in
330          * the same place.  */
331         wordnumber = last1 - 1;
332         if (person && testbit(location[position].objects, person)) {
333                 if (person == NORMGOD && godready < 2 && 
334                     !(obj == RING || obj == BRACELET))
335                         puts("The goddess won't look at you.");
336                 else
337                         result = drop("Given");
338         } else {
339                 puts("I don't think that is possible.");
340                 wordnumber = max(last1, last2) + 1;
341                 return (0);
342         }
343         if (result != -1 && (testbit(location[position].objects, obj) || 
344             obj == AMULET || obj == MEDALION || obj == TALISMAN)) {
345                 clearbit(location[position].objects, obj);
346                 ourtime++;
347                 ego++;
348                 switch (person) {
349                 case NATIVE:
350                         puts("She accepts it shyly.");
351                         ego += 2;
352                         break;
353                 case NORMGOD:
354                         if (obj == RING || obj == BRACELET) {
355                                 printf("She takes the charm and puts it on.");
356                                 puts("  A little kiss on the cheek is");
357                                 puts("your reward.");
358                                 ego += 5;
359                                 godready += 3;
360                         }
361                         if (obj == AMULET || obj == MEDALION || 
362                             obj == TALISMAN) {
363                                 win++;
364                                 ego += 5;
365                                 power -= 5;
366                                 if (win >= 3) {
367                                         printf("The powers of the earth are ");
368                                         printf("now legitimate.  You have ");
369                                         puts("destroyed the Darkness");
370                                         printf("and restored the goddess to ");
371                                         printf("her throne.  The entire ");
372                                         puts("island celebrates with");
373                                         printf("dancing and spring feasts.  ");
374                                         printf("As a measure of her ");
375                                         puts("gratitude, the goddess weds you");
376                                         printf("in the late summer and ");
377                                         printf("crowns you Prince Liverwort, ");
378                                         puts("Lord of Fungus.");
379                                         printf("\nBut, as the year wears on ");
380                                         printf("and autumn comes along, you ");
381                                         puts("become restless and");
382                                         printf("yearn for adventure.  The ");
383                                         printf("goddess, too, realizes that ");
384                                         puts("the marriage can't last.");
385                                         printf("She becomes bored and takes ");
386                                         printf("several more natives as ");
387                                         puts("husbands.  One evening,");
388                                         printf("after having been out ");
389                                         printf("drinking with the girls, she ");
390                                         puts("kicks the throne particularly");
391                                         printf("hard and wakes you up.  (If ");
392                                         printf("you want to win this game, ");
393                                         printf("you're going to have to\n");
394                                         puts("shoot her!)");
395                                         clearbit(location[position].objects, 
396                                             MEDALION);
397                                         wintime = ourtime;
398                                 }
399                         }
400                         break;
401                 case TIMER:
402                         if (obj == COINS) {
403                                 printf("He fingers the coins for a moment ");
404                                 printf("and then looks up agape.  `Kind you ");
405                                 puts("are and");
406                                 printf("I mean to repay you as best I can.'  ");
407                                 printf("Grabbing a pencil and cocktail ");
408                                 puts("napkin...\n");
409                                 printf("+-----------------------------------");
410                                 printf("------------------------------------");
411                                 printf("------+\n");
412                                 printf("|                                  xxxxxxxx\\                                 |\n");
413                                 printf("|                                      xxxxx\\  CLIFFS                        |\n");
414                                 printf("|               FOREST                    xxx\\                               |\n");
415                                 printf("|                               \\\\         x\\                OCEAN                 |\n");
416                                 printf("|                               ||             x\\                            |\n");
417                                 printf("|                               ||  ROAD        x\\                           |\n");
418                                 printf("|                               ||              x\\                           |\n");
419                                 printf("|               SECRET          ||        .........                           |\n");
420                                 printf("|                - + -          ||         ........                           |\n");
421                                 printf("|               ENTRANCE        ||              ...      BEACH                |\n");
422                                 printf("|                               ||              ...               E           |\n");
423                                 printf("|                               ||              ...               |           |\n");
424                                 printf("|                               //              ...         N <-- + --- S     |\n");
425                                 printf("|               PALM GROVE     //               ...               |           |\n");
426                                 printf("|                             //                ...               W           |\n");
427                                 printf("+");
428                                 printf("---------------------------------");
429                                 printf("---------------------------------");
430                                 printf("-----------+\n");
431                                 printf("\n`This map shows a secret entrance ");
432                                 puts("to the catacombs.");
433                                 printf("You will know when you arrive ");
434                                 printf("because I left an old pair of shoes ");
435                                 puts("there.'");
436                         }
437                         break;
438                 }
439         }
440         wordnumber = max(last1, last2) + 1;
441         return (firstnumber);
442 }