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