src/mspells2.c

   1 /* File: mspells2.c */
   2
   3 /* Purpose: Monster spells (attack monster) */
   4
   5 /*
   6  * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke
   7  *
   8  * This software may be copied and distributed for educational, research, and
   9  * not for profit purposes provided that this copyright and statement are
  10  * included in all such copies.
  11  */
  12
  13 #include "angband.h"
  14
  15
  16 /*
  17  * Monster casts a breath (or ball) attack at another monster.
  18  * Pass over any monsters that may be in the way
  19  * Affect grids, objects, monsters, and the player
  20  */
  21 static void monst_breath_monst(int m_idx, int y, int x, int typ, int dam_hp, int rad, bool breath, int monspell, bool learnable)
  22 {
  23         int flg = PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_MONSTER;
  24
  25         monster_type *m_ptr = &m_list[m_idx];
  26         monster_race *r_ptr = &r_info[m_ptr->r_idx];
  27
  28         /* Determine the radius of the blast */
  29         if (rad < 1 && breath) rad = (r_ptr->flags2 & RF2_POWERFUL) ? 3 : 2;
  30
  31         /* Handle breath attacks */
  32         if (breath) rad = 0 - rad;
  33
  34         if (typ == GF_ROCKET) flg |= PROJECT_STOP;
  35
  36         (void)project(m_idx, rad, y, x, dam_hp, typ, flg, (learnable ? monspell : -1));
  37 }
  38
  39
  40 /*
  41  * Monster casts a bolt at another monster
  42  * Stop if we hit a monster
  43  * Affect monsters and the player
  44  */
  45 static void monst_bolt_monst(int m_idx, int y, int x, int typ, int dam_hp, int monspell, bool learnable)
  46 {
  47         int flg = PROJECT_STOP | PROJECT_KILL | PROJECT_MONSTER | PROJECT_REFLECTABLE;
  48
  49         (void)project(m_idx, 0, y, x, dam_hp, typ, flg, (learnable ? monspell : -1));
  50 }
  51
  52 static void monst_beam_monst(int m_idx, int y, int x, int typ, int dam_hp, int monspell, bool learnable)
  53 {
  54         int flg = PROJECT_BEAM | PROJECT_KILL | PROJECT_THRU | PROJECT_MONSTER;
  55
  56         (void)project(m_idx, 0, y, x, dam_hp, typ, flg, (learnable ? monspell : -1));
  57 }
  58
  59 /*
  60  * Determine if a beam spell will hit the target.
  61  */
  62 static bool direct_beam(int y1, int x1, int y2, int x2, monster_type *m_ptr)
  63 {
  64         bool hit2 = FALSE;
  65         int i, y, x;
  66
  67         int grid_n = 0;
  68         u16b grid_g[512];
  69
  70         bool friend = is_pet(m_ptr);
  71
  72         /* Check the projection path */
  73         grid_n = project_path(grid_g, MAX_RANGE, y1, x1, y2, x2, PROJECT_THRU);
  74
  75         /* No grid is ever projectable from itself */
  76         if (!grid_n) return (FALSE);
  77
  78         for (i = 0; i < grid_n; i++)
  79         {
  80                 y = GRID_Y(grid_g[i]);
  81                 x = GRID_X(grid_g[i]);
  82
  83                 if (y == y2 && x == x2)
  84                         hit2 = TRUE;
  85                 else if (friend && cave[y][x].m_idx > 0 &&
  86                          !are_enemies(m_ptr, &m_list[cave[y][x].m_idx]))
  87                 {
  88                         /* Friends don't shoot friends */
  89                         return FALSE;
  90                 }
  91
  92                 if (friend && y == py && x == px)
  93                         return FALSE;
  94         }
  95         if (!hit2)
  96                 return FALSE;
  97         return TRUE;
  98 }
  99
 100 static bool breath_direct(int y1, int x1, int y2, int x2, int rad, bool disint_ball, bool friend)
 101 {
 102         /* Must be the same as projectable() */
 103
 104         int i, y, x;
 105
 106         int grid_n = 0;
 107         u16b grid_g[512];
 108
 109         int grids = 0;
 110         byte gx[1024], gy[1024];
 111         byte gm[32];
 112         int gm_rad = rad;
 113
 114         bool hit2 = FALSE;
 115         bool hityou = FALSE;
 116
 117         /* Check the projection path */
 118         grid_n = project_path(grid_g, MAX_RANGE, y1, x1, y2, x2, disint_ball ? PROJECT_DISI : 0);
 119         breath_shape(grid_g, grid_n, &grids, gx, gy, gm, &gm_rad, rad, y1, x1, y2, x2, disint_ball, FALSE);
 120
 121         for (i = 0; i < grids; i++)
 122         {
 123                 /* Extract the location */
 124                 y = gy[i];
 125                 x = gx[i];
 126
 127                 if (y == y2 && x == x2)
 128                         hit2 = TRUE;
 129                 if (y == py && x == px)
 130                         hityou = TRUE;
 131         }
 132         if (!hit2)
 133                 return FALSE;
 134         if (friend && hityou)
 135                 return FALSE;
 136         return TRUE;
 137 }
 138
 139 /*
 140  * Monster tries to 'cast a spell' (or breath, etc)
 141  * at another monster.
 142  *
 143  * The player is only disturbed if able to be affected by the spell.
 144  */
 145 bool monst_spell_monst(int m_idx)
 146 {
 147         int y = 0, x = 0;
 148         int i, k, t_idx = 0;
 149         int thrown_spell, count = 0;
 150         int rlev;
 151         int dam = 0;
 152         int start;
 153         int plus = 1;
 154         u32b p_mode = 0L, u_mode = 0L;
 155         int s_num_6 = (easy_band ? 2 : 6);
 156         int s_num_4 = (easy_band ? 1 : 4);
 157
 158         byte spell[96], num = 0;
 159
 160         char m_name[160];
 161         char t_name[160];
 162         char m_poss[160];
 163         char ddesc[160];
 164
 165         monster_type *m_ptr = &m_list[m_idx];
 166         monster_type *t_ptr = NULL;
 167
 168         monster_race *r_ptr = &r_info[m_ptr->r_idx];
 169         monster_race *tr_ptr = NULL;
 170
 171         u32b f4, f5, f6;
 172
 173         bool wake_up = FALSE;
 174         bool fear = FALSE;
 175
 176         bool blind = (p_ptr->blind ? TRUE : FALSE);
 177
 178         bool see_m = m_ptr->ml;
 179         bool maneable = player_has_los_bold(m_ptr->fy, m_ptr->fx);
 180         bool learnable = (see_m && maneable && !world_monster);
 181         bool see_t;
 182         bool see_either;
 183         bool see_both;
 184         bool known;
 185
 186         bool pet = is_pet(m_ptr);
 187
 188         /* Prepare flags for summoning */
 189         if (pet) p_mode |= PM_FORCE_PET;
 190         if (!pet) u_mode |= PM_ALLOW_UNIQUE;
 191
 192         /* Cannot cast spells when confused */
 193         if (m_ptr->confused) return (FALSE);
 194
 195         /* Extract the racial spell flags */
 196         f4 = r_ptr->flags4;
 197         f5 = r_ptr->flags5;
 198         f6 = r_ptr->flags6;
 199
 200         /* Target is given for pet? */
 201         if (pet_t_m_idx && pet)
 202         {
 203                 t_idx = pet_t_m_idx;
 204                 t_ptr = &m_list[t_idx];
 205
 206                 /* Cancel if not projectable (for now) */
 207                 if (!projectable(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx))
 208                 {
 209                         t_idx = 0;
 210                 }
 211         }
 212
 213         /* Is there counter attack target? */
 214         if (!t_idx && m_ptr->target_y)
 215         {
 216                 t_idx = cave[m_ptr->target_y][m_ptr->target_x].m_idx;
 217
 218                 if (t_idx)
 219                 {
 220                         t_ptr = &m_list[t_idx];
 221
 222                         /* Cancel if neither enemy nor a given target */
 223                         if (t_idx != pet_t_m_idx &&
 224                             !are_enemies(m_ptr, t_ptr))
 225                         {
 226                                 t_idx = 0;
 227                         }
 228
 229                         /* Allow only summoning etc.. if not projectable */
 230                         else if (!projectable(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx))
 231                         {
 232                                 f4 &= (RF4_INDIRECT_MASK);
 233                                 f5 &= (RF5_INDIRECT_MASK);
 234                                 f6 &= (RF6_INDIRECT_MASK);
 235                         }
 236                 }
 237         }
 238
 239         /* Look for enemies normally */
 240         if (!t_idx)
 241         {
 242                 bool success = FALSE;
 243
 244                 if (p_ptr->inside_battle)
 245                 {
 246                         start = randint1(m_max-1) + m_max;
 247                         if (randint0(2)) plus = -1;
 248                 }
 249                 else start = m_max + 1;
 250
 251                 /* Scan thru all monsters */
 252                 for (i = start; ((i < start + m_max) && (i > start - m_max)); i += plus)
 253                 {
 254                         int dummy = (i % m_max);
 255                         if (!dummy) continue;
 256
 257                         t_idx = dummy;
 258                         t_ptr = &m_list[t_idx];
 259
 260                         /* Skip dead monsters */
 261                         if (!t_ptr->r_idx) continue;
 262
 263                         /* Monster must be 'an enemy' */
 264                         if (!are_enemies(m_ptr, t_ptr)) continue;
 265
 266                         /* Monster must be projectable */
 267                         if (!projectable(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx)) continue;
 268
 269                         /* Get it */
 270                         success = TRUE;
 271                 }
 272
 273                 /* No enemy found */
 274                 if (!success) return FALSE;
 275         }
 276
 277
 278         /* OK -- we've got a target */
 279         y = t_ptr->fy;
 280         x = t_ptr->fx;
 281         tr_ptr = &r_info[t_ptr->r_idx];
 282
 283         /* Forget old counter attack target */
 284         reset_target(m_ptr);
 285
 286         /* Extract the monster level */
 287         rlev = ((r_ptr->level >= 1) ? r_ptr->level : 1);
 288
 289         if (pet)
 290         {
 291                 f4 &= ~(RF4_SHRIEK);
 292                 f6 &= ~(RF6_DARKNESS | RF6_TRAPS);
 293         }
 294
 295         if (dun_level && (!p_ptr->inside_quest || (p_ptr->inside_quest < MIN_RANDOM_QUEST)) && (d_info[dungeon_type].flags1 & DF1_NO_MAGIC))
 296         {
 297                 f4 &= (RF4_NOMAGIC_MASK);
 298                 f5 &= (RF5_NOMAGIC_MASK);
 299                 f6 &= (RF6_NOMAGIC_MASK);
 300         }
 301
 302         if (p_ptr->inside_arena || p_ptr->inside_battle)
 303         {
 304                 f4 &= ~(RF4_SUMMON_MASK);
 305                 f5 &= ~(RF5_SUMMON_MASK);
 306                 f6 &= ~(RF6_SUMMON_MASK);
 307         }
 308         if (p_ptr->inside_battle && !one_in_(3))
 309         {
 310                 f6 &= ~(RF6_HEAL);
 311         }
 312
 313         if (!(p_ptr->pet_extra_flags & PF_TELEPORT) && pet)
 314         {
 315                 f6 &= ~((RF6_BLINK | RF6_TPORT | RF6_TELE_AWAY));
 316         }
 317
 318         if (m_idx == p_ptr->riding)
 319         {
 320                 f4 &= ~(RF4_RIDING_MASK);
 321                 f5 &= ~(RF5_RIDING_MASK);
 322                 f6 &= ~(RF6_RIDING_MASK);
 323         }
 324
 325         if (!(p_ptr->pet_extra_flags & PF_ATTACK_SPELL) && pet)
 326         {
 327                 f4 &= ~(RF4_ATTACK_MASK);
 328                 f5 &= ~(RF5_ATTACK_MASK);
 329                 f6 &= ~(RF6_ATTACK_MASK);
 330         }
 331
 332         if (!(p_ptr->pet_extra_flags & PF_SUMMON_SPELL) && pet)
 333         {
 334                 f4 &= ~(RF4_SUMMON_MASK);
 335                 f5 &= ~(RF5_SUMMON_MASK);
 336                 f6 &= ~(RF6_SUMMON_MASK);
 337         }
 338
 339         /* Prevent collateral damage */
 340         if (!(p_ptr->pet_extra_flags & PF_BALL_SPELL) && pet && (m_idx != p_ptr->riding))
 341         {
 342                 int dist = distance(py, px, y, x);
 343
 344                 /* Expected breath radius */
 345                 int rad = (r_ptr->flags2 & RF2_POWERFUL) ? 3 : 2;
 346
 347                 if (dist <= 2)
 348                 {
 349                         f4 &= ~(RF4_BALL_MASK);
 350                         f5 &= ~(RF5_BALL_MASK);
 351                         f6 &= ~(RF6_BALL_MASK);
 352                 }
 353                 else if(dist <= 4)
 354                 {
 355                         f4 &= ~(RF4_BIG_BALL_MASK);
 356                         f5 &= ~(RF5_BIG_BALL_MASK);
 357                         f6 &= ~(RF6_BIG_BALL_MASK);
 358                 }
 359
 360                 if (((f4 & RF4_BEAM_MASK) ||
 361                      (f5 & RF5_BEAM_MASK) ||
 362                      (f6 & RF6_BEAM_MASK)) &&
 363                     !direct_beam(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx, m_ptr))
 364                 {
 365                         f4 &= ~(RF4_BEAM_MASK);
 366                         f5 &= ~(RF5_BEAM_MASK);
 367                         f6 &= ~(RF6_BEAM_MASK);
 368                 }
 369
 370                 if (((f4 & RF4_BREATH_MASK) ||
 371                      (f5 & RF5_BREATH_MASK) ||
 372                      (f6 & RF6_BREATH_MASK)) &&
 373                     !breath_direct(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx, rad, FALSE, TRUE))
 374                 {
 375                         f4 &= ~(RF4_BREATH_MASK);
 376                         f5 &= ~(RF5_BREATH_MASK);
 377                         f6 &= ~(RF6_BREATH_MASK);
 378                 }
 379                 else if ((f4 & RF4_BR_DISI) &&
 380                          !breath_direct(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx, rad, TRUE, TRUE))
 381                 {
 382                         f4 &= ~(RF4_BR_DISI);
 383                 }
 384         }
 385
 386         /* Remove some spells if necessary */
 387
 388         /* Check for a clean bolt shot */
 389         if (((f4 & RF4_BOLT_MASK) ||
 390              (f5 & RF5_BOLT_MASK) ||
 391              (f6 & RF6_BOLT_MASK)) &&
 392             !(r_ptr->flags2 & RF2_STUPID) &&
 393             !clean_shot(m_ptr->fy, m_ptr->fx, t_ptr->fy, t_ptr->fx, pet))
 394         {
 395                 f4 &= ~(RF4_BOLT_MASK);
 396                 f5 &= ~(RF5_BOLT_MASK);
 397                 f6 &= ~(RF6_BOLT_MASK);
 398         }
 399
 400         /* Check for a possible summon */
 401         if (((f4 & RF4_SUMMON_MASK) ||
 402              (f5 & RF5_SUMMON_MASK) ||
 403              (f6 & RF6_SUMMON_MASK)) &&
 404             !(r_ptr->flags2 & RF2_STUPID) &&
 405             !(summon_possible(t_ptr->fy, t_ptr->fx)))
 406         {
 407                 /* Remove summoning spells */
 408                 f4 &= ~(RF4_SUMMON_MASK);
 409                 f5 &= ~(RF5_SUMMON_MASK);
 410                 f6 &= ~(RF6_SUMMON_MASK);
 411         }
 412
 413         /* Hack -- allow "desperate" spells */
 414         if ((r_ptr->flags2 & RF2_SMART) &&
 415             (m_ptr->hp < m_ptr->maxhp / 10) &&
 416             (randint0(100) < 50))
 417         {
 418                 /* Require intelligent spells */
 419                 f4 &= (RF4_INT_MASK);
 420                 f5 &= (RF5_INT_MASK);
 421                 f6 &= (RF6_INT_MASK);
 422
 423         }
 424
 425         /* No spells left */
 426         if (!f4 && !f5 && !f6) return FALSE;
 427
 428         /* Extract the "inate" spells */
 429         for (k = 0; k < 32; k++)
 430         {
 431                 if (f4 & (1L << k)) spell[num++] = k + 32 * 3;
 432         }
 433
 434         /* Extract the "normal" spells */
 435         for (k = 0; k < 32; k++)
 436         {
 437                 if (f5 & (1L << k)) spell[num++] = k + 32 * 4;
 438         }
 439
 440         /* Extract the "bizarre" spells */
 441         for (k = 0; k < 32; k++)
 442         {
 443                 if (f6 & (1L << k)) spell[num++] = k + 32 * 5;
 444         }
 445
 446         /* No spells left */
 447         if (!num) return (FALSE);
 448
 449         /* Stop if player is dead or gone */
 450         if (!p_ptr->playing || p_ptr->is_dead) return (FALSE);
 451
 452         /* Handle "leaving" */
 453         if (p_ptr->leaving) return (FALSE);
 454
 455         /* Get the monster name (or "it") */
 456         monster_desc(m_name, m_ptr, 0x00);
 457
 458         /* Get the monster possessive ("his"/"her"/"its") */
 459         monster_desc(m_poss, m_ptr, 0x22);
 460
 461         /* Get the target's name (or "it") */
 462         monster_desc(t_name, t_ptr, 0x00);
 463
 464         /* Hack -- Get the "died from" name */
 465         monster_desc(ddesc, m_ptr, 0x88);
 466
 467         /* Choose a spell to cast */
 468         thrown_spell = spell[randint0(num)];
 469
 470         see_t = t_ptr->ml;
 471         see_either = (see_m || see_t);
 472         see_both = (see_m && see_t);
 473
 474         /* Can the player be aware of this attack? */
 475         known = (m_ptr->cdis <= MAX_SIGHT) || (t_ptr->cdis <= MAX_SIGHT);
 476
 477         if (p_ptr->riding && (m_idx == p_ptr->riding)) disturb(1, 0);
 478
 479         /* Check for spell failure (inate attacks never fail) */
 480         if ((thrown_spell >= 128) && m_ptr->stunned && one_in_(2))
 481         {
 482                 disturb(1, 0);
 483                 /* Message */
 484                 if (thrown_spell != (160+7)) /* Not RF6_SPECIAL */
 485                 {
 486 #ifdef JP
 487                         msg_format("%^s¤Ï¼öÊ¸¤ò¾§¤¨¤è¤¦¤È¤·¤¿¤¬¼ºÇÔ¤·¤¿¡£", m_name);
 488 #else
 489                         msg_format("%^s tries to cast a spell, but fails.", m_name);
 490 #endif
 491                 }
 492
 493                 return (TRUE);
 494         }
 495
 496         switch (thrown_spell)
 497         {
 498         /* RF4_SHRIEK */
 499         case 96+0:
 500                 if (known)
 501                 {
 502                         if (see_m)
 503                         {
 504 #ifdef JP
 505                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¶«¤ó¤À¡£", m_name, t_name);
 506 #else
 507                                 msg_format("%^s shrieks at %s.", m_name, t_name);
 508 #endif
 509
 510                         }
 511                         else
 512                         {
 513                                 mon_fight = TRUE;
 514                         }
 515                 }
 516
 517                 wake_up = TRUE;
 518
 519                 break;
 520
 521         /* RF4_XXX1 */
 522         case 96+1:
 523                 /* XXX XXX XXX */
 524                 return FALSE;
 525
 526         /* RF4_DISPEL */
 527         case 96+2:
 528                 return FALSE;
 529
 530         /* RF4_XXX4X4 */
 531         case 96+3:
 532                 if (known)
 533                 {
 534                         if (see_either)
 535                         {
 536                                 disturb(1, 0);
 537
 538                                 if (blind)
 539                                 {
 540 #ifdef JP
 541                                         msg_format("%^s¤¬²¿¤«¤ò¼Í¤Ã¤¿¡£", m_name);
 542 #else
 543                                         msg_format("%^s shoots something.", m_name);
 544 #endif
 545
 546                                 }
 547                                 else
 548                                 {
 549 #ifdef JP
 550                                         msg_format("%^s¤¬%s¤Ë¥í¥±¥Ã¥È¤òÈ¯¼Í¤·¤¿¡£", m_name, t_name);
 551 #else
 552                                         msg_format("%^s fires a rocket at %s.", m_name, t_name);
 553 #endif
 554
 555                                 }
 556                         }
 557                         else
 558                         {
 559                                 mon_fight = TRUE;
 560                         }
 561                 }
 562
 563                 dam = ((m_ptr->hp / 4) > 800 ? 800 : (m_ptr->hp / 4));
 564                 monst_breath_monst(m_idx, y, x, GF_ROCKET,
 565                                    dam, 2, FALSE, MS_ROCKET, learnable);
 566
 567                 break;
 568
 569         /* RF4_SHOOT */
 570         case 96+4:
 571                 if (known)
 572                 {
 573                         if (see_either)
 574                         {
 575                                 if (blind)
 576                                 {
 577 #ifdef JP
 578                                         msg_format("%^s¤¬´ñÌ¯¤Ê²»¤òÈ¯¤·¤¿¡£", m_name);
 579 #else
 580                                         msg_format("%^s makes a strange noise.", m_name);
 581 #endif
 582
 583                                 }
 584                                 else
 585                                 {
 586 #ifdef JP
 587                                         msg_format("%^s¤¬%s¤ËÌð¤òÊü¤Ã¤¿¡£", m_name, t_name);
 588 #else
 589                                         msg_format("%^s fires an arrow at %s.", m_name, t_name);
 590 #endif
 591
 592                                 }
 593                         }
 594                         else
 595                         {
 596                                 mon_fight = TRUE;
 597                         }
 598
 599                         sound(SOUND_SHOOT);
 600                 }
 601
 602                 dam = damroll(r_ptr->blow[0].d_dice, r_ptr->blow[0].d_side);
 603                 monst_bolt_monst(m_idx, y, x, GF_ARROW, dam, MS_SHOOT, learnable);
 604
 605                 break;
 606
 607         /* RF4_XXX2 */
 608         case 96+5:
 609                 /* XXX XXX XXX */
 610                 return FALSE;
 611
 612         /* RF4_XXX3 */
 613         case 96+6:
 614                 /* XXX XXX XXX */
 615                 return FALSE;
 616
 617         /* RF4_XXX4 */
 618         case 96+7:
 619                 /* XXX XXX XXX */
 620                 return FALSE;
 621
 622         /* RF4_BR_ACID */
 623         case 96+8:
 624                 if (known)
 625                 {
 626                         if (see_either)
 627                         {
 628                                 disturb(1, 0);
 629
 630                                 if (blind)
 631                                 {
 632 #ifdef JP
 633                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 634 #else
 635                                         msg_format("%^s breathes.", m_name);
 636 #endif
 637
 638                                 }
 639                                 else
 640                                 {
 641 #ifdef JP
 642                                         msg_format("%^s¤¬%s¤Ë»À¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 643 #else
 644                                         msg_format("%^s breathes acid at %s.", m_name, t_name);
 645 #endif
 646
 647                                 }
 648                         }
 649                         else
 650                         {
 651                                 mon_fight = TRUE;
 652                         }
 653
 654                         sound(SOUND_BREATH);
 655                 }
 656
 657                 dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
 658                 monst_breath_monst(m_idx, y, x, GF_ACID,
 659                                    dam,0, TRUE, MS_BR_ACID, learnable);
 660
 661                 break;
 662
 663         /* RF4_BR_ELEC */
 664         case 96+9:
 665                 if (known)
 666                 {
 667                         if (see_either)
 668                         {
 669                                 disturb(1, 0);
 670
 671                                 if (blind)
 672                                 {
 673 #ifdef JP
 674                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 675 #else
 676                                         msg_format("%^s breathes.", m_name);
 677 #endif
 678
 679                                 }
 680                                 else
 681                                 {
 682 #ifdef JP
 683                                         msg_format("%^s¤¬%s¤Ë°ðºÊ¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 684 #else
 685                                         msg_format("%^s breathes lightning at %s.", m_name, t_name);
 686 #endif
 687
 688                                 }
 689                         }
 690                         else
 691                         {
 692                                 mon_fight = TRUE;
 693                         }
 694
 695                         sound(SOUND_BREATH);
 696                 }
 697
 698                 dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
 699                 monst_breath_monst(m_idx, y, x, GF_ELEC,
 700                                    dam,0, TRUE, MS_BR_ELEC, learnable);
 701
 702                 break;
 703
 704         /* RF4_BR_FIRE */
 705         case 96+10:
 706                 if (known)
 707                 {
 708                         if (see_either)
 709                         {
 710                                 disturb(1, 0);
 711
 712                                 if (blind)
 713                                 {
 714 #ifdef JP
 715                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 716 #else
 717                                         msg_format("%^s breathes.", m_name);
 718 #endif
 719
 720                                 }
 721                                 else
 722                                 {
 723 #ifdef JP
 724                                         msg_format("%^s¤¬%s¤Ë²Ð±ê¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 725 #else
 726                                         msg_format("%^s breathes fire at %s.", m_name, t_name);
 727 #endif
 728
 729                                 }
 730                         }
 731                         else
 732                         {
 733                                 mon_fight = TRUE;
 734                         }
 735
 736                         sound(SOUND_BREATH);
 737                 }
 738
 739                 dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
 740                 monst_breath_monst(m_idx, y, x, GF_FIRE,
 741                                    dam,0, TRUE, MS_BR_FIRE, learnable);
 742
 743                 break;
 744
 745         /* RF4_BR_COLD */
 746         case 96+11:
 747                 if (known)
 748                 {
 749                         if (see_either)
 750                         {
 751                                 disturb(1, 0);
 752
 753                                 if (blind)
 754                                 {
 755 #ifdef JP
 756                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 757 #else
 758                                         msg_format("%^s breathes.", m_name);
 759 #endif
 760
 761                                 }
 762                                 else
 763                                 {
 764 #ifdef JP
 765                                         msg_format("%^s¤¬%s¤ËÎäµ¤¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 766 #else
 767                                         msg_format("%^s breathes frost at %s.", m_name, t_name);
 768 #endif
 769
 770                                 }
 771                         }
 772                         else
 773                         {
 774                                 mon_fight = TRUE;
 775                         }
 776
 777                         sound(SOUND_BREATH);
 778                 }
 779
 780                 dam = ((m_ptr->hp / 3) > 1600 ? 1600 : (m_ptr->hp / 3));
 781                 monst_breath_monst(m_idx, y, x, GF_COLD,
 782                                    dam,0, TRUE, MS_BR_COLD, learnable);
 783                 break;
 784
 785         /* RF4_BR_POIS */
 786         case 96+12:
 787                 if (known)
 788                 {
 789                         if (see_either)
 790                         {
 791                                 disturb(1, 0);
 792
 793                                 if (blind)
 794                                 {
 795 #ifdef JP
 796                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 797 #else
 798                                         msg_format("%^s breathes.", m_name);
 799 #endif
 800
 801                                 }
 802                                 else
 803                                 {
 804 #ifdef JP
 805                                         msg_format("%^s¤¬%s¤Ë¥¬¥¹¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 806 #else
 807                                         msg_format("%^s breathes gas at %s.", m_name, t_name);
 808 #endif
 809
 810                                 }
 811                         }
 812                         else
 813                         {
 814                                 mon_fight = TRUE;
 815                         }
 816
 817                         sound(SOUND_BREATH);
 818                 }
 819
 820                 dam = ((m_ptr->hp / 3) > 800 ? 800 : (m_ptr->hp / 3));
 821                 monst_breath_monst(m_idx, y, x, GF_POIS,
 822                                    dam,0, TRUE, MS_BR_POIS, learnable);
 823
 824                 break;
 825
 826         /* RF4_BR_NETH */
 827         case 96+13:
 828                 if (known)
 829                 {
 830                         if (see_either)
 831                         {
 832                                 disturb(1, 0);
 833
 834                                 if (blind)
 835                                 {
 836 #ifdef JP
 837                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 838 #else
 839                                         msg_format("%^s breathes.", m_name);
 840 #endif
 841
 842                                 }
 843                                 else
 844                                 {
 845 #ifdef JP
 846                                         msg_format("%^s¤¬%s¤ËÃÏ¹ö¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 847 #else
 848                                         msg_format("%^s breathes nether at %s.", m_name, t_name);
 849 #endif
 850
 851                                 }
 852                         }
 853                         else
 854                         {
 855                                 mon_fight = TRUE;
 856                         }
 857
 858                         sound(SOUND_BREATH);
 859                 }
 860
 861                 dam = ((m_ptr->hp / 6) > 550 ? 550 : (m_ptr->hp / 6));
 862                 monst_breath_monst(m_idx, y, x, GF_NETHER,
 863                                    dam,0, TRUE, MS_BR_NETHER, learnable);
 864
 865                 break;
 866
 867         /* RF4_BR_LITE */
 868         case 96+14:
 869                 if (known)
 870                 {
 871                         if (see_either)
 872                         {
 873                                 disturb(1, 0);
 874
 875                                 if (blind)
 876                                 {
 877 #ifdef JP
 878                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 879 #else
 880                                         msg_format("%^s breathes.", m_name);
 881 #endif
 882
 883                                 }
 884                                 else
 885                                 {
 886 #ifdef JP
 887                                         msg_format("%^s¤¬%s¤ËÁ®¸÷¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 888 #else
 889                                         msg_format("%^s breathes light at %s.", m_name, t_name);
 890 #endif
 891
 892                                 }
 893                         }
 894                         else
 895                         {
 896                                 mon_fight = TRUE;
 897                         }
 898
 899                         sound(SOUND_BREATH);
 900                 }
 901
 902                 dam = ((m_ptr->hp / 6) > 400 ? 400 : (m_ptr->hp / 6));
 903                 monst_breath_monst(m_idx, y, x, GF_LITE,
 904                                    dam,0, TRUE, MS_BR_LITE, learnable);
 905
 906                 break;
 907
 908         /* RF4_BR_DARK */
 909         case 96+15:
 910                 if (known)
 911                 {
 912                         if (see_either)
 913                         {
 914                                 disturb(1, 0);
 915
 916                                 if (blind)
 917                                 {
 918 #ifdef JP
 919                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 920 #else
 921                                         msg_format("%^s breathes.", m_name);
 922 #endif
 923
 924                                 }
 925                                 else
 926                                 {
 927 #ifdef JP
 928                                         msg_format("%^s¤¬%s¤Ë°Å¹õ¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 929 #else
 930                                         msg_format("%^s breathes darkness at %s.", m_name, t_name);
 931 #endif
 932
 933                                 }
 934                         }
 935                         else
 936                         {
 937                                 mon_fight = TRUE;
 938                         }
 939
 940                         sound(SOUND_BREATH);
 941                 }
 942
 943                 dam = ((m_ptr->hp / 6) > 400 ? 400 : (m_ptr->hp / 6));
 944                 monst_breath_monst(m_idx, y, x, GF_DARK,
 945                                    dam,0, TRUE, MS_BR_DARK, learnable);
 946
 947                 break;
 948
 949         /* RF4_BR_CONF */
 950         case 96+16:
 951                 if (known)
 952                 {
 953                         if (see_either)
 954                         {
 955                                 disturb(1, 0);
 956
 957                                 if (blind)
 958                                 {
 959 #ifdef JP
 960                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
 961 #else
 962                                         msg_format("%^s breathes.", m_name);
 963 #endif
 964
 965                                 }
 966                                 else
 967                                 {
 968 #ifdef JP
 969                                         msg_format("%^s¤¬%s¤Ëº®Íð¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
 970 #else
 971                                         msg_format("%^s breathes confusion at %s.", m_name, t_name);
 972 #endif
 973
 974                                 }
 975                         }
 976                         else
 977                         {
 978                                 mon_fight = TRUE;
 979                         }
 980
 981                         sound(SOUND_BREATH);
 982                 }
 983
 984                 dam = ((m_ptr->hp / 6) > 450 ? 450 : (m_ptr->hp / 6));
 985                 monst_breath_monst(m_idx, y, x, GF_CONFUSION,
 986                                    dam,0, TRUE, MS_BR_CONF, learnable);
 987
 988                 break;
 989
 990         /* RF4_BR_SOUN */
 991         case 96+17:
 992                 if (known)
 993                 {
 994                         if (see_either)
 995                         {
 996                                 disturb(1, 0);
 997
 998                                 if (m_ptr->r_idx == MON_JAIAN)
 999 #ifdef JP
1000                                         msg_format("¡Ö¥Ü¥©¥¨¡Á¡Á¡Á¡Á¡Á¡Á¡×");
1001 #else
1002                                 msg_format("'Booooeeeeee'");
1003 #endif
1004                                 else if (blind)
1005                                 {
1006 #ifdef JP
1007                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1008 #else
1009                                         msg_format("%^s breathes.", m_name);
1010 #endif
1011
1012                                 }
1013                                 else
1014                                 {
1015 #ifdef JP
1016                                         msg_format("%^s¤¬%s¤Ë¹ì²»¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1017 #else
1018                                         msg_format("%^s breathes sound at %s.", m_name, t_name);
1019 #endif
1020
1021                                 }
1022                         }
1023                         else
1024                         {
1025                                 mon_fight = TRUE;
1026                         }
1027
1028                         sound(SOUND_BREATH);
1029                 }
1030
1031                 dam = ((m_ptr->hp / 6) > 450 ? 450 : (m_ptr->hp / 6));
1032                 monst_breath_monst(m_idx, y, x, GF_SOUND,
1033                                    dam,0, TRUE, MS_BR_SOUND, learnable);
1034
1035                 break;
1036
1037         /* RF4_BR_CHAO */
1038         case 96+18:
1039                 if (known)
1040                 {
1041                         if (see_either)
1042                         {
1043                                 disturb(1, 0);
1044
1045                                 if (blind)
1046                                 {
1047 #ifdef JP
1048                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1049 #else
1050                                         msg_format("%^s breathes.", m_name);
1051 #endif
1052
1053                                 }
1054                                 else
1055                                 {
1056 #ifdef JP
1057                                         msg_format("%^s¤¬%s¤Ë¥«¥ª¥¹¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1058 #else
1059                                         msg_format("%^s breathes chaos at %s.", m_name, t_name);
1060 #endif
1061
1062                                 }
1063                         }
1064                         else
1065                         {
1066                                 mon_fight = TRUE;
1067                         }
1068
1069                         sound(SOUND_BREATH);
1070                 }
1071
1072                 dam = ((m_ptr->hp / 6) > 600 ? 600 : (m_ptr->hp / 6));
1073                 monst_breath_monst(m_idx, y, x, GF_CHAOS,
1074                                    dam,0, TRUE, MS_BR_CHAOS, learnable);
1075
1076                 break;
1077
1078         /* RF4_BR_DISE */
1079         case 96+19:
1080                 if (known)
1081                 {
1082                         if (see_either)
1083                         {
1084                                 disturb(1, 0);
1085
1086                                 if (blind)
1087                                 {
1088 #ifdef JP
1089                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1090 #else
1091                                         msg_format("%^s breathes.", m_name);
1092 #endif
1093
1094                                 }
1095                                 else
1096                                 {
1097 #ifdef JP
1098                                         msg_format("%^s¤¬%s¤ËÎô²½¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1099 #else
1100                                         msg_format("%^s breathes disenchantment at %s.", m_name, t_name);
1101 #endif
1102
1103                                 }
1104                         }
1105                         else
1106                         {
1107                                 mon_fight = TRUE;
1108                         }
1109
1110                         sound(SOUND_BREATH);
1111                 }
1112
1113                 dam = ((m_ptr->hp / 6) > 500 ? 500 : (m_ptr->hp / 6));
1114                 monst_breath_monst(m_idx, y, x, GF_DISENCHANT,
1115                                    dam,0, TRUE, MS_BR_DISEN, learnable);
1116
1117                 break;
1118
1119         /* RF4_BR_NEXU */
1120         case 96+20:
1121                 if (known)
1122                 {
1123                         if (see_either)
1124                         {
1125                                 disturb(1, 0);
1126
1127                                 if (blind)
1128                                 {
1129 #ifdef JP
1130                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1131 #else
1132                                         msg_format("%^s breathes.", m_name);
1133 #endif
1134
1135                                 }
1136                                 else
1137                                 {
1138 #ifdef JP
1139                                         msg_format("%^s¤¬%s¤Ë°ø²Ìº®Íð¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1140 #else
1141                                         msg_format("%^s breathes nexus at %s.", m_name, t_name);
1142 #endif
1143
1144                                 }
1145                         }
1146                         else
1147                         {
1148                                 mon_fight = TRUE;
1149                         }
1150
1151                         sound(SOUND_BREATH);
1152                 }
1153
1154                 dam = ((m_ptr->hp / 3) > 250 ? 250 : (m_ptr->hp / 3));
1155                 monst_breath_monst(m_idx, y, x, GF_NEXUS,
1156                                    dam,0, TRUE, MS_BR_NEXUS, learnable);
1157
1158                 break;
1159
1160         /* RF4_BR_TIME */
1161         case 96+21:
1162                 if (known)
1163                 {
1164                         if (see_either)
1165                         {
1166                                 disturb(1, 0);
1167
1168                                 if (blind)
1169                                 {
1170 #ifdef JP
1171                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1172 #else
1173                                         msg_format("%^s breathes.", m_name);
1174 #endif
1175
1176                                 }
1177                                 else
1178                                 {
1179 #ifdef JP
1180                                         msg_format("%^s¤¬%s¤Ë»þ´ÖµÕÅ¾¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1181 #else
1182                                         msg_format("%^s breathes time at %s.", m_name, t_name);
1183 #endif
1184
1185                                 }
1186                         }
1187                         else
1188                         {
1189                                 mon_fight = TRUE;
1190                         }
1191
1192                         sound(SOUND_BREATH);
1193                 }
1194
1195                 dam = ((m_ptr->hp / 3) > 150 ? 150 : (m_ptr->hp / 3));
1196                 monst_breath_monst(m_idx, y, x, GF_TIME,
1197                                    dam,0, TRUE, MS_BR_TIME, learnable);
1198
1199                 break;
1200
1201         /* RF4_BR_INER */
1202         case 96+22:
1203                 if (known)
1204                 {
1205                         if (see_either)
1206                         {
1207                                 disturb(1, 0);
1208
1209                                 if (blind)
1210                                 {
1211 #ifdef JP
1212                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1213 #else
1214                                         msg_format("%^s breathes.", m_name);
1215 #endif
1216
1217                                 }
1218                                 else
1219                                 {
1220 #ifdef JP
1221                                         msg_format("%^s¤¬%s¤ËÃÙÆß¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1222 #else
1223                                         msg_format("%^s breathes inertia at %s.", m_name, t_name);
1224 #endif
1225
1226                                 }
1227                         }
1228                         else
1229                         {
1230                                 mon_fight = TRUE;
1231                         }
1232
1233                         sound(SOUND_BREATH);
1234                 }
1235
1236                 dam = ((m_ptr->hp / 6) > 200 ? 200 : (m_ptr->hp / 6));
1237                 monst_breath_monst(m_idx, y, x, GF_INERTIA,
1238                                    dam,0, TRUE, MS_BR_INERTIA, learnable);
1239
1240                 break;
1241
1242         /* RF4_BR_GRAV */
1243         case 96+23:
1244                 if (known)
1245                 {
1246                         if (see_either)
1247                         {
1248                                 disturb(1, 0);
1249
1250                                 if (blind)
1251                                 {
1252 #ifdef JP
1253                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1254 #else
1255                                         msg_format("%^s breathes.", m_name);
1256 #endif
1257
1258                                 }
1259                                 else
1260                                 {
1261 #ifdef JP
1262                                         msg_format("%^s¤¬%s¤Ë½ÅÎÏ¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1263 #else
1264                                         msg_format("%^s breathes gravity at %s.", m_name, t_name);
1265 #endif
1266
1267                                 }
1268                         }
1269                         else
1270                         {
1271                                 mon_fight = TRUE;
1272                         }
1273
1274                         sound(SOUND_BREATH);
1275                 }
1276
1277                 dam = ((m_ptr->hp / 3) > 200 ? 200 : (m_ptr->hp / 3));
1278                 monst_breath_monst(m_idx, y, x, GF_GRAVITY,
1279                                    dam,0, TRUE, MS_BR_GRAVITY, learnable);
1280
1281                 break;
1282
1283         /* RF4_BR_SHAR */
1284         case 96+24:
1285                 if (known)
1286                 {
1287                         if (see_either)
1288                         {
1289                                 disturb(1, 0);
1290
1291                                 if (m_ptr->r_idx == MON_BOTEI)
1292 #ifdef JP
1293                                         msg_format("¡Ö¥ÜÄë¥Ó¥ë¥«¥Ã¥¿¡¼¡ª¡ª¡ª¡×");
1294 #else
1295                                 msg_format("'Boty-Build cutter!!!'");
1296 #endif
1297                                 else if (blind)
1298                                 {
1299 #ifdef JP
1300                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1301 #else
1302                                         msg_format("%^s breathes.", m_name);
1303 #endif
1304
1305                                 }
1306                                 else
1307                                 {
1308 #ifdef JP
1309                                         msg_format("%^s¤¬%s¤ËÇËÊÒ¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1310 #else
1311                                         msg_format("%^s breathes shards at %s.", m_name, t_name);
1312 #endif
1313
1314                                 }
1315                         }
1316                         else
1317                         {
1318                                 mon_fight = TRUE;
1319                         }
1320
1321                         sound(SOUND_BREATH);
1322                 }
1323
1324                 dam = ((m_ptr->hp / 6) > 500 ? 500 : (m_ptr->hp / 6));
1325                 monst_breath_monst(m_idx, y, x, GF_SHARDS,
1326                                    dam,0, TRUE, MS_BR_SHARDS, learnable);
1327
1328                 break;
1329
1330         /* RF4_BR_PLAS */
1331         case 96+25:
1332                 if (known)
1333                 {
1334                         if (see_either)
1335                         {
1336                                 disturb(1, 0);
1337
1338                                 if (blind)
1339                                 {
1340 #ifdef JP
1341                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1342 #else
1343                                         msg_format("%^s breathes.", m_name);
1344 #endif
1345
1346                                 }
1347                                 else
1348                                 {
1349 #ifdef JP
1350                                         msg_format("%^s¤¬%s¤Ë¥×¥é¥º¥Þ¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1351 #else
1352                                         msg_format("%^s breathes plasma at %s.", m_name, t_name);
1353 #endif
1354
1355                                 }
1356                         }
1357                         else
1358                         {
1359                                 mon_fight = TRUE;
1360                         }
1361
1362                         sound(SOUND_BREATH);
1363                 }
1364
1365                 dam = ((m_ptr->hp / 6) > 150 ? 150 : (m_ptr->hp / 6));
1366                 monst_breath_monst(m_idx, y, x, GF_PLASMA,
1367                                    dam,0, TRUE, MS_BR_PLASMA, learnable);
1368
1369                 break;
1370
1371         /* RF4_BR_WALL */
1372         case 96+26:
1373                 if (known)
1374                 {
1375                         if (see_either)
1376                         {
1377                                 disturb(1, 0);
1378
1379                                 if (blind)
1380                                 {
1381 #ifdef JP
1382                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1383 #else
1384                                         msg_format("%^s breathes.", m_name);
1385 #endif
1386
1387                                 }
1388                                 else
1389                                 {
1390 #ifdef JP
1391                                         msg_format("%^s¤¬%s¤Ë¥Õ¥©¡¼¥¹¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1392 #else
1393                                         msg_format("%^s breathes force at %s.", m_name, t_name);
1394 #endif
1395
1396                                 }
1397                         }
1398                         else
1399                         {
1400                                 mon_fight = TRUE;
1401                         }
1402
1403                         sound(SOUND_BREATH);
1404                 }
1405
1406                 dam = ((m_ptr->hp / 6) > 200 ? 200 : (m_ptr->hp / 6));
1407                 monst_breath_monst(m_idx, y, x, GF_FORCE,
1408                                    dam,0, TRUE, MS_BR_FORCE, learnable);
1409                 break;
1410
1411         /* RF4_BR_MANA */
1412         case 96+27:
1413                 if (known)
1414                 {
1415                         if (see_either)
1416                         {
1417                                 disturb(1, 0);
1418
1419                                 if (blind)
1420                                 {
1421 #ifdef JP
1422                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1423 #else
1424                                         msg_format("%^s breathes.", m_name);
1425 #endif
1426
1427                                 }
1428                                 else
1429                                 {
1430 #ifdef JP
1431                                         msg_format("%^s¤¬%s¤ËËâÎÏ¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1432 #else
1433                                         msg_format("%^s breathes mana at %s.", m_name, t_name);
1434 #endif
1435
1436                                 }
1437                         }
1438                         else
1439                         {
1440                                 mon_fight = TRUE;
1441                         }
1442
1443                         sound(SOUND_BREATH);
1444                 }
1445
1446                 dam = ((m_ptr->hp / 3) > 250 ? 250 : (m_ptr->hp / 3));
1447                 monst_breath_monst(m_idx, y, x, GF_MANA,
1448                                    dam,0, TRUE, MS_BR_MANA, learnable);
1449
1450                 break;
1451
1452         /* RF4_BA_NUKE */
1453         case 96+28:
1454                 if (known)
1455                 {
1456                         if (see_either)
1457                         {
1458                                 disturb(1, 0);
1459
1460                                 if (blind)
1461                                 {
1462 #ifdef JP
1463                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1464 #else
1465                                         msg_format("%^s mumbles.", m_name);
1466 #endif
1467
1468                                 }
1469                                 else
1470                                 {
1471 #ifdef JP
1472                                         msg_format("%^s¤¬%s¤ËÊü¼ÍÇ½µå¤òÊü¤Ã¤¿¡£", m_name, t_name);
1473 #else
1474                                         msg_format("%^s casts a ball of radiation at %s.", m_name, t_name);
1475 #endif
1476
1477                                 }
1478                         }
1479                         else
1480                         {
1481                                 mon_fight = TRUE;
1482                         }
1483                 }
1484
1485                 dam = (rlev + damroll(10, 6));
1486                 monst_breath_monst(m_idx, y, x, GF_NUKE,
1487                                    dam, 2, FALSE, MS_BALL_NUKE, learnable);
1488
1489                 break;
1490
1491         /* RF4_RF4_BR_NUKE */
1492         case 96+29:
1493                 if (known)
1494                 {
1495                         if (see_either)
1496                         {
1497                                 disturb(1, 0);
1498
1499                                 if (blind)
1500                                 {
1501 #ifdef JP
1502                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1503 #else
1504                                         msg_format("%^s breathes.", m_name);
1505 #endif
1506
1507                                 }
1508                                 else
1509                                 {
1510 #ifdef JP
1511                                         msg_format("%^s¤¬%s¤ËÊü¼ÍÀÇÑ´þÊª¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1512 #else
1513                                         msg_format("%^s breathes toxic waste at %s.", m_name, t_name);
1514 #endif
1515
1516                                 }
1517                         }
1518                         else
1519                         {
1520                                 mon_fight = TRUE;
1521                         }
1522
1523                         sound(SOUND_BREATH);
1524                 }
1525
1526                 dam = ((m_ptr->hp / 3) > 800 ? 800 : (m_ptr->hp / 3));
1527                 monst_breath_monst(m_idx, y, x, GF_NUKE,
1528                                    dam,0, TRUE, MS_BR_NUKE, learnable);
1529                 break;
1530
1531         /* RF4_BA_CHAO */
1532         case 96+30:
1533                 if (known)
1534                 {
1535                         if (see_either)
1536                         {
1537                                 disturb(1, 0);
1538
1539                                 if (blind)
1540                                 {
1541 #ifdef JP
1542                                         msg_format("%^s¤¬¶²¤í¤·¤²¤Ë¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1543 #else
1544                                         msg_format("%^s mumbles frighteningly.", m_name);
1545 #endif
1546
1547                                 }
1548                                 else
1549                                 {
1550 #ifdef JP
1551                                         msg_format("%^s¤¬%s¤Ë½ã¥í¥°¥ë¥¹¤òÊü¤Ã¤¿¡£", m_name, t_name);
1552 #else
1553                                         msg_format("%^s invokes raw Logrus upon %s.", m_name, t_name);
1554 #endif
1555
1556                                 }
1557                         }
1558                         else
1559                         {
1560                                 mon_fight = TRUE;
1561                         }
1562                 }
1563
1564                 dam = (rlev * 2) + damroll(10, 10);
1565                 monst_breath_monst(m_idx, y, x, GF_CHAOS,
1566                                    dam, 4, FALSE, MS_BALL_CHAOS, learnable);
1567
1568                 break;
1569
1570         /* RF4_BR_DISI */
1571         case 96+31:
1572                 if (known)
1573                 {
1574                         if (see_either)
1575                         {
1576                                 disturb(1, 0);
1577
1578                                 if (blind)
1579                                 {
1580 #ifdef JP
1581                                         msg_format("%^s¤¬²¿¤«¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name);
1582 #else
1583                                         msg_format("%^s breathes.", m_name);
1584 #endif
1585
1586                                 }
1587                                 else
1588                                 {
1589 #ifdef JP
1590                                         msg_format("%^s¤¬%s¤ËÊ¬²ò¤Î¥Ö¥ì¥¹¤òÅÇ¤¤¤¿¡£", m_name, t_name);
1591 #else
1592                                         msg_format("%^s breathes disintegration at %s.", m_name, t_name);
1593 #endif
1594
1595                                 }
1596                         }
1597                         else
1598                         {
1599                                 mon_fight = TRUE;
1600                         }
1601
1602                         sound(SOUND_BREATH);
1603                 }
1604
1605                 dam = ((m_ptr->hp / 6) > 150 ? 150 : (m_ptr->hp / 6));
1606                 monst_breath_monst(m_idx, y, x, GF_DISINTEGRATE,
1607                                    dam,0, TRUE, MS_BR_DISI, learnable);
1608                 break;
1609
1610         /* RF5_BA_ACID */
1611         case 128+0:
1612                 if (known)
1613                 {
1614                         if (see_either)
1615                         {
1616                                 disturb(1, 0);
1617
1618                                 if (blind)
1619                                 {
1620 #ifdef JP
1621                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1622 #else
1623                                         msg_format("%^s mumbles.", m_name);
1624 #endif
1625
1626                                 }
1627                                 else
1628                                 {
1629 #ifdef JP
1630                                         msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥¢¥·¥Ã¥É¡¦¥Ü¡¼¥ë¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
1631 #else
1632                                         msg_format("%^s casts an acid ball at %s.", m_name, t_name);
1633 #endif
1634
1635                                 }
1636                         }
1637                         else
1638                         {
1639                                 mon_fight = TRUE;
1640                         }
1641                 }
1642
1643                 dam = (randint1(rlev * 3) + 15) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
1644                 monst_breath_monst(m_idx, y, x, GF_ACID, dam, 2, FALSE, MS_BALL_ACID, learnable);
1645
1646                 break;
1647
1648         /* RF5_BA_ELEC */
1649         case 128+1:
1650                 if (known)
1651                 {
1652                         if (see_either)
1653                         {
1654                                 disturb(1, 0);
1655
1656                                 if (blind)
1657                                 {
1658 #ifdef JP
1659                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1660 #else
1661                                         msg_format("%^s mumbles.", m_name);
1662 #endif
1663
1664                                 }
1665                                 else
1666                                 {
1667 #ifdef JP
1668                                         msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥µ¥ó¥À¡¼¡¦¥Ü¡¼¥ë¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
1669 #else
1670                                         msg_format("%^s casts a lightning ball at %s.", m_name, t_name);
1671 #endif
1672
1673                                 }
1674                         }
1675                         else
1676                         {
1677                                 mon_fight = TRUE;
1678                         }
1679                 }
1680
1681                 dam = (randint1(rlev * 3 / 2) + 8) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
1682                 monst_breath_monst(m_idx, y, x, GF_ELEC, dam, 2, FALSE, MS_BALL_ELEC, learnable);
1683
1684                 break;
1685
1686         /* RF5_BA_FIRE */
1687         case 128+2:
1688                 if (known)
1689                 {
1690                         if (see_either)
1691                         {
1692                                 disturb(1, 0);
1693
1694                                 if (m_ptr->r_idx == MON_ROLENTO)
1695                                 {
1696 #ifdef JP
1697                                         if (blind)
1698                                                 msg_format("%^s¤¬²¿¤«¤òÅê¤²¤¿¡£", m_name);
1699                                         else
1700                                                 msg_format("%^s¤¬%^s¤Ë¸þ¤«¤Ã¤Æ¼êÜØÃÆ¤òÅê¤²¤¿¡£", m_name, t_name);
1701 #else
1702                                         if (blind)
1703                                                 msg_format("%^s throws something.", m_name);
1704                                         else
1705                                                 msg_format("%^s throws a hand grenade.", m_name);
1706 #endif
1707                                 }
1708                                 else
1709                                 {
1710                                         if (blind)
1711                                         {
1712 #ifdef JP
1713                                                 msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1714 #else
1715                                                 msg_format("%^s mumbles.", m_name);
1716 #endif
1717
1718                                         }
1719                                         else
1720                                         {
1721 #ifdef JP
1722                                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥Õ¥¡¥¤¥¢¡¦¥Ü¡¼¥ë¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
1723 #else
1724                                                 msg_format("%^s casts a fire ball at %s.", m_name, t_name);
1725 #endif
1726
1727                                         }
1728                                 }
1729                         }
1730                         else
1731                         {
1732                                 mon_fight = TRUE;
1733                         }
1734                 }
1735
1736                 dam = (randint1(rlev * 7 / 2) + 10) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
1737                 monst_breath_monst(m_idx, y, x, GF_FIRE, dam, 2, FALSE, MS_BALL_FIRE, learnable);
1738
1739                 break;
1740
1741         /* RF5_BA_COLD */
1742         case 128+3:
1743                 if (known)
1744                 {
1745                         if (see_either)
1746                         {
1747                                 disturb(1, 0);
1748
1749                                 if (blind)
1750                                 {
1751 #ifdef JP
1752                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1753 #else
1754                                         msg_format("%^s mumbles.", m_name);
1755 #endif
1756
1757                                 }
1758                                 else
1759                                 {
1760 #ifdef JP
1761                                         msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥¢¥¤¥¹¡¦¥Ü¡¼¥ë¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
1762 #else
1763                                         msg_format("%^s casts a frost ball at %s.", m_name, t_name);
1764 #endif
1765
1766                                 }
1767                         }
1768                         else
1769                         {
1770                                 mon_fight = TRUE;
1771                         }
1772                 }
1773
1774                 dam = (randint1(rlev * 3 / 2) + 10) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
1775                 monst_breath_monst(m_idx, y, x, GF_COLD, dam, 2, FALSE, MS_BALL_COLD, learnable);
1776
1777                 break;
1778
1779         /* RF5_BA_POIS */
1780         case 128+4:
1781                 if (known)
1782                 {
1783                         if (see_either)
1784                         {
1785                                 disturb(1, 0);
1786
1787                                 if (blind)
1788                                 {
1789 #ifdef JP
1790                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1791 #else
1792                                         msg_format("%^s mumbles.", m_name);
1793 #endif
1794
1795                                 }
1796                                 else
1797                                 {
1798 #ifdef JP
1799                                         msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ°½±À¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
1800 #else
1801                                         msg_format("%^s casts a stinking cloud at %s.", m_name, t_name);
1802 #endif
1803
1804                                 }
1805                         }
1806                         else
1807                         {
1808                                 mon_fight = TRUE;
1809                         }
1810                 }
1811
1812                 dam = damroll(12, 2) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
1813                 monst_breath_monst(m_idx, y, x, GF_POIS, dam, 2, FALSE, MS_BALL_POIS, learnable);
1814
1815                 break;
1816
1817         /* RF5_BA_NETH */
1818         case 128+5:
1819                 if (known)
1820                 {
1821                         if (see_either)
1822                         {
1823                                 disturb(1, 0);
1824
1825                                 if (blind)
1826                                 {
1827 #ifdef JP
1828                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1829 #else
1830                                         msg_format("%^s mumbles.", m_name);
1831 #endif
1832
1833                                 }
1834                                 else
1835                                 {
1836 #ifdef JP
1837                                         msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤ÆÃÏ¹öµå¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
1838 #else
1839                                         msg_format("%^s casts a nether ball at %s.", m_name, t_name);
1840 #endif
1841
1842                                 }
1843                         }
1844                         else
1845                         {
1846                                 mon_fight = TRUE;
1847                         }
1848                 }
1849
1850                 dam = 50 + damroll(10, 10) + (rlev * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1));
1851                 monst_breath_monst(m_idx, y, x, GF_NETHER, dam, 2, FALSE, MS_BALL_NETHER, learnable);
1852
1853                 break;
1854
1855         /* RF5_BA_WATE */
1856         case 128+6:
1857                 if (known)
1858                 {
1859                         if (see_either)
1860                         {
1861                                 disturb(1, 0);
1862
1863                                 if (blind)
1864                                 {
1865 #ifdef JP
1866                                         msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1867 #else
1868                                         msg_format("%^s mumbles.", m_name);
1869 #endif
1870
1871                                 }
1872                                 else
1873                                 {
1874 #ifdef JP
1875                                         msg_format("%^s¤¬%s¤ËÂÐ¤·¤ÆÎ®¤ì¤ë¤è¤¦¤Ê¿È¿¶¤ê¤ò¤·¤¿¡£", m_name, t_name);
1876 #else
1877                                         msg_format("%^s gestures fluidly at %s.", m_name, t_name);
1878 #endif
1879
1880 #ifdef JP
1881                                         msg_format("%^s¤Ï±²´¬¤Ë°û¤ß¹þ¤Þ¤ì¤¿¡£", t_name);
1882 #else
1883                                         msg_format("%^s is engulfed in a whirlpool.", t_name);
1884 #endif
1885
1886                                 }
1887                         }
1888                         else
1889                         {
1890                                 mon_fight = TRUE;
1891                         }
1892                 }
1893
1894                 dam = ((r_ptr->flags2 & RF2_POWERFUL) ? randint1(rlev * 3) : randint1(rlev * 2)) + 50;
1895                 monst_breath_monst(m_idx, y, x, GF_WATER, dam, 4, FALSE, MS_BALL_WATER, learnable);
1896
1897                 break;
1898
1899         /* RF5_BA_MANA */
1900         case 128+7:
1901                 if (known)
1902                 {
1903                         if (see_either)
1904                         {
1905                                 disturb(1, 0);
1906
1907                                 if (blind)
1908                                 {
1909 #ifdef JP
1910                                         msg_format("%^s¤¬²¿¤«¤òÎÏ¶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1911 #else
1912                                         msg_format("%^s mumbles powerfully.", m_name);
1913 #endif
1914
1915                                 }
1916                                 else
1917                                 {
1918 #ifdef JP
1919                                         msg_format("%^s¤¬%s¤ËÂÐ¤·¤ÆËâÎÏ¤ÎÍò¤Î¼öÊ¸¤òÇ°¤¸¤¿¡£", m_name, t_name);
1920 #else
1921                                         msg_format("%^s invokes a mana storm upon %s.", m_name, t_name);
1922 #endif
1923
1924                                 }
1925                         }
1926                         else
1927                         {
1928                                 mon_fight = TRUE;
1929                         }
1930                 }
1931
1932                 dam = (rlev * 4) + 50 + damroll(10, 10);
1933                 monst_breath_monst(m_idx, y, x, GF_MANA, dam, 4, FALSE, MS_BALL_MANA, learnable);
1934
1935                 break;
1936
1937         /* RF5_BA_DARK */
1938         case 128+8:
1939                 if (known)
1940                 {
1941                         if (see_either)
1942                         {
1943                                 disturb(1, 0);
1944
1945                                 if (blind)
1946                                 {
1947 #ifdef JP
1948                                         msg_format("%^s¤¬²¿¤«¤òÎÏ¶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
1949 #else
1950                                         msg_format("%^s mumbles powerfully.", m_name);
1951 #endif
1952
1953                                 }
1954                                 else
1955                                 {
1956 #ifdef JP
1957                                         msg_format("%^s¤¬%s¤ËÂÐ¤·¤Æ°Å¹õ¤ÎÍò¤Î¼öÊ¸¤òÇ°¤¸¤¿¡£", m_name, t_name);
1958 #else
1959                                         msg_format("%^s invokes a darkness storm upon %s.", m_name, t_name);
1960 #endif
1961
1962                                 }
1963                         }
1964                         else
1965                         {
1966                                 mon_fight = TRUE;
1967                         }
1968                 }
1969
1970                 dam = (rlev * 4) + 50 + damroll(10, 10);
1971                 monst_breath_monst(m_idx, y, x, GF_DARK, dam, 4, FALSE, MS_BALL_DARK, learnable);
1972
1973                 break;
1974
1975         /* RF5_DRAIN_MANA */
1976         case 128+9:
1977                 if (see_m)
1978                 {
1979                         /* Basic message */
1980 #ifdef JP
1981                         msg_format("%^s¤ÏÀº¿À¥¨¥Í¥ë¥®¡¼¤ò%s¤«¤éµÛ¤¤¤È¤Ã¤¿¡£", m_name, t_name);
1982 #else
1983                         msg_format("%^s draws psychic energy from %s.", m_name, t_name);
1984 #endif
1985
1986                 }
1987
1988                 /* Heal the monster */
1989                 if (m_ptr->hp < m_ptr->maxhp)
1990                 {
1991                         if (!tr_ptr->flags4 && !tr_ptr->flags5 && !tr_ptr->flags6)
1992                         {
1993                                 if (see_both)
1994                                 {
1995 #ifdef JP
1996                                         msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
1997 #else
1998                                         msg_format("%^s is unaffected!", t_name);
1999 #endif
2000
2001                                 }
2002                         }
2003                         else
2004                         {
2005                                 /* Attack power */
2006                                 int power = (randint1(rlev) / 2) + 1;
2007
2008                                 /* Heal */
2009                                 m_ptr->hp += 6 * power;
2010                                 if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
2011
2012                                 /* Redraw (later) if needed */
2013                                 if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
2014                                 if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
2015
2016                                 /* Special message */
2017                                 if (see_m)
2018                                 {
2019 #ifdef JP
2020                                         msg_format("%^s¤Ïµ¤Ê¬¤¬ÎÉ¤µ¤½¤¦¤À¡£", m_name);
2021 #else
2022                                         msg_format("%^s appears healthier.", m_name);
2023 #endif
2024
2025                                 }
2026                         }
2027                 }
2028
2029                 wake_up = TRUE;
2030
2031                 break;
2032
2033         /* RF5_MIND_BLAST */
2034         case 128+10:
2035                 if (see_m)
2036                 {
2037 #ifdef JP
2038                         msg_format("%^s¤Ï%s¤ò¤¸¤Ã¤ÈâË¤ó¤À", m_name, t_name);
2039 #else
2040                         msg_format("%^s gazes intently at %s.", m_name, t_name);
2041 #endif
2042
2043                 }
2044
2045                 dam = damroll(7, 7);
2046                 /* Attempt a saving throw */
2047                 if ((tr_ptr->flags1 & RF1_UNIQUE) ||
2048                     (tr_ptr->flags3 & RF3_NO_CONF) ||
2049                     (tr_ptr->flags3 & RF3_RES_ALL) ||
2050                     (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10))
2051                 {
2052                         /* No obvious effect */
2053                         if (see_both)
2054                         {
2055                                 /* Memorize a flag */
2056                                 if (tr_ptr->flags3 & (RF3_RES_ALL))
2057                                 {
2058                                         tr_ptr->r_flags3 |= (RF3_RES_ALL);
2059                                 }
2060                                 else if (tr_ptr->flags3 & (RF3_NO_CONF))
2061                                 {
2062                                         tr_ptr->r_flags3 |= (RF3_NO_CONF);
2063                                 }
2064
2065 #ifdef JP
2066                                 msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2067 #else
2068                                 msg_format("%^s is unaffected!", t_name);
2069 #endif
2070
2071                         }
2072                 }
2073                 else
2074                 {
2075                         if (see_t)
2076                         {
2077 #ifdef JP
2078                                 msg_format("%^s¤ÏÀº¿À¹¶·â¤ò¿©¤é¤Ã¤¿¡£", t_name);
2079 #else
2080                                 msg_format("%^s is blasted by psionic energy.", t_name);
2081 #endif
2082
2083                         }
2084
2085                         t_ptr->confused += randint0(4) + 4;
2086
2087 #ifdef JP
2088                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂÎ¤ÏÈ´¤±¶õ¤È¤Ê¤Ã¤¿¡£", m_idx);
2089 #else
2090                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, " collapses, a mindless husk.", m_idx);
2091 #endif
2092
2093                 }
2094
2095                 wake_up = TRUE;
2096
2097                 break;
2098
2099         /* RF5_BRAIN_SMASH */
2100         case 128+11:
2101                 if (see_m)
2102                 {
2103 #ifdef JP
2104                         msg_format("%^s¤Ï%s¤ò¤¸¤Ã¤ÈâË¤ó¤À", m_name, t_name);
2105 #else
2106                         msg_format("%^s gazes intently at %s.", m_name, t_name);
2107 #endif
2108
2109                 }
2110
2111                 dam = damroll(12, 12);
2112                 /* Attempt a saving throw */
2113                 if ((tr_ptr->flags1 & RF1_UNIQUE) ||
2114                     (tr_ptr->flags3 & RF3_NO_CONF) ||
2115                     (tr_ptr->flags3 & RF3_RES_ALL) ||
2116                     (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10))
2117                 {
2118                         /* No obvious effect */
2119                         if (see_both)
2120                         {
2121                                 /* Memorize a flag */
2122                                 if (tr_ptr->flags3 & (RF3_RES_ALL))
2123                                 {
2124                                         tr_ptr->r_flags3 |= (RF3_RES_ALL);
2125                                 }
2126                                 else if (tr_ptr->flags3 & (RF3_NO_CONF))
2127                                 {
2128                                         tr_ptr->r_flags3 |= (RF3_NO_CONF);
2129                                 }
2130
2131 #ifdef JP
2132                                 msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2133 #else
2134                                 msg_format("%^s is unaffected!", t_name);
2135 #endif
2136
2137                         }
2138                 }
2139                 else
2140                 {
2141                         if (see_t)
2142                         {
2143 #ifdef JP
2144                                 msg_format("%^s¤ÏÀº¿À¹¶·â¤ò¿©¤é¤Ã¤¿¡£", t_name);
2145 #else
2146                                 msg_format("%^s is blasted by psionic energy.", t_name);
2147 #endif
2148
2149                         }
2150
2151                         t_ptr->confused += randint0(4) + 4;
2152                         t_ptr->slow = MIN(200, t_ptr->slow + 10);
2153                         t_ptr->stunned += randint0(4) + 4;
2154
2155 #ifdef JP
2156                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂÎ¤ÏÈ´¤±¶õ¤È¤Ê¤Ã¤¿¡£", m_idx);
2157 #else
2158                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, " collapses, a mindless husk.", m_idx);
2159 #endif
2160
2161                 }
2162
2163                 wake_up = TRUE;
2164
2165                 break;
2166
2167         /* RF5_CAUSE_1 */
2168         case 128+12:
2169                 if (known)
2170                 {
2171                         if (see_m)
2172                         {
2173 #ifdef JP
2174                                 msg_format("%^s¤Ï%s¤ò»Ø¤µ¤·¤Æ¼ö¤¤¤ò¤«¤±¤¿¡£", m_name, t_name);
2175 #else
2176                                 msg_format("%^s points at %s and curses.", m_name, t_name);
2177 #endif
2178
2179                         }
2180                         else
2181                         {
2182                                 mon_fight = TRUE;
2183                         }
2184                 }
2185
2186                 dam = damroll(3, 8);
2187                 if ((randint0(100 + rlev/2) < (tr_ptr->level + 35)) ||
2188                     (tr_ptr->flags3 & RF3_RES_ALL))
2189                 {
2190                         /* Memorize a flag */
2191                         if (tr_ptr->flags3 & (RF3_RES_ALL))
2192                         {
2193                                 tr_ptr->r_flags3 |= (RF3_RES_ALL);
2194                         }
2195 #ifdef JP
2196                         if (see_both) msg_format("%^s¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª", t_name);
2197 #else
2198                         if (see_both) msg_format("%^s resists!", t_name);
2199 #endif
2200
2201                 }
2202                 else
2203                 {
2204                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, NULL, m_idx);
2205                 }
2206
2207                 wake_up = TRUE;
2208
2209                 break;
2210
2211         /* RF5_CAUSE_2 */
2212         case 128+13:
2213                 if (known)
2214                 {
2215                         if (see_m)
2216                         {
2217 #ifdef JP
2218                                 msg_format("%^s¤Ï%s¤ò»Ø¤µ¤·¤Æ¶²¤í¤·¤²¤Ë¼ö¤¤¤ò¤«¤±¤¿¡£", m_name, t_name);
2219 #else
2220                                 msg_format("%^s points at %s and curses horribly.", m_name, t_name);
2221 #endif
2222
2223                         }
2224                         else
2225                         {
2226                                 mon_fight = TRUE;
2227                         }
2228                 }
2229
2230                 dam = damroll(8, 8);
2231                 if ((randint0(100 + rlev/2) < (tr_ptr->level + 35)) ||
2232                     (tr_ptr->flags3 & RF3_RES_ALL))
2233                 {
2234                         /* Memorize a flag */
2235                         if (tr_ptr->flags3 & (RF3_RES_ALL))
2236                         {
2237                                 tr_ptr->r_flags3 |= (RF3_RES_ALL);
2238                         }
2239 #ifdef JP
2240                         if (see_both) msg_format("%^s¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª", t_name);
2241 #else
2242                         if (see_both) msg_format("%^s resists!", t_name);
2243 #endif
2244
2245                 }
2246                 else
2247                 {
2248                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, NULL, m_idx);
2249
2250                 }
2251
2252                 wake_up = TRUE;
2253
2254                 break;
2255
2256         /* RF5_CAUSE_3 */
2257         case 128+14:
2258                 if (known)
2259                 {
2260                         if (see_m)
2261                         {
2262 #ifdef JP
2263                                 msg_format("%^s¤Ï%s¤ò»Ø¤µ¤·¡¢¶²¤í¤·¤²¤Ë¼öÊ¸¤ò¾§¤¨¤¿¡ª", m_name, t_name);
2264 #else
2265                                 msg_format("%^s points at %s, incanting terribly!", m_name, t_name);
2266 #endif
2267
2268                         }
2269                         else
2270                         {
2271                                 mon_fight = TRUE;
2272                         }
2273                 }
2274
2275                 dam = damroll(10, 15);
2276                 if ((randint0(100 + rlev/2) < (tr_ptr->level + 35)) ||
2277                     (tr_ptr->flags3 & RF3_RES_ALL))
2278                 {
2279                         /* Memorize a flag */
2280                         if (tr_ptr->flags3 & (RF3_RES_ALL))
2281                         {
2282                                 tr_ptr->r_flags3 |= (RF3_RES_ALL);
2283                         }
2284 #ifdef JP
2285                         if (see_both) msg_format("%^s¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª", t_name);
2286 #else
2287                         if (see_both) msg_format("%^s resists!", t_name);
2288 #endif
2289
2290                 }
2291                 else
2292                 {
2293                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, NULL, m_idx);
2294                 }
2295
2296                 wake_up = TRUE;
2297
2298                 break;
2299
2300         /* RF5_CAUSE_4 */
2301         case 128+15:
2302                 if (known)
2303                 {
2304                         if (see_m)
2305                         {
2306 #ifdef JP
2307                                 msg_format("%^s¤¬%s¤ÎÈë¹¦¤òÆÍ¤¤¤Æ¡¢¡Ö¤ªÁ°¤Ï´û¤Ë»à¤ó¤Ç¤¤¤ë¡×¤È¶«¤ó¤À¡£", m_name, t_name);
2308 #else
2309                                 msg_format("%^s points at %s, screaming the word, 'DIE!'", m_name, t_name);
2310 #endif
2311
2312                         }
2313                         else
2314                         {
2315                                 mon_fight = TRUE;
2316                         }
2317                 }
2318
2319                 dam = damroll(15, 15);
2320                 if (((randint0(100 + rlev/2) < (tr_ptr->level + 35)) && (m_ptr->r_idx != MON_KENSHIROU)) ||
2321                     (tr_ptr->flags3 & RF3_RES_ALL))
2322                 {
2323                         /* Memorize a flag */
2324                         if (tr_ptr->flags3 & (RF3_RES_ALL))
2325                         {
2326                                 tr_ptr->r_flags3 |= (RF3_RES_ALL);
2327                         }
2328 #ifdef JP
2329                         if (see_both) msg_format("%^s¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª", t_name);
2330 #else
2331                         if (see_both) msg_format("%^s resists!", t_name);
2332 #endif
2333
2334                 }
2335                 else
2336                 {
2337                         mon_take_hit_mon(FALSE, t_idx, dam, &fear, NULL, m_idx);
2338                 }
2339
2340                 wake_up = TRUE;
2341
2342                 break;
2343
2344         /* RF5_BO_ACID */
2345         case 128+16:
2346                 if (known)
2347                 {
2348                         if (see_either)
2349                         {
2350 #ifdef JP
2351                                 msg_format("%s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥¢¥·¥Ã¥É¡¦¥Ü¥ë¥È¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2352 #else
2353                                 msg_format("%^s casts an acid bolt at %s.", m_name, t_name);
2354 #endif
2355
2356                         }
2357                         else
2358                         {
2359                                 mon_fight = TRUE;
2360                         }
2361                 }
2362
2363                 dam = (damroll(7, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
2364                 monst_bolt_monst(m_idx, y, x, GF_ACID,
2365                                  dam, MS_BOLT_ACID, learnable);
2366
2367                 break;
2368
2369         /* RF5_BO_ELEC */
2370         case 128+17:
2371                 if (known)
2372                 {
2373                         if (see_either)
2374                         {
2375 #ifdef JP
2376                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥µ¥ó¥À¡¼¡¦¥Ü¥ë¥È¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2377 #else
2378                                 msg_format("%^s casts a lightning bolt at %s.", m_name, t_name);
2379 #endif
2380
2381                         }
2382                         else
2383                         {
2384                                 mon_fight = TRUE;
2385                         }
2386                 }
2387
2388                 dam = (damroll(4, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
2389                 monst_bolt_monst(m_idx, y, x, GF_ELEC,
2390                                  dam, MS_BOLT_ELEC, learnable);
2391
2392                 break;
2393
2394         /* RF5_BO_FIRE */
2395         case 128+18:
2396                 if (known)
2397                 {
2398                         if (see_either)
2399                         {
2400 #ifdef JP
2401                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥Õ¥¡¥¤¥¢¡¦¥Ü¥ë¥È¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2402 #else
2403                                 msg_format("%^s casts a fire bolt at %s.", m_name, t_name);
2404 #endif
2405
2406                         }
2407                         else
2408                         {
2409                                 mon_fight = TRUE;
2410                         }
2411                 }
2412
2413                 dam = (damroll(9, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
2414                 monst_bolt_monst(m_idx, y, x, GF_FIRE,
2415                                  dam, MS_BOLT_FIRE, learnable);
2416
2417                 break;
2418
2419         /* RF5_BO_COLD */
2420         case 128+19:
2421                 if (known)
2422                 {
2423                         if (see_either)
2424                         {
2425 #ifdef JP
2426                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥¢¥¤¥¹¡¦¥Ü¥ë¥È¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2427 #else
2428                                 msg_format("%^s casts a frost bolt at %s.", m_name, t_name);
2429 #endif
2430
2431                         }
2432                         else
2433                         {
2434                                 mon_fight = TRUE;
2435                         }
2436                 }
2437
2438                 dam = (damroll(6, 8) + (rlev / 3)) * ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 1);
2439                 monst_bolt_monst(m_idx, y, x, GF_COLD,
2440                                  dam, MS_BOLT_COLD, learnable);
2441
2442                 break;
2443
2444         /* RF5_BA_LITE */
2445         case 128+20:
2446                 if (known)
2447                 {
2448                         if (see_either)
2449                         {
2450                                 disturb(1, 0);
2451
2452                                 if (blind)
2453                                 {
2454 #ifdef JP
2455                                         msg_format("%^s¤¬²¿¤«¤òÎÏ¶¯¤¯¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
2456 #else
2457                                         msg_format("%^s mumbles powerfully.", m_name);
2458 #endif
2459
2460                                 }
2461                                 else
2462                                 {
2463 #ifdef JP
2464                                         msg_format("%^s¤¬%s¤ËÂÐ¤·¤Æ¥¹¥¿¡¼¥Ð¡¼¥¹¥È¤Î¼öÊ¸¤òÇ°¤¸¤¿¡£", m_name, t_name);
2465 #else
2466                                         msg_format("%^s invokes a starburst upon %s.", m_name, t_name);
2467 #endif
2468
2469                                 }
2470                         }
2471                         else
2472                         {
2473                                 mon_fight = TRUE;
2474                         }
2475                 }
2476
2477                 dam = (rlev * 4) + 50 + damroll(10, 10);
2478                 monst_breath_monst(m_idx, y, x, GF_LITE, dam, 4, FALSE, MS_STARBURST, learnable);
2479
2480                 break;
2481
2482         /* RF5_BO_NETH */
2483         case 128+21:
2484                 if (known)
2485                 {
2486                         if (see_either)
2487                         {
2488 #ifdef JP
2489                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤ÆÃÏ¹ö¤ÎÌð¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2490 #else
2491                                 msg_format("%^s casts a nether bolt at %s.", m_name, t_name);
2492 #endif
2493
2494                         }
2495                         else
2496                         {
2497                                 mon_fight = TRUE;
2498                         }
2499                 }
2500
2501                 dam = 30 + damroll(5, 5) + (rlev * 4) / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3);
2502                 monst_bolt_monst(m_idx, y, x, GF_NETHER,
2503                                  dam, MS_BOLT_NETHER, learnable);
2504
2505                 break;
2506
2507         /* RF5_BO_WATE */
2508         case 128+22:
2509                 if (known)
2510                 {
2511                         if (see_either)
2512                         {
2513 #ifdef JP
2514                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥¦¥©¡¼¥¿¡¼¡¦¥Ü¥ë¥È¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2515 #else
2516                                 msg_format("%^s casts a water bolt at %s.", m_name, t_name);
2517 #endif
2518
2519                         }
2520                         else
2521                         {
2522                                 mon_fight = TRUE;
2523                         }
2524                 }
2525
2526                 dam = damroll(10, 10) + (rlev * 3 / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3));
2527                 monst_bolt_monst(m_idx, y, x, GF_WATER,
2528                                  dam, MS_BOLT_WATER, learnable);
2529
2530                 break;
2531
2532         /* RF5_BO_MANA */
2533         case 128+23:
2534                 if (known)
2535                 {
2536                         if (see_either)
2537                         {
2538 #ifdef JP
2539                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤ÆËâÎÏ¤ÎÌð¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2540 #else
2541                                 msg_format("%^s casts a mana bolt at %s.", m_name, t_name);
2542 #endif
2543
2544                         }
2545                         else
2546                         {
2547                                 mon_fight = TRUE;
2548                         }
2549                 }
2550
2551                 dam = randint1(rlev * 7 / 2) + 50;
2552                 monst_bolt_monst(m_idx, y, x, GF_MANA,
2553                                  dam, MS_BOLT_MANA, learnable);
2554
2555                 break;
2556
2557         /* RF5_BO_PLAS */
2558         case 128+24:
2559                 if (known)
2560                 {
2561                         if (see_either)
2562                         {
2563 #ifdef JP
2564                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥×¥é¥º¥Þ¡¦¥Ü¥ë¥È¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2565 #else
2566                                 msg_format("%^s casts a plasma bolt at %s.", m_name, t_name);
2567 #endif
2568
2569                         }
2570                         else
2571                         {
2572                                 mon_fight = TRUE;
2573                         }
2574                 }
2575
2576                 dam = 10 + damroll(8, 7) + (rlev * 3 / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3));
2577                 monst_bolt_monst(m_idx, y, x, GF_PLASMA,
2578                                  dam, MS_BOLT_PLASMA, learnable);
2579
2580                 break;
2581
2582         /* RF5_BO_ICEE */
2583         case 128+25:
2584                 if (known)
2585                 {
2586                         if (see_either)
2587                         {
2588 #ifdef JP
2589                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¶Ë´¨¤ÎÌð¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2590 #else
2591                                 msg_format("%^s casts an ice bolt at %s.", m_name, t_name);
2592 #endif
2593
2594                         }
2595                         else
2596                         {
2597                                 mon_fight = TRUE;
2598                         }
2599                 }
2600
2601                 dam = damroll(6, 6) + (rlev * 3 / ((r_ptr->flags2 & RF2_POWERFUL) ? 2 : 3));
2602                 monst_bolt_monst(m_idx, y, x, GF_ICE,
2603                                  dam, MS_BOLT_ICE, learnable);
2604
2605                 break;
2606
2607         /* RF5_MISSILE */
2608         case 128+26:
2609                 if (known)
2610                 {
2611                         if (see_either)
2612                         {
2613 #ifdef JP
2614                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¥Þ¥¸¥Ã¥¯¡¦¥ß¥µ¥¤¥ë¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name, t_name);
2615 #else
2616                                 msg_format("%^s casts a magic missile at %s.", m_name, t_name);
2617 #endif
2618
2619                         }
2620                         else
2621                         {
2622                                 mon_fight = TRUE;
2623                         }
2624                 }
2625
2626                 dam = damroll(2, 6) + (rlev / 3);
2627                 monst_bolt_monst(m_idx, y, x, GF_MISSILE,
2628                                  dam, MS_MAGIC_MISSILE, learnable);
2629
2630                 break;
2631
2632         /* RF5_SCARE */
2633         case 128+27:
2634                 if (known)
2635                 {
2636                         if (see_either)
2637                         {
2638 #ifdef JP
2639                                 msg_format("%^s¤¬¶²¤í¤·¤²¤Ê¸¸³Ð¤òºî¤ê½Ð¤·¤¿¡£", m_name, t_name);
2640 #else
2641                                 msg_format("%^s casts a fearful illusion in front of %s.", m_name, t_name);
2642 #endif
2643
2644                         }
2645                         else
2646                         {
2647                                 mon_fight = TRUE;
2648                         }
2649                 }
2650
2651                 if (tr_ptr->flags3 & RF3_NO_FEAR)
2652                 {
2653 #ifdef JP
2654                         if (see_t) msg_format("%^s¤Ï¶²ÉÝ¤ò´¶¤¸¤Ê¤¤¡£", t_name);
2655 #else
2656                         if (see_t) msg_format("%^s refuses to be frightened.", t_name);
2657 #endif
2658
2659                 }
2660                 else if (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10)
2661                 {
2662 #ifdef JP
2663                         if (see_t) msg_format("%^s¤Ï¶²ÉÝ¤ò´¶¤¸¤Ê¤¤¡£", t_name);
2664 #else
2665                         if (see_t) msg_format("%^s refuses to be frightened.", t_name);
2666 #endif
2667
2668                 }
2669                 else
2670                 {
2671                         if (!t_ptr->monfear) fear = TRUE;
2672
2673                         t_ptr->monfear += randint0(4) + 4;
2674                 }
2675
2676                 wake_up = TRUE;
2677
2678                 break;
2679
2680         /* RF5_BLIND */
2681         case 128+28:
2682                 if (known)
2683                 {
2684                         if (see_either)
2685                         {
2686 #ifdef JP
2687                                 msg_format("%s¤Ï¼öÊ¸¤ò¾§¤¨¤Æ%s¤ÎÌÜ¤ò¾Æ¤ÉÕ¤«¤»¤¿¡£", m_name, t_name);
2688 #else
2689                                 msg_format("%^s casts a spell, burning %s%s eyes.", m_name, t_name,
2690                                            (streq(t_name, "it") ? "s" : "'s"));
2691 #endif
2692
2693                         }
2694                         else
2695                         {
2696                                 mon_fight = TRUE;
2697                         }
2698                 }
2699
2700                 /* Simulate blindness with confusion */
2701                 if (tr_ptr->flags3 & RF3_NO_CONF)
2702                 {
2703 #ifdef JP
2704                         if (see_t) msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2705 #else
2706                         if (see_t) msg_format("%^s is unaffected.", t_name);
2707 #endif
2708
2709                 }
2710                 else if (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10)
2711                 {
2712 #ifdef JP
2713                         if (see_t) msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2714 #else
2715                         if (see_t) msg_format("%^s is unaffected.", t_name);
2716 #endif
2717
2718                 }
2719                 else
2720                 {
2721 #ifdef JP
2722                         if (see_t)   msg_format("%^s¤ÏÌÜ¤¬¸«¤¨¤Ê¤¯¤Ê¤Ã¤¿¡ª ", t_name);
2723 #else
2724                         if (see_t) msg_format("%^s is blinded!", t_name);
2725 #endif
2726
2727
2728                         t_ptr->confused += 12 + (byte)randint0(4);
2729                 }
2730
2731                 wake_up = TRUE;
2732
2733                 break;
2734
2735         /* RF5_CONF */
2736         case 128+29:
2737                 if (known)
2738                 {
2739                         if (see_either)
2740                         {
2741 #ifdef JP
2742                                 msg_format("%^s¤¬%s¤ÎÁ°¤Ë¸¸ÏÇÅª¤Ê¸¸¤ò¤Ä¤¯¤ê½Ð¤·¤¿¡£", m_name, t_name);
2743 #else
2744                                 msg_format("%^s casts a mesmerizing illusion in front of %s.", m_name, t_name);
2745 #endif
2746
2747                         }
2748                         else
2749                         {
2750                                 mon_fight = TRUE;
2751                         }
2752                 }
2753
2754                 if (tr_ptr->flags3 & RF3_NO_CONF)
2755                 {
2756 #ifdef JP
2757                         if (see_t) msg_format("%^s¤ÏÏÇ¤ï¤µ¤ì¤Ê¤«¤Ã¤¿¡£", t_name);
2758 #else
2759                         if (see_t) msg_format("%^s disbelieves the feeble spell.", t_name);
2760 #endif
2761
2762                 }
2763                 else if (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10)
2764                 {
2765 #ifdef JP
2766                         if (see_t) msg_format("%^s¤ÏÏÇ¤ï¤µ¤ì¤Ê¤«¤Ã¤¿¡£", t_name);
2767 #else
2768                         if (see_t) msg_format("%^s disbelieves the feeble spell.", t_name);
2769 #endif
2770
2771                 }
2772                 else
2773                 {
2774 #ifdef JP
2775                         if (see_t) msg_format("%^s¤Ïº®Íð¤·¤¿¤è¤¦¤À¡£", t_name);
2776 #else
2777                         if (see_t) msg_format("%^s seems confused.", t_name);
2778 #endif
2779
2780
2781                         t_ptr->confused += 12 + (byte)randint0(4);
2782                 }
2783
2784                 wake_up = TRUE;
2785
2786                 break;
2787
2788         /* RF5_SLOW */
2789         case 128+30:
2790                 if (known)
2791                 {
2792                         if (see_either)
2793                         {
2794 #ifdef JP
2795                                 msg_format("%s¤¬%s¤Î¶ÚÆù¤«¤éÎÏ¤òµÛ¤¤¤È¤Ã¤¿¡£", m_name, t_name);
2796 #else
2797                                 msg_format("%^s drains power from %s%s muscles.", m_name, t_name,
2798                                            (streq(t_name, "it") ? "s" : "'s"));
2799 #endif
2800
2801                         }
2802                         else
2803                         {
2804                                 mon_fight = TRUE;
2805                         }
2806                 }
2807
2808                 if (tr_ptr->flags1 & RF1_UNIQUE)
2809                 {
2810 #ifdef JP
2811                         if (see_t) msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2812 #else
2813                         if (see_t) msg_format("%^s is unaffected.", t_name);
2814 #endif
2815
2816                 }
2817                 else if (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10)
2818                 {
2819 #ifdef JP
2820                         if (see_t) msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2821 #else
2822                         if (see_t) msg_format("%^s is unaffected.", t_name);
2823 #endif
2824
2825                 }
2826                 else
2827                 {
2828                         if (!t_ptr->slow)
2829                         {
2830 #ifdef JP
2831                                 if (see_t) msg_format("%s¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£", t_name);
2832 #else
2833                                 if (see_t) msg_format("%^s starts moving slower.", t_name);
2834 #endif
2835                         }
2836
2837                         t_ptr->slow = MIN(200, t_ptr->slow + 50);
2838                 }
2839
2840                 wake_up = TRUE;
2841
2842                 break;
2843
2844         /* RF5_HOLD */
2845         case 128+31:
2846                 if (known)
2847                 {
2848                         if (see_either)
2849                         {
2850 #ifdef JP
2851                                 msg_format("%^s¤Ï%s¤ò¤¸¤Ã¤È¸«¤Ä¤á¤¿¡£", m_name, t_name);
2852 #else
2853                                 msg_format("%^s stares intently at %s.", m_name, t_name);
2854 #endif
2855
2856                         }
2857                         else
2858                         {
2859                                 mon_fight = TRUE;
2860                         }
2861                 }
2862
2863                 if ((tr_ptr->flags1 & RF1_UNIQUE) ||
2864                     (tr_ptr->flags3 & RF3_NO_STUN))
2865                 {
2866 #ifdef JP
2867                         if (see_t) msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2868 #else
2869                         if (see_t) msg_format("%^s is unaffected.", t_name);
2870 #endif
2871
2872                 }
2873                 else if (tr_ptr->level > randint1((rlev - 10) < 1 ? 1 : (rlev - 10)) + 10)
2874                 {
2875 #ifdef JP
2876                         if (see_t) msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
2877 #else
2878                         if (see_t) msg_format("%^s is unaffected.", t_name);
2879 #endif
2880
2881                 }
2882                 else
2883                 {
2884 #ifdef JP
2885                         if (see_t) msg_format("%^s¤ÏËãáã¤·¤¿¡ª", t_name);
2886 #else
2887                         if (see_t) msg_format("%^s is paralyzed!", t_name);
2888 #endif
2889
2890
2891                         t_ptr->stunned += randint1(4) + 4;
2892                 }
2893
2894                 wake_up = TRUE;
2895
2896                 break;
2897
2898
2899         /* RF6_HASTE */
2900         case 160+0:
2901                 if (known)
2902                 {
2903                         if (see_m)
2904                         {
2905 #ifdef JP
2906                                 msg_format("%^s¤¬¼«Ê¬¤ÎÂÎ¤ËÇ°¤òÁ÷¤Ã¤¿¡£", m_name, m_poss);
2907 #else
2908                                 msg_format("%^s concentrates on %s body.", m_name, m_poss);
2909 #endif
2910
2911                         }
2912                         else
2913                         {
2914                                 mon_fight = TRUE;
2915                         }
2916                 }
2917
2918                 /* Allow quick speed increases to base+10 */
2919                 if (!m_ptr->fast)
2920                 {
2921 #ifdef JP
2922                         if (see_m) msg_format("%^s¤ÎÆ°¤¤¬Â®¤¯¤Ê¤Ã¤¿¡£", m_name);
2923 #else
2924                         if (see_m) msg_format("%^s starts moving faster.", m_name);
2925 #endif
2926
2927                 }
2928                 m_ptr->fast = MIN(200, m_ptr->fast + 100);
2929                 if (p_ptr->riding == m_idx) p_ptr->update |= PU_BONUS;
2930                 break;
2931
2932         /* RF6_HAND_DOOM */
2933         case 160+1:
2934                 if (known)
2935                 {
2936                         if (see_m)
2937                         {
2938 #ifdef JP
2939                                 msg_format("%^s¤¬%s¤Ë<ÇËÌÇ¤Î¼ê>¤òÊü¤Ã¤¿¡ª", m_name, t_name);
2940 #else
2941                                 msg_format("%^s invokes the Hand of Doom upon %s!", m_name, t_name);
2942 #endif
2943
2944                         }
2945                         else
2946                         {
2947                                 mon_fight = TRUE;
2948                         }
2949                 }
2950
2951                 if ((tr_ptr->flags1 & RF1_UNIQUE) || (tr_ptr->flags3 & RF3_RES_ALL))
2952                 {
2953                         /* Memorize a flag */
2954                         if (tr_ptr->flags3 & (RF3_RES_ALL))
2955                         {
2956                                 tr_ptr->r_flags3 |= (RF3_RES_ALL);
2957                         }
2958 #ifdef JP
2959                         if (see_both) msg_format("¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª", t_name);
2960 #else
2961                         if (see_both) msg_format("^%s is unaffected!", t_name);
2962 #endif
2963
2964                 }
2965                 else
2966                 {
2967                         if ((r_ptr->level + randint1(20)) >
2968                             (tr_ptr->level + 10 + randint1(20)))
2969                         {
2970                                 t_ptr->hp = t_ptr->hp -
2971                                         (((s32b)((40 + randint1(20)) * t_ptr->hp)) / 100);
2972
2973                                 if (t_ptr->hp < 1) t_ptr->hp = 1;
2974                         }
2975                         else
2976                         {
2977 #ifdef JP
2978                                 if (see_both) msg_format("%^s¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª", t_name);
2979 #else
2980                                 if (see_both) msg_format("%^s resists!", t_name);
2981 #endif
2982
2983                         }
2984                 }
2985
2986                 wake_up = TRUE;
2987
2988                 break;
2989
2990         /* RF6_HEAL */
2991         case 160+2:
2992                 if (known)
2993                 {
2994                         if (see_m)
2995                         {
2996 #ifdef JP
2997                                 msg_format("%^s¤Ï¼«Ê¬¤Î½ý¤ËÇ°¤ò½¸Ãæ¤·¤¿¡£", m_name);
2998 #else
2999                                 msg_format("%^s concentrates on %s wounds.", m_name, m_poss);
3000 #endif
3001
3002                         }
3003                         else
3004                         {
3005                                 mon_fight = TRUE;
3006                         }
3007                 }
3008
3009                 /* Heal some */
3010                 m_ptr->hp += (rlev * 6);
3011
3012                 /* Fully healed */
3013                 if (m_ptr->hp >= m_ptr->maxhp)
3014                 {
3015                         /* Fully healed */
3016                         m_ptr->hp = m_ptr->maxhp;
3017
3018                         if (known)
3019                         {
3020                                 if (see_m)
3021                                 {
3022 #ifdef JP
3023                                         msg_format("%^s¤Ï´°Á´¤Ë¼£¤Ã¤¿¡ª", m_name);
3024 #else
3025                                         msg_format("%^s looks completely healed!", m_name);
3026 #endif
3027
3028                                 }
3029                                 else
3030                                 {
3031                                         mon_fight = TRUE;
3032                                 }
3033                         }
3034                 }
3035
3036                 /* Partially healed */
3037                 else if (known)
3038                 {
3039                         if (see_m)
3040                         {
3041 #ifdef JP
3042                                 msg_format("%^s¤ÏÂÎÎÏ¤ò²óÉü¤·¤¿¤è¤¦¤À¡£", m_name);
3043 #else
3044                                 msg_format("%^s looks healthier.", m_name);
3045 #endif
3046
3047                         }
3048                         else
3049                         {
3050                                 mon_fight = TRUE;
3051                         }
3052                 }
3053
3054                 /* Redraw (later) if needed */
3055                 if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
3056                 if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
3057
3058                 /* Cancel fear */
3059                 if (m_ptr->monfear)
3060                 {
3061                         /* Cancel fear */
3062                         m_ptr->monfear = 0;
3063
3064                         /* Message */
3065 #ifdef JP
3066                         if (see_m) msg_format("%^s¤ÏÍ¦µ¤¤ò¼è¤êÌá¤·¤¿¡£", m_name);
3067 #else
3068                         if (see_m) msg_format("%^s recovers %s courage.", m_name, m_poss);
3069 #endif
3070
3071                 }
3072
3073                 break;
3074
3075         /* RF6_INVULNER */
3076         case 160+3:
3077                 if (known)
3078                 {
3079                         if (see_m)
3080                         {
3081                                 disturb(1, 0);
3082 #ifdef JP
3083                                 msg_format("%s¤ÏÌµ½ý¤Îµå¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name);
3084 #else
3085                                 msg_format("%^s casts a Globe of Invulnerability.", m_name);
3086 #endif
3087
3088                         }
3089                         else
3090                         {
3091                                 mon_fight = TRUE;
3092                         }
3093                 }
3094
3095                 if (!m_ptr->invulner) m_ptr->invulner = randint1(4) + 4;
3096
3097                 if (p_ptr->health_who == m_idx) p_ptr->redraw |= (PR_HEALTH);
3098                 if (p_ptr->riding == m_idx) p_ptr->redraw |= (PR_UHEALTH);
3099                 break;
3100
3101         /* RF6_BLINK */
3102         case 160+4:
3103                 if (see_m)
3104                 {
3105 #ifdef JP
3106                         msg_format("%^s¤¬½Ö»þ¤Ë¾Ã¤¨¤¿¡£", m_name);
3107 #else
3108                         msg_format("%^s blinks away.", m_name);
3109 #endif
3110
3111                 }
3112
3113                 teleport_away(m_idx, 10, FALSE);
3114
3115                 break;
3116
3117         /* RF6_TPORT */
3118         case 160+5:
3119                 if (see_m)
3120                 {
3121 #ifdef JP
3122                         msg_format("%^s¤¬¥Æ¥ì¥Ý¡¼¥È¤·¤¿¡£", m_name);
3123 #else
3124                         msg_format("%^s teleports away.", m_name);
3125 #endif
3126                 }
3127
3128                 teleport_away(m_idx, MAX_SIGHT * 2 + 5, FALSE);
3129
3130                 if (los(py, px, m_ptr->fy, m_ptr->fx) && !world_monster && see_m)
3131                 {
3132                         for (i = INVEN_RARM; i < INVEN_TOTAL; i++)
3133                         {
3134                                 u32b flgs[TR_FLAG_SIZE];
3135                                 object_type *o_ptr = &inventory[i];
3136
3137                                 if (cursed_p(o_ptr)) continue;
3138
3139                                 object_flags(o_ptr, flgs);
3140
3141                                 if((have_flag(flgs, TR_TELEPORT)) || (p_ptr->muta1 & MUT1_VTELEPORT) || (p_ptr->pclass == CLASS_IMITATOR))
3142                                 {
3143 #ifdef JP
3144                                         cptr msg = "¤Ä¤¤¤Æ¤¤¤¤Þ¤¹¤«¡©";
3145 #else
3146                                         cptr msg = "Do you follow it? ";
3147 #endif
3148
3149                                         if(get_check_strict(msg, CHECK_OKAY_CANCEL))
3150                                         {
3151                                                 if (one_in_(3))
3152                                                 {
3153                                                         teleport_player(200);
3154 #ifdef JP
3155                                                         msg_print("¼ºÇÔ¡ª");
3156 #else
3157                                                         msg_print("Failed!");
3158 #endif
3159                                                 }
3160                                                 else teleport_player_to(m_ptr->fy, m_ptr->fx, TRUE);
3161                                                 p_ptr->energy_need = ENERGY_NEED();
3162                                         }
3163                                         break;
3164                                 }
3165                         }
3166                 }
3167                 break;
3168
3169         /* RF6_WORLD */
3170         case 160+6:
3171 #if 0
3172                 int who = 0;
3173                 if(m_ptr->r_idx = MON_DIO) who == 1;
3174                 else if(m_ptr->r_idx = MON_WONG) who == 3;
3175                 dam = who;
3176                 if(!process_the_world(randint1(2)+2, who, los(py, px, m_ptr->fy, m_ptr->fx))) return (FALSE);
3177 #endif
3178                 return FALSE;
3179
3180         /* RF6_SPECIAL */
3181         case 160+7:
3182                 if (p_ptr->inside_arena || p_ptr->inside_battle) return FALSE;
3183
3184                 switch(m_ptr->r_idx)
3185                 {
3186                 case MON_OHMU:
3187                         for (k = 0; k < 6; k++)
3188                         {
3189                                 summon_specific(m_idx, m_ptr->fy, m_ptr->fx, rlev, SUMMON_BIZARRE1, PM_ALLOW_GROUP);
3190                         }
3191                         return FALSE;
3192
3193                 default:
3194                         if (r_ptr->d_char == 'B')
3195                         {
3196                                 if (one_in_(3))
3197                                 {
3198                                         if (see_m)
3199                                         {
3200 #ifdef JP
3201                                                 msg_format("%^s¤ÏÆÍÁ³µÞ¾å¾º¤·¤Æ»ë³¦¤«¤é¾Ã¤¨¤¿!", m_name);
3202 #else
3203                                                 msg_format("%^s suddenly go out of your sight!", m_name);
3204 #endif
3205                                         }
3206                                         teleport_away(m_idx, 10, FALSE);
3207                                         p_ptr->update |= (PU_MONSTERS | PU_MON_LITE);
3208                                         break;
3209                                 }
3210                                 else
3211                                 {
3212                                         /* Not implemented */
3213                                         return FALSE;
3214                                 }
3215                                 break;
3216                         }
3217
3218                         /* Something is wrong */
3219                         else return FALSE;
3220                 }
3221
3222                 /* done */
3223                 break;
3224
3225         /* RF6_TELE_TO */
3226         case 160+8:
3227                 /* Not implemented */
3228                 return FALSE;
3229
3230         /* RF6_TELE_AWAY */
3231         case 160+9:
3232                 if (known)
3233                 {
3234                         if (see_either)
3235                         {
3236 #ifdef JP
3237                                 msg_format("%^s¤Ï%s¤ò¥Æ¥ì¥Ý¡¼¥È¤µ¤»¤¿¡£", m_name, t_name);
3238 #else
3239                                 msg_format("%^s teleports %s away.", m_name, t_name);
3240 #endif
3241
3242                         }
3243                         else
3244                         {
3245                                 mon_fight = TRUE;
3246                         }
3247                 }
3248
3249                 {
3250                         bool resists_tele = FALSE;
3251
3252                         if (tr_ptr->flags3 & RF3_RES_TELE)
3253                         {
3254                                 if ((tr_ptr->flags1 & RF1_UNIQUE) || (tr_ptr->flags3 & (RF3_RES_ALL)))
3255                                 {
3256                                         if (see_t)
3257                                         {
3258                                                 tr_ptr->r_flags3 |= RF3_RES_TELE;
3259 #ifdef JP
3260                                                 msg_format("%^s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", t_name);
3261 #else
3262                                                 msg_format("%^s is unaffected!", t_name);
3263 #endif
3264
3265                                         }
3266
3267                                         resists_tele = TRUE;
3268                                 }
3269                                 else if (tr_ptr->level > randint1(100))
3270                                 {
3271                                         if (see_t)
3272                                         {
3273                                                 tr_ptr->r_flags3 |= RF3_RES_TELE;
3274 #ifdef JP
3275                                                 msg_format("%^s¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª", t_name);
3276 #else
3277                                                 msg_format("%^s resists!", t_name);
3278 #endif
3279
3280                                         }
3281
3282                                         resists_tele = TRUE;
3283                                 }
3284                         }
3285
3286                         if (!resists_tele)
3287                         {
3288                                 if (t_idx == p_ptr->riding) teleport_player(MAX_SIGHT * 2 + 5);
3289                                 else teleport_away(t_idx, MAX_SIGHT * 2 + 5, FALSE);
3290                         }
3291                 }
3292                 break;
3293
3294         /* RF6_TELE_LEVEL */
3295         case 160+10:
3296                 /* Not implemented */
3297                 return FALSE;
3298
3299         /* RF6_PSY_SPEAR */
3300         case 160+11:
3301                 if (known)
3302                 {
3303                         if (see_either)
3304                         {
3305 #ifdef JP
3306                                 msg_format("%^s¤¬%s¤Ë¸þ¤«¤Ã¤Æ¸÷¤Î·õ¤òÊü¤Ã¤¿¡£", m_name, t_name);
3307 #else
3308                                 msg_format("%^s throw a Psycho-spear at %s.", m_name, t_name);
3309 #endif
3310
3311                         }
3312                         else
3313                         {
3314                                 mon_fight = TRUE;
3315                         }
3316                 }
3317
3318                 dam = (r_ptr->flags2 & RF2_POWERFUL) ? (randint1(rlev * 2) + 180) : (randint1(rlev * 3 / 2) + 120);
3319                 monst_beam_monst(m_idx, y, x, GF_PSY_SPEAR,
3320                                  dam, MS_PSY_SPEAR, learnable);
3321                 break;
3322
3323         /* RF6_DARKNESS */
3324         case 160+12:
3325                 if (known)
3326                 {
3327                         if (see_m)
3328                         {
3329 #ifdef JP
3330                                 msg_format("%^s¤¬°Å°Ç¤ÎÃæ¤Ç¼ê¤ò¿¶¤Ã¤¿¡£", m_name);
3331 #else
3332                                 msg_format("%^s gestures in shadow.", m_name);
3333 #endif
3334
3335
3336                                 if (see_t)
3337                                 {
3338 #ifdef JP
3339                                         msg_format("%^s¤Ï°Å°Ç¤ËÊñ¤Þ¤ì¤¿¡£", t_name);
3340 #else
3341                                         msg_format("%^s is surrounded by darkness.", t_name);
3342 #endif
3343
3344                                 }
3345                         }
3346                         else
3347                         {
3348                                 mon_fight = TRUE;
3349                         }
3350                 }
3351
3352                 (void)project(m_idx, 3, y, x, 0, GF_DARK_WEAK, PROJECT_GRID | PROJECT_KILL | PROJECT_MONSTER, MS_DARKNESS);
3353
3354                 unlite_room(y, x);
3355
3356                 break;
3357
3358         /* RF6_TRAPS */
3359         case 160+13:
3360 #if 0
3361                 if (known)
3362                 {
3363                         if (see_m)
3364                         {
3365 #ifdef JP
3366                                 msg_format("%^s¤¬¼öÊ¸¤ò¾§¤¨¤Æ¼Ù°¤ËÈù¾Ð¤ó¤À¡£", m_name);
3367 #else
3368                                 msg_format("%^s casts a spell and cackles evilly.", m_name);
3369 #endif
3370                         }
3371                         else
3372                         {
3373 #ifdef JP
3374                                 msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
3375 #else
3376                                 msg_format("%^s mumbles.", m_name);
3377 #endif
3378                         }
3379                 }
3380
3381                 trap_creation(y, x);
3382 #endif
3383                 break;
3384
3385         /* RF6_FORGET */
3386         case 160+14:
3387                 /* Not implemented */
3388                 return FALSE;
3389
3390         /* RF6_RAISE_DEAD */
3391         case 160+15:
3392                 if (known)
3393                 {
3394                         if (see_either)
3395                         {
3396                                 disturb(1, 0);
3397 #ifdef JP
3398                                 if (blind) msg_format("%^s¤¬²¿¤«¤ò¤Ä¤Ö¤ä¤¤¤¿¡£", m_name);
3399 #else
3400                                 if (blind) msg_format("%^s mumbles.", m_name);
3401 #endif
3402
3403 #ifdef JP
3404                                 else msg_format("%^s¤¬»à¼ÔÉü³è¤Î¼öÊ¸¤ò¾§¤¨¤¿¡£", m_name);
3405 #else
3406                                 else msg_format("%^s casts a spell to revive corpses.", m_name);
3407 #endif
3408                         }
3409                         else
3410                         {
3411                                 mon_fight = TRUE;
3412                         }
3413                 }
3414                 animate_dead(m_idx, m_ptr->fy, m_ptr->fx);
3415                 break;
3416
3417         /* RF6_SUMMON_KIN */
3418         case 160+16:
3419                 if (known)
3420                 {
3421                         if (see_either)
3422                         {
3423                                 disturb(1, 0);
3424
3425                                 if (m_ptr->r_idx == MON_ROLENTO)
3426                                 {
3427 #ifdef JP
3428                                         msg_format("%^s¤Ï¼êÜØÃÆ¤ò¤Ð¤é¤Þ¤¤¤¿¡£",
3429                                                    m_name);
3430 #else
3431                                         msg_format("%^s throws some hand grenades.",
3432                                                    m_name);
3433 #endif
3434                                 }
3435                                 else if (m_ptr->r_idx == MON_SERPENT || m_ptr->r_idx == MON_ZOMBI_SERPENT)
3436                                 {
3437 #ifdef JP
3438                                         msg_format("%^s¤¬¥À¥ó¥¸¥ç¥ó¤Î¼ç¤ò¾¤´¤·¤¿¡£", m_name);
3439 #else
3440                                         msg_format("%^s magically summons guardians of dungeons.", m_name);
3441 #endif
3442                                 }
3443                                 else
3444                                 {
3445 #ifdef JP
3446                                         msg_format("%s¤¬ËâË¡¤Ç%s¤ò¾¤´¤·¤¿¡£", m_name,
3447                                                    ((r_ptr->flags1 & RF1_UNIQUE) ? "¼ê²¼" : "Ãç´Ö"));
3448 #else
3449                                         msg_format("%^s magically summons %s %s.", m_name, m_poss,
3450                                                    ((r_ptr->flags1 & RF1_UNIQUE) ? "minions" : "kin"));
3451 #endif
3452                                 }
3453
3454                         }
3455                         else
3456                         {
3457                                 mon_fight = TRUE;
3458                         }
3459                 }
3460
3461                 if(m_ptr->r_idx == MON_ROLENTO)
3462                 {
3463                         int num = 1 + randint1(3);
3464                         for (k = 0; k < num; k++)
3465                         {
3466                                 count += summon_named_creature(m_idx, y, x, MON_SHURYUUDAN, p_mode);
3467                         }
3468                 }
3469                 else if(m_ptr->r_idx == MON_THORONDOR ||
3470                         m_ptr->r_idx == MON_GWAIHIR ||
3471                         m_ptr->r_idx == MON_MENELDOR)
3472                 {
3473                         int num = 4 + randint1(3);
3474                         for (k = 0; k < num; k++)
3475                         {
3476                                 count += summon_specific(m_idx, y, x, rlev, SUMMON_EAGLES, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE | p_mode));
3477                         }
3478                 }
3479                 else if(m_ptr->r_idx == MON_LOUSY)
3480                 {
3481                         int num = 2 + randint1(3);
3482                         for (k = 0; k < num; k++)
3483                         {
3484                                 count += summon_specific(m_idx, y, x, rlev, SUMMON_LOUSE, (PM_ALLOW_GROUP | p_mode));
3485                         }
3486                 }
3487                 else if(m_ptr->r_idx == MON_BULLGATES)
3488                 {
3489                         int num = 2 + randint1(3);
3490                         for (k = 0; k < num; k++)
3491                         {
3492                                 count += summon_named_creature(m_idx, y, x, 921, p_mode);
3493                         }
3494                 }
3495                 else if (m_ptr->r_idx == MON_CALDARM)
3496                 {
3497                         int num = randint1(3);
3498                         for (k = 0; k < num; k++)
3499                         {
3500                                 count += summon_named_creature(m_idx, y, x, 930, p_mode);
3501                         }
3502                 }
3503                 else if (m_ptr->r_idx == MON_SERPENT || m_ptr->r_idx == MON_ZOMBI_SERPENT)
3504                 {
3505                         int num = 2 + randint1(3);
3506                         for (k = 0; k < num; k++)
3507                         {
3508                                 count += summon_specific(m_idx, y, x, rlev, SUMMON_GUARDIANS, (PM_ALLOW_GROUP | p_mode | PM_ALLOW_UNIQUE));
3509                         }
3510                 }
3511                 else
3512                 {
3513                         summon_kin_type = r_ptr->d_char;
3514
3515                         for (k = 0; k < 4; k++)
3516                         {
3517                                 count += summon_specific(m_idx, y, x, rlev, SUMMON_KIN, (PM_ALLOW_GROUP | p_mode));
3518                         }
3519                 }
3520
3521                 if (known && !see_t && count)
3522                 {
3523                         mon_fight = TRUE;
3524                 }
3525
3526                 break;
3527
3528         /* RF6_S_CYBER */
3529         case 160+17:
3530                 if (known)
3531                 {
3532                         if (see_either)
3533                         {
3534                                 disturb(1, 0);
3535
3536 #ifdef JP
3537                                 msg_format("%^s¤¬¥µ¥¤¥Ð¡¼¥Ç¡¼¥â¥ó¤ò¾¤´¤·¤¿¡ª", m_name);
3538 #else
3539                                 msg_format("%^s magically summons Cyberdemons!", m_name);
3540 #endif
3541
3542                         }
3543                         else
3544                         {
3545                                 mon_fight = TRUE;
3546                         }
3547                 }
3548
3549                 if (is_friendly(m_ptr))
3550                 {
3551                         count += summon_specific(m_idx, y, x, rlev, SUMMON_CYBER, (PM_ALLOW_GROUP | p_mode));
3552                 }
3553                 else
3554                 {
3555                         count += summon_cyber(m_idx, y, x);
3556                 }
3557
3558                 if (known && !see_t && count)
3559                 {
3560                         mon_fight = TRUE;
3561                 }
3562
3563                 break;
3564
3565         /* RF6_S_MONSTER */
3566         case 160+18:
3567                 if (known)
3568                 {
3569                         if (see_either)
3570                         {
3571                                 disturb(1, 0);
3572
3573 #ifdef JP
3574                                 msg_format("%^s¤¬ËâË¡¤ÇÃç´Ö¤ò¾¤´¤·¤¿¡ª", m_name);
3575 #else
3576                                 msg_format("%^s magically summons help!", m_name);
3577 #endif
3578
3579                         }
3580                         else
3581                         {
3582                                 mon_fight = TRUE;
3583                         }
3584                 }
3585
3586                 count += summon_specific(m_idx, y, x, rlev, 0, (p_mode | u_mode));
3587
3588                 if (known && !see_t && count)
3589                 {
3590                         mon_fight = TRUE;
3591                 }
3592
3593                 break;
3594
3595         /* RF6_S_MONSTERS */
3596         case 160+19:
3597                 if (known)
3598                 {
3599                         if (see_either)
3600                         {
3601                                 disturb(1, 0);
3602
3603 #ifdef JP
3604                                 msg_format("%^s¤¬ËâË¡¤Ç¥â¥ó¥¹¥¿¡¼¤ò¾¤´¤·¤¿¡ª", m_name);
3605 #else
3606                                 msg_format("%^s magically summons monsters!", m_name);
3607 #endif
3608
3609                         }
3610                         else
3611                         {
3612                                 mon_fight = TRUE;
3613                         }
3614                 }
3615
3616                 for (k = 0; k < s_num_6; k++)
3617                 {
3618                         count += summon_specific(m_idx, y, x, rlev, 0, (PM_ALLOW_GROUP | p_mode | u_mode));
3619                 }
3620
3621                 if (known && !see_t && count)
3622                 {
3623                         mon_fight = TRUE;
3624                 }
3625
3626                 break;
3627
3628         /* RF6_S_ANT */
3629         case 160+20:
3630                 if (known)
3631                 {
3632                         if (see_either)
3633                         {
3634                                 disturb(1, 0);
3635
3636 #ifdef JP
3637                                 msg_format("%^s¤¬ËâË¡¤Ç¥¢¥ê¤ò¾¤´¤·¤¿¡£", m_name);
3638 #else
3639                                 msg_format("%^s magically summons ants.", m_name);
3640 #endif
3641
3642                         }
3643                         else
3644                         {
3645                                 mon_fight = TRUE;
3646                         }
3647                 }
3648
3649                 for (k = 0; k < s_num_6; k++)
3650                 {
3651                         count += summon_specific(m_idx, y, x, rlev, SUMMON_ANT, (PM_ALLOW_GROUP | p_mode));
3652                 }
3653
3654                 if (known && !see_t && count)
3655                 {
3656                         mon_fight = TRUE;
3657                 }
3658
3659                 break;
3660
3661         /* RF6_S_SPIDER */
3662         case 160+21:
3663                 if (known)
3664                 {
3665                         if (see_either)
3666                         {
3667                                 disturb(1, 0);
3668
3669 #ifdef JP
3670                                 msg_format("%^s¤¬ËâË¡¤Ç¥¯¥â¤ò¾¤´¤·¤¿¡£", m_name);
3671 #else
3672                                 msg_format("%^s magically summons spiders.", m_name);
3673 #endif
3674
3675                         }
3676                         else
3677                         {
3678                                 mon_fight = TRUE;
3679                         }
3680                 }
3681
3682                 for (k = 0; k < s_num_6; k++)
3683                 {
3684                         count += summon_specific(m_idx, y, x, rlev, SUMMON_SPIDER, (PM_ALLOW_GROUP | p_mode));
3685                 }
3686
3687                 if (known && !see_t && count)
3688                 {
3689                         mon_fight = TRUE;
3690                 }
3691
3692                 break;
3693
3694         /* RF6_S_HOUND */
3695         case 160+22:
3696                 if (known)
3697                 {
3698                         if (see_either)
3699                         {
3700                                 disturb(1, 0);
3701
3702 #ifdef JP
3703                                 msg_format("%^s¤¬ËâË¡¤Ç¥Ï¥¦¥ó¥É¤ò¾¤´¤·¤¿¡£", m_name);
3704 #else
3705                                 msg_format("%^s magically summons hounds.", m_name);
3706 #endif
3707
3708                         }
3709                         else
3710                         {
3711                                 mon_fight = TRUE;
3712                         }
3713                 }
3714
3715                 for (k = 0; k < s_num_4; k++)
3716                 {
3717                         count += summon_specific(m_idx, y, x, rlev, SUMMON_HOUND, (PM_ALLOW_GROUP | p_mode));
3718                 }
3719
3720                 if (known && !see_t && count)
3721                 {
3722                         mon_fight = TRUE;
3723                 }
3724
3725                 break;
3726
3727         /* RF6_S_HYDRA */
3728         case 160+23:
3729                 if (known)
3730                 {
3731                         if (see_either)
3732                         {
3733                                 disturb(1, 0);
3734
3735 #ifdef JP
3736                                 msg_format("%^s¤¬ËâË¡¤Ç¥Ò¥É¥é¤ò¾¤´¤·¤¿¡£", m_name);
3737 #else
3738                                 msg_format("%^s magically summons hydras.", m_name);
3739 #endif
3740
3741                         }
3742                         else
3743                         {
3744                                 mon_fight = TRUE;
3745                         }
3746                 }
3747
3748                 for (k = 0; k < s_num_4; k++)
3749                 {
3750                         count += summon_specific(m_idx, y, x, rlev, SUMMON_HYDRA, (PM_ALLOW_GROUP | p_mode));
3751                 }
3752
3753                 if (known && !see_t && count)
3754                 {
3755                         mon_fight = TRUE;
3756                 }
3757
3758                 break;
3759
3760         /* RF6_S_ANGEL */
3761         case 160+24:
3762                 if (known)
3763                 {
3764                         if (see_either)
3765                         {
3766                                 disturb(1, 0);
3767
3768 #ifdef JP
3769                                 msg_format("%^s¤¬ËâË¡¤ÇÅ·»È¤ò¾¤´¤·¤¿¡ª", m_name);
3770 #else
3771                                 msg_format("%^s magically summons an angel!", m_name);
3772 #endif
3773
3774                         }
3775                         else
3776                         {
3777                                 mon_fight = TRUE;
3778                         }
3779                 }
3780
3781                 {
3782                         int num = 1;
3783
3784                         if ((r_ptr->flags1 & RF1_UNIQUE) && !easy_band)
3785                         {
3786                                 num += r_ptr->level/40;
3787                         }
3788
3789                         for (k = 0; k < num; k++)
3790                         {
3791                                 count += summon_specific(m_idx, y, x, rlev, SUMMON_ANGEL, (PM_ALLOW_GROUP | p_mode));
3792                         }
3793                 }
3794
3795                 if (known && !see_t && count)
3796                 {
3797                         mon_fight = TRUE;
3798                 }
3799
3800                 break;
3801
3802         /* RF6_S_DEMON */
3803         case 160+25:
3804                 if (known)
3805                 {
3806                         if (see_either)
3807                         {
3808                                 disturb(1, 0);
3809
3810 #ifdef JP
3811                                 msg_format("%^s¤¬ËâË¡¤Çº®ÆÙ¤ÎµÜÄî¤«¤é¥Ç¡¼¥â¥ó¤ò¾¤´¤·¤¿¡ª", m_name);
3812 #else
3813                                 msg_format("%^s magically summons a demon from the Courts of Chaos!", m_name);
3814 #endif
3815
3816                         }
3817                         else
3818                         {
3819                                 mon_fight = TRUE;
3820                         }
3821                 }
3822
3823                 for (k = 0; k < 1; k++)
3824                 {
3825                         count += summon_specific(m_idx, y, x, rlev, SUMMON_DEMON, (PM_ALLOW_GROUP | p_mode));
3826                 }
3827
3828                 if (known && !see_t && count)
3829                 {
3830                         mon_fight = TRUE;
3831                 }
3832
3833                 break;
3834
3835         /* RF6_S_UNDEAD */
3836         case 160+26:
3837                 if (known)
3838                 {
3839                         if (see_either)
3840                         {
3841                                 disturb(1, 0);
3842
3843 #ifdef JP
3844                                 msg_format("%s¤¬ËâË¡¤Ç¥¢¥ó¥Ç¥Ã¥É¤ò¾¤´¤·¤¿¡£", m_name);
3845 #else
3846                                 msg_format("%^s magically summons undead.", m_name);
3847 #endif
3848
3849                         }
3850                         else
3851                         {
3852                                 mon_fight = TRUE;
3853                         }
3854                 }
3855
3856                 for (k = 0; k < 1; k++)
3857                 {
3858                         count += summon_specific(m_idx, y, x, rlev, SUMMON_UNDEAD, (PM_ALLOW_GROUP | p_mode));
3859                 }
3860
3861                 if (known && !see_t && count)
3862                 {
3863                         mon_fight = TRUE;
3864                 }
3865
3866                 break;
3867
3868         /* RF6_S_DRAGON */
3869         case 160+27:
3870                 if (known)
3871                 {
3872                         if (see_either)
3873                         {
3874                                 disturb(1, 0);
3875
3876 #ifdef JP
3877                                 msg_format("%^s¤¬ËâË¡¤Ç¥É¥é¥´¥ó¤ò¾¤´¤·¤¿¡ª", m_name);
3878 #else
3879                                 msg_format("%^s magically summons a dragon!", m_name);
3880 #endif
3881
3882                         }
3883                         else
3884                         {
3885                                 mon_fight = TRUE;
3886                         }
3887                 }
3888
3889                 for (k = 0; k < 1; k++)
3890                 {
3891                         count += summon_specific(m_idx, y, x, rlev, SUMMON_DRAGON, (PM_ALLOW_GROUP | p_mode));
3892                 }
3893
3894                 if (known && !see_t && count)
3895                 {
3896                         mon_fight = TRUE;
3897                 }
3898
3899                 break;
3900
3901         /* RF6_S_HI_UNDEAD */
3902         case 160+28:
3903                 if (known)
3904                 {
3905                         if (see_either)
3906                         {
3907                                 disturb(1, 0);
3908
3909 #ifdef JP
3910                                 msg_format("%s¤¬ËâË¡¤Ç¥¢¥ó¥Ç¥Ã¥É¤ò¾¤´¤·¤¿¡£", m_name);
3911 #else
3912                                 msg_format("%^s magically summons undead.", m_name);
3913 #endif
3914
3915                         }
3916                         else
3917                         {
3918                                 mon_fight = TRUE;
3919                         }
3920                 }
3921
3922                 for (k = 0; k < s_num_6; k++)
3923                 {
3924                         count += summon_specific(m_idx, y, x, rlev, SUMMON_HI_UNDEAD, (PM_ALLOW_GROUP | p_mode | u_mode));
3925                 }
3926
3927                 if (known && !see_t && count)
3928                 {
3929                         mon_fight = TRUE;
3930                 }
3931
3932                 break;
3933
3934         /* RF6_S_HI_DRAGON */
3935         case 160+29:
3936                 if (known)
3937                 {
3938                         if (see_either)
3939                         {
3940                                 disturb(1, 0);
3941
3942 #ifdef JP
3943                                 msg_format("%^s¤¬ËâË¡¤Ç¸ÅÂå¥É¥é¥´¥ó¤ò¾¤´¤·¤¿¡ª", m_name);
3944 #else
3945                                 msg_format("%^s magically summons ancient dragons!", m_name);
3946 #endif
3947
3948                         }
3949                         else
3950                         {
3951                                 mon_fight = TRUE;
3952                         }
3953                 }
3954
3955                 for (k = 0; k < s_num_4; k++)
3956                 {
3957                         count += summon_specific(m_idx, y, x, rlev, SUMMON_HI_DRAGON, (PM_ALLOW_GROUP | p_mode | u_mode));
3958                 }
3959
3960                 if (known && !see_t && count)
3961                 {
3962                         mon_fight = TRUE;
3963                 }
3964
3965                 break;
3966
3967         /* RF6_S_AMBERITES */
3968         case 160+30:
3969                 if (known)
3970                 {
3971                         if (see_either)
3972                         {
3973                                 disturb(1, 0);
3974
3975 #ifdef JP
3976                                 msg_format("%^s¤¬¥¢¥ó¥Ð¡¼¤Î²¦Â²¤ò¾¤´¤·¤¿¡ª", m_name);
3977 #else
3978                                 msg_format("%^s magically summons Lords of Amber!", m_name);
3979 #endif
3980
3981                         }
3982                         else
3983                         {
3984                                 mon_fight = TRUE;
3985                         }
3986                 }
3987
3988                 for (k = 0; k < s_num_4; k++)
3989                 {
3990                         count += summon_specific(m_idx, y, x, rlev, SUMMON_AMBERITES, (PM_ALLOW_GROUP | p_mode | PM_ALLOW_UNIQUE));
3991                 }
3992
3993                 if (known && !see_t && count)
3994                 {
3995                         mon_fight = TRUE;
3996                 }
3997
3998                 break;
3999
4000         /* RF6_S_UNIQUE */
4001         case 160+31:
4002                 if (known)
4003                 {
4004                         if (see_either)
4005                         {
4006                                 disturb(1, 0);
4007
4008 #ifdef JP
4009                                 msg_format("%^s¤¬ËâË¡¤ÇÆÃÊÌ¤Ê¶¯Å¨¤ò¾¤´¤·¤¿¡ª", m_name);
4010 #else
4011                                 msg_format("%^s magically summons special opponents!", m_name);
4012 #endif
4013
4014                         }
4015                         else
4016                         {
4017                                 mon_fight = TRUE;
4018                         }
4019                 }
4020
4021                 for (k = 0; k < s_num_4; k++)
4022                 {
4023                         count += summon_specific(m_idx, y, x, rlev, SUMMON_UNIQUE, (PM_ALLOW_GROUP | p_mode | PM_ALLOW_UNIQUE));
4024                 }
4025
4026                 if (known && !see_t && count)
4027                 {
4028                         mon_fight = TRUE;
4029                 }
4030
4031                 break;
4032         }
4033
4034         if (wake_up)
4035         {
4036                 t_ptr->csleep = 0;
4037         }
4038
4039         if (fear && see_t)
4040         {
4041 #ifdef JP
4042                 msg_format("%^s¤Ï¶²ÉÝ¤·¤ÆÆ¨¤²½Ð¤·¤¿¡ª", t_name);
4043 #else
4044                 msg_format("%^s flees in terror!", t_name);
4045 #endif
4046
4047         }
4048
4049         if (see_m && maneable && !world_monster && !p_ptr->blind && (p_ptr->pclass == CLASS_IMITATOR))
4050         {
4051                 if (thrown_spell != 167)
4052                 {
4053                         if (p_ptr->mane_num == MAX_MANE)
4054                         {
4055                                 p_ptr->mane_num--;
4056                                 for (i = 0; i < p_ptr->mane_num - 1; i++)
4057                                 {
4058                                         p_ptr->mane_spell[i] = p_ptr->mane_spell[i+1];
4059                                         p_ptr->mane_dam[i] = p_ptr->mane_dam[i+1];
4060                                 }
4061                         }
4062                         p_ptr->mane_spell[p_ptr->mane_num] = thrown_spell - 96;
4063                         p_ptr->mane_dam[p_ptr->mane_num] = dam;
4064                         p_ptr->mane_num++;
4065                         new_mane = TRUE;
4066
4067                         p_ptr->redraw |= (PR_MANE);
4068                 }
4069         }
4070
4071         /* Remember what the monster did, if we saw it */
4072         if (see_m)
4073         {
4074                 /* Inate spell */
4075                 if (thrown_spell < 32*4)
4076                 {
4077                         r_ptr->r_flags4 |= (1L << (thrown_spell - 32*3));
4078                         if (r_ptr->r_cast_spell < MAX_UCHAR) r_ptr->r_cast_spell++;
4079                 }
4080
4081                 /* Bolt or Ball */
4082                 else if (thrown_spell < 32*5)
4083                 {
4084                         r_ptr->r_flags5 |= (1L << (thrown_spell - 32*4));
4085                         if (r_ptr->r_cast_spell < MAX_UCHAR) r_ptr->r_cast_spell++;
4086                 }
4087
4088                 /* Special spell */
4089                 else if (thrown_spell < 32*6)
4090                 {
4091                         r_ptr->r_flags6 |= (1L << (thrown_spell - 32*5));
4092                         if (r_ptr->r_cast_spell < MAX_UCHAR) r_ptr->r_cast_spell++;
4093                 }
4094         }
4095
4096         /* Always take note of monsters that kill you */
4097         if (p_ptr->is_dead && (r_ptr->r_deaths < MAX_SHORT) && !p_ptr->inside_arena)
4098         {
4099                 r_ptr->r_deaths++;
4100         }
4101
4102         /* A spell was cast */
4103         return TRUE;
4104 }