games/rogue/use.c

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