larn/object.c

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