2 * Copyright (c) 1988, 1993
3 * The Regents of the University of California. All rights reserved.
5 * This code is derived from software contributed to Berkeley by
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
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.
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
36 * @(#)use.c 8.1 (Berkeley) 5/31/93
37 * $FreeBSD: src/games/rogue/use.c,v 1.4 1999/11/30 03:49:29 billf Exp $
38 * $DragonFly: src/games/rogue/use.c,v 1.4 2006/09/02 19:31:07 pavalos Exp $
44 * This source herein may be modified and/or distributed by anybody who
45 * so desires, with the following restrictions:
46 * 1.) No portion of this notice shall be removed.
47 * 2.) Credit shall not be taken for the creation of this source.
48 * 3.) This code is not to be traded, sold, or used for personal
60 boolean see_invisible = 0;
62 boolean detect_monster = 0;
64 const char *strange_feeling = "you have a strange feeling for a moment, then it passes";
66 extern short bear_trap;
67 extern short cur_room;
68 extern long level_points[];
69 extern boolean being_held;
70 extern char *fruit, *you_can_move_again;
71 extern boolean sustain_strength;
73 static void potion_heal(boolean);
74 static void idntfy(void);
75 static void hold_monster(void);
76 static void go_blind(void);
77 static const char *get_ench_color(void);
78 static void uncurse_all(void);
87 ch = pack_letter("quaff what?", POTION);
92 if (!(obj = get_letter_object(ch))) {
93 message("no such item.", 0);
96 if (obj->what_is != POTION) {
97 message("you can't drink that", 0);
100 switch(obj->which_kind) {
101 case INCREASE_STRENGTH:
102 message("you feel stronger now, what bulging muscles!",
105 if (rogue.str_current > rogue.str_max) {
106 rogue.str_max = rogue.str_current;
109 case RESTORE_STRENGTH:
110 rogue.str_current = rogue.str_max;
111 message("this tastes great, you feel warm all over", 0);
114 message("you begin to feel better", 0);
118 message("you begin to feel much better", 0);
122 if (!sustain_strength) {
123 rogue.str_current -= get_rand(1, 3);
124 if (rogue.str_current < 1) {
125 rogue.str_current = 1;
128 message("you feel very sick now", 0);
134 rogue.exp_points = level_points[rogue.exp - 1];
135 message("you suddenly feel much more skillful", 0);
142 message("oh wow, everything seems so cosmic", 0);
143 halluc += get_rand(500, 800);
147 if (!(level_monsters.next_monster)) {
148 message(strange_feeling, 0);
152 if (level_objects.next_object) {
157 message(strange_feeling, 0);
161 message((halluc ? "what a trippy feeling" :
162 "you feel confused"), 0);
166 message("you start to float in the air", 0);
167 levitate += get_rand(15, 30);
168 bear_trap = being_held = 0;
171 message("you feel yourself moving much faster", 0);
172 haste_self += get_rand(11, 21);
173 if (!(haste_self % 2)) {
178 sprintf(buf, "hmm, this potion tastes like %sjuice", fruit);
187 print_stats((STAT_STRENGTH | STAT_HP));
188 if (id_potions[obj->which_kind].id_status != CALLED) {
189 id_potions[obj->which_kind].id_status = IDENTIFIED;
191 vanish(obj, 1, &rogue.pack);
201 ch = pack_letter("read what?", SCROL);
206 if (!(obj = get_letter_object(ch))) {
207 message("no such item.", 0);
210 if (obj->what_is != SCROL) {
211 message("you can't read that", 0);
214 switch(obj->which_kind) {
216 message("you hear a maniacal laughter in the distance",
224 if (rogue.weapon->what_is == WEAPON) {
225 sprintf(msg, "your %sglow%s %sfor a moment",
226 name_of(rogue.weapon),
227 ((rogue.weapon->quantity <= 1) ? "s" : ""),
231 rogue.weapon->hit_enchant++;
233 rogue.weapon->d_enchant++;
236 rogue.weapon->is_cursed = 0;
238 message("your hands tingle", 0);
243 sprintf(msg, "your armor glows %sfor a moment",
246 rogue.armor->d_enchant++;
247 rogue.armor->is_cursed = 0;
248 print_stats(STAT_ARMOR);
250 message("your skin crawls", 0);
254 message("this is a scroll of identify", 0);
256 id_scrolls[obj->which_kind].id_status = IDENTIFIED;
263 message("you fall asleep", 0);
268 message( "your armor is covered by a shimmering gold shield",0);
269 rogue.armor->is_protected = 1;
270 rogue.armor->is_cursed = 0;
272 message("your acne seems to have disappeared", 0);
277 "you feel as though someone is watching over you" :
278 "you feel in touch with the universal oneness", 0);
284 case AGGRAVATE_MONSTER:
288 message("this scroll seems to have a map on it", 0);
293 sprintf(msg, "your hands glow %sfor a moment", get_ench_color());
297 if (id_scrolls[obj->which_kind].id_status != CALLED) {
298 id_scrolls[obj->which_kind].id_status = IDENTIFIED;
300 vanish(obj, (obj->which_kind != SLEEP), &rogue.pack);
303 /* vanish() does NOT handle a quiver of weapons with more than one
304 * arrow (or whatever) in the quiver. It will only decrement the count.
308 vanish(object *obj, short rm, object *pack)
310 if (obj->quantity > 1) {
313 if (obj->in_use_flags & BEING_WIELDED) {
315 } else if (obj->in_use_flags & BEING_WORN) {
317 } else if (obj->in_use_flags & ON_EITHER_HAND) {
320 take_from_pack(obj, pack);
329 potion_heal(boolean extra)
334 rogue.hp_current += rogue.exp;
336 ratio = ((float)rogue.hp_current) / rogue.hp_max;
339 rogue.hp_max += (extra ? 2 : 1);
340 extra_hp += (extra ? 2 : 1);
341 rogue.hp_current = rogue.hp_max;
342 } else if (ratio >= 0.90) {
343 rogue.hp_max += (extra ? 1 : 0);
344 extra_hp += (extra ? 1 : 0);
345 rogue.hp_current = rogue.hp_max;
353 add = (short)(ratio * ((float)rogue.hp_max - rogue.hp_current));
354 rogue.hp_current += add;
355 if (rogue.hp_current > rogue.hp_max) {
356 rogue.hp_current = rogue.hp_max;
362 if (confused && extra) {
364 } else if (confused) {
365 confused = (confused / 2) + 1;
367 if (halluc && extra) {
370 halluc = (halluc / 2) + 1;
382 ch = pack_letter("what would you like to identify?", ALL_OBJECTS);
387 if (!(obj = get_letter_object(ch))) {
388 message("no such item, try again", 0);
394 if (obj->what_is & (SCROL | POTION | WEAPON | ARMOR | WAND | RING)) {
395 id_table = get_id_table(obj);
396 id_table[obj->which_kind].id_status = IDENTIFIED;
410 ch = pack_letter("eat what?", FOOD);
415 if (!(obj = get_letter_object(ch))) {
416 message("no such item.", 0);
419 if (obj->what_is != FOOD) {
420 message("you can't eat that", 0);
423 if ((obj->which_kind == FRUIT) || rand_percent(60)) {
424 moves = get_rand(950, 1150);
425 if (obj->which_kind == RATION) {
426 message("yum, that tasted good", 0);
428 sprintf(buf, "my, that was a yummy %s", fruit);
432 moves = get_rand(750, 950);
433 message("yuk, that food tasted awful", 0);
436 rogue.moves_left /= 3;
437 rogue.moves_left += moves;
439 print_stats(STAT_HUNGER);
441 vanish(obj, 1, &rogue.pack);
452 for (i = -2; i <= 2; i++) {
453 for (j = -2; j <= 2; j++) {
456 if ((row < MIN_ROW) || (row > (DROWS-2)) || (col < 0) ||
460 if (dungeon[row][col] & MONSTER) {
461 monster = object_at(&level_monsters, row, col);
462 monster->m_flags |= ASLEEP;
463 monster->m_flags &= (~WAKENS);
469 message("you feel a strange sense of loss", 0);
470 } else if (mcount == 1) {
471 message("the monster freezes", 0);
473 message("the monsters around you freeze", 0);
480 mvaddch(rogue.row, rogue.col, get_dungeon_char(rogue.row, rogue.col));
483 darken_room(cur_room);
485 put_player(get_room_number(rogue.row, rogue.col));
493 object *obj, *monster;
498 obj = level_objects.next_object;
501 ch = mvinch(obj->row, obj->col);
502 if (((ch < 'A') || (ch > 'Z')) &&
503 ((obj->row != rogue.row) || (obj->col != rogue.col)))
504 if ((ch != ' ') && (ch != '.') && (ch != '#') && (ch != '+')) {
505 addch(gr_obj_char());
507 obj = obj->next_object;
509 monster = level_monsters.next_monster;
512 ch = mvinch(monster->row, monster->col);
513 if ((ch >= 'A') && (ch <= 'Z')) {
514 addch(get_rand('A', 'Z'));
516 monster = monster->next_monster;
525 message("everything looks SO boring now", 1);
532 message("the veil of darkness lifts", 1);
537 if (detect_monster) {
545 if (cur_room == PASSAGE) {
546 light_passage(rogue.row, rogue.col);
548 light_up_room(cur_room);
550 mvaddch(rogue.row, rogue.col, rogue.fchar);
565 message(you_can_move_again, 0);
574 message("a cloak of darkness falls around you", 0);
576 blind += get_rand(500, 800);
578 if (detect_monster) {
581 monster = level_monsters.next_monster;
584 mvaddch(monster->row, monster->col, monster->trail_char);
585 monster = monster->next_monster;
589 for (i = rooms[cur_room].top_row + 1;
590 i < rooms[cur_room].bottom_row; i++) {
591 for (j = rooms[cur_room].left_col + 1;
592 j < rooms[cur_room].right_col; j++) {
597 mvaddch(rogue.row, rogue.col, rogue.fchar);
604 return(id_potions[get_rand(0, POTIONS-1)].title);
605 } else if (con_mon) {
614 confused += get_rand(12, 22);
623 sprintf(msg, "you feel less %s now", (halluc ? "trippy" : "confused"));
632 obj = rogue.pack.next_object;
636 obj = obj->next_object;