2 * Copyright (c) 1983, 1993
3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
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. All advertising materials mentioning features or use of this software
14 * must display the following acknowledgement:
15 * This product includes software developed by the University of
16 * California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35 static char sccsid[] = "@(#)com5.c 8.1 (Berkeley) 5/31/93";
42 while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
43 if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
46 switch (wordvalue[wordnumber]){
50 puts("She squirms and avoids your advances.");
53 puts("She is coming around; she didn't fight it as much.");
56 puts("She's begining to like it.");
59 puts("She's gone limp.");
64 puts("The lips are warm and her body robust. She pulls you down to the ground.");
67 puts("The old man blushes.");
70 puts("The dwarf punches you in the kneecap.");
76 else puts("I'd prefer not to.");
83 while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
84 if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
85 if (wordvalue[wordnumber] == NORMGOD && !loved)
87 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.");
88 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.");
92 if (card(injuries, NUMOFINJURIES)){
93 puts("Her kisses revive you; your wounds are healed.\n");
94 for (n=0; n < NUMOFINJURIES; n++)
101 setbit(location[position].objects,MEDALION);
110 if (wordvalue[wordnumber] == NATIVE){
111 puts("The girl is easy prey. She peals off her sarong and indulges you.");
120 else puts("I't doesn't seem to work.");
129 if ((snooze - gtime) < (0.75 * CYCLE)){
130 gtime += 0.75 * CYCLE - (snooze - gtime);
132 for (n = 0; n < gtime - oldtime; n++)
135 snooze += 3 * (gtime - oldtime);
136 if (notes[LAUNCHED]){
137 fuel -= (gtime - oldtime);
138 if (location[position].down){
139 position = location[position].down;
145 if (OUTSIDE && rnd(100) < 50){
146 puts("You are awakened abruptly by the sound of someone nearby.");
150 n = rnd(NUMOFOBJECTS);
151 while(!testbit(inven,n))
152 n = rnd(NUMOFOBJECTS);
154 if (n != AMULET && n != MEDALION && n != TALISMAN)
155 setbit(location[position].objects,n);
156 carrying -= objwt[n];
157 encumber -= objcumber[n];
159 puts("A fiendish little Elf is stealing your treasures!");
163 setbit(location[position].objects,DEADWOOD);
166 setbit(location[position].objects,HALBERD);
180 if ((gtime / CYCLE + 1) % 2 && OUTSIDE)
181 switch((gtime % CYCLE)/(CYCLE / 7)){
183 puts("It is just after sunrise.");
186 puts("It is early morning.");
189 puts("It is late morning.");
192 puts("It is near noon.");
195 puts("It is early afternoon.");
198 puts("It is late afternoon.");
201 puts("It is near sunset.");
205 switch((gtime % CYCLE)/(CYCLE / 7)){
207 puts("It is just after sunset.");
210 puts("It is early evening.");
213 puts("The evening is getting old.");
216 puts("It is near midnight.");
219 puts("These are the wee hours of the morning.");
222 puts("The night is waning.");
225 puts("It is almost morning.");
229 puts("I can't tell the time in here.");
234 int obj = -1, result = -1, person = 0, firstnumber, last1, last2;
236 firstnumber = wordnumber;
237 while (wordtype[++wordnumber] != OBJECT && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount);
238 if (wordnumber <= wordcount){
239 obj = wordvalue[wordnumber];
240 if (obj == EVERYTHING)
241 wordtype[wordnumber] = -1;
244 wordnumber = firstnumber;
245 while ((wordtype[++wordnumber] != NOUNS || wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
246 if (wordtype[wordnumber] == NOUNS){
247 person = wordvalue[wordnumber];
250 wordnumber = last1 - 1;
251 if (person && testbit(location[position].objects,person))
252 if (person == NORMGOD && godready < 2 && !(obj == RING || obj == BRACELET))
253 puts("The goddess won't look at you.");
255 result = drop("Given");
257 puts("I don't think that is possible.");
260 if (result != -1 && (testbit(location[position].objects,obj) || obj == AMULET || obj == MEDALION || obj == TALISMAN)){
261 clearbit(location[position].objects,obj);
266 puts("She accepts it shyly.");
270 if (obj == RING || obj == BRACELET){
271 puts("She takes the charm and puts it on. A little kiss on the cheek is");
272 puts("your reward.");
276 if (obj == AMULET || obj == MEDALION || obj == TALISMAN){
281 puts("The powers of the earth are now legitimate. You have destroyed the Darkness");
282 puts("and restored the goddess to her thrown. The entire island celebrates with");
283 puts("dancing and spring feasts. As a measure of her gratitude, the goddess weds you");
284 puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
285 puts("\nBut, as the year wears on and autumn comes along, you become restless and");
286 puts("yearn for adventure. The goddess, too, realizes that the marriage can't last.");
287 puts("She becomes bored and takes several more natives as husbands. One evening,");
288 puts("after having been out drinking with the girls, she kicks the throne particulary");
289 puts("hard and wakes you up. (If you want to win this game, you're going to have to\nshoot her!)");
290 clearbit(location[position].objects,MEDALION);
297 puts("He fingers the coins for a moment and then looks up agape. `Kind you are and");
298 puts("I mean to repay you as best I can.' Grabbing a pencil and cocktail napkin...\n");
299 printf( "+-----------------------------------------------------------------------------+\n");
300 printf( "| xxxxxxxx\\ |\n");
301 printf( "| xxxxx\\ CLIFFS |\n");
302 printf( "| FOREST xxx\\ |\n");
303 printf( "| \\\\ x\\ OCEAN |\n");
304 printf( "| || x\\ |\n");
305 printf( "| || ROAD x\\ |\n");
306 printf( "| || x\\ |\n");
307 printf( "| SECRET || ......... |\n");
308 printf( "| - + - || ........ |\n");
309 printf( "| ENTRANCE || ... BEACH |\n");
310 printf( "| || ... E |\n");
311 printf( "| || ... | |\n");
312 printf( "| // ... N <-- + --- S |\n");
313 printf( "| PALM GROVE // ... | |\n");
314 printf( "| // ... W |\n");
315 printf( "+-----------------------------------------------------------------------------+\n");
316 puts("\n`This map shows a secret entrance to the catacombs.");
317 puts("You will know when you arrive because I left an old pair of shoes there.'");
322 wordnumber = max(last1,last2);