/*      $NetBSD: use.c,v 1.11 2021/05/02 12:50:46 rillig Exp $  */

/*
* Copyright (c) 1988, 1993
*      The Regents of the University of California.  All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Timothy C. Stoehr.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
* 3. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/

#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)use.c       8.1 (Berkeley) 5/31/93";
#else
__RCSID("$NetBSD: use.c,v 1.11 2021/05/02 12:50:46 rillig Exp $");
#endif
#endif /* not lint */

/*
* use.c
*
* This source herein may be modified and/or distributed by anybody who
* so desires, with the following restrictions:
*    1.)  No portion of this notice shall be removed.
*    2.)  Credit shall not be taken for the creation of this source.
*    3.)  This code is not to be traded, sold, or used for personal
*         gain or profit.
*
*/

#include "rogue.h"

short halluc = 0;
short blind = 0;
short confused = 0;
short levitate = 0;
short haste_self = 0;
boolean see_invisible = 0;
short extra_hp = 0;
boolean detect_monster = 0;
boolean con_mon = 0;

static const char strange_feeling[] =
       "you have a strange feeling for a moment, then it passes";

static const char *get_ench_color(void);
static void go_blind(void);
static void hold_monster(void);
static void idntfy(void);
static void potion_heal(int);
static void uncurse_all(void);

void
quaff(void)
{
       short ch;
       object *obj;

       ch = pack_letter("quaff what?", POTION);

       if (ch == CANCEL) {
               return;
       }
       if (!(obj = get_letter_object(ch))) {
               messagef(0, "no such item.");
               return;
       }
       if (obj->what_is != POTION) {
               messagef(0, "you can't drink that");
               return;
       }
       switch(obj->which_kind) {
               case INCREASE_STRENGTH:
                       messagef(0, "you feel stronger now, what bulging muscles!");
                       rogue.str_current++;
                       if (rogue.str_current > rogue.str_max) {
                               rogue.str_max = rogue.str_current;
                       }
                       break;
               case RESTORE_STRENGTH:
                       rogue.str_current = rogue.str_max;
                       messagef(0, "this tastes great, you feel warm all over");
                       break;
               case HEALING:
                       messagef(0, "you begin to feel better");
                       potion_heal(0);
                       break;
               case EXTRA_HEALING:
                       messagef(0, "you begin to feel much better");
                       potion_heal(1);
                       break;
               case POISON:
                       if (!sustain_strength) {
                               rogue.str_current -= get_rand(1, 3);
                               if (rogue.str_current < 1) {
                                       rogue.str_current = 1;
                               }
                       }
                       messagef(0, "you feel very sick now");
                       if (halluc) {
                               unhallucinate();
                       }
                       break;
               case RAISE_LEVEL:
                       rogue.exp_points = level_points[rogue.exp - 1];
                       messagef(0, "you suddenly feel much more skillful");
                       add_exp(1, 1);
                       break;
               case BLINDNESS:
                       go_blind();
                       break;
               case HALLUCINATION:
                       messagef(0, "oh wow, everything seems so cosmic");
                       halluc += get_rand(500, 800);
                       break;
               case DETECT_MONSTER:
                       show_monsters();
                       if (!(level_monsters.next_monster)) {
                               messagef(0, "%s", strange_feeling);
                       }
                       break;
               case DETECT_OBJECTS:
                       if (level_objects.next_object) {
                               if (!blind) {
                                       show_objects();
                               }
                       } else {
                               messagef(0, "%s", strange_feeling);
                       }
                       break;
               case CONFUSION:
                       messagef(0, (halluc ? "what a trippy feeling" :
                       "you feel confused"));
                       cnfs();
                       break;
               case LEVITATION:
                       messagef(0, "you start to float in the air");
                       levitate += get_rand(15, 30);
                       being_held = bear_trap = 0;
                       break;
               case HASTE_SELF:
                       messagef(0, "you feel yourself moving much faster");
                       haste_self += get_rand(11, 21);
                       if (!(haste_self % 2)) {
                               haste_self++;
                       }
                       break;
               case SEE_INVISIBLE:
                       messagef(0, "hmm, this potion tastes like %sjuice",
                                fruit);
                       if (blind) {
                               unblind();
                       }
                       see_invisible = 1;
                       relight();
                       break;
       }
       print_stats((STAT_STRENGTH | STAT_HP));
       if (id_potions[obj->which_kind].id_status != CALLED) {
               id_potions[obj->which_kind].id_status = IDENTIFIED;
       }
       vanish(obj, 1, &rogue.pack);
}

