larn/object.c

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