451 lines
13 KiB
C
451 lines
13 KiB
C
/* $NetBSD: command5.c,v 1.5 2014/03/22 23:31:28 dholland Exp $ */
|
|
|
|
/*
|
|
* Copyright (c) 1983, 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. Neither the name of the University nor the names of its contributors
|
|
* may be used to endorse or promote products derived from this software
|
|
* without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
#ifndef lint
|
|
#if 0
|
|
static char sccsid[] = "@(#)com5.c 8.2 (Berkeley) 4/28/95";
|
|
#else
|
|
__RCSID("$NetBSD: command5.c,v 1.5 2014/03/22 23:31:28 dholland Exp $");
|
|
#endif
|
|
#endif /* not lint */
|
|
|
|
#include "extern.h"
|
|
|
|
void
|
|
kiss(void)
|
|
{
|
|
while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount)
|
|
continue;
|
|
/* The goddess must be "taken" first if bathing. */
|
|
if (wordtype[wordnumber] == NOUNS && wordvalue[wordnumber] == NORMGOD
|
|
&& testbit(location[position].objects, BATHGOD)) {
|
|
wordvalue[--wordnumber] = TAKE;
|
|
cypher();
|
|
return;
|
|
}
|
|
if (wordtype[wordnumber] == NOUNS) {
|
|
if (testbit(location[position].objects,
|
|
wordvalue[wordnumber])) {
|
|
pleasure++;
|
|
printf("Kissed.\n");
|
|
switch (wordvalue[wordnumber]) {
|
|
case NORMGOD:
|
|
switch (godready++) {
|
|
case 0:
|
|
printf("She squirms and avoids your ");
|
|
puts("advances.");
|
|
break;
|
|
case 1:
|
|
puts("She is coming around; she ");
|
|
puts("didn't fight it as much.");
|
|
break;
|
|
case 2:
|
|
puts("She's beginning to like it.");
|
|
break;
|
|
default:
|
|
puts("She's gone limp.");
|
|
|
|
}
|
|
break;
|
|
case NATIVE:
|
|
printf("Her lips are warm and her body ");
|
|
printf("robust. She pulls you down to ");
|
|
puts("the ground.");
|
|
break;
|
|
case TIMER:
|
|
puts("The old man blushes.");
|
|
break;
|
|
case MAN:
|
|
puts("The dwarf punches you in the kneecap.");
|
|
break;
|
|
default:
|
|
pleasure--;
|
|
}
|
|
} else
|
|
puts("I see nothing like that here.");
|
|
} else
|
|
puts("I'd prefer not to.");
|
|
}
|
|
|
|
void
|
|
love(void)
|
|
{
|
|
int n;
|
|
|
|
while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount)
|
|
continue;
|
|
if (wordtype[wordnumber] == NOUNS) {
|
|
if ((testbit(location[position].objects, BATHGOD) ||
|
|
testbit(location[position].objects, NORMGOD)) &&
|
|
wordvalue[wordnumber] == NORMGOD) {
|
|
if (loved) {
|
|
printf("Loved.\n");
|
|
return;
|
|
}
|
|
if (godready >= 2) {
|
|
printf("She cuddles up to you, and her mouth ");
|
|
printf("starts to work:\n'That was my ");
|
|
printf("sister's amulet. The lovely ");
|
|
printf("goddess, Purl, was she. The Empire\n");
|
|
printf("captured her just after the Darkness ");
|
|
printf("came. My other sister, Vert, was ");
|
|
printf("killed\nby the Dark Lord himself. ");
|
|
printf("He took her amulet and warped its ");
|
|
printf("power.\nYour quest was foretold by ");
|
|
printf("my father before he died, but to get ");
|
|
printf("the Dark Lord's\namulet you must use ");
|
|
printf("cunning and skill. I will leave you ");
|
|
puts("my amulet,");
|
|
printf("which you may use as you wish. As ");
|
|
printf("for me, I am the last goddess of ");
|
|
printf("the\nwaters. My father was the ");
|
|
printf("Island King, and the rule is ");
|
|
printf("rightfully mine.'\n\nShe pulls the ");
|
|
puts("throne out into a large bed.");
|
|
power++;
|
|
pleasure += 15;
|
|
ego++;
|
|
if (card(injuries, NUMOFINJURIES)) {
|
|
printf("Her kisses revive you; your ");
|
|
printf("wounds are healed.\n");
|
|
for (n = 0; n < NUMOFINJURIES; n++)
|
|
injuries[n] = 0;
|
|
WEIGHT = MAXWEIGHT;
|
|
CUMBER = MAXCUMBER;
|
|
}
|
|
printf("Goddess:\n");
|
|
if (!loved)
|
|
setbit(location[position].objects,
|
|
MEDALION);
|
|
loved = 1;
|
|
ourtime += 10;
|
|
printf("Loved.\n");
|
|
zzz();
|
|
return;
|
|
} else {
|
|
puts("You wish!");
|
|
return;
|
|
}
|
|
}
|
|
if (testbit(location[position].objects,
|
|
wordvalue[wordnumber])) {
|
|
if (wordvalue[wordnumber] == NATIVE) {
|
|
printf("The girl is easy prey. She peels ");
|
|
puts("off her sarong and indulges you.");
|
|
power++;
|
|
pleasure += 5;
|
|
printf("Girl:\n");
|
|
ourtime += 10;
|
|
printf("Loved.\n");
|
|
zzz();
|
|
}
|
|
if (wordvalue[wordnumber] == MAN ||
|
|
wordvalue[wordnumber] == BODY ||
|
|
wordvalue[wordnumber] == ELF ||
|
|
wordvalue[wordnumber] == TIMER)
|
|
puts("Kinky!");
|
|
else
|
|
puts("It doesn't seem to work.");
|
|
} else
|
|
puts("Where's your lover?");
|
|
} else
|
|
puts("It doesn't seem to work.");
|
|
}
|
|
|
|
int
|
|
zzz(void)
|
|
{
|
|
int oldtime;
|
|
int n;
|
|
int zzztime;
|
|
|
|
zzztime = (3 * CYCLE) / 4;
|
|
|
|
oldtime = ourtime;
|
|
if ((snooze - ourtime) < zzztime) {
|
|
ourtime += zzztime - (snooze - ourtime);
|
|
printf("<zzz>");
|
|
for (n = 0; n < ourtime - oldtime; n++)
|
|
printf(".");
|
|
printf("\n");
|
|
snooze += 3 * (ourtime - oldtime);
|
|
if (notes[LAUNCHED]) {
|
|
fuel -= (ourtime - oldtime);
|
|
if (location[position].down) {
|
|
position = location[position].down;
|
|
crash();
|
|
} else
|
|
notes[LAUNCHED] = 0;
|
|
}
|
|
if (OUTSIDE && rnd(100) < 50) {
|
|
printf("You are awakened abruptly by the sound ");
|
|
puts("of someone nearby.");
|
|
switch (rnd(4)) {
|
|
case 0:
|
|
if (ucard(inven)) {
|
|
n = rnd(NUMOFOBJECTS);
|
|
while (!testbit(inven, n))
|
|
n = rnd(NUMOFOBJECTS);
|
|
clearbit(inven, n);
|
|
if (n != AMULET && n != MEDALION &&
|
|
n != TALISMAN)
|
|
setbit(
|
|
location[position].objects,
|
|
n);
|
|
carrying -= objwt[n];
|
|
encumber -= objcumber[n];
|
|
}
|
|
printf("A fiendish little Elf is stealing ");
|
|
puts("your treasures!");
|
|
fight(ELF, 10);
|
|
break;
|
|
case 1:
|
|
setbit(location[position].objects, DEADWOOD);
|
|
break;
|
|
case 2:
|
|
setbit(location[position].objects, HALBERD);
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
} else
|
|
return (0);
|
|
return (1);
|
|
}
|
|
|
|
void
|
|
chime(void)
|
|
{
|
|
if ((ourtime / CYCLE + 1) % 2 && OUTSIDE)
|
|
switch ((ourtime % CYCLE) / (CYCLE / 7)) {
|
|
case 0:
|
|
puts("It is just after sunrise.");
|
|
break;
|
|
case 1:
|
|
puts("It is early morning.");
|
|
break;
|
|
case 2:
|
|
puts("It is late morning.");
|
|
break;
|
|
case 3:
|
|
puts("It is near noon.");
|
|
break;
|
|
case 4:
|
|
puts("It is early afternoon.");
|
|
break;
|
|
case 5:
|
|
puts("It is late afternoon.");
|
|
break;
|
|
case 6:
|
|
puts("It is near sunset.");
|
|
break;
|
|
}
|
|
else if (OUTSIDE)
|
|
switch ((ourtime % CYCLE) / (CYCLE / 7)) {
|
|
case 0:
|
|
puts("It is just after sunset.");
|
|
break;
|
|
case 1:
|
|
puts("It is early evening.");
|
|
break;
|
|
case 2:
|
|
puts("The evening is getting old.");
|
|
break;
|
|
case 3:
|
|
puts("It is near midnight.");
|
|
break;
|
|
case 4:
|
|
puts("These are the wee hours of the morning.");
|
|
break;
|
|
case 5:
|
|
puts("The night is waning.");
|
|
break;
|
|
case 6:
|
|
puts("It is almost morning.");
|
|
break;
|
|
}
|
|
else
|
|
puts("I can't tell the time in here.");
|
|
}
|
|
|
|
int
|
|
give(void)
|
|
{
|
|
int obj = -1, result = -1, person = 0, firstnumber, last1, last2;
|
|
|
|
last1 = last2 = 0;
|
|
firstnumber = wordnumber;
|
|
while (wordtype[++wordnumber] != OBJECT &&
|
|
wordvalue[wordnumber] != AMULET &&
|
|
wordvalue[wordnumber] != MEDALION &&
|
|
wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount)
|
|
continue;
|
|
if (wordnumber <= wordcount) {
|
|
obj = wordvalue[wordnumber];
|
|
if (obj == EVERYTHING)
|
|
wordtype[wordnumber] = -1;
|
|
last1 = wordnumber;
|
|
}
|
|
wordnumber = firstnumber;
|
|
while ((wordtype[++wordnumber] != NOUNS ||
|
|
wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
|
|
if (wordtype[wordnumber] == NOUNS) {
|
|
person = wordvalue[wordnumber];
|
|
last2 = wordnumber;
|
|
}
|
|
/* Setting wordnumber to last1 - 1 looks wrong if last1 is 0, e.g.,
|
|
* plain `give'. However, detecting this case is liable to detect
|
|
* `give foo' as well, which would give a confusing error. We
|
|
* need to make sure the -1 value can cause no problems if it arises.
|
|
* If in the below we get to the drop("Given") then drop will look
|
|
* at word 0 for an object to give, and fail, which is OK; then
|
|
* result will be -1 and we get to the end, where wordnumber gets
|
|
* set to something more sensible. If we get to "I don't think
|
|
* that is possible" then again wordnumber is set to something
|
|
* sensible. The wordnumber we leave with still isn't right if
|
|
* you include words the game doesn't know in your command, but
|
|
* that's no worse than what other commands than give do in
|
|
* the same place. */
|
|
wordnumber = last1 - 1;
|
|
if (person && testbit(location[position].objects, person)) {
|
|
if (person == NORMGOD && godready < 2 &&
|
|
!(obj == RING || obj == BRACELET))
|
|
puts("The goddess won't look at you.");
|
|
else
|
|
result = drop("Given");
|
|
} else {
|
|
puts("I don't think that is possible.");
|
|
wordnumber = max(last1, last2) + 1;
|
|
return (0);
|
|
}
|
|
if (result != -1 && (testbit(location[position].objects, obj) ||
|
|
obj == AMULET || obj == MEDALION || obj == TALISMAN)) {
|
|
clearbit(location[position].objects, obj);
|
|
ourtime++;
|
|
ego++;
|
|
switch (person) {
|
|
case NATIVE:
|
|
puts("She accepts it shyly.");
|
|
ego += 2;
|
|
break;
|
|
case NORMGOD:
|
|
if (obj == RING || obj == BRACELET) {
|
|
printf("She takes the charm and puts it on.");
|
|
puts(" A little kiss on the cheek is");
|
|
puts("your reward.");
|
|
ego += 5;
|
|
godready += 3;
|
|
}
|
|
if (obj == AMULET || obj == MEDALION ||
|
|
obj == TALISMAN) {
|
|
win++;
|
|
ego += 5;
|
|
power -= 5;
|
|
if (win >= 3) {
|
|
printf("The powers of the earth are ");
|
|
printf("now legitimate. You have ");
|
|
puts("destroyed the Darkness");
|
|
printf("and restored the goddess to ");
|
|
printf("her throne. The entire ");
|
|
puts("island celebrates with");
|
|
printf("dancing and spring feasts. ");
|
|
printf("As a measure of her ");
|
|
puts("gratitude, the goddess weds you");
|
|
printf("in the late summer and ");
|
|
printf("crowns you Prince Liverwort, ");
|
|
puts("Lord of Fungus.");
|
|
printf("\nBut, as the year wears on ");
|
|
printf("and autumn comes along, you ");
|
|
puts("become restless and");
|
|
printf("yearn for adventure. The ");
|
|
printf("goddess, too, realizes that ");
|
|
puts("the marriage can't last.");
|
|
printf("She becomes bored and takes ");
|
|
printf("several more natives as ");
|
|
puts("husbands. One evening,");
|
|
printf("after having been out ");
|
|
printf("drinking with the girls, she ");
|
|
puts("kicks the throne particularly");
|
|
printf("hard and wakes you up. (If ");
|
|
printf("you want to win this game, ");
|
|
printf("you're going to have to\n");
|
|
puts("shoot her!)");
|
|
clearbit(location[position].objects,
|
|
MEDALION);
|
|
wintime = ourtime;
|
|
}
|
|
}
|
|
break;
|
|
case TIMER:
|
|
if (obj == COINS) {
|
|
printf("He fingers the coins for a moment ");
|
|
printf("and then looks up agape. `Kind you ");
|
|
puts("are and");
|
|
printf("I mean to repay you as best I can.' ");
|
|
printf("Grabbing a pencil and cocktail ");
|
|
puts("napkin...\n");
|
|
printf("+-----------------------------------");
|
|
printf("------------------------------------");
|
|
printf("------+\n");
|
|
printf("| xxxxxxxx\\ |\n");
|
|
printf("| xxxxx\\ CLIFFS |\n");
|
|
printf("| FOREST xxx\\ |\n");
|
|
printf("| \\\\ x\\ OCEAN |\n");
|
|
printf("| || x\\ |\n");
|
|
printf("| || ROAD x\\ |\n");
|
|
printf("| || x\\ |\n");
|
|
printf("| SECRET || ......... |\n");
|
|
printf("| - + - || ........ |\n");
|
|
printf("| ENTRANCE || ... BEACH |\n");
|
|
printf("| || ... E |\n");
|
|
printf("| || ... | |\n");
|
|
printf("| // ... N <-- + --- S |\n");
|
|
printf("| PALM GROVE // ... | |\n");
|
|
printf("| // ... W |\n");
|
|
printf("+");
|
|
printf("---------------------------------");
|
|
printf("---------------------------------");
|
|
printf("-----------+\n");
|
|
printf("\n`This map shows a secret entrance ");
|
|
puts("to the catacombs.");
|
|
printf("You will know when you arrive ");
|
|
printf("because I left an old pair of shoes ");
|
|
puts("there.'");
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
wordnumber = max(last1, last2) + 1;
|
|
return (firstnumber);
|
|
}
|