]> git.cameronkatri.com Git - bsdgames-darwin.git/blob - battlestar/cypher.c
git.ckatri.com / bsdgames-darwin.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Give less cryptic messages than "-1%" when WEIGHT or CUMBER are zero.
[bsdgames-darwin.git] / battlestar / cypher.c
1 /* $NetBSD: cypher.c,v 1.19 2000/09/24 14:42:18 jsm 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 #include <sys/cdefs.h>
37 #ifndef lint
38 #if 0
39 static char sccsid[] = "@(#)cypher.c 8.2 (Berkeley) 4/28/95";
40 #else
41 __RCSID("$NetBSD: cypher.c,v 1.19 2000/09/24 14:42:18 jsm Exp $");
42 #endif
43 #endif /* not lint */
44
45 #include "extern.h"
46
47 int
48 cypher()
49 {
50 int n;
51 int junk;
52 int lflag = -1;
53 char buffer[10];
54 char *filename, *rfilename;
55 size_t filename_len;
56
57 while (wordnumber <= wordcount) {
58 switch (wordvalue[wordnumber]) {
59
60 case UP:
61 if (location[position].access || wiz || tempwiz) {
62 if (!location[position].access)
63 puts("Zap! A gust of wind lifts you up.");
64 if (!moveplayer(location[position].up, AHEAD))
65 return (-1);
66 } else {
67 puts("There is no way up.");
68 return (-1);
69 }
70 lflag = 0;
71 break;
72
73 case DOWN:
74 if (!moveplayer(location[position].down, AHEAD))
75 return (-1);
76 lflag = 0;
77 break;
78
79 case LEFT:
80 if (!moveplayer(left, LEFT))
81 return (-1);
82 lflag = 0;
83 break;
84
85 case RIGHT:
86 if (!moveplayer(right, RIGHT))
87 return (-1);
88 lflag = 0;
89 break;
90
91 case AHEAD:
92 if (!moveplayer(ahead, AHEAD))
93 return (-1);
94 lflag = 0;
95 break;
96
97 case BACK:
98 if (!moveplayer(back, BACK))
99 return (-1);
100 lflag = 0;
101 break;
102
103 case SHOOT:
104 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
105 int things;
106 things = 0;
107 for (n = 0; n < NUMOFOBJECTS; n++)
108 if (testbit(location[position].objects, n) && objsht[n]) {
109 things++;
110 wordvalue[wordnumber + 1] = n;
111 wordnumber = shoot();
112 }
113 if (!things)
114 puts("Nothing to shoot at!");
115 wordnumber++;
116 wordnumber++;
117 } else
118 shoot();
119 break;
120
121 case TAKE:
122 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
123 int things;
124 things = 0;
125 for (n = 0; n < NUMOFOBJECTS; n++)
126 if (testbit(location[position].objects, n) && objsht[n]) {
127 things++;
128 wordvalue[wordnumber + 1] = n;
129 /* Some objects (type NOUNS)
130 * have special treatment in
131 * take(). For these we
132 * must set the type to NOUNS.
133 * However for SWORD and BODY
134 * all it does is find which
135 * of many objects is meant,
136 * so we need do nothing here.
137 * BATHGOD must become
138 * NORMGOD as well. NOUNS
139 * with no special case
140 * must be included here to
141 * get the right error. DOOR
142 * cannot occur as an object
143 * so need not be included. */
144 switch(n) {
145 case BATHGOD:
146 wordvalue[wordnumber + 1] = NORMGOD;
147 /* FALLTHROUGH */
148 case NORMGOD:
149 case AMULET:
150 case MEDALION:
151 case TALISMAN:
152 case MAN:
153 case TIMER:
154 case NATIVE:
155 wordtype[wordnumber + 1] = NOUNS;
156 break;
157 default:
158 wordtype[wordnumber + 1] = OBJECT;
159 }
160 wordnumber = take(location[position].objects);
161 }
162 wordnumber++;
163 wordnumber++;
164 if (!things)
165 puts("Nothing to take!");
166 } else
167 take(location[position].objects);
168 break;
169
170 case DROP:
171
172 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
173 int things;
174 things = 0;
175 for (n = 0; n < NUMOFOBJECTS; n++)
176 if (testbit(inven, n)) {
177 things++;
178 wordvalue[wordnumber + 1] = n;
179 wordnumber = drop("Dropped");
180 }
181 wordnumber++;
182 wordnumber++;
183 if (!things)
184 puts("Nothing to drop!");
185 } else
186 drop("Dropped");
187 break;
188
189
190 case KICK:
191 case THROW:
192 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
193 int things, wv;
194 things = 0;
195 wv = wordvalue[wordnumber];
196 for (n = 0; n < NUMOFOBJECTS; n++)
197 if (testbit(inven, n) ||
198 (testbit(location[position].objects, n) && objsht[n])) {
199 things++;
200 wordvalue[wordnumber + 1] = n;
201 wordnumber = throw(wordvalue[wordnumber] == KICK ? "Kicked" : "Thrown");
202 }
203 wordnumber += 2;
204 if (!things)
205 printf("Nothing to %s!\n", wv == KICK ? "kick" : "throw");
206 } else
207 throw(wordvalue[wordnumber] == KICK ? "Kicked" : "Thrown");
208 break;
209
210 case TAKEOFF:
211 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
212 int things;
213 things = 0;
214 for (n = 0; n < NUMOFOBJECTS; n++)
215 if (testbit(wear, n)) {
216 things++;
217 wordvalue[wordnumber + 1] = n;
218 wordnumber = takeoff();
219 }
220 wordnumber += 2;
221 if (!things)
222 puts("Nothing to take off!");
223 } else
224 takeoff();
225 break;
226
227
228 case DRAW:
229
230 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
231 int things;
232 things = 0;
233 for (n = 0; n < NUMOFOBJECTS; n++)
234 if (testbit(wear, n)) {
235 things++;
236 wordvalue[wordnumber + 1] = n;
237 wordnumber = draw();
238 }
239 wordnumber += 2;
240 if (!things)
241 puts("Nothing to draw!");
242 } else
243 draw();
244 break;
245
246
247 case PUTON:
248
249 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
250 int things;
251 things = 0;
252 for (n = 0; n < NUMOFOBJECTS; n++)
253 if (testbit(location[position].objects, n) && objsht[n]) {
254 things++;
255 wordvalue[wordnumber + 1] = n;
256 wordnumber = puton();
257 }
258 wordnumber += 2;
259 if (!things)
260 puts("Nothing to put on!");
261 } else
262 puton();
263 break;
264
265 case WEARIT:
266
267 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
268 int things;
269 things = 0;
270 for (n = 0; n < NUMOFOBJECTS; n++)
271 if (testbit(inven, n)) {
272 things++;
273 wordvalue[wordnumber + 1] = n;
274 wordnumber = wearit();
275 }
276 wordnumber += 2;
277 if (!things)
278 puts("Nothing to wear!");
279 } else
280 wearit();
281 break;
282
283
284 case EAT:
285
286 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
287 int things;
288 things = 0;
289 for (n = 0; n < NUMOFOBJECTS; n++)
290 if (testbit(inven, n)) {
291 things++;
292 wordvalue[wordnumber + 1] = n;
293 wordnumber = eat();
294 }
295 wordnumber += 2;
296 if (!things)
297 puts("Nothing to eat!");
298 } else
299 eat();
300 break;
301
302
303 case PUT:
304 put();
305 break;
306
307
308 case INVEN:
309 if (ucard(inven)) {
310 puts("You are holding:\n");
311 for (n = 0; n < NUMOFOBJECTS; n++)
312 if (testbit(inven, n))
313 printf("\t%s\n", objsht[n]);
314 if (WEIGHT == 0)
315 printf("\n= %d kilogram%s (can't lift any weight%s)\n",
316 carrying,
317 (carrying == 1 ? "." : "s."),
318 (carrying ? " or move with what you have" : ""));
319 else
320 printf("\n= %d kilogram%s (%d%%)\n",
321 carrying,
322 (carrying == 1 ? "." : "s."),
323 carrying * 100 / WEIGHT);
324 if (CUMBER == 0)
325 printf("Your arms can't pick anything up.\n");
326 else
327 printf("Your arms are %d%% full.\n",
328 encumber * 100 / CUMBER);
329 } else
330 puts("You aren't carrying anything.");
331
332 if (ucard(wear)) {
333 puts("\nYou are wearing:\n");
334 for (n = 0; n < NUMOFOBJECTS; n++)
335 if (testbit(wear, n))
336 printf("\t%s\n", objsht[n]);
337 } else
338 puts("\nYou are stark naked.");
339 if (card(injuries, NUMOFINJURIES)) {
340 puts("\nYou have suffered:\n");
341 for (n = 0; n < NUMOFINJURIES; n++)
342 if (injuries[n])
343 printf("\t%s\n", ouch[n]);
344 printf("\nYou can still carry up to %d kilogram%s\n", WEIGHT, (WEIGHT == 1 ? "." : "s."));
345 } else
346 puts("\nYou are in perfect health.");
347 wordnumber++;
348 break;
349
350 case USE:
351 lflag = use();
352 break;
353
354 case OPEN:
355 if (wordnumber < wordcount && wordvalue[wordnumber + 1] == EVERYTHING) {
356 int things;
357 things = 0;
358 for (n = 0; n < NUMOFOBJECTS; n++)
359 if (testbit(inven, n)) {
360 things++;
361 wordvalue[wordnumber + 1] = n;
362 dooropen();
363 }
364 wordnumber += 2;
365 if (!things)
366 puts("Nothing to open!");
367 } else
368 dooropen();
369 break;
370
371 case LOOK:
372 if (!notes[CANTSEE] || testbit(inven, LAMPON) ||
373 testbit(location[position].objects, LAMPON)
374 || matchlight) {
375 beenthere[position] = 2;
376 writedes();
377 printobjs();
378 if (matchlight) {
379 puts("\nYour match splutters out.");
380 matchlight = 0;
381 }
382 } else
383 puts("I can't see anything.");
384 return (-1);
385 break;
386
387 case SU:
388 if (wiz || tempwiz) {
389 printf("\nRoom (was %d) = ", position);
390 fgets(buffer, 10, stdin);
391 if (*buffer != '\n')
392 sscanf(buffer, "%d", &position);
393 printf("Time (was %d) = ", ourtime);
394 fgets(buffer, 10, stdin);
395 if (*buffer != '\n')
396 sscanf(buffer, "%d", &ourtime);
397 printf("Fuel (was %d) = ", fuel);
398 fgets(buffer, 10, stdin);
399 if (*buffer != '\n')
400 sscanf(buffer, "%d", &fuel);
401 printf("Torps (was %d) = ", torps);
402 fgets(buffer, 10, stdin);
403 if (*buffer != '\n')
404 sscanf(buffer, "%d", &torps);
405 printf("CUMBER (was %d) = ", CUMBER);
406 fgets(buffer, 10, stdin);
407 if (*buffer != '\n')
408 sscanf(buffer, "%d", &CUMBER);
409 printf("WEIGHT (was %d) = ", WEIGHT);
410 fgets(buffer, 10, stdin);
411 if (*buffer != '\n')
412 sscanf(buffer, "%d", &WEIGHT);
413 printf("Clock (was %d) = ", ourclock);
414 fgets(buffer, 10, stdin);
415 if (*buffer != '\n')
416 sscanf(buffer, "%d", &ourclock);
417 printf("Wizard (was %d, %d) = ", wiz, tempwiz);
418 fgets(buffer, 10, stdin);
419 if (*buffer != '\n') {
420 sscanf(buffer, "%d", &junk);
421 if (!junk)
422 tempwiz = wiz = 0;
423 }
424 printf("\nDONE.\n");
425 return (0);
426 } else
427 puts("You aren't a wizard.");
428 break;
429
430 case SCORE:
431 printf("\tPLEASURE\tPOWER\t\tEGO\n");
432 printf("\t%3d\t\t%3d\t\t%3d\n\n", pleasure, power, ego);
433 printf("This gives you the rating of %s in %d turns.\n", rate(), ourtime);
434 printf("You have visited %d out of %d rooms this run (%d%%).\n", card(beenthere, NUMOFROOMS), NUMOFROOMS, card(beenthere, NUMOFROOMS) * 100 / NUMOFROOMS);
435 break;
436
437 case KNIFE:
438 case KILL:
439 murder();
440 break;
441
442 case UNDRESS:
443 case RAVAGE:
444 ravage();
445 break;
446
447 case SAVE:
448 printf("\nSave file name (default %s): ",
449 DEFAULT_SAVE_FILE);
450 filename = fgetln(stdin, &filename_len);
451 if (filename_len == 0
452 || (filename_len == 1 && filename[0] == '\n'))
453 rfilename = save_file_name(DEFAULT_SAVE_FILE,
454 strlen(DEFAULT_SAVE_FILE));
455 else {
456 if (filename[filename_len - 1] == '\n')
457 filename_len--;
458 rfilename = save_file_name(filename,
459 filename_len);
460 }
461 save(rfilename);
462 free(rfilename);
463 break;
464
465 case VERBOSE:
466 verbose = 1;
467 printf("[Maximum verbosity]\n");
468 break;
469
470 case BRIEF:
471 verbose = 0;
472 printf("[Standard verbosity]\n");
473 break;
474
475 case FOLLOW:
476 lflag = follow();
477 break;
478
479 case GIVE:
480 give();
481 break;
482
483 case KISS:
484 kiss();
485 break;
486
487 case LOVE:
488 love();
489 break;
490
491 case RIDE:
492 lflag = ride();
493 break;
494
495 case DRIVE:
496 lflag = drive();
497 break;
498
499 case LIGHT:
500 light();
501 break;
502
503 case LAUNCH:
504 if (!launch())
505 return (-1);
506 else
507 lflag = 0;
508 break;
509
510 case LANDIT:
511 if (!land())
512 return (-1);
513 else
514 lflag = 0;
515 break;
516
517 case TIME:
518 chime();
519 break;
520
521 case SLEEP:
522 zzz();
523 break;
524
525 case DIG:
526 dig();
527 break;
528
529 case JUMP:
530 lflag = jump();
531 break;
532
533 case BURY:
534 bury();
535 break;
536
537 case SWIM:
538 puts("Surf's up!");
539 break;
540
541 case DRINK:
542 drink();
543 break;
544
545 case QUIT:
546 die();
547
548 default:
549 puts("How's that?");
550 return (-1);
551 break;
552
553
554 }
555 if (wordnumber < wordcount && *words[wordnumber++] == ',')
556 continue;
557 else
558 return (lflag);
559 }
560 return (lflag);
561 }
Port of NetBSD games to Darwin