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
36 static char sccsid[] = "@(#)com5.c 8.1 (Berkeley) 5/31/93";
38 static const char rcsid[] =
47 while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
48 if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
51 switch (wordvalue[wordnumber]){
55 puts("She squirms and avoids your advances.");
58 puts("She is coming around; she didn't fight it as much.");
61 puts("She's begining to like it.");
64 puts("She's gone limp.");
69 puts("The lips are warm and her body robust. She pulls you down to the ground.");
72 puts("The old man blushes.");
75 puts("The dwarf punches you in the kneecap.");
81 else puts("I'd prefer not to.");
89 while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
90 if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
91 if (wordvalue[wordnumber] == NORMGOD && !loved) {
93 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.");
94 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.");
98 if (card(injuries, NUMOFINJURIES)){
99 puts("Her kisses revive you; your wounds are healed.\n");
100 for (n=0; n < NUMOFINJURIES; n++)
105 printf("Goddess:\n");
107 setbit(location[position].objects,MEDALION);
117 if (wordvalue[wordnumber] == NATIVE){
118 puts("The girl is easy prey. She peels off her sarong and indulges you.");
127 else puts("I't doesn't seem to work.");
137 if ((snooze - gtime) < (0.75 * CYCLE)){
138 gtime += 0.75 * CYCLE - (snooze - gtime);
140 for (n = 0; n < gtime - oldtime; n++)
143 snooze += 3 * (gtime - oldtime);
144 if (notes[LAUNCHED]){
145 fuel -= (gtime - oldtime);
146 if (location[position].down){
147 position = location[position].down;
153 if (OUTSIDE && rnd(100) < 50){
154 puts("You are awakened abruptly by the sound of someone nearby.");
158 n = rnd(NUMOFOBJECTS);
159 while(!testbit(inven,n))
160 n = rnd(NUMOFOBJECTS);
162 if (n != AMULET && n != MEDALION && n != TALISMAN)
163 setbit(location[position].objects,n);
164 carrying -= objwt[n];
165 encumber -= objcumber[n];
167 puts("A fiendish little Elf is stealing your treasures!");
171 setbit(location[position].objects,DEADWOOD);
174 setbit(location[position].objects,HALBERD);
189 if ((gtime / CYCLE + 1) % 2 && OUTSIDE)
190 switch((gtime % CYCLE)/(CYCLE / 7)){
192 puts("It is just after sunrise.");
195 puts("It is early morning.");
198 puts("It is late morning.");
201 puts("It is near noon.");
204 puts("It is early afternoon.");
207 puts("It is late afternoon.");
210 puts("It is near sunset.");
214 switch((gtime % CYCLE)/(CYCLE / 7)){
216 puts("It is just after sunset.");
219 puts("It is early evening.");
222 puts("The evening is getting old.");
225 puts("It is near midnight.");
228 puts("These are the wee hours of the morning.");
231 puts("The night is waning.");
234 puts("It is almost morning.");
238 puts("I can't tell the time in here.");
244 int obj = -1, result = -1, person = 0, firstnumber;
245 int last1 = 0, last2 = 0;
247 firstnumber = wordnumber;
248 while (wordtype[++wordnumber] != OBJECT && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount);
249 if (wordnumber <= wordcount){
250 obj = wordvalue[wordnumber];
251 if (obj == EVERYTHING)
252 wordtype[wordnumber] = -1;
255 wordnumber = firstnumber;
256 while ((wordtype[++wordnumber] != NOUNS || wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
257 if (wordtype[wordnumber] == NOUNS){
258 person = wordvalue[wordnumber];
261 /* Setting wordnumber to last1 - 1 looks wrong if last1 is 0, e.g.,
262 * plain `give'. However, detecting this case is liable to detect
263 * `give foo' as well, which would give a confusing error. We
264 * need to make sure the -1 value can cause no problems if it arises.
265 * If in the below we get to the drop("Given") then drop will look
266 * at word 0 for an object to give, and fail, which is OK; then
267 * result will be -1 and we get to the end, where wordnumber gets
268 * set to something more sensible. If we get to "I don't think
269 * that is possible" then again wordnumber is set to something
270 * sensible. The wordnumber we leave with still isn't right if
271 * you include words the game doesn't know in your command, but
272 * that's no worse than what other commands than give do in
274 wordnumber = last1 - 1;
275 if (person && testbit(location[position].objects,person))
276 if (person == NORMGOD && godready < 2 && !(obj == RING || obj == BRACELET))
277 puts("The goddess won't look at you.");
279 result = drop("Given");
281 puts("I don't think that is possible.");
282 wordnumber = max(last1, last2) + 1;
285 if (result != -1 && (testbit(location[position].objects,obj) || obj == AMULET || obj == MEDALION || obj == TALISMAN)){
286 clearbit(location[position].objects,obj);
291 puts("She accepts it shyly.");
295 if (obj == RING || obj == BRACELET){
296 puts("She takes the charm and puts it on. A little kiss on the cheek is");
297 puts("your reward.");
301 if (obj == AMULET || obj == MEDALION || obj == TALISMAN){
306 puts("The powers of the earth are now legitimate. You have destroyed the Darkness");
307 puts("and restored the goddess to her thrown. The entire island celebrates with");
308 puts("dancing and spring feasts. As a measure of her gratitude, the goddess weds you");
309 puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
310 puts("\nBut, as the year wears on and autumn comes along, you become restless and");
311 puts("yearn for adventure. The goddess, too, realizes that the marriage can't last.");
312 puts("She becomes bored and takes several more natives as husbands. One evening,");
313 puts("after having been out drinking with the girls, she kicks the throne particularly");
314 puts("hard and wakes you up. (If you want to win this game, you're going to have to\nshoot her!)");
315 clearbit(location[position].objects,MEDALION);
322 puts("He fingers the coins for a moment and then looks up agape. `Kind you are and");
323 puts("I mean to repay you as best I can.' Grabbing a pencil and cocktail napkin...\n");
324 printf( "+-----------------------------------------------------------------------------+\n");
325 printf( "| xxxxxxxx\\ |\n");
326 printf( "| xxxxx\\ CLIFFS |\n");
327 printf( "| FOREST xxx\\ |\n");
328 printf( "| \\\\ x\\ OCEAN |\n");
329 printf( "| || x\\ |\n");
330 printf( "| || ROAD x\\ |\n");
331 printf( "| || x\\ |\n");
332 printf( "| SECRET || ......... |\n");
333 printf( "| - + - || ........ |\n");
334 printf( "| ENTRANCE || ... BEACH |\n");
335 printf( "| || ... E |\n");
336 printf( "| || ... | |\n");
337 printf( "| // ... N <-- + --- S |\n");
338 printf( "| PALM GROVE // ... | |\n");
339 printf( "| // ... W |\n");
340 printf( "+-----------------------------------------------------------------------------+\n");
341 puts("\n`This map shows a secret entrance to the catacombs.");
342 puts("You will know when you arrive because I left an old pair of shoes there.'");
347 wordnumber = max(last1,last2) + 1;