#define HURT_CHANCE 16
-/*
- * Does the grid stop disintegration?
- */
-#define cave_stop_disintegration(Y,X) \
- (((cave[Y][X].feat >= FEAT_PERM_EXTRA) && \
- (cave[Y][X].feat <= FEAT_PERM_SOLID)) || \
- (cave[Y][X].feat == FEAT_MOUNTAIN) || \
- ((cave[Y][X].feat >= FEAT_SHOP_HEAD) && \
- (cave[Y][X].feat <= FEAT_SHOP_TAIL)) || \
- ((cave[Y][X].feat >= FEAT_BLDG_HEAD) && \
- (cave[Y][X].feat <= FEAT_BLDG_TAIL)) || \
- (cave[Y][X].feat == FEAT_MUSEUM))
-
static int rakubadam_m;
static int rakubadam_p;
c = s[randint0(strlen(s))];
/* Lookup this color */
- a = strchr(color_char, c) - color_char;
+ a = my_strchr(color_char, c) - color_char;
/* Invalid color (note check for < 0 removed, gave a silly
* warning because bytes are always >= 0 -- RG) */
{
if ((n > 0) && cave_stop_disintegration(y, x)) break;
}
+ else if (flg & (PROJECT_LOS))
+ {
+ if ((n > 0) && !cave_los_bold(y, x)) break;
+ }
else if (!(flg & (PROJECT_PATH)))
{
/* Always stop at non-initial wall grids */
- if ((n > 0) && !cave_floor_bold(y, x)) break;
+ if ((n > 0) && !cave_have_flag_bold(y, x, FF_PROJECT)) break;
}
/* Sometimes stop at non-initial monsters/players */
if (flg & (PROJECT_STOP))
{
if ((n > 0) &&
- ((y == py && x == px) || cave[y][x].m_idx != 0))
+ (player_bold(y, x) || cave[y][x].m_idx != 0))
break;
}
{
if ((n > 0) && cave_stop_disintegration(y, x)) break;
}
+ else if (flg & (PROJECT_LOS))
+ {
+ if ((n > 0) && !cave_los_bold(y, x)) break;
+ }
else if (!(flg & (PROJECT_PATH)))
{
/* Always stop at non-initial wall grids */
- if ((n > 0) && !cave_floor_bold(y, x)) break;
+ if ((n > 0) && !cave_have_flag_bold(y, x, FF_PROJECT)) break;
}
/* Sometimes stop at non-initial monsters/players */
if (flg & (PROJECT_STOP))
{
if ((n > 0) &&
- ((y == py && x == px) || cave[y][x].m_idx != 0))
+ (player_bold(y, x) || cave[y][x].m_idx != 0))
break;
}
{
if ((n > 0) && cave_stop_disintegration(y, x)) break;
}
+ else if (flg & (PROJECT_LOS))
+ {
+ if ((n > 0) && !cave_los_bold(y, x)) break;
+ }
else if (!(flg & (PROJECT_PATH)))
{
/* Always stop at non-initial wall grids */
- if ((n > 0) && !cave_floor_bold(y, x)) break;
+ if ((n > 0) && !cave_have_flag_bold(y, x, FF_PROJECT)) break;
}
/* Sometimes stop at non-initial monsters/players */
if (flg & (PROJECT_STOP))
{
if ((n > 0) &&
- ((y == py && x == px) || cave[y][x].m_idx != 0))
+ (player_bold(y, x) || cave[y][x].m_idx != 0))
break;
}
static bool project_f(int who, int r, int y, int x, int dam, int typ)
{
cave_type *c_ptr = &cave[y][x];
+ feature_type *f_ptr = &f_info[c_ptr->feat];
bool obvious = FALSE;
bool known = player_has_los_bold(y, x);
dam = (dam + r) / (r + 1);
- if (c_ptr->feat == FEAT_TREES)
+ if (have_flag(f_ptr->flags, FF_TREE))
{
cptr message;
switch (typ)
#else
msg_format("A tree %s", message);
#endif
- cave_set_feat(y, x, (one_in_(3) ? FEAT_DEEP_GRASS : FEAT_GRASS));
+ cave_set_feat(y, x, one_in_(3) ? feat_brake : feat_grass);
/* Observe */
if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
-
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
}
}
case GF_FORCE:
case GF_HOLY_FIRE:
case GF_HELL_FIRE:
- case GF_DISINTEGRATE:
case GF_PSI:
case GF_PSI_DRAIN:
case GF_TELEKINESIS:
if (known)
{
#ifdef JP
-msg_print("¤Þ¤Ð¤æ¤¤Á®¸÷¤¬Áö¤Ã¤¿¡ª");
+ msg_print("¤Þ¤Ð¤æ¤¤Á®¸÷¤¬Áö¤Ã¤¿¡ª");
#else
msg_print("There is a bright flash of light!");
#endif
obvious = TRUE;
}
- /* Forget the trap */
- c_ptr->info &= ~(CAVE_MARK);
-
/* Destroy the trap */
- cave_set_feat(y, x, floor_type[randint0(100)]);
+ cave_alter_feat(y, x, FF_DISARM);
}
/* Locked doors are unlocked */
- else if ((c_ptr->feat >= FEAT_DOOR_HEAD + 0x01) &&
- (c_ptr->feat <= FEAT_DOOR_HEAD + 0x07))
+ if (is_closed_door(c_ptr->feat) && f_ptr->power && have_flag(f_ptr->flags, FF_OPEN))
{
+ s16b old_feat = c_ptr->feat;
+
/* Unlock the door */
- cave_set_feat(y, x, FEAT_DOOR_HEAD + 0x00);
+ cave_alter_feat(y, x, FF_DISARM);
/* Check line of sound */
- if (known)
+ if (known && (old_feat != c_ptr->feat))
{
#ifdef JP
-msg_print("¥«¥Á¥Ã¤È²»¤¬¤·¤¿¡ª");
+ msg_print("¥«¥Á¥Ã¤È²»¤¬¤·¤¿¡ª");
#else
msg_print("Click!");
#endif
}
}
+ /* Remove "unsafe" flag if player is not blind */
+ if (!p_ptr->blind && player_has_los_bold(y, x))
+ {
+ c_ptr->info &= ~(CAVE_UNSAFE);
+
+ /* Redraw */
+ lite_spot(y, x);
+
+ obvious = TRUE;
+ }
+
break;
}
case GF_KILL_DOOR:
{
/* Destroy all doors and traps */
- if ((c_ptr->feat == FEAT_OPEN) ||
- (c_ptr->feat == FEAT_BROKEN) ||
- is_trap(c_ptr->feat) ||
- ((c_ptr->feat >= FEAT_DOOR_HEAD) &&
- (c_ptr->feat <= FEAT_DOOR_TAIL)))
+ if (is_trap(c_ptr->feat) || have_flag(f_ptr->flags, FF_DOOR))
{
/* Check line of sight */
if (known)
{
/* Message */
#ifdef JP
-msg_print("¤Þ¤Ð¤æ¤¤Á®¸÷¤¬Áö¤Ã¤¿¡ª");
+ msg_print("¤Þ¤Ð¤æ¤¤Á®¸÷¤¬Áö¤Ã¤¿¡ª");
#else
msg_print("There is a bright flash of light!");
#endif
obvious = TRUE;
-
- /* Visibility change */
- if ((c_ptr->feat >= FEAT_DOOR_HEAD) &&
- (c_ptr->feat <= FEAT_DOOR_TAIL))
- {
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
- }
}
- /* Forget the door */
- c_ptr->info &= ~(CAVE_MARK);
-
/* Destroy the feature */
- cave_set_feat(y, x, floor_type[randint0(100)]);
+ cave_alter_feat(y, x, FF_TUNNEL);
}
- /* Notice */
- note_spot(y, x);
+ /* Remove "unsafe" flag if player is not blind */
+ if (!p_ptr->blind && player_has_los_bold(y, x))
+ {
+ c_ptr->info &= ~(CAVE_UNSAFE);
+
+ /* Redraw */
+ lite_spot(y, x);
+
+ obvious = TRUE;
+ }
break;
}
case GF_JAM_DOOR: /* Jams a door (as if with a spike) */
{
- if ((c_ptr->feat >= FEAT_DOOR_HEAD) &&
- (c_ptr->feat <= FEAT_DOOR_TAIL))
+ if (have_flag(f_ptr->flags, FF_SPIKE))
{
- /* Convert "locked" to "stuck" XXX XXX XXX */
- if (c_ptr->feat < FEAT_DOOR_HEAD + 0x08) c_ptr->feat += 0x08;
+ s16b old_mimic = c_ptr->mimic;
+ feature_type *mimic_f_ptr = &f_info[get_feat_mimic(c_ptr)];
+
+ cave_alter_feat(y, x, FF_SPIKE);
+
+ c_ptr->mimic = old_mimic;
+
+ /* Notice */
+ note_spot(y, x);
- /* Add one spike to the door */
- if (c_ptr->feat < FEAT_DOOR_TAIL) c_ptr->feat++;
+ /* Redraw */
+ lite_spot(y, x);
/* Check line of sight */
- if (known)
+ if (known && have_flag(mimic_f_ptr->flags, FF_OPEN))
{
/* Message */
#ifdef JP
-msg_print("²¿¤«¤¬¤Ä¤Ã¤«¤¨¤Æ¥É¥¢¤¬³«¤«¤Ê¤¤¡£");
+ msg_format("%s¤Ë²¿¤«¤¬¤Ä¤Ã¤«¤¨¤Æ³«¤«¤Ê¤¯¤Ê¤Ã¤¿¡£", f_name + mimic_f_ptr->name);
#else
- msg_print("The door seems stuck.");
+ msg_format("The %s seems stuck.", f_name + mimic_f_ptr->name);
#endif
obvious = TRUE;
/* Destroy walls (and doors) */
case GF_KILL_WALL:
{
- /* Non-walls (etc) */
- if (cave_floor_bold(y, x)) break;
-
- /* Permanent walls */
- if (c_ptr->feat >= FEAT_PERM_EXTRA) break;
-
- /* Granite */
- if (c_ptr->feat >= FEAT_WALL_EXTRA)
- {
- /* Message */
- if (known && (c_ptr->info & (CAVE_MARK)))
- {
-#ifdef JP
-msg_print("Êɤ¬ÍϤ±¤ÆÅ¥¤Ë¤Ê¤Ã¤¿¡ª");
-#else
- msg_print("The wall turns into mud!");
-#endif
-
- obvious = TRUE;
- }
-
- /* Forget the wall */
- c_ptr->info &= ~(CAVE_MARK);
-
- /* Destroy the wall */
- cave_set_feat(y, x, floor_type[randint0(100)]);
- }
-
- /* Quartz / Magma with treasure */
- else if (c_ptr->feat >= FEAT_MAGMA_H)
- {
- /* Message */
- if (known && (c_ptr->info & (CAVE_MARK)))
- {
-#ifdef JP
-msg_print("¹ÛÌ®¤¬ÍϤ±¤ÆÅ¥¤Ë¤Ê¤Ã¤¿¡ª");
-msg_print("²¿¤«¤òȯ¸«¤·¤¿¡ª");
-#else
- msg_print("The vein turns into mud!");
- msg_print("You have found something!");
-#endif
-
- obvious = TRUE;
- }
-
- /* Forget the wall */
- c_ptr->info &= ~(CAVE_MARK);
-
- /* Destroy the wall */
- cave_set_feat(y, x, floor_type[randint0(100)]);
-
- /* Place some gold */
- place_gold(y, x);
- }
-
- /* Quartz / Magma */
- else if (c_ptr->feat >= FEAT_MAGMA)
+ if (have_flag(f_ptr->flags, FF_HURT_ROCK))
{
/* Message */
if (known && (c_ptr->info & (CAVE_MARK)))
{
#ifdef JP
-msg_print("¹ÛÌ®¤¬ÍϤ±¤ÆÅ¥¤Ë¤Ê¤Ã¤¿¡ª");
+ msg_format("%s¤¬ÍϤ±¤ÆÅ¥¤Ë¤Ê¤Ã¤¿¡ª", f_name + f_info[get_feat_mimic(c_ptr)].name);
#else
- msg_print("The vein turns into mud!");
+ msg_format("The %s turns into mud!", f_name + f_info[get_feat_mimic(c_ptr)].name);
#endif
obvious = TRUE;
}
- /* Forget the wall */
- c_ptr->info &= ~(CAVE_MARK);
-
/* Destroy the wall */
- cave_set_feat(y, x, floor_type[randint0(100)]);
- }
-
- /* Rubble */
- else if (c_ptr->feat == FEAT_RUBBLE)
- {
- /* Message */
- if (known && (c_ptr->info & (CAVE_MARK)))
- {
-#ifdef JP
-msg_print("´äÀФ¬ÍϤ±¤ÆÅ¥¤Ë¤Ê¤Ã¤¿¡ª");
-#else
- msg_print("The rubble turns into mud!");
-#endif
-
- obvious = TRUE;
- }
-
- /* Forget the wall */
- c_ptr->info &= ~(CAVE_MARK);
-
- /* Destroy the rubble */
- cave_set_feat(y, x, floor_type[randint0(100)]);
-
- /* Hack -- place an object */
- if (randint0(100) < 10)
- {
- /* Found something */
- if (player_can_see_bold(y, x))
- {
-#ifdef JP
-msg_print("´äÀФβ¼¤Ë²¿¤«±£¤µ¤ì¤Æ¤¤¤¿¡ª");
-#else
- msg_print("There was something buried in the rubble!");
-#endif
-
- obvious = TRUE;
- }
-
- /* Place gold */
- place_object(y, x, FALSE, FALSE);
- }
- }
-
- /* Destroy doors (and secret doors) */
- else /* if (c_ptr->feat >= FEAT_DOOR_HEAD) */
- {
- /* Hack -- special message */
- if (known && (c_ptr->info & (CAVE_MARK)))
- {
-#ifdef JP
-msg_print("¥É¥¢¤¬ÍϤ±¤ÆÅ¥¤Ë¤Ê¤Ã¤¿¡ª");
-#else
- msg_print("The door turns into mud!");
-#endif
-
- obvious = TRUE;
- }
+ cave_alter_feat(y, x, FF_HURT_ROCK);
- /* Forget the wall */
- c_ptr->info &= ~(CAVE_MARK);
-
- /* Destroy the feature */
- cave_set_feat(y, x, floor_type[randint0(100)]);
+ /* Update some things */
+ p_ptr->update |= (PU_FLOW);
}
- /* Notice */
- note_spot(y, x);
-
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_FLOW | PU_MONSTERS | PU_MON_LITE);
-
break;
}
if (!cave_naked_bold(y, x)) break;
/* Not on the player */
- if ((y == py) && (x == px)) break;
+ if (player_bold(y, x)) break;
/* Create a closed door */
- cave_set_feat(y, x, FEAT_DOOR_HEAD + 0x00);
+ cave_set_feat(y, x, feat_door[DOOR_DOOR].closed);
/* Observe */
if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
-
break;
}
/* Make traps */
case GF_MAKE_TRAP:
{
- /* Require a "naked" floor grid */
- if (((cave[y][x].feat != FEAT_FLOOR) &&
- (cave[y][x].feat != FEAT_GRASS) &&
- (cave[y][x].feat != FEAT_DIRT) &&
- (cave[y][x].o_idx == 0) &&
- (cave[y][x].m_idx == 0))
- || is_mirror_grid(&cave[y][x]) )
- break;
/* Place a trap */
place_trap(y, x);
if (!cave_naked_bold(y, x)) break;
/* Not on the player */
- if ((y == py) && (x == px)) break;
+ if (player_bold(y, x)) break;
/* Create a closed door */
- cave_set_feat(y, x, FEAT_TREES);
+ cave_set_feat(y, x, feat_tree);
/* Observe */
if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
break;
}
if (!cave_naked_bold(y, x)) break;
/* Create a glyph */
- cave[y][x].info |= CAVE_OBJECT;
- cave[y][x].mimic = FEAT_GLYPH;
+ c_ptr->info |= CAVE_OBJECT;
+ c_ptr->mimic = feat_glyph;
/* Notice */
note_spot(y, x);
-
+
/* Redraw */
lite_spot(y, x);
if (!cave_naked_bold(y, x)) break;
/* Not on the player */
- if ((y == py) && (x == px)) break;
-
- /* Place a trap */
- cave_set_feat(y, x, FEAT_WALL_EXTRA);
+ if (player_bold(y, x)) break;
- /* Update some things */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_MONSTERS | PU_MON_LITE);
+ /* Place a wall */
+ cave_set_feat(y, x, feat_granite);
break;
}
case GF_LAVA_FLOW:
{
+ /* Ignore permanent grid */
+ if (have_flag(f_ptr->flags, FF_PERMANENT)) break;
+
/* Shallow Lava */
- if(dam == 1)
+ if (dam == 1)
{
- /* Require a "naked" floor grid */
- if (!cave_naked_bold(y, x)) break;
+ /* Ignore grid without enough space */
+ if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
/* Place a shallow lava */
- cave_set_feat(y, x, FEAT_SHAL_LAVA);
+ cave_set_feat(y, x, feat_shallow_lava);
}
/* Deep Lava */
- else
+ else if (dam)
{
- /* Require a "naked" floor grid */
- if (cave_perma_bold(y, x) || !dam) break;
-
/* Place a deep lava */
- cave_set_feat(y, x, FEAT_DEEP_LAVA);
-
- /* Dam is used as a counter for the number of grid to convert */
- dam--;
+ cave_set_feat(y, x, feat_deep_lava);
}
break;
}
case GF_WATER_FLOW:
{
+ /* Ignore permanent grid */
+ if (have_flag(f_ptr->flags, FF_PERMANENT)) break;
+
/* Shallow Water */
- if(dam == 1)
+ if (dam == 1)
{
- /* Require a "naked" floor grid */
- if (!cave_naked_bold(y, x)) break;
+ /* Ignore grid without enough space */
+ if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
- /* Place a shallow lava */
- cave_set_feat(y, x, FEAT_SHAL_WATER);
+ /* Place a shallow water */
+ cave_set_feat(y, x, feat_shallow_water);
}
/* Deep Water */
- else
+ else if (dam)
{
- /* Require a "naked" floor grid */
- if (cave_perma_bold(y, x) || !dam) break;
-
- /* Place a deep lava */
- cave_set_feat(y, x, FEAT_DEEP_WATER);
-
- /* Dam is used as a counter for the number of grid to convert */
- dam--;
+ /* Place a deep water */
+ cave_set_feat(y, x, feat_deep_water);
}
break;
}
case GF_LITE:
{
/* Turn on the light */
- if (!(d_info[dungeon_type].flags1 & DF1_DARKNESS)) c_ptr->info |= (CAVE_GLOW);
+ if (!(d_info[dungeon_type].flags1 & DF1_DARKNESS))
+ {
+ c_ptr->info |= (CAVE_GLOW);
- /* Notice */
- note_spot(y, x);
+ /* Notice */
+ note_spot(y, x);
- /* Redraw */
- lite_spot(y, x);
+ /* Redraw */
+ lite_spot(y, x);
- /* Observe */
- if (player_can_see_bold(y, x)) obvious = TRUE;
+ update_local_illumination(y, x);
+
+ /* Observe */
+ if (player_can_see_bold(y, x)) obvious = TRUE;
- /* Mega-Hack -- Update the monster in the affected grid */
- /* This allows "spear of light" (etc) to work "correctly" */
- if (c_ptr->m_idx) update_mon(c_ptr->m_idx, FALSE);
+ /* Mega-Hack -- Update the monster in the affected grid */
+ /* This allows "spear of light" (etc) to work "correctly" */
+ if (c_ptr->m_idx) update_mon(c_ptr->m_idx, FALSE);
+
+ if (p_ptr->special_defense & NINJA_S_STEALTH)
+ {
+ if (player_bold(y, x)) set_superstealth(FALSE);
+ }
+ }
break;
}
case GF_DARK_WEAK:
case GF_DARK:
{
- if (!p_ptr->inside_battle)
+ bool do_dark = !p_ptr->inside_battle && !is_mirror_grid(c_ptr);
+ int j;
+
+ /* Turn off the light. */
+ if (do_dark)
{
- /* Notice */
- if (player_can_see_bold(y, x)) obvious = TRUE;
+ if (dun_level || !is_daytime())
+ {
+ for (j = 0; j < 9; j++)
+ {
+ int by = y + ddy_ddd[j];
+ int bx = x + ddx_ddd[j];
+
+ if (in_bounds2(by, bx))
+ {
+ cave_type *cc_ptr = &cave[by][bx];
+
+ if (have_flag(f_info[get_feat_mimic(cc_ptr)].flags, FF_GLOW))
+ {
+ do_dark = FALSE;
+ break;
+ }
+ }
+ }
- /* Turn off the light. */
- if (!is_mirror_grid(c_ptr)) c_ptr->info &= ~(CAVE_GLOW);
+ if (!do_dark) break;
+ }
+
+ c_ptr->info &= ~(CAVE_GLOW);
/* Hack -- Forget "boring" grids */
- if ((c_ptr->feat <= FEAT_INVIS) || (c_ptr->feat == FEAT_DIRT) || (c_ptr->feat == FEAT_GRASS))
+ if (!have_flag(f_ptr->flags, FF_REMEMBER))
{
/* Forget */
c_ptr->info &= ~(CAVE_MARK);
/* Redraw */
lite_spot(y, x);
+ update_local_illumination(y, x);
+
+ /* Notice */
+ if (player_can_see_bold(y, x)) obvious = TRUE;
+
/* Mega-Hack -- Update the monster in the affected grid */
/* This allows "spear of light" (etc) to work "correctly" */
if (c_ptr->m_idx) update_mon(c_ptr->m_idx, FALSE);
/* All done */
break;
}
+
case GF_SHARDS:
case GF_ROCKET:
{
- if (is_mirror_grid(&cave[y][x]))
+ if (is_mirror_grid(c_ptr))
{
#ifdef JP
msg_print("¶À¤¬³ä¤ì¤¿¡ª");
#else
- msg_print("The mirror was chashed!");
-#endif
- remove_mirror(y,x);
- project(0,2,y,x, p_ptr->lev /2 +5 ,GF_SHARDS,(PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP|PROJECT_NO_HANGEKI),-1);
+ msg_print("The mirror was crashed!");
+#endif
+ sound(SOUND_GLASS);
+ remove_mirror(y, x);
+ project(0, 2, y, x, p_ptr->lev / 2 + 5, GF_SHARDS, (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI), -1);
+ }
+
+ if (have_flag(f_ptr->flags, FF_GLASS) && !have_flag(f_ptr->flags, FF_PERMANENT) && (dam >= 50))
+ {
+ /* Message */
+ if (known && (c_ptr->info & CAVE_MARK))
+ {
+#ifdef JP
+ msg_format("%s¤¬³ä¤ì¤¿¡ª", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#else
+ msg_format("The %s was crashed!", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#endif
+ sound(SOUND_GLASS);
+ }
+
+ /* Destroy the wall */
+ cave_alter_feat(y, x, FF_HURT_ROCK);
+
+ /* Update some things */
+ p_ptr->update |= (PU_FLOW);
}
break;
}
+
case GF_SOUND:
{
- if (is_mirror_grid(&cave[y][x]) && p_ptr->lev < 40 )
+ if (is_mirror_grid(c_ptr) && p_ptr->lev < 40)
{
#ifdef JP
msg_print("¶À¤¬³ä¤ì¤¿¡ª");
#else
- msg_print("The mirror was chashed!");
-#endif
- cave_set_feat(y,x, FEAT_FLOOR);
+ msg_print("The mirror was crashed!");
+#endif
+ sound(SOUND_GLASS);
+ remove_mirror(y, x);
+ project(0, 2, y, x, p_ptr->lev / 2 + 5, GF_SHARDS, (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI), -1);
+ }
+
+ if (have_flag(f_ptr->flags, FF_GLASS) && !have_flag(f_ptr->flags, FF_PERMANENT) && (dam >= 200))
+ {
+ /* Message */
+ if (known && (c_ptr->info & CAVE_MARK))
+ {
+#ifdef JP
+ msg_format("%s¤¬³ä¤ì¤¿¡ª", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#else
+ msg_format("The %s was crashed!", f_name + f_info[get_feat_mimic(c_ptr)].name);
+#endif
+ sound(SOUND_GLASS);
+ }
+
+ /* Destroy the wall */
+ cave_alter_feat(y, x, FF_HURT_ROCK);
+
+ /* Update some things */
+ p_ptr->update |= (PU_FLOW);
+ }
+ break;
+ }
+
+ case GF_DISINTEGRATE:
+ {
+ /* Destroy mirror */
+ if (is_mirror_grid(c_ptr)) remove_mirror(y, x);
+
+ /* Permanent features don't get effect */
+ /* But not protect monsters and other objects */
+ if (have_flag(f_ptr->flags, FF_HURT_DISI) && !have_flag(f_ptr->flags, FF_PERMANENT))
+ {
+ cave_alter_feat(y, x, FF_HURT_DISI);
+
+ /* Update some things -- similar to GF_KILL_WALL */
+ p_ptr->update |= (PU_FLOW);
}
break;
}
/* Scan all objects in the grid */
for (this_o_idx = c_ptr->o_idx; this_o_idx; this_o_idx = next_o_idx)
{
- object_type *o_ptr;
+ /* Acquire object */
+ object_type *o_ptr = &o_list[this_o_idx];
bool is_art = FALSE;
bool ignore = FALSE;
- bool plural = FALSE;
bool do_kill = FALSE;
cptr note_kill = NULL;
- /* Acquire object */
- o_ptr = &o_list[this_o_idx];
+#ifndef JP
+ /* Get the "plural"-ness */
+ bool plural = (o_ptr->number > 1);
+#endif
/* Acquire next object */
next_o_idx = o_ptr->next_o_idx;
/* Extract the flags */
object_flags(o_ptr, flgs);
- /* Get the "plural"-ness */
- if (o_ptr->number > 1) plural = TRUE;
-
/* Check for artifact */
- if ((artifact_p(o_ptr) || o_ptr->art_name)) is_art = TRUE;
+ if (object_is_artifact(o_ptr)) is_art = TRUE;
/* Analyze the type */
switch (typ)
case GF_HOLY_FIRE:
case GF_HELL_FIRE:
{
- if (cursed_p(o_ptr))
+ if (object_is_cursed(o_ptr))
{
do_kill = TRUE;
#ifdef JP
case GF_IDENTIFY:
{
identify_item(o_ptr);
+
+ /* Auto-inscription */
+ autopick_alter_item((-this_o_idx), FALSE);
break;
}
object_known(o_ptr);
/* Notice */
- if (known && o_ptr->marked)
+ if (known && (o_ptr->marked & OM_FOUND))
{
#ifdef JP
msg_print("¥«¥Á¥Ã¤È²»¤¬¤·¤¿¡ª");
#ifdef JP
note_kill = "À¸¤Ê֤ä¿¡£";
#else
- note_kill = "rivived.";
+ note_kill = " revived.";
#endif
}
else if (!note_kill)
if (do_kill)
{
/* Effect "observed" */
- if (known && o_ptr->marked)
+ if (known && (o_ptr->marked & OM_FOUND))
{
obvious = TRUE;
- object_desc(o_name, o_ptr, FALSE, 0);
+ object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
}
/* Artifacts, and other objects, get to resist */
if (is_art || ignore)
{
/* Observe the resist */
- if (known && o_ptr->marked)
+ if (known && (o_ptr->marked & OM_FOUND))
{
#ifdef JP
msg_format("%s¤Ï±Æ¶Á¤ò¼õ¤±¤Ê¤¤¡ª",
else
{
/* Describe if needed */
- if (known && o_ptr->marked && note_kill)
+ if (known && (o_ptr->marked & OM_FOUND) && note_kill)
{
#ifdef JP
msg_format("%s¤Ï%s", o_name, note_kill);
* We attempt to return "TRUE" if the player saw anything "useful" happen.
*/
/* "flg" was added. */
-static bool project_m(int who, int r, int y, int x, int dam, int typ , int flg)
+static bool project_m(int who, int r, int y, int x, int dam, int typ, int flg, bool see_s_msg)
{
int tmp;
cave_type *c_ptr = &cave[y][x];
monster_type *m_ptr = &m_list[c_ptr->m_idx];
+ monster_type *caster_ptr = (who > 0) ? &m_list[who] : NULL;
monster_race *r_ptr = &r_info[m_ptr->r_idx];
- char killer [80];
+ char killer[80];
/* Is the monster "seen"? */
bool seen = m_ptr->ml;
+ bool seen_msg = is_seen(m_ptr);
- bool slept = (bool)(m_ptr->csleep > 0);
+ bool slept = (bool)MON_CSLEEP(m_ptr);
/* Were the effects "obvious" (if seen)? */
bool obvious = FALSE;
/* Can the player know about this effect? */
bool known = ((m_ptr->cdis <= MAX_SIGHT) || p_ptr->inside_battle);
- /* Can the player see the source of this effect? */
- bool see_s = ((who <= 0) || m_list[who].ml);
-
/* Were the effects "irrelevant"? */
bool skipped = FALSE;
bool get_angry = FALSE;
/* Polymorph setting (true or false) */
- int do_poly = 0;
+ bool do_poly = FALSE;
/* Teleport setting (max distance) */
int do_dist = 0;
/* Hold the monster name */
char m_name[80];
+#ifndef JP
char m_poss[10];
+#endif
int photo = 0;
cptr note = NULL;
/* Assume a default death */
-#ifdef JP
-cptr note_dies = "¤Ï»à¤ó¤À¡£";
-#else
- cptr note_dies = " dies.";
-#endif
+ cptr note_dies = extract_note_dies(real_r_ptr(m_ptr));
int ty = m_ptr->fy;
int tx = m_ptr->fx;
+ int caster_lev = (who > 0) ? r_info[caster_ptr->r_idx].level : (p_ptr->lev * 2);
/* Nobody here */
if (!c_ptr->m_idx) return (FALSE);
/* Get the monster name (BEFORE polymorphing) */
monster_desc(m_name, m_ptr, 0);
+#ifndef JP
/* Get the monster possessive ("his"/"her"/"its") */
- monster_desc(m_poss, m_ptr, 0x22);
-
-
- /* Some monsters get "destroyed" */
- if (!monster_living(r_ptr))
- {
- int i;
- bool explode = FALSE;
-
- for (i = 0; i < 4; i++)
- {
- if (r_ptr->blow[i].method == RBM_EXPLODE) explode = TRUE;
- }
-
- /* Special note at death */
- if (explode)
-#ifdef JP
-note_dies = "¤ÏÇúȯ¤·¤ÆÊ´¡¹¤Ë¤Ê¤Ã¤¿¡£";
-#else
- note_dies = " explodes into tiny shreds.";
-#endif
- else
-#ifdef JP
-note_dies = "¤òÅݤ·¤¿¡£";
-#else
- note_dies = " is destroyed.";
+ monster_desc(m_poss, m_ptr, MD_PRON_VISIBLE | MD_POSSESSIVE);
#endif
- }
+
if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) disturb(1, 0);
case GF_MISSILE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
break;
case GF_ACID:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & (RF3_IM_ACID))
+ if (r_ptr->flagsr & RFR_IM_ACID)
{
#ifdef JP
note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡ª";
#endif
dam /= 9;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_ACID);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_ACID);
}
break;
}
case GF_ELEC:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & (RF3_IM_ELEC))
+ if (r_ptr->flagsr & RFR_IM_ELEC)
{
#ifdef JP
note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡ª";
#endif
dam /= 9;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_ELEC);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_ELEC);
}
break;
}
case GF_FIRE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & (RF3_IM_FIRE))
+ if (r_ptr->flagsr & RFR_IM_FIRE)
{
#ifdef JP
note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡ª";
#endif
dam /= 9;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_FIRE);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_FIRE);
}
else if (r_ptr->flags3 & (RF3_HURT_FIRE))
{
#endif
dam *= 2;
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_FIRE);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_FIRE);
}
break;
}
case GF_COLD:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & (RF3_IM_COLD))
+ if (r_ptr->flagsr & RFR_IM_COLD)
{
#ifdef JP
note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡ª";
#endif
dam /= 9;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_COLD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_COLD);
}
else if (r_ptr->flags3 & (RF3_HURT_COLD))
{
#endif
dam *= 2;
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_COLD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
}
break;
}
case GF_POIS:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & RF3_IM_POIS)
+ if (r_ptr->flagsr & RFR_IM_POIS)
{
#ifdef JP
note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡ª";
#endif
dam /= 9;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_POIS);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_POIS);
}
break;
}
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & RF3_IM_POIS)
+ if (r_ptr->flagsr & RFR_IM_POIS)
{
#ifdef JP
note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#endif
dam *= 3; dam /= randint1(6) + 6;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_POIS);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_POIS);
}
else if (one_in_(3)) do_poly = TRUE;
break;
case GF_HELL_FIRE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags3 & RF3_GOOD)
note = " is hit hard.";
#endif
- if (seen) r_ptr->r_flags3 |= (RF3_GOOD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
}
break;
}
case GF_HOLY_FIRE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags3 & RF3_GOOD)
note = " is immune.";
#endif
- if (seen) r_ptr->r_flags3 |= RF3_GOOD;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_GOOD;
}
else if (r_ptr->flags3 & RF3_EVIL)
{
note = " is hit hard.";
#endif
- if (seen) r_ptr->r_flags3 |= RF3_EVIL;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_EVIL;
}
else
{
case GF_ARROW:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
break;
case GF_PLASMA:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & RF3_RES_PLAS)
+ if (r_ptr->flagsr & RFR_RES_PLAS)
{
#ifdef JP
note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#endif
dam *= 3; dam /= randint1(6) + 6;
- if (seen)
- r_ptr->r_flags3 |= (RF3_RES_PLAS);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_PLAS);
}
break;
}
case GF_NETHER:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & RF3_UNDEAD)
+ if (r_ptr->flagsr & RFR_RES_NETH)
{
+ if (r_ptr->flags3 & RF3_UNDEAD)
+ {
#ifdef JP
-note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡£";
#else
- note = " is immune.";
+ note = " is immune.";
#endif
- dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_UNDEAD);
- }
- else if (r_ptr->flags3 & RF3_RES_NETH)
- {
-#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ dam = 0;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ }
+ else
+ {
+#ifdef JP
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
- note = " resists.";
+ note = " resists.";
#endif
- dam *= 3; dam /= randint1(6) + 6;
-
- if (seen) r_ptr->r_flags3 |= (RF3_RES_NETH);
+ dam *= 3; dam /= randint1(6) + 6;
+ }
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_NETH);
}
else if (r_ptr->flags3 & RF3_EVIL)
{
dam /= 2;
#ifdef JP
-note = "¤Ï¤¤¤¯¤é¤«ÂÑÀ¤ò¼¨¤·¤¿¡£";
+ note = "¤Ï¤¤¤¯¤é¤«ÂÑÀ¤ò¼¨¤·¤¿¡£";
#else
note = " resists somewhat.";
#endif
- if (seen) r_ptr->r_flags3 |= (RF3_EVIL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
}
break;
}
case GF_WATER:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (m_ptr->r_idx == MON_WATER_ELEM || m_ptr->r_idx == MON_UNMAKER)
+ if (r_ptr->flagsr & RFR_RES_WATE)
{
+ if ((m_ptr->r_idx == MON_WATER_ELEM) || (m_ptr->r_idx == MON_UNMAKER))
+ {
#ifdef JP
-note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡£";
#else
- note = " is immune.";
+ note = " is immune.";
#endif
- dam = 0;
- }
- else if (r_ptr->flags3 & RF3_RES_WATE)
- {
+ dam = 0;
+ }
+ else
+ {
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
- note = " resists.";
+ note = " resists.";
#endif
- dam *= 3; dam /= randint1(6) + 6;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_WATE);
+ dam *= 3; dam /= randint1(6) + 6;
+ }
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_WATE);
}
break;
}
case GF_CHAOS:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- do_poly = TRUE;
- do_conf = (5 + randint1(11) + r) / (r + 1);
- if ((r_ptr->flags4 & RF4_BR_CHAO) ||
- (m_ptr->r_idx == MON_STORMBRINGER) ||
- ((r_ptr->flags3 & RF3_DEMON) && one_in_(3)))
+ if (r_ptr->flagsr & RFR_RES_CHAO)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
- do_poly = FALSE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_CHAO);
+ }
+ else if ((r_ptr->flags3 & RF3_DEMON) && one_in_(3))
+ {
+#ifdef JP
+ note = "¤Ï¤¤¤¯¤é¤«ÂÑÀ¤ò¼¨¤·¤¿¡£";
+#else
+ note = " resists somewhat.";
+#endif
+
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
+ }
+ else
+ {
+ do_poly = TRUE;
+ do_conf = (5 + randint1(11) + r) / (r + 1);
}
break;
}
case GF_SHARDS:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags4 & RF4_BR_SHAR)
+ if (r_ptr->flagsr & RFR_RES_SHAR)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
}
break;
}
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags4 & RF4_BR_SHAR)
+ if (r_ptr->flagsr & RFR_RES_SHAR)
{
#ifdef JP
-note = "¤Ï¤¤¤¯¤é¤«ÂÑÀ¤ò¼¨¤·¤¿¡£";
+ note = "¤Ï¤¤¤¯¤é¤«ÂÑÀ¤ò¼¨¤·¤¿¡£";
#else
note = " resists somewhat.";
#endif
dam /= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
}
break;
}
case GF_SOUND:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- do_stun = (10 + randint1(15) + r) / (r + 1);
- if (r_ptr->flags4 & RF4_BR_SOUN)
+ if (r_ptr->flagsr & RFR_RES_SOUN)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 2; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SOUN);
}
+ else do_stun = (10 + randint1(15) + r) / (r + 1);
break;
}
case GF_CONFUSION:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- do_conf = (10 + randint1(15) + r) / (r + 1);
- if (r_ptr->flags4 & RF4_BR_CONF)
+ if (r_ptr->flags3 & RF3_NO_CONF)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
- dam *= 2; dam /= randint1(6) + 6;
- }
- else if (r_ptr->flags3 & RF3_NO_CONF)
- {
-#ifdef JP
-note = "¤Ï¤¤¤¯¤é¤«ÂÑÀ¤ò¼¨¤·¤¿¡£";
-#else
- note = " resists somewhat.";
-#endif
-
- dam /= 2;
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
+ else do_conf = (10 + randint1(15) + r) / (r + 1);
break;
}
case GF_DISENCHANT:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & RF3_RES_DISE)
+ if (r_ptr->flagsr & RFR_RES_DISE)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_DISE);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_DISE);
}
break;
}
case GF_NEXUS:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & RF3_RES_NEXU)
+ if (r_ptr->flagsr & RFR_RES_NEXU)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_NEXU);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_NEXU);
}
break;
}
case GF_FORCE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- do_stun = (randint1(15) + r) / (r + 1);
- if (r_ptr->flags4 & RF4_BR_WALL)
+ if (r_ptr->flagsr & RFR_RES_WALL)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_WALL);
}
+ else do_stun = (randint1(15) + r) / (r + 1);
break;
}
case GF_INERTIA:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags4 & (RF4_BR_INER))
+ if (r_ptr->flagsr & RFR_RES_INER)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_INER);
}
else
{
/* Normal monsters slow down */
else
{
- if (!m_ptr->slow)
+ if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
#ifdef JP
-note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+ note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
#else
note = " starts moving slower.";
#endif
}
- m_ptr->slow = MIN(200, m_ptr->slow + 50);
- if (c_ptr->m_idx == p_ptr->riding)
- p_ptr->update |= (PU_BONUS);
}
}
break;
case GF_TIME:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags4 & (RF4_BR_TIME))
+ if (r_ptr->flagsr & RFR_RES_TIME)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_TIME);
}
- else do_time = (dam+1)/2;
+ else do_time = (dam + 1) / 2;
break;
}
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags3 & (RF3_RES_TELE))
+ if (r_ptr->flagsr & RFR_RES_TELE)
{
if (r_ptr->flags1 & (RF1_UNIQUE))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
}
else if (r_ptr->level > randint1(100))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
#else
else do_dist = 0;
if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) do_dist = 0;
- if (r_ptr->flags4 & (RF4_BR_GRAV))
+ if (r_ptr->flagsr & RFR_RES_GRAV)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
dam *= 3; dam /= randint1(6) + 6;
do_dist = 0;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_GRAV);
}
else
{
/* Normal monsters slow down */
else
{
- if (!m_ptr->slow)
+ if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
#ifdef JP
-note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+ note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
#else
note = " starts moving slower.";
#endif
}
- m_ptr->slow = MIN(200, m_ptr->slow + 50);
- if (c_ptr->m_idx == p_ptr->riding)
- p_ptr->update |= (PU_BONUS);
}
/* 2. stun */
- do_stun = damroll((p_ptr->lev / 10) + 3 , (dam)) + 1;
+ do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
/* Attempt a saving throw */
if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
do_stun = 0;
/* No obvious effect */
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = " is unaffected!";
#endif
case GF_SUPER_RAY:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
break;
case GF_DISINTEGRATE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags3 & RF3_HURT_ROCK)
{
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
#ifdef JP
note = "¤ÎÈéÉ椬¤¿¤À¤ì¤¿¡ª";
note_dies = "¤Ï¾øȯ¤·¤¿¡ª";
/* PSI only works if the monster can see you! -- RG */
if (!(los(m_ptr->fy, m_ptr->fx, py, px)))
{
- dam = 0;
#ifdef JP
-note = "¤Ï¤¢¤Ê¤¿¤¬¸«¤¨¤Ê¤¤¤Î¤Ç±Æ¶Á¤µ¤ì¤Ê¤¤¡ª";
+ if (seen_msg) msg_format("%s¤Ï¤¢¤Ê¤¿¤¬¸«¤¨¤Ê¤¤¤Î¤Ç±Æ¶Á¤µ¤ì¤Ê¤¤¡ª", m_name);
#else
- note = " can't see you, and isn't affected!";
+ if (seen_msg) msg_format("%^s can't see you, and isn't affected!", m_name);
#endif
-
+ skipped = TRUE;
+ break;
}
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags2 & RF2_EMPTY_MIND)
{
dam = 0;
#ifdef JP
-note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
#else
note = " is immune!";
#endif
- if (seen) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
}
- else if ((r_ptr->flags2 & RF2_STUPID) ||
- (r_ptr->flags2 & RF2_WEIRD_MIND) ||
- (r_ptr->flags3 & RF3_ANIMAL) ||
- (r_ptr->level > randint1(3 * dam)))
+ else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
+ (r_ptr->flags3 & RF3_ANIMAL) ||
+ (r_ptr->level > randint1(3 * dam)))
{
dam /= 3;
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
* Powerful demons & undead can turn a mindcrafter's
* attacks back on them
*/
- if (((r_ptr->flags3 & RF3_UNDEAD) ||
- (r_ptr->flags3 & RF3_DEMON)) &&
- (r_ptr->level > p_ptr->lev / 2) &&
- one_in_(2))
+ if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
+ (r_ptr->level > p_ptr->lev / 2) &&
+ one_in_(2))
{
note = NULL;
#ifdef JP
-msg_format("%^s¤ÎÂÄÍ¤¿Àº¿À¤Ï¹¶·â¤òÄ·¤ÍÊÖ¤·¤¿¡ª",
- m_name);
+ msg_format("%^s¤ÎÂÄÍ¤¿Àº¿À¤Ï¹¶·â¤òÄ·¤ÍÊÖ¤·¤¿¡ª", m_name);
#else
msg_format("%^s%s corrupted mind backlashes your attack!",
m_name, (seen ? "'s" : "s"));
#endif
/* Saving throw */
- if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
+ if ((randint0(100 + r_ptr->level / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
else
{
/* Injure +/- confusion */
- monster_desc(killer, m_ptr, 0x288);
+ monster_desc(killer, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
take_hit(DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
- if (one_in_(4))
+ if (one_in_(4) && !CHECK_MULTISHADOW())
{
switch (randint1(4))
{
{
if (r_ptr->flags3 & RF3_NO_FEAR)
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = " is unaffected.";
#endif
break;
default:
#ifdef JP
-note = "¤Ï̲¤ê¹þ¤ó¤Ç¤·¤Þ¤Ã¤¿¡ª";
+ note = "¤Ï̲¤ê¹þ¤ó¤Ç¤·¤Þ¤Ã¤¿¡ª";
#else
note = " falls asleep!";
#endif
}
#ifdef JP
-note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±³Ì¤È¤Ê¤Ã¤¿¡£";
+ note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±³Ì¤È¤Ê¤Ã¤¿¡£";
#else
note_dies = " collapses, a mindless husk.";
#endif
case GF_PSI_DRAIN:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags2 & RF2_EMPTY_MIND)
{
dam = 0;
#ifdef JP
-note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
#else
note = " is immune!";
#endif
}
- else if ((r_ptr->flags2 & RF2_STUPID) ||
- (r_ptr->flags2 & RF2_WEIRD_MIND) ||
- (r_ptr->flags3 & RF3_ANIMAL) ||
- (r_ptr->level > randint1(3 * dam)))
+ else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
+ (r_ptr->flags3 & RF3_ANIMAL) ||
+ (r_ptr->level > randint1(3 * dam)))
{
dam /= 3;
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists.";
#endif
* Powerful demons & undead can turn a mindcrafter's
* attacks back on them
*/
- if (((r_ptr->flags3 & RF3_UNDEAD) ||
- (r_ptr->flags3 & RF3_DEMON)) &&
+ if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
(r_ptr->level > p_ptr->lev / 2) &&
(one_in_(2)))
{
note = NULL;
#ifdef JP
-msg_format("%^s¤ÎÂÄÍ¤¿Àº¿À¤Ï¹¶·â¤òÄ·¤ÍÊÖ¤·¤¿¡ª",
- m_name);
+ msg_format("%^s¤ÎÂÄÍ¤¿Àº¿À¤Ï¹¶·â¤òÄ·¤ÍÊÖ¤·¤¿¡ª", m_name);
#else
msg_format("%^s%s corrupted mind backlashes your attack!",
m_name, (seen ? "'s" : "s"));
#endif
/* Saving throw */
- if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
+ if ((randint0(100 + r_ptr->level / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤¢¤Ê¤¿¤Ï¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤¢¤Ê¤¿¤Ï¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
-
}
else
{
/* Injure + mana drain */
- monster_desc(killer, m_ptr, 0x288);
+ monster_desc(killer, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
+ if (!CHECK_MULTISHADOW())
+ {
#ifdef JP
-msg_print("ĶǽÎϥѥ¤òµÛ¤¤¤È¤é¤ì¤¿¡ª");
+ msg_print("ĶǽÎϥѥ¤òµÛ¤¤¤È¤é¤ì¤¿¡ª");
#else
- msg_print("Your psychic energy is drained!");
+ msg_print("Your psychic energy is drained!");
#endif
- p_ptr->csp = MAX(0, p_ptr->csp - damroll(5, dam) / 2);
- p_ptr->redraw |= PR_MANA;
- p_ptr->window |= (PW_SPELL);
+ p_ptr->csp -= damroll(5, dam) / 2;
+ if (p_ptr->csp < 0) p_ptr->csp = 0;
+ p_ptr->redraw |= PR_MANA;
+ p_ptr->window |= (PW_SPELL);
+ }
take_hit(DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
}
dam = 0;
{
int b = damroll(5, dam) / 4;
#ifdef JP
-msg_format("¤¢¤Ê¤¿¤Ï%s¤Î¶ìÄˤòĶǽÎϥѥ¤ËÊÑ´¹¤·¤¿¡ª",
- m_name);
+ msg_format("¤¢¤Ê¤¿¤Ï%s¤Î¶ìÄˤòĶǽÎϥѥ¤ËÊÑ´¹¤·¤¿¡ª", m_name);
#else
msg_format("You convert %s%s pain into psychic energy!",
m_name, (seen ? "'s" : "s"));
}
#ifdef JP
-note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±³Ì¤È¤Ê¤Ã¤¿¡£";
+ note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±³Ì¤È¤Ê¤Ã¤¿¡£";
#else
note_dies = " collapses, a mindless husk.";
#endif
case GF_TELEKINESIS:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (one_in_(4))
}
/* 1. stun */
- do_stun = damroll((p_ptr->lev / 10) + 3 , dam) + 1;
+ do_stun = damroll((caster_lev / 20) + 3 , dam) + 1;
/* Attempt a saving throw */
if ((r_ptr->flags1 & RF1_UNIQUE) ||
case GF_PSY_SPEAR:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
break;
case GF_METEOR:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
break;
case GF_DOMINATION:
{
if (!is_hostile(m_ptr)) break;
+
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags1 & RF1_QUESTOR) ||
+ if ((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) ||
(r_ptr->flags3 & RF3_NO_CONF) ||
(r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
/* Memorize a flag */
if (r_ptr->flags3 & RF3_NO_CONF)
{
- if (seen) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
/* Resist */
* Powerful demons & undead can turn a mindcrafter's
* attacks back on them
*/
- if (((r_ptr->flags3 & RF3_UNDEAD) ||
- (r_ptr->flags3 & RF3_DEMON)) &&
- (r_ptr->level > p_ptr->lev / 2) &&
- (one_in_(2)))
+ if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
+ (r_ptr->level > p_ptr->lev / 2) &&
+ (one_in_(2)))
{
note = NULL;
#ifdef JP
-msg_format("%^s¤ÎÂÄÍ¤¿Àº¿À¤Ï¹¶·â¤òÄ·¤ÍÊÖ¤·¤¿¡ª",
- m_name);
+ msg_format("%^s¤ÎÂÄÍ¤¿Àº¿À¤Ï¹¶·â¤òÄ·¤ÍÊÖ¤·¤¿¡ª", m_name);
#else
msg_format("%^s%s corrupted mind backlashes your attack!",
m_name, (seen ? "'s" : "s"));
if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
{
if (r_ptr->flags3 & RF3_NO_FEAR)
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = " is unaffected.";
#endif
case GF_ICE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
do_stun = (randint1(15) + 1) / (r + 1);
- if (r_ptr->flags3 & RF3_IM_COLD)
+ if (r_ptr->flagsr & RFR_IM_COLD)
{
#ifdef JP
-note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤Ï¤«¤Ê¤êÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " resists a lot.";
#endif
dam /= 9;
- if (seen) r_ptr->r_flags3 |= (RF3_IM_COLD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_COLD);
}
else if (r_ptr->flags3 & (RF3_HURT_COLD))
{
#ifdef JP
-note = "¤Ï¤Ò¤É¤¤Ä˼ê¤ò¤¦¤±¤¿¡£";
+ note = "¤Ï¤Ò¤É¤¤Ä˼ê¤ò¤¦¤±¤¿¡£";
#else
note = " is hit hard.";
#endif
dam *= 2;
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_COLD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
}
break;
}
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (!monster_living(r_ptr))
{
- if (r_ptr->flags3 & RF3_UNDEAD)
- {
- if (seen) r_ptr->r_flags3 |= (RF3_UNDEAD);
- }
-
- if (r_ptr->flags3 & (RF3_DEMON))
+ if (is_original_ap_and_seen(m_ptr))
{
- if (seen) r_ptr->r_flags3 |= (RF3_DEMON);
+ if (r_ptr->flags3 & RF3_DEMON) r_ptr->r_flags3 |= (RF3_DEMON);
+ if (r_ptr->flags3 & RF3_UNDEAD) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ if (r_ptr->flags3 & RF3_NONLIVING) r_ptr->r_flags3 |= (RF3_NONLIVING);
}
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is unaffected!";
#endif
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if ((r_ptr->flags3 & RF3_UNDEAD) ||
- (r_ptr->flags3 & RF3_NONLIVING))
+ if (!monster_living(r_ptr))
{
- if (r_ptr->flags3 & RF3_UNDEAD)
+ if (is_original_ap_and_seen(m_ptr))
{
- if (seen) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ if (r_ptr->flags3 & RF3_DEMON) r_ptr->r_flags3 |= (RF3_DEMON);
+ if (r_ptr->flags3 & RF3_UNDEAD) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ if (r_ptr->flags3 & RF3_NONLIVING) r_ptr->r_flags3 |= (RF3_NONLIVING);
}
#ifdef JP
-note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡£";
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡£";
#else
note = " is immune.";
#endif
}
else if (((r_ptr->flags1 & RF1_UNIQUE) &&
(randint1(888) != 666)) ||
- (((r_ptr->level + randint1(20)) > randint1(p_ptr->lev + randint1(10))) &&
+ (((r_ptr->level + randint1(20)) > randint1((caster_lev / 2) + randint1(10))) &&
randint1(100) != 66))
{
#ifdef JP
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt to polymorph (see below) */
{
if (seen) obvious = TRUE;
- if (is_pet(m_ptr) || (r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & (RF7_UNIQUE_7 | RF7_UNIQUE2)))
+ if (is_pet(m_ptr) || (r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & (RF7_NAZGUL | RF7_UNIQUE2)))
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
if (seen) obvious = TRUE;
/* Wake up */
- m_ptr->csleep = 0;
+ (void)set_monster_csleep(c_ptr->m_idx, 0);
if (m_ptr->maxhp < m_ptr->max_maxhp)
{
#ifdef JP
-msg_format("%^s¤Î¶¯¤µ¤¬Ìá¤Ã¤¿¡£", m_name);
+ if (seen_msg) msg_format("%^s¤Î¶¯¤µ¤¬Ìá¤Ã¤¿¡£", m_name);
#else
- msg_format("%^s recovers %s vitality.", m_name, m_poss);
+ if (seen_msg) msg_format("%^s recovers %s vitality.", m_name, m_poss);
#endif
m_ptr->maxhp = m_ptr->max_maxhp;
}
- if (!dam) break;
+
+ if (!dam)
+ {
+ /* Redraw (later) if needed */
+ if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
+ if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
+ break;
+ }
+
+ /* Fall through */
}
case GF_OLD_HEAL:
{
if (seen) obvious = TRUE;
/* Wake up */
- m_ptr->csleep = 0;
-
- if (m_ptr->stunned)
+ (void)set_monster_csleep(c_ptr->m_idx, 0);
+ if (MON_STUNNED(m_ptr))
{
#ifdef JP
-msg_format("%^s¤ÏÛ¯Û°¾õÂÖ¤«¤éΩ¤Áľ¤Ã¤¿¡£", m_name);
+ if (seen_msg) msg_format("%^s¤ÏÛ¯Û°¾õÂÖ¤«¤éΩ¤Áľ¤Ã¤¿¡£", m_name);
#else
- msg_format("%^s is no longer stunned.", m_name);
+ if (seen_msg) msg_format("%^s is no longer stunned.", m_name);
#endif
- m_ptr->stunned = 0;
+ (void)set_monster_stunned(c_ptr->m_idx, 0);
}
- if (m_ptr->confused)
+ if (MON_CONFUSED(m_ptr))
{
#ifdef JP
-msg_format("%^s¤Ïº®Í𤫤éΩ¤Áľ¤Ã¤¿¡£", m_name);
+ if (seen_msg) msg_format("%^s¤Ïº®Í𤫤éΩ¤Áľ¤Ã¤¿¡£", m_name);
#else
- msg_format("%^s is no longer confused.", m_name);
+ if (seen_msg) msg_format("%^s is no longer confused.", m_name);
#endif
- m_ptr->confused = 0;
+ (void)set_monster_confused(c_ptr->m_idx, 0);
}
- if (m_ptr->monfear)
+ if (MON_MONFEAR(m_ptr))
{
#ifdef JP
-msg_format("%^s¤Ïͦµ¤¤ò¼è¤êÌᤷ¤¿¡£", m_name);
+ if (seen_msg) msg_format("%^s¤Ïͦµ¤¤ò¼è¤êÌᤷ¤¿¡£", m_name);
#else
- msg_format("%^s recovers %s courage.", m_name, m_poss);
+ if (seen_msg) msg_format("%^s recovers %s courage.", m_name, m_poss);
#endif
- m_ptr->monfear = 0;
+ (void)set_monster_monfear(c_ptr->m_idx, 0);
}
/* Heal */
/* No overflow */
if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
- chg_virtue(V_VITALITY, 1);
-
- if (r_ptr->flags1 & RF1_UNIQUE)
- chg_virtue(V_INDIVIDUALISM, 1);
-
- if (is_friendly(m_ptr))
- chg_virtue(V_HONOUR, 1);
- else if (!(r_ptr->flags3 & RF3_EVIL))
- {
- if (r_ptr->flags3 & RF3_GOOD)
- chg_virtue(V_COMPASSION, 2);
- else
- chg_virtue(V_COMPASSION, 1);
+ if (!who)
+ {
+ chg_virtue(V_VITALITY, 1);
+
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ chg_virtue(V_INDIVIDUALISM, 1);
+
+ if (is_friendly(m_ptr))
+ chg_virtue(V_HONOUR, 1);
+ else if (!(r_ptr->flags3 & RF3_EVIL))
+ {
+ if (r_ptr->flags3 & RF3_GOOD)
+ chg_virtue(V_COMPASSION, 2);
+ else
+ chg_virtue(V_COMPASSION, 1);
+ }
+
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(V_NATURE, 1);
}
if (m_ptr->r_idx == MON_LEPER)
{
heal_leper = TRUE;
- chg_virtue(V_COMPASSION, 5);
+ if (!who) chg_virtue(V_COMPASSION, 5);
}
-
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(V_NATURE, 1);
/* Redraw (later) if needed */
if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
/* Message */
#ifdef JP
-note = "¤ÏÂÎÎϤò²óÉü¤·¤¿¤è¤¦¤À¡£";
+ note = "¤ÏÂÎÎϤò²óÉü¤·¤¿¤è¤¦¤À¡£";
#else
note = " looks healthier.";
#endif
-
/* No "real" damage */
dam = 0;
break;
if (seen) obvious = TRUE;
/* Speed up */
- if (!m_ptr->fast)
+ if (set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100))
{
#ifdef JP
-note = "¤ÎÆ°¤¤¬Â®¤¯¤Ê¤Ã¤¿¡£";
+ note = "¤ÎÆ°¤¤¬Â®¤¯¤Ê¤Ã¤¿¡£";
#else
note = " starts moving faster.";
#endif
}
- m_ptr->fast = MIN(200, m_ptr->fast + 100);
-
- if (c_ptr->m_idx == p_ptr->riding)
- p_ptr->update |= (PU_BONUS);
- if (r_ptr->flags1 & RF1_UNIQUE)
- chg_virtue(V_INDIVIDUALISM, 1);
- if (is_friendly(m_ptr))
- chg_virtue(V_HONOUR, 1);
+ if (!who)
+ {
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ chg_virtue(V_INDIVIDUALISM, 1);
+ if (is_friendly(m_ptr))
+ chg_virtue(V_HONOUR, 1);
+ }
/* No "real" damage */
dam = 0;
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Powerful monsters can resist */
/* Normal monsters slow down */
else
{
- if (!m_ptr->slow)
+ if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
#ifdef JP
-note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+ note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
#else
note = " starts moving slower.";
#endif
}
- m_ptr->slow = MIN(200, m_ptr->slow + 50);
-
- if (c_ptr->m_idx == p_ptr->riding)
- p_ptr->update |= (PU_BONUS);
}
/* No "real" damage */
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
/* Memorize a flag */
if (r_ptr->flags3 & RF3_NO_SLEEP)
{
- if (seen) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
}
/* No obvious effect */
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
if (seen) obvious = TRUE;
- if ((r_ptr->flags3 & (RF3_RES_ALL)) || p_ptr->inside_arena)
+ if ((r_ptr->flagsr & RFR_RES_ALL) || p_ptr->inside_arena)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE_7))
+ if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL))
dam = dam * 2 / 3;
/* Attempt a saving throw */
if ((r_ptr->flags1 & RF1_QUESTOR) ||
(r_ptr->flags3 & RF3_NO_CONF) ||
- (m_ptr->mflag2 & MFLAG_NOPET) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
(r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 5))
{
/* Memorize a flag */
if (r_ptr->flags3 & RF3_NO_CONF)
{
- if (seen) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
/* Resist */
obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else if (p_ptr->cursed & TRC_AGGRAVATE)
{
note = " hates you too much!";
#endif
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else
{
dam -= p_ptr->virtues[vir-1]/20;
}
- if ((r_ptr->flags3 & (RF3_RES_ALL)) || p_ptr->inside_arena)
+ if ((r_ptr->flagsr & RFR_RES_ALL) || p_ptr->inside_arena)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE_7))
+ if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL))
dam = dam * 2 / 3;
/* Attempt a saving throw */
if ((r_ptr->flags1 & RF1_QUESTOR) ||
(!(r_ptr->flags3 & RF3_UNDEAD)) ||
- (m_ptr->mflag2 & MFLAG_NOPET) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
(r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
/* No obvious effect */
#endif
obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else if (p_ptr->cursed & TRC_AGGRAVATE)
{
note = " hates you too much!";
#endif
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else
{
dam -= p_ptr->virtues[vir-1]/20;
}
- if ((r_ptr->flags3 & (RF3_RES_ALL)) || p_ptr->inside_arena)
+ if ((r_ptr->flagsr & RFR_RES_ALL) || p_ptr->inside_arena)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE_7))
+ if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL))
dam = dam * 2 / 3;
/* Attempt a saving throw */
if ((r_ptr->flags1 & RF1_QUESTOR) ||
(!(r_ptr->flags3 & RF3_DEMON)) ||
- (m_ptr->mflag2 & MFLAG_NOPET) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
(r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
/* No obvious effect */
#endif
obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else if (p_ptr->cursed & TRC_AGGRAVATE)
{
note = " hates you too much!";
#endif
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else
{
dam -= p_ptr->virtues[vir-1]/20;
}
- if ((r_ptr->flags3 & (RF3_RES_ALL)) || p_ptr->inside_arena)
+ if ((r_ptr->flagsr & RFR_RES_ALL) || p_ptr->inside_arena)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE_7))
+ if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL))
dam = dam * 2 / 3;
/* Attempt a saving throw */
if ((r_ptr->flags1 & (RF1_QUESTOR)) ||
(!(r_ptr->flags3 & (RF3_ANIMAL))) ||
- (m_ptr->mflag2 & MFLAG_NOPET) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
(r_ptr->flags3 & (RF3_NO_CONF)) ||
(r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
/* Memorize a flag */
if (r_ptr->flags3 & (RF3_NO_CONF))
{
- if (seen) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
/* Resist */
#endif
obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else if (p_ptr->cursed & TRC_AGGRAVATE)
{
note = " hates you too much!";
#endif
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else
{
#else
msg_format("You stare into %s.", m_name);
#endif
- if ((r_ptr->flags3 & (RF3_RES_ALL)) || p_ptr->inside_arena)
+ if ((r_ptr->flagsr & RFR_RES_ALL) || p_ptr->inside_arena)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE_7))
+ if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL))
dam = dam * 2 / 3;
/* Attempt a saving throw */
if ((r_ptr->flags1 & (RF1_QUESTOR)) ||
- (m_ptr->mflag2 & MFLAG_NOPET) ||
- (r_ptr->flags3 & (RF3_DEMON | RF3_UNDEAD | RF3_NONLIVING)) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
+ !monster_living(r_ptr) ||
((r_ptr->level+10) > randint1(dam)))
{
/* Resist */
#endif
obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else if (p_ptr->cursed & TRC_AGGRAVATE)
{
note = " hates you too much!";
#endif
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else
{
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Get confused later */
/* Memorize a flag */
if (r_ptr->flags3 & (RF3_NO_CONF))
{
- if (seen) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
/* Resist */
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- do_stun = damroll((p_ptr->lev / 10) + 3 , (dam)) + 1;
+ do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
/* Attempt a saving throw */
if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
skipped = TRUE;
break;
}
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
dam = 0;
break;
if (seen) obvious = TRUE;
/* Memorize the effects */
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
/* Special effect */
#ifdef JP
case GF_LITE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags4 & (RF4_BR_LITE))
+ if (r_ptr->flagsr & RFR_RES_LITE)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
#else
note = " resists.";
#endif
dam *= 2; dam /= (randint1(6)+6);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_LITE);
}
else if (r_ptr->flags3 & (RF3_HURT_LITE))
{
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
#ifdef JP
-note = "¤Ï¸÷¤Ë¿È¤ò¤¹¤¯¤á¤¿¡ª";
-note_dies = "¤Ï¸÷¤ò¼õ¤±¤Æ¤·¤Ü¤ó¤Ç¤·¤Þ¤Ã¤¿¡ª";
+ note = "¤Ï¸÷¤Ë¿È¤ò¤¹¤¯¤á¤¿¡ª";
+ note_dies = "¤Ï¸÷¤ò¼õ¤±¤Æ¤·¤Ü¤ó¤Ç¤·¤Þ¤Ã¤¿¡ª";
#else
note = " cringes from the light!";
note_dies = " shrivels away in the light!";
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- /* Likes darkness... */
- if ((r_ptr->flags4 & (RF4_BR_DARK)) ||
- (r_ptr->flags3 & RF3_ORC) ||
- (r_ptr->flags3 & RF3_HURT_LITE))
+ if (r_ptr->flagsr & RFR_RES_DARK)
{
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
#else
note = " resists.";
#endif
dam *= 2; dam /= (randint1(6)+6);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_DARK);
}
break;
}
/* Stone to Mud */
case GF_KILL_WALL:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
dam = 0;
break;
if (seen) obvious = TRUE;
/* Memorize the effects */
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
/* Cute little message */
#ifdef JP
{
bool resists_tele = FALSE;
- if (r_ptr->flags3 & (RF3_RES_TELE))
+ if (r_ptr->flagsr & RFR_RES_TELE)
{
- if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flags3 & (RF3_RES_ALL)))
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
}
else if (r_ptr->level > randint1(100))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
#else
if (!resists_tele)
{
if (seen) obvious = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
do_dist = dam;
}
}
{
bool resists_tele = FALSE;
- if (r_ptr->flags3 & (RF3_RES_TELE))
+ if (r_ptr->flagsr & RFR_RES_TELE)
{
- if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flags3 & (RF3_RES_ALL)))
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
}
else if (r_ptr->level > randint1(100))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
#else
if (!resists_tele)
{
if (seen) obvious = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_EVIL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
do_dist = dam;
}
}
case GF_AWAY_ALL:
{
bool resists_tele = FALSE;
- if (r_ptr->flags3 & (RF3_RES_TELE))
+ if (r_ptr->flagsr & RFR_RES_TELE)
{
- if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flags3 & (RF3_RES_ALL)))
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is unaffected!";
#endif
}
else if (r_ptr->level > randint1(100))
{
- if (seen) r_ptr->r_flags3 |= RF3_RES_TELE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
#ifdef JP
-note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡ª";
#else
note = " resists!";
#endif
/* Turn undead (Use "dam" as "power") */
case GF_TURN_UNDEAD:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
break;
/* Only affect undead */
if (r_ptr->flags3 & (RF3_UNDEAD))
{
- /* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_UNDEAD);
-
/* Obvious */
if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+
/* Apply some fear */
do_fear = damroll(3, (dam / 2)) + 1;
{
/* No obvious effect */
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is unaffected!";
#endif
/* Turn evil (Use "dam" as "power") */
case GF_TURN_EVIL:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
break;
/* Only affect evil */
if (r_ptr->flags3 & (RF3_EVIL))
{
- /* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_EVIL);
-
/* Obvious */
if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+
/* Apply some fear */
do_fear = damroll(3, (dam / 2)) + 1;
{
/* No obvious effect */
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is unaffected!";
#endif
/* Turn monster (Use "dam" as "power") */
case GF_TURN_ALL:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
break;
/* Dispel undead */
case GF_DISP_UNDEAD:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
dam = 0;
/* Only affect undead */
if (r_ptr->flags3 & (RF3_UNDEAD))
{
- /* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_UNDEAD);
-
/* Obvious */
if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+
/* Message */
#ifdef JP
-note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
-note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
+ note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
+ note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
#else
note = " shudders.";
note_dies = " dissolves!";
#endif
-
}
/* Others ignore */
/* Dispel evil */
case GF_DISP_EVIL:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
dam = 0;
/* Only affect evil */
if (r_ptr->flags3 & (RF3_EVIL))
{
- /* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_EVIL);
-
/* Obvious */
if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+
/* Message */
#ifdef JP
-note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
-note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
+ note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
+ note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
#else
note = " shudders.";
note_dies = " dissolves!";
#endif
-
}
/* Others ignore */
/* Dispel good */
case GF_DISP_GOOD:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
dam = 0;
/* Only affect good */
if (r_ptr->flags3 & (RF3_GOOD))
{
- /* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_GOOD);
-
/* Obvious */
if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
+
/* Message */
#ifdef JP
-note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
-note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
+ note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
+ note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
#else
note = " shudders.";
note_dies = " dissolves!";
#endif
-
}
/* Others ignore */
/* Dispel living */
case GF_DISP_LIVING:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
dam = 0;
/* Dispel demons */
case GF_DISP_DEMON:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
dam = 0;
/* Only affect demons */
if (r_ptr->flags3 & (RF3_DEMON))
{
- /* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_DEMON);
-
/* Obvious */
if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
+
/* Message */
#ifdef JP
-note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
-note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
+ note = "¤Ï¿È¿Ì¤¤¤·¤¿¡£";
+ note_dies = "¤Ï¥É¥í¥É¥í¤ËÍϤ±¤¿¡ª";
#else
note = " shudders.";
note_dies = " dissolves!";
#endif
-
}
/* Others ignore */
/* Dispel monster */
case GF_DISP_ALL:
{
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
skipped = TRUE;
dam = 0;
case GF_DRAIN_MANA:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if ((r_ptr->flags4 & ~(RF4_NOMAGIC_MASK)) || (r_ptr->flags5 & ~(RF5_NOMAGIC_MASK)) || (r_ptr->flags6 & ~(RF6_NOMAGIC_MASK)))
{
- /* Message */
+ if (who > 0)
+ {
+ /* Heal the monster */
+ if (caster_ptr->hp < caster_ptr->maxhp)
+ {
+ /* Heal */
+ caster_ptr->hp += 6 * dam;
+ if (caster_ptr->hp > caster_ptr->maxhp) caster_ptr->hp = caster_ptr->maxhp;
+
+ /* Redraw (later) if needed */
+ if (p_ptr->health_who == who) p_ptr->redraw |= (PR_HEALTH);
+ if (p_ptr->riding == who) p_ptr->redraw |= (PR_UHEALTH);
+
+ /* Special message */
+ if (see_s_msg)
+ {
+ /* Get the monster name */
+ monster_desc(killer, caster_ptr, 0);
+#ifdef JP
+ msg_format("%^s¤Ïµ¤Ê¬¤¬Îɤµ¤½¤¦¤À¡£", killer);
+#else
+ msg_format("%^s appears healthier.", killer);
+#endif
+ }
+ }
+ }
+ else
+ {
+ /* Message */
#ifdef JP
-msg_format("%s¤«¤éÀº¿À¥¨¥Í¥ë¥®¡¼¤òµÛ¤¤¤È¤Ã¤¿¡£",m_name);
+ msg_format("%s¤«¤éÀº¿À¥¨¥Í¥ë¥®¡¼¤òµÛ¤¤¤È¤Ã¤¿¡£", m_name);
#else
- msg_format("You draw psychic energy from %s.", m_name);
+ msg_format("You draw psychic energy from %s.", m_name);
#endif
- (void)hp_player(dam);
+ (void)hp_player(dam);
+ }
}
else
{
#ifdef JP
-msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£",m_name);
+ if (see_s_msg) msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£", m_name);
#else
- msg_format("%s is unaffected.", m_name);
+ if (see_s_msg) msg_format("%s is unaffected.", m_name);
#endif
}
dam = 0;
if (seen) obvious = TRUE;
/* Message */
#ifdef JP
-msg_format("%s¤ò¤¸¤Ã¤Èâˤó¤À¡£",m_name);
+ if (!who) msg_format("%s¤ò¤¸¤Ã¤Èâˤó¤À¡£", m_name);
#else
- msg_format("You gaze intently at %s.", m_name);
+ if (!who) msg_format("You gaze intently at %s.", m_name);
#endif
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
if ((r_ptr->flags1 & RF1_UNIQUE) ||
(r_ptr->flags3 & RF3_NO_CONF) ||
- (r_ptr->level > randint1((p_ptr->lev*2 - 10) < 1 ? 1 : (p_ptr->lev*2 - 10)) + 10))
+ (r_ptr->level > randint1((caster_lev - 10) < 1 ? 1 : (caster_lev - 10)) + 10))
{
/* Memorize a flag */
if (r_ptr->flags3 & (RF3_NO_CONF))
{
- r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = "is unaffected!";
#endif
dam = 0;
}
+ else if (r_ptr->flags2 & RF2_EMPTY_MIND)
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
+#ifdef JP
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
+#else
+ note = " is immune!";
+#endif
+ dam = 0;
+ }
+ else if (r_ptr->flags2 & RF2_WEIRD_MIND)
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_WEIRD_MIND);
+#ifdef JP
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+#else
+ note = " resists.";
+#endif
+ dam /= 3;
+ }
else
{
#ifdef JP
-msg_format("%s¤ÏÀº¿À¹¶·â¤ò¿©¤é¤Ã¤¿¡£",m_name);
-note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±¶õ¤È¤Ê¤Ã¤¿¡£";
+ note = "¤ÏÀº¿À¹¶·â¤ò¿©¤é¤Ã¤¿¡£";
+ note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±³Ì¤È¤Ê¤Ã¤¿¡£";
#else
- msg_format("%^s is blasted by psionic energy.", m_name);
+ note = " is blasted by psionic energy.";
note_dies = " collapses, a mindless husk.";
#endif
- do_conf = randint0(8) + 8;
+ if (who > 0) do_conf = randint0(4) + 4;
+ else do_conf = randint0(8) + 8;
}
break;
}
if (seen) obvious = TRUE;
/* Message */
#ifdef JP
-msg_format("%s¤ò¤¸¤Ã¤Èâˤó¤À¡£",m_name);
+ if (!who) msg_format("%s¤ò¤¸¤Ã¤Èâˤó¤À¡£", m_name);
#else
- msg_format("You gaze intently at %s.", m_name);
+ if (!who) msg_format("You gaze intently at %s.", m_name);
#endif
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
if ((r_ptr->flags1 & RF1_UNIQUE) ||
(r_ptr->flags3 & RF3_NO_CONF) ||
- (r_ptr->level > randint1((p_ptr->lev*2 - 10) < 1 ? 1 : (p_ptr->lev*2 - 10)) + 10))
+ (r_ptr->level > randint1((caster_lev - 10) < 1 ? 1 : (caster_lev - 10)) + 10))
{
/* Memorize a flag */
if (r_ptr->flags3 & (RF3_NO_CONF))
{
- r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = "is unaffected!";
#endif
dam = 0;
}
+ else if (r_ptr->flags2 & RF2_EMPTY_MIND)
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
+#ifdef JP
+ note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
+#else
+ note = " is immune!";
+#endif
+ dam = 0;
+ }
+ else if (r_ptr->flags2 & RF2_WEIRD_MIND)
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_WEIRD_MIND);
+#ifdef JP
+ note = "¤Ë¤ÏÂÑÀ¤¬¤¢¤ë¡£";
+#else
+ note = " resists.";
+#endif
+ dam /= 3;
+ }
else
{
#ifdef JP
-msg_format("%s¤ÏÀº¿À¹¶·â¤ò¿©¤é¤Ã¤¿¡£",m_name);
-note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±¶õ¤È¤Ê¤Ã¤¿¡£";
+ note = "¤ÏÀº¿À¹¶·â¤ò¿©¤é¤Ã¤¿¡£";
+ note_dies = "¤ÎÀº¿À¤ÏÊø²õ¤·¡¢ÆùÂΤÏÈ´¤±³Ì¤È¤Ê¤Ã¤¿¡£";
#else
- msg_format("%^s is blasted by psionic energy.", m_name);
+ note = " is blasted by psionic energy.";
note_dies = " collapses, a mindless husk.";
#endif
- do_conf = randint0(8) + 8;
- do_stun = randint0(8) + 8;
- m_ptr->slow = MIN(200, m_ptr->slow + 10);
- if (c_ptr->m_idx == p_ptr->riding)
- p_ptr->update |= (PU_BONUS);
+ if (who > 0)
+ {
+ do_conf = randint0(4) + 4;
+ do_stun = randint0(4) + 4;
+ }
+ else
+ {
+ do_conf = randint0(8) + 8;
+ do_stun = randint0(8) + 8;
+ }
+ (void)set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 10);
}
break;
}
if (seen) obvious = TRUE;
/* Message */
#ifdef JP
-msg_format("%s¤ò»Øº¹¤·¤Æ¼ö¤¤¤ò¤«¤±¤¿¡£",m_name);
+ if (!who) msg_format("%s¤ò»Øº¹¤·¤Æ¼ö¤¤¤ò¤«¤±¤¿¡£", m_name);
#else
- msg_format("You point at %s and curses.", m_name);
+ if (!who) msg_format("You point at %s and curse.", m_name);
#endif
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
- if (randint0(100 + p_ptr->lev) < (r_ptr->level + 35))
+ if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
{
-
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = "is unaffected!";
#endif
if (seen) obvious = TRUE;
/* Message */
#ifdef JP
-msg_format("%s¤ò»Øº¹¤·¤Æ¶²¤í¤·¤²¤Ë¼ö¤¤¤ò¤«¤±¤¿¡£",m_name);
+ if (!who) msg_format("%s¤ò»Øº¹¤·¤Æ¶²¤í¤·¤²¤Ë¼ö¤¤¤ò¤«¤±¤¿¡£", m_name);
#else
- msg_format("You point at %s and curses horribly.", m_name);
+ if (!who) msg_format("You point at %s and curse horribly.", m_name);
#endif
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
- if (randint0(100 + p_ptr->lev) < (r_ptr->level + 35))
+ if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
{
-
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = "is unaffected!";
#endif
if (seen) obvious = TRUE;
/* Message */
#ifdef JP
-msg_format("%s¤ò»Øº¹¤·¡¢¶²¤·¤²¤Ë¼öʸ¤ò¾§¤¨¤¿¡ª",m_name);
+ if (!who) msg_format("%s¤ò»Øº¹¤·¡¢¶²¤í¤·¤²¤Ë¼öʸ¤ò¾§¤¨¤¿¡ª", m_name);
#else
- msg_format("You point at %s, incanting terribly!", m_name);
+ if (!who) msg_format("You point at %s, incanting terribly!", m_name);
#endif
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
- if (randint0(100 + p_ptr->lev) < (r_ptr->level + 35))
+ if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
{
-
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = "is unaffected!";
#endif
if (seen) obvious = TRUE;
/* Message */
#ifdef JP
-msg_format("%s¤ÎÈ빦¤òÆͤ¤¤Æ¡¢¡Ö¤ªÁ°¤Ï´û¤Ë»à¤ó¤Ç¤¤¤ë¡×¤È¶«¤ó¤À¡£",m_name);
+ if (!who) msg_format("%s¤ÎÈ빦¤òÆͤ¤¤Æ¡¢¡Ö¤ªÁ°¤Ï´û¤Ë»à¤ó¤Ç¤¤¤ë¡×¤È¶«¤ó¤À¡£", m_name);
#else
- msg_format("You point at %s, screaming th word, 'DIE!'.", m_name);
+ if (!who) msg_format("You point at %s, screaming the word, 'DIE!'.", m_name);
#endif
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
/* Attempt a saving throw */
- if (randint0(100 + p_ptr->lev) < (r_ptr->level + 35))
+ if ((randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35)) && ((who <= 0) || (caster_ptr->r_idx != MON_KENSHIROU)))
{
-
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£";
#else
note = "is unaffected!";
#endif
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags1 & RF1_UNIQUE)
{
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = "is unaffected!";
#endif
}
else
{
- if ((p_ptr->lev + randint1(dam)) >
- (r_ptr->level + randint1(200)))
- {
- dam = ((40 + randint1(20)) * m_ptr->hp) / 100;
+ if ((who > 0) ? ((caster_lev + randint1(dam)) > (r_ptr->level + 10 + randint1(20))) :
+ (((caster_lev / 2) + randint1(dam)) > (r_ptr->level + randint1(200))))
+ {
+ dam = ((40 + randint1(20)) * m_ptr->hp) / 100;
- if (m_ptr->hp < dam) dam = m_ptr->hp - 1;
- }
- else
- {
+ if (m_ptr->hp < dam) dam = m_ptr->hp - 1;
+ }
+ else
+ {
#ifdef JP
-note = "¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª";
+ note = "¤ÏÂÑÀ¤ò»ý¤Ã¤Æ¤¤¤ë¡ª";
#else
- note = "resists!";
+ note = "resists!";
#endif
- dam = 0;
- }
+ dam = 0;
}
+ }
break;
}
{
int nokori_hp;
if ((p_ptr->inside_quest && (quest[p_ptr->inside_quest].type == QUEST_TYPE_KILL_ALL) && !is_pet(m_ptr)) ||
- (r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flags7 & (RF7_UNIQUE_7)) || (r_ptr->flags7 & (RF7_UNIQUE2)) || (r_ptr->flags1 & RF1_QUESTOR))
+ (r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flags7 & (RF7_NAZGUL)) || (r_ptr->flags7 & (RF7_UNIQUE2)) || (r_ptr->flags1 & RF1_QUESTOR) || m_ptr->parent_m_idx)
{
#ifdef JP
-msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£",m_name);
+ msg_format("%s¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡£",m_name);
#else
msg_format("%^s is unaffected.", m_name);
#endif
break;
}
- if (is_pet(m_ptr)) nokori_hp = m_ptr->maxhp*4L;
- else if ((p_ptr->pclass == CLASS_BEASTMASTER) && (r_ptr->flags3 & (RF3_DEMON | RF3_UNDEAD | RF3_NONLIVING)))
+ if (is_pet(m_ptr)) nokori_hp = m_ptr->maxhp * 4L;
+ else if ((p_ptr->pclass == CLASS_BEASTMASTER) && monster_living(r_ptr))
nokori_hp = m_ptr->maxhp * 3 / 10;
else
nokori_hp = m_ptr->maxhp * 3 / 20;
-
+
if (m_ptr->hp >= nokori_hp)
{
#ifdef JP
-msg_format("¤â¤Ã¤È¼å¤é¤»¤Ê¤¤¤È¡£");
+ msg_format("¤â¤Ã¤È¼å¤é¤»¤Ê¤¤¤È¡£");
#else
msg_format("You need to weaken %s more.", m_name);
#endif
}
else if (m_ptr->hp < randint0(nokori_hp))
{
- if (m_ptr->mflag2 & MFLAG_CHAMELEON) choose_new_monster(c_ptr->m_idx, FALSE, MON_CHAMELEON);
+ if (m_ptr->mflag2 & MFLAG2_CHAMELEON) choose_new_monster(c_ptr->m_idx, FALSE, MON_CHAMELEON);
#ifdef JP
-msg_format("%s¤òÊᤨ¤¿¡ª",m_name);
+ msg_format("%s¤òÊᤨ¤¿¡ª",m_name);
#else
msg_format("You capture %^s!", m_name);
#endif
- cap_mon = m_list[c_ptr->m_idx].r_idx;
- cap_mspeed = m_list[c_ptr->m_idx].mspeed;
- cap_hp = m_list[c_ptr->m_idx].hp;
- cap_maxhp = m_list[c_ptr->m_idx].max_maxhp;
- if (m_list[c_ptr->m_idx].nickname)
- cap_nickname = quark_add(quark_str(m_list[c_ptr->m_idx].nickname));
- else
- cap_nickname = 0;
+ cap_mon = m_ptr->r_idx;
+ cap_mspeed = m_ptr->mspeed;
+ cap_hp = m_ptr->hp;
+ cap_maxhp = m_ptr->max_maxhp;
+ cap_nickname = m_ptr->nickname; /* Quark transfer */
if (c_ptr->m_idx == p_ptr->riding)
{
if (rakuba(-1, FALSE))
{
#ifdef JP
-msg_print("ÃÏÌ̤ËÍî¤È¤µ¤ì¤¿¡£");
+ msg_print("ÃÏÌ̤ËÍî¤È¤µ¤ì¤¿¡£");
#else
msg_format("You have fallen from %s.", m_name);
#endif
break;
}
+ /* Attack (Use "dam" as attack type) */
case GF_ATTACK:
{
- if (seen) obvious = TRUE;
- skipped = TRUE;
- if (dam == HISSATSU_NYUSIN)
- {
- int i;
- int ny = y, nx = x;
- bool success = FALSE;
- for (i = 0; i < 8; i++)
- {
- if (cave_empty_bold(y+ddy[i], x+ddx[i]) || ((y+ddy[i] == py) && (x+ddx[i] == px)))
- {
- success = TRUE;
- if (distance(py, px, ny, nx) > distance(py, px, y+ddy[i], x+ddx[i]))
- {
- ny = y+ddy[i];
- nx = x+ddx[i];
- }
- }
- }
- if (success)
- {
- if ((ny != py) || (nx != px))
- {
- teleport_player_to(ny, nx, FALSE);
-#ifdef JP
- msg_print("ÁÇÁ᤯Áê¼ê¤Î²û¤ËÆþ¤ê¹þ¤ó¤À¡ª");
-#else
- msg_format("You quickly jump in and attack %s!", m_name);
-#endif
- }
- }
- else
- {
-#ifdef JP
- msg_print("¼ºÇÔ¡ª");
-#else
- msg_print("Failed!");
-#endif
- dam = 0;
- break;
- }
- }
- if (c_ptr->m_idx)
- return (py_attack(y, x, dam));
- else
-#ifdef JP
- msg_print("¹¶·â¤Ï¶õ¤òÀڤä¿¡£");
-#else
- msg_print("You attack the empty air.");
-#endif
- dam = 0;
- break;
+ /* Return this monster's death */
+ return py_attack(y, x, dam);
}
/* Sleep (Use "dam" as "power") */
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (r_ptr->flags2 & RF2_EMPTY_MIND)
{
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is immune!";
#endif
dam = 0;
skipped = TRUE;
- if (seen) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
break;
}
- if (m_ptr->csleep)
+ if (MON_CSLEEP(m_ptr))
{
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is immune!";
#endif
(r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
note = " is unaffected!";
#endif
/* Normal monsters slow down */
else
{
- if (!m_ptr->slow)
+ if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
#ifdef JP
-note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
+ note = "¤ÎÆ°¤¤¬ÃÙ¤¯¤Ê¤Ã¤¿¡£";
#else
note = " starts moving slower.";
#endif
}
- m_ptr->slow = MIN(200, m_ptr->slow + 50);
-
- if (c_ptr->m_idx == p_ptr->riding)
- p_ptr->update |= (PU_BONUS);
}
}
/* Memorize a flag */
if (r_ptr->flags3 & RF3_NO_SLEEP)
{
- if (seen) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
}
/* No obvious effect */
/* GENOCIDE */
case GF_GENOCIDE:
{
- bool angry = FALSE;
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & (RF7_UNIQUE2)) || (c_ptr->m_idx == p_ptr->riding)) || p_ptr->inside_arena || p_ptr->inside_quest)
- {
- dam = 0;
- angry = TRUE;
- }
- else
- {
- if ((r_ptr->level > randint0(dam)) || (m_ptr->mflag2 & MFLAG_NOGENO))
- {
- dam = 0;
- angry = TRUE;
- }
- else
- {
- delete_monster_idx(c_ptr->m_idx);
-#ifdef JP
- msg_format("%s¤Ï¾ÃÌǤ·¤¿¡ª",m_name);
-#else
- msg_format("%^s disappered!",m_name);
-#endif
-
#ifdef JP
- take_hit(DAMAGE_GENO, randint1((r_ptr->level+1)/2), "¥â¥ó¥¹¥¿¡¼¾ÃÌǤμöʸ¤ò¾§¤¨¤¿ÈèÏ«", -1);
+ if (genocide_aux(c_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, "¥â¥ó¥¹¥¿¡¼¾ÃÌÇ"))
#else
- take_hit(DAMAGE_GENO, randint1((r_ptr->level+1)/2), "the strain of casting Genocide One", -1);
+ if (genocide_aux(c_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, "Genocide One"))
#endif
- dam = 0;
-
- chg_virtue(V_VITALITY, -1);
-
- skipped = TRUE;
-
- /* Redraw */
- p_ptr->redraw |= (PR_HP);
-
- /* Window stuff */
- p_ptr->window |= (PW_PLAYER);
- return TRUE;
- }
- }
- if (angry)
{
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ if (seen_msg) msg_format("%s¤Ï¾ÃÌǤ·¤¿¡ª", m_name);
#else
- note = "is unaffected!";
+ if (seen_msg) msg_format("%^s disappered!", m_name);
#endif
- get_angry = TRUE;
- if (one_in_(13)) m_ptr->mflag2 |= MFLAG_NOGENO;
+ chg_virtue(V_VITALITY, -1);
+ return TRUE;
}
+
+ skipped = TRUE;
break;
}
case GF_PHOTO:
{
#ifdef JP
- msg_format("%s¤ò¼Ì¿¿¤Ë»£¤Ã¤¿¡£",m_name);
+ if (!who) msg_format("%s¤ò¼Ì¿¿¤Ë»£¤Ã¤¿¡£", m_name);
#else
- msg_format("You take a photograph of %s.",m_name);
+ if (!who) msg_format("You take a photograph of %s.", m_name);
#endif
/* Hurt by light */
if (r_ptr->flags3 & (RF3_HURT_LITE))
if (seen) obvious = TRUE;
/* Memorize the effects */
- if (seen) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
/* Special effect */
#ifdef JP
-note = "¤Ï¸÷¤Ë¿È¤ò¤¹¤¯¤á¤¿¡ª";
-note_dies = "¤Ï¸÷¤ò¼õ¤±¤Æ¤·¤Ü¤ó¤Ç¤·¤Þ¤Ã¤¿¡ª";
+ note = "¤Ï¸÷¤Ë¿È¤ò¤¹¤¯¤á¤¿¡ª";
+ note_dies = "¤Ï¸÷¤ò¼õ¤±¤Æ¤·¤Ü¤ó¤Ç¤·¤Þ¤Ã¤¿¡ª";
#else
note = " cringes from the light!";
note_dies = " shrivels away in the light!";
#endif
-
}
/* Normally no damage */
case GF_BLOOD_CURSE:
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
dam = 0;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
break;
note = " starts moving faster.";
#endif
- m_ptr->fast = MIN(200, m_ptr->fast + 100);
+ (void)set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100);
success = TRUE;
}
/* Attempt a saving throw */
else if ((r_ptr->flags1 & (RF1_QUESTOR)) ||
(r_ptr->flags1 & (RF1_UNIQUE)) ||
- (m_ptr->mflag2 & MFLAG_NOPET) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
(p_ptr->cursed & TRC_AGGRAVATE) ||
((r_ptr->level+10) > randint1(dam)))
{
/* Resist */
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG_NOPET;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
else
{
#ifdef JP
-note = "¤ò»ÙÇÛ¤·¤¿¡£";
+ note = "¤ò»ÙÇÛ¤·¤¿¡£";
#else
note = " is tamed!";
#endif
set_pet(m_ptr);
- m_ptr->fast = MIN(200, m_ptr->fast + 100);
+ (void)set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100);
/* Learn about type */
- if (seen) r_ptr->r_flags3 |= (RF3_GOOD);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
success = TRUE;
}
}
{
do_fear = randint1(90)+10;
}
- else if (seen)
- {
- r_ptr->r_flags3 |= (RF3_NO_FEAR);
- }
+ else if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_FEAR);
}
/* No "real" damage */
{
if (seen) obvious = TRUE;
- if (r_ptr->flags3 & (RF3_RES_ALL))
+ if (r_ptr->flagsr & RFR_RES_ALL)
{
#ifdef JP
note = "¤Ë¤Ï´°Á´¤ÊÂÑÀ¤¬¤¢¤ë¡ª";
note = " is immune.";
#endif
skipped = TRUE;
- if (seen) r_ptr->r_flags3 |= (RF3_RES_ALL);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) do_poly = FALSE;
/* "Unique" and "quest" monsters can only be "killed" by the player. */
- if (((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_UNIQUE_7) || (r_ptr->flags1 & RF1_QUESTOR)) && !p_ptr->inside_battle)
+ if (((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & RF7_NAZGUL)) && !p_ptr->inside_battle)
{
if (who && (dam > m_ptr->hp)) dam = m_ptr->hp;
}
tmp = dam;
dam = mon_damage_mod(m_ptr, dam, (bool)(typ == GF_PSY_SPEAR));
#ifdef JP
- if ((tmp > 0) && (dam == 0)) note = "¤Ï¥À¥á¡¼¥¸¤ò¼õ¤±¤Æ¤¤¤Ê¤¤";
+ if ((tmp > 0) && (dam == 0)) note = "¤Ï¥À¥á¡¼¥¸¤ò¼õ¤±¤Æ¤¤¤Ê¤¤¡£";
#else
if ((tmp > 0) && (dam == 0)) note = " is unharmed.";
#endif
/* Extract method of death */
note = note_dies;
}
-
- /* Mega-Hack -- Handle "polymorph" -- monsters get a saving throw */
- else if (do_poly && (randint1(90) > r_ptr->level))
+ else
{
- if (polymorph_monster(y, x))
+ /* Sound and Impact resisters never stun */
+ if (do_stun &&
+ !(r_ptr->flagsr & (RFR_RES_SOUN | RFR_RES_WALL)) &&
+ !(r_ptr->flags3 & RF3_NO_STUN))
{
/* Obvious */
if (seen) obvious = TRUE;
- /* Monster polymorphs */
+ /* Get stunned */
+ if (MON_STUNNED(m_ptr))
+ {
#ifdef JP
-note = "¤¬ÊѿȤ·¤¿¡ª";
+ note = "¤Ï¤Ò¤É¤¯¤â¤¦¤í¤¦¤È¤·¤¿¡£";
#else
- note = " changes!";
+ note = " is more dazed.";
#endif
+ tmp = MON_STUNNED(m_ptr) + (do_stun / 2);
+ }
+ else
+ {
+#ifdef JP
+ note = "¤Ï¤â¤¦¤í¤¦¤È¤·¤¿¡£";
+#else
+ note = " is dazed.";
+#endif
- /* Turn off the damage */
- dam = 0;
+ tmp = do_stun;
+ }
- /* Hack -- Get new monster */
- m_ptr = &m_list[c_ptr->m_idx];
+ /* Apply stun */
+ (void)set_monster_stunned(c_ptr->m_idx, tmp);
- /* Hack -- Get new race */
- r_ptr = &r_info[m_ptr->r_idx];
+ /* Get angry */
+ get_angry = TRUE;
}
- else
+
+ /* Confusion and Chaos resisters (and sleepers) never confuse */
+ if (do_conf &&
+ !(r_ptr->flags3 & RF3_NO_CONF) &&
+ !(r_ptr->flagsr & RFR_EFF_RES_CHAO_MASK))
{
- /* No polymorph */
+ /* Obvious */
+ if (seen) obvious = TRUE;
+
+ /* Already partially confused */
+ if (MON_CONFUSED(m_ptr))
+ {
#ifdef JP
-note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
+ note = "¤Ï¤µ¤é¤Ëº®Í𤷤¿¤è¤¦¤À¡£";
#else
- note = " is unaffected!";
+ note = " looks more confused.";
#endif
- }
- }
-
- /* Handle "teleport" */
- else if (do_dist)
- {
- /* Obvious */
- if (seen) obvious = TRUE;
+ tmp = MON_CONFUSED(m_ptr) + (do_conf / 2);
+ }
- /* Message */
+ /* Was not confused */
+ else
+ {
#ifdef JP
-note = "¤¬¾Ã¤¨µî¤Ã¤¿¡ª";
+ note = "¤Ïº®Í𤷤¿¤è¤¦¤À¡£";
#else
- note = " disappears!";
+ note = " looks confused.";
#endif
- chg_virtue(V_VALOUR, -1);
+ tmp = do_conf;
+ }
- /* Teleport */
- teleport_away(c_ptr->m_idx, do_dist, (bool)(!who));
+ /* Apply confusion */
+ (void)set_monster_confused(c_ptr->m_idx, tmp);
- /* Hack -- get new location */
- y = m_ptr->fy;
- x = m_ptr->fx;
+ /* Get angry */
+ get_angry = TRUE;
+ }
- /* Hack -- get new grid */
- c_ptr = &cave[y][x];
- }
+ if (do_time)
+ {
+ /* Obvious */
+ if (seen) obvious = TRUE;
- /* Sound and Impact breathers never stun */
- else if (do_stun &&
- !(r_ptr->flags4 & (RF4_BR_SOUN)) &&
- !(r_ptr->flags4 & (RF4_BR_WALL)) &&
- !(r_ptr->flags3 & (RF3_NO_STUN)))
- {
- /* Obvious */
- if (seen) obvious = TRUE;
+ if (do_time >= m_ptr->maxhp) do_time = m_ptr->maxhp - 1;
- /* Get confused */
- if (m_ptr->stunned)
- {
+ if (do_time)
+ {
#ifdef JP
-note = "¤Ï¤Ò¤É¤¯¤â¤¦¤í¤¦¤È¤·¤¿¡£";
+ note = "¤Ï¼å¤¯¤Ê¤Ã¤¿¤è¤¦¤À¡£";
#else
- note = " is more dazed.";
+ note = " seems weakened.";
#endif
-
- tmp = m_ptr->stunned + (do_stun / 2);
+ m_ptr->maxhp -= do_time;
+ if ((m_ptr->hp - dam) > m_ptr->maxhp) dam = m_ptr->hp - m_ptr->maxhp;
+ }
+ get_angry = TRUE;
}
- else
+
+ /* Mega-Hack -- Handle "polymorph" -- monsters get a saving throw */
+ if (do_poly && (randint1(90) > r_ptr->level))
{
+ if (polymorph_monster(y, x))
+ {
+ /* Obvious */
+ if (seen) obvious = TRUE;
+
+ /* Monster polymorphs */
#ifdef JP
-note = "¤Ï¤â¤¦¤í¤¦¤È¤·¤¿¡£";
+ note = "¤¬ÊѿȤ·¤¿¡ª";
#else
- note = " is dazed.";
+ note = " changes!";
#endif
- tmp = do_stun;
- }
-
- /* Apply stun */
- m_ptr->stunned = (tmp < 200) ? tmp : 200;
-
- /* Get angry */
- get_angry = TRUE;
- }
-
- /* Confusion and Chaos breathers (and sleepers) never confuse */
- else if (do_conf &&
- !(r_ptr->flags3 & (RF3_NO_CONF)) &&
- !(r_ptr->flags4 & (RF4_BR_CONF)) &&
- !(r_ptr->flags4 & (RF4_BR_CHAO)))
- {
- /* Obvious */
- if (seen) obvious = TRUE;
-
- /* Already partially confused */
- if (m_ptr->confused)
- {
+ /* Turn off the damage */
+ dam = 0;
+ }
+ else
+ {
+ /* No polymorph */
#ifdef JP
-note = "¤Ï¤µ¤é¤Ëº®Í𤷤¿¤è¤¦¤À¡£";
+ note = "¤Ë¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª";
#else
- note = " looks more confused.";
+ note = " is unaffected!";
#endif
+ }
- tmp = m_ptr->confused + (do_conf / 2);
+ /* Hack -- Get new monster */
+ m_ptr = &m_list[c_ptr->m_idx];
+
+ /* Hack -- Get new race */
+ r_ptr = &r_info[m_ptr->r_idx];
}
- /* Was not confused */
- else
+ /* Handle "teleport" */
+ if (do_dist)
{
+ /* Obvious */
+ if (seen) obvious = TRUE;
+
+ /* Message */
#ifdef JP
-note = "¤Ïº®Í𤷤¿¤è¤¦¤À¡£";
+ note = "¤¬¾Ã¤¨µî¤Ã¤¿¡ª";
#else
- note = " looks confused.";
+ note = " disappears!";
#endif
- tmp = do_conf;
- }
+ if (!who) chg_virtue(V_VALOUR, -1);
- /* Apply confusion */
- m_ptr->confused = (tmp < 200) ? tmp : 200;
+ /* Teleport */
+ teleport_away(c_ptr->m_idx, do_dist,
+ (!who ? TELEPORT_DEC_VALOUR : 0L) | TELEPORT_PASSIVE);
- /* Get angry */
- get_angry = TRUE;
- }
- else if (do_time)
- {
- /* Obvious */
- if (seen) obvious = TRUE;
+ /* Hack -- get new location */
+ y = m_ptr->fy;
+ x = m_ptr->fx;
- if (do_time >= m_ptr->maxhp) do_time = m_ptr->maxhp-1;
+ /* Hack -- get new grid */
+ c_ptr = &cave[y][x];
+ }
- if (do_time)
+ /* Fear */
+ if (do_fear)
{
-#ifdef JP
-note = "¤Ï¼å¤¯¤Ê¤Ã¤¿¤è¤¦¤À¡£";
-#else
- note = " seems weakened.";
-#endif
- m_ptr->maxhp -= do_time;
- if ((m_ptr->hp - dam) > m_ptr->maxhp) dam = m_ptr->hp-m_ptr->maxhp;
+ /* Set fear */
+ (void)set_monster_monfear(c_ptr->m_idx, MON_MONFEAR(m_ptr) + do_fear);
+
+ /* Get angry */
+ get_angry = TRUE;
}
- get_angry = TRUE;
}
-
- /* Fear */
- if (do_fear)
+ if (typ == GF_DRAIN_MANA)
{
- /* Increase fear */
- tmp = m_ptr->monfear + do_fear;
-
- /* Set fear */
- m_ptr->monfear = (tmp < 200) ? tmp : 200;
-
- /* Get angry */
- get_angry = TRUE;
+ /* Drain mana does nothing */
}
-
/* If another monster did the damage, hurt the monster by hand */
- if (who)
+ else if (who)
{
/* Redraw (later) if needed */
if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
/* Wake the monster up */
- m_ptr->csleep = 0;
+ (void)set_monster_csleep(c_ptr->m_idx, 0);
/* Hurt the monster */
m_ptr->hp -= dam;
/* Give detailed messages if destroyed */
if (known && note)
{
- monster_desc(m_name, m_ptr, 0x100);
- if (see_s)
+ monster_desc(m_name, m_ptr, MD_TRUE_NAME);
+ if (see_s_msg)
{
msg_format("%^s%s", m_name, note);
}
if (sad)
{
#ifdef JP
-msg_print("¾¯¤·Èᤷ¤¤µ¤Ê¬¤¬¤·¤¿¡£");
+ msg_print("¾¯¤·Èᤷ¤¤µ¤Ê¬¤¬¤·¤¿¡£");
#else
msg_print("You feel sad for a moment.");
#endif
-
}
}
else
{
/* Give detailed messages if visible or destroyed */
- if (note && seen) msg_format("%^s%s", m_name, note);
+ if (note && seen_msg) msg_format("%^s%s", m_name, note);
/* Hack -- Pain message */
- else if (see_s)
+ else if (see_s_msg)
{
message_pain(c_ptr->m_idx, dam);
}
}
/* Hack -- handle sleep */
- if (do_sleep) m_ptr->csleep = do_sleep;
+ if (do_sleep) (void)set_monster_csleep(c_ptr->m_idx, do_sleep);
}
}
else if (heal_leper)
{
#ifdef JP
-msg_print("ÉÔ·é¤ÊÉ¿ͤÏɵ¤¤¬¼£¤Ã¤¿¡ª");
+ if (seen_msg) msg_print("ÉÔ·é¤ÊÉ¿ͤÏɵ¤¤¬¼£¤Ã¤¿¡ª");
#else
- msg_print("The Mangy looking leper is healed!");
+ if (seen_msg) msg_print("The Mangy looking leper is healed!");
#endif
delete_monster_idx(c_ptr->m_idx);
}
+
/* If the player did it, give him experience, check fear */
- else if (typ != GF_DRAIN_MANA)
+ else
{
bool fear = FALSE;
if (do_sleep) anger_monster(m_ptr);
/* Give detailed messages if visible or destroyed */
- if (note && seen)
+ if (note && seen_msg)
#ifdef JP
-msg_format("%s%s", m_name, note);
+ msg_format("%s%s", m_name, note);
#else
msg_format("%^s%s", m_name, note);
#endif
anger_monster(m_ptr);
/* Take note */
- if ((fear || do_fear) && (m_ptr->ml))
+ if ((fear || do_fear) && seen)
{
/* Sound */
sound(SOUND_FLEE);
/* Message */
#ifdef JP
-msg_format("%^s¤Ï¶²Éݤ·¤Æƨ¤²½Ð¤·¤¿¡ª", m_name);
+ msg_format("%^s¤Ï¶²Éݤ·¤Æƨ¤²½Ð¤·¤¿¡ª", m_name);
#else
msg_format("%^s flees in terror!", m_name);
#endif
-
}
/* Hack -- handle sleep */
- if (do_sleep) m_ptr->csleep = do_sleep;
+ if (do_sleep) (void)set_monster_csleep(c_ptr->m_idx, do_sleep);
}
}
msg_print("Space warps about you!");
#endif
- if (m_ptr->r_idx) teleport_away(c_ptr->m_idx, damroll(10, 10), FALSE);
+ if (m_ptr->r_idx) teleport_away(c_ptr->m_idx, damroll(10, 10), TELEPORT_PASSIVE);
if (one_in_(13)) count += activate_hi_summon(ty, tx, TRUE);
if (!one_in_(6)) break;
}
/* XXX XXX XXX Verify this code */
/* Update the monster */
- update_mon(c_ptr->m_idx, FALSE);
+ if (m_ptr->r_idx) update_mon(c_ptr->m_idx, FALSE);
/* Redraw the monster grid */
lite_spot(y, x);
/* Update monster recall window */
- if (p_ptr->monster_race_idx == m_ptr->r_idx)
+ if ((p_ptr->monster_race_idx == m_ptr->r_idx) && (seen || !m_ptr->r_idx))
{
/* Window stuff */
p_ptr->window |= (PW_MONSTER);
set_target(m_ptr, monster_target_y, monster_target_x);
}
}
- else if (is_pet(&m_list[who]) && (m_ptr->target_y != py) && (m_ptr->target_x != px))
+ else if ((who > 0) && is_pet(caster_ptr) && !player_bold(m_ptr->target_y, m_ptr->target_x))
{
- set_target(m_ptr, m_list[who].fy, m_list[who].fx);
+ set_target(m_ptr, caster_ptr->fy, caster_ptr->fx);
}
}
/* Player is not here */
- if ((x != px) || (y != py)) return (FALSE);
+ if (!player_bold(y, x)) return (FALSE);
if ((p_ptr->special_defense & NINJA_KAWARIMI) && dam && (randint0(55) < (p_ptr->lev*3/5+20)) && who && (who != p_ptr->riding))
{
- kawarimi(TRUE);
- return FALSE;
+ if (kawarimi(TRUE)) return FALSE;
}
/* Player cannot hurt himself */
if (!who) return (FALSE);
if (who == p_ptr->riding) return (FALSE);
- if ((p_ptr->reflect || p_ptr->tim_reflect || ((p_ptr->special_defense & KATA_FUUJIN) && !p_ptr->blind)) && (flg & PROJECT_REFLECTABLE) && !one_in_(10))
+ if ((p_ptr->reflect || ((p_ptr->special_defense & KATA_FUUJIN) && !p_ptr->blind)) && (flg & PROJECT_REFLECTABLE) && !one_in_(10))
{
byte t_y, t_x;
int max_attempts = 10;
#ifdef JP
-if (blind) msg_print("²¿¤«¤¬Ä·¤ÍÊ֤ä¿¡ª");
-else if (p_ptr->special_defense & KATA_FUUJIN) msg_print("É÷¤ÎÇ¡¤¯Éð´ï¤ò¿¶¤ë¤Ã¤ÆÃƤÊÖ¤·¤¿¡ª");
-else msg_print("¹¶·â¤¬Ä·¤ÍÊ֤ä¿¡ª");
+ if (blind) msg_print("²¿¤«¤¬Ä·¤ÍÊ֤ä¿¡ª");
+ else if (p_ptr->special_defense & KATA_FUUJIN) msg_print("É÷¤ÎÇ¡¤¯Éð´ï¤ò¿¶¤ë¤Ã¤ÆÃƤÊÖ¤·¤¿¡ª");
+ else msg_print("¹¶·â¤¬Ä·¤ÍÊ֤ä¿¡ª");
#else
if (blind) msg_print("Something bounces!");
else msg_print("The attack bounces!");
/* Choose 'new' target */
- do
+ if (who > 0)
{
- t_y = m_list[who].fy - 1 + randint1(3);
- t_x = m_list[who].fx - 1 + randint1(3);
- max_attempts--;
- }
- while (max_attempts && in_bounds2u(t_y, t_x) &&
- !(player_has_los_bold(t_y, t_x)));
+ do
+ {
+ t_y = m_list[who].fy - 1 + randint1(3);
+ t_x = m_list[who].fx - 1 + randint1(3);
+ max_attempts--;
+ }
+ while (max_attempts && in_bounds2u(t_y, t_x) && !projectable(py, px, t_y, t_x));
- if (max_attempts < 1)
+ if (max_attempts < 1)
+ {
+ t_y = m_list[who].fy;
+ t_x = m_list[who].fx;
+ }
+ }
+ else
{
- t_y = m_list[who].fy;
- t_x = m_list[who].fx;
+ t_y = py - 1 + randint1(3);
+ t_x = px - 1 + randint1(3);
}
project(0, 0, t_y, t_x, dam, typ, (PROJECT_STOP|PROJECT_KILL|PROJECT_REFLECTABLE), monspell);
/* Get the monster's real name (gotten before polymorph!) */
strcpy(killer, who_name);
}
- else if (who < 0)
+ else
{
+ switch (who)
+ {
+ case PROJECT_WHO_UNCTRL_POWER:
#ifdef JP
- strcpy(killer, "æ«");
+ strcpy(killer, "À©¸æ¤Ç¤¤Ê¤¤ÎϤÎÈÅή");
#else
- strcpy(killer, "a trap");
+ strcpy(killer, "uncontrollable power storm");
#endif
+ break;
+
+ case PROJECT_WHO_GLASS_SHARDS:
+#ifdef JP
+ strcpy(killer, "¥¬¥é¥¹¤ÎÇËÊÒ");
+#else
+ strcpy(killer, "shards of glass");
+#endif
+ break;
+
+ default:
+#ifdef JP
+ strcpy(killer, "æ«");
+#else
+ strcpy(killer, "a trap");
+#endif
+ break;
+ }
+
+ /* Paranoia */
+ strcpy(m_name, killer);
}
/* Analyze the damage */
case GF_ACID:
{
#ifdef JP
-if (fuzzy) msg_print("»À¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("»À¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by acid!");
#endif
case GF_FIRE:
{
#ifdef JP
-if (fuzzy) msg_print("²Ð±ê¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²Ð±ê¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by fire!");
#endif
case GF_COLD:
{
#ifdef JP
-if (fuzzy) msg_print("Î䵤¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("Î䵤¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by cold!");
#endif
case GF_ELEC:
{
#ifdef JP
-if (fuzzy) msg_print("ÅÅ·â¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("ÅÅ·â¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by lightning!");
#endif
/* Standard damage -- also poisons player */
case GF_POIS:
{
- bool double_resist = (p_ptr->oppose_pois || music_singing(MUSIC_RESIST) || (p_ptr->special_defense & KATA_MUSOU));
+ bool double_resist = IS_OPPOSE_POIS();
#ifdef JP
-if (fuzzy) msg_print("ÆǤǹ¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("ÆǤǹ¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by poison!");
#endif
if (double_resist) dam = (dam + 2) / 3;
if ((!(double_resist || p_ptr->resist_pois)) &&
- one_in_(HURT_CHANCE))
+ one_in_(HURT_CHANCE) && !CHECK_MULTISHADOW())
{
do_dec_stat(A_CON);
}
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
- if (!(double_resist || p_ptr->resist_pois))
+ if (!(double_resist || p_ptr->resist_pois) && !CHECK_MULTISHADOW())
{
set_poisoned(p_ptr->poisoned + randint0(dam) + 10);
}
/* Standard damage -- also poisons / mutates player */
case GF_NUKE:
{
- bool double_resist = (p_ptr->oppose_pois || music_singing(MUSIC_RESIST) || (p_ptr->special_defense & KATA_MUSOU));
+ bool double_resist = IS_OPPOSE_POIS();
#ifdef JP
-if (fuzzy) msg_print("Êü¼Íǽ¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("Êü¼Íǽ¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by radiation!");
#endif
if (p_ptr->resist_pois) dam = (2 * dam + 2) / 5;
if (double_resist) dam = (2 * dam + 2) / 5;
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
- if (!(double_resist || p_ptr->resist_pois))
+ if (!(double_resist || p_ptr->resist_pois) && !CHECK_MULTISHADOW())
{
set_poisoned(p_ptr->poisoned + randint0(dam) + 10);
if (one_in_(5)) /* 6 */
{
#ifdef JP
-msg_print("´ñ·ÁŪ¤ÊÊѿȤò¿ë¤²¤¿¡ª");
+ msg_print("´ñ·ÁŪ¤ÊÊѿȤò¿ë¤²¤¿¡ª");
#else
msg_print("You undergo a freakish metamorphosis!");
#endif
case GF_MISSILE:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something!");
#endif
case GF_HOLY_FIRE:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something!");
#endif
case GF_HELL_FIRE:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something!");
#endif
case GF_ARROW:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something sharp!");
#endif
case GF_PLASMA:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤È¤Æ¤âÇ®¤¤¤â¤Î¤Ç¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤È¤Æ¤âÇ®¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something *HOT*!");
#endif
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
- if (!p_ptr->resist_sound)
+ if (!p_ptr->resist_sound && !CHECK_MULTISHADOW())
{
int k = (randint1((dam > 40) ? 35 : (dam * 3 / 4 + 5)));
(void)set_stun(p_ptr->stun + k);
}
if (!(p_ptr->resist_fire ||
- p_ptr->oppose_fire ||
- music_singing(MUSIC_RESIST) || (p_ptr->special_defense & KATA_MUSOU) ||
+ IS_OPPOSE_FIRE() ||
p_ptr->immune_fire))
{
inven_damage(set_acid_destroy, 3);
case GF_NETHER:
{
#ifdef JP
-if (fuzzy) msg_print("ÃϹö¤ÎÎϤǹ¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("ÃϹö¤ÎÎϤǹ¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by nether forces!");
#endif
-
if (p_ptr->resist_neth)
{
if (!prace_is_(RACE_SPECTRE))
dam *= 6; dam /= (randint1(4) + 7);
}
- else if (p_ptr->prace != RACE_ANDROID)
- {
- if (p_ptr->hold_life && (randint0(100) < 75))
- {
-#ifdef JP
-msg_print("¤·¤«¤·¼«¸Ê¤ÎÀ¸Ì¿ÎϤò¼é¤ê¤¤Ã¤¿¡ª");
-#else
- msg_print("You keep hold of your life force!");
-#endif
-
- }
- else if (p_ptr->hold_life)
- {
-#ifdef JP
-msg_print("À¸Ì¿ÎϤ¬¾¯¤·ÂΤ«¤éÈ´¤±Íî¤Á¤¿µ¤¤¬¤¹¤ë¡ª");
-#else
- msg_print("You feel your life slipping away!");
-#endif
-
- lose_exp(200 + (p_ptr->exp / 1000) * MON_DRAIN_LIFE);
- }
- else
- {
-#ifdef JP
-msg_print("À¸Ì¿ÎϤ¬ÂΤ«¤éµÛ¤¤¼è¤é¤ì¤¿µ¤¤¬¤¹¤ë¡ª");
-#else
- msg_print("You feel your life draining away!");
-#endif
-
- lose_exp(200 + (p_ptr->exp / 100) * MON_DRAIN_LIFE);
- }
- }
+ else if (!CHECK_MULTISHADOW()) drain_exp(200 + (p_ptr->exp / 100), 200 + (p_ptr->exp / 1000), 75);
- if (prace_is_(RACE_SPECTRE))
+ if (prace_is_(RACE_SPECTRE) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("µ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
+ msg_print("µ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
#else
msg_print("You feel invigorated!");
#endif
case GF_WATER:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¼¾¤Ã¤¿¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¼¾¤Ã¤¿¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something wet!");
#endif
- if (!p_ptr->resist_sound)
- {
- set_stun(p_ptr->stun + randint1(40));
- }
- if (!p_ptr->resist_conf)
+ if (!CHECK_MULTISHADOW())
{
- set_confused(p_ptr->confused + randint1(5) + 5);
- }
+ if (!p_ptr->resist_sound)
+ {
+ set_stun(p_ptr->stun + randint1(40));
+ }
+ if (!p_ptr->resist_conf)
+ {
+ set_confused(p_ptr->confused + randint1(5) + 5);
+ }
- if (one_in_(5))
- {
- inven_damage(set_cold_destroy, 3);
+ if (one_in_(5))
+ {
+ inven_damage(set_cold_destroy, 3);
+ }
}
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
case GF_CHAOS:
{
#ifdef JP
-if (fuzzy) msg_print("̵Ãá½ø¤ÎÇÈÆ°¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("̵Ãá½ø¤ÎÇÈÆ°¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by a wave of anarchy!");
#endif
{
dam *= 6; dam /= (randint1(4) + 7);
}
- if (!p_ptr->resist_conf)
- {
- (void)set_confused(p_ptr->confused + randint0(20) + 10);
- }
- if (!p_ptr->resist_chaos)
- {
- (void)set_image(p_ptr->image + randint1(10));
- if (one_in_(3))
- {
-#ifdef JP
-msg_print("¤¢¤Ê¤¿¤Î¿ÈÂΤϥ«¥ª¥¹¤ÎÎϤÇDZ¤¸¶Ê¤²¤é¤ì¤¿¡ª");
-#else
- msg_print("Your body is twisted by chaos!");
-#endif
- (void)gain_random_mutation(0);
- }
- }
- if (!p_ptr->resist_neth && !p_ptr->resist_chaos)
+ if (!CHECK_MULTISHADOW())
{
- if (p_ptr->prace == RACE_ANDROID)
+ if (!p_ptr->resist_conf)
{
+ (void)set_confused(p_ptr->confused + randint0(20) + 10);
}
- else if (p_ptr->hold_life && (randint0(100) < 75))
+ if (!p_ptr->resist_chaos)
{
+ (void)set_image(p_ptr->image + randint1(10));
+ if (one_in_(3))
+ {
#ifdef JP
-msg_print("¤·¤«¤·¼«¸Ê¤ÎÀ¸Ì¿ÎϤò¼é¤ê¤¤Ã¤¿¡ª");
+ msg_print("¤¢¤Ê¤¿¤Î¿ÈÂΤϥ«¥ª¥¹¤ÎÎϤÇDZ¤¸¶Ê¤²¤é¤ì¤¿¡ª");
#else
- msg_print("You keep hold of your life force!");
+ msg_print("Your body is twisted by chaos!");
#endif
+ (void)gain_random_mutation(0);
+ }
}
- else if (p_ptr->hold_life)
+ if (!p_ptr->resist_neth && !p_ptr->resist_chaos)
{
-#ifdef JP
-msg_print("À¸Ì¿ÎϤ¬¾¯¤·ÂΤ«¤éÈ´¤±Íî¤Á¤¿µ¤¤¬¤¹¤ë¡ª");
-#else
- msg_print("You feel your life slipping away!");
-#endif
-
- lose_exp(500 + (p_ptr->exp / 1000) * MON_DRAIN_LIFE);
+ drain_exp(5000 + (p_ptr->exp / 100), 500 + (p_ptr->exp / 1000), 75);
}
- else
- {
-#ifdef JP
-msg_print("À¸Ì¿ÎϤ¬ÂΤ«¤éµÛ¤¤¼è¤é¤ì¤¿µ¤¤¬¤¹¤ë¡ª");
-#else
- msg_print("You feel your life draining away!");
-#endif
- lose_exp(5000 + (p_ptr->exp / 100) * MON_DRAIN_LIFE);
+ if (!p_ptr->resist_chaos || one_in_(9))
+ {
+ inven_damage(set_elec_destroy, 2);
+ inven_damage(set_fire_destroy, 2);
}
}
- if (!p_ptr->resist_chaos || one_in_(9))
- {
- inven_damage(set_elec_destroy, 2);
- inven_damage(set_fire_destroy, 2);
- }
+
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
break;
}
case GF_SHARDS:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«±Ô¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something sharp!");
#endif
{
dam *= 6; dam /= (randint1(4) + 7);
}
- else
+ else if (!CHECK_MULTISHADOW())
{
(void)set_cut(p_ptr->cut + dam);
}
case GF_SOUND:
{
#ifdef JP
-if (fuzzy) msg_print("¹ì²»¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("¹ì²»¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by a loud noise!");
#endif
{
dam *= 5; dam /= (randint1(4) + 7);
}
- else
+ else if (!CHECK_MULTISHADOW())
{
int k = (randint1((dam > 90) ? 35 : (dam / 3 + 5)));
(void)set_stun(p_ptr->stun + k);
case GF_CONFUSION:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«º®Í𤹤ë¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«º®Í𤹤ë¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something puzzling!");
#endif
{
dam *= 5; dam /= (randint1(4) + 7);
}
- if (!p_ptr->resist_conf)
+ else if (!CHECK_MULTISHADOW())
{
(void)set_confused(p_ptr->confused + randint1(20) + 10);
}
case GF_DISENCHANT:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤µ¤¨¤Ê¤¤¤â¤Î¤Ç¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤µ¤¨¤Ê¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something static!");
#endif
{
dam *= 6; dam /= (randint1(4) + 7);
}
- else
+ else if (!CHECK_MULTISHADOW())
{
(void)apply_disenchant(0);
}
case GF_NEXUS:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«´ñ̯¤Ê¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«´ñ̯¤Ê¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something strange!");
#endif
{
dam *= 6; dam /= (randint1(4) + 7);
}
- else
+ else if (!CHECK_MULTISHADOW())
{
apply_nexus(m_ptr);
}
case GF_FORCE:
{
#ifdef JP
-if (fuzzy) msg_print("±¿Æ°¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("±¿Æ°¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by kinetic force!");
#endif
- if (!p_ptr->resist_sound)
+ if (!p_ptr->resist_sound && !CHECK_MULTISHADOW())
{
(void)set_stun(p_ptr->stun + randint1(20));
}
case GF_ROCKET:
{
#ifdef JP
-if (fuzzy) msg_print("Çúȯ¤¬¤¢¤Ã¤¿¡ª");
+ if (fuzzy) msg_print("Çúȯ¤¬¤¢¤Ã¤¿¡ª");
#else
if (fuzzy) msg_print("There is an explosion!");
#endif
- if (!p_ptr->resist_sound)
+ if (!p_ptr->resist_sound && !CHECK_MULTISHADOW())
{
(void)set_stun(p_ptr->stun + randint1(20));
}
+
if (p_ptr->resist_shard)
{
dam /= 2;
}
- else
+ else if (!CHECK_MULTISHADOW())
{
- (void)set_cut(p_ptr-> cut + ( dam / 2));
+ (void)set_cut(p_ptr->cut + (dam / 2));
}
- if ((!p_ptr->resist_shard) || one_in_(12))
+ if (!p_ptr->resist_shard || one_in_(12))
{
inven_damage(set_cold_destroy, 3);
}
case GF_INERTIA:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something slow!");
#endif
- (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
+ if (!CHECK_MULTISHADOW()) (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
break;
}
case GF_LITE:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something!");
#endif
{
dam *= 4; dam /= (randint1(4) + 7);
}
- else if (!blind && !p_ptr->resist_blind)
+ else if (!blind && !p_ptr->resist_blind && !CHECK_MULTISHADOW())
{
(void)set_blind(p_ptr->blind + randint1(5) + 2);
}
+
if (prace_is_(RACE_VAMPIRE) || (p_ptr->mimic_form == MIMIC_VAMPIRE))
{
#ifdef JP
-msg_print("¸÷¤ÇÆùÂΤ¬¾Ç¤¬¤µ¤ì¤¿¡ª");
+ if (!CHECK_MULTISHADOW()) msg_print("¸÷¤ÇÆùÂΤ¬¾Ç¤¬¤µ¤ì¤¿¡ª");
#else
- msg_print("The light scorches your flesh!");
+ if (!CHECK_MULTISHADOW()) msg_print("The light scorches your flesh!");
#endif
dam *= 2;
{
dam = dam * 4 / 3;
}
+
if (p_ptr->wraith_form) dam *= 2;
get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
- if (p_ptr->wraith_form)
+ if (p_ptr->wraith_form && !CHECK_MULTISHADOW())
{
p_ptr->wraith_form = 0;
#ifdef JP
-msg_print("Á®¸÷¤Î¤¿¤áÈóʪ¼ÁŪ¤Ê±Æ¤Î¸ºß¤Ç¤¤¤é¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£");
+ msg_print("Á®¸÷¤Î¤¿¤áÈóʪ¼ÁŪ¤Ê±Æ¤Î¸ºß¤Ç¤¤¤é¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£");
#else
msg_print("The light forces you out of your incorporeal shadow form.");
#endif
case GF_DARK:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something!");
#endif
if (prace_is_(RACE_VAMPIRE) || (p_ptr->mimic_form == MIMIC_VAMPIRE) || p_ptr->wraith_form) dam = 0;
}
- else if (!blind && !p_ptr->resist_blind)
+ else if (!blind && !p_ptr->resist_blind && !CHECK_MULTISHADOW())
{
(void)set_blind(p_ptr->blind + randint1(5) + 2);
}
case GF_TIME:
{
#ifdef JP
-if (fuzzy) msg_print("²áµî¤«¤é¤Î¾×·â¤Ë¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²áµî¤«¤é¤Î¾×·â¤Ë¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by a blast from the past!");
#endif
dam *= 4;
dam /= (randint1(4) + 7);
#ifdef JP
-msg_print("»þ´Ö¤¬Ä̤ê²á¤®¤Æ¤¤¤¯µ¤¤¬¤¹¤ë¡£");
+ msg_print("»þ´Ö¤¬Ä̤ê²á¤®¤Æ¤¤¤¯µ¤¤¬¤¹¤ë¡£");
#else
msg_print("You feel as if time is passing you by.");
#endif
-
}
- else
+ else if (!CHECK_MULTISHADOW())
{
switch (randint1(10))
{
{
if (p_ptr->prace == RACE_ANDROID) break;
#ifdef JP
-msg_print("¿ÍÀ¸¤¬µÕÌá¤ê¤·¤¿µ¤¤¬¤¹¤ë¡£");
+ msg_print("¿ÍÀ¸¤¬µÕÌá¤ê¤·¤¿µ¤¤¬¤¹¤ë¡£");
#else
msg_print("You feel life has clocked back.");
#endif
switch (randint1(6))
{
#ifdef JP
-case 1: k = A_STR; act = "¶¯¤¯"; break;
-case 2: k = A_INT; act = "ÁïÌÀ¤Ç"; break;
-case 3: k = A_WIS; act = "¸ÌÀ¤Ç"; break;
-case 4: k = A_DEX; act = "´ïÍѤÇ"; break;
-case 5: k = A_CON; act = "·ò¹¯¤Ç"; break;
-case 6: k = A_CHR; act = "Èþ¤·¤¯"; break;
+ case 1: k = A_STR; act = "¶¯¤¯"; break;
+ case 2: k = A_INT; act = "ÁïÌÀ¤Ç"; break;
+ case 3: k = A_WIS; act = "¸ÌÀ¤Ç"; break;
+ case 4: k = A_DEX; act = "´ïÍѤÇ"; break;
+ case 5: k = A_CON; act = "·ò¹¯¤Ç"; break;
+ case 6: k = A_CHR; act = "Èþ¤·¤¯"; break;
#else
case 1: k = A_STR; act = "strong"; break;
case 2: k = A_INT; act = "bright"; break;
case 5: k = A_CON; act = "hale"; break;
case 6: k = A_CHR; act = "beautiful"; break;
#endif
-
}
#ifdef JP
-msg_format("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤É%s¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£", act);
+ msg_format("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤É%s¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£", act);
#else
msg_format("You're not as %s as you used to be...", act);
#endif
-
p_ptr->stat_cur[k] = (p_ptr->stat_cur[k] * 3) / 4;
if (p_ptr->stat_cur[k] < 3) p_ptr->stat_cur[k] = 3;
p_ptr->update |= (PU_BONUS);
case 10:
{
#ifdef JP
-msg_print("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤ÉÎ϶¯¤¯¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£");
+ msg_print("¤¢¤Ê¤¿¤Ï°ÊÁ°¤Û¤ÉÎ϶¯¤¯¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿...¡£");
#else
msg_print("You're not as powerful as you used to be...");
#endif
-
for (k = 0; k < 6; k++)
{
p_ptr->stat_cur[k] = (p_ptr->stat_cur[k] * 7) / 8;
case GF_GRAVITY:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«½Å¤¤¤â¤Î¤Ç¤Ç¹¶·â¤µ¤ì¤¿¡ª");
-msg_print("¼þÊդνÅÎϤ¬¤æ¤¬¤ó¤À¡£");
+ if (fuzzy) msg_print("²¿¤«½Å¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ msg_print("¼þÊդνÅÎϤ¬¤æ¤¬¤ó¤À¡£");
#else
if (fuzzy) msg_print("You are hit by something heavy!");
msg_print("Gravity warps around you.");
#endif
- teleport_player(5);
- if (!p_ptr->ffall)
- (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
- if (!(p_ptr->resist_sound || p_ptr->ffall))
+ if (!CHECK_MULTISHADOW())
{
- int k = (randint1((dam > 90) ? 35 : (dam / 3 + 5)));
- (void)set_stun(p_ptr->stun + k);
+ teleport_player(5, TELEPORT_PASSIVE);
+ if (!p_ptr->levitation)
+ (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
+ if (!(p_ptr->resist_sound || p_ptr->levitation))
+ {
+ int k = (randint1((dam > 90) ? 35 : (dam / 3 + 5)));
+ (void)set_stun(p_ptr->stun + k);
+ }
}
- if (p_ptr->ffall)
+ if (p_ptr->levitation)
{
dam = (dam * 2) / 3;
}
- if (!p_ptr->ffall || one_in_(13))
+ if (!p_ptr->levitation || one_in_(13))
{
inven_damage(set_cold_destroy, 2);
}
case GF_DISINTEGRATE:
{
#ifdef JP
-if (fuzzy) msg_print("½ã¿è¤Ê¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("½ã¿è¤Ê¥¨¥Í¥ë¥®¡¼¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by pure energy!");
#endif
case GF_OLD_HEAL:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤é¤«¤Î¹¶·â¤Ë¤è¤Ã¤Æµ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
+ if (fuzzy) msg_print("²¿¤é¤«¤Î¹¶·â¤Ë¤è¤Ã¤Æµ¤Ê¬¤¬¤è¤¯¤Ê¤Ã¤¿¡£");
#else
if (fuzzy) msg_print("You are hit by something invigorating!");
#endif
case GF_OLD_SPEED:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something!");
#endif
case GF_OLD_SLOW:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«ÃÙ¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something slow!");
#endif
{
if (p_ptr->free_act) break;
#ifdef JP
-if (fuzzy) msg_print("̲¤Ã¤Æ¤·¤Þ¤Ã¤¿¡ª");
+ if (fuzzy) msg_print("̲¤Ã¤Æ¤·¤Þ¤Ã¤¿¡ª");
#else
if (fuzzy) msg_print("You fall asleep!");
#endif
if (ironman_nightmare)
{
#ifdef JP
-msg_print("¶²¤í¤·¤¤¸÷·Ê¤¬Æ¬¤ËÉ⤫¤ó¤Ç¤¤¿¡£");
+ msg_print("¶²¤í¤·¤¤¸÷·Ê¤¬Æ¬¤ËÉ⤫¤ó¤Ç¤¤¿¡£");
#else
msg_print("A horrible vision enters your mind.");
#endif
-
/* Pick a nightmare */
get_mon_num_prep(get_nightmare, NULL);
case GF_SUPER_RAY:
{
#ifdef JP
-if (fuzzy) msg_print("ËâË¡¤Î¥ª¡¼¥é¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("ËâË¡¤Î¥ª¡¼¥é¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by an aura of magic!");
#endif
case GF_PSY_SPEAR:
{
#ifdef JP
-if (fuzzy) msg_print("¥¨¥Í¥ë¥®¡¼¤Î²ô¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("¥¨¥Í¥ë¥®¡¼¤Î²ô¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by an energy!");
#endif
case GF_METEOR:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«¤¬¶õ¤«¤é¤¢¤Ê¤¿¤ÎƬ¾å¤ËÍî¤Á¤Æ¤¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«¤¬¶õ¤«¤é¤¢¤Ê¤¿¤ÎƬ¾å¤ËÍî¤Á¤Æ¤¤¿¡ª");
#else
if (fuzzy) msg_print("Something falls from the sky on you!");
#endif
case GF_ICE:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«±Ô¤¯Î䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«±Ô¤¯Î䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something sharp and cold!");
#endif
cold_dam(dam, killer, monspell);
- if (!p_ptr->resist_shard)
- {
- (void)set_cut(p_ptr->cut + damroll(5, 8));
- }
- if (!p_ptr->resist_sound)
+ if (!CHECK_MULTISHADOW())
{
- (void)set_stun(p_ptr->stun + randint1(15));
- }
+ if (!p_ptr->resist_shard)
+ {
+ (void)set_cut(p_ptr->cut + damroll(5, 8));
+ }
+ if (!p_ptr->resist_sound)
+ {
+ (void)set_stun(p_ptr->stun + randint1(15));
+ }
- if ((!(p_ptr->resist_cold || p_ptr->oppose_cold || music_singing(MUSIC_RESIST) || (p_ptr->special_defense & KATA_MUSOU))) || one_in_(12))
- {
- if (!p_ptr->immune_cold) inven_damage(set_cold_destroy, 3);
+ if ((!(p_ptr->resist_cold || IS_OPPOSE_COLD())) || one_in_(12))
+ {
+ if (!p_ptr->immune_cold) inven_damage(set_cold_destroy, 3);
+ }
}
break;
case GF_DEATH_RAY:
{
#ifdef JP
-if (fuzzy) msg_print("²¿¤«Èó¾ï¤ËÎ䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
+ if (fuzzy) msg_print("²¿¤«Èó¾ï¤ËÎ䤿¤¤¤â¤Î¤Ç¹¶·â¤µ¤ì¤¿¡ª");
#else
if (fuzzy) msg_print("You are hit by something extremely cold!");
#endif
else
{
- switch (p_ptr->prace)
- {
- /* Some races are immune */
- case RACE_GOLEM:
- case RACE_SKELETON:
- case RACE_ZOMBIE:
- case RACE_VAMPIRE:
- case RACE_DEMON:
- case RACE_SPECTRE:
+ switch (p_ptr->prace)
+ {
+ /* Some races are immune */
+ case RACE_GOLEM:
+ case RACE_SKELETON:
+ case RACE_ZOMBIE:
+ case RACE_VAMPIRE:
+ case RACE_DEMON:
+ case RACE_SPECTRE:
+ {
+ dam = 0;
+ break;
+ }
+ /* Hurt a lot */
+ default:
+ {
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
+ break;
+ }
+ }
+ }
+
+ break;
+ }
+
+ /* Drain mana */
+ case GF_DRAIN_MANA:
+ {
+ if (CHECK_MULTISHADOW())
+ {
+#ifdef JP
+ msg_print("¹¶·â¤Ï¸¸±Æ¤ËÌ¿Ã椷¡¢¤¢¤Ê¤¿¤Ë¤ÏÆϤ«¤Ê¤«¤Ã¤¿¡£");
+#else
+ msg_print("The attack hits Shadow, you are unharmed!");
+#endif
+ }
+ else if (p_ptr->csp)
+ {
+ /* Basic message */
+#ifdef JP
+ if (who > 0) msg_format("%^s¤ËÀº¿À¥¨¥Í¥ë¥®¡¼¤òµÛ¤¤¼è¤é¤ì¤Æ¤·¤Þ¤Ã¤¿¡ª", m_name);
+ else msg_print("Àº¿À¥¨¥Í¥ë¥®¡¼¤òµÛ¤¤¼è¤é¤ì¤Æ¤·¤Þ¤Ã¤¿¡ª");
+#else
+ if (who > 0) msg_format("%^s draws psychic energy from you!", m_name);
+ else msg_print("Your psychic energy is drawn!");
+#endif
+
+ /* Full drain */
+ if (dam >= p_ptr->csp)
{
- dam = 0;
- break;
+ dam = p_ptr->csp;
+ p_ptr->csp = 0;
+ p_ptr->csp_frac = 0;
}
- /* Hurt a lot */
- default:
+
+ /* Partial drain */
+ else
{
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
- break;
+ p_ptr->csp -= dam;
+ }
+
+ learn_spell(monspell);
+
+ /* Redraw mana */
+ p_ptr->redraw |= (PR_MANA);
+
+ /* Window stuff */
+ p_ptr->window |= (PW_PLAYER);
+ p_ptr->window |= (PW_SPELL);
+
+ if (who > 0)
+ {
+ /* Heal the monster */
+ if (m_ptr->hp < m_ptr->maxhp)
+ {
+ /* Heal */
+ m_ptr->hp += (6 * dam);
+ if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
+
+ /* Redraw (later) if needed */
+ if (p_ptr->health_who == who) p_ptr->redraw |= (PR_HEALTH);
+ if (p_ptr->riding == who) p_ptr->redraw |= (PR_UHEALTH);
+
+ /* Special message */
+ if (m_ptr->ml)
+ {
+#ifdef JP
+ msg_format("%^s¤Ïµ¤Ê¬¤¬Îɤµ¤½¤¦¤À¡£", m_name);
+#else
+ msg_format("%^s appears healthier.", m_name);
+#endif
+ }
+ }
}
- }
}
+ dam = 0;
break;
}
/* Mind blast */
case GF_MIND_BLAST:
{
- if (randint0(100 + rlev/2) < (MAX(5, p_ptr->skill_sav)))
+ if ((randint0(100 + rlev / 2) < MAX(5, p_ptr->skill_sav)) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
- learn_spell(MS_MIND_BLAST);
+ learn_spell(monspell);
}
else
{
+ if (!CHECK_MULTISHADOW())
+ {
#ifdef JP
-msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
+ msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
#else
- msg_print("Your mind is blasted by psyonic energy.");
+ msg_print("Your mind is blasted by psyonic energy.");
#endif
- if (!p_ptr->resist_conf)
- {
- (void)set_confused(p_ptr->confused + randint0(4) + 4);
- }
+ if (!p_ptr->resist_conf)
+ {
+ (void)set_confused(p_ptr->confused + randint0(4) + 4);
+ }
- if (!p_ptr->resist_chaos && one_in_(3))
- {
- (void)set_image(p_ptr->image + randint0(250) + 150);
- }
+ if (!p_ptr->resist_chaos && one_in_(3))
+ {
+ (void)set_image(p_ptr->image + randint0(250) + 150);
+ }
- p_ptr->csp -= 50;
- if (p_ptr->csp < 0)
- {
- p_ptr->csp = 0;
- p_ptr->csp_frac = 0;
+ p_ptr->csp -= 50;
+ if (p_ptr->csp < 0)
+ {
+ p_ptr->csp = 0;
+ p_ptr->csp_frac = 0;
+ }
+ p_ptr->redraw |= PR_MANA;
}
- p_ptr->redraw |= PR_MANA;
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, MS_MIND_BLAST);
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
}
break;
}
+
/* Brain smash */
case GF_BRAIN_SMASH:
{
- if (randint0(100 + rlev/2) < (MAX(5, p_ptr->skill_sav)))
+ if ((randint0(100 + rlev / 2) < MAX(5, p_ptr->skill_sav)) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
- learn_spell(MS_BRAIN_SMASH);
+ learn_spell(monspell);
}
else
{
+ if (!CHECK_MULTISHADOW())
+ {
#ifdef JP
-msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
+ msg_print("ÎîŪ¥¨¥Í¥ë¥®¡¼¤ÇÀº¿À¤¬¹¶·â¤µ¤ì¤¿¡£");
#else
- msg_print("Your mind is blasted by psionic energy.");
+ msg_print("Your mind is blasted by psionic energy.");
#endif
- p_ptr->csp -= 100;
- if (p_ptr->csp < 0)
- {
- p_ptr->csp = 0;
- p_ptr->csp_frac = 0;
+ p_ptr->csp -= 100;
+ if (p_ptr->csp < 0)
+ {
+ p_ptr->csp = 0;
+ p_ptr->csp_frac = 0;
+ }
+ p_ptr->redraw |= PR_MANA;
}
- p_ptr->redraw |= PR_MANA;
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, MS_BRAIN_SMASH);
- if (!p_ptr->resist_blind)
- {
- (void)set_blind(p_ptr->blind + 8 + randint0(8));
- }
- if (!p_ptr->resist_conf)
- {
- (void)set_confused(p_ptr->confused + randint0(4) + 4);
- }
- if (!p_ptr->free_act)
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
+ if (!CHECK_MULTISHADOW())
{
- (void)set_paralyzed(p_ptr->paralyzed + randint0(4) + 4);
- }
- (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
+ if (!p_ptr->resist_blind)
+ {
+ (void)set_blind(p_ptr->blind + 8 + randint0(8));
+ }
+ if (!p_ptr->resist_conf)
+ {
+ (void)set_confused(p_ptr->confused + randint0(4) + 4);
+ }
+ if (!p_ptr->free_act)
+ {
+ (void)set_paralyzed(p_ptr->paralyzed + randint0(4) + 4);
+ }
+ (void)set_slow(p_ptr->slow + randint0(4) + 4, FALSE);
- while (randint0(100 + rlev/2) > (MAX(5, p_ptr->skill_sav)))
- (void)do_dec_stat(A_INT);
- while (randint0(100 + rlev/2) > (MAX(5, p_ptr->skill_sav)))
- (void)do_dec_stat(A_WIS);
+ while (randint0(100 + rlev / 2) > (MAX(5, p_ptr->skill_sav)))
+ (void)do_dec_stat(A_INT);
+ while (randint0(100 + rlev / 2) > (MAX(5, p_ptr->skill_sav)))
+ (void)do_dec_stat(A_WIS);
- if (!p_ptr->resist_chaos)
- {
- (void)set_image(p_ptr->image + randint0(250) + 150);
+ if (!p_ptr->resist_chaos)
+ {
+ (void)set_image(p_ptr->image + randint0(250) + 150);
+ }
}
}
break;
}
+
/* cause 1 */
case GF_CAUSE_1:
{
- if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+ if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
- learn_spell(MS_CAUSE_1);
+ learn_spell(monspell);
}
else
{
- curse_equipment(15, 0);
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, MS_CAUSE_1);
+ if (!CHECK_MULTISHADOW()) curse_equipment(15, 0);
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
}
break;
}
+
/* cause 2 */
case GF_CAUSE_2:
{
- if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+ if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
- learn_spell(MS_CAUSE_2);
+ learn_spell(monspell);
}
else
{
- curse_equipment(25, MIN(rlev/2-15, 5));
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, MS_CAUSE_2);
+ if (!CHECK_MULTISHADOW()) curse_equipment(25, MIN(rlev / 2 - 15, 5));
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
}
break;
}
+
/* cause 3 */
case GF_CAUSE_3:
{
- if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+ if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
- learn_spell(MS_CAUSE_3);
+ learn_spell(monspell);
}
else
{
- curse_equipment(33, MIN(rlev/2-15, 15));
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, MS_CAUSE_3);
+ if (!CHECK_MULTISHADOW()) curse_equipment(33, MIN(rlev / 2 - 15, 15));
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
}
break;
}
+
/* cause 4 */
case GF_CAUSE_4:
{
- if ((randint0(100 + rlev/2) < p_ptr->skill_sav) && !(m_ptr->r_idx == MON_KENSHIROU))
+ if ((randint0(100 + rlev / 2) < p_ptr->skill_sav) && !(m_ptr->r_idx == MON_KENSHIROU) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_print("¤·¤«¤·È빦¤òÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_print("¤·¤«¤·È빦¤òÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_print("You resist the effects!");
#endif
- learn_spell(MS_CAUSE_4);
+ learn_spell(monspell);
}
else
{
- get_damage = take_hit(DAMAGE_ATTACK, dam, killer, MS_CAUSE_4);
- (void)set_cut(p_ptr->cut + damroll(10, 10));
+ get_damage = take_hit(DAMAGE_ATTACK, dam, killer, monspell);
+ if (!CHECK_MULTISHADOW()) (void)set_cut(p_ptr->cut + damroll(10, 10));
}
break;
}
+
/* Hand of Doom */
case GF_HAND_DOOM:
{
- if (randint0(100 + rlev/2) < p_ptr->skill_sav)
+ if ((randint0(100 + rlev/2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW())
{
#ifdef JP
-msg_format("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
+ msg_format("¤·¤«¤·¸úÎϤòÄ·¤ÍÊÖ¤·¤¿¡ª");
#else
msg_format("You resist the effects!");
#endif
- learn_spell(MS_HAND_DOOM);
-
+ learn_spell(monspell);
}
else
{
+ if (!CHECK_MULTISHADOW())
+ {
#ifdef JP
-msg_print("¤¢¤Ê¤¿¤ÏÌ¿¤¬Çö¤Þ¤Ã¤Æ¤¤¤¯¤è¤¦¤Ë´¶¤¸¤¿¡ª");
+ msg_print("¤¢¤Ê¤¿¤ÏÌ¿¤¬Çö¤Þ¤Ã¤Æ¤¤¤¯¤è¤¦¤Ë´¶¤¸¤¿¡ª");
#else
- msg_print("Your feel your life fade away!");
+ msg_print("You feel your life fade away!");
#endif
+ curse_equipment(40, 20);
+ }
- get_damage = take_hit(DAMAGE_ATTACK, dam, m_name, MS_HAND_DOOM);
- curse_equipment(40, 20);
+ get_damage = take_hit(DAMAGE_ATTACK, dam, m_name, monspell);
- if (p_ptr->chp < 1) p_ptr->chp = 1;
+ if (p_ptr->chp < 1) p_ptr->chp = 1; /* Paranoia */
}
break;
}
}
}
- if (p_ptr->tim_eyeeye && get_damage > 0 && !p_ptr->is_dead)
+ if (p_ptr->tim_eyeeye && (get_damage > 0) && !p_ptr->is_dead && (who > 0))
{
#ifdef JP
msg_format("¹¶·â¤¬%s¼«¿È¤ò½ý¤Ä¤±¤¿¡ª", m_name);
#else
char m_name_self[80];
-
+
/* hisself */
- monster_desc(m_name_self, m_ptr, 0x23);
+ monster_desc(m_name_self, m_ptr, MD_PRON_VISIBLE | MD_POSSESSIVE | MD_OBJECTIVE);
msg_format("The attack of %s has wounded %s!", m_name, m_name_self);
#endif
if ((p_ptr->special_defense & NINJA_KAWARIMI) && dam && who && (who != p_ptr->riding))
{
- kawarimi(FALSE);
- return obvious;
+ (void)kawarimi(FALSE);
}
/* Return "Anything seen?" */
/*
- * Do disintegration effect on the terrain
- * before we decide the region of the effect.
- */
-static bool do_disintegration(int by, int bx, int y, int x)
-{
- byte feat;
-
- /* Disintegration balls explosions are stopped by perma-walls */
- if (!in_disintegration_range(by, bx, y, x)) return FALSE;
-
- /* Permanent walls and artifacts don't get effect */
- /* But not protect monsters and other objects */
- if (!cave_valid_bold(y, x)) return TRUE;
-
- /* Destroy mirror/glyph */
- remove_mirror(y,x);
-
- feat = cave[y][x].feat;
-
- if ((feat < FEAT_PATTERN_START || feat > FEAT_PATTERN_XTRA2) &&
- (feat < FEAT_DEEP_WATER || feat > FEAT_GRASS))
- {
- if (feat == FEAT_TREES || feat == FEAT_FLOWER || feat == FEAT_DEEP_GRASS)
- cave_set_feat(y, x, FEAT_GRASS);
- else
- cave_set_feat(y, x, floor_type[randint0(100)]);
- }
-
- /* Update some things -- similar to GF_KILL_WALL */
- p_ptr->update |= (PU_VIEW | PU_LITE | PU_FLOW | PU_MONSTERS | PU_MON_LITE);
-
- return TRUE;
-}
-
-
-/*
* breath shape
*/
-void breath_shape(u16b *path_g, int dist, int *pgrids, byte *gx, byte *gy, byte *gm, int *pgm_rad, int rad, int y1, int x1, int y2, int x2, bool disint_ball, bool real_breath)
+void breath_shape(u16b *path_g, int dist, int *pgrids, byte *gx, byte *gy, byte *gm, int *pgm_rad, int rad, int y1, int x1, int y2, int x2, int typ)
{
int by = y1;
int bx = x1;
int bdis = 0;
int cdis;
int path_n = 0;
- int tdis = distance(y1, x1, y2, x2);
- int mdis = tdis + rad;
+ int mdis = distance(y1, x1, y2, x2) + rad;
while (bdis <= mdis)
{
/* Enforce an arc */
if (distance(by, bx, y, x) != cdis) continue;
-
- if (disint_ball)
- {
- /* Disintegration are stopped only by perma-walls */
- if (real_breath)
- {
- /* Destroy terrains */
- if (!do_disintegration(by, bx, y, x)) continue;
- }
- else
- {
- /* No actual disintegration */
- if (!in_disintegration_range(by, bx, y, x)) continue;
- }
- }
- else
+ switch (typ)
{
- /* The blast is stopped by walls */
+ case GF_LITE:
+ case GF_LITE_WEAK:
+ /* Lights are stopped by opaque terrains */
if (!los(by, bx, y, x)) continue;
+ break;
+ case GF_DISINTEGRATE:
+ /* Disintegration are stopped only by perma-walls */
+ if (!in_disintegration_range(by, bx, y, x)) continue;
+ break;
+ default:
+ /* Ball explosions are stopped by walls */
+ if (!projectable(by, bx, y, x)) continue;
+ break;
}
/* Save this grid */
int y1, x1;
int y2, x2;
+ int by, bx;
int dist_hack = 0;
/* Attacker's name (prepared before polymorph)*/
char who_name[80];
+ /* Can the player see the source of this effect? */
+ bool see_s_msg = TRUE;
+
/* Initialize by null string */
who_name[0] = '\0';
monster_target_y=py;
monster_target_x=px;
- /* Initialize with nul string */
- who_name[0] = '\0';
-
/* Hack -- Jump to target */
if (flg & (PROJECT_JUMP))
{
{
x1 = m_list[who].fx;
y1 = m_list[who].fy;
- monster_desc(who_name, &m_list[who], 0x288);
+ monster_desc(who_name, &m_list[who], MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
}
/* Oops */
grids++;
}
- if (breath && typ == GF_DISINTEGRATE)
+ switch (typ)
{
- flg |= (PROJECT_DISI);
+ case GF_LITE:
+ case GF_LITE_WEAK:
+ if (breath || (flg & PROJECT_BEAM)) flg |= (PROJECT_LOS);
+ break;
+ case GF_DISINTEGRATE:
+ flg |= (PROJECT_GRID);
+ if (breath || (flg & PROJECT_BEAM)) flg |= (PROJECT_DISI);
+ break;
}
/* Calculate the projection path */
{
y = GRID_Y(path_g[j]);
x = GRID_X(path_g[j]);
- if(project_m(0,0,y,x,dam,GF_SEEKER,flg))notice=TRUE;
+ if(project_m(0,0,y,x,dam,GF_SEEKER,flg,TRUE))notice=TRUE;
if(!who && (project_m_n==1) && !jump ){
if(cave[project_m_y][project_m_x].m_idx >0 ){
monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
- /* Hack -- auto-recall */
- if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
+ if (m_ptr->ml)
+ {
+ /* Hack -- auto-recall */
+ if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
- /* Hack - auto-track */
- if (m_ptr->ml) health_track(cave[project_m_y][project_m_x].m_idx);
+ /* Hack - auto-track */
+ health_track(cave[project_m_y][project_m_x].m_idx);
+ }
}
}
(void)project_f(0,0,y,x,dam,GF_SEEKER);
int x,y;
y = GRID_Y(path_g[i]);
x = GRID_X(path_g[i]);
- if(project_m(0,0,y,x,dam,GF_SEEKER,flg))
+ if(project_m(0,0,y,x,dam,GF_SEEKER,flg,TRUE))
notice=TRUE;
if(!who && (project_m_n==1) && !jump ){
if(cave[project_m_y][project_m_x].m_idx >0 ){
monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
-
- /* Hack -- auto-recall */
- if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
-
- /* Hack - auto-track */
- if (m_ptr->ml) health_track(cave[project_m_y][project_m_x].m_idx);
+
+ if (m_ptr->ml)
+ {
+ /* Hack -- auto-recall */
+ if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
+
+ /* Hack - auto-track */
+ health_track(cave[project_m_y][project_m_x].m_idx);
+ }
}
}
(void)project_f(0,0,y,x,dam,GF_SEEKER);
}
}
if(project_o(0,0,y,x,dam,GF_SUPER_RAY) )notice=TRUE;
- if( cave[y][x].feat == FEAT_RUBBLE ||
- cave[y][x].feat == FEAT_DOOR_HEAD ||
- cave[y][x].feat == FEAT_DOOR_TAIL ||
- (cave[y][x].feat >= FEAT_WALL_EXTRA &&
- cave[y][x].feat <= FEAT_PERM_SOLID ))
+ if (!cave_have_flag_bold(y, x, FF_PROJECT))
{
if( second_step )continue;
break;
int x,y;
y = GRID_Y(path_g[i]);
x = GRID_X(path_g[i]);
- (void)project_m(0,0,y,x,dam,GF_SUPER_RAY,flg);
+ (void)project_m(0,0,y,x,dam,GF_SUPER_RAY,flg,TRUE);
if(!who && (project_m_n==1) && !jump ){
if(cave[project_m_y][project_m_x].m_idx >0 ){
monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
-
- /* Hack -- auto-recall */
- if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
-
- /* Hack - auto-track */
- if (m_ptr->ml) health_track(cave[project_m_y][project_m_x].m_idx);
+
+ if (m_ptr->ml)
+ {
+ /* Hack -- auto-recall */
+ if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
+
+ /* Hack - auto-track */
+ health_track(cave[project_m_y][project_m_x].m_idx);
+ }
}
}
(void)project_f(0,0,y,x,dam,GF_SUPER_RAY);
/* Hack -- Balls explode before reaching walls */
if (cave_stop_disintegration(ny, nx) && (rad > 0)) break;
}
+ else if (flg & PROJECT_LOS)
+ {
+ /* Hack -- Balls explode before reaching walls */
+ if (!cave_los_bold(ny, nx) && (rad > 0)) break;
+ }
else
{
/* Hack -- Balls explode before reaching walls */
- if (!cave_floor_bold(ny, nx) && (rad > 0)) break;
+ if (!cave_have_flag_bold(ny, nx, FF_PROJECT) && (rad > 0)) break;
}
/* Advance */
}
/* Only do visuals if requested */
- if (!blind && !(flg & (PROJECT_HIDE)) && !(flg & PROJECT_FAST))
+ if (!blind && !(flg & (PROJECT_HIDE | PROJECT_FAST)))
{
/* Only do visuals if the player can "see" the bolt */
if (panel_contains(y, x) && player_has_los_bold(y, x))
Term_xtra(TERM_XTRA_DELAY, msec);
}
}
- if ((typ == GF_ATTACK) && (dam == HISSATSU_NYUSIN) && ((i+1) == path_n))
- {
- if (cave_empty_bold(y, x)) teleport_player_to(ny, nx, FALSE);
- }
-
}
+ path_n = i;
+
/* Save the "blast epicenter" */
- y2 = y;
- x2 = x;
+ by = y;
+ bx = x;
- if (breath && (y1 == y2) && (x1 == x2))
+ if (breath && !path_n)
{
breath = FALSE;
- gm_rad = 1;
+ gm_rad = rad;
if (!old_hide)
{
flg &= ~(PROJECT_HIDE);
{
flg &= ~(PROJECT_HIDE);
- breath_shape(path_g, dist, &grids, gx, gy, gm, &gm_rad, rad, y1, x1, y2, x2, (bool)(typ == GF_DISINTEGRATE), TRUE);
+ breath_shape(path_g, dist, &grids, gx, gy, gm, &gm_rad, rad, y1, x1, by, bx, typ);
}
else
{
for (dist = 0; dist <= rad; dist++)
{
/* Scan the maximal blast area of radius "dist" */
- for (y = y2 - dist; y <= y2 + dist; y++)
+ for (y = by - dist; y <= by + dist; y++)
{
- for (x = x2 - dist; x <= x2 + dist; x++)
+ for (x = bx - dist; x <= bx + dist; x++)
{
/* Ignore "illegal" locations */
if (!in_bounds2(y, x)) continue;
/* Enforce a "circular" explosion */
- if (distance(y2, x2, y, x) != dist) continue;
+ if (distance(by, bx, y, x) != dist) continue;
- if (typ == GF_DISINTEGRATE)
+ switch (typ)
{
+ case GF_LITE:
+ case GF_LITE_WEAK:
+ /* Lights are stopped by opaque terrains */
+ if (!los(by, bx, y, x)) continue;
+ break;
+ case GF_DISINTEGRATE:
/* Disintegration are stopped only by perma-walls */
- if (!do_disintegration(y2, x2, y, x)) continue;
- }
- else
- {
+ if (!in_disintegration_range(by, bx, y, x)) continue;
+ break;
+ default:
/* Ball explosions are stopped by walls */
- if (!los(y2, x2, y, x)) continue;
+ if (!projectable(by, bx, y, x)) continue;
+ break;
}
/* Save this grid */
}
/* Hack -- center the cursor */
- move_cursor_relative(y2, x2);
+ move_cursor_relative(by, bx);
/* Flush each "radius" seperately */
/*if (fresh_before)*/ Term_fresh();
}
/* Hack -- center the cursor */
- move_cursor_relative(y2, x2);
+ move_cursor_relative(by, bx);
/* Flush the explosion */
/*if (fresh_before)*/ Term_fresh();
if (p_ptr->update) update_stuff();
+ if (flg & PROJECT_KILL)
+ {
+ see_s_msg = (who > 0) ? is_seen(&m_list[who]) :
+ (!who ? TRUE : (player_can_see_bold(y1, x1) && projectable(py, px, y1, x1)));
+ }
+
+
/* Check features */
if (flg & (PROJECT_GRID))
{
/* Find the closest point in the blast */
if (breath)
{
- int d = dist_to_line(y, x, y1, x1, y2, x2);
+ int d = dist_to_line(y, x, y1, x1, by, bx);
/* Affect the grid */
if (project_f(who, d, y, x, dam, typ)) notice = TRUE;
}
}
+ /* Update stuff if needed */
+ if (p_ptr->update) update_stuff();
/* Check objects */
if (flg & (PROJECT_ITEM))
/* Find the closest point in the blast */
if (breath)
{
- int d = dist_to_line(y, x, y1, x1, y2, x2);
+ int d = dist_to_line(y, x, y1, x1, by, bx);
/* Affect the object in the grid */
if (project_o(who, d, y, x, dam, typ)) notice = TRUE;
/* Scan for monsters */
for (i = 0; i < grids; i++)
{
+ int effective_dist;
+
/* Hack -- Notice new "dist" values */
if (gm[dist + 1] == i) dist++;
y = gy[i];
x = gx[i];
- if (grids > 1)
- {
- /* Find the closest point in the blast */
- if (breath)
- {
- int d = dist_to_line(y, x, y1, x1, y2, x2);
-
- /* Affect the monster in the grid */
- if ((y == y2) && (x == x2) && (y == py) && (x == px) && (flg & PROJECT_PLAYER))
- {
- if (project_m(who, d+1, y, x, dam, typ,flg)) notice = TRUE;
- }
- else if (project_m(who, d, y, x, dam, typ,flg)) notice = TRUE;
- }
- else
- {
- /* Affect the monster in the grid */
- if ((y == y2) && (x == x2) && (y == py) && (x == px) && (flg & PROJECT_PLAYER))
- {
- if (!(flg & PROJECT_BEAM))
- {
- if (project_m(who, dist+1, y, x, dam, typ,flg)) notice = TRUE;
- }
- }
- else if (project_m(who, dist, y, x, dam, typ,flg)) notice = TRUE;
- }
- }
- else
+ /* A single bolt may be reflected */
+ if (grids <= 1)
{
- monster_race *ref_ptr = &r_info[m_list[cave[y][x].m_idx].r_idx];
+ monster_type *m_ptr = &m_list[cave[y][x].m_idx];
+ monster_race *ref_ptr = &r_info[m_ptr->r_idx];
- if ((ref_ptr->flags2 & RF2_REFLECTING) && (!one_in_(10) && (flg & PROJECT_REFLECTABLE) && (!who || dist_hack > 1)))
+ if ((flg & PROJECT_REFLECTABLE) && cave[y][x].m_idx && (ref_ptr->flags2 & RF2_REFLECTING) &&
+ ((cave[y][x].m_idx != p_ptr->riding) || !(flg & PROJECT_PLAYER)) &&
+ (!who || dist_hack > 1) && !one_in_(10))
{
byte t_y, t_x;
int max_attempts = 10;
t_x = x_saver - 1 + randint1(3);
max_attempts--;
}
-
- while (max_attempts && in_bounds2u(t_y, t_x) &&
- !(los(y, x, t_y, t_x)));
+ while (max_attempts && in_bounds2u(t_y, t_x) && !projectable(y, x, t_y, t_x));
if (max_attempts < 1)
{
t_x = x_saver;
}
- if (m_list[cave[y][x].m_idx].ml)
+ if (is_seen(m_ptr))
{
#ifdef JP
-if ((m_list[cave[y][x].m_idx].r_idx == MON_KENSHIROU)
- || (m_list[cave[y][x].m_idx].r_idx == MON_RAOU))
- msg_print("¡ÖËÌÅÍ¿À·ý±üµÁ¡¦Æó»Ø¿¿¶õÇÄ¡ª¡×");
-if (m_list[cave[y][x].m_idx].r_idx == MON_DIO) msg_print("¥Ç¥£¥ª¡¦¥Ö¥é¥ó¥É¡¼¤Ï»Ø°ìËܤǹ¶·â¤òÃƤÊÖ¤·¤¿¡ª");
-else msg_print("¹¶·â¤ÏÄ·¤ÍÊ֤ä¿¡ª");
+ if ((m_ptr->r_idx == MON_KENSHIROU) || (m_ptr->r_idx == MON_RAOU))
+ msg_print("¡ÖËÌÅÍ¿À·ý±üµÁ¡¦Æó»Ø¿¿¶õÇÄ¡ª¡×");
+ else if (m_ptr->r_idx == MON_DIO) msg_print("¥Ç¥£¥ª¡¦¥Ö¥é¥ó¥É¡¼¤Ï»Ø°ìËܤǹ¶·â¤òÃƤÊÖ¤·¤¿¡ª");
+ else msg_print("¹¶·â¤ÏÄ·¤ÍÊ֤ä¿¡ª");
#else
msg_print("The attack bounces!");
#endif
-
- ref_ptr->r_flags2 |= RF2_REFLECTING;
}
- flg &= ~(PROJECT_MONSTER | PROJECT_PLAYER);
- if (one_in_(2)) flg |= PROJECT_MONSTER;
+ if (is_original_ap_and_seen(m_ptr)) ref_ptr->r_flags2 |= RF2_REFLECTING;
+
+ /* Reflected bolts randomly target either one */
+ if (player_bold(y, x) || one_in_(2)) flg &= ~(PROJECT_PLAYER);
else flg |= PROJECT_PLAYER;
- project(cave[y][x].m_idx, 0, t_y, t_x, dam, typ, flg, monspell);
+ /* The bolt is reflected */
+ project(cave[y][x].m_idx, 0, t_y, t_x, dam, typ, flg, monspell);
+
+ /* Don't affect the monster any longer */
+ continue;
}
- else
+ }
+
+
+ /* Find the closest point in the blast */
+ if (breath)
+ {
+ effective_dist = dist_to_line(y, x, y1, x1, by, bx);
+ }
+ else
+ {
+ effective_dist = dist;
+ }
+
+
+ /* There is the riding player on this monster */
+ if (p_ptr->riding && player_bold(y, x))
+ {
+ /* Aimed on the player */
+ if (flg & PROJECT_PLAYER)
+ {
+ if (flg & (PROJECT_BEAM | PROJECT_REFLECTABLE | PROJECT_AIMED))
+ {
+ /*
+ * A beam or bolt is well aimed
+ * at the PLAYER!
+ * So don't affects the mount.
+ */
+ continue;
+ }
+ else
+ {
+ /*
+ * The spell is not well aimed,
+ * So partly affect the mount too.
+ */
+ effective_dist++;
+ }
+ }
+
+ /*
+ * This grid is the original target.
+ * Or aimed on your horse.
+ */
+ else if (((y == y2) && (x == x2)) || (flg & PROJECT_AIMED))
{
- if ((y == y2) && (x == x2) && (y == py) && (x == px) && (flg & PROJECT_PLAYER))
+ /* Hit the mount with full damage */
+ }
+
+ /*
+ * Otherwise this grid is not the
+ * original target, it means that line
+ * of fire is obstructed by this
+ * monster.
+ */
+ /*
+ * A beam or bolt will hit either
+ * player or mount. Choose randomly.
+ */
+ else if (flg & (PROJECT_BEAM | PROJECT_REFLECTABLE))
+ {
+ if (one_in_(2))
+ {
+ /* Hit the mount with full damage */
+ }
+ else
{
+ /* Hit the player later */
+ flg |= PROJECT_PLAYER;
+
+ /* Don't affect the mount */
+ continue;
}
- else if (project_m(who, dist, y, x, dam, typ,flg)) notice = TRUE;
+ }
+
+ /*
+ * The spell is not well aimed, so
+ * partly affect both player and
+ * mount.
+ */
+ else
+ {
+ effective_dist++;
}
}
+
+ /* Affect the monster in the grid */
+ if (project_m(who, effective_dist, y, x, dam, typ, flg, see_s_msg)) notice = TRUE;
}
+
/* Player affected one monster (without "jumping") */
if (!who && (project_m_n == 1) && !jump)
{
{
monster_type *m_ptr = &m_list[cave[y][x].m_idx];
- /* Hack -- auto-recall */
- if (m_ptr->ml) monster_race_track(m_ptr->ap_r_idx);
+ if (m_ptr->ml)
+ {
+ /* Hack -- auto-recall */
+ if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
- /* Hack - auto-track */
- if (m_ptr->ml) health_track(cave[y][x].m_idx);
+ /* Hack - auto-track */
+ if (m_ptr->ml) health_track(cave[y][x].m_idx);
+ }
}
}
}
/* Scan for player */
for (i = 0; i < grids; i++)
{
+ int effective_dist;
+
/* Hack -- Notice new "dist" values */
if (gm[dist+1] == i) dist++;
y = gy[i];
x = gx[i];
+ /* Affect the player? */
+ if (!player_bold(y, x)) continue;
+
/* Find the closest point in the blast */
if (breath)
{
- int d = dist_to_line(y, x, y1, x1, y2, x2);
-
- /* Affect the player */
- if ((y == y2) && (x == x2) && (y == py) && (x == px) && (flg & PROJECT_MONSTER))
- {
- if (project_p(who, who_name, d+1, y, x, dam, typ, flg, monspell)) notice = TRUE;
- }
- else if (project_p(who, who_name, d, y, x, dam, typ, flg, monspell)) notice = TRUE;
+ effective_dist = dist_to_line(y, x, y1, x1, by, bx);
}
else
{
- /* Affect the player */
- if ((y == y2) && (x == x2) && (y == py) && (x == px) && (flg & PROJECT_MONSTER))
+ effective_dist = dist;
+ }
+
+ /* Target may be your horse */
+ if (p_ptr->riding)
+ {
+ /* Aimed on the player */
+ if (flg & PROJECT_PLAYER)
{
- if (!((flg & PROJECT_BEAM) || (flg & PROJECT_STOP)))
- {
- if (project_p(who, who_name, dist+1, y, x, dam, typ, flg, monspell)) notice = TRUE;
- }
+ /* Hit the player with full damage */
+ }
+
+ /*
+ * Hack -- When this grid was not the
+ * original target, a beam or bolt
+ * would hit either player or mount,
+ * and should be choosen randomly.
+ *
+ * But already choosen to hit the
+ * mount at this point.
+ *
+ * Or aimed on your horse.
+ */
+ else if (flg & (PROJECT_BEAM | PROJECT_REFLECTABLE | PROJECT_AIMED))
+ {
+ /*
+ * A beam or bolt is well aimed
+ * at the mount!
+ * So don't affects the player.
+ */
+ continue;
+ }
+ else
+ {
+ /*
+ * The spell is not well aimed,
+ * So partly affect the player too.
+ */
+ effective_dist++;
}
- else if (project_p(who, who_name, dist, y, x, dam, typ, flg, monspell)) notice = TRUE;
}
+
+ /* Affect the player */
+ if (project_p(who, who_name, effective_dist, y, x, dam, typ, flg, monspell)) notice = TRUE;
}
}
if( is_mirror_grid(&cave[y][x]) &&
distance(py,px,y,x) <= MAX_RANGE &&
distance(py,px,y,x) != 0 &&
- player_has_los_bold(y,x)
+ player_has_los_bold(y,x) &&
+ projectable(py, px, y, x)
){
mirror_y[mirror_num]=y;
mirror_x[mirror_num]=x;
centersign*( (point_x[2]-x)*(point_y[0]-y)
-(point_y[2]-y)*(point_x[0]-x)) >=0 )
{
- if( player_has_los_bold(y,x)){
+ if (player_has_los_bold(y, x) && projectable(py, px, y, x)) {
/* Visual effects */
if(!(p_ptr->blind)
&& panel_contains(y,x)){
centersign*( (point_x[2]-x)*(point_y[0]-y)
-(point_y[2]-y)*(point_x[0]-x)) >=0 )
{
- if( player_has_los_bold(y,x)){
+ if (player_has_los_bold(y, x) && projectable(py, px, y, x)) {
(void)project_f(0,0,y,x,dam,GF_MANA);
}
}
centersign*( (point_x[2]-x)*(point_y[0]-y)
-(point_y[2]-y)*(point_x[0]-x)) >=0 )
{
- if( player_has_los_bold(y,x)){
+ if (player_has_los_bold(y, x) && projectable(py, px, y, x)) {
(void)project_o(0,0,y,x,dam,GF_MANA);
}
}
centersign*( (point_x[2]-x)*(point_y[0]-y)
-(point_y[2]-y)*(point_x[0]-x)) >=0 )
{
- if( player_has_los_bold(y,x) ){
+ if (player_has_los_bold(y, x) && projectable(py, px, y, x)) {
(void)project_m(0,0,y,x,dam,GF_MANA,
- (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP));
+ (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP),TRUE);
}
}
}
if( is_mirror_grid(&cave[y][x]))
{
if(project_m(0,0,y,x,dam,GF_GENOCIDE,
- (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP)))
+ (PROJECT_GRID|PROJECT_ITEM|PROJECT_KILL|PROJECT_JUMP),TRUE))
{
if( !cave[y][x].m_idx )
{