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