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