void
read_scroll(void)
{
       short ch;
       object *obj;

       ch = pack_letter("read what?", SCROL);

       if (ch == CANCEL) {
               return;
       }
       if (!(obj = get_letter_object(ch))) {
               messagef(0, "no such item.");
               return;
       }
       if (obj->what_is != SCROL) {
               messagef(0, "you can't read that");
               return;
       }
       switch(obj->which_kind) {
               case SCARE_MONSTER:
                       messagef(0, "you hear a maniacal laughter in the distance");
                       break;
               case HOLD_MONSTER:
                       hold_monster();
                       break;
               case ENCH_WEAPON:
                       if (rogue.weapon) {
                               if (rogue.weapon->what_is == WEAPON) {
                                       messagef(0, "your %sglow%s %sfor a moment",
                                               name_of(rogue.weapon),
                                               ((rogue.weapon->quantity <= 1) ? "s" : ""),
                                               get_ench_color());
                                       if (coin_toss()) {
                                               rogue.weapon->hit_enchant++;
                                       } else {
                                               rogue.weapon->d_enchant++;
                                       }
                               }
                               rogue.weapon->is_cursed = 0;
                       } else {
                               messagef(0, "your hands tingle");
                       }
                       break;
               case ENCH_ARMOR:
                       if (rogue.armor) {
                               messagef(0, "your armor glows %sfor a moment",
                                       get_ench_color());
                               rogue.armor->d_enchant++;
                               rogue.armor->is_cursed = 0;
                               print_stats(STAT_ARMOR);
                       } else {
                               messagef(0, "your skin crawls");
                       }
                       break;
               case IDENTIFY:
                       messagef(0, "this is a scroll of identify");
                       obj->identified = 1;
                       id_scrolls[obj->which_kind].id_status = IDENTIFIED;
                       idntfy();
                       break;
               case TELEPORT:
                       tele();
                       break;
               case SLEEP:
                       messagef(0, "you fall asleep");
                       take_a_nap();
                       break;
               case PROTECT_ARMOR:
                       if (rogue.armor) {
                               messagef(0, "your armor is covered by a shimmering gold shield");
                               rogue.armor->is_protected = 1;
                               rogue.armor->is_cursed = 0;
                       } else {
                               messagef(0, "your acne seems to have disappeared");
                       }
                       break;
               case REMOVE_CURSE:
                               messagef(0, (!halluc) ?
                                       "you feel as though someone is watching over you" :
                                       "you feel in touch with the universal oneness");
                       uncurse_all();
                       break;
               case CREATE_MONSTER:
                       create_monster();
                       break;
               case AGGRAVATE_MONSTER:
                       aggravate();
                       break;
               case MAGIC_MAPPING:
                       messagef(0, "this scroll seems to have a map on it");
                       draw_magic_map();
                       break;
               case CON_MON:
                       con_mon = 1;
                       messagef(0, "your hands glow %sfor a moment",
                                get_ench_color());
                       break;
       }
       if (id_scrolls[obj->which_kind].id_status != CALLED) {
               id_scrolls[obj->which_kind].id_status = IDENTIFIED;
       }
       vanish(obj, (obj->which_kind != SLEEP), &rogue.pack);
}

/* vanish() does NOT handle a quiver of weapons with more than one
*  arrow (or whatever) in the quiver.  It will only decrement the count.
*/

