src/melee1.c

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