]> git.cameronkatri.com Git - bsdgames-darwin.git/blob - battlestar/com4.c
clean up import, fix up Ids
[bsdgames-darwin.git] / battlestar / com4.c
1 /* $NetBSD: com4.c,v 1.3 1995/03/21 15:07:04 cgd 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 #ifndef lint
37 #if 0
38 static char sccsid[] = "@(#)com4.c 8.1 (Berkeley) 5/31/93";
39 #else
40 static char rcsid[] = "$NetBSD: com4.c,v 1.3 1995/03/21 15:07:04 cgd Exp $";
41 #endif
42 #endif /* not lint */
43
44 #include "externs.h"
45
46 take(from)
47 unsigned int from[];
48 {
49 int firstnumber, heavy, bulky, value;
50 register int n;
51
52 firstnumber = wordnumber;
53 if (wordnumber < wordcount && wordvalue[wordnumber+1] == OFF){
54 wordnumber++;
55 wordvalue[wordnumber] = TAKEOFF;
56 return(cypher());
57 }
58 else {
59 while(wordtype[++wordnumber] == ADJS);
60 while(wordnumber<=wordcount && wordtype[wordnumber] == OBJECT){
61 value = wordvalue[wordnumber];
62 printf("%s:\n", objsht[value]);
63 for (n=0; objsht[value][n]; n++);
64 heavy = (carrying + objwt[value]) <= WEIGHT;
65 bulky = (encumber + objcumber[value]) <= CUMBER;
66 if ((testbit(from,value) || wiz || tempwiz) && heavy && bulky && !testbit(inven,value)){
67 setbit(inven,value);
68 carrying += objwt[value];
69 encumber += objcumber[value];
70 time++;
71 if (testbit(from,value))
72 printf("Taken.\n");
73 else
74 printf("Zap! Taken from thin air.\n");
75 clearbit(from,value);
76 if (value == MEDALION)
77 win--;
78 }
79 else if (testbit(inven,value))
80 printf("You're already holding%s%s.\n", (objsht[value][n-1] == 's' ? " " : " a "),objsht[value]);
81 else if (!heavy)
82 printf("The %s %s too heavy.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is"));
83 else if (!bulky)
84 printf("The %s %s too cumbersome to hold.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is"));
85 else
86 printf("I dont see any %s around here.\n", objsht[value]);
87 if (wordnumber < wordcount -1 && wordvalue[++wordnumber] == AND)
88 wordnumber++;
89 else
90 return(firstnumber);
91 }
92 }
93 /* special cases with their own return()'s */
94
95 if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS)
96 switch(wordvalue[wordnumber]){
97
98 case SWORD:
99 if (testbit(from, SWORD)){
100 wordtype[wordnumber--] = OBJECT;
101 return(take(from));
102 }
103 if (testbit(from, TWO_HANDED)){
104 wordvalue[wordnumber] = TWO_HANDED;
105 wordtype[wordnumber--] = OBJECT;
106 return(take(from));
107 }
108 wordvalue[wordnumber] = BROAD;
109 wordtype[wordnumber--] = OBJECT;
110 return(take(from));
111
112 case BODY:
113 if (testbit(from,MAID)){
114 wordvalue[wordnumber] = MAID;
115 wordtype[wordnumber--] = OBJECT;
116 return(take(from));
117 }
118 else if (testbit(from,DEADWOOD)){
119 wordvalue[wordnumber] = DEADWOOD;
120 wordtype[wordnumber--] = OBJECT;
121 return(take(from));
122 }
123 else if (testbit(from,DEADNATIVE)){
124 wordvalue[wordnumber] = DEADNATIVE;
125 wordtype[wordnumber--] = OBJECT;
126 return(take(from));
127 }
128 else if (testbit(from,DEADGOD)){
129 wordvalue[wordnumber] = DEADGOD;
130 wordtype[wordnumber--] = OBJECT;
131 return(take(from));
132 }
133 else {
134 wordvalue[wordnumber] = DEADTIME;
135 wordtype[wordnumber--] = OBJECT;
136 return(take(from));
137 }
138 break;
139
140 case AMULET:
141 if (testbit(location[position].objects,AMULET)){
142 puts("The amulet is warm to the touch, and its beauty catches your breath.");
143 puts("A mist falls over your eyes, but then it is gone. Sounds seem clearer");
144 puts("and sharper but far away as if in a dream. The sound of purling water reaches");
145 puts("you from afar. The mist falls again, and your heart leaps in horror. The gold");
146 puts("freezes your hands and fathomless darkness engulfs your soul.");
147 }
148 wordtype[wordnumber--] = OBJECT;
149 return(take(from));
150
151 case MEDALION:
152 if (testbit(location[position].objects, MEDALION)){
153 puts("The medallion is warm, and it rekindles your spirit with the warmth of life.");
154 puts("Your amulet begins to glow as the medallion is brought near to it, and together\nthey radiate.");
155 }
156 wordtype[wordnumber--] = OBJECT;
157 return(take(from));
158
159 case TALISMAN:
160 if (testbit(location[position].objects,TALISMAN)){
161 puts("The talisman is cold to the touch, and it sends a chill down your spine.");
162 }
163 wordtype[wordnumber--] = OBJECT;
164 return(take(from));
165
166 case NORMGOD:
167 if (testbit(location[position].objects,BATHGOD) && (testbit(wear,AMULET) || testbit(inven,AMULET))){
168 puts("She offers a delicate hand, and you help her out of the sparkling springs.");
169 puts("Water droplets like liquid silver bedew her golden skin, but when they part");
170 puts("from her, they fall as teardrops. She wraps a single cloth around her and");
171 puts("ties it at the waist. Around her neck hangs a golden amulet.");
172 puts("She bids you to follow her.");
173 pleasure++;
174 followgod = time;
175 clearbit(location[position].objects,BATHGOD);
176 } else if (!testbit(location[position].objects,BATHGOD))
177 puts("You're in no position to take her.");
178 else
179 puts("She moves away from you.");
180 break;
181
182 default:
183 puts("It doesn't seem to work.");
184 }
185 else
186 puts("You've got to be kidding.");
187 return(firstnumber);
188 }
189
190 throw(name)
191 char *name;
192 {
193 int n;
194 int deposit = 0;
195 int first, value;
196
197 first = wordnumber;
198 if (drop(name) != -1){
199 switch(wordvalue[wordnumber]){
200
201 case AHEAD:
202 deposit = ahead;
203 break;
204
205 case BACK:
206 deposit = back;
207 break;
208
209 case LEFT:
210 deposit = left;
211 break;
212
213 case RIGHT:
214 deposit = right;
215 break;
216
217 case UP:
218 deposit = location[position].up * (location[position].access || position == FINAL);
219 break;
220
221 case DOWN:
222 deposit = location[position].down;
223 break;
224 }
225 wordnumber = first;
226 while (wordtype[++wordnumber] == ADJS);
227 while (wordnumber <= wordcount){
228 value = wordvalue[wordnumber];
229 if (deposit && testbit(location[position].objects,value)){
230 clearbit(location[position].objects,value);
231 if (value != GRENADE)
232 setbit(location[deposit].objects,value);
233 else{
234 puts("A thundering explosion nearby sends up a cloud of smoke and shrapnel.");
235 for (n = 0; n < NUMOFWORDS; n ++)
236 location[deposit].objects[n] = 0;
237 setbit(location[deposit].objects,CHAR);
238 }
239 if (value == ROPE && position == FINAL)
240 location[position].access = 1;
241 switch(deposit){
242 case 189:
243 case 231:
244 puts("The stone door is unhinged.");
245 location[189].north = 231;
246 location[231].south = 189;
247 break;
248 case 30:
249 puts("The wooden door is blown open.");
250 location[30].west = 25;
251 break;
252 case 31:
253 puts("The door is not damaged.");
254 }
255 }
256 else if (value == GRENADE && testbit(location[position].objects,value)){
257 puts("You are blown into shreds when your grenade explodes.");
258 die();
259 }
260 if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
261 wordnumber++;
262 else
263 return(first);
264 }
265 return(first);
266 }
267 return(first);
268 }
269
270 drop(name)
271 char *name;
272 {
273
274 int firstnumber, value;
275
276 firstnumber = wordnumber;
277 while (wordtype[++wordnumber] == ADJS)
278 ;
279 while (wordnumber<=wordcount && (wordtype[wordnumber] == OBJECT || wordtype[wordnumber] == NOUNS)) {
280 value = wordvalue[wordnumber];
281 printf("%s:\n", objsht[value]);
282 if (testbit(inven,value)){
283 clearbit(inven,value);
284 carrying -= objwt[value];
285 encumber -= objcumber[value];
286 if (value == BOMB){
287 puts("The bomb explodes. A blinding white light and immense concussion obliterate us.");
288 die();
289 }
290 if (value != AMULET && value != MEDALION && value != TALISMAN)
291 setbit(location[position].objects,value);
292 else
293 tempwiz = 0;
294 time++;
295 if (*name == 'K')
296 puts("Drop kicked.");
297 else
298 printf("%s.\n", name);
299 }
300 else {
301 if (*name != 'K') {
302 printf("You aren't holding the %s.\n", objsht[value]);
303 if (testbit(location[position].objects,value)) {
304 if (*name == 'T')
305 puts("Kicked instead.");
306 else if (*name == 'G')
307 puts("Given anyway.");
308 }
309 } else
310 puts("Kicked.");
311 }
312 if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
313 wordnumber++;
314 else
315 return(firstnumber);
316 }
317 puts("Do what?");
318 return(-1);
319 }
320
321 takeoff()
322 {
323 wordnumber = take(wear);
324 return(drop("Dropped"));
325 }
326
327 puton()
328 {
329 wordnumber = take(location[position].objects);
330 return(wearit());
331 }
332
333 eat()
334 {
335 int firstnumber, value;
336
337 firstnumber = wordnumber;
338 while(wordtype[++wordnumber] == ADJS);
339 while(wordnumber <= wordcount){
340 value = wordvalue[wordnumber];
341 switch(value){
342
343 case -1:
344 puts("Eat what?");
345 return(firstnumber);
346
347 default:
348 printf("You can't eat%s%s!\n",
349 wordtype[wordnumber] == OBJECT &&
350 objsht[value]
351 [strlen(objsht[value]) - 1] == 's' ?
352 " " : " a ",
353 words[wordnumber]);
354 return(firstnumber);
355
356 case PAPAYAS:
357 case PINEAPPLE:
358 case KIWI:
359 case COCONUTS: /* eatable things */
360 case MANGO:
361
362 printf("%s:\n",objsht[value]);
363 if (testbit(inven,value) && time > ate - CYCLE && testbit(inven,KNIFE)){
364 clearbit(inven,value);
365 carrying -= objwt[value];
366 encumber -= objcumber[value];
367 ate = max(time,ate) + CYCLE/3;
368 snooze += CYCLE/10;
369 time++;
370 puts("Eaten. You can explore a little longer now.");
371 }
372 else if (time < ate - CYCLE)
373 puts("You're stuffed.");
374 else if (!testbit(inven,KNIFE))
375 puts("You need a knife.");
376 else
377 printf("You aren't holding the %s.\n", objsht[value]);
378 if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
379 wordnumber++;
380 else
381 return(firstnumber);
382 } /* end switch */
383 } /* end while */
384 return(firstnumber);
385 }