void
vanish(object *obj, short rm, object *pack)
{
       if (obj->quantity > 1) {
               obj->quantity--;
       } else {
               if (obj->in_use_flags & BEING_WIELDED) {
                       unwield(obj);
               } else if (obj->in_use_flags & BEING_WORN) {
                       unwear(obj);
               } else if (obj->in_use_flags & ON_EITHER_HAND) {
                       un_put_on(obj);
               }
               take_from_pack(obj, pack);
               free_object(obj);
       }
       if (rm) {
               (void)reg_move();
       }
}

static void
potion_heal(int extra)
{
       float ratio;
       short add;

       rogue.hp_current += rogue.exp;

       ratio = ((float)rogue.hp_current) / rogue.hp_max;

       if (ratio >= 1.00) {
               rogue.hp_max += (extra ? 2 : 1);
               extra_hp += (extra ? 2 : 1);
               rogue.hp_current = rogue.hp_max;
       } else if (ratio >= 0.90) {
               rogue.hp_max += (extra ? 1 : 0);
               extra_hp += (extra ? 1 : 0);
               rogue.hp_current = rogue.hp_max;
       } else {
               if (ratio < 0.33) {
                       ratio = 0.33;
               }
               if (extra) {
                       ratio += ratio;
               }
               add = (short)(ratio * (rogue.hp_max - rogue.hp_current));
               rogue.hp_current += add;
               if (rogue.hp_current > rogue.hp_max) {
                       rogue.hp_current = rogue.hp_max;
               }
       }
       if (blind) {
               unblind();
       }
       if (confused && extra) {
               unconfuse();
       } else if (confused) {
               confused = (confused / 2) + 1;
       }
       if (halluc && extra) {
               unhallucinate();
       } else if (halluc) {
               halluc = (halluc / 2) + 1;
       }
}

static void
idntfy(void)
{
       short ch;
       object *obj;
       struct id *id_table;
       char desc[DCOLS];
AGAIN:
       ch = pack_letter("what would you like to identify?", ALL_OBJECTS);

       if (ch == CANCEL) {
               return;
       }
       if (!(obj = get_letter_object(ch))) {
               messagef(0, "no such item, try again");
               messagef(0, "%s", "");  /* gcc objects to just "" */
               check_message();
               goto AGAIN;
       }
       obj->identified = 1;
       if (obj->what_is & (SCROL | POTION | WEAPON | ARMOR | WAND | RING)) {
               id_table = get_id_table(obj);
               id_table[obj->which_kind].id_status = IDENTIFIED;
       }
       get_desc(obj, desc, sizeof(desc));
       messagef(0, "%s", desc);
}

void
eat(void)
{
       short ch;
       short moves;
       object *obj;

       ch = pack_letter("eat what?", FOOD);

       if (ch == CANCEL) {
               return;
       }
       if (!(obj = get_letter_object(ch))) {
               messagef(0, "no such item.");
               return;
       }
       if (obj->what_is != FOOD) {
               messagef(0, "you can't eat that");
               return;
       }
       if ((obj->which_kind == FRUIT) || rand_percent(60)) {
               moves = get_rand(950, 1150);
               if (obj->which_kind == RATION) {
                       messagef(0, "yum, that tasted good");
               } else {
                       messagef(0, "my, that was a yummy %s", fruit);
               }
       } else {
               moves = get_rand(750, 950);
               messagef(0, "yuk, that food tasted awful");
               add_exp(2, 1);
       }
       rogue.moves_left /= 3;
       rogue.moves_left += moves;
       hunger_str[0] = 0;
       print_stats(STAT_HUNGER);

       vanish(obj, 1, &rogue.pack);
}

