Early Roguelike Collection: rogue5/fight.c annotate

annotate rogue5/fight.c @ 201:6fb21004a981

Fix some preprocessor directives. Include process.h in the right place, and use the correct definition of PATH_MAX, when compiling on Windows.

author	John "Elwin" Edwards
date	Wed, 12 Aug 2015 16:56:19 -0400
parents	f502bf60e6e4
children	e7aab31362af

rev	line source
33 f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	1 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	2 * All the fighting gets done here
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	3 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	4 * @(#)fight.c 4.67 (Berkeley) 09/06/83
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	5 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	6 * Rogue: Exploring the Dungeons of Doom
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	7 * Copyright (C) 1980-1983, 1985, 1999 Michael Toy, Ken Arnold and Glenn Wichman
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	8 * All rights reserved.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	9 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	10 * See the file LICENSE.TXT for full copyright and licensing information.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	11 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	12
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	13 #include <stdlib.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	14 #include <curses.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	15 #include <string.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	16 #include <ctype.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	17 #include "rogue.h"
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	18
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	19 #define EQSTR(a, b) (strcmp(a, b) == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	20
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	21 static const char h_names[] = { / strings for hitting */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	22 " scored an excellent hit on ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	23 " hit ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	24 " have injured ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	25 " swing and hit ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	26 " scored an excellent hit on ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	27 " hit ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	28 " has injured ",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	29 " swings and hits "
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	30 };
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	31
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	32 static const char m_names[] = { / strings for missing */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	33 " miss",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	34 " swing and miss",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	35 " barely miss",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	36 " don't hit",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	37 " misses",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	38 " swings and misses",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	39 " barely misses",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	40 " doesn't hit",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	41 };
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	42
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	43 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	44 * adjustments to hit probabilities due to strength
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	45 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	46 static int str_plus[] = {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	47 -7, -6, -5, -4, -3, -2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1,
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	48 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3,
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	49 };
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	50
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	51 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	52 * adjustments to damage done due to strength
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	53 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	54 static int add_dam[] = {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	55 -7, -6, -5, -4, -3, -2, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 3,
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	56 3, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	57 };
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	58
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	59 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	60 * fight:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	61 * The player attacks the monster.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	62 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	63 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	64 fight(const coord mp, const THING weap, int thrown)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	65 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	66 THING *tp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	67 int did_hit = TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	68 const char *mname;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	69 int ch;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	70
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	71 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	72 * Find the monster we want to fight
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	73 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	74 if ((tp = moat(mp->y, mp->x)) == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	75 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	76 #ifdef MASTER
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	77 debug("Fight what @ %d,%d", mp->y, mp->x);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	78 #endif
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	79 return FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	80 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	81 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	82 * Since we are fighting, things are not quiet so no healing takes
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	83 * place.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	84 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	85 count = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	86 quiet = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	87 runto(mp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	88 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	89 * Let him know it was really a xeroc (if it was one).
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	90 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	91 ch = '\0';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	92 if (tp->t_type == 'X' && tp->t_disguise != 'X' && !on(player, ISBLIND))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	93 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	94 tp->t_disguise = 'X';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	95 if (on(player, ISHALU)) {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	96 ch = rnd(26) + 'A';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	97 mvaddch(tp->t_pos.y, tp->t_pos.x, ch);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	98 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	99 msg(choose_str("heavy! That's a nasty critter!",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	100 "wait! That's a xeroc!"));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	101 if (!thrown)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	102 return FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	103 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	104 mname = set_mname(tp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	105 did_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	106 has_hit = (terse && !to_death);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	107 if (roll_em(&player, tp, weap, thrown))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	108 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	109 did_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	110 if (thrown)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	111 thunk(weap, mname, terse);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	112 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	113 hit(NULL, mname, terse);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	114 if (on(player, CANHUH))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	115 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	116 did_hit = TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	117 tp->t_flags \|= ISHUH;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	118 player.t_flags &= ~CANHUH;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	119 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	120 has_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	121 msg("your hands stop glowing %s", pick_color("red"));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	122 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	123 if (tp->t_stats.s_hpt <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	124 killed(tp, TRUE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	125 else if (did_hit && !on(player, ISBLIND))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	126 msg("%s appears confused", mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	127 did_hit = TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	128 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	129 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	130 if (thrown)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	131 bounce(weap, mname, terse);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	132 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	133 miss(NULL, mname, terse);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	134 return did_hit;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	135 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	136
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	137 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	138 * attack:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	139 * The monster attacks the player
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	140 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	141 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	142 attack(THING *mp)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	143 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	144 const char *mname;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	145 int oldhp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	146
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	147 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	148 * Since this is an attack, stop running and any healing that was
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	149 * going on at the time.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	150 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	151 running = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	152 count = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	153 quiet = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	154 if (to_death && !on(*mp, ISTARGET))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	155 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	156 to_death = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	157 kamikaze = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	158 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	159 if (mp->t_type == 'X' && mp->t_disguise != 'X' && !on(player, ISBLIND))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	160 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	161 mp->t_disguise = 'X';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	162 if (on(player, ISHALU))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	163 mvaddch(mp->t_pos.y, mp->t_pos.x, rnd(26) + 'A');
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	164 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	165 mname = set_mname(mp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	166 oldhp = pstats.s_hpt;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	167 if (roll_em(mp, &player, NULL, FALSE))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	168 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	169 if (mp->t_type != 'I')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	170 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	171 if (has_hit)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	172 addmsg(". ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	173 hit(mname, NULL, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	174 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	175 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	176 if (has_hit)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	177 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	178 has_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	179 if (pstats.s_hpt <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	180 death(mp->t_type); /* Bye bye life ... */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	181 else if (!kamikaze)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	182 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	183 oldhp -= pstats.s_hpt;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	184 if (oldhp > max_hit)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	185 max_hit = oldhp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	186 if (pstats.s_hpt <= max_hit)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	187 to_death = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	188 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	189 if (!on(*mp, ISCANC))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	190 switch (mp->t_type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	191 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	192 case 'A':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	193 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	194 * If an aquator hits, you can lose armor class.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	195 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	196 rust_armor(cur_armor);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	197 when 'I':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	198 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	199 * The ice monster freezes you
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	200 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	201 player.t_flags &= ~ISRUN;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	202 if (!no_command)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	203 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	204 addmsg("you are frozen");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	205 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	206 addmsg(" by the %s", mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	207 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	208 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	209 no_command += rnd(2) + 2;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	210 if (no_command > BORE_LEVEL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	211 death('h');
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	212 when 'R':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	213 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	214 * Rattlesnakes have poisonous bites
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	215 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	216 if (!save(VS_POISON))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	217 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	218 if (!ISWEARING(R_SUSTSTR))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	219 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	220 chg_str(-1);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	221 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	222 msg("you feel a bite in your leg and now feel weaker");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	223 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	224 msg("a bite has weakened you");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	225 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	226 else if (!to_death)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	227 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	228 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	229 msg("a bite momentarily weakens you");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	230 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	231 msg("bite has no effect");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	232 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	233 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	234 when 'W':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	235 case 'V':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	236 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	237 * Wraiths might drain energy levels, and Vampires
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	238 * can steal max_hp
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	239 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	240 if (rnd(100) < (mp->t_type == 'W' ? 15 : 30))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	241 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	242 int fewer;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	243
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	244 if (mp->t_type == 'W')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	245 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	246 if (pstats.s_exp == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	247 death('W'); /* All levels gone */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	248 if (--pstats.s_lvl == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	249 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	250 pstats.s_exp = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	251 pstats.s_lvl = 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	252 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	253 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	254 pstats.s_exp = e_levels[pstats.s_lvl-1]+1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	255 fewer = roll(1, 10);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	256 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	257 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	258 fewer = roll(1, 3);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	259 pstats.s_hpt -= fewer;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	260 max_hp -= fewer;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	261 if (pstats.s_hpt <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	262 pstats.s_hpt = 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	263 if (max_hp <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	264 death(mp->t_type);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	265 msg("you suddenly feel weaker");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	266 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	267 when 'F':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	268 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	269 * Venus Flytrap stops the poor guy from moving
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	270 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	271 player.t_flags \|= ISHELD;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	272 sprintf(monsters['F'-'A'].m_stats.s_dmg,"%dx1", ++vf_hit);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	273 if (--pstats.s_hpt <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	274 death('F');
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	275 when 'L':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	276 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	277 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	278 * Leperachaun steals some gold
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	279 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	280 int lastpurse;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	281
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	282 lastpurse = purse;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	283 purse -= GOLDCALC;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	284 if (!save(VS_MAGIC))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	285 purse -= GOLDCALC + GOLDCALC + GOLDCALC + GOLDCALC;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	286 if (purse < 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	287 purse = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	288 remove_mon(&mp->t_pos, mp, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	289 mp=NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	290 if (purse != lastpurse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	291 msg("your purse feels lighter");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	292 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	293 when 'N':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	294 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	295 THING obj, steal;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	296 int nobj;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	297
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	298 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	299 * Nymph's steal a magic item, look through the pack
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	300 * and pick out one we like.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	301 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	302 steal = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	303 for (nobj = 0, obj = pack; obj != NULL; obj = next(obj))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	304 if (obj != cur_armor && obj != cur_weapon
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	305 && obj != cur_ring[LEFT] && obj != cur_ring[RIGHT]
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	306 && is_magic(obj) && rnd(++nobj) == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	307 steal = obj;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	308 if (steal != NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	309 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	310 remove_mon(&mp->t_pos, moat(mp->t_pos.y, mp->t_pos.x), FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	311 mp=NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	312 steal = leave_pack(steal, TRUE, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	313 msg("she stole %s!", inv_name(steal, TRUE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	314 discard(steal);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	315 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	316 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	317 otherwise:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	318 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	319 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	320 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	321 else if (mp->t_type != 'I')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	322 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	323 if (has_hit)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	324 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	325 addmsg(". ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	326 has_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	327 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	328 if (mp->t_type == 'F')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	329 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	330 pstats.s_hpt -= vf_hit;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	331 if (pstats.s_hpt <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	332 death(mp->t_type); /* Bye bye life ... */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	333 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	334 miss(mname, NULL, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	335 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	336 if (fight_flush && !to_death)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	337 flush_type();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	338 count = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	339 status();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	340 if (mp == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	341 return(-1);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	342 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	343 return(0);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	344 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	345
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	346 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	347 * set_mname:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	348 * return the monster name for the given monster
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	349 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	350 const char *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	351 set_mname(const THING *tp)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	352 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	353 int ch;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	354 const char *mname;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	355 static char tbuf[MAXSTR] = { 't', 'h', 'e', ' ' };
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	356
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	357 if (!see_monst(tp) && !on(player, SEEMONST))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	358 return (terse ? "it" : "something");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	359 else if (on(player, ISHALU))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	360 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	361 move(tp->t_pos.y, tp->t_pos.x);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	362 ch = toascii(CCHAR(inch()));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	363 if (!isupper(ch))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	364 ch = rnd(26);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	365 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	366 ch -= 'A';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	367 mname = monsters[ch].m_name;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	368 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	369 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	370 mname = monsters[tp->t_type - 'A'].m_name;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	371 strcpy(&tbuf[4], mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	372 return tbuf;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	373 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	374
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	375 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	376 * swing:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	377 * Returns true if the swing hits
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	378 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	379 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	380 swing(int at_lvl, int op_arm, int wplus)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	381 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	382 int res = rnd(20);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	383 int need = (20 - at_lvl) - op_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	384
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	385 return (res + wplus >= need);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	386 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	387
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	388 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	389 * roll_em:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	390 * Roll several attacks
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	391 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	392 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	393 roll_em(const THING thatt, THING thdef, const THING *weap, int hurl)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	394 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	395 const struct stats *att;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	396 struct stats *def;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	397 const char *cp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	398 int ndice, nsides, def_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	399 int did_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	400 int hplus;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	401 int dplus;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	402 int damage;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	403
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	404 att = &thatt->t_stats;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	405 def = &thdef->t_stats;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	406 if (weap == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	407 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	408 cp = att->s_dmg;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	409 dplus = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	410 hplus = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	411 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	412 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	413 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	414 hplus = (weap == NULL ? 0 : weap->o_hplus);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	415 dplus = (weap == NULL ? 0 : weap->o_dplus);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	416 if (weap == cur_weapon)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	417 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	418 if (ISRING(LEFT, R_ADDDAM))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	419 dplus += cur_ring[LEFT]->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	420 else if (ISRING(LEFT, R_ADDHIT))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	421 hplus += cur_ring[LEFT]->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	422 if (ISRING(RIGHT, R_ADDDAM))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	423 dplus += cur_ring[RIGHT]->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	424 else if (ISRING(RIGHT, R_ADDHIT))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	425 hplus += cur_ring[RIGHT]->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	426 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	427 cp = weap->o_damage;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	428 if (hurl)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	429 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	430 if ((weap->o_flags&ISMISL) && cur_weapon != NULL &&
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	431 cur_weapon->o_which == weap->o_launch)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	432 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	433 cp = weap->o_hurldmg;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	434 hplus += cur_weapon->o_hplus;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	435 dplus += cur_weapon->o_dplus;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	436 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	437 else if (weap->o_launch < 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	438 cp = weap->o_hurldmg;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	439 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	440 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	441 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	442 * If the creature being attacked is not running (alseep or held)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	443 * then the attacker gets a plus four bonus to hit.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	444 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	445 if (!on(*thdef, ISRUN))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	446 hplus += 4;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	447 def_arm = def->s_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	448 if (def == &pstats)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	449 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	450 if (cur_armor != NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	451 def_arm = cur_armor->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	452 if (ISRING(LEFT, R_PROTECT))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	453 def_arm -= cur_ring[LEFT]->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	454 if (ISRING(RIGHT, R_PROTECT))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	455 def_arm -= cur_ring[RIGHT]->o_arm;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	456 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	457 while(cp != NULL && *cp != '\0')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	458 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	459 ndice = atoi(cp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	460 if ((cp = strchr(cp, 'x')) == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	461 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	462 nsides = atoi(++cp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	463 if (swing(att->s_lvl, def_arm, hplus + str_plus[att->s_str]))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	464 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	465 int proll;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	466
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	467 proll = roll(ndice, nsides);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	468 #ifdef MASTER
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	469 if (ndice + nsides > 0 && proll <= 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	470 debug("Damage for %dx%d came out %d, dplus = %d, add_dam = %d, def_arm = %d", ndice, nsides, proll, dplus, add_dam[att->s_str], def_arm);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	471 #endif
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	472 damage = dplus + proll + add_dam[att->s_str];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	473 def->s_hpt -= max(0, damage);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	474 did_hit = TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	475 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	476 if ((cp = strchr(cp, '/')) == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	477 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	478 cp++;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	479 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	480 return did_hit;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	481 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	482
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	483 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	484 * prname:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	485 * The print name of a combatant
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	486 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	487 char *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	488 prname(const char *mname, int upper)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	489 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	490 static char tbuf[MAXSTR];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	491
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	492 *tbuf = '\0';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	493 if (mname == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	494 strcpy(tbuf, "you");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	495 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	496 strcpy(tbuf, mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	497 if (upper)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	498 tbuf = (char) toupper(tbuf);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	499 return tbuf;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	500 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	501
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	502 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	503 * thunk:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	504 * A missile hits a monster
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	505 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	506 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	507 thunk(const THING weap, const char mname, int noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	508 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	509 if (to_death)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	510 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	511 if (weap->o_type == WEAPON)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	512 addmsg("the %s hits ", weap_info[weap->o_which].oi_name);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	513 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	514 addmsg("you hit ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	515 addmsg("%s", mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	516 if (!noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	517 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	518 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	519
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	520 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	521 * hit:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	522 * Print a message to indicate a succesful hit
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	523 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	524
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	525 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	526 hit(const char er, const char ee, int noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	527 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	528 int i;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	529 const char *s;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	530
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	531 if (to_death)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	532 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	533 addmsg(prname(er, TRUE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	534 if (terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	535 s = " hit";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	536 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	537 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	538 i = rnd(4);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	539 if (er != NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	540 i += 4;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	541 s = h_names[i];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	542 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	543 addmsg(s);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	544 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	545 addmsg(prname(ee, FALSE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	546 if (!noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	547 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	548 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	549
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	550 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	551 * miss:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	552 * Print a message to indicate a poor swing
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	553 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	554 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	555 miss(const char er, const char ee, int noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	556 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	557 int i;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	558
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	559 if (to_death)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	560 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	561 addmsg(prname(er, TRUE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	562 if (terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	563 i = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	564 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	565 i = rnd(4);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	566 if (er != NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	567 i += 4;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	568 addmsg(m_names[i]);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	569 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	570 addmsg(" %s", prname(ee, FALSE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	571 if (!noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	572 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	573 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	574
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	575 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	576 * bounce:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	577 * A missile misses a monster
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	578 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	579 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	580 bounce(const THING weap, const char mname, int noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	581 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	582 if (to_death)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	583 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	584 if (weap->o_type == WEAPON)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	585 addmsg("the %s misses ", weap_info[weap->o_which].oi_name);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	586 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	587 addmsg("you missed ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	588 addmsg(mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	589 if (!noend)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	590 endmsg();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	591 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	592
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	593 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	594 * remove_mon:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	595 * Remove a monster from the screen
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	596 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	597 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	598 remove_mon(const coord mp, THING tp, int waskill)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	599 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	600 THING obj, nexti;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	601
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	602 for (obj = tp->t_pack; obj != NULL; obj = nexti)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	603 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	604 nexti = next(obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	605 obj->o_pos = tp->t_pos;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	606 detach(tp->t_pack, obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	607 if (waskill)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	608 fall(obj, FALSE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	609 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	610 discard(obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	611 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	612 moat(mp->y, mp->x) = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	613 mvaddch(mp->y, mp->x, tp->t_oldch);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	614 detach(mlist, tp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	615 if (on(*tp, ISTARGET))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	616 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	617 kamikaze = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	618 to_death = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	619 if (fight_flush)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	620 flush_type();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	621 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	622 discard(tp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	623 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	624
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	625 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	626 * killed:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	627 * Called to put a monster to death
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	628 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	629 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	630 killed(THING *tp, int pr)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	631 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	632 const char *mname;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	633
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	634 pstats.s_exp += tp->t_stats.s_exp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	635
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	636 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	637 * If the monster was a venus flytrap, un-hold him
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	638 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	639 switch (tp->t_type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	640 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	641 case 'F':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	642 player.t_flags &= ~ISHELD;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	643 vf_hit = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	644 strcpy(monsters['F'-'A'].m_stats.s_dmg, "000x0");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	645 when 'L':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	646 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	647 THING *gold;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	648
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	649 if (fallpos(&tp->t_pos, &tp->t_room->r_gold) && level >= max_level)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	650 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	651 gold = new_item();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	652 gold->o_type = GOLD;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	653 gold->o_goldval = GOLDCALC;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	654 if (save(VS_MAGIC))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	655 gold->o_goldval += GOLDCALC + GOLDCALC
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	656 + GOLDCALC + GOLDCALC;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	657 attach(tp->t_pack, gold);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	658 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	659 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	660 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	661 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	662 * Get rid of the monster.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	663 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	664 mname = set_mname(tp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	665 remove_mon(&tp->t_pos, tp, TRUE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	666 if (pr)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	667 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	668 if (has_hit)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	669 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	670 addmsg(". Defeated ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	671 has_hit = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	672 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	673 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	674 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	675 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	676 addmsg("you have ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	677 addmsg("defeated ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	678 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	679 msg(mname);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	680 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	681 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	682 * Do adjustments if he went up a level
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	683 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	684 check_level();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	685 if (fight_flush)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	686 flush_type();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	687 }

Mercurial > hg > early-roguelike

annotate rogue5/fight.c @ 201:6fb21004a981