cypher.c revision 1.19
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 } 562
Indexes created Thu Oct 02 01:09:59 GMT 2025