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