battlestar/command5.c

   1 /*      $NetBSD: command5.c,v 1.1 2001/10/19 03:06:11 tv Exp $  */
   2
   3 /*
   4  * Copyright (c) 1983, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. All advertising materials mentioning features or use of this software
  16  *    must display the following acknowledgement:
  17  *      This product includes software developed by the University of
  18  *      California, Berkeley and its contributors.
  19  * 4. Neither the name of the University nor the names of its contributors
  20  *    may be used to endorse or promote products derived from this software
  21  *    without specific prior written permission.
  22  *
  23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  33  * SUCH DAMAGE.
  34  */
  35
  36 #include <sys/cdefs.h>
  37 #ifndef lint
  38 #if 0
  39 static char sccsid[] = "@(#)com5.c      8.2 (Berkeley) 4/28/95";
  40 #else
  41 __RCSID("$NetBSD: command5.c,v 1.1 2001/10/19 03:06:11 tv Exp $");
  42 #endif
  43 #endif                          /* not lint */
  44
  45 #include "extern.h"
  46
  47 void
  48 kiss()
  49 {
  50         while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount)
  51                 continue;
  52         /* The goddess must be "taken" first if bathing. */
  53         if (wordtype[wordnumber] == NOUNS && wordvalue[wordnumber] == NORMGOD
  54             && testbit(location[position].objects, BATHGOD)) {
  55                 wordvalue[--wordnumber] = TAKE;
  56                 cypher();
  57                 return;
  58         }
  59         if (wordtype[wordnumber] == NOUNS) {
  60                 if (testbit(location[position].objects, wordvalue[wordnumber])) {
  61                         pleasure++;
  62                         printf("Kissed.\n");
  63                         switch (wordvalue[wordnumber]) {
  64                         case NORMGOD:
  65                                 switch (godready++) {
  66                                 case 0:
  67                                         puts("She squirms and avoids your advances.");
  68                                         break;
  69                                 case 1:
  70                                         puts("She is coming around; she didn't fight it as much.");
  71                                         break;
  72                                 case 2:
  73                                         puts("She's beginning to like it.");
  74                                         break;
  75                                 default:
  76                                         puts("She's gone limp.");
  77
  78                                 }
  79                                 break;
  80                         case NATIVE:
  81                                 puts("Her lips are warm and her body robust.  She pulls you down to the ground.");
  82                                 break;
  83                         case TIMER:
  84                                 puts("The old man blushes.");
  85                                 break;
  86                         case MAN:
  87                                 puts("The dwarf punches you in the kneecap.");
  88                                 break;
  89                         default:
  90                                 pleasure--;
  91                         }
  92                 } else
  93                         puts("I see nothing like that here.");
  94         } else
  95                 puts("I'd prefer not to.");
  96 }
  97
  98 void
  99 love()
 100 {
 101         int     n;
 102
 103         while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount)
 104                 continue;
 105         if (wordtype[wordnumber] == NOUNS) {
 106                 if ((testbit(location[position].objects, BATHGOD) ||
 107                     testbit(location[position].objects, NORMGOD)) &&
 108                     wordvalue[wordnumber] == NORMGOD) {
 109                         if (loved) {
 110                                 printf("Loved.\n");
 111                                 return;
 112                         }
 113                         if (godready >= 2) {
 114                                 puts("She cuddles up to you, and her mouth starts to work:\n'That was my sister's amulet.  The lovely goddess, Purl, was she.  The Empire\ncaptured her just after the Darkness came.  My other sister, Vert, was killed\nby the Dark Lord himself.  He took her amulet and warped its power.\nYour quest was foretold by my father before he died, but to get the Dark Lord's\namulet you must use cunning and skill.  I will leave you my amulet,");
 115                                 puts("which you may use as you wish.  As for me, I am the last goddess of the\nwaters.  My father was the Island King, and the rule is rightfully mine.'\n\nShe pulls the throne out into a large bed.");
 116                                 power++;
 117                                 pleasure += 15;
 118                                 ego++;
 119                                 if (card(injuries, NUMOFINJURIES)) {
 120                                         puts("Her kisses revive you; your wounds are healed.\n");
 121                                         for (n = 0; n < NUMOFINJURIES; n++)
 122                                                 injuries[n] = 0;
 123                                         WEIGHT = MAXWEIGHT;
 124                                         CUMBER = MAXCUMBER;
 125                                 }
 126                                 printf("Goddess:\n");
 127                                 if (!loved)
 128                                         setbit(location[position].objects, MEDALION);
 129                                 loved = 1;
 130                                 ourtime += 10;
 131                                 printf("Loved.\n");
 132                                 zzz();
 133                                 return;
 134                         } else {
 135                                 puts("You wish!");
 136                                 return;
 137                         }
 138                 }
 139                 if (testbit(location[position].objects, wordvalue[wordnumber])) {
 140                         if (wordvalue[wordnumber] == NATIVE) {
 141                                 puts("The girl is easy prey.  She peels off her sarong and indulges you.");
 142                                 power++;
 143                                 pleasure += 5;
 144                                 printf("Girl:\n");
 145                                 ourtime += 10;
 146                                 printf("Loved.\n");
 147                                 zzz();
 148                         }
 149                         if (wordvalue[wordnumber] == MAN ||
 150                             wordvalue[wordnumber] == BODY ||
 151                             wordvalue[wordnumber] == ELF ||
 152                             wordvalue[wordnumber] == TIMER)
 153                                 puts("Kinky!");
 154                         else
 155                                 puts("It doesn't seem to work.");
 156                 } else
 157                         puts("Where's your lover?");
 158         } else
 159                 puts("It doesn't seem to work.");
 160 }
 161
 162 int
 163 zzz()
 164 {
 165         int     oldtime;
 166         int     n;
 167
 168         oldtime = ourtime;
 169         if ((snooze - ourtime) < (0.75 * CYCLE)) {
 170                 ourtime += 0.75 * CYCLE - (snooze - ourtime);
 171                 printf("<zzz>");
 172                 for (n = 0; n < ourtime - oldtime; n++)
 173                         printf(".");
 174                 printf("\n");
 175                 snooze += 3 * (ourtime - oldtime);
 176                 if (notes[LAUNCHED]) {
 177                         fuel -= (ourtime - oldtime);
 178                         if (location[position].down) {
 179                                 position = location[position].down;
 180                                 crash();
 181                         } else
 182                                 notes[LAUNCHED] = 0;
 183                 }
 184                 if (OUTSIDE && rnd(100) < 50) {
 185                         puts("You are awakened abruptly by the sound of someone nearby.");
 186                         switch (rnd(4)) {
 187                         case 0:
 188                                 if (ucard(inven)) {
 189                                         n = rnd(NUMOFOBJECTS);
 190                                         while (!testbit(inven, n))
 191                                                 n = rnd(NUMOFOBJECTS);
 192                                         clearbit(inven, n);
 193                                         if (n != AMULET && n != MEDALION && n != TALISMAN)
 194                                                 setbit(location[position].objects, n);
 195                                         carrying -= objwt[n];
 196                                         encumber -= objcumber[n];
 197                                 }
 198                                 puts("A fiendish little Elf is stealing your treasures!");
 199                                 fight(ELF, 10);
 200                                 break;
 201                         case 1:
 202                                 setbit(location[position].objects, DEADWOOD);
 203                                 break;
 204                         case 2:
 205                                 setbit(location[position].objects, HALBERD);
 206                                 break;
 207                         default:
 208                                 break;
 209                         }
 210                 }
 211         } else
 212                 return (0);
 213         return (1);
 214 }
 215
 216 void
 217 chime()
 218 {
 219         if ((ourtime / CYCLE + 1) % 2 && OUTSIDE)
 220                 switch ((ourtime % CYCLE) / (CYCLE / 7)) {
 221                 case 0:
 222                         puts("It is just after sunrise.");
 223                         break;
 224                 case 1:
 225                         puts("It is early morning.");
 226                         break;
 227                 case 2:
 228                         puts("It is late morning.");
 229                         break;
 230                 case 3:
 231                         puts("It is near noon.");
 232                         break;
 233                 case 4:
 234                         puts("It is early afternoon.");
 235                         break;
 236                 case 5:
 237                         puts("It is late afternoon.");
 238                         break;
 239                 case 6:
 240                         puts("It is near sunset.");
 241                         break;
 242                 }
 243         else if (OUTSIDE)
 244                 switch ((ourtime % CYCLE) / (CYCLE / 7)) {
 245                 case 0:
 246                         puts("It is just after sunset.");
 247                         break;
 248                 case 1:
 249                         puts("It is early evening.");
 250                         break;
 251                 case 2:
 252                         puts("The evening is getting old.");
 253                         break;
 254                 case 3:
 255                         puts("It is near midnight.");
 256                         break;
 257                 case 4:
 258                         puts("These are the wee hours of the morning.");
 259                         break;
 260                 case 5:
 261                         puts("The night is waning.");
 262                         break;
 263                 case 6:
 264                         puts("It is almost morning.");
 265                         break;
 266                 }
 267         else
 268                 puts("I can't tell the time in here.");
 269 }
 270
 271 int
 272 give()
 273 {
 274         int     obj = -1, result = -1, person = 0, firstnumber, last1, last2;
 275
 276         last1 = last2 = 0;
 277         firstnumber = wordnumber;
 278         while (wordtype[++wordnumber] != OBJECT && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount)
 279                 continue;
 280         if (wordnumber <= wordcount) {
 281                 obj = wordvalue[wordnumber];
 282                 if (obj == EVERYTHING)
 283                         wordtype[wordnumber] = -1;
 284                 last1 = wordnumber;
 285         }
 286         wordnumber = firstnumber;
 287         while ((wordtype[++wordnumber] != NOUNS || wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
 288         if (wordtype[wordnumber] == NOUNS) {
 289                 person = wordvalue[wordnumber];
 290                 last2 = wordnumber;
 291         }
 292         /* Setting wordnumber to last1 - 1 looks wrong if last1 is 0, e.g.,
 293          * plain `give'.  However, detecting this case is liable to detect
 294          * `give foo' as well, which would give a confusing error.  We
 295          * need to make sure the -1 value can cause no problems if it arises.
 296          * If in the below we get to the drop("Given") then drop will look
 297          * at word 0 for an object to give, and fail, which is OK; then
 298          * result will be -1 and we get to the end, where wordnumber gets
 299          * set to something more sensible.  If we get to "I don't think
 300          * that is possible" then again wordnumber is set to something
 301          * sensible.  The wordnumber we leave with still isn't right if
 302          * you include words the game doesn't know in your command, but
 303          * that's no worse than what other commands than give do in
 304          * the same place.  */
 305         wordnumber = last1 - 1;
 306         if (person && testbit(location[position].objects, person)) {
 307                 if (person == NORMGOD && godready < 2 && !(obj == RING || obj == BRACELET))
 308                         puts("The goddess won't look at you.");
 309                 else
 310                         result = drop("Given");
 311         } else {
 312                 puts("I don't think that is possible.");
 313                 wordnumber = max(last1, last2) + 1;
 314                 return (0);
 315         }
 316         if (result != -1 && (testbit(location[position].objects, obj) || obj == AMULET || obj == MEDALION || obj == TALISMAN)) {
 317                 clearbit(location[position].objects, obj);
 318                 ourtime++;
 319                 ego++;
 320                 switch (person) {
 321                 case NATIVE:
 322                         puts("She accepts it shyly.");
 323                         ego += 2;
 324                         break;
 325                 case NORMGOD:
 326                         if (obj == RING || obj == BRACELET) {
 327                                 puts("She takes the charm and puts it on.  A little kiss on the cheek is");
 328                                 puts("your reward.");
 329                                 ego += 5;
 330                                 godready += 3;
 331                         }
 332                         if (obj == AMULET || obj == MEDALION || obj == TALISMAN) {
 333                                 win++;
 334                                 ego += 5;
 335                                 power -= 5;
 336                                 if (win >= 3) {
 337                                         puts("The powers of the earth are now legitimate.  You have destroyed the Darkness");
 338                                         puts("and restored the goddess to her throne.  The entire island celebrates with");
 339                                         puts("dancing and spring feasts.  As a measure of her gratitude, the goddess weds you");
 340                                         puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
 341                                         puts("\nBut, as the year wears on and autumn comes along, you become restless and");
 342                                         puts("yearn for adventure.  The goddess, too, realizes that the marriage can't last.");
 343                                         puts("She becomes bored and takes several more natives as husbands.  One evening,");
 344                                         puts("after having been out drinking with the girls, she kicks the throne particularly");
 345                                         puts("hard and wakes you up.  (If you want to win this game, you're going to have to\nshoot her!)");
 346                                         clearbit(location[position].objects, MEDALION);
 347                                         wintime = ourtime;
 348                                 }
 349                         }
 350                         break;
 351                 case TIMER:
 352                         if (obj == COINS) {
 353                                 puts("He fingers the coins for a moment and then looks up agape.  `Kind you are and");
 354                                 puts("I mean to repay you as best I can.'  Grabbing a pencil and cocktail napkin...\n");
 355                                 printf("+-----------------------------------------------------------------------------+\n");
 356                                 printf("|                                  xxxxxxxx\\                                 |\n");
 357                                 printf("|                                      xxxxx\\  CLIFFS                        |\n");
 358                                 printf("|               FOREST                    xxx\\                               |\n");
 359                                 printf("|                               \\\\         x\\                OCEAN                 |\n");
 360                                 printf("|                               ||             x\\                            |\n");
 361                                 printf("|                               ||  ROAD        x\\                           |\n");
 362                                 printf("|                               ||              x\\                           |\n");
 363                                 printf("|               SECRET          ||        .........                           |\n");
 364                                 printf("|                - + -          ||         ........                           |\n");
 365                                 printf("|               ENTRANCE        ||              ...      BEACH                |\n");
 366                                 printf("|                               ||              ...               E           |\n");
 367                                 printf("|                               ||              ...               |           |\n");
 368                                 printf("|                               //              ...         N <-- + --- S     |\n");
 369                                 printf("|               PALM GROVE     //               ...               |           |\n");
 370                                 printf("|                             //                ...               W           |\n");
 371                                 printf("+-----------------------------------------------------------------------------+\n");
 372                                 puts("\n`This map shows a secret entrance to the catacombs.");
 373                                 puts("You will know when you arrive because I left an old pair of shoes there.'");
 374                         }
 375                         break;
 376                 }
 377         }
 378         wordnumber = max(last1, last2) + 1;
 379         return (firstnumber);
 380 }