larn/object.c

   1 /*      $NetBSD: object.c,v 1.16 2012/06/19 05:30:43 dholland Exp $     */
   2
   3 /* object.c             Larn is copyrighted 1986 by Noah Morgan. */
   4
   5 #include <sys/cdefs.h>
   6 #ifndef lint
   7 __RCSID("$NetBSD: object.c,v 1.16 2012/06/19 05:30:43 dholland Exp $");
   8 #endif                          /* not lint */
   9 #include "header.h"
  10 #include "extern.h"
  11
  12 static void finditem(int);
  13 static void ostairs(int);
  14 static void opotion(int);
  15 static void oscroll(int);
  16 static void oorb(void);
  17 static void opit(void);
  18 static void obottomless(void);
  19 static void oelevator(int);
  20 static void ostatue(void);
  21 static void omirror(void);
  22 static void obook(void);
  23 static void ocookie(void);
  24 static void ogold(int);
  25 static void ohome(void);
  26
  27 /*
  28         lookforobject
  29
  30         subroutine to look for an object and give the player his options
  31         if an object was found.
  32  */
  33 void
  34 lookforobject(void)
  35 {
  36         int    i, j;
  37         if (c[TIMESTOP])
  38                 return;         /* can't find objects if time is stopped         */
  39         i = item[playerx][playery];
  40         if (i == 0)
  41                 return;
  42         showcell(playerx, playery);
  43         cursors();
  44         yrepcount = 0;
  45         switch (i) {
  46         case OGOLDPILE:
  47         case OMAXGOLD:
  48         case OKGOLD:
  49         case ODGOLD:
  50                 lprcat("\n\nYou have found some gold!");
  51                 ogold(i);
  52                 break;
  53
  54         case OPOTION:
  55                 lprcat("\n\nYou have found a magic potion");
  56                 i = iarg[playerx][playery];
  57                 if (potionname[i][0] != 0)
  58                         lprintf(" of%s", potionname[i]);
  59                 opotion(i);
  60                 break;
  61
  62         case OSCROLL:
  63                 lprcat("\n\nYou have found a magic scroll");
  64                 i = iarg[playerx][playery];
  65                 if (scrollname[i][0] != 0)
  66                         lprintf(" of%s", scrollname[i]);
  67                 oscroll(i);
  68                 break;
  69
  70         case OALTAR:
  71                 if (nearbymonst())
  72                         return;
  73                 lprcat("\n\nThere is a Holy Altar here!");
  74                 oaltar();
  75                 break;
  76
  77         case OBOOK:
  78                 lprcat("\n\nYou have found a book.");
  79                 obook();
  80                 break;
  81
  82         case OCOOKIE:
  83                 lprcat("\n\nYou have found a fortune cookie.");
  84                 ocookie();
  85                 break;
  86
  87         case OTHRONE:
  88                 if (nearbymonst())
  89                         return;
  90                 lprintf("\n\nThere is %s here!", objectname[i]);
  91                 othrone(0);
  92                 break;
  93
  94         case OTHRONE2:
  95                 if (nearbymonst())
  96                         return;
  97                 lprintf("\n\nThere is %s here!", objectname[i]);
  98                 othrone(1);
  99                 break;
 100
 101         case ODEADTHRONE:
 102                 lprintf("\n\nThere is %s here!", objectname[i]);
 103                 odeadthrone();
 104                 break;
 105
 106         case OORB:
 107                 lprcat("\n\nYou have found the Orb!!!!!");
 108                 oorb();
 109                 break;
 110
 111         case OPIT:
 112                 lprcat("\n\nYou're standing at the top of a pit.");
 113                 opit();
 114                 break;
 115
 116         case OSTAIRSUP:
 117                 lprcat("\n\nThere is a circular staircase here");
 118                 ostairs(1);     /* up */
 119                 break;
 120
 121         case OELEVATORUP:
 122                 lprcat("\n\nYou feel heavy for a moment, but the feeling disappears");
 123                 oelevator(1);   /* up  */
 124                 break;
 125
 126         case OFOUNTAIN:
 127                 if (nearbymonst())
 128                         return;
 129                 lprcat("\n\nThere is a fountain here");
 130                 ofountain();
 131                 break;
 132
 133         case OSTATUE:
 134                 if (nearbymonst())
 135                         return;
 136                 lprcat("\n\nYou are standing in front of a statue");
 137                 ostatue();
 138                 break;
 139
 140         case OCHEST:
 141                 lprcat("\n\nThere is a chest here");
 142                 ochest();
 143                 break;
 144
 145         case OIVTELETRAP:
 146                 if (rnd(11) < 6)
 147                         return;
 148                 item[playerx][playery] = OTELEPORTER;
 149                 know[playerx][playery] = 1;
 150
 151         case OTELEPORTER:
 152                 lprcat("\nZaaaappp!  You've been teleported!\n");
 153                 beep();
 154                 nap(3000);
 155                 oteleport(0);
 156                 break;
 157
 158         case OSCHOOL:
 159                 if (nearbymonst())
 160                         return;
 161                 lprcat("\n\nYou have found the College of Larn.");
 162                 lprcat("\nDo you (g) go inside, or (i) stay here? ");
 163                 i = 0;
 164                 while ((i != 'g') && (i != 'i') && (i != '\33'))
 165                         i = ttgetch();
 166                 if (i == 'g') {
 167                         oschool();      /* the college of larn   */
 168                 } else
 169                         lprcat(" stay here");
 170                 break;
 171
 172         case OMIRROR:
 173                 if (nearbymonst())
 174                         return;
 175                 lprcat("\n\nThere is a mirror here");
 176                 omirror();
 177                 break;
 178
 179         case OBANK2:
 180         case OBANK:
 181                 if (nearbymonst())
 182                         return;
 183                 if (i == OBANK)
 184                         lprcat("\n\nYou have found the bank of Larn.");
 185                 else
 186                         lprcat("\n\nYou have found a branch office of the bank of Larn.");
 187                 lprcat("\nDo you (g) go inside, or (i) stay here? ");
 188                 j = 0;
 189                 while ((j != 'g') && (j != 'i') && (j != '\33'))
 190                         j = ttgetch();
 191                 if (j == 'g') {
 192                         if (i == OBANK)
 193                                 obank();
 194                         else
 195                                 obank2();       /* the bank of larn  */
 196                 } else
 197                         lprcat(" stay here");
 198                 break;
 199
 200         case ODEADFOUNTAIN:
 201                 if (nearbymonst())
 202                         return;
 203                 lprcat("\n\nThere is a dead fountain here");
 204                 break;
 205
 206         case ODNDSTORE:
 207                 if (nearbymonst())
 208                         return;
 209                 lprcat("\n\nThere is a DND store here.");
 210                 lprcat("\nDo you (g) go inside, or (i) stay here? ");
 211                 i = 0;
 212                 while ((i != 'g') && (i != 'i') && (i != '\33'))
 213                         i = ttgetch();
 214                 if (i == 'g')
 215                         dndstore();     /* the dnd adventurers store  */
 216                 else
 217                         lprcat(" stay here");
 218                 break;
 219
 220         case OSTAIRSDOWN:
 221                 lprcat("\n\nThere is a circular staircase here");
 222                 ostairs(-1);    /* down */
 223                 break;
 224
 225         case OELEVATORDOWN:
 226                 lprcat("\n\nYou feel light for a moment, but the feeling disappears");
 227                 oelevator(-1);  /* down  */
 228                 break;
 229
 230         case OOPENDOOR:
 231                 lprintf("\n\nYou have found %s", objectname[i]);
 232                 lprcat("\nDo you (c) close it");
 233                 iopts();
 234                 i = 0;
 235                 while ((i != 'c') && (i != 'i') && (i != '\33'))
 236                         i = ttgetch();
 237                 if ((i == '\33') || (i == 'i')) {
 238                         ignore();
 239                         break;
 240                 }
 241                 lprcat("close");
 242                 forget();
 243                 item[playerx][playery] = OCLOSEDDOOR;
 244                 iarg[playerx][playery] = 0;
 245                 playerx = lastpx;
 246                 playery = lastpy;
 247                 break;
 248
 249         case OCLOSEDDOOR:
 250                 lprintf("\n\nYou have found %s", objectname[i]);
 251                 lprcat("\nDo you (o) try to open it");
 252                 iopts();
 253                 i = 0;
 254                 while ((i != 'o') && (i != 'i') && (i != '\33'))
 255                         i = ttgetch();
 256                 if ((i == '\33') || (i == 'i')) {
 257                         ignore();
 258                         playerx = lastpx;
 259                         playery = lastpy;
 260                         break;
 261                 } else {
 262                         lprcat("open");
 263                         if (rnd(11) < 7) {
 264                                 switch (iarg[playerx][playery]) {
 265                                 case 6:
 266                                         c[AGGRAVATE] += rnd(400);
 267                                         break;
 268
 269                                 case 7:
 270                                         lprcat("\nYou are jolted by an electric shock ");
 271                                         lastnum = 274;
 272                                         losehp(rnd(20));
 273                                         bottomline();
 274                                         break;
 275
 276                                 case 8:
 277                                         loselevel();
 278                                         break;
 279
 280                                 case 9:
 281                                         lprcat("\nYou suddenly feel weaker ");
 282                                         if (c[STRENGTH] > 3)
 283                                                 c[STRENGTH]--;
 284                                         bottomline();
 285                                         break;
 286
 287                                 default:
 288                                         break;
 289                                 }
 290                                 playerx = lastpx;
 291                                 playery = lastpy;
 292                         } else {
 293                                 forget();
 294                                 item[playerx][playery] = OOPENDOOR;
 295                         }
 296                 }
 297                 break;
 298
 299         case OENTRANCE:
 300                 lprcat("\nYou have found ");
 301                 lprcat(objectname[OENTRANCE]);
 302                 lprcat("\nDo you (g) go inside");
 303                 iopts();
 304                 i = 0;
 305                 while ((i != 'g') && (i != 'i') && (i != '\33'))
 306                         i = ttgetch();
 307                 if (i == 'g') {
 308                         newcavelevel(1);
 309                         playerx = 33;
 310                         playery = MAXY - 2;
 311                         item[33][MAXY - 1] = know[33][MAXY - 1] = mitem[33][MAXY - 1] = 0;
 312                         draws(0, MAXX, 0, MAXY);
 313                         bot_linex();
 314                         return;
 315                 } else
 316                         ignore();
 317                 break;
 318
 319         case OVOLDOWN:
 320                 lprcat("\nYou have found ");
 321                 lprcat(objectname[OVOLDOWN]);
 322                 lprcat("\nDo you (c) climb down");
 323                 iopts();
 324                 i = 0;
 325                 while ((i != 'c') && (i != 'i') && (i != '\33'))
 326                         i = ttgetch();
 327                 if ((i == '\33') || (i == 'i')) {
 328                         ignore();
 329                         break;
 330                 }
 331                 if (level != 0) {
 332                         lprcat("\nThe shaft only extends 5 feet downward!");
 333                         return;
 334                 }
 335                 if (packweight() > 45 + 3 * (c[STRENGTH] + c[STREXTRA])) {
 336                         lprcat("\nYou slip and fall down the shaft");
 337                         beep();
 338                         lastnum = 275;
 339                         losehp(30 + rnd(20));
 340                         bottomhp();
 341                 } else
 342                         lprcat("climb down");
 343                 nap(3000);
 344                 newcavelevel(MAXLEVEL);
 345                 for (i = 0; i < MAXY; i++)
 346                         for (j = 0; j < MAXX; j++)      /* put player near
 347                                                          * volcano shaft */
 348                                 if (item[j][i] == OVOLUP) {
 349                                         playerx = j;
 350                                         playery = i;
 351                                         j = MAXX;
 352                                         i = MAXY;
 353                                         positionplayer();
 354                                 }
 355                 draws(0, MAXX, 0, MAXY);
 356                 bot_linex();
 357                 return;
 358
 359         case OVOLUP:
 360                 lprcat("\nYou have found ");
 361                 lprcat(objectname[OVOLUP]);
 362                 lprcat("\nDo you (c) climb up");
 363                 iopts();
 364                 i = 0;
 365                 while ((i != 'c') && (i != 'i') && (i != '\33'))
 366                         i = ttgetch();
 367                 if ((i == '\33') || (i == 'i')) {
 368                         ignore();
 369                         break;
 370                 }
 371                 if (level != 11) {
 372                         lprcat("\nThe shaft only extends 8 feet upwards before you find a blockage!");
 373                         return;
 374                 }
 375                 if (packweight() > 45 + 5 * (c[STRENGTH] + c[STREXTRA])) {
 376                         lprcat("\nYou slip and fall down the shaft");
 377                         beep();
 378                         lastnum = 275;
 379                         losehp(15 + rnd(20));
 380                         bottomhp();
 381                         return;
 382                 }
 383                 lprcat("climb up");
 384                 lflush();
 385                 nap(3000);
 386                 newcavelevel(0);
 387                 for (i = 0; i < MAXY; i++)
 388                         for (j = 0; j < MAXX; j++)      /* put player near
 389                                                          * volcano shaft */
 390                                 if (item[j][i] == OVOLDOWN) {
 391                                         playerx = j;
 392                                         playery = i;
 393                                         j = MAXX;
 394                                         i = MAXY;
 395                                         positionplayer();
 396                                 }
 397                 draws(0, MAXX, 0, MAXY);
 398                 bot_linex();
 399                 return;
 400
 401         case OTRAPARROWIV:
 402                 if (rnd(17) < 13)
 403                         return; /* for an arrow trap */
 404                 item[playerx][playery] = OTRAPARROW;
 405                 know[playerx][playery] = 0;
 406
 407         case OTRAPARROW:
 408                 lprcat("\nYou are hit by an arrow");
 409                 beep();         /* for an arrow trap */
 410                 lastnum = 259;
 411                 losehp(rnd(10) + level);
 412                 bottomhp();
 413                 return;
 414
 415         case OIVDARTRAP:
 416                 if (rnd(17) < 13)
 417                         return; /* for a dart trap */
 418                 item[playerx][playery] = ODARTRAP;
 419                 know[playerx][playery] = 0;
 420
 421         case ODARTRAP:
 422                 lprcat("\nYou are hit by a dart");
 423                 beep();         /* for a dart trap */
 424                 lastnum = 260;
 425                 losehp(rnd(5));
 426                 if ((--c[STRENGTH]) < 3)
 427                         c[STRENGTH] = 3;
 428                 bottomline();
 429                 return;
 430
 431         case OIVTRAPDOOR:
 432                 if (rnd(17) < 13)
 433                         return; /* for a trap door */
 434                 item[playerx][playery] = OTRAPDOOR;
 435                 know[playerx][playery] = 1;
 436
 437         case OTRAPDOOR:
 438                 lastnum = 272;  /* a trap door */
 439                 if ((level == MAXLEVEL - 1) || (level == MAXLEVEL + MAXVLEVEL - 1)) {
 440                         lprcat("\nYou fell through a bottomless trap door!");
 441                         beep();
 442                         nap(3000);
 443                         died(271);
 444                 }
 445                 lprcat("\nYou fall through a trap door!");
 446                 beep();         /* for a trap door */
 447                 losehp(rnd(5 + level));
 448                 nap(2000);
 449                 newcavelevel(level + 1);
 450                 draws(0, MAXX, 0, MAXY);
 451                 bot_linex();
 452                 return;
 453
 454
 455         case OTRADEPOST:
 456                 if (nearbymonst())
 457                         return;
 458                 lprcat("\nYou have found the Larn trading Post.");
 459                 lprcat("\nDo you (g) go inside, or (i) stay here? ");
 460                 i = 0;
 461                 while ((i != 'g') && (i != 'i') && (i != '\33'))
 462                         i = ttgetch();
 463                 if (i == 'g')
 464                         otradepost();
 465                 else
 466                         lprcat("stay here");
 467                 return;
 468
 469         case OHOME:
 470                 if (nearbymonst())
 471                         return;
 472                 lprcat("\nYou have found your way home.");
 473                 lprcat("\nDo you (g) go inside, or (i) stay here? ");
 474                 i = 0;
 475                 while ((i != 'g') && (i != 'i') && (i != '\33'))
 476                         i = ttgetch();
 477                 if (i == 'g')
 478                         ohome();
 479                 else
 480                         lprcat("stay here");
 481                 return;
 482
 483         case OWALL:
 484                 break;
 485
 486         case OANNIHILATION:
 487                 died(283);
 488                 return;         /* annihilated by sphere of annihilation */
 489
 490         case OLRS:
 491                 if (nearbymonst())
 492                         return;
 493                 lprcat("\n\nThere is an LRS office here.");
 494                 lprcat("\nDo you (g) go inside, or (i) stay here? ");
 495                 i = 0;
 496                 while ((i != 'g') && (i != 'i') && (i != '\33'))
 497                         i = ttgetch();
 498                 if (i == 'g')
 499                         olrs(); /* the larn revenue service */
 500                 else
 501                         lprcat(" stay here");
 502                 break;
 503
 504         default:
 505                 finditem(i);
 506                 break;
 507         };
 508 }
 509
 510 /*
 511         function to say what object we found and ask if player wants to take it
 512  */
 513 static void
 514 finditem(int theitem)
 515 {
 516         int             tmp, i;
 517         lprintf("\n\nYou have found %s ", objectname[theitem]);
 518         tmp = iarg[playerx][playery];
 519         switch (theitem) {
 520         case ODIAMOND:
 521         case ORUBY:
 522         case OEMERALD:
 523         case OSAPPHIRE:
 524         case OSPIRITSCARAB:
 525         case OORBOFDRAGON:
 526         case OCUBEofUNDEAD:
 527         case ONOTHEFT:
 528                 break;
 529
 530         default:
 531                 if (tmp > 0)
 532                         lprintf("+ %ld", (long) tmp);
 533                 else if (tmp < 0)
 534                         lprintf(" %ld", (long) tmp);
 535         }
 536         lprcat("\nDo you want to (t) take it");
 537         iopts();
 538         i = 0;
 539         while (i != 't' && i != 'i' && i != '\33')
 540                 i = ttgetch();
 541         if (i == 't') {
 542                 lprcat("take");
 543                 if (take(theitem, tmp) == 0)
 544                         forget();
 545                 return;
 546         }
 547         ignore();
 548 }
 549
 550
 551
 552 /*
 553         subroutine to process the stair cases
 554         if dir > 0 the up else down
 555  */
 556 static void
 557 ostairs(int dir)
 558 {
 559         int    k;
 560         lprcat("\nDo you (s) stay here  ");
 561         if (dir > 0)
 562                 lprcat("(u) go up  ");
 563         else
 564                 lprcat("(d) go down  ");
 565         lprcat("or (f) kick stairs? ");
 566
 567         while (1)
 568                 switch (ttgetch()) {
 569                 case '\33':
 570                 case 's':
 571                 case 'i':
 572                         lprcat("stay here");
 573                         return;
 574
 575                 case 'f':
 576                         lprcat("kick stairs");
 577                         if (rnd(2) == 1)
 578                                 lprcat("\nI hope you feel better.  Showing anger rids you of frustration.");
 579                         else {
 580                                 k = rnd((level + 1) << 1);
 581                                 lprintf("\nYou hurt your foot dumb dumb!  You suffer %ld hit points", (long) k);
 582                                 lastnum = 276;
 583                                 losehp(k);
 584                                 bottomline();
 585                         }
 586                         return;
 587
 588                 case 'u':
 589                         lprcat("go up");
 590                         if (dir < 0)
 591                                 lprcat("\nThe stairs don't go up!");
 592                         else if (level >= 2 && level != 11) {
 593                                 k = level;
 594                                 newcavelevel(level - 1);
 595                                 draws(0, MAXX, 0, MAXY);
 596                                 bot_linex();
 597                         } else
 598                                 lprcat("\nThe stairs lead to a dead end!");
 599                         return;
 600
 601                 case 'd':
 602                         lprcat("go down");
 603                         if (dir > 0)
 604                                 lprcat("\nThe stairs don't go down!");
 605                         else if (level != 0 && level != 10 && level != 13) {
 606                                 k = level;
 607                                 newcavelevel(level + 1);
 608                                 draws(0, MAXX, 0, MAXY);
 609                                 bot_linex();
 610                         } else
 611                                 lprcat("\nThe stairs lead to a dead end!");
 612                         return;
 613                 };
 614 }
 615
 616
 617
 618 /*
 619         subroutine to handle a teleport trap +/- 1 level maximum
 620  */
 621 void
 622 oteleport(int err)
 623 {
 624         int    tmp;
 625         if (err)
 626                 if (rnd(151) < 3)
 627                         died(264);      /* stuck in a rock */
 628         c[TELEFLAG] = 1;        /* show ?? on bottomline if been teleported      */
 629         if (level == 0)
 630                 tmp = 0;
 631         else if (level < MAXLEVEL) {
 632                 tmp = rnd(5) + level - 3;
 633                 if (tmp >= MAXLEVEL)
 634                         tmp = MAXLEVEL - 1;
 635                 if (tmp < 1)
 636                         tmp = 1;
 637         } else {
 638                 tmp = rnd(3) + level - 2;
 639                 if (tmp >= MAXLEVEL + MAXVLEVEL)
 640                         tmp = MAXLEVEL + MAXVLEVEL - 1;
 641                 if (tmp < MAXLEVEL)
 642                         tmp = MAXLEVEL;
 643         }
 644         playerx = rnd(MAXX - 2);
 645         playery = rnd(MAXY - 2);
 646         if (level != tmp)
 647                 newcavelevel(tmp);
 648         positionplayer();
 649         draws(0, MAXX, 0, MAXY);
 650         bot_linex();
 651 }
 652
 653
 654 /*
 655         function to process a potion
 656  */
 657 static void
 658 opotion(int pot)
 659 {
 660         lprcat("\nDo you (d) drink it, (t) take it");
 661         iopts();
 662         while (1)
 663                 switch (ttgetch()) {
 664                 case '\33':
 665                 case 'i':
 666                         ignore();
 667                         return;
 668
 669                 case 'd':
 670                         lprcat("drink\n");
 671                         forget();       /* destroy potion        */
 672                         quaffpotion(pot);
 673                         return;
 674
 675                 case 't':
 676                         lprcat("take\n");
 677                         if (take(OPOTION, pot) == 0)
 678                                 forget();
 679                         return;
 680                 };
 681 }
 682
 683 /*
 684         function to drink a potion
 685  */
 686 void
 687 quaffpotion(int pot)
 688 {
 689         int    i, j, k;
 690         if (pot < 0 || pot >= MAXPOTION)
 691                 return;         /* check for within bounds */
 692         potionname[pot] = potionhide[pot];
 693         switch (pot) {
 694         case 9:
 695                 lprcat("\nYou feel greedy . . .");
 696                 nap(2000);
 697                 for (i = 0; i < MAXY; i++)
 698                         for (j = 0; j < MAXX; j++)
 699                                 if ((item[j][i] == OGOLDPILE) || (item[j][i] == OMAXGOLD)) {
 700                                         know[j][i] = 1;
 701                                         show1cell(j, i);
 702                                 }
 703                 showplayer();
 704                 return;
 705
 706         case 19:
 707                 lprcat("\nYou feel greedy . . .");
 708                 nap(2000);
 709                 for (i = 0; i < MAXY; i++)
 710                         for (j = 0; j < MAXX; j++) {
 711                                 k = item[j][i];
 712                                 if ((k == ODIAMOND) || (k == ORUBY) || (k == OEMERALD) || (k == OMAXGOLD)
 713                                     || (k == OSAPPHIRE) || (k == OLARNEYE) || (k == OGOLDPILE)) {
 714                                         know[j][i] = 1;
 715                                         show1cell(j, i);
 716                                 }
 717                         }
 718                 showplayer();
 719                 return;
 720
 721         case 20:
 722                 c[HP] = c[HPMAX];
 723                 break;          /* instant healing */
 724
 725         case 1:
 726                 lprcat("\nYou feel better");
 727                 if (c[HP] == c[HPMAX])
 728                         raisemhp(1);
 729                 else if ((c[HP] += rnd(20) + 20 + c[LEVEL]) > c[HPMAX])
 730                         c[HP] = c[HPMAX];
 731                 break;
 732
 733         case 2:
 734                 lprcat("\nSuddenly, you feel much more skillful!");
 735                 raiselevel();
 736                 raisemhp(1);
 737                 return;
 738
 739         case 3:
 740                 lprcat("\nYou feel strange for a moment");
 741                 c[rund(6)]++;
 742                 break;
 743
 744         case 4:
 745                 lprcat("\nYou feel more self confident!");
 746                 c[WISDOM] += rnd(2);
 747                 break;
 748
 749         case 5:
 750                 lprcat("\nWow!  You feel great!");
 751                 if (c[STRENGTH] < 12)
 752                         c[STRENGTH] = 12;
 753                 else
 754                         c[STRENGTH]++;
 755                 break;
 756
 757         case 6:
 758                 lprcat("\nYour charm went up by one!");
 759                 c[CHARISMA]++;
 760                 break;
 761
 762         case 8:
 763                 lprcat("\nYour intelligence went up by one!");
 764                 c[INTELLIGENCE]++;
 765                 break;
 766
 767         case 10:
 768                 for (i = 0; i < MAXY; i++)
 769                         for (j = 0; j < MAXX; j++)
 770                                 if (mitem[j][i]) {
 771                                         know[j][i] = 1;
 772                                         show1cell(j, i);
 773                                 }
 774                  /* monster detection    */ return;
 775
 776         case 12:
 777                 lprcat("\nThis potion has no taste to it");
 778                 return;
 779
 780         case 15:
 781                 lprcat("\nWOW!!!  You feel Super-fantastic!!!");
 782                 if (c[HERO] == 0)
 783                         for (i = 0; i < 6; i++)
 784                                 c[i] += 11;
 785                 c[HERO] += 250;
 786                 break;
 787
 788         case 16:
 789                 lprcat("\nYou have a greater intestinal constitude!");
 790                 c[CONSTITUTION]++;
 791                 break;
 792
 793         case 17:
 794                 lprcat("\nYou now have incredibly bulging muscles!!!");
 795                 if (c[GIANTSTR] == 0)
 796                         c[STREXTRA] += 21;
 797                 c[GIANTSTR] += 700;
 798                 break;
 799
 800         case 18:
 801                 lprcat("\nYou feel a chill run up your spine!");
 802                 c[FIRERESISTANCE] += 1000;
 803                 break;
 804
 805         case 0:
 806                 lprcat("\nYou fall asleep. . .");
 807                 i = rnd(11) - (c[CONSTITUTION] >> 2) + 2;
 808                 while (--i > 0) {
 809                         parse2();
 810                         nap(1000);
 811                 }
 812                 cursors();
 813                 lprcat("\nYou woke up!");
 814                 return;
 815
 816         case 7:
 817                 lprcat("\nYou become dizzy!");
 818                 if (--c[STRENGTH] < 3)
 819                         c[STRENGTH] = 3;
 820                 break;
 821
 822         case 11:
 823                 lprcat("\nYou stagger for a moment . .");
 824                 for (i = 0; i < MAXY; i++)
 825                         for (j = 0; j < MAXX; j++)
 826                                 know[j][i] = 0;
 827                 nap(2000);
 828                 draws(0, MAXX, 0, MAXY);        /* potion of forgetfulness */
 829                 return;
 830
 831         case 13:
 832                 lprcat("\nYou can't see anything!");    /* blindness */
 833                 c[BLINDCOUNT] += 500;
 834                 return;
 835
 836         case 14:
 837                 lprcat("\nYou feel confused");
 838                 c[CONFUSE] += 20 + rnd(9);
 839                 return;
 840
 841         case 21:
 842                 lprcat("\nYou don't seem to be affected");
 843                 return;         /* cure dianthroritis */
 844
 845         case 22:
 846                 lprcat("\nYou feel a sickness engulf you");     /* poison */
 847                 c[HALFDAM] += 200 + rnd(200);
 848                 return;
 849
 850         case 23:
 851                 lprcat("\nYou feel your vision sharpen");       /* see invisible */
 852                 c[SEEINVISIBLE] += rnd(1000) + 400;
 853                 monstnamelist[INVISIBLESTALKER] = 'I';
 854                 return;
 855         };
 856         bottomline();           /* show new stats                */
 857         return;
 858 }
 859
 860
 861 /*
 862         function to process a magic scroll
 863  */
 864 static void
 865 oscroll(int typ)
 866 {
 867         lprcat("\nDo you ");
 868         if (c[BLINDCOUNT] == 0)
 869                 lprcat("(r) read it, ");
 870         lprcat("(t) take it");
 871         iopts();
 872         while (1)
 873                 switch (ttgetch()) {
 874                 case '\33':
 875                 case 'i':
 876                         ignore();
 877                         return;
 878
 879                 case 'r':
 880                         if (c[BLINDCOUNT])
 881                                 break;
 882                         lprcat("read");
 883                         forget();
 884                         if (typ == 2 || typ == 15) {
 885                                 show1cell(playerx, playery);
 886                                 cursors();
 887                         }
 888                          /* destroy it   */ read_scroll(typ);
 889                         return;
 890
 891                 case 't':
 892                         lprcat("take");
 893                         if (take(OSCROLL, typ) == 0)
 894                                 forget();       /* destroy it    */
 895                         return;
 896                 };
 897 }
 898
 899 /*
 900         data for the function to read a scroll
 901  */
 902 static int      xh, yh, yl, xl;
 903 static u_char     curse[] = {
 904         BLINDCOUNT, CONFUSE, AGGRAVATE, HASTEMONST, ITCHING,
 905         LAUGHING, DRAINSTRENGTH, CLUMSINESS, INFEEBLEMENT, HALFDAM
 906 };
 907
 908 static u_char     exten[] = {
 909         PROTECTIONTIME, DEXCOUNT, STRCOUNT, CHARMCOUNT, INVISIBILITY,
 910         CANCELLATION, HASTESELF, GLOBE, SCAREMONST, HOLDMONST, TIMESTOP
 911 };
 912
 913 static u_char time_change[] = {
 914         HASTESELF, HERO, ALTPRO, PROTECTIONTIME, DEXCOUNT, STRCOUNT,
 915         GIANTSTR, CHARMCOUNT, INVISIBILITY, CANCELLATION, HASTESELF,
 916         AGGRAVATE, SCAREMONST, STEALTH, AWARENESS, HOLDMONST,
 917         HASTEMONST, FIRERESISTANCE, GLOBE, SPIRITPRO, UNDEADPRO,
 918         HALFDAM, SEEINVISIBLE, ITCHING, CLUMSINESS, WTW
 919 };
 920
 921 /*
 922  *      function to adjust time when time warping and taking courses in school
 923  */
 924 void
 925 adjusttime(long tim)
 926 {
 927         int    j;
 928         for (j = 0; j < 26; j++)/* adjust time related parameters */
 929                 if (c[time_change[j]])
 930                         if ((c[time_change[j]] -= tim) < 1)
 931                                 c[time_change[j]] = 1;
 932         regen();
 933 }
 934
 935 /*
 936         function to read a scroll
 937  */
 938 void
 939 read_scroll(int typ)
 940 {
 941         int    i, j;
 942         if (typ < 0 || typ >= MAXSCROLL)
 943                 return;         /* be sure we are within bounds */
 944         scrollname[typ] = scrollhide[typ];
 945         switch (typ) {
 946         case 0:
 947                 lprcat("\nYour armor glows for a moment");
 948                 enchantarmor();
 949                 return;
 950
 951         case 1:
 952                 lprcat("\nYour weapon glows for a moment");
 953                 enchweapon();
 954                 return;         /* enchant weapon */
 955
 956         case 2:
 957                 lprcat("\nYou have been granted enlightenment!");
 958                 yh = min(playery + 7, MAXY);
 959                 xh = min(playerx + 25, MAXX);
 960                 yl = max(playery - 7, 0);
 961                 xl = max(playerx - 25, 0);
 962                 for (i = yl; i < yh; i++)
 963                         for (j = xl; j < xh; j++)
 964                                 know[j][i] = 1;
 965                 nap(2000);
 966                 draws(xl, xh, yl, yh);
 967                 return;
 968
 969         case 3:
 970                 lprcat("\nThis scroll seems to be blank");
 971                 return;
 972
 973         case 4:
 974                 createmonster(makemonst(level + 1));
 975                 return;         /* this one creates a monster  */
 976
 977         case 5:
 978                 something(level);       /* create artifact               */
 979                 return;
 980
 981         case 6:
 982                 c[AGGRAVATE] += 800;
 983                 return;         /* aggravate monsters */
 984
 985         case 7:
 986                 gltime += (i = rnd(1000) - 850);        /* time warp */
 987                 if (i >= 0)
 988                         lprintf("\nYou went forward in time by %ld mobuls", (long) ((i + 99) / 100));
 989                 else
 990                         lprintf("\nYou went backward in time by %ld mobuls", (long) (-(i + 99) / 100));
 991                 adjusttime((long) i);   /* adjust time for time warping */
 992                 return;
 993
 994         case 8:
 995                 oteleport(0);
 996                 return;         /* teleportation */
 997
 998         case 9:
 999                 c[AWARENESS] += 1800;
1000                 return;         /* expanded awareness    */
1001
1002         case 10:
1003                 c[HASTEMONST] += rnd(55) + 12;
1004                 return;         /* haste monster */
1005
1006         case 11:
1007                 for (i = 0; i < MAXY; i++)
1008                         for (j = 0; j < MAXX; j++)
1009                                 if (mitem[j][i])
1010                                         hitp[j][i] = monster[mitem[j][i]].hitpoints;
1011                 return;         /* monster healing */
1012         case 12:
1013                 c[SPIRITPRO] += 300 + rnd(200);
1014                 bottomline();
1015                 return;         /* spirit protection */
1016
1017         case 13:
1018                 c[UNDEADPRO] += 300 + rnd(200);
1019                 bottomline();
1020                 return;         /* undead protection */
1021
1022         case 14:
1023                 c[STEALTH] += 250 + rnd(250);
1024                 bottomline();
1025                 return;         /* stealth */
1026
1027         case 15:
1028                 lprcat("\nYou have been granted enlightenment!");       /* magic mapping */
1029                 for (i = 0; i < MAXY; i++)
1030                         for (j = 0; j < MAXX; j++)
1031                                 know[j][i] = 1;
1032                 nap(2000);
1033                 draws(0, MAXX, 0, MAXY);
1034                 return;
1035
1036         case 16:
1037                 c[HOLDMONST] += 30;
1038                 bottomline();
1039                 return;         /* hold monster */
1040
1041         case 17:
1042                 for (i = 0; i < 26; i++)        /* gem perfection */
1043                         switch (iven[i]) {
1044                         case ODIAMOND:
1045                         case ORUBY:
1046                         case OEMERALD:
1047                         case OSAPPHIRE:
1048                                 j = ivenarg[i];
1049                                 j &= 255;
1050                                 j <<= 1;
1051                                 if (j > 255)
1052                                         j = 255;        /* double value */
1053                                 ivenarg[i] = j;
1054                                 break;
1055                         }
1056                 break;
1057
1058         case 18:
1059                 for (i = 0; i < 11; i++)
1060                         c[exten[i]] <<= 1;      /* spell extension */
1061                 break;
1062
1063         case 19:
1064                 for (i = 0; i < 26; i++) {      /* identify */
1065                         if (iven[i] == OPOTION)
1066                                 potionname[ivenarg[i]] = potionhide[ivenarg[i]];
1067                         if (iven[i] == OSCROLL)
1068                                 scrollname[ivenarg[i]] = scrollhide[ivenarg[i]];
1069                 }
1070                 break;
1071
1072         case 20:
1073                 for (i = 0; i < 10; i++)        /* remove curse */
1074                         if (c[curse[i]])
1075                                 c[curse[i]] = 1;
1076                 break;
1077
1078         case 21:
1079                 annihilate();
1080                 break;          /* scroll of annihilation */
1081
1082         case 22:
1083                 godirect(22, 150, "The ray hits the %s", 0, ' ');       /* pulverization */
1084                 break;
1085         case 23:
1086                 c[LIFEPROT]++;
1087                 break;          /* life protection */
1088         };
1089 }
1090
1091
1092
1093 static void
1094 oorb(void)
1095 {
1096 }
1097
1098 static void
1099 opit(void)
1100 {
1101         int    i;
1102         if (rnd(101) < 81) {
1103                 if (rnd(70) > 9 * c[DEXTERITY] - packweight() || rnd(101) < 5) {
1104                         if (level == MAXLEVEL - 1)
1105                                 obottomless();
1106                         else if (level == MAXLEVEL + MAXVLEVEL - 1)
1107                                 obottomless();
1108                         else {
1109                                 if (rnd(101) < 20) {
1110                                         i = 0;
1111                                         lprcat("\nYou fell into a pit!  Your fall is cushioned by an unknown force\n");
1112                                 } else {
1113                                         i = rnd(level * 3 + 3);
1114                                         lprintf("\nYou fell into a pit!  You suffer %ld hit points damage", (long) i);
1115                                         lastnum = 261;  /* if he dies scoreboard
1116                                                          * will say so */
1117                                 }
1118                                 losehp(i);
1119                                 nap(2000);
1120                                 newcavelevel(level + 1);
1121                                 draws(0, MAXX, 0, MAXY);
1122                         }
1123                 }
1124         }
1125 }
1126
1127 static void
1128 obottomless(void)
1129 {
1130         lprcat("\nYou fell into a bottomless pit!");
1131         beep();
1132         nap(3000);
1133         died(262);
1134 }
1135
1136 static void
1137 oelevator(int dir)
1138 {
1139 #ifdef lint
1140         int             x;
1141         x = dir;
1142         dir = x;
1143 #endif  /* lint */
1144 }
1145
1146 static void
1147 ostatue(void)
1148 {
1149 }
1150
1151 static void
1152 omirror(void)
1153 {
1154 }
1155
1156 static void
1157 obook(void)
1158 {
1159         lprcat("\nDo you ");
1160         if (c[BLINDCOUNT] == 0)
1161                 lprcat("(r) read it, ");
1162         lprcat("(t) take it");
1163         iopts();
1164         while (1)
1165                 switch (ttgetch()) {
1166                 case '\33':
1167                 case 'i':
1168                         ignore();
1169                         return;
1170
1171                 case 'r':
1172                         if (c[BLINDCOUNT])
1173                                 break;
1174                         lprcat("read");
1175                          /* no more book         */ readbook(iarg[playerx][playery]);
1176                         forget();
1177                         return;
1178
1179                 case 't':
1180                         lprcat("take");
1181                         if (take(OBOOK, iarg[playerx][playery]) == 0)
1182                                 forget();       /* no more book  */
1183                         return;
1184                 };
1185 }
1186
1187 /*
1188         function to read a book
1189  */
1190 void
1191 readbook(int lev)
1192 {
1193         int    i, tmp;
1194         if (lev <= 3)
1195                 i = rund((tmp = splev[lev]) ? tmp : 1);
1196         else
1197                 i = rnd((tmp = splev[lev] - 9) ? tmp : 1) + 9;
1198         spelknow[i] = 1;
1199         lprintf("\nSpell \"%s\":  %s\n%s", spelcode[i], spelname[i], speldescript[i]);
1200         if (rnd(10) == 4) {
1201                 lprcat("\nYour int went up by one!");
1202                 c[INTELLIGENCE]++;
1203                 bottomline();
1204         }
1205 }
1206
1207 static void
1208 ocookie(void)
1209 {
1210         const char *p;
1211
1212         lprcat("\nDo you (e) eat it, (t) take it");
1213         iopts();
1214         while (1)
1215                 switch (ttgetch()) {
1216                 case '\33':
1217                 case 'i':
1218                         ignore();
1219                         return;
1220
1221                 case 'e':
1222                         lprcat("eat\nThe cookie tasted good.");
1223                         forget();       /* no more cookie        */
1224                         if (c[BLINDCOUNT])
1225                                 return;
1226                         if (!(p = fortune()))
1227                                 return;
1228                         lprcat("  A message inside the cookie reads:\n");
1229                         lprcat(p);
1230                         return;
1231
1232                 case 't':
1233                         lprcat("take");
1234                         if (take(OCOOKIE, 0) == 0)
1235                                 forget();       /* no more book  */
1236                         return;
1237                 };
1238 }
1239
1240
1241 /*
1242  * routine to pick up some gold -- if arg==OMAXGOLD then the pile is worth
1243  * 100* the argument
1244  */
1245 static void
1246 ogold(int arg)
1247 {
1248         long   i;
1249         i = iarg[playerx][playery];
1250         if (arg == OMAXGOLD)
1251                 i *= 100;
1252         else if (arg == OKGOLD)
1253                 i *= 1000;
1254         else if (arg == ODGOLD)
1255                 i *= 10;
1256         lprintf("\nIt is worth %ld!", (long) i);
1257         c[GOLD] += i;
1258         bottomgold();
1259         item[playerx][playery] = know[playerx][playery] = 0;    /* destroy gold  */
1260 }
1261
1262 static void
1263 ohome(void)
1264 {
1265         int    i;
1266         nosignal = 1;           /* disable signals */
1267         for (i = 0; i < 26; i++)
1268                 if (iven[i] == OPOTION)
1269                         if (ivenarg[i] == 21) {
1270                                 iven[i] = 0;    /* remove the potion of cure
1271                                                  * dianthroritis from
1272                                                  * inventory */
1273                                 clear();
1274                                 lprcat("Congratulations.  You found a potion of cure dianthroritis.\n");
1275                                 lprcat("\nFrankly, No one thought you could do it.  Boy!  Did you surprise them!\n");
1276                                 if (gltime > TIMELIMIT) {
1277                                         lprcat("\nThe doctor has the sad duty to inform you that your daughter died!\n");
1278                                         lprcat("You didn't make it in time.  In your agony, you kill the doctor,\nyour wife, and yourself!  Too bad!\n");
1279                                         nap(5000);
1280                                         died(269);
1281                                 } else {
1282                                         lprcat("\nThe doctor is now administering the potion, and in a few moments\n");
1283                                         lprcat("Your daughter should be well on her way to recovery.\n");
1284                                         nap(6000);
1285                                         lprcat("\nThe potion is");
1286                                         nap(3000);
1287                                         lprcat(" working!  The doctor thinks that\n");
1288                                         lprcat("your daughter will recover in a few days.  Congratulations!\n");
1289                                         beep();
1290                                         nap(5000);
1291                                         died(263);
1292                                 }
1293                         }
1294         while (1) {
1295                 clear();
1296                 lprintf("Welcome home %s.  Latest word from the doctor is not good.\n", logname);
1297
1298                 if (gltime > TIMELIMIT) {
1299                         lprcat("\nThe doctor has the sad duty to inform you that your daughter died!\n");
1300                         lprcat("You didn't make it in time.  In your agony, you kill the doctor,\nyour wife, and yourself!  Too bad!\n");
1301                         nap(5000);
1302                         died(269);
1303                 }
1304                 lprcat("\nThe diagnosis is confirmed as dianthroritis.  He guesses that\n");
1305                 lprintf("your daughter has only %ld mobuls left in this world.  It's up to you,\n", (long) ((TIMELIMIT - gltime + 99) / 100));
1306                 lprintf("%s, to find the only hope for your daughter, the very rare\n", logname);
1307                 lprcat("potion of cure dianthroritis.  It is rumored that only deep in the\n");
1308                 lprcat("depths of the caves can this potion be found.\n\n\n");
1309                 lprcat("\n     ----- press ");
1310                 standout("return");
1311                 lprcat(" to continue, ");
1312                 standout("escape");
1313                 lprcat(" to leave ----- ");
1314                 i = ttgetch();
1315                 while (i != '\33' && i != '\n')
1316                         i = ttgetch();
1317                 if (i == '\33') {
1318                         drawscreen();
1319                         nosignal = 0;   /* enable signals */
1320                         return;
1321                 }
1322         }
1323 }
1324
1325 /* routine to save program space         */
1326 void
1327 iopts(void)
1328 {
1329         lprcat(", or (i) ignore it? ");
1330 }
1331
1332 void
1333 ignore(void)
1334 {
1335         lprcat("ignore\n");
1336 }