static void
hold_monster(void)
{
       short i, j;
       short mcount = 0;
       object *monster;
       short row, col;

       for (i = -2; i <= 2; i++) {
               for (j = -2; j <= 2; j++) {
                       row = rogue.row + i;
                       col = rogue.col + j;
                       if ((row < MIN_ROW) || (row > (DROWS-2)) || (col < 0) ||
                                (col > (DCOLS-1))) {
                               continue;
                       }
                       if (dungeon[row][col] & MONSTER) {
                               monster = object_at(&level_monsters, row, col);
                               monster->m_flags |= ASLEEP;
                               monster->m_flags &= (~WAKENS);
                               mcount++;
                       }
               }
       }
       if (mcount == 0) {
               messagef(0, "you feel a strange sense of loss");
       } else if (mcount == 1) {
               messagef(0, "the monster freezes");
       } else {
               messagef(0, "the monsters around you freeze");
       }
}

void
tele(void)
{
       mvaddch(rogue.row, rogue.col, get_dungeon_char(rogue.row, rogue.col));

       if (cur_room >= 0) {
               darken_room(cur_room);
       }
       put_player(get_room_number(rogue.row, rogue.col));
       being_held = 0;
       bear_trap = 0;
}

void
hallucinate(void)
{
       object *obj, *monster;
       short ch;

       if (blind) return;

       obj = level_objects.next_object;

       while (obj) {
               ch = mvinch(obj->row, obj->col);
               if (((ch < 'A') || (ch > 'Z')) &&
                       ((obj->row != rogue.row) || (obj->col != rogue.col)))
               if ((ch != ' ') && (ch != '.') && (ch != '#') && (ch != '+')) {
                       addch(gr_obj_char());
               }
               obj = obj->next_object;
       }
       monster = level_monsters.next_monster;

       while (monster) {
               ch = mvinch(monster->row, monster->col);
               if ((ch >= 'A') && (ch <= 'Z')) {
                       addch(get_rand('A', 'Z'));
               }
               monster = monster->next_monster;
       }
}

void
unhallucinate(void)
{
       halluc = 0;
       relight();
       messagef(1, "everything looks SO boring now");
}

void
unblind(void)
{
       blind = 0;
       messagef(1, "the veil of darkness lifts");
       relight();
       if (halluc) {
               hallucinate();
       }
       if (detect_monster) {
               show_monsters();
       }
}

void
relight(void)
{
       if (cur_room == PASSAGE) {
               light_passage(rogue.row, rogue.col);
       } else {
               light_up_room(cur_room);
       }
       mvaddch(rogue.row, rogue.col, rogue.fchar);
}

void
take_a_nap(void)
{
       short i;

       i = get_rand(2, 5);
       md_sleep(1);

       while (i--) {
               mv_mons();
       }
       md_sleep(1);
       messagef(0, "%s", you_can_move_again);
}

static void
go_blind(void)
{
       short i, j;

       if (!blind) {
               messagef(0, "a cloak of darkness falls around you");
       }
       blind += get_rand(500, 800);

       if (detect_monster) {
               object *monster;

               monster = level_monsters.next_monster;

               while (monster) {
                       mvaddch(monster->row, monster->col, monster->trail_char);
                       monster = monster->next_monster;
               }
       }
       if (cur_room >= 0) {
               for (i = rooms[cur_room].top_row + 1;
                        i < rooms[cur_room].bottom_row; i++) {
                       for (j = rooms[cur_room].left_col + 1;
                                j < rooms[cur_room].right_col; j++) {
                               mvaddch(i, j, ' ');
                       }
               }
       }
       mvaddch(rogue.row, rogue.col, rogue.fchar);
}

static const char *
get_ench_color(void)
{
       if (halluc) {
               return(id_potions[get_rand(0, POTIONS-1)].title);
       } else if (con_mon) {
               return("red ");
       }
       return("blue ");
}

void
cnfs(void)
{
       confused += get_rand(12, 22);
}

void
unconfuse(void)
{
       confused = 0;
       messagef(1, "you feel less %s now", (halluc ? "trippy" : "confused"));
}

static void
uncurse_all(void)
{
       object *obj;

       obj = rogue.pack.next_object;

       while (obj) {
               obj->is_cursed = 0;
               obj = obj->next_object;
       }
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.