src/melee1.c

   1 /*!
   2  * @file melee1.c
   3  * @brief モンスターの打撃処理 / Monster attacks
   4  * @date 2014/01/17
   5  * @author
   6  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\n
   7  * This software may be copied and distributed for educational, research,\n
   8  * and not for profit purposes provided that this copyright and statement\n
   9  * are included in all such copies.  Other copyrights may also apply.\n
  10  * 2014 Deskull rearranged comment for Doxygen.\n
  11  * @details
  12  */
  13
  14 #include "angband.h"
  15 #include "cmd-pet.h"
  16 #include "player-damage.h"
  17 #include "monster-hook.h"
  18
  19
  20
  21  /*!
  22  * @brief プレイヤーからモンスターへの打撃命中判定 /
  23  * Determine if the player "hits" a monster (normal combat).
  24  * @param chance 基本命中値
  25  * @param ac モンスターのAC
  26  * @param vis 目標を視界に捕らえているならばTRUEを指定
  27  * @return 命中と判定された場合TRUEを返す
  28  * @note Always miss 5%, always hit 5%, otherwise random.
  29  */
  30 bool test_hit_norm(int chance, ARMOUR_CLASS ac, int vis)
  31 {
  32         int k;
  33
  34         /* Percentile dice */
  35         k = randint0(100);
  36
  37         /* Hack -- Instant miss or hit */
  38         if (k < 10) return (k < 5);
  39
  40         if (p_ptr->pseikaku == SEIKAKU_NAMAKE)
  41                 if (one_in_(20)) return (FALSE);
  42
  43         /* Wimpy attack never hits */
  44         if (chance <= 0) return (FALSE);
  45
  46         /* Penalize invisible targets */
  47         if (!vis) chance = (chance + 1) / 2;
  48
  49         /* Power must defeat armor */
  50         if (randint0(chance) < (ac * 3 / 4)) return (FALSE);
  51
  52         /* Assume hit */
  53         return (TRUE);
  54 }
  55
  56
  57 /*!
  58 * @brief プレイヤーからモンスターへの打撃クリティカル判定 /
  59 * Critical hits (by player) Factor in weapon weight, total plusses, player melee bonus
  60 * @param weight 矢弾の重量
  61 * @param plus 武器の命中修正
  62 * @param dam 現在算出中のダメージ値
  63 * @param meichuu 打撃の基本命中力
  64 * @param mode オプションフラグ
  65 * @return クリティカル修正が入ったダメージ値
  66 */
  67 HIT_POINT critical_norm(WEIGHT weight, int plus, HIT_POINT dam, s16b meichuu, BIT_FLAGS mode)
  68 {
  69         int i, k;
  70
  71         /* Extract "blow" power */
  72         i = (weight + (meichuu * 3 + plus * 5) + p_ptr->skill_thn);
  73
  74         /* Chance */
  75         if ((randint1((p_ptr->pclass == CLASS_NINJA) ? 4444 : 5000) <= i) || (mode == HISSATSU_MAJIN) || (mode == HISSATSU_3DAN))
  76         {
  77                 k = weight + randint1(650);
  78                 if ((mode == HISSATSU_MAJIN) || (mode == HISSATSU_3DAN)) k += randint1(650);
  79
  80                 if (k < 400)
  81                 {
  82                         msg_print(_("手ごたえがあった！", "It was a good hit!"));
  83
  84                         dam = 2 * dam + 5;
  85                 }
  86                 else if (k < 700)
  87                 {
  88                         msg_print(_("かなりの手ごたえがあった！", "It was a great hit!"));
  89                         dam = 2 * dam + 10;
  90                 }
  91                 else if (k < 900)
  92                 {
  93                         msg_print(_("会心の一撃だ！", "It was a superb hit!"));
  94                         dam = 3 * dam + 15;
  95                 }
  96                 else if (k < 1300)
  97                 {
  98                         msg_print(_("最高の会心の一撃だ！", "It was a *GREAT* hit!"));
  99                         dam = 3 * dam + 20;
 100                 }
 101                 else
 102                 {
 103                         msg_print(_("比類なき最高の会心の一撃だ！", "It was a *SUPERB* hit!"));
 104                         dam = ((7 * dam) / 2) + 25;
 105                 }
 106         }
 107
 108         return (dam);
 109 }
 110
 111 /*!
 112  * @brief モンスター打撃のクリティカルランクを返す /
 113  * Critical blow. All hits that do 95% of total possible damage,
 114  * @param dice モンスター打撃のダイス数
 115  * @param sides モンスター打撃の最大ダイス目
 116  * @param dam プレイヤーに与えたダメージ
 117  * @details
 118  * and which also do at least 20 damage, or, sometimes, N damage.
 119  * This is used only to determine "cuts" and "stuns".
 120  */
 121 static int monster_critical(DICE_NUMBER dice, DICE_SID sides, HIT_POINT dam)
 122 {
 123         int max = 0;
 124         int total = dice * sides;
 125
 126         /* Must do at least 95% of perfect */
 127         if (dam < total * 19 / 20) return (0);
 128
 129         /* Weak blows rarely work */
 130         if ((dam < 20) && (randint0(100) >= dam)) return (0);
 131
 132         /* Perfect damage */
 133         if ((dam >= total) && (dam >= 40)) max++;
 134
 135         /* Super-charge */
 136         if (dam >= 20)
 137         {
 138                 while (randint0(100) < 2) max++;
 139         }
 140
 141         /* Critical damage */
 142         if (dam > 45) return (6 + max);
 143         if (dam > 33) return (5 + max);
 144         if (dam > 25) return (4 + max);
 145         if (dam > 18) return (3 + max);
 146         if (dam > 11) return (2 + max);
 147         return (1 + max);
 148 }
 149
 150 /*!
 151  * @brief モンスター打撃の命中を判定する /
 152  * Determine if a monster attack against the player succeeds.
 153  * @param power 打撃属性毎の基本命中値
 154  * @param level モンスターのレベル
 155  * @param stun モンスターの朦朧値
 156  * @return TRUEならば命中判定
 157  * @details
 158  * Always miss 5% of the time, Always hit 5% of the time.
 159  * Otherwise, match monster power against player armor.
 160  */
 161 static int check_hit(int power, DEPTH level, int stun)
 162 {
 163         int i, k, ac;
 164
 165         /* Percentile dice */
 166         k = randint0(100);
 167
 168         if (stun && one_in_(2)) return FALSE;
 169
 170         /* Hack -- Always miss or hit */
 171         if (k < 10) return (k < 5);
 172
 173         /* Calculate the "attack quality" */
 174         i = (power + (level * 3));
 175
 176         /* Total armor */
 177         ac = p_ptr->ac + p_ptr->to_a;
 178         if (p_ptr->special_attack & ATTACK_SUIKEN) ac += (p_ptr->lev * 2);
 179
 180         /* Power and Level compete against Armor */
 181         if ((i > 0) && (randint1(i) > ((ac * 3) / 4))) return (TRUE);
 182
 183         /* Assume miss */
 184         return (FALSE);
 185 }
 186
 187
 188
 189 /*! モンスターの侮辱行為メッセージテーブル / Hack -- possible "insult" messages */
 190 static cptr desc_insult[] =
 191 {
 192 #ifdef JP
 193         "があなたを侮辱した！",
 194         "があなたの母を侮辱した！",
 195         "があなたを軽蔑した！",
 196         "があなたを辱めた！",
 197         "があなたを汚した！",
 198         "があなたの回りで踊った！",
 199         "が猥褻な身ぶりをした！",
 200         "があなたをぼんやりと見た！！！",
 201         "があなたをパラサイト呼ばわりした！",
 202         "があなたをサイボーグ扱いした！"
 203 #else
 204         "insults you!",
 205         "insults your mother!",
 206         "gives you the finger!",
 207         "humiliates you!",
 208         "defiles you!",
 209         "dances around you!",
 210         "makes obscene gestures!",
 211         "moons you!!!"
 212         "calls you a parasite!",
 213         "calls you a cyborg!"
 214 #endif
 215
 216 };
 217
 218
 219 /*! マゴットのぼやきメッセージテーブル / Hack -- possible "insult" messages */
 220 static cptr desc_moan[] =
 221 {
 222 #ifdef JP
 223         "は何かを悲しんでいるようだ。",
 224         "が彼の飼い犬を見なかったかと尋ねている。",
 225         "が縄張りから出て行けと言っている。",
 226         "はキノコがどうとか呟いている。"
 227 #else
 228         "seems sad about something.",
 229         "asks if you have seen his dogs.",
 230         "tells you to get off his land.",
 231         "mumbles something about mushrooms."
 232 #endif
 233
 234 };
 235
 236
 237 /*!
 238 * @brief 敵オーラによるプレイヤーのダメージ処理（補助）
 239 * @param m_ptr オーラを持つモンスターの構造体参照ポインタ
 240 * @param immune ダメージを回避できる免疫フラグ
 241 * @param flags_offset オーラフラグ配列の参照オフセット
 242 * @param r_flags_offset モンスターの耐性配列の参照オフセット
 243 * @param aura_flag オーラフラグ配列
 244 * @param dam_func ダメージ処理を行う関数の参照ポインタ
 245 * @param message オーラダメージを受けた際のメッセージ
 246 * @return なし
 247 */
 248 static void touch_zap_player_aux(monster_type *m_ptr, bool immune, int flags_offset, int r_flags_offset, u32b aura_flag,
 249         HIT_POINT(*dam_func)(HIT_POINT dam, cptr kb_str, int monspell, bool aura), cptr message)
 250 {
 251         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 252
 253         if ((atoffset(u32b, r_ptr, flags_offset) & aura_flag) && !immune)
 254         {
 255                 char mon_name[80];
 256                 int aura_damage = damroll(1 + (r_ptr->level / 26), 1 + (r_ptr->level / 17));
 257
 258                 /* Hack -- Get the "died from" name */
 259                 monster_desc(mon_name, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
 260
 261                 msg_print(message);
 262
 263                 dam_func(aura_damage, mon_name, -1, TRUE);
 264
 265                 if (is_original_ap_and_seen(m_ptr))
 266                 {
 267                         atoffset(u32b, r_ptr, r_flags_offset) |= aura_flag;
 268                 }
 269
 270                 handle_stuff();
 271         }
 272 }
 273
 274
 275
 276
 277 /*!
 278 * @brief 敵オーラによるプレイヤーのダメージ処理（メイン）
 279 * @param m_ptr オーラを持つモンスターの構造体参照ポインタ
 280 * @return なし
 281 */
 282 static void touch_zap_player(monster_type *m_ptr)
 283 {
 284         touch_zap_player_aux(m_ptr, p_ptr->immune_fire, offsetof(monster_race, flags2), offsetof(monster_race, r_flags2), RF2_AURA_FIRE,
 285                 fire_dam, _("突然とても熱くなった！", "You are suddenly very hot!"));
 286         touch_zap_player_aux(m_ptr, p_ptr->immune_cold, offsetof(monster_race, flags3), offsetof(monster_race, r_flags3), RF3_AURA_COLD,
 287                 cold_dam, _("突然とても寒くなった！", "You are suddenly very cold!"));
 288         touch_zap_player_aux(m_ptr, p_ptr->immune_elec, offsetof(monster_race, flags2), offsetof(monster_race, r_flags2), RF2_AURA_ELEC,
 289                 elec_dam, _("電撃をくらった！", "You get zapped!"));
 290 }
 291
 292 /*!
 293 * @brief プレイヤーの変異要素による打撃処理
 294 * @param m_idx 攻撃目標となったモンスターの参照ID
 295 * @param attack 変異要素による攻撃要素の種類
 296 * @param fear 攻撃を受けたモンスターが恐慌状態に陥ったかを返す参照ポインタ
 297 * @param mdeath 攻撃を受けたモンスターが死亡したかを返す参照ポインタ
 298 * @return なし
 299 */
 300 static void natural_attack(s16b m_idx, int attack, bool *fear, bool *mdeath)
 301 {
 302         HIT_POINT k;
 303         int bonus, chance;
 304         int             n_weight = 0;
 305         monster_type    *m_ptr = &m_list[m_idx];
 306         monster_race    *r_ptr = &r_info[m_ptr->r_idx];
 307         char            m_name[80];
 308
 309         int             dice_num, dice_side;
 310
 311         cptr            atk_desc;
 312
 313         switch (attack)
 314         {
 315         case MUT2_SCOR_TAIL:
 316                 dice_num = 3;
 317                 dice_side = 7;
 318                 n_weight = 5;
 319                 atk_desc = _("尻尾", "tail");
 320
 321                 break;
 322         case MUT2_HORNS:
 323                 dice_num = 2;
 324                 dice_side = 6;
 325                 n_weight = 15;
 326                 atk_desc = _("角", "horns");
 327
 328                 break;
 329         case MUT2_BEAK:
 330                 dice_num = 2;
 331                 dice_side = 4;
 332                 n_weight = 5;
 333                 atk_desc = _("クチバシ", "beak");
 334
 335                 break;
 336         case MUT2_TRUNK:
 337                 dice_num = 1;
 338                 dice_side = 4;
 339                 n_weight = 35;
 340                 atk_desc = _("象の鼻", "trunk");
 341
 342                 break;
 343         case MUT2_TENTACLES:
 344                 dice_num = 2;
 345                 dice_side = 5;
 346                 n_weight = 5;
 347                 atk_desc = _("触手", "tentacles");
 348
 349                 break;
 350         default:
 351                 dice_num = dice_side = n_weight = 1;
 352                 atk_desc = _("未定義の部位", "undefined body part");
 353
 354         }
 355
 356         /* Extract monster name (or "it") */
 357         monster_desc(m_name, m_ptr, 0);
 358
 359
 360         /* Calculate the "attack quality" */
 361         bonus = p_ptr->to_h_m;
 362         bonus += (p_ptr->lev * 6 / 5);
 363         chance = (p_ptr->skill_thn + (bonus * BTH_PLUS_ADJ));
 364
 365         /* Test for hit */
 366         if ((!(r_ptr->flags2 & RF2_QUANTUM) || !randint0(2)) && test_hit_norm(chance, r_ptr->ac, m_ptr->ml))
 367         {
 368                 sound(SOUND_HIT);
 369                 msg_format(_("%sを%sで攻撃した。", "You hit %s with your %s."), m_name, atk_desc);
 370
 371                 k = damroll(dice_num, dice_side);
 372                 k = critical_norm(n_weight, bonus, k, (s16b)bonus, 0);
 373
 374                 /* Apply the player damage bonuses */
 375                 k += p_ptr->to_d_m;
 376
 377                 /* No negative damage */
 378                 if (k < 0) k = 0;
 379
 380                 /* Modify the damage */
 381                 k = mon_damage_mod(m_ptr, k, FALSE);
 382
 383                 /* Complex message */
 384                 msg_format_wizard(CHEAT_MONSTER,
 385                         _("%dのダメージを与えた。(残りHP %d/%d(%d))", "You do %d damage. (left HP %d/%d(%d))"),
 386                         k, m_ptr->hp - k, m_ptr->maxhp, m_ptr->max_maxhp);
 387
 388                 /* Anger the monster */
 389                 if (k > 0) anger_monster(m_ptr);
 390
 391                 /* Damage, check for fear and mdeath */
 392                 switch (attack)
 393                 {
 394                 case MUT2_SCOR_TAIL:
 395                         project(0, 0, m_ptr->fy, m_ptr->fx, k, GF_POIS, PROJECT_KILL, -1);
 396                         *mdeath = (m_ptr->r_idx == 0);
 397                         break;
 398                 case MUT2_HORNS:
 399                         *mdeath = mon_take_hit(m_idx, k, fear, NULL);
 400                         break;
 401                 case MUT2_BEAK:
 402                         *mdeath = mon_take_hit(m_idx, k, fear, NULL);
 403                         break;
 404                 case MUT2_TRUNK:
 405                         *mdeath = mon_take_hit(m_idx, k, fear, NULL);
 406                         break;
 407                 case MUT2_TENTACLES:
 408                         *mdeath = mon_take_hit(m_idx, k, fear, NULL);
 409                         break;
 410                 default:
 411                         *mdeath = mon_take_hit(m_idx, k, fear, NULL);
 412                 }
 413
 414                 touch_zap_player(m_ptr);
 415         }
 416         /* Player misses */
 417         else
 418         {
 419                 sound(SOUND_MISS);
 420                 msg_format(_("ミス！ %sにかわされた。", "You miss %s."), m_name);
 421         }
 422 }
 423
 424 /*!
 425 * @brief プレイヤーの打撃処理サブルーチン /
 426 * Player attacks a (poor, defenseless) creature        -RAK-
 427 * @param y 攻撃目標のY座標
 428 * @param x 攻撃目標のX座標
 429 * @param fear 攻撃を受けたモンスターが恐慌状態に陥ったかを返す参照ポインタ
 430 * @param mdeath 攻撃を受けたモンスターが死亡したかを返す参照ポインタ
 431 * @param hand 攻撃を行うための武器を持つ手
 432 * @param mode 発動中の剣術ID
 433 * @return なし
 434 * @details
 435 * If no "weapon" is available, then "punch" the monster one time.
 436 */
 437 static void py_attack_aux(POSITION y, POSITION x, bool *fear, bool *mdeath, s16b hand, BIT_FLAGS mode)
 438 {
 439         int num = 0, bonus, chance, vir;
 440         HIT_POINT k;
 441
 442         cave_type       *c_ptr = &cave[y][x];
 443
 444         monster_type    *m_ptr = &m_list[c_ptr->m_idx];
 445         monster_race    *r_ptr = &r_info[m_ptr->r_idx];
 446
 447         /* Access the weapon */
 448         object_type     *o_ptr = &inventory[INVEN_RARM + hand];
 449
 450         char            m_name[80];
 451
 452         bool            success_hit = FALSE;
 453         bool            backstab = FALSE;
 454         bool            vorpal_cut = FALSE;
 455         int             chaos_effect = 0;
 456         bool            stab_fleeing = FALSE;
 457         bool            fuiuchi = FALSE;
 458         bool            monk_attack = FALSE;
 459         bool            do_quake = FALSE;
 460         bool            weak = FALSE;
 461         bool            drain_msg = TRUE;
 462         int             drain_result = 0, drain_heal = 0;
 463         bool            can_drain = FALSE;
 464         int             num_blow;
 465         int             drain_left = MAX_VAMPIRIC_DRAIN;
 466         BIT_FLAGS flgs[TR_FLAG_SIZE]; /* A massive hack -- life-draining weapons */
 467         bool            is_human = (r_ptr->d_char == 'p');
 468         bool            is_lowlevel = (r_ptr->level < (p_ptr->lev - 15));
 469         bool            zantetsu_mukou, e_j_mukou;
 470
 471         switch (p_ptr->pclass)
 472         {
 473         case CLASS_ROGUE:
 474         case CLASS_NINJA:
 475                 if (buki_motteruka(INVEN_RARM + hand) && !p_ptr->icky_wield[hand])
 476                 {
 477                         int tmp = p_ptr->lev * 6 + (p_ptr->skill_stl + 10) * 4;
 478                         if (p_ptr->monlite && (mode != HISSATSU_NYUSIN)) tmp /= 3;
 479                         if (p_ptr->cursed & TRC_AGGRAVATE) tmp /= 2;
 480                         if (r_ptr->level > (p_ptr->lev * p_ptr->lev / 20 + 10)) tmp /= 3;
 481                         if (MON_CSLEEP(m_ptr) && m_ptr->ml)
 482                         {
 483                                 /* Can't backstab creatures that we can't see, right? */
 484                                 backstab = TRUE;
 485                         }
 486                         else if ((p_ptr->special_defense & NINJA_S_STEALTH) && (randint0(tmp) > (r_ptr->level + 20)) && m_ptr->ml && !(r_ptr->flagsr & RFR_RES_ALL))
 487                         {
 488                                 fuiuchi = TRUE;
 489                         }
 490                         else if (MON_MONFEAR(m_ptr) && m_ptr->ml)
 491                         {
 492                                 stab_fleeing = TRUE;
 493                         }
 494                 }
 495                 break;
 496
 497         case CLASS_MONK:
 498         case CLASS_FORCETRAINER:
 499         case CLASS_BERSERKER:
 500                 if ((empty_hands(TRUE) & EMPTY_HAND_RARM) && !p_ptr->riding) monk_attack = TRUE;
 501                 break;
 502         }
 503
 504         if (!o_ptr->k_idx) /* Empty hand */
 505         {
 506                 if ((r_ptr->level + 10) > p_ptr->lev)
 507                 {
 508                         if (p_ptr->skill_exp[GINOU_SUDE] < s_info[p_ptr->pclass].s_max[GINOU_SUDE])
 509                         {
 510                                 if (p_ptr->skill_exp[GINOU_SUDE] < WEAPON_EXP_BEGINNER)
 511                                         p_ptr->skill_exp[GINOU_SUDE] += 40;
 512                                 else if ((p_ptr->skill_exp[GINOU_SUDE] < WEAPON_EXP_SKILLED))
 513                                         p_ptr->skill_exp[GINOU_SUDE] += 5;
 514                                 else if ((p_ptr->skill_exp[GINOU_SUDE] < WEAPON_EXP_EXPERT) && (p_ptr->lev > 19))
 515                                         p_ptr->skill_exp[GINOU_SUDE] += 1;
 516                                 else if ((p_ptr->lev > 34))
 517                                         if (one_in_(3)) p_ptr->skill_exp[GINOU_SUDE] += 1;
 518                                 p_ptr->update |= (PU_BONUS);
 519                         }
 520                 }
 521         }
 522         else if (object_is_melee_weapon(o_ptr))
 523         {
 524                 if ((r_ptr->level + 10) > p_ptr->lev)
 525                 {
 526                         OBJECT_TYPE_VALUE tval = inventory[INVEN_RARM + hand].tval - TV_WEAPON_BEGIN;
 527                         OBJECT_SUBTYPE_VALUE sval = inventory[INVEN_RARM + hand].sval;
 528                         int now_exp = p_ptr->weapon_exp[tval][sval];
 529                         if (now_exp < s_info[p_ptr->pclass].w_max[tval][sval])
 530                         {
 531                                 SUB_EXP amount = 0;
 532                                 if (now_exp < WEAPON_EXP_BEGINNER) amount = 80;
 533                                 else if (now_exp < WEAPON_EXP_SKILLED) amount = 10;
 534                                 else if ((now_exp < WEAPON_EXP_EXPERT) && (p_ptr->lev > 19)) amount = 1;
 535                                 else if ((p_ptr->lev > 34) && one_in_(2)) amount = 1;
 536                                 p_ptr->weapon_exp[tval][sval] += amount;
 537                                 p_ptr->update |= (PU_BONUS);
 538                         }
 539                 }
 540         }
 541
 542         /* Disturb the monster */
 543         (void)set_monster_csleep(c_ptr->m_idx, 0);
 544
 545         /* Extract monster name (or "it") */
 546         monster_desc(m_name, m_ptr, 0);
 547
 548         /* Calculate the "attack quality" */
 549         bonus = p_ptr->to_h[hand] + o_ptr->to_h;
 550         chance = (p_ptr->skill_thn + (bonus * BTH_PLUS_ADJ));
 551         if (mode == HISSATSU_IAI) chance += 60;
 552         if (p_ptr->special_defense & KATA_KOUKIJIN) chance += 150;
 553
 554         if (p_ptr->sutemi) chance = MAX(chance * 3 / 2, chance + 60);
 555
 556         vir = virtue_number(V_VALOUR);
 557         if (vir)
 558         {
 559                 chance += (p_ptr->virtues[vir - 1] / 10);
 560         }
 561
 562         zantetsu_mukou = ((o_ptr->name1 == ART_ZANTETSU) && (r_ptr->d_char == 'j'));
 563         e_j_mukou = ((o_ptr->name1 == ART_EXCALIBUR_J) && (r_ptr->d_char == 'S'));
 564
 565         if ((mode == HISSATSU_KYUSHO) || (mode == HISSATSU_MINEUCHI) || (mode == HISSATSU_3DAN) || (mode == HISSATSU_IAI)) num_blow = 1;
 566         else if (mode == HISSATSU_COLD) num_blow = p_ptr->num_blow[hand] + 2;
 567         else num_blow = p_ptr->num_blow[hand];
 568
 569         /* Hack -- DOKUBARI always hit once */
 570         if ((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_DOKUBARI)) num_blow = 1;
 571
 572         /* Attack once for each legal blow */
 573         while ((num++ < num_blow) && !p_ptr->is_dead)
 574         {
 575                 if (((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_DOKUBARI)) || (mode == HISSATSU_KYUSHO))
 576                 {
 577                         int n = 1;
 578
 579                         if (p_ptr->migite && p_ptr->hidarite)
 580                         {
 581                                 n *= 2;
 582                         }
 583                         if (mode == HISSATSU_3DAN)
 584                         {
 585                                 n *= 2;
 586                         }
 587
 588                         success_hit = one_in_(n);
 589                 }
 590                 else if ((p_ptr->pclass == CLASS_NINJA) && ((backstab || fuiuchi) && !(r_ptr->flagsr & RFR_RES_ALL))) success_hit = TRUE;
 591                 else success_hit = test_hit_norm(chance, r_ptr->ac, m_ptr->ml);
 592
 593                 if (mode == HISSATSU_MAJIN)
 594                 {
 595                         if (one_in_(2))
 596                                 success_hit = FALSE;
 597                 }
 598
 599                 /* Test for hit */
 600                 if (success_hit)
 601                 {
 602                         int vorpal_chance = ((o_ptr->name1 == ART_VORPAL_BLADE) || (o_ptr->name1 == ART_CHAINSWORD)) ? 2 : 4;
 603
 604                         sound(SOUND_HIT);
 605
 606                         if (backstab) msg_format(_("あなたは冷酷にも眠っている無力な%sを突き刺した！", "You cruelly stab the helpless, sleeping %s!"), m_name);
 607                         else if (fuiuchi) msg_format(_("不意を突いて%sに強烈な一撃を喰らわせた！", "You make surprise attack, and hit %s with a powerful blow!"), m_name);
 608                         else if (stab_fleeing) msg_format(_("逃げる%sを背中から突き刺した！", "You backstab the fleeing %s!"), m_name);
 609                         else if (!monk_attack) msg_format(_("%sを攻撃した。", "You hit %s."), m_name);
 610
 611                         /* Hack -- bare hands do one damage */
 612                         k = 1;
 613
 614                         object_flags(o_ptr, flgs);
 615
 616                         /* Select a chaotic effect (50% chance) */
 617                         if ((have_flag(flgs, TR_CHAOTIC)) && one_in_(2))
 618                         {
 619                                 if (one_in_(10))
 620                                         chg_virtue(V_CHANCE, 1);
 621
 622                                 if (randint1(5) < 3)
 623                                 {
 624                                         /* Vampiric (20%) */
 625                                         chaos_effect = 1;
 626                                 }
 627                                 else if (one_in_(250))
 628                                 {
 629                                         /* Quake (0.12%) */
 630                                         chaos_effect = 2;
 631                                 }
 632                                 else if (!one_in_(10))
 633                                 {
 634                                         /* Confusion (26.892%) */
 635                                         chaos_effect = 3;
 636                                 }
 637                                 else if (one_in_(2))
 638                                 {
 639                                         /* Teleport away (1.494%) */
 640                                         chaos_effect = 4;
 641                                 }
 642                                 else
 643                                 {
 644                                         /* Polymorph (1.494%) */
 645                                         chaos_effect = 5;
 646                                 }
 647                         }
 648
 649                         /* Vampiric drain */
 650                         if ((have_flag(flgs, TR_VAMPIRIC)) || (chaos_effect == 1) || (mode == HISSATSU_DRAIN) || hex_spelling(HEX_VAMP_BLADE))
 651                         {
 652                                 /* Only drain "living" monsters */
 653                                 if (monster_living(m_ptr->r_idx))
 654                                         can_drain = TRUE;
 655                                 else
 656                                         can_drain = FALSE;
 657                         }
 658
 659                         if ((have_flag(flgs, TR_VORPAL) || hex_spelling(HEX_RUNESWORD)) && (randint1(vorpal_chance * 3 / 2) == 1) && !zantetsu_mukou)
 660                                 vorpal_cut = TRUE;
 661                         else vorpal_cut = FALSE;
 662
 663                         if (monk_attack)
 664                         {
 665                                 int special_effect = 0, stun_effect = 0, times = 0, max_times;
 666                                 int min_level = 1;
 667                                 const martial_arts *ma_ptr = &ma_blows[0], *old_ptr = &ma_blows[0];
 668                                 int resist_stun = 0;
 669                                 WEIGHT weight = 8;
 670
 671                                 if (r_ptr->flags1 & RF1_UNIQUE) resist_stun += 88;
 672                                 if (r_ptr->flags3 & RF3_NO_STUN) resist_stun += 66;
 673                                 if (r_ptr->flags3 & RF3_NO_CONF) resist_stun += 33;
 674                                 if (r_ptr->flags3 & RF3_NO_SLEEP) resist_stun += 33;
 675                                 if ((r_ptr->flags3 & RF3_UNDEAD) || (r_ptr->flags3 & RF3_NONLIVING))
 676                                         resist_stun += 66;
 677
 678                                 if (p_ptr->special_defense & KAMAE_BYAKKO)
 679                                         max_times = (p_ptr->lev < 3 ? 1 : p_ptr->lev / 3);
 680                                 else if (p_ptr->special_defense & KAMAE_SUZAKU)
 681                                         max_times = 1;
 682                                 else if (p_ptr->special_defense & KAMAE_GENBU)
 683                                         max_times = 1;
 684                                 else
 685                                         max_times = (p_ptr->lev < 7 ? 1 : p_ptr->lev / 7);
 686                                 /* Attempt 'times' */
 687                                 for (times = 0; times < max_times; times++)
 688                                 {
 689                                         do
 690                                         {
 691                                                 ma_ptr = &ma_blows[randint0(MAX_MA)];
 692                                                 if ((p_ptr->pclass == CLASS_FORCETRAINER) && (ma_ptr->min_level > 1)) min_level = ma_ptr->min_level + 3;
 693                                                 else min_level = ma_ptr->min_level;
 694                                         } while ((min_level > p_ptr->lev) ||
 695                                                 (randint1(p_ptr->lev) < ma_ptr->chance));
 696
 697                                         /* keep the highest level attack available we found */
 698                                         if ((ma_ptr->min_level > old_ptr->min_level) &&
 699                                                 !p_ptr->stun && !p_ptr->confused)
 700                                         {
 701                                                 old_ptr = ma_ptr;
 702
 703                                                 if (p_ptr->wizard && cheat_xtra)
 704                                                 {
 705                                                         msg_print(_("攻撃を再選択しました。", "Attack re-selected."));
 706                                                 }
 707                                         }
 708                                         else
 709                                         {
 710                                                 ma_ptr = old_ptr;
 711                                         }
 712                                 }
 713
 714                                 if (p_ptr->pclass == CLASS_FORCETRAINER) min_level = MAX(1, ma_ptr->min_level - 3);
 715                                 else min_level = ma_ptr->min_level;
 716                                 k = damroll(ma_ptr->dd + p_ptr->to_dd[hand], ma_ptr->ds + p_ptr->to_ds[hand]);
 717                                 if (p_ptr->special_attack & ATTACK_SUIKEN) k *= 2;
 718
 719                                 if (ma_ptr->effect == MA_KNEE)
 720                                 {
 721                                         if (r_ptr->flags1 & RF1_MALE)
 722                                         {
 723                                                 msg_format(_("%sに金的膝蹴りをくらわした！", "You hit %s in the groin with your knee!"), m_name);
 724                                                 sound(SOUND_PAIN);
 725                                                 special_effect = MA_KNEE;
 726                                         }
 727                                         else
 728                                                 msg_format(ma_ptr->desc, m_name);
 729                                 }
 730
 731                                 else if (ma_ptr->effect == MA_SLOW)
 732                                 {
 733                                         if (!((r_ptr->flags1 & RF1_NEVER_MOVE) ||
 734                                                 my_strchr("~#{}.UjmeEv$,DdsbBFIJQSXclnw!=?", r_ptr->d_char)))
 735                                         {
 736                                                 msg_format(_("%sの足首に関節蹴りをくらわした！", "You kick %s in the ankle."), m_name);
 737                                                 special_effect = MA_SLOW;
 738                                         }
 739                                         else msg_format(ma_ptr->desc, m_name);
 740                                 }
 741                                 else
 742                                 {
 743                                         if (ma_ptr->effect)
 744                                         {
 745                                                 stun_effect = (ma_ptr->effect / 2) + randint1(ma_ptr->effect / 2);
 746                                         }
 747
 748                                         msg_format(ma_ptr->desc, m_name);
 749                                 }
 750
 751                                 if (p_ptr->special_defense & KAMAE_SUZAKU) weight = 4;
 752                                 if ((p_ptr->pclass == CLASS_FORCETRAINER) && P_PTR_KI)
 753                                 {
 754                                         weight += (P_PTR_KI / 30);
 755                                         if (weight > 20) weight = 20;
 756                                 }
 757
 758                                 k = critical_norm(p_ptr->lev * weight, min_level, k, p_ptr->to_h[0], 0);
 759
 760                                 if ((special_effect == MA_KNEE) && ((k + p_ptr->to_d[hand]) < m_ptr->hp))
 761                                 {
 762                                         msg_format(_("%^sは苦痛にうめいている！", "%^s moans in agony!"), m_name);
 763                                         stun_effect = 7 + randint1(13);
 764                                         resist_stun /= 3;
 765                                 }
 766
 767                                 else if ((special_effect == MA_SLOW) && ((k + p_ptr->to_d[hand]) < m_ptr->hp))
 768                                 {
 769                                         if (!(r_ptr->flags1 & RF1_UNIQUE) &&
 770                                                 (randint1(p_ptr->lev) > r_ptr->level) &&
 771                                                 m_ptr->mspeed > 60)
 772                                         {
 773                                                 msg_format(_("%^sは足をひきずり始めた。", "%^s starts limping slower."), m_name);
 774                                                 m_ptr->mspeed -= 10;
 775                                         }
 776                                 }
 777
 778                                 if (stun_effect && ((k + p_ptr->to_d[hand]) < m_ptr->hp))
 779                                 {
 780                                         if (p_ptr->lev > randint1(r_ptr->level + resist_stun + 10))
 781                                         {
 782                                                 if (set_monster_stunned(c_ptr->m_idx, stun_effect + MON_STUNNED(m_ptr)))
 783                                                 {
 784                                                         msg_format(_("%^sはフラフラになった。", "%^s is stunned."), m_name);
 785                                                 }
 786                                                 else
 787                                                 {
 788                                                         msg_format(_("%^sはさらにフラフラになった。", "%^s is more stunned."), m_name);
 789                                                 }
 790                                         }
 791                                 }
 792                         }
 793
 794                         /* Handle normal weapon */
 795                         else if (o_ptr->k_idx)
 796                         {
 797                                 k = damroll(o_ptr->dd + p_ptr->to_dd[hand], o_ptr->ds + p_ptr->to_ds[hand]);
 798                                 k = tot_dam_aux(o_ptr, k, m_ptr, mode, FALSE);
 799
 800                                 if (backstab)
 801                                 {
 802                                         k *= (3 + (p_ptr->lev / 20));
 803                                 }
 804                                 else if (fuiuchi)
 805                                 {
 806                                         k = k*(5 + (p_ptr->lev * 2 / 25)) / 2;
 807                                 }
 808                                 else if (stab_fleeing)
 809                                 {
 810                                         k = (3 * k) / 2;
 811                                 }
 812
 813                                 if ((p_ptr->impact[hand] && ((k > 50) || one_in_(7))) ||
 814                                         (chaos_effect == 2) || (mode == HISSATSU_QUAKE))
 815                                 {
 816                                         do_quake = TRUE;
 817                                 }
 818
 819                                 if ((!(o_ptr->tval == TV_SWORD) || !(o_ptr->sval == SV_DOKUBARI)) && !(mode == HISSATSU_KYUSHO))
 820                                         k = critical_norm(o_ptr->weight, o_ptr->to_h, k, p_ptr->to_h[hand], mode);
 821
 822                                 drain_result = k;
 823
 824                                 if (vorpal_cut)
 825                                 {
 826                                         int mult = 2;
 827
 828                                         if ((o_ptr->name1 == ART_CHAINSWORD) && !one_in_(2))
 829                                         {
 830                                                 char chainsword_noise[1024];
 831                                                 if (!get_rnd_line(_("chainswd_j.txt", "chainswd.txt"), 0, chainsword_noise))
 832                                                 {
 833                                                         msg_print(chainsword_noise);
 834                                                 }
 835                                         }
 836
 837                                         if (o_ptr->name1 == ART_VORPAL_BLADE)
 838                                         {
 839                                                 msg_print(_("目にも止まらぬヴォーパルブレード、手錬の早業！", "Your Vorpal Blade goes snicker-snack!"));
 840                                         }
 841                                         else
 842                                         {
 843                                                 msg_format(_("%sをグッサリ切り裂いた！", "Your weapon cuts deep into %s!"), m_name);
 844                                         }
 845
 846                                         /* Try to increase the damage */
 847                                         while (one_in_(vorpal_chance))
 848                                         {
 849                                                 mult++;
 850                                         }
 851
 852                                         k *= (HIT_POINT)mult;
 853
 854                                         /* Ouch! */
 855                                         if (((r_ptr->flagsr & RFR_RES_ALL) ? k / 100 : k) > m_ptr->hp)
 856                                         {
 857                                                 msg_format(_("%sを真っ二つにした！", "You cut %s in half!"), m_name);
 858                                         }
 859                                         else
 860                                         {
 861                                                 switch (mult)
 862                                                 {
 863                                                 case 2: msg_format(_("%sを斬った！", "You gouge %s!"), m_name); break;
 864                                                 case 3: msg_format(_("%sをぶった斬った！", "You maim %s!"), m_name); break;
 865                                                 case 4: msg_format(_("%sをメッタ斬りにした！", "You carve %s!"), m_name); break;
 866                                                 case 5: msg_format(_("%sをメッタメタに斬った！", "You cleave %s!"), m_name); break;
 867                                                 case 6: msg_format(_("%sを刺身にした！", "You smite %s!"), m_name); break;
 868                                                 case 7: msg_format(_("%sを斬って斬って斬りまくった！", "You eviscerate %s!"), m_name); break;
 869                                                 default: msg_format(_("%sを細切れにした！", "You shred %s!"), m_name); break;
 870                                                 }
 871                                         }
 872                                         drain_result = drain_result * 3 / 2;
 873                                 }
 874
 875                                 k += o_ptr->to_d;
 876                                 drain_result += o_ptr->to_d;
 877                         }
 878
 879                         /* Apply the player damage bonuses */
 880                         k += p_ptr->to_d[hand];
 881                         drain_result += p_ptr->to_d[hand];
 882
 883                         if ((mode == HISSATSU_SUTEMI) || (mode == HISSATSU_3DAN)) k *= 2;
 884                         if ((mode == HISSATSU_SEKIRYUKA) && !monster_living(m_ptr->r_idx)) k = 0;
 885                         if ((mode == HISSATSU_SEKIRYUKA) && !p_ptr->cut) k /= 2;
 886
 887                         /* No negative damage */
 888                         if (k < 0) k = 0;
 889
 890                         if ((mode == HISSATSU_ZANMA) && !(!monster_living(m_ptr->r_idx) && (r_ptr->flags3 & RF3_EVIL)))
 891                         {
 892                                 k = 0;
 893                         }
 894
 895                         if (zantetsu_mukou)
 896                         {
 897                                 msg_print(_("こんな軟らかいものは切れん！", "You cannot cut such a elastic thing!"));
 898                                 k = 0;
 899                         }
 900
 901                         if (e_j_mukou)
 902                         {
 903                                 msg_print(_("蜘蛛は苦手だ！", "Spiders are difficult for you to deal with!"));
 904                                 k /= 2;
 905                         }
 906
 907                         if (mode == HISSATSU_MINEUCHI)
 908                         {
 909                                 int tmp = (10 + randint1(15) + p_ptr->lev / 5);
 910
 911                                 k = 0;
 912                                 anger_monster(m_ptr);
 913
 914                                 if (!(r_ptr->flags3 & (RF3_NO_STUN)))
 915                                 {
 916                                         /* Get stunned */
 917                                         if (MON_STUNNED(m_ptr))
 918                                         {
 919                                                 msg_format(_("%sはひどくもうろうとした。", "%s is more dazed."), m_name);
 920                                                 tmp /= 2;
 921                                         }
 922                                         else
 923                                         {
 924                                                 msg_format(_("%s はもうろうとした。", "%s is dazed."), m_name);
 925                                         }
 926
 927                                         /* Apply stun */
 928                                         (void)set_monster_stunned(c_ptr->m_idx, MON_STUNNED(m_ptr) + tmp);
 929                                 }
 930                                 else
 931                                 {
 932                                         msg_format(_("%s には効果がなかった。", "%s is not effected."), m_name);
 933                                 }
 934                         }
 935
 936                         /* Modify the damage */
 937                         k = mon_damage_mod(m_ptr, k, (bool)(((o_ptr->tval == TV_POLEARM) && (o_ptr->sval == SV_DEATH_SCYTHE)) || ((p_ptr->pclass == CLASS_BERSERKER) && one_in_(2))));
 938                         if (((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_DOKUBARI)) || (mode == HISSATSU_KYUSHO))
 939                         {
 940                                 if ((randint1(randint1(r_ptr->level / 7) + 5) == 1) && !(r_ptr->flags1 & RF1_UNIQUE) && !(r_ptr->flags7 & RF7_UNIQUE2))
 941                                 {
 942                                         k = m_ptr->hp + 1;
 943                                         msg_format(_("%sの急所を突き刺した！", "You hit %s on a fatal spot!"), m_name);
 944                                 }
 945                                 else k = 1;
 946                         }
 947                         else if ((p_ptr->pclass == CLASS_NINJA) && buki_motteruka(INVEN_RARM + hand) && !p_ptr->icky_wield[hand] && ((p_ptr->cur_lite <= 0) || one_in_(7)))
 948                         {
 949                                 int maxhp = maxroll(r_ptr->hdice, r_ptr->hside);
 950                                 if (one_in_(backstab ? 13 : (stab_fleeing || fuiuchi) ? 15 : 27))
 951                                 {
 952                                         k *= 5;
 953                                         drain_result *= 2;
 954                                         msg_format(_("刃が%sに深々と突き刺さった！", "You critically injured %s!"), m_name);
 955                                 }
 956                                 else if (((m_ptr->hp < maxhp / 2) && one_in_((p_ptr->num_blow[0] + p_ptr->num_blow[1] + 1) * 10)) || ((one_in_(666) || ((backstab || fuiuchi) && one_in_(11))) && !(r_ptr->flags1 & RF1_UNIQUE) && !(r_ptr->flags7 & RF7_UNIQUE2)))
 957                                 {
 958                                         if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE2) || (m_ptr->hp >= maxhp / 2))
 959                                         {
 960                                                 k = MAX(k * 5, m_ptr->hp / 2);
 961                                                 drain_result *= 2;
 962                                                 msg_format(_("%sに致命傷を負わせた！", "You fatally injured %s!"), m_name);
 963                                         }
 964                                         else
 965                                         {
 966                                                 k = m_ptr->hp + 1;
 967                                                 msg_format(_("刃が%sの急所を貫いた！", "You hit %s on a fatal spot!"), m_name);
 968                                         }
 969                                 }
 970                         }
 971
 972                         msg_format_wizard(CHEAT_MONSTER,
 973                                 _("%dのダメージを与えた。(残りHP %d/%d(%d))", "You do %d damage. (left HP %d/%d(%d))"), k,
 974                                 m_ptr->hp - k, m_ptr->maxhp, m_ptr->max_maxhp);
 975
 976                         if (k <= 0) can_drain = FALSE;
 977
 978                         if (drain_result > m_ptr->hp)
 979                                 drain_result = m_ptr->hp;
 980
 981                         /* Damage, check for fear and death */
 982                         if (mon_take_hit(c_ptr->m_idx, k, fear, NULL))
 983                         {
 984                                 *mdeath = TRUE;
 985                                 if ((p_ptr->pclass == CLASS_BERSERKER) && p_ptr->energy_use)
 986                                 {
 987                                         if (p_ptr->migite && p_ptr->hidarite)
 988                                         {
 989                                                 if (hand) p_ptr->energy_use = p_ptr->energy_use * 3 / 5 + p_ptr->energy_use*num * 2 / (p_ptr->num_blow[hand] * 5);
 990                                                 else p_ptr->energy_use = p_ptr->energy_use*num * 3 / (p_ptr->num_blow[hand] * 5);
 991                                         }
 992                                         else
 993                                         {
 994                                                 p_ptr->energy_use = p_ptr->energy_use*num / p_ptr->num_blow[hand];
 995                                         }
 996                                 }
 997                                 if ((o_ptr->name1 == ART_ZANTETSU) && is_lowlevel)
 998                                         msg_print(_("またつまらぬものを斬ってしまった．．．", "Sigh... Another trifling thing I've cut...."));
 999                                 break;
1000                         }
1001
1002                         /* Anger the monster */
1003                         if (k > 0) anger_monster(m_ptr);
1004
1005                         touch_zap_player(m_ptr);
1006
1007                         /* Are we draining it?  A little note: If the monster is
1008                         dead, the drain does not work... */
1009
1010                         if (can_drain && (drain_result > 0))
1011                         {
1012                                 if (o_ptr->name1 == ART_MURAMASA)
1013                                 {
1014                                         if (is_human)
1015                                         {
1016                                                 HIT_PROB to_h = o_ptr->to_h;
1017                                                 HIT_POINT to_d = o_ptr->to_d;
1018                                                 int i, flag;
1019
1020                                                 flag = 1;
1021                                                 for (i = 0; i < to_h + 3; i++) if (one_in_(4)) flag = 0;
1022                                                 if (flag) to_h++;
1023
1024                                                 flag = 1;
1025                                                 for (i = 0; i < to_d + 3; i++) if (one_in_(4)) flag = 0;
1026                                                 if (flag) to_d++;
1027
1028                                                 if (o_ptr->to_h != to_h || o_ptr->to_d != to_d)
1029                                                 {
1030                                                         msg_print(_("妖刀は血を吸って強くなった！", "Muramasa sucked blood, and became more powerful!"));
1031                                                         o_ptr->to_h = to_h;
1032                                                         o_ptr->to_d = to_d;
1033                                                 }
1034                                         }
1035                                 }
1036                                 else
1037                                 {
1038                                         if (drain_result > 5) /* Did we really hurt it? */
1039                                         {
1040                                                 drain_heal = damroll(2, drain_result / 6);
1041
1042                                                 /* Hex */
1043                                                 if (hex_spelling(HEX_VAMP_BLADE)) drain_heal *= 2;
1044
1045                                                 if (cheat_xtra)
1046                                                 {
1047                                                         msg_format(_("Draining left: %d", "Draining left: %d"), drain_left);
1048                                                 }
1049
1050                                                 if (drain_left)
1051                                                 {
1052                                                         if (drain_heal < drain_left)
1053                                                         {
1054                                                                 drain_left -= drain_heal;
1055                                                         }
1056                                                         else
1057                                                         {
1058                                                                 drain_heal = drain_left;
1059                                                                 drain_left = 0;
1060                                                         }
1061
1062                                                         if (drain_msg)
1063                                                         {
1064                                                                 msg_format(_("刃が%sから生命力を吸い取った！", "Your weapon drains life from %s!"), m_name);
1065                                                                 drain_msg = FALSE;
1066                                                         }
1067
1068                                                         drain_heal = (drain_heal * mutant_regenerate_mod) / 100;
1069
1070                                                         hp_player(drain_heal);
1071                                                         /* We get to keep some of it! */
1072                                                 }
1073                                         }
1074                                 }
1075                                 m_ptr->maxhp -= (k + 7) / 8;
1076                                 if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
1077                                 if (m_ptr->maxhp < 1) m_ptr->maxhp = 1;
1078                                 weak = TRUE;
1079                         }
1080                         can_drain = FALSE;
1081                         drain_result = 0;
1082
1083                         /* Confusion attack */
1084                         if ((p_ptr->special_attack & ATTACK_CONFUSE) || (chaos_effect == 3) || (mode == HISSATSU_CONF) || hex_spelling(HEX_CONFUSION))
1085                         {
1086                                 /* Cancel glowing hands */
1087                                 if (p_ptr->special_attack & ATTACK_CONFUSE)
1088                                 {
1089                                         p_ptr->special_attack &= ~(ATTACK_CONFUSE);
1090                                         msg_print(_("手の輝きがなくなった。", "Your hands stop glowing."));
1091                                         p_ptr->redraw |= (PR_STATUS);
1092
1093                                 }
1094
1095                                 /* Confuse the monster */
1096                                 if (r_ptr->flags3 & RF3_NO_CONF)
1097                                 {
1098                                         if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_NO_CONF;
1099                                         msg_format(_("%^sには効果がなかった。", "%^s is unaffected."), m_name);
1100
1101                                 }
1102                                 else if (randint0(100) < r_ptr->level)
1103                                 {
1104                                         msg_format(_("%^sには効果がなかった。", "%^s is unaffected."), m_name);
1105                                 }
1106                                 else
1107                                 {
1108                                         msg_format(_("%^sは混乱したようだ。", "%^s appears confused."), m_name);
1109                                         (void)set_monster_confused(c_ptr->m_idx, MON_CONFUSED(m_ptr) + 10 + randint0(p_ptr->lev) / 5);
1110                                 }
1111                         }
1112
1113                         else if (chaos_effect == 4)
1114                         {
1115                                 bool resists_tele = FALSE;
1116
1117                                 if (r_ptr->flagsr & RFR_RES_TELE)
1118                                 {
1119                                         if (r_ptr->flags1 & RF1_UNIQUE)
1120                                         {
1121                                                 if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
1122                                                 msg_format(_("%^sには効果がなかった。", "%^s is unaffected!"), m_name);
1123                                                 resists_tele = TRUE;
1124                                         }
1125                                         else if (r_ptr->level > randint1(100))
1126                                         {
1127                                                 if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
1128                                                 msg_format(_("%^sは抵抗力を持っている！", "%^s resists!"), m_name);
1129                                                 resists_tele = TRUE;
1130                                         }
1131                                 }
1132
1133                                 if (!resists_tele)
1134                                 {
1135                                         msg_format(_("%^sは消えた！", "%^s disappears!"), m_name);
1136                                         teleport_away(c_ptr->m_idx, 50, TELEPORT_PASSIVE);
1137                                         num = num_blow + 1; /* Can't hit it anymore! */
1138                                         *mdeath = TRUE;
1139                                 }
1140                         }
1141
1142                         else if ((chaos_effect == 5) && (randint1(90) > r_ptr->level))
1143                         {
1144                                 if (!(r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) &&
1145                                         !(r_ptr->flagsr & RFR_EFF_RES_CHAO_MASK))
1146                                 {
1147                                         if (polymorph_monster(y, x))
1148                                         {
1149                                                 msg_format(_("%^sは変化した！", "%^s changes!"), m_name);
1150                                                 *fear = FALSE;
1151                                                 weak = FALSE;
1152                                         }
1153                                         else
1154                                         {
1155                                                 msg_format(_("%^sには効果がなかった。", "%^s is unaffected."), m_name);
1156                                         }
1157
1158                                         /* Hack -- Get new monster */
1159                                         m_ptr = &m_list[c_ptr->m_idx];
1160
1161                                         /* Oops, we need a different name... */
1162                                         monster_desc(m_name, m_ptr, 0);
1163
1164                                         /* Hack -- Get new race */
1165                                         r_ptr = &r_info[m_ptr->r_idx];
1166                                 }
1167                         }
1168                         else if (o_ptr->name1 == ART_G_HAMMER)
1169                         {
1170                                 monster_type *target_ptr = &m_list[c_ptr->m_idx];
1171
1172                                 if (target_ptr->hold_o_idx)
1173                                 {
1174                                         object_type *q_ptr = &o_list[target_ptr->hold_o_idx];
1175                                         char o_name[MAX_NLEN];
1176
1177                                         object_desc(o_name, q_ptr, OD_NAME_ONLY);
1178                                         q_ptr->held_m_idx = 0;
1179                                         q_ptr->marked = OM_TOUCHED;
1180                                         target_ptr->hold_o_idx = q_ptr->next_o_idx;
1181                                         q_ptr->next_o_idx = 0;
1182                                         msg_format(_("%sを奪った。", "You snatched %s."), o_name);
1183                                         inven_carry(q_ptr);
1184                                 }
1185                         }
1186                 }
1187
1188                 /* Player misses */
1189                 else
1190                 {
1191                         backstab = FALSE; /* Clumsy! */
1192                         fuiuchi = FALSE; /* Clumsy! */
1193
1194                         if ((o_ptr->tval == TV_POLEARM) && (o_ptr->sval == SV_DEATH_SCYTHE) && one_in_(3))
1195                         {
1196                                 u32b flgs_aux[TR_FLAG_SIZE];
1197
1198                                 sound(SOUND_HIT);
1199
1200                                 msg_format(_("ミス！ %sにかわされた。", "You miss %s."), m_name);
1201                                 msg_print(_("振り回した大鎌が自分自身に返ってきた！", "Your scythe returns to you!"));
1202
1203                                 /* Extract the flags */
1204                                 object_flags(o_ptr, flgs_aux);
1205
1206                                 k = damroll(o_ptr->dd + p_ptr->to_dd[hand], o_ptr->ds + p_ptr->to_ds[hand]);
1207                                 {
1208                                         int mult;
1209                                         switch (p_ptr->mimic_form)
1210                                         {
1211                                         case MIMIC_NONE:
1212                                                 switch (p_ptr->prace)
1213                                                 {
1214                                                 case RACE_YEEK:
1215                                                 case RACE_KLACKON:
1216                                                 case RACE_HUMAN:
1217                                                 case RACE_AMBERITE:
1218                                                 case RACE_DUNADAN:
1219                                                 case RACE_BARBARIAN:
1220                                                 case RACE_BEASTMAN:
1221                                                         mult = 25; break;
1222                                                 case RACE_HALF_ORC:
1223                                                 case RACE_HALF_TROLL:
1224                                                 case RACE_HALF_OGRE:
1225                                                 case RACE_HALF_GIANT:
1226                                                 case RACE_HALF_TITAN:
1227                                                 case RACE_CYCLOPS:
1228                                                 case RACE_IMP:
1229                                                 case RACE_SKELETON:
1230                                                 case RACE_ZOMBIE:
1231                                                 case RACE_VAMPIRE:
1232                                                 case RACE_SPECTRE:
1233                                                 case RACE_DEMON:
1234                                                 case RACE_DRACONIAN:
1235                                                         mult = 30; break;
1236                                                 default:
1237                                                         mult = 10; break;
1238                                                 }
1239                                                 break;
1240                                         case MIMIC_DEMON:
1241                                         case MIMIC_DEMON_LORD:
1242                                         case MIMIC_VAMPIRE:
1243                                                 mult = 30; break;
1244                                         default:
1245                                                 mult = 10; break;
1246                                         }
1247
1248                                         if (p_ptr->align < 0 && mult < 20)
1249                                                 mult = 20;
1250                                         if (!(p_ptr->resist_acid || IS_OPPOSE_ACID() || p_ptr->immune_acid) && (mult < 25))
1251                                                 mult = 25;
1252                                         if (!(p_ptr->resist_elec || IS_OPPOSE_ELEC() || p_ptr->immune_elec) && (mult < 25))
1253                                                 mult = 25;
1254                                         if (!(p_ptr->resist_fire || IS_OPPOSE_FIRE() || p_ptr->immune_fire) && (mult < 25))
1255                                                 mult = 25;
1256                                         if (!(p_ptr->resist_cold || IS_OPPOSE_COLD() || p_ptr->immune_cold) && (mult < 25))
1257                                                 mult = 25;
1258                                         if (!(p_ptr->resist_pois || IS_OPPOSE_POIS()) && (mult < 25))
1259                                                 mult = 25;
1260
1261                                         if ((p_ptr->pclass != CLASS_SAMURAI) && (have_flag(flgs_aux, TR_FORCE_WEAPON)) && (p_ptr->csp >(p_ptr->msp / 30)))
1262                                         {
1263                                                 p_ptr->csp -= (1 + (p_ptr->msp / 30));
1264                                                 p_ptr->redraw |= (PR_MANA);
1265                                                 mult = mult * 3 / 2 + 20;
1266                                         }
1267                                         k *= (HIT_POINT)mult;
1268                                         k /= 10;
1269                                 }
1270
1271                                 k = critical_norm(o_ptr->weight, o_ptr->to_h, k, p_ptr->to_h[hand], mode);
1272                                 if (one_in_(6))
1273                                 {
1274                                         int mult = 2;
1275                                         msg_format(_("グッサリ切り裂かれた！", "Your weapon cuts deep into yourself!"));
1276                                         /* Try to increase the damage */
1277                                         while (one_in_(4))
1278                                         {
1279                                                 mult++;
1280                                         }
1281
1282                                         k *= (HIT_POINT)mult;
1283                                 }
1284                                 k += (p_ptr->to_d[hand] + o_ptr->to_d);
1285                                 if (k < 0) k = 0;
1286
1287                                 take_hit(DAMAGE_FORCE, k, _("死の大鎌", "Death scythe"), -1);
1288                                 redraw_stuff();
1289                         }
1290                         else
1291                         {
1292                                 sound(SOUND_MISS);
1293
1294                                 msg_format(_("ミス！ %sにかわされた。", "You miss %s."), m_name);
1295                         }
1296                 }
1297                 backstab = FALSE;
1298                 fuiuchi = FALSE;
1299         }
1300
1301
1302         if (weak && !(*mdeath))
1303         {
1304                 msg_format(_("%sは弱くなったようだ。", "%^s seems weakened."), m_name);
1305         }
1306         if (drain_left != MAX_VAMPIRIC_DRAIN)
1307         {
1308                 if (one_in_(4))
1309                 {
1310                         chg_virtue(V_UNLIFE, 1);
1311                 }
1312         }
1313         /* Mega-Hack -- apply earthquake brand */
1314         if (do_quake)
1315         {
1316                 earthquake(p_ptr->y, p_ptr->x, 10);
1317                 if (!cave[y][x].m_idx) *mdeath = TRUE;
1318         }
1319 }
1320
1321
1322 /*!
1323 * @brief プレイヤーの打撃処理メインルーチン
1324 * @param y 攻撃目標のY座標
1325 * @param x 攻撃目標のX座標
1326 * @param mode 発動中の剣術ID
1327 * @return 実際に攻撃処理が行われた場合TRUEを返す。
1328 * @details
1329 * If no "weapon" is available, then "punch" the monster one time.
1330 */
1331 bool py_attack(POSITION y, POSITION x, BIT_FLAGS mode)
1332 {
1333         bool            fear = FALSE;
1334         bool            mdeath = FALSE;
1335         bool            stormbringer = FALSE;
1336
1337         cave_type       *c_ptr = &cave[y][x];
1338         monster_type    *m_ptr = &m_list[c_ptr->m_idx];
1339         monster_race    *r_ptr = &r_info[m_ptr->r_idx];
1340         char            m_name[80];
1341
1342         disturb(FALSE, TRUE);
1343
1344         p_ptr->energy_use = 100;
1345
1346         if (!p_ptr->migite && !p_ptr->hidarite &&
1347                 !(p_ptr->muta2 & (MUT2_HORNS | MUT2_BEAK | MUT2_SCOR_TAIL | MUT2_TRUNK | MUT2_TENTACLES)))
1348         {
1349                 msg_format(_("%s攻撃できない。", "You cannot do attacking."),
1350                         (empty_hands(FALSE) == EMPTY_HAND_NONE) ? _("両手がふさがって", "") : "");
1351                 return FALSE;
1352         }
1353
1354         /* Extract monster name (or "it") */
1355         monster_desc(m_name, m_ptr, 0);
1356
1357         if (m_ptr->ml)
1358         {
1359                 /* Auto-Recall if possible and visible */
1360                 if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
1361
1362                 /* Track a new monster */
1363                 health_track(c_ptr->m_idx);
1364         }
1365
1366         if ((r_ptr->flags1 & RF1_FEMALE) &&
1367                 !(p_ptr->stun || p_ptr->confused || p_ptr->image || !m_ptr->ml))
1368         {
1369                 if ((inventory[INVEN_RARM].name1 == ART_ZANTETSU) || (inventory[INVEN_LARM].name1 == ART_ZANTETSU))
1370                 {
1371                         msg_print(_("拙者、おなごは斬れぬ！", "I can not attack women!"));
1372                         return FALSE;
1373                 }
1374         }
1375
1376         if (d_info[dungeon_type].flags1 & DF1_NO_MELEE)
1377         {
1378                 msg_print(_("なぜか攻撃することができない。", "Something prevent you from attacking."));
1379                 return FALSE;
1380         }
1381
1382         /* Stop if friendly */
1383         if (!is_hostile(m_ptr) &&
1384                 !(p_ptr->stun || p_ptr->confused || p_ptr->image ||
1385                         p_ptr->shero || !m_ptr->ml))
1386         {
1387                 if (inventory[INVEN_RARM].name1 == ART_STORMBRINGER) stormbringer = TRUE;
1388                 if (inventory[INVEN_LARM].name1 == ART_STORMBRINGER) stormbringer = TRUE;
1389                 if (stormbringer)
1390                 {
1391                         msg_format(_("黒い刃は強欲に%sを攻撃した！", "Your black blade greedily attacks %s!"), m_name);
1392                         chg_virtue(V_INDIVIDUALISM, 1);
1393                         chg_virtue(V_HONOUR, -1);
1394                         chg_virtue(V_JUSTICE, -1);
1395                         chg_virtue(V_COMPASSION, -1);
1396                 }
1397                 else if (p_ptr->pclass != CLASS_BERSERKER)
1398                 {
1399                         if (get_check(_("本当に攻撃しますか？", "Really hit it? ")))
1400                         {
1401                                 chg_virtue(V_INDIVIDUALISM, 1);
1402                                 chg_virtue(V_HONOUR, -1);
1403                                 chg_virtue(V_JUSTICE, -1);
1404                                 chg_virtue(V_COMPASSION, -1);
1405                         }
1406                         else
1407                         {
1408                                 msg_format(_("%sを攻撃するのを止めた。", "You stop to avoid hitting %s."), m_name);
1409                                 return FALSE;
1410                         }
1411                 }
1412         }
1413
1414
1415         /* Handle player fear */
1416         if (p_ptr->afraid)
1417         {
1418                 if (m_ptr->ml)
1419                         msg_format(_("恐くて%sを攻撃できない！", "You are too afraid to attack %s!"), m_name);
1420                 else
1421                         msg_format(_("そっちには何か恐いものがいる！", "There is something scary in your way!"));
1422
1423                 /* Disturb the monster */
1424                 (void)set_monster_csleep(c_ptr->m_idx, 0);
1425
1426                 return FALSE;
1427         }
1428
1429         if (MON_CSLEEP(m_ptr)) /* It is not honorable etc to attack helpless victims */
1430         {
1431                 if (!(r_ptr->flags3 & RF3_EVIL) || one_in_(5)) chg_virtue(V_COMPASSION, -1);
1432                 if (!(r_ptr->flags3 & RF3_EVIL) || one_in_(5)) chg_virtue(V_HONOUR, -1);
1433         }
1434
1435         if (p_ptr->migite && p_ptr->hidarite)
1436         {
1437                 if ((p_ptr->skill_exp[GINOU_NITOURYU] < s_info[p_ptr->pclass].s_max[GINOU_NITOURYU]) && ((p_ptr->skill_exp[GINOU_NITOURYU] - 1000) / 200 < r_ptr->level))
1438                 {
1439                         if (p_ptr->skill_exp[GINOU_NITOURYU] < WEAPON_EXP_BEGINNER)
1440                                 p_ptr->skill_exp[GINOU_NITOURYU] += 80;
1441                         else if (p_ptr->skill_exp[GINOU_NITOURYU] < WEAPON_EXP_SKILLED)
1442                                 p_ptr->skill_exp[GINOU_NITOURYU] += 4;
1443                         else if (p_ptr->skill_exp[GINOU_NITOURYU] < WEAPON_EXP_EXPERT)
1444                                 p_ptr->skill_exp[GINOU_NITOURYU] += 1;
1445                         else if (p_ptr->skill_exp[GINOU_NITOURYU] < WEAPON_EXP_MASTER)
1446                                 if (one_in_(3)) p_ptr->skill_exp[GINOU_NITOURYU] += 1;
1447                         p_ptr->update |= (PU_BONUS);
1448                 }
1449         }
1450
1451         /* Gain riding experience */
1452         if (p_ptr->riding)
1453         {
1454                 int cur = p_ptr->skill_exp[GINOU_RIDING];
1455                 int max = s_info[p_ptr->pclass].s_max[GINOU_RIDING];
1456
1457                 if (cur < max)
1458                 {
1459                         int ridinglevel = r_info[m_list[p_ptr->riding].r_idx].level;
1460                         int targetlevel = r_ptr->level;
1461                         int inc = 0;
1462
1463                         if ((cur / 200 - 5) < targetlevel)
1464                                 inc += 1;
1465
1466                         /* Extra experience */
1467                         if ((cur / 100) < ridinglevel)
1468                         {
1469                                 if ((cur / 100 + 15) < ridinglevel)
1470                                         inc += 1 + (ridinglevel - (cur / 100 + 15));
1471                                 else
1472                                         inc += 1;
1473                         }
1474
1475                         p_ptr->skill_exp[GINOU_RIDING] = MIN(max, cur + inc);
1476
1477                         p_ptr->update |= (PU_BONUS);
1478                 }
1479         }
1480
1481         riding_t_m_idx = c_ptr->m_idx;
1482         if (p_ptr->migite) py_attack_aux(y, x, &fear, &mdeath, 0, mode);
1483         if (p_ptr->hidarite && !mdeath) py_attack_aux(y, x, &fear, &mdeath, 1, mode);
1484
1485         /* Mutations which yield extra 'natural' attacks */
1486         if (!mdeath)
1487         {
1488                 if ((p_ptr->muta2 & MUT2_HORNS) && !mdeath)
1489                         natural_attack(c_ptr->m_idx, MUT2_HORNS, &fear, &mdeath);
1490                 if ((p_ptr->muta2 & MUT2_BEAK) && !mdeath)
1491                         natural_attack(c_ptr->m_idx, MUT2_BEAK, &fear, &mdeath);
1492                 if ((p_ptr->muta2 & MUT2_SCOR_TAIL) && !mdeath)
1493                         natural_attack(c_ptr->m_idx, MUT2_SCOR_TAIL, &fear, &mdeath);
1494                 if ((p_ptr->muta2 & MUT2_TRUNK) && !mdeath)
1495                         natural_attack(c_ptr->m_idx, MUT2_TRUNK, &fear, &mdeath);
1496                 if ((p_ptr->muta2 & MUT2_TENTACLES) && !mdeath)
1497                         natural_attack(c_ptr->m_idx, MUT2_TENTACLES, &fear, &mdeath);
1498         }
1499
1500         /* Hack -- delay fear messages */
1501         if (fear && m_ptr->ml && !mdeath)
1502         {
1503                 sound(SOUND_FLEE);
1504
1505                 msg_format(_("%^sは恐怖して逃げ出した！", "%^s flees in terror!"), m_name);
1506         }
1507
1508         if ((p_ptr->special_defense & KATA_IAI) && ((mode != HISSATSU_IAI) || mdeath))
1509         {
1510                 set_action(ACTION_NONE);
1511         }
1512
1513         return mdeath;
1514 }
1515
1516
1517 /*!
1518  * @brief モンスターからプレイヤーへの打撃処理 / Attack the player via physical attacks.
1519  * @param m_idx 打撃を行うモンスターのID
1520  * @return 実際に攻撃処理を行った場合TRUEを返す
1521  */
1522 bool make_attack_normal(MONSTER_IDX m_idx)
1523 {
1524         monster_type *m_ptr = &m_list[m_idx];
1525         monster_race *r_ptr = &r_info[m_ptr->r_idx];
1526
1527         int ap_cnt;
1528
1529         INVENTORY_IDX i;
1530         int k, tmp, ac, rlev;
1531         int do_cut, do_stun;
1532
1533         s32b gold;
1534
1535         object_type *o_ptr;
1536
1537         char o_name[MAX_NLEN];
1538
1539         char m_name[80];
1540
1541         char ddesc[80];
1542
1543         bool blinked;
1544         bool touched = FALSE, fear = FALSE, alive = TRUE;
1545         bool explode = FALSE;
1546         bool do_silly_attack = (one_in_(2) && p_ptr->image);
1547         HIT_POINT get_damage = 0;
1548         int abbreviate = 0;     // ２回目以降の省略表現フラグ
1549
1550         /* Not allowed to attack */
1551         if (r_ptr->flags1 & (RF1_NEVER_BLOW)) return (FALSE);
1552
1553         if (d_info[dungeon_type].flags1 & DF1_NO_MELEE) return (FALSE);
1554
1555         /* ...nor if friendly */
1556         if (!is_hostile(m_ptr)) return FALSE;
1557
1558         /* Extract the effective monster level */
1559         rlev = ((r_ptr->level >= 1) ? r_ptr->level : 1);
1560
1561
1562         /* Get the monster name (or "it") */
1563         monster_desc(m_name, m_ptr, 0);
1564
1565         /* Get the "died from" information (i.e. "a kobold") */
1566         monster_desc(ddesc, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
1567
1568         if (p_ptr->special_defense & KATA_IAI)
1569         {
1570                 msg_format(_("相手が襲いかかる前に素早く武器を振るった。", "You took sen, draw and cut in one motion before %s move."), m_name);
1571                 if (py_attack(m_ptr->fy, m_ptr->fx, HISSATSU_IAI)) return TRUE;
1572         }
1573
1574         if ((p_ptr->special_defense & NINJA_KAWARIMI) && (randint0(55) < (p_ptr->lev*3/5+20)))
1575         {
1576                 if (kawarimi(TRUE)) return TRUE;
1577         }
1578
1579         /* Assume no blink */
1580         blinked = FALSE;
1581
1582         /* Scan through all four blows */
1583         for (ap_cnt = 0; ap_cnt < 4; ap_cnt++)
1584         {
1585                 bool obvious = FALSE;
1586
1587                 HIT_POINT power = 0;
1588                 HIT_POINT damage = 0;
1589
1590                 cptr act = NULL;
1591
1592                 /* Extract the attack infomation */
1593                 int effect = r_ptr->blow[ap_cnt].effect;
1594                 int method = r_ptr->blow[ap_cnt].method;
1595                 int d_dice = r_ptr->blow[ap_cnt].d_dice;
1596                 int d_side = r_ptr->blow[ap_cnt].d_side;
1597
1598
1599                 if (!m_ptr->r_idx) break;
1600
1601                 /* Hack -- no more attacks */
1602                 if (!method) break;
1603
1604                 if (is_pet(m_ptr) && (r_ptr->flags1 & RF1_UNIQUE) && (method == RBM_EXPLODE))
1605                 {
1606                         method = RBM_HIT;
1607                         d_dice /= 10;
1608                 }
1609
1610                 /* Stop if player is dead or gone */
1611                 if (!p_ptr->playing || p_ptr->is_dead) break;
1612                 if (distance(p_ptr->y, p_ptr->x, m_ptr->fy, m_ptr->fx) > 1) break;
1613
1614                 /* Handle "leaving" */
1615                 if (p_ptr->leaving) break;
1616
1617                 if (method == RBM_SHOOT) continue;
1618
1619                 /* Extract the attack "power" */
1620                 power = mbe_info[effect].power;
1621
1622                 /* Total armor */
1623                 ac = p_ptr->ac + p_ptr->to_a;
1624
1625                 /* Monster hits player */
1626                 if (!effect || check_hit(power, rlev, MON_STUNNED(m_ptr)))
1627                 {
1628                         /* Always disturbing */
1629                         disturb(TRUE, TRUE);
1630
1631
1632                         /* Hack -- Apply "protection from evil" */
1633                         if ((p_ptr->protevil > 0) &&
1634                             (r_ptr->flags3 & RF3_EVIL) &&
1635                             (p_ptr->lev >= rlev) &&
1636                             ((randint0(100) + p_ptr->lev) > 50))
1637                         {
1638                                 /* Remember the Evil-ness */
1639                                 if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_EVIL;
1640
1641 #ifdef JP
1642                                 if (abbreviate) msg_format("撃退した。");
1643                                 else msg_format("%^sは撃退された。", m_name);
1644                                 abbreviate = 1; /*２回目以降は省略 */
1645 #else
1646                                 msg_format("%^s is repelled.", m_name);
1647 #endif
1648
1649
1650                                 /* Hack -- Next attack */
1651                                 continue;
1652                         }
1653
1654
1655                         /* Assume no cut or stun */
1656                         do_cut = do_stun = 0;
1657
1658                         /* Describe the attack method */
1659                         switch (method)
1660                         {
1661                                 case RBM_HIT:
1662                                 {
1663                                         act = _("殴られた。", "hits you.");
1664                                         do_cut = do_stun = 1;
1665                                         touched = TRUE;
1666                                         sound(SOUND_HIT);
1667                                         break;
1668                                 }
1669
1670                                 case RBM_TOUCH:
1671                                 {
1672                                         act = _("触られた。", "touches you.");
1673                                         touched = TRUE;
1674                                         sound(SOUND_TOUCH);
1675                                         break;
1676                                 }
1677
1678                                 case RBM_PUNCH:
1679                                 {
1680                                         act = _("パンチされた。", "punches you.");
1681                                         touched = TRUE;
1682                                         do_stun = 1;
1683                                         sound(SOUND_HIT);
1684                                         break;
1685                                 }
1686
1687                                 case RBM_KICK:
1688                                 {
1689                                         act = _("蹴られた。", "kicks you.");
1690                                         touched = TRUE;
1691                                         do_stun = 1;
1692                                         sound(SOUND_HIT);
1693                                         break;
1694                                 }
1695
1696                                 case RBM_CLAW:
1697                                 {
1698                                         act = _("ひっかかれた。", "claws you.");
1699                                         touched = TRUE;
1700                                         do_cut = 1;
1701                                         sound(SOUND_CLAW);
1702                                         break;
1703                                 }
1704
1705                                 case RBM_BITE:
1706                                 {
1707                                         act = _("噛まれた。", "bites you.");
1708                                         do_cut = 1;
1709                                         touched = TRUE;
1710                                         sound(SOUND_BITE);
1711                                         break;
1712                                 }
1713
1714                                 case RBM_STING:
1715                                 {
1716                                         act = _("刺された。", "stings you.");
1717                                         touched = TRUE;
1718                                         sound(SOUND_STING);
1719                                         break;
1720                                 }
1721
1722                                 case RBM_SLASH:
1723                                 {
1724                                         act = _("斬られた。", "slashes you.");
1725                                         touched = TRUE;
1726                                         do_cut = 1;
1727                                         sound(SOUND_CLAW);
1728                                         break;
1729                                 }
1730
1731                                 case RBM_BUTT:
1732                                 {
1733                                         act = _("角で突かれた。", "butts you.");
1734                                         do_stun = 1;
1735                                         touched = TRUE;
1736                                         sound(SOUND_HIT);
1737                                         break;
1738                                 }
1739
1740                                 case RBM_CRUSH:
1741                                 {
1742                                         act = _("体当たりされた。", "crushes you.");
1743                                         do_stun = 1;
1744                                         touched = TRUE;
1745                                         sound(SOUND_CRUSH);
1746                                         break;
1747                                 }
1748
1749                                 case RBM_ENGULF:
1750                                 {
1751                                         act = _("飲み込まれた。", "engulfs you.");
1752                                         touched = TRUE;
1753                                         sound(SOUND_CRUSH);
1754                                         break;
1755                                 }
1756
1757                                 case RBM_CHARGE:
1758                                 {
1759                                         abbreviate = -1;
1760                                         act = _("は請求書をよこした。", "charges you.");
1761                                         touched = TRUE;
1762                                         sound(SOUND_BUY); /* Note! This is "charges", not "charges at". */
1763                                         break;
1764                                 }
1765
1766                                 case RBM_CRAWL:
1767                                 {
1768                                         abbreviate = -1;
1769                                         act = _("が体の上を這い回った。", "crawls on you.");
1770                                         touched = TRUE;
1771                                         sound(SOUND_SLIME);
1772                                         break;
1773                                 }
1774
1775                                 case RBM_DROOL:
1776                                 {
1777                                         act = _("よだれをたらされた。", "drools on you.");
1778                                         sound(SOUND_SLIME);
1779                                         break;
1780                                 }
1781
1782                                 case RBM_SPIT:
1783                                 {
1784                                         act = _("唾を吐かれた。", "spits on you.");
1785                                         sound(SOUND_SLIME);
1786                                         break;
1787                                 }
1788
1789                                 case RBM_EXPLODE:
1790                                 {
1791                                         abbreviate = -1;
1792                                         act = _("は爆発した。", "explodes.");
1793                                         explode = TRUE;
1794                                         break;
1795                                 }
1796
1797                                 case RBM_GAZE:
1798                                 {
1799                                         act = _("にらまれた。", "gazes at you.");
1800                                         break;
1801                                 }
1802
1803                                 case RBM_WAIL:
1804                                 {
1805                                         act = _("泣き叫ばれた。", "wails at you.");
1806                                         sound(SOUND_WAIL);
1807                                         break;
1808                                 }
1809
1810                                 case RBM_SPORE:
1811                                 {
1812                                         act = _("胞子を飛ばされた。", "releases spores at you.");
1813                                         sound(SOUND_SLIME);
1814                                         break;
1815                                 }
1816
1817                                 case RBM_XXX4:
1818                                 {
1819                                         abbreviate = -1;
1820                                         act = _("が XXX4 を発射した。", "projects XXX4's at you.");
1821                                         break;
1822                                 }
1823
1824                                 case RBM_BEG:
1825                                 {
1826                                         act = _("金をせがまれた。", "begs you for money.");
1827                                         sound(SOUND_MOAN);
1828                                         break;
1829                                 }
1830
1831                                 case RBM_INSULT:
1832                                 {
1833 #ifdef JP
1834                                         abbreviate = -1;
1835 #endif
1836                                         act = desc_insult[randint0(m_ptr->r_idx == MON_DEBBY ? 10 : 8)];
1837                                         sound(SOUND_MOAN);
1838                                         break;
1839                                 }
1840
1841                                 case RBM_MOAN:
1842                                 {
1843 #ifdef JP
1844                                         abbreviate = -1;
1845 #endif
1846                                         act = desc_moan[randint0(4)];
1847                                         sound(SOUND_MOAN);
1848                                         break;
1849                                 }
1850
1851                                 case RBM_SHOW:
1852                                 {
1853 #ifdef JP
1854                                         abbreviate = -1;
1855 #endif
1856                                         if (m_ptr->r_idx == MON_JAIAN)
1857                                         {
1858 #ifdef JP
1859                                                 switch(randint1(15))
1860                                                 {
1861                                                   case 1:
1862                                                   case 6:
1863                                                   case 11:
1864                                                         act = "「♪お～れはジャイアン～～ガ～キだいしょう～」";
1865                                                         break;
1866                                                   case 2:
1867                                                         act = "「♪て～んかむ～てきのお～とこだぜ～～」";
1868                                                         break;
1869                                                   case 3:
1870                                                         act = "「♪の～び太スネ夫はメじゃないよ～～」";
1871                                                         break;
1872                                                   case 4:
1873                                                         act = "「♪け～んかスポ～ツ～どんとこい～」";
1874                                                         break;
1875                                                   case 5:
1876                                                         act = "「♪うた～も～～う～まいぜ～まかしとけ～」";
1877                                                         break;
1878                                                   case 7:
1879                                                         act = "「♪ま～ちいちば～んのに～んきもの～～」";
1880                                                         break;
1881                                                   case 8:
1882                                                         act = "「♪べんきょうしゅくだいメじゃないよ～～」";
1883                                                         break;
1884                                                   case 9:
1885                                                         act = "「♪きはやさし～くて～ち～からもち～」";
1886                                                         break;
1887                                                   case 10:
1888                                                         act = "「♪かお～も～～スタイルも～バツグンさ～」";
1889                                                         break;
1890                                                   case 12:
1891                                                         act = "「♪がっこうい～ちの～あ～ばれんぼう～～」";
1892                                                         break;
1893                                                   case 13:
1894                                                         act = "「♪ド～ラもドラミもメじゃないよ～～」";
1895                                                         break;
1896                                                   case 14:
1897                                                         act = "「♪よじげんぽけっと～な～くたって～」";
1898                                                         break;
1899                                                   case 15:
1900                                                         act = "「♪あし～の～～ながさ～は～まけないぜ～」";
1901                                                         break;
1902                                                 }
1903 #else
1904                                                 act = "horribly sings 'I AM GIAAAAAN. THE BOOOSS OF THE KIIIIDS.'";
1905 #endif
1906                                         }
1907                                         else
1908                                         {
1909                                                 if (one_in_(3))
1910                                                         act = _("は♪僕らは楽しい家族♪と歌っている。", "sings 'We are a happy family.'");
1911                                                 else
1912                                                         act = _("は♪アイ ラブ ユー、ユー ラブ ミー♪と歌っている。", "sings 'I love you, you love me.'");
1913                                         }
1914
1915                                         sound(SOUND_SHOW);
1916                                         break;
1917                                 }
1918                         }
1919
1920                         if (act)
1921                         {
1922                                 if (do_silly_attack)
1923                                 {
1924 #ifdef JP
1925                                         abbreviate = -1;
1926 #endif
1927                                         act = silly_attacks[randint0(MAX_SILLY_ATTACK)];
1928                                 }
1929 #ifdef JP
1930                                 if (abbreviate == 0)
1931                                         msg_format("%^sに%s", m_name, act);
1932                                 else if (abbreviate == 1)
1933                                         msg_format("%s", act);
1934                                 else /* if (abbreviate == -1) */
1935                                         msg_format("%^s%s", m_name, act);
1936                                 abbreviate = 1;/*２回目以降は省略 */
1937 #else
1938                                 msg_format("%^s %s%s", m_name, act, do_silly_attack ? " you." : "");
1939 #endif
1940                         }
1941
1942                         /* Hack -- assume all attacks are obvious */
1943                         obvious = TRUE;
1944
1945                         /* Roll out the damage */
1946                         damage = damroll(d_dice, d_side);
1947
1948                         /*
1949                          * Skip the effect when exploding, since the explosion
1950                          * already causes the effect.
1951                          */
1952                         if(explode) damage = 0;
1953                         /* Apply appropriate damage */
1954                         switch (effect)
1955                         {
1956                                 case 0:
1957                                 {
1958                                         obvious = TRUE;
1959                                         damage = 0;
1960                                         break;
1961                                 }
1962
1963                                 case RBE_SUPERHURT:     /* AC軽減あり / Player armor reduces total damage */
1964                                 {
1965                                         if (((randint1(rlev*2+300) > (ac+200)) || one_in_(13)) && !CHECK_MULTISHADOW())
1966                                         {
1967                                                 int tmp_damage = damage - (damage * ((ac < 150) ? ac : 150) / 250);
1968                                                 msg_print(_("痛恨の一撃！", "It was a critical hit!"));
1969                                                 tmp_damage = MAX(damage, tmp_damage*2);
1970
1971                                                 get_damage += take_hit(DAMAGE_ATTACK, tmp_damage, ddesc, -1);
1972                                                 break;
1973                                         }
1974                                 }
1975                                 case RBE_HURT: /* AC軽減あり / Player armor reduces total damage */
1976                                 {
1977                                         obvious = TRUE;
1978                                         damage -= (damage * ((ac < 150) ? ac : 150) / 250);
1979                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
1980                                         break;
1981                                 }
1982
1983                                 case RBE_POISON:
1984                                 {
1985                                         if (explode) break;
1986
1987                                         /* Take "poison" effect */
1988                                         if (!(p_ptr->resist_pois || IS_OPPOSE_POIS()) && !CHECK_MULTISHADOW())
1989                                         {
1990                                                 if (set_poisoned(p_ptr->poisoned + randint1(rlev) + 5))
1991                                                 {
1992                                                         obvious = TRUE;
1993                                                 }
1994                                         }
1995
1996                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
1997
1998                                         /* Learn about the player */
1999                                         update_smart_learn(m_idx, DRS_POIS);
2000
2001                                         break;
2002                                 }
2003
2004                                 case RBE_UN_BONUS:
2005                                 {
2006                                         if (explode) break;
2007
2008                                         /* Allow complete resist */
2009                                         if (!p_ptr->resist_disen && !CHECK_MULTISHADOW())
2010                                         {
2011                                                 /* Apply disenchantment */
2012                                                 if (apply_disenchant(0))
2013                                                 {
2014                                                         /* Hack -- Update AC */
2015                                                         update_stuff();
2016                                                         obvious = TRUE;
2017                                                 }
2018                                         }
2019
2020                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2021
2022                                         /* Learn about the player */
2023                                         update_smart_learn(m_idx, DRS_DISEN);
2024
2025                                         break;
2026                                 }
2027
2028                                 case RBE_UN_POWER:
2029                                 {
2030                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2031
2032                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2033
2034                                         /* Find an item */
2035                                         for (k = 0; k < 10; k++)
2036                                         {
2037                                                 /* Pick an item */
2038                                                 i = (INVENTORY_IDX)randint0(INVEN_PACK);
2039
2040                                                 /* Obtain the item */
2041                                                 o_ptr = &inventory[i];
2042
2043                                                 /* Skip non-objects */
2044                                                 if (!o_ptr->k_idx) continue;
2045
2046                                                 /* Drain charged wands/staffs */
2047                                                 if (((o_ptr->tval == TV_STAFF) ||
2048                                                      (o_ptr->tval == TV_WAND)) &&
2049                                                     (o_ptr->pval))
2050                                                 {
2051                                                         /* Calculate healed hitpoints */
2052                                                         int heal=rlev * o_ptr->pval;
2053                                                         if( o_ptr->tval == TV_STAFF)
2054                                                             heal *=  o_ptr->number;
2055
2056                                                         /* Don't heal more than max hp */
2057                                                         heal = MIN(heal, m_ptr->maxhp - m_ptr->hp);
2058
2059                                                         msg_print(_("ザックからエネルギーが吸い取られた！", "Energy drains from your pack!"));
2060
2061                                                         obvious = TRUE;
2062
2063                                                         /* Heal the monster */
2064                                                         m_ptr->hp += (HIT_POINT)heal;
2065
2066                                                         /* Redraw (later) if needed */
2067                                                         if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
2068                                                         if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
2069
2070                                                         /* Uncharge */
2071                                                         o_ptr->pval = 0;
2072
2073                                                         /* Combine / Reorder the pack */
2074                                                         p_ptr->notice |= (PN_COMBINE | PN_REORDER);
2075                                                         p_ptr->window |= (PW_INVEN);
2076
2077                                                         break;
2078                                                 }
2079                                         }
2080
2081                                         break;
2082                                 }
2083
2084                                 case RBE_EAT_GOLD:
2085                                 {
2086                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2087
2088                                         /* Confused monsters cannot steal successfully. -LM-*/
2089                                         if (MON_CONFUSED(m_ptr)) break;
2090
2091                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2092
2093                                         obvious = TRUE;
2094
2095                                         /* Saving throw (unless paralyzed) based on dex and level */
2096                                         if (!p_ptr->paralyzed &&
2097                                             (randint0(100) < (adj_dex_safe[p_ptr->stat_ind[A_DEX]] +
2098                                                               p_ptr->lev)))
2099                                         {
2100                                                 /* Saving throw message */
2101                                                 msg_print(_("しかし素早く財布を守った！", "You quickly protect your money pouch!"));
2102
2103                                                 /* Occasional blink anyway */
2104                                                 if (randint0(3)) blinked = TRUE;
2105                                         }
2106
2107                                         /* Eat gold */
2108                                         else
2109                                         {
2110                                                 gold = (p_ptr->au / 10) + randint1(25);
2111                                                 if (gold < 2) gold = 2;
2112                                                 if (gold > 5000) gold = (p_ptr->au / 20) + randint1(3000);
2113                                                 if (gold > p_ptr->au) gold = p_ptr->au;
2114                                                 p_ptr->au -= gold;
2115                                                 if (gold <= 0)
2116                                                 {
2117                                                         msg_print(_("しかし何も盗まれなかった。", "Nothing was stolen."));
2118                                                 }
2119                                                 else if (p_ptr->au)
2120                                                 {
2121                                                         msg_print(_("財布が軽くなった気がする。", "Your purse feels lighter."));
2122                                                         msg_format(_("$%ld のお金が盗まれた！", "%ld coins were stolen!"), (long)gold);
2123                                                         chg_virtue(V_SACRIFICE, 1);
2124                                                 }
2125                                                 else
2126                                                 {
2127                                                         msg_print(_("財布が軽くなった気がする。", "Your purse feels lighter."));
2128                                                         msg_print(_("お金が全部盗まれた！", "All of your coins were stolen!"));
2129                                                         chg_virtue(V_SACRIFICE, 2);
2130                                                 }
2131
2132                                                 /* Redraw gold */
2133                                                 p_ptr->redraw |= (PR_GOLD);
2134
2135                                                 p_ptr->window |= (PW_PLAYER);
2136
2137                                                 /* Blink away */
2138                                                 blinked = TRUE;
2139                                         }
2140
2141                                         break;
2142                                 }
2143
2144                                 case RBE_EAT_ITEM:
2145                                 {
2146                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2147
2148                                         /* Confused monsters cannot steal successfully. -LM-*/
2149                                         if (MON_CONFUSED(m_ptr)) break;
2150
2151                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2152
2153                                         /* Saving throw (unless paralyzed) based on dex and level */
2154                                         if (!p_ptr->paralyzed &&
2155                                             (randint0(100) < (adj_dex_safe[p_ptr->stat_ind[A_DEX]] +
2156                                                               p_ptr->lev)))
2157                                         {
2158                                                 /* Saving throw message */
2159                                                 msg_print(_("しかしあわててザックを取り返した！", "You grab hold of your backpack!"));
2160
2161                                                 /* Occasional "blink" anyway */
2162                                                 blinked = TRUE;
2163                                                 obvious = TRUE;
2164                                                 break;
2165                                         }
2166
2167                                         /* Find an item */
2168                                         for (k = 0; k < 10; k++)
2169                                         {
2170                                                 s16b o_idx;
2171
2172                                                 /* Pick an item */
2173                                                 i = (INVENTORY_IDX)randint0(INVEN_PACK);
2174
2175                                                 /* Obtain the item */
2176                                                 o_ptr = &inventory[i];
2177
2178                                                 /* Skip non-objects */
2179                                                 if (!o_ptr->k_idx) continue;
2180
2181                                                 /* Skip artifacts */
2182                                                 if (object_is_artifact(o_ptr)) continue;
2183
2184                                                 object_desc(o_name, o_ptr, OD_OMIT_PREFIX);
2185
2186 #ifdef JP
2187                                                 msg_format("%s(%c)を%s盗まれた！", o_name, index_to_label(i), ((o_ptr->number > 1) ? "一つ" : ""));
2188 #else
2189                                                 msg_format("%sour %s (%c) was stolen!", ((o_ptr->number > 1) ? "One of y" : "Y"), o_name, index_to_label(i));
2190 #endif
2191
2192                                                 chg_virtue(V_SACRIFICE, 1);
2193
2194
2195                                                 /* Make an object */
2196                                                 o_idx = o_pop();
2197
2198                                                 /* Success */
2199                                                 if (o_idx)
2200                                                 {
2201                                                         object_type *j_ptr;
2202
2203                                                         /* Get new object */
2204                                                         j_ptr = &o_list[o_idx];
2205
2206                                                         /* Copy object */
2207                                                         object_copy(j_ptr, o_ptr);
2208
2209                                                         /* Modify number */
2210                                                         j_ptr->number = 1;
2211
2212                                                         /* Hack -- If a rod or wand, allocate total
2213                                                          * maximum timeouts or charges between those
2214                                                          * stolen and those missed. -LM-
2215                                                          */
2216                                                         if ((o_ptr->tval == TV_ROD) || (o_ptr->tval == TV_WAND))
2217                                                         {
2218                                                                 j_ptr->pval = o_ptr->pval / o_ptr->number;
2219                                                                 o_ptr->pval -= j_ptr->pval;
2220                                                         }
2221
2222                                                         /* Forget mark */
2223                                                         j_ptr->marked = OM_TOUCHED;
2224
2225                                                         /* Memorize monster */
2226                                                         j_ptr->held_m_idx = m_idx;
2227
2228                                                         /* Build stack */
2229                                                         j_ptr->next_o_idx = m_ptr->hold_o_idx;
2230
2231                                                         /* Build stack */
2232                                                         m_ptr->hold_o_idx = o_idx;
2233                                                 }
2234
2235                                                 /* Steal the items */
2236                                                 inven_item_increase(i, -1);
2237                                                 inven_item_optimize(i);
2238
2239                                                 obvious = TRUE;
2240
2241                                                 /* Blink away */
2242                                                 blinked = TRUE;
2243
2244                                                 break;
2245                                         }
2246
2247                                         break;
2248                                 }
2249
2250                                 case RBE_EAT_FOOD:
2251                                 {
2252                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2253
2254                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2255
2256                                         /* Steal some food */
2257                                         for (k = 0; k < 10; k++)
2258                                         {
2259                                                 /* Pick an item from the pack */
2260                                                 i = (INVENTORY_IDX)randint0(INVEN_PACK);
2261
2262                                                 o_ptr = &inventory[i];
2263
2264                                                 /* Skip non-objects */
2265                                                 if (!o_ptr->k_idx) continue;
2266
2267                                                 /* Skip non-food objects */
2268                                                 if ((o_ptr->tval != TV_FOOD) && !((o_ptr->tval == TV_CORPSE) && (o_ptr->sval))) continue;
2269
2270                                                 object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
2271
2272 #ifdef JP
2273                                                 msg_format("%s(%c)を%s食べられてしまった！", o_name, index_to_label(i), ((o_ptr->number > 1) ? "一つ" : ""));
2274 #else
2275                                                 msg_format("%sour %s (%c) was eaten!", ((o_ptr->number > 1) ? "One of y" : "Y"), o_name, index_to_label(i));
2276 #endif
2277
2278                                                 /* Steal the items */
2279                                                 inven_item_increase(i, -1);
2280                                                 inven_item_optimize(i);
2281
2282                                                 obvious = TRUE;
2283
2284                                                 break;
2285                                         }
2286
2287                                         break;
2288                                 }
2289
2290                                 case RBE_EAT_LITE:
2291                                 {
2292                                         /* Access the lite */
2293                                         o_ptr = &inventory[INVEN_LITE];
2294                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2295
2296                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2297
2298                                         /* Drain fuel */
2299                                         if ((o_ptr->xtra4 > 0) && (!object_is_fixed_artifact(o_ptr)))
2300                                         {
2301                                                 /* Reduce fuel */
2302                                                 o_ptr->xtra4 -= (s16b)(250 + randint1(250));
2303                                                 if (o_ptr->xtra4 < 1) o_ptr->xtra4 = 1;
2304
2305                                                 if (!p_ptr->blind)
2306                                                 {
2307                                                         msg_print(_("明かりが暗くなってしまった。", "Your light dims."));
2308                                                         obvious = TRUE;
2309                                                 }
2310
2311                                                 p_ptr->window |= (PW_EQUIP);
2312                                         }
2313
2314                                         break;
2315                                 }
2316
2317                                 case RBE_ACID:
2318                                 {
2319                                         if (explode) break;
2320                                         obvious = TRUE;
2321                                         msg_print(_("酸を浴びせられた！", "You are covered in acid!"));
2322                                         get_damage += acid_dam(damage, ddesc, -1, FALSE);
2323                                         update_stuff();
2324                                         update_smart_learn(m_idx, DRS_ACID);
2325                                         break;
2326                                 }
2327
2328                                 case RBE_ELEC:
2329                                 {
2330                                         if (explode) break;
2331                                         obvious = TRUE;
2332                                         msg_print(_("電撃を浴びせられた！", "You are struck by electricity!"));
2333                                         get_damage += elec_dam(damage, ddesc, -1, FALSE);
2334                                         update_smart_learn(m_idx, DRS_ELEC);
2335                                         break;
2336                                 }
2337
2338                                 case RBE_FIRE:
2339                                 {
2340                                         if (explode) break;
2341                                         obvious = TRUE;
2342                                         msg_print(_("全身が炎に包まれた！", "You are enveloped in flames!"));
2343                                         get_damage += fire_dam(damage, ddesc, -1, FALSE);
2344                                         update_smart_learn(m_idx, DRS_FIRE);
2345                                         break;
2346                                 }
2347
2348                                 case RBE_COLD:
2349                                 {
2350                                         if (explode) break;
2351                                         obvious = TRUE;
2352                                         msg_print(_("全身が冷気で覆われた！", "You are covered with frost!"));
2353                                         get_damage += cold_dam(damage, ddesc, -1, FALSE);
2354                                         update_smart_learn(m_idx, DRS_COLD);
2355                                         break;
2356                                 }
2357
2358                                 case RBE_BLIND:
2359                                 {
2360                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2361                                         if (p_ptr->is_dead) break;
2362
2363                                         /* Increase "blind" */
2364                                         if (!p_ptr->resist_blind && !CHECK_MULTISHADOW())
2365                                         {
2366                                                 if (set_blind(p_ptr->blind + 10 + randint1(rlev)))
2367                                                 {
2368 #ifdef JP
2369                                                         if (m_ptr->r_idx == MON_DIO) msg_print("どうだッ！この血の目潰しはッ！");
2370 #else
2371                                                         /* nanka */
2372 #endif
2373                                                         obvious = TRUE;
2374                                                 }
2375                                         }
2376
2377                                         /* Learn about the player */
2378                                         update_smart_learn(m_idx, DRS_BLIND);
2379
2380                                         break;
2381                                 }
2382
2383                                 case RBE_CONFUSE:
2384                                 {
2385                                         if (explode) break;
2386                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2387
2388                                         if (p_ptr->is_dead) break;
2389
2390                                         /* Increase "confused" */
2391                                         if (!p_ptr->resist_conf && !CHECK_MULTISHADOW())
2392                                         {
2393                                                 if (set_confused(p_ptr->confused + 3 + randint1(rlev)))
2394                                                 {
2395                                                         obvious = TRUE;
2396                                                 }
2397                                         }
2398
2399                                         /* Learn about the player */
2400                                         update_smart_learn(m_idx, DRS_CONF);
2401
2402                                         break;
2403                                 }
2404
2405                                 case RBE_TERRIFY:
2406                                 {
2407                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2408
2409                                         if (p_ptr->is_dead) break;
2410
2411                                         /* Increase "afraid" */
2412                                         if (CHECK_MULTISHADOW())
2413                                         {
2414                                                 /* Do nothing */
2415                                         }
2416                                         else if (p_ptr->resist_fear)
2417                                         {
2418                                                 msg_print(_("しかし恐怖に侵されなかった！", "You stand your ground!"));
2419                                                 obvious = TRUE;
2420                                         }
2421                                         else if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
2422                                         {
2423                                                 msg_print(_("しかし恐怖に侵されなかった！", "You stand your ground!"));
2424                                                 obvious = TRUE;
2425                                         }
2426                                         else
2427                                         {
2428                                                 if (set_afraid(p_ptr->afraid + 3 + randint1(rlev)))
2429                                                 {
2430                                                         obvious = TRUE;
2431                                                 }
2432                                         }
2433
2434                                         /* Learn about the player */
2435                                         update_smart_learn(m_idx, DRS_FEAR);
2436
2437                                         break;
2438                                 }
2439
2440                                 case RBE_PARALYZE:
2441                                 {
2442                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2443
2444                                         if (p_ptr->is_dead) break;
2445
2446                                         /* Increase "paralyzed" */
2447                                         if (CHECK_MULTISHADOW())
2448                                         {
2449                                                 /* Do nothing */
2450                                         }
2451                                         else if (p_ptr->free_act)
2452                                         {
2453                                                 msg_print(_("しかし効果がなかった！", "You are unaffected!"));
2454                                                 obvious = TRUE;
2455                                         }
2456                                         else if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
2457                                         {
2458                                                 msg_print(_("しかし効力を跳ね返した！", "You resist the effects!"));
2459                                                 obvious = TRUE;
2460                                         }
2461                                         else
2462                                         {
2463                                                 if (!p_ptr->paralyzed)
2464                                                 {
2465                                                         if (set_paralyzed(3 + randint1(rlev)))
2466                                                         {
2467                                                                 obvious = TRUE;
2468                                                         }
2469                                                 }
2470                                         }
2471
2472                                         /* Learn about the player */
2473                                         update_smart_learn(m_idx, DRS_FREE);
2474
2475                                         break;
2476                                 }
2477
2478                                 case RBE_LOSE_STR:
2479                                 {
2480                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2481
2482                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2483                                         if (do_dec_stat(A_STR)) obvious = TRUE;
2484
2485                                         break;
2486                                 }
2487
2488                                 case RBE_LOSE_INT:
2489                                 {
2490                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2491
2492                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2493                                         if (do_dec_stat(A_INT)) obvious = TRUE;
2494
2495                                         break;
2496                                 }
2497
2498                                 case RBE_LOSE_WIS:
2499                                 {
2500                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2501
2502                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2503                                         if (do_dec_stat(A_WIS)) obvious = TRUE;
2504
2505                                         break;
2506                                 }
2507
2508                                 case RBE_LOSE_DEX:
2509                                 {
2510                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2511
2512                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2513                                         if (do_dec_stat(A_DEX)) obvious = TRUE;
2514
2515                                         break;
2516                                 }
2517
2518                                 case RBE_LOSE_CON:
2519                                 {
2520                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2521
2522                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2523                                         if (do_dec_stat(A_CON)) obvious = TRUE;
2524
2525                                         break;
2526                                 }
2527
2528                                 case RBE_LOSE_CHR:
2529                                 {
2530                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2531
2532                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2533                                         if (do_dec_stat(A_CHR)) obvious = TRUE;
2534
2535                                         break;
2536                                 }
2537
2538                                 case RBE_LOSE_ALL:
2539                                 {
2540                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2541
2542                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2543
2544                                         /* Damage (stats) */
2545                                         if (do_dec_stat(A_STR)) obvious = TRUE;
2546                                         if (do_dec_stat(A_DEX)) obvious = TRUE;
2547                                         if (do_dec_stat(A_CON)) obvious = TRUE;
2548                                         if (do_dec_stat(A_INT)) obvious = TRUE;
2549                                         if (do_dec_stat(A_WIS)) obvious = TRUE;
2550                                         if (do_dec_stat(A_CHR)) obvious = TRUE;
2551
2552                                         break;
2553                                 }
2554
2555                                 case RBE_SHATTER:
2556                                 {
2557                                         obvious = TRUE;
2558
2559                                         /* Hack -- Reduce damage based on the player armor class */
2560                                         damage -= (damage * ((ac < 150) ? ac : 150) / 250);
2561
2562                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2563
2564                                         /* Radius 8 earthquake centered at the monster */
2565                                         if (damage > 23 || explode)
2566                                         {
2567                                                 earthquake_aux(m_ptr->fy, m_ptr->fx, 8, m_idx);
2568                                         }
2569
2570                                         break;
2571                                 }
2572
2573                                 case RBE_EXP_10:
2574                                 {
2575                                         s32b d = damroll(10, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
2576
2577                                         obvious = TRUE;
2578
2579                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2580
2581                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2582
2583                                         (void)drain_exp(d, d / 10, 95);
2584                                         break;
2585                                 }
2586
2587                                 case RBE_EXP_20:
2588                                 {
2589                                         s32b d = damroll(20, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
2590
2591                                         obvious = TRUE;
2592
2593                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2594
2595                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2596
2597                                         (void)drain_exp(d, d / 10, 90);
2598                                         break;
2599                                 }
2600
2601                                 case RBE_EXP_40:
2602                                 {
2603                                         s32b d = damroll(40, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
2604
2605                                         obvious = TRUE;
2606
2607                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2608
2609                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2610
2611                                         (void)drain_exp(d, d / 10, 75);
2612                                         break;
2613                                 }
2614
2615                                 case RBE_EXP_80:
2616                                 {
2617                                         s32b d = damroll(80, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
2618
2619                                         obvious = TRUE;
2620
2621                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2622
2623                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2624
2625                                         (void)drain_exp(d, d / 10, 50);
2626                                         break;
2627                                 }
2628
2629                                 case RBE_DISEASE:
2630                                 {
2631                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2632
2633                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2634
2635                                         /* Take "poison" effect */
2636                                         if (!(p_ptr->resist_pois || IS_OPPOSE_POIS()))
2637                                         {
2638                                                 if (set_poisoned(p_ptr->poisoned + randint1(rlev) + 5))
2639                                                 {
2640                                                         obvious = TRUE;
2641                                                 }
2642                                         }
2643
2644                                         /* Damage CON (10% chance)*/
2645                                         if ((randint1(100) < 11) && (p_ptr->prace != RACE_ANDROID))
2646                                         {
2647                                                 /* 1% chance for perm. damage */
2648                                                 bool perm = one_in_(10);
2649                                                 if (dec_stat(A_CON, randint1(10), perm))
2650                                                 {
2651                                                         msg_print(_("病があなたを蝕んでいる気がする。", "You feel strange sickness."));
2652                                                         obvious = TRUE;
2653                                                 }
2654                                         }
2655
2656                                         break;
2657                                 }
2658                                 case RBE_TIME:
2659                                 {
2660                                         if (explode) break;
2661                                         if (!p_ptr->resist_time && !CHECK_MULTISHADOW())
2662                                         {
2663                                                 switch (randint1(10))
2664                                                 {
2665                                                         case 1: case 2: case 3: case 4: case 5:
2666                                                         {
2667                                                                 if (p_ptr->prace == RACE_ANDROID) break;
2668                                                                 msg_print(_("人生が逆戻りした気がする。", "You feel life has clocked back."));
2669                                                                 lose_exp(100 + (p_ptr->exp / 100) * MON_DRAIN_LIFE);
2670                                                                 break;
2671                                                         }
2672
2673                                                         case 6: case 7: case 8: case 9:
2674                                                         {
2675                                                                 int stat = randint0(6);
2676
2677                                                                 switch (stat)
2678                                                                 {
2679 #ifdef JP
2680                                                                         case A_STR: act = "強く"; break;
2681                                                                         case A_INT: act = "聡明で"; break;
2682                                                                         case A_WIS: act = "賢明で"; break;
2683                                                                         case A_DEX: act = "器用で"; break;
2684                                                                         case A_CON: act = "健康で"; break;
2685                                                                         case A_CHR: act = "美しく"; break;
2686 #else
2687                                                                         case A_STR: act = "strong"; break;
2688                                                                         case A_INT: act = "bright"; break;
2689                                                                         case A_WIS: act = "wise"; break;
2690                                                                         case A_DEX: act = "agile"; break;
2691                                                                         case A_CON: act = "hale"; break;
2692                                                                         case A_CHR: act = "beautiful"; break;
2693 #endif
2694
2695                                                                 }
2696
2697                                                                 msg_format(_("あなたは以前ほど%sなくなってしまった...。", "You're not as %s as you used to be..."), act);
2698                                                                 p_ptr->stat_cur[stat] = (p_ptr->stat_cur[stat] * 3) / 4;
2699                                                                 if (p_ptr->stat_cur[stat] < 3) p_ptr->stat_cur[stat] = 3;
2700                                                                 p_ptr->update |= (PU_BONUS);
2701                                                                 break;
2702                                                         }
2703
2704                                                         case 10:
2705                                                         {
2706                                                                 msg_print(_("あなたは以前ほど力強くなくなってしまった...。", "You're not as powerful as you used to be..."));
2707
2708                                                                 for (k = 0; k < 6; k++)
2709                                                                 {
2710                                                                         p_ptr->stat_cur[k] = (p_ptr->stat_cur[k] * 7) / 8;
2711                                                                         if (p_ptr->stat_cur[k] < 3) p_ptr->stat_cur[k] = 3;
2712                                                                 }
2713                                                                 p_ptr->update |= (PU_BONUS);
2714                                                                 break;
2715                                                         }
2716                                                 }
2717                                         }
2718                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2719
2720                                         break;
2721                                 }
2722                                 case RBE_DR_LIFE:
2723                                 {
2724                                         s32b d = damroll(60, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
2725                                         bool resist_drain;
2726
2727                                         obvious = TRUE;
2728
2729                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2730
2731                                         if (p_ptr->is_dead || CHECK_MULTISHADOW()) break;
2732
2733                                         resist_drain = !drain_exp(d, d / 10, 50);
2734
2735                                         /* Heal the attacker? */
2736                                         if (p_ptr->mimic_form)
2737                                         {
2738                                                 if (mimic_info[p_ptr->mimic_form].MIMIC_FLAGS & MIMIC_IS_NONLIVING)
2739                                                         resist_drain = TRUE;
2740                                         }
2741                                         else
2742                                         {
2743                                                 switch (p_ptr->prace)
2744                                                 {
2745                                                 case RACE_ZOMBIE:
2746                                                 case RACE_VAMPIRE:
2747                                                 case RACE_SPECTRE:
2748                                                 case RACE_SKELETON:
2749                                                 case RACE_DEMON:
2750                                                 case RACE_GOLEM:
2751                                                 case RACE_ANDROID:
2752                                                         resist_drain = TRUE;
2753                                                         break;
2754                                                 }
2755                                         }
2756
2757                                         if ((damage > 5) && !resist_drain)
2758                                         {
2759                                                 bool did_heal = FALSE;
2760
2761                                                 if (m_ptr->hp < m_ptr->maxhp) did_heal = TRUE;
2762
2763                                                 /* Heal */
2764                                                 m_ptr->hp += damroll(4, damage / 6);
2765                                                 if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
2766
2767                                                 /* Redraw (later) if needed */
2768                                                 if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
2769                                                 if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
2770
2771                                                 /* Special message */
2772                                                 if (m_ptr->ml && did_heal)
2773                                                 {
2774                                                         msg_format(_("%sは体力を回復したようだ。", "%^s appears healthier."), m_name);
2775                                                 }
2776                                         }
2777
2778                                         break;
2779                                 }
2780                                 case RBE_DR_MANA:
2781                                 {
2782                                         obvious = TRUE;
2783
2784                                         if (CHECK_MULTISHADOW())
2785                                         {
2786                                                 msg_print(_("攻撃は幻影に命中し、あなたには届かなかった。", "The attack hits Shadow, you are unharmed!"));
2787                                         }
2788                                         else
2789                                         {
2790                                                 do_cut = 0;
2791
2792                                                 p_ptr->csp -= damage;
2793                                                 if (p_ptr->csp < 0)
2794                                                 {
2795                                                         p_ptr->csp = 0;
2796                                                         p_ptr->csp_frac = 0;
2797                                                 }
2798
2799                                                 p_ptr->redraw |= (PR_MANA);
2800                                         }
2801
2802                                         /* Learn about the player */
2803                                         update_smart_learn(m_idx, DRS_MANA);
2804
2805                                         break;
2806                                 }
2807                                 case RBE_INERTIA:
2808                                 {
2809                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2810
2811                                         if (p_ptr->is_dead) break;
2812
2813                                         /* Decrease speed */
2814                                         if (CHECK_MULTISHADOW())
2815                                         {
2816                                                 /* Do nothing */
2817                                         }
2818                                         else
2819                                         {
2820                                                 if (set_slow((p_ptr->slow + 4 + randint0(rlev / 10)), FALSE))
2821                                                 {
2822                                                         obvious = TRUE;
2823                                                 }
2824                                         }
2825
2826                                         break;
2827                                 }
2828                                 case RBE_STUN:
2829                                 {
2830                                         get_damage += take_hit(DAMAGE_ATTACK, damage, ddesc, -1);
2831
2832                                         if (p_ptr->is_dead) break;
2833
2834                                         /* Decrease speed */
2835                                         if (p_ptr->resist_sound || CHECK_MULTISHADOW())
2836                                         {
2837                                                 /* Do nothing */
2838                                         }
2839                                         else
2840                                         {
2841                                                 if (set_stun(p_ptr->stun + 10 + randint1(r_ptr->level / 4)))
2842                                                 {
2843                                                         obvious = TRUE;
2844                                                 }
2845                                         }
2846
2847                                         break;
2848                                 }
2849                         }
2850
2851                         /* Hack -- only one of cut or stun */
2852                         if (do_cut && do_stun)
2853                         {
2854                                 /* Cancel cut */
2855                                 if (randint0(100) < 50)
2856                                 {
2857                                         do_cut = 0;
2858                                 }
2859
2860                                 /* Cancel stun */
2861                                 else
2862                                 {
2863                                         do_stun = 0;
2864                                 }
2865                         }
2866
2867                         /* Handle cut */
2868                         if (do_cut)
2869                         {
2870                                 int cut_plus = 0;
2871
2872                                 /* Critical hit (zero if non-critical) */
2873                                 tmp = monster_critical(d_dice, d_side, damage);
2874
2875                                 /* Roll for damage */
2876                                 switch (tmp)
2877                                 {
2878                                         case 0: cut_plus = 0; break;
2879                                         case 1: cut_plus = randint1(5); break;
2880                                         case 2: cut_plus = randint1(5) + 5; break;
2881                                         case 3: cut_plus = randint1(20) + 20; break;
2882                                         case 4: cut_plus = randint1(50) + 50; break;
2883                                         case 5: cut_plus = randint1(100) + 100; break;
2884                                         case 6: cut_plus = 300; break;
2885                                         default: cut_plus = 500; break;
2886                                 }
2887
2888                                 /* Apply the cut */
2889                                 if (cut_plus) (void)set_cut(p_ptr->cut + cut_plus);
2890                         }
2891
2892                         /* Handle stun */
2893                         if (do_stun)
2894                         {
2895                                 int stun_plus = 0;
2896
2897                                 /* Critical hit (zero if non-critical) */
2898                                 tmp = monster_critical(d_dice, d_side, damage);
2899
2900                                 /* Roll for damage */
2901                                 switch (tmp)
2902                                 {
2903                                         case 0: stun_plus = 0; break;
2904                                         case 1: stun_plus = randint1(5); break;
2905                                         case 2: stun_plus = randint1(5) + 10; break;
2906                                         case 3: stun_plus = randint1(10) + 20; break;
2907                                         case 4: stun_plus = randint1(15) + 30; break;
2908                                         case 5: stun_plus = randint1(20) + 40; break;
2909                                         case 6: stun_plus = 80; break;
2910                                         default: stun_plus = 150; break;
2911                                 }
2912
2913                                 /* Apply the stun */
2914                                 if (stun_plus) (void)set_stun(p_ptr->stun + stun_plus);
2915                         }
2916
2917                         if (explode)
2918                         {
2919                                 sound(SOUND_EXPLODE);
2920
2921                                 if (mon_take_hit(m_idx, m_ptr->hp + 1, &fear, NULL))
2922                                 {
2923                                         blinked = FALSE;
2924                                         alive = FALSE;
2925                                 }
2926                         }
2927
2928                         if (touched)
2929                         {
2930                                 if (p_ptr->sh_fire && alive && !p_ptr->is_dead)
2931                                 {
2932                                         if (!(r_ptr->flagsr & RFR_EFF_IM_FIRE_MASK))
2933                                         {
2934                                                 HIT_POINT dam = damroll(2, 6);
2935
2936                                                 /* Modify the damage */
2937                                                 dam = mon_damage_mod(m_ptr, dam, FALSE);
2938
2939 #ifdef JP
2940                                                 msg_format("%^sは突然熱くなった！", m_name);
2941                                                 if (mon_take_hit(m_idx, dam, &fear,
2942                                                     "は灰の山になった。"))
2943 #else
2944                                                 msg_format("%^s is suddenly very hot!", m_name);
2945
2946                                                 if (mon_take_hit(m_idx, dam, &fear,
2947                                                     " turns into a pile of ash."))
2948 #endif
2949
2950                                                 {
2951                                                         blinked = FALSE;
2952                                                         alive = FALSE;
2953                                                 }
2954                                         }
2955                                         else
2956                                         {
2957                                                 if (is_original_ap_and_seen(m_ptr))
2958                                                         r_ptr->r_flagsr |= (r_ptr->flagsr & RFR_EFF_IM_FIRE_MASK);
2959                                         }
2960                                 }
2961
2962                                 if (p_ptr->sh_elec && alive && !p_ptr->is_dead)
2963                                 {
2964                                         if (!(r_ptr->flagsr & RFR_EFF_IM_ELEC_MASK))
2965                                         {
2966                                                 HIT_POINT dam = damroll(2, 6);
2967
2968                                                 /* Modify the damage */
2969                                                 dam = mon_damage_mod(m_ptr, dam, FALSE);
2970
2971 #ifdef JP
2972                                                 msg_format("%^sは電撃をくらった！", m_name);
2973                                                 if (mon_take_hit(m_idx, dam, &fear,
2974                                                     "は燃え殻の山になった。"))
2975 #else
2976                                                 msg_format("%^s gets zapped!", m_name);
2977
2978                                                 if (mon_take_hit(m_idx, dam, &fear,
2979                                                     " turns into a pile of cinder."))
2980 #endif
2981
2982                                                 {
2983                                                         blinked = FALSE;
2984                                                         alive = FALSE;
2985                                                 }
2986                                         }
2987                                         else
2988                                         {
2989                                                 if (is_original_ap_and_seen(m_ptr))
2990                                                         r_ptr->r_flagsr |= (r_ptr->flagsr & RFR_EFF_IM_ELEC_MASK);
2991                                         }
2992                                 }
2993
2994                                 if (p_ptr->sh_cold && alive && !p_ptr->is_dead)
2995                                 {
2996                                         if (!(r_ptr->flagsr & RFR_EFF_IM_COLD_MASK))
2997                                         {
2998                                                 HIT_POINT dam = damroll(2, 6);
2999
3000                                                 /* Modify the damage */
3001                                                 dam = mon_damage_mod(m_ptr, dam, FALSE);
3002
3003 #ifdef JP
3004                                                 msg_format("%^sは冷気をくらった！", m_name);
3005                                                 if (mon_take_hit(m_idx, dam, &fear,
3006                                                     "は凍りついた。"))
3007 #else
3008                                                 msg_format("%^s is very cold!", m_name);
3009
3010                                                 if (mon_take_hit(m_idx, dam, &fear,
3011                                                     " was frozen."))
3012 #endif
3013
3014                                                 {
3015                                                         blinked = FALSE;
3016                                                         alive = FALSE;
3017                                                 }
3018                                         }
3019                                         else
3020                                         {
3021                                                 if (is_original_ap_and_seen(m_ptr))
3022                                                         r_ptr->r_flagsr |= (r_ptr->flagsr & RFR_EFF_IM_COLD_MASK);
3023                                         }
3024                                 }
3025
3026                                 /* by henkma */
3027                                 if (p_ptr->dustrobe && alive && !p_ptr->is_dead)
3028                                 {
3029                                         if (!(r_ptr->flagsr & RFR_EFF_RES_SHAR_MASK))
3030                                         {
3031                                                 HIT_POINT dam = damroll(2, 6);
3032
3033                                                 /* Modify the damage */
3034                                                 dam = mon_damage_mod(m_ptr, dam, FALSE);
3035
3036 #ifdef JP
3037                                                 msg_format("%^sは鏡の破片をくらった！", m_name);
3038                                                 if (mon_take_hit(m_idx, dam, &fear,
3039                                                     "はズタズタになった。"))
3040 #else
3041                                                 msg_format("%^s gets zapped!", m_name);
3042
3043                                                 if (mon_take_hit(m_idx, dam, &fear,
3044                                                     " had torn to pieces."))
3045 #endif
3046                                                 {
3047                                                         blinked = FALSE;
3048                                                         alive = FALSE;
3049                                                 }
3050                                         }
3051                                         else
3052                                         {
3053                                                 if (is_original_ap_and_seen(m_ptr))
3054                                                         r_ptr->r_flagsr |= (r_ptr->flagsr & RFR_EFF_RES_SHAR_MASK);
3055                                         }
3056
3057                                         if (is_mirror_grid(&cave[p_ptr->y][p_ptr->x]))
3058                                         {
3059                                                 teleport_player(10, 0L);
3060                                         }
3061                                 }
3062
3063                                 if (p_ptr->tim_sh_holy && alive && !p_ptr->is_dead)
3064                                 {
3065                                         if (r_ptr->flags3 & RF3_EVIL)
3066                                         {
3067                                                 if (!(r_ptr->flagsr & RFR_RES_ALL))
3068                                                 {
3069                                                         HIT_POINT dam = damroll(2, 6);
3070
3071                                                         /* Modify the damage */
3072                                                         dam = mon_damage_mod(m_ptr, dam, FALSE);
3073
3074 #ifdef JP
3075                                                         msg_format("%^sは聖なるオーラで傷ついた！", m_name);
3076                                                         if (mon_take_hit(m_idx, dam, &fear,
3077                                                             "は倒れた。"))
3078 #else
3079                                                         msg_format("%^s is injured by holy power!", m_name);
3080
3081                                                         if (mon_take_hit(m_idx, dam, &fear,
3082                                                             " is destroyed."))
3083 #endif
3084                                                         {
3085                                                                 blinked = FALSE;
3086                                                                 alive = FALSE;
3087                                                         }
3088                                                         if (is_original_ap_and_seen(m_ptr))
3089                                                                 r_ptr->r_flags3 |= RF3_EVIL;
3090                                                 }
3091                                                 else
3092                                                 {
3093                                                         if (is_original_ap_and_seen(m_ptr))
3094                                                                 r_ptr->r_flagsr |= RFR_RES_ALL;
3095                                                 }
3096                                         }
3097                                 }
3098
3099                                 if (p_ptr->tim_sh_touki && alive && !p_ptr->is_dead)
3100                                 {
3101                                         if (!(r_ptr->flagsr & RFR_RES_ALL))
3102                                         {
3103                                                 HIT_POINT dam = damroll(2, 6);
3104
3105                                                 /* Modify the damage */
3106                                                 dam = mon_damage_mod(m_ptr, dam, FALSE);
3107
3108 #ifdef JP
3109                                                 msg_format("%^sが鋭い闘気のオーラで傷ついた！", m_name);
3110                                                 if (mon_take_hit(m_idx, dam, &fear,
3111                                                     "は倒れた。"))
3112 #else
3113                                                 msg_format("%^s is injured by the Force", m_name);
3114
3115                                                 if (mon_take_hit(m_idx, dam, &fear,
3116                                                     " is destroyed."))
3117 #endif
3118
3119                                                 {
3120                                                         blinked = FALSE;
3121                                                         alive = FALSE;
3122                                                 }
3123                                         }
3124                                         else
3125                                         {
3126                                                 if (is_original_ap_and_seen(m_ptr))
3127                                                         r_ptr->r_flagsr |= RFR_RES_ALL;
3128                                         }
3129                                 }
3130
3131                                 if (hex_spelling(HEX_SHADOW_CLOAK) && alive && !p_ptr->is_dead)
3132                                 {
3133                                         HIT_POINT dam = 1;
3134                                         object_type *o_armed_ptr = &inventory[INVEN_RARM];
3135
3136                                         if (!(r_ptr->flagsr & RFR_RES_ALL || r_ptr->flagsr & RFR_RES_DARK))
3137                                         {
3138                                                 if (o_armed_ptr->k_idx)
3139                                                 {
3140                                                         int basedam = ((o_armed_ptr->dd + p_ptr->to_dd[0]) * (o_armed_ptr->ds + p_ptr->to_ds[0] + 1));
3141                                                         dam = basedam / 2 + o_armed_ptr->to_d + p_ptr->to_d[0];
3142                                                 }
3143
3144                                                 /* Cursed armor makes damages doubled */
3145                                                 o_armed_ptr = &inventory[INVEN_BODY];
3146                                                 if ((o_armed_ptr->k_idx) && object_is_cursed(o_armed_ptr)) dam *= 2;
3147
3148                                                 /* Modify the damage */
3149                                                 dam = mon_damage_mod(m_ptr, dam, FALSE);
3150
3151 #ifdef JP
3152                                                 msg_format("影のオーラが%^sに反撃した！", m_name);
3153                                                 if (mon_take_hit(m_idx, dam, &fear, "は倒れた。"))
3154 #else
3155                                                 msg_format("Enveloped shadows attack %^s.", m_name);
3156
3157                                                 if (mon_take_hit(m_idx, dam, &fear, " is destroyed."))
3158 #endif
3159                                                 {
3160                                                         blinked = FALSE;
3161                                                         alive = FALSE;
3162                                                 }
3163                                                 else /* monster does not dead */
3164                                                 {
3165                                                         int j;
3166                                                         BIT_FLAGS flg = PROJECT_STOP | PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL;
3167                                                         EFFECT_ID typ[4][2] = {
3168                                                                 { INVEN_HEAD, GF_OLD_CONF },
3169                                                                 { INVEN_LARM,  GF_OLD_SLEEP },
3170                                                                 { INVEN_HANDS, GF_TURN_ALL },
3171                                                                 { INVEN_FEET, GF_OLD_SLOW }
3172                                                         };
3173
3174                                                         /* Some cursed armours gives an extra effect */
3175                                                         for (j = 0; j < 4; j++)
3176                                                         {
3177                                                                 o_armed_ptr = &inventory[typ[j][0]];
3178                                                                 if ((o_armed_ptr->k_idx) && object_is_cursed(o_armed_ptr) && object_is_armour(o_armed_ptr))
3179                                                                         project(0, 0, m_ptr->fy, m_ptr->fx, (p_ptr->lev * 2), typ[j][1], flg, -1);
3180                                                         }
3181                                                 }
3182                                         }
3183                                         else
3184                                         {
3185                                                 if (is_original_ap_and_seen(m_ptr))
3186                                                         r_ptr->r_flagsr |= (RFR_RES_ALL | RFR_RES_DARK);
3187                                         }
3188                                 }
3189                         }
3190                 }
3191
3192                 /* Monster missed player */
3193                 else
3194                 {
3195                         /* Analyze failed attacks */
3196                         switch (method)
3197                         {
3198                                 case RBM_HIT:
3199                                 case RBM_TOUCH:
3200                                 case RBM_PUNCH:
3201                                 case RBM_KICK:
3202                                 case RBM_CLAW:
3203                                 case RBM_BITE:
3204                                 case RBM_STING:
3205                                 case RBM_SLASH:
3206                                 case RBM_BUTT:
3207                                 case RBM_CRUSH:
3208                                 case RBM_ENGULF:
3209                                 case RBM_CHARGE:
3210
3211                                 /* Visible monsters */
3212                                 if (m_ptr->ml)
3213                                 {
3214                                         /* Disturbing */
3215                                         disturb(TRUE, TRUE);
3216
3217 #ifdef JP
3218                                         if (abbreviate)
3219                                             msg_format("%sかわした。", (p_ptr->special_attack & ATTACK_SUIKEN) ? "奇妙な動きで" : "");
3220                                         else
3221                                             msg_format("%s%^sの攻撃をかわした。", (p_ptr->special_attack & ATTACK_SUIKEN) ? "奇妙な動きで" : "", m_name);
3222                                         abbreviate = 1;/*２回目以降は省略 */
3223 #else
3224                                         msg_format("%^s misses you.", m_name);
3225 #endif
3226
3227                                 }
3228                                 damage = 0;
3229
3230                                 break;
3231                         }
3232                 }
3233
3234
3235                 /* Analyze "visible" monsters only */
3236                 if (is_original_ap_and_seen(m_ptr) && !do_silly_attack)
3237                 {
3238                         /* Count "obvious" attacks (and ones that cause damage) */
3239                         if (obvious || damage || (r_ptr->r_blows[ap_cnt] > 10))
3240                         {
3241                                 /* Count attacks of this type */
3242                                 if (r_ptr->r_blows[ap_cnt] < MAX_UCHAR)
3243                                 {
3244                                         r_ptr->r_blows[ap_cnt]++;
3245                                 }
3246                         }
3247                 }
3248
3249                 if (p_ptr->riding && damage)
3250                 {
3251                         char m_steed_name[80];
3252                         monster_desc(m_steed_name, &m_list[p_ptr->riding], 0);
3253                         if (rakuba((damage > 200) ? 200 : damage, FALSE))
3254                         {
3255                                 msg_format(_("%^sから落ちてしまった！", "You have fallen from %s."), m_steed_name);
3256                         }
3257                 }
3258
3259                 if (p_ptr->special_defense & NINJA_KAWARIMI)
3260                 {
3261                         if (kawarimi(FALSE)) return TRUE;
3262                 }
3263         }
3264
3265         /* Hex - revenge damage stored */
3266         revenge_store(get_damage);
3267
3268         if ((p_ptr->tim_eyeeye || hex_spelling(HEX_EYE_FOR_EYE))
3269                 && get_damage > 0 && !p_ptr->is_dead)
3270         {
3271 #ifdef JP
3272                 msg_format("攻撃が%s自身を傷つけた！", m_name);
3273 #else
3274                 char m_name_self[80];
3275
3276                 /* hisself */
3277                 monster_desc(m_name_self, m_ptr, MD_PRON_VISIBLE | MD_POSSESSIVE | MD_OBJECTIVE);
3278
3279                 msg_format("The attack of %s has wounded %s!", m_name, m_name_self);
3280 #endif
3281                 project(0, 0, m_ptr->fy, m_ptr->fx, get_damage, GF_MISSILE, PROJECT_KILL, -1);
3282                 if (p_ptr->tim_eyeeye) set_tim_eyeeye(p_ptr->tim_eyeeye-5, TRUE);
3283         }
3284
3285         if ((p_ptr->counter || (p_ptr->special_defense & KATA_MUSOU)) && alive && !p_ptr->is_dead && m_ptr->ml && (p_ptr->csp > 7))
3286         {
3287                 char m_target_name[80];
3288                 monster_desc(m_target_name, m_ptr, 0);
3289
3290                 p_ptr->csp -= 7;
3291                 msg_format(_("%^sに反撃した！", "Your counterattack to %s!"), m_target_name);
3292                 py_attack(m_ptr->fy, m_ptr->fx, HISSATSU_COUNTER);
3293                 fear = FALSE;
3294
3295                 /* Redraw mana */
3296                 p_ptr->redraw |= (PR_MANA);
3297         }
3298
3299         /* Blink away */
3300         if (blinked && alive && !p_ptr->is_dead)
3301         {
3302                 if (teleport_barrier(m_idx))
3303                 {
3304                         msg_print(_("泥棒は笑って逃げ...ようとしたがバリアに防がれた。", "The thief flees laughing...? But magic barrier obstructs it."));
3305                 }
3306                 else
3307                 {
3308                         msg_print(_("泥棒は笑って逃げた！", "The thief flees laughing!"));
3309                         teleport_away(m_idx, MAX_SIGHT * 2 + 5, 0L);
3310                 }
3311         }
3312
3313
3314         /* Always notice cause of death */
3315         if (p_ptr->is_dead && (r_ptr->r_deaths < MAX_SHORT) && !p_ptr->inside_arena)
3316         {
3317                 r_ptr->r_deaths++;
3318         }
3319
3320         if (m_ptr->ml && fear && alive && !p_ptr->is_dead)
3321         {
3322                 sound(SOUND_FLEE);
3323                 msg_format(_("%^sは恐怖で逃げ出した！", "%^s flees in terror!"), m_name);
3324         }
3325
3326         if (p_ptr->special_defense & KATA_IAI)
3327         {
3328                 set_action(ACTION_NONE);
3329         }
3330
3331         /* Assume we attacked */
3332         return (TRUE);
3333 }