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