rogue/use.c

   1 /*
   2  * Copyright (c) 1988 The Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * This code is derived from software contributed to Berkeley by
   6  * Timothy C. Stoehr.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions
  10  * are met:
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  * 2. Redistributions in binary form must reproduce the above copyright
  14  *    notice, this list of conditions and the following disclaimer in the
  15  *    documentation and/or other materials provided with the distribution.
  16  * 3. All advertising materials mentioning features or use of this software
  17  *    must display the following acknowledgement:
  18  *      This product includes software developed by the University of
  19  *      California, Berkeley and its contributors.
  20  * 4. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  */
  36
  37 #ifndef lint
  38 /*static char sccsid[] = "from: @(#)use.c       5.3 (Berkeley) 6/1/90";*/
  39 static char rcsid[] = "$Id: use.c,v 1.2 1993/08/01 18:52:08 mycroft Exp $";
  40 #endif /* not lint */
  41
  42 /*
  43  * use.c
  44  *
  45  * This source herein may be modified and/or distributed by anybody who
  46  * so desires, with the following restrictions:
  47  *    1.)  No portion of this notice shall be removed.
  48  *    2.)  Credit shall not be taken for the creation of this source.
  49  *    3.)  This code is not to be traded, sold, or used for personal
  50  *         gain or profit.
  51  *
  52  */
  53
  54 #include "rogue.h"
  55
  56 short halluc = 0;
  57 short blind = 0;
  58 short confused = 0;
  59 short levitate = 0;
  60 short haste_self = 0;
  61 boolean see_invisible = 0;
  62 short extra_hp = 0;
  63 boolean detect_monster = 0;
  64 boolean con_mon = 0;
  65 char *strange_feeling = "you have a strange feeling for a moment, then it passes";
  66
  67 extern short bear_trap;
  68 extern char hunger_str[];
  69 extern short cur_room;
  70 extern long level_points[];
  71 extern boolean being_held;
  72 extern char *fruit, *you_can_move_again;
  73 extern boolean sustain_strength;
  74
  75 quaff()
  76 {
  77         short ch;
  78         char buf[80];
  79         object *obj;
  80
  81         ch = pack_letter("quaff what?", POTION);
  82
  83         if (ch == CANCEL) {
  84                 return;
  85         }
  86         if (!(obj = get_letter_object(ch))) {
  87                 message("no such item.", 0);
  88                 return;
  89         }
  90         if (obj->what_is != POTION) {
  91                 message("you can't drink that", 0);
  92                 return;
  93         }
  94         switch(obj->which_kind) {
  95                 case INCREASE_STRENGTH:
  96                         message("you feel stronger now, what bulging muscles!",
  97                         0);
  98                         rogue.str_current++;
  99                         if (rogue.str_current > rogue.str_max) {
 100                                 rogue.str_max = rogue.str_current;
 101                         }
 102                         break;
 103                 case RESTORE_STRENGTH:
 104                         rogue.str_current = rogue.str_max;
 105                         message("this tastes great, you feel warm all over", 0);
 106                         break;
 107                 case HEALING:
 108                         message("you begin to feel better", 0);
 109                         potion_heal(0);
 110                         break;
 111                 case EXTRA_HEALING:
 112                         message("you begin to feel much better", 0);
 113                         potion_heal(1);
 114                         break;
 115                 case POISON:
 116                         if (!sustain_strength) {
 117                                 rogue.str_current -= get_rand(1, 3);
 118                                 if (rogue.str_current < 1) {
 119                                         rogue.str_current = 1;
 120                                 }
 121                         }
 122                         message("you feel very sick now", 0);
 123                         if (halluc) {
 124                                 unhallucinate();
 125                         }
 126                         break;
 127                 case RAISE_LEVEL:
 128                         rogue.exp_points = level_points[rogue.exp - 1];
 129                         message("you suddenly feel much more skillful", 0);
 130                         add_exp(1, 1);
 131                         break;
 132                 case BLINDNESS:
 133                         go_blind();
 134                         break;
 135                 case HALLUCINATION:
 136                         message("oh wow, everything seems so cosmic", 0);
 137                         halluc += get_rand(500, 800);
 138                         break;
 139                 case DETECT_MONSTER:
 140                         show_monsters();
 141                         if (!(level_monsters.next_monster)) {
 142                                 message(strange_feeling, 0);
 143                         }
 144                         break;
 145                 case DETECT_OBJECTS:
 146                         if (level_objects.next_object) {
 147                                 if (!blind) {
 148                                         show_objects();
 149                                 }
 150                         } else {
 151                                 message(strange_feeling, 0);
 152                         }
 153                         break;
 154                 case CONFUSION:
 155                         message((halluc ? "what a trippy feeling" :
 156                         "you feel confused"), 0);
 157                         cnfs();
 158                         break;
 159                 case LEVITATION:
 160                         message("you start to float in the air", 0);
 161                         levitate += get_rand(15, 30);
 162                         being_held = bear_trap = 0;
 163                         break;
 164                 case HASTE_SELF:
 165                         message("you feel yourself moving much faster", 0);
 166                         haste_self += get_rand(11, 21);
 167                         if (!(haste_self % 2)) {
 168                                 haste_self++;
 169                         }
 170                         break;
 171                 case SEE_INVISIBLE:
 172                         sprintf(buf, "hmm, this potion tastes like %sjuice", fruit);
 173                         message(buf, 0);
 174                         if (blind) {
 175                                 unblind();
 176                         }
 177                         see_invisible = 1;
 178                         relight();
 179                         break;
 180         }
 181         print_stats((STAT_STRENGTH | STAT_HP));
 182         if (id_potions[obj->which_kind].id_status != CALLED) {
 183                 id_potions[obj->which_kind].id_status = IDENTIFIED;
 184         }
 185         vanish(obj, 1, &rogue.pack);
 186 }
 187
 188 read_scroll()
 189 {
 190         short ch;
 191         object *obj;
 192         char msg[DCOLS];
 193
 194         ch = pack_letter("read what?", SCROL);
 195
 196         if (ch == CANCEL) {
 197                 return;
 198         }
 199         if (!(obj = get_letter_object(ch))) {
 200                 message("no such item.", 0);
 201                 return;
 202         }
 203         if (obj->what_is != SCROL) {
 204                 message("you can't read that", 0);
 205                 return;
 206         }
 207         switch(obj->which_kind) {
 208                 case SCARE_MONSTER:
 209                         message("you hear a maniacal laughter in the distance",
 210                         0);
 211                         break;
 212                 case HOLD_MONSTER:
 213                         hold_monster();
 214                         break;
 215                 case ENCH_WEAPON:
 216                         if (rogue.weapon) {
 217                                 if (rogue.weapon->what_is == WEAPON) {
 218                                         sprintf(msg, "your %sglow%s %sfor a moment",
 219                                         name_of(rogue.weapon),
 220                                         ((rogue.weapon->quantity <= 1) ? "s" : ""),
 221                                         get_ench_color());
 222                                         message(msg, 0);
 223                                         if (coin_toss()) {
 224                                                 rogue.weapon->hit_enchant++;
 225                                         } else {
 226                                                 rogue.weapon->d_enchant++;
 227                                         }
 228                                 }
 229                                 rogue.weapon->is_cursed = 0;
 230                         } else {
 231                                 message("your hands tingle", 0);
 232                         }
 233                         break;
 234                 case ENCH_ARMOR:
 235                         if (rogue.armor) {
 236                                 sprintf(msg, "your armor glows %sfor a moment",
 237                                 get_ench_color());
 238                                 message(msg, 0);
 239                                 rogue.armor->d_enchant++;
 240                                 rogue.armor->is_cursed = 0;
 241                                 print_stats(STAT_ARMOR);
 242                         } else {
 243                                 message("your skin crawls", 0);
 244                         }
 245                         break;
 246                 case IDENTIFY:
 247                         message("this is a scroll of identify", 0);
 248                         obj->identified = 1;
 249                         id_scrolls[obj->which_kind].id_status = IDENTIFIED;
 250                         idntfy();
 251                         break;
 252                 case TELEPORT:
 253                         tele();
 254                         break;
 255                 case SLEEP:
 256                         message("you fall asleep", 0);
 257                         take_a_nap();
 258                         break;
 259                 case PROTECT_ARMOR:
 260                         if (rogue.armor) {
 261                                 message( "your armor is covered by a shimmering gold shield",0);
 262                                 rogue.armor->is_protected = 1;
 263                                 rogue.armor->is_cursed = 0;
 264                         } else {
 265                                 message("your acne seems to have disappeared", 0);
 266                         }
 267                         break;
 268                 case REMOVE_CURSE:
 269                                 message((!halluc) ?
 270                                         "you feel as though someone is watching over you" :
 271                                         "you feel in touch with the universal oneness", 0);
 272                         uncurse_all();
 273                         break;
 274                 case CREATE_MONSTER:
 275                         create_monster();
 276                         break;
 277                 case AGGRAVATE_MONSTER:
 278                         aggravate();
 279                         break;
 280                 case MAGIC_MAPPING:
 281                         message("this scroll seems to have a map on it", 0);
 282                         draw_magic_map();
 283                         break;
 284                 case CON_MON:
 285                         con_mon = 1;
 286                         sprintf(msg, "your hands glow %sfor a moment", get_ench_color());
 287                         message(msg, 0);
 288                         break;
 289         }
 290         if (id_scrolls[obj->which_kind].id_status != CALLED) {
 291                 id_scrolls[obj->which_kind].id_status = IDENTIFIED;
 292         }
 293         vanish(obj, (obj->which_kind != SLEEP), &rogue.pack);
 294 }
 295
 296 /* vanish() does NOT handle a quiver of weapons with more than one
 297  *  arrow (or whatever) in the quiver.  It will only decrement the count.
 298  */
 299
 300 vanish(obj, rm, pack)
 301 object *obj;
 302 short rm;
 303 object *pack;
 304 {
 305         if (obj->quantity > 1) {
 306                 obj->quantity--;
 307         } else {
 308                 if (obj->in_use_flags & BEING_WIELDED) {
 309                         unwield(obj);
 310                 } else if (obj->in_use_flags & BEING_WORN) {
 311                         unwear(obj);
 312                 } else if (obj->in_use_flags & ON_EITHER_HAND) {
 313                         un_put_on(obj);
 314                 }
 315                 take_from_pack(obj, pack);
 316                 free_object(obj);
 317         }
 318         if (rm) {
 319                 (void) reg_move();
 320         }
 321 }
 322
 323 potion_heal(extra)
 324 {
 325         float ratio;
 326         short add;
 327
 328         rogue.hp_current += rogue.exp;
 329
 330         ratio = ((float)rogue.hp_current) / rogue.hp_max;
 331
 332         if (ratio >= 1.00) {
 333                 rogue.hp_max += (extra ? 2 : 1);
 334                 extra_hp += (extra ? 2 : 1);
 335                 rogue.hp_current = rogue.hp_max;
 336         } else if (ratio >= 0.90) {
 337                 rogue.hp_max += (extra ? 1 : 0);
 338                 extra_hp += (extra ? 1 : 0);
 339                 rogue.hp_current = rogue.hp_max;
 340         } else {
 341                 if (ratio < 0.33) {
 342                         ratio = 0.33;
 343                 }
 344                 if (extra) {
 345                         ratio += ratio;
 346                 }
 347                 add = (short)(ratio * ((float)rogue.hp_max - rogue.hp_current));
 348                 rogue.hp_current += add;
 349                 if (rogue.hp_current > rogue.hp_max) {
 350                         rogue.hp_current = rogue.hp_max;
 351                 }
 352         }
 353         if (blind) {
 354                 unblind();
 355         }
 356         if (confused && extra) {
 357                         unconfuse();
 358         } else if (confused) {
 359                 confused = (confused / 2) + 1;
 360         }
 361         if (halluc && extra) {
 362                 unhallucinate();
 363         } else if (halluc) {
 364                 halluc = (halluc / 2) + 1;
 365         }
 366 }
 367
 368 idntfy()
 369 {
 370         short ch;
 371         object *obj;
 372         struct id *id_table;
 373         char desc[DCOLS];
 374 AGAIN:
 375         ch = pack_letter("what would you like to identify?", ALL_OBJECTS);
 376
 377         if (ch == CANCEL) {
 378                 return;
 379         }
 380         if (!(obj = get_letter_object(ch))) {
 381                 message("no such item, try again", 0);
 382                 message("", 0);
 383                 check_message();
 384                 goto AGAIN;
 385         }
 386         obj->identified = 1;
 387         if (obj->what_is & (SCROL | POTION | WEAPON | ARMOR | WAND | RING)) {
 388                 id_table = get_id_table(obj);
 389                 id_table[obj->which_kind].id_status = IDENTIFIED;
 390         }
 391         get_desc(obj, desc);
 392         message(desc, 0);
 393 }
 394
 395 eat()
 396 {
 397         short ch;
 398         short moves;
 399         object *obj;
 400         char buf[70];
 401
 402         ch = pack_letter("eat what?", FOOD);
 403
 404         if (ch == CANCEL) {
 405                 return;
 406         }
 407         if (!(obj = get_letter_object(ch))) {
 408                 message("no such item.", 0);
 409                 return;
 410         }
 411         if (obj->what_is != FOOD) {
 412                 message("you can't eat that", 0);
 413                 return;
 414         }
 415         if ((obj->which_kind == FRUIT) || rand_percent(60)) {
 416                 moves = get_rand(950, 1150);
 417                 if (obj->which_kind == RATION) {
 418                         message("yum, that tasted good", 0);
 419                 } else {
 420                         sprintf(buf, "my, that was a yummy %s", fruit);
 421                         message(buf, 0);
 422                 }
 423         } else {
 424                 moves = get_rand(750, 950);
 425                 message("yuk, that food tasted awful", 0);
 426                 add_exp(2, 1);
 427         }
 428         rogue.moves_left /= 3;
 429         rogue.moves_left += moves;
 430         hunger_str[0] = 0;
 431         print_stats(STAT_HUNGER);
 432
 433         vanish(obj, 1, &rogue.pack);
 434 }
 435
 436 hold_monster()
 437 {
 438         short i, j;
 439         short mcount = 0;
 440         object *monster;
 441         short row, col;
 442
 443         for (i = -2; i <= 2; i++) {
 444                 for (j = -2; j <= 2; j++) {
 445                         row = rogue.row + i;
 446                         col = rogue.col + j;
 447                         if ((row < MIN_ROW) || (row > (DROWS-2)) || (col < 0) ||
 448                                  (col > (DCOLS-1))) {
 449                                 continue;
 450                         }
 451                         if (dungeon[row][col] & MONSTER) {
 452                                 monster = object_at(&level_monsters, row, col);
 453                                 monster->m_flags |= ASLEEP;
 454                                 monster->m_flags &= (~WAKENS);
 455                                 mcount++;
 456                         }
 457                 }
 458         }
 459         if (mcount == 0) {
 460                 message("you feel a strange sense of loss", 0);
 461         } else if (mcount == 1) {
 462                 message("the monster freezes", 0);
 463         } else {
 464                 message("the monsters around you freeze", 0);
 465         }
 466 }
 467
 468 tele()
 469 {
 470         mvaddch(rogue.row, rogue.col, get_dungeon_char(rogue.row, rogue.col));
 471
 472         if (cur_room >= 0) {
 473                 darken_room(cur_room);
 474         }
 475         put_player(get_room_number(rogue.row, rogue.col));
 476         being_held = 0;
 477         bear_trap = 0;
 478 }
 479
 480 hallucinate()
 481 {
 482         object *obj, *monster;
 483         short ch;
 484
 485         if (blind) return;
 486
 487         obj = level_objects.next_object;
 488
 489         while (obj) {
 490                 ch = mvinch(obj->row, obj->col);
 491                 if (((ch < 'A') || (ch > 'Z')) &&
 492                         ((obj->row != rogue.row) || (obj->col != rogue.col)))
 493                 if ((ch != ' ') && (ch != '.') && (ch != '#') && (ch != '+')) {
 494                         addch(gr_obj_char());
 495                 }
 496                 obj = obj->next_object;
 497         }
 498         monster = level_monsters.next_monster;
 499
 500         while (monster) {
 501                 ch = mvinch(monster->row, monster->col);
 502                 if ((ch >= 'A') && (ch <= 'Z')) {
 503                         addch(get_rand('A', 'Z'));
 504                 }
 505                 monster = monster->next_monster;
 506         }
 507 }
 508
 509 unhallucinate()
 510 {
 511         halluc = 0;
 512         relight();
 513         message("everything looks SO boring now", 1);
 514 }
 515
 516 unblind()
 517 {
 518         blind = 0;
 519         message("the veil of darkness lifts", 1);
 520         relight();
 521         if (halluc) {
 522                 hallucinate();
 523         }
 524         if (detect_monster) {
 525                 show_monsters();
 526         }
 527 }
 528
 529 relight()
 530 {
 531         if (cur_room == PASSAGE) {
 532                 light_passage(rogue.row, rogue.col);
 533         } else {
 534                 light_up_room(cur_room);
 535         }
 536         mvaddch(rogue.row, rogue.col, rogue.fchar);
 537 }
 538
 539 take_a_nap()
 540 {
 541         short i;
 542
 543         i = get_rand(2, 5);
 544         md_sleep(1);
 545
 546         while (i--) {
 547                 mv_mons();
 548         }
 549         md_sleep(1);
 550         message(you_can_move_again, 0);
 551 }
 552
 553 go_blind()
 554 {
 555         short i, j;
 556
 557         if (!blind) {
 558                 message("a cloak of darkness falls around you", 0);
 559         }
 560         blind += get_rand(500, 800);
 561
 562         if (detect_monster) {
 563                 object *monster;
 564
 565                 monster = level_monsters.next_monster;
 566
 567                 while (monster) {
 568                         mvaddch(monster->row, monster->col, monster->trail_char);
 569                         monster = monster->next_monster;
 570                 }
 571         }
 572         if (cur_room >= 0) {
 573                 for (i = rooms[cur_room].top_row + 1;
 574                          i < rooms[cur_room].bottom_row; i++) {
 575                         for (j = rooms[cur_room].left_col + 1;
 576                                  j < rooms[cur_room].right_col; j++) {
 577                                 mvaddch(i, j, ' ');
 578                         }
 579                 }
 580         }
 581         mvaddch(rogue.row, rogue.col, rogue.fchar);
 582 }
 583
 584 char *
 585 get_ench_color()
 586 {
 587         if (halluc) {
 588                 return(id_potions[get_rand(0, POTIONS-1)].title);
 589         } else if (con_mon) {
 590                 return("red ");
 591         }
 592         return("blue ");
 593 }
 594
 595 cnfs()
 596 {
 597         confused += get_rand(12, 22);
 598 }
 599
 600 unconfuse()
 601 {
 602         char msg[80];
 603
 604         confused = 0;
 605         sprintf(msg, "you feel less %s now", (halluc ? "trippy" : "confused"));
 606         message(msg, 1);
 607 }
 608
 609 uncurse_all()
 610 {
 611         object *obj;
 612
 613         obj = rogue.pack.next_object;
 614
 615         while (obj) {
 616                 obj->is_cursed = 0;
 617                 obj = obj->next_object;
 618         }
 619 }