src/mspells2.c

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