/*!
* @brief 汎用的なビーム/ボルト/ボール系による地形効果処理 / We are called from "project()" to "damage" terrain features
+ * @param caster_ptr プレーヤーへの参照ポインタ
* @param who 魔法を発動したモンスター(0ならばプレイヤー) / Index of "source" monster (zero for "player")
* @param r 効果半径(ビーム/ボルト = 0 / ボール = 1以上) / Radius of explosion (0 = beam/bolt, 1 to 9 = ball)
* @param y 目標Y座標 / Target y location (or location to travel "towards")
* Perhaps we should affect doors?
* </pre>
*/
-static bool project_f(floor_type *floor_ptr, MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ)
+static bool project_f(player_type *caster_ptr, MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ)
{
+ floor_type *floor_ptr = caster_ptr->current_floor_ptr;
grid_type *g_ptr = &floor_ptr->grid_array[y][x];
feature_type *f_ptr = &f_info[g_ptr->feat];
bool obvious = FALSE;
- bool known = player_has_los_bold(y, x);
+ bool known = player_has_los_bold(caster_ptr, y, x);
who = who ? who : 0;
/* Reduce damage by distance */
dam = (dam + r) / (r + 1);
-
- if (have_flag(f_ptr->flags, FF_TREE))
+if (have_flag(f_ptr->flags, FF_TREE))
{
concptr message;
switch (typ)
if (message)
{
msg_format(_("木は%s。", "A tree %s"), message);
- cave_set_feat(y, x, one_in_(3) ? feat_brake : feat_grass);
+ cave_set_feat(caster_ptr, y, x, one_in_(3) ? feat_brake : feat_grass);
/* Observe */
if (g_ptr->info & (CAVE_MARK)) obvious = TRUE;
if (is_hidden_door(g_ptr))
{
/* Pick a door */
- disclose_grid(y, x);
+ disclose_grid(caster_ptr, y, x);
/* Check line of sight */
if (known)
}
/* Destroy the trap */
- cave_alter_feat(y, x, FF_DISARM);
+ cave_alter_feat(caster_ptr, y, x, FF_DISARM);
}
/* Locked doors are unlocked */
FEAT_IDX old_feat = g_ptr->feat;
/* Unlock the door */
- cave_alter_feat(y, x, FF_DISARM);
+ cave_alter_feat(caster_ptr, y, x, FF_DISARM);
/* Check line of sound */
if (known && (old_feat != g_ptr->feat))
}
/* Remove "unsafe" flag if player is not blind */
- if (!p_ptr->blind && player_has_los_bold(y, x))
+ if (!caster_ptr->blind && player_has_los_bold(caster_ptr, y, x))
{
g_ptr->info &= ~(CAVE_UNSAFE);
lite_spot(y, x);
}
/* Destroy the feature */
- cave_alter_feat(y, x, FF_TUNNEL);
+ cave_alter_feat(caster_ptr, y, x, FF_TUNNEL);
}
/* Remove "unsafe" flag if player is not blind */
- if (!p_ptr->blind && player_has_los_bold(y, x))
+ if (!caster_ptr->blind && player_has_los_bold(caster_ptr, y, x))
{
g_ptr->info &= ~(CAVE_UNSAFE);
lite_spot(y, x);
s16b old_mimic = g_ptr->mimic;
feature_type *mimic_f_ptr = &f_info[get_feat_mimic(g_ptr)];
- cave_alter_feat(y, x, FF_SPIKE);
+ cave_alter_feat(caster_ptr, y, x, FF_SPIKE);
g_ptr->mimic = old_mimic;
note_spot(y, x);
obvious = TRUE;
}
}
+
break;
}
}
/* Destroy the wall */
- cave_alter_feat(y, x, FF_HURT_ROCK);
- p_ptr->update |= (PU_FLOW);
+ cave_alter_feat(caster_ptr, y, x, FF_HURT_ROCK);
+ caster_ptr->update |= (PU_FLOW);
}
break;
case GF_MAKE_DOOR:
{
- if (!cave_naked_bold(y, x)) break;
- if (player_bold(p_ptr, y, x)) break;
- cave_set_feat(y, x, feat_door[DOOR_DOOR].closed);
+ if (!cave_naked_bold(caster_ptr, floor_ptr, y, x)) break;
+ if (player_bold(caster_ptr, y, x)) break;
+ cave_set_feat(caster_ptr, y, x, feat_door[DOOR_DOOR].closed);
if (g_ptr->info & (CAVE_MARK)) obvious = TRUE;
break;
}
case GF_MAKE_TRAP:
{
- place_trap(y, x);
+ place_trap(caster_ptr, y, x);
break;
}
case GF_MAKE_TREE:
{
- if (!cave_naked_bold(y, x)) break;
- if (player_bold(p_ptr, y, x)) break;
- cave_set_feat(y, x, feat_tree);
+ if (!cave_naked_bold(caster_ptr, floor_ptr, y, x)) break;
+ if (player_bold(caster_ptr, y, x)) break;
+ cave_set_feat(caster_ptr, y, x, feat_tree);
if (g_ptr->info & (CAVE_MARK)) obvious = TRUE;
break;
}
case GF_MAKE_GLYPH:
{
- if (!cave_naked_bold(y, x)) break;
+ if (!cave_naked_bold(caster_ptr, floor_ptr, y, x)) break;
g_ptr->info |= CAVE_OBJECT;
g_ptr->mimic = feat_glyph;
note_spot(y, x);
case GF_STONE_WALL:
{
- if (!cave_naked_bold(y, x)) break;
- if (player_bold(p_ptr, y, x)) break;
- cave_set_feat(y, x, feat_granite);
+ if (!cave_naked_bold(caster_ptr, floor_ptr, y, x)) break;
+ if (player_bold(caster_ptr, y, x)) break;
+ cave_set_feat(caster_ptr, y, x, feat_granite);
break;
}
if (dam == 1)
{
if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
- cave_set_feat(y, x, feat_shallow_lava);
+ cave_set_feat(caster_ptr, y, x, feat_shallow_lava);
}
else if (dam)
{
- cave_set_feat(y, x, feat_deep_lava);
+ cave_set_feat(caster_ptr, y, x, feat_deep_lava);
}
+
break;
}
if (dam == 1)
{
if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
- cave_set_feat(y, x, feat_shallow_water);
+ cave_set_feat(caster_ptr, y, x, feat_shallow_water);
}
else if (dam)
{
- cave_set_feat(y, x, feat_deep_water);
+ cave_set_feat(caster_ptr, y, x, feat_deep_water);
}
+
break;
}
case GF_LITE:
{
/* Turn on the light */
- if (!(d_info[p_ptr->dungeon_idx].flags1 & DF1_DARKNESS))
+ if (!(d_info[caster_ptr->dungeon_idx].flags1 & DF1_DARKNESS))
{
g_ptr->info |= (CAVE_GLOW);
note_spot(y, x);
lite_spot(y, x);
- update_local_illumination(p_ptr, y, x);
+ update_local_illumination(caster_ptr, y, x);
/* Observe */
- if (player_can_see_bold(y, x)) obvious = TRUE;
+ if (player_can_see_bold(caster_ptr, y, x)) obvious = TRUE;
/* Mega-Hack -- Update the monster in the affected grid */
/* This allows "spear of light" (etc) to work "correctly" */
- if (g_ptr->m_idx) update_monster(g_ptr->m_idx, FALSE);
+ if (g_ptr->m_idx) update_monster(caster_ptr, g_ptr->m_idx, FALSE);
- if (p_ptr->special_defense & NINJA_S_STEALTH)
+ if (caster_ptr->special_defense & NINJA_S_STEALTH)
{
- if (player_bold(p_ptr, y, x)) set_superstealth(p_ptr, FALSE);
+ if (player_bold(caster_ptr, y, x)) set_superstealth(caster_ptr, FALSE);
}
}
case GF_DARK_WEAK:
case GF_DARK:
{
- bool do_dark = !p_ptr->phase_out && !is_mirror_grid(g_ptr);
+ bool do_dark = !caster_ptr->phase_out && !is_mirror_grid(g_ptr);
int j;
/* Turn off the light. */
lite_spot(y, x);
- update_local_illumination(p_ptr, y, x);
+ update_local_illumination(caster_ptr, y, x);
- if (player_can_see_bold(y, x)) obvious = TRUE;
+ if (player_can_see_bold(caster_ptr, y, x)) obvious = TRUE;
/* Mega-Hack -- Update the monster in the affected grid */
/* This allows "spear of light" (etc) to work "correctly" */
- if (g_ptr->m_idx) update_monster(g_ptr->m_idx, FALSE);
+ if (g_ptr->m_idx) update_monster(caster_ptr, g_ptr->m_idx, FALSE);
}
/* All done */
{
if (is_mirror_grid(g_ptr))
{
- msg_print(_("鏡が割れた!", "The mirror was crashed!"));
+ msg_print(_("鏡が割れた!", "The mirror was shattered!"));
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);
+ remove_mirror(caster_ptr, y, x);
+ project(caster_ptr, 0, 2, y, x, caster_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))
{
if (known && (g_ptr->info & CAVE_MARK))
{
- msg_format(_("%sが割れた!", "The %s was crashed!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
+ msg_format(_("%sが割れた!", "The %s crumbled!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
sound(SOUND_GLASS);
}
/* Destroy the wall */
- cave_alter_feat(y, x, FF_HURT_ROCK);
- p_ptr->update |= (PU_FLOW);
+ cave_alter_feat(caster_ptr, y, x, FF_HURT_ROCK);
+ caster_ptr->update |= (PU_FLOW);
}
+
break;
}
case GF_SOUND:
{
- if (is_mirror_grid(g_ptr) && p_ptr->lev < 40)
+ if (is_mirror_grid(g_ptr) && caster_ptr->lev < 40)
{
- msg_print(_("鏡が割れた!", "The mirror was crashed!"));
+ msg_print(_("鏡が割れた!", "The mirror was shattered!"));
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);
+ remove_mirror(caster_ptr, y, x);
+ project(caster_ptr, 0, 2, y, x, caster_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))
{
if (known && (g_ptr->info & CAVE_MARK))
{
- msg_format(_("%sが割れた!", "The %s was crashed!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
+ msg_format(_("%sが割れた!", "The %s crumbled!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
sound(SOUND_GLASS);
}
/* Destroy the wall */
- cave_alter_feat(y, x, FF_HURT_ROCK);
- p_ptr->update |= (PU_FLOW);
+ cave_alter_feat(caster_ptr, y, x, FF_HURT_ROCK);
+ caster_ptr->update |= (PU_FLOW);
}
+
break;
}
{
/* Destroy mirror/glyph */
if (is_mirror_grid(g_ptr) || is_glyph_grid(g_ptr) || is_explosive_rune_grid(g_ptr))
- remove_mirror(y, x);
+ remove_mirror(caster_ptr, 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);
+ cave_alter_feat(caster_ptr, y, x, FF_HURT_DISI);
/* Update some things -- similar to GF_KILL_WALL */
- p_ptr->update |= (PU_FLOW);
+ caster_ptr->update |= (PU_FLOW);
}
+
break;
}
}
/*!
* @brief 汎用的なビーム/ボルト/ボール系によるアイテムオブジェクトへの効果処理 / Handle a beam/bolt/ball causing damage to a monster.
+ * @param caster_ptr プレーヤーへの参照ポインタ
* @param who 魔法を発動したモンスター(0ならばプレイヤー) / Index of "source" monster (zero for "player")
* @param r 効果半径(ビーム/ボルト = 0 / ボール = 1以上) / Radius of explosion (0 = beam/bolt, 1 to 9 = ball)
* @param y 目標Y座標 / Target y location (or location to travel "towards")
* We return "TRUE" if the effect of the projection is "obvious".
* </pre>
*/
-static bool project_o(MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ)
+static bool project_o(player_type *caster_ptr, MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ)
{
- grid_type *g_ptr = &p_ptr->current_floor_ptr->grid_array[y][x];
+ grid_type *g_ptr = &caster_ptr->current_floor_ptr->grid_array[y][x];
OBJECT_IDX this_o_idx, next_o_idx = 0;
bool obvious = FALSE;
- bool known = player_has_los_bold(y, x);
+ bool known = player_has_los_bold(caster_ptr, y, x);
BIT_FLAGS flgs[TR_FLAG_SIZE];
/* Scan all objects in the grid */
for (this_o_idx = g_ptr->o_idx; this_o_idx; this_o_idx = next_o_idx)
{
- object_type *o_ptr = &p_ptr->current_floor_ptr->o_list[this_o_idx];
+ object_type *o_ptr = &caster_ptr->current_floor_ptr->o_list[this_o_idx];
bool is_art = FALSE;
bool ignore = FALSE;
case GF_IDENTIFY:
{
- identify_item(o_ptr);
+ identify_item(caster_ptr, o_ptr);
/* Auto-inscription */
- autopick_alter_item((-this_o_idx), FALSE);
+ autopick_alter_item(caster_ptr, (-this_o_idx), FALSE);
break;
}
int i;
BIT_FLAGS mode = 0L;
- if (!who || is_pet(&p_ptr->current_floor_ptr->m_list[who]))
+ if (!who || is_pet(&caster_ptr->current_floor_ptr->m_list[who]))
mode |= PM_FORCE_PET;
for (i = 0; i < o_ptr->number ; i++)
k_idx = o_ptr->k_idx;
is_potion = object_is_potion(o_ptr);
- delete_object_idx(this_o_idx);
+ delete_object_idx(caster_ptr->current_floor_ptr, this_o_idx);
/* Potions produce effects when 'shattered' */
if (is_potion)
}
/* Return "Anything seen?" */
- return (obvious);
+ return obvious;
}
/*!
* @brief 汎用的なビーム/ボルト/ボール系によるモンスターへの効果処理 / Handle a beam/bolt/ball causing damage to a monster.
+ * @param caster_ptr プレーヤーへの参照ポインタ
* @param who 魔法を発動したモンスター(0ならばプレイヤー) / Index of "source" monster (zero for "player")
* @param r 効果半径(ビーム/ボルト = 0 / ボール = 1以上) / Radius of explosion (0 = beam/bolt, 1 to 9 = ball)
* @param y 目標Y座標 / Target y location (or location to travel "towards")
* "flg" was added.
* </pre>
*/
-static bool project_m(MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ, BIT_FLAGS flg, bool see_s_msg)
+static bool project_m(player_type *caster_ptr, MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ, BIT_FLAGS flg, bool see_s_msg)
{
int tmp;
- grid_type *g_ptr = &p_ptr->current_floor_ptr->grid_array[y][x];
+ floor_type *floor_ptr = caster_ptr->current_floor_ptr;
+ grid_type *g_ptr = &floor_ptr->grid_array[y][x];
- monster_type *m_ptr = &p_ptr->current_floor_ptr->m_list[g_ptr->m_idx];
- monster_type *caster_ptr = (who > 0) ? &p_ptr->current_floor_ptr->m_list[who] : NULL;
+ monster_type *m_ptr = &floor_ptr->m_list[g_ptr->m_idx];
+ monster_type *m_caster_ptr = (who > 0) ? &floor_ptr->m_list[who] : NULL;
monster_race *r_ptr = &r_info[m_ptr->r_idx];
bool obvious = FALSE;
/* Can the player know about this effect? */
- bool known = ((m_ptr->cdis <= MAX_SIGHT) || p_ptr->phase_out);
+ bool known = ((m_ptr->cdis <= MAX_SIGHT) || caster_ptr->phase_out);
/* Were the effects "irrelevant"? */
bool skipped = FALSE;
/* Assume a default death */
concptr note_dies = extract_note_dies(real_r_idx(m_ptr));
- DEPTH caster_lev = (who > 0) ? r_info[caster_ptr->r_idx].level : (p_ptr->lev * 2);
+ DEPTH caster_lev = (who > 0) ? r_info[m_caster_ptr->r_idx].level : (caster_ptr->lev * 2);
/* Nobody here */
- if (!g_ptr->m_idx) return (FALSE);
+ if (!g_ptr->m_idx) return FALSE;
/* Never affect projector */
- if (who && (g_ptr->m_idx == who)) return (FALSE);
- if ((g_ptr->m_idx == p_ptr->riding) && !who && !(typ == GF_OLD_HEAL) && !(typ == GF_OLD_SPEED) && !(typ == GF_STAR_HEAL)) return (FALSE);
+ if (who && (g_ptr->m_idx == who)) return FALSE;
+ if ((g_ptr->m_idx == caster_ptr->riding) && !who && !(typ == GF_OLD_HEAL) && !(typ == GF_OLD_SPEED) && !(typ == GF_STAR_HEAL)) return FALSE;
if (sukekaku && ((m_ptr->r_idx == MON_SUKE) || (m_ptr->r_idx == MON_KAKU))) return FALSE;
/* Don't affect already death monsters */
/* Prevents problems with chain reactions of exploding monsters */
- if (m_ptr->hp < 0) return (FALSE);
+ if (m_ptr->hp < 0) return FALSE;
/* Reduce damage by distance */
dam = (dam + r) / (r + 1);
/* Get the monster possessive ("his"/"her"/"its") */
monster_desc(m_poss, m_ptr, MD_PRON_VISIBLE | MD_POSSESSIVE);
- if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) disturb(p_ptr, TRUE, TRUE);
+ if (caster_ptr->riding && (g_ptr->m_idx == caster_ptr->riding)) disturb(caster_ptr, TRUE, TRUE);
if (r_ptr->flagsr & RFR_RES_ALL &&
typ != GF_OLD_CLONE && typ != GF_STAR_HEAL && typ != GF_OLD_HEAL
{
note = _("には完全な耐性がある!", " is immune.");
dam = 0;
- if(is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- if(typ == GF_LITE_WEAK || typ == GF_KILL_WALL) skipped = TRUE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (typ == GF_LITE_WEAK || typ == GF_KILL_WALL) skipped = TRUE;
}
else
{
switch (typ)
{
/* Magic Missile -- pure damage */
- case GF_MISSILE:
+ case GF_MISSILE:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
+
+ /* Acid */
+ case GF_ACID:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_IM_ACID)
{
- if (seen) obvious = TRUE;
- break;
+ note = _("にはかなり耐性がある!", " resists a lot.");
+ dam /= 9;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_ACID);
}
+ break;
+ }
- /* Acid */
- case GF_ACID:
+ /* Electricity */
+ case GF_ELEC:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_IM_ELEC)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_IM_ACID)
- {
- note = _("にはかなり耐性がある!", " resists a lot.");
- dam /= 9;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_ACID);
- }
- break;
+ note = _("にはかなり耐性がある!", " resists a lot.");
+ dam /= 9;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_ELEC);
}
+ break;
+ }
- /* Electricity */
- case GF_ELEC:
+ /* Fire damage */
+ case GF_FIRE:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_IM_FIRE)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_IM_ELEC)
- {
- note = _("にはかなり耐性がある!", " resists a lot.");
- dam /= 9;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_ELEC);
- }
- break;
+ note = _("にはかなり耐性がある!", " resists a lot.");
+ dam /= 9;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_FIRE);
+ }
+ else if (r_ptr->flags3 & (RF3_HURT_FIRE))
+ {
+ note = _("はひどい痛手をうけた。", " is hit hard.");
+ dam *= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_FIRE);
}
+ break;
+ }
- /* Fire damage */
- case GF_FIRE:
+ /* Cold */
+ case GF_COLD:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_IM_COLD)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_IM_FIRE)
- {
- note = _("にはかなり耐性がある!", " resists a lot.");
- dam /= 9;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_FIRE);
- }
- else if (r_ptr->flags3 & (RF3_HURT_FIRE))
- {
- note = _("はひどい痛手をうけた。", " is hit hard.");
- dam *= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_FIRE);
- }
- break;
+ note = _("にはかなり耐性がある!", " resists a lot.");
+ dam /= 9;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_COLD);
+ }
+ else if (r_ptr->flags3 & (RF3_HURT_COLD))
+ {
+ note = _("はひどい痛手をうけた。", " is hit hard.");
+ dam *= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
}
+ break;
+ }
- /* Cold */
- case GF_COLD:
+ /* Poison */
+ case GF_POIS:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_IM_POIS)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_IM_COLD)
- {
- note = _("にはかなり耐性がある!", " resists a lot.");
- dam /= 9;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_COLD);
- }
- else if (r_ptr->flags3 & (RF3_HURT_COLD))
- {
- note = _("はひどい痛手をうけた。", " is hit hard.");
- dam *= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
- }
- break;
+ note = _("にはかなり耐性がある!", " resists a lot.");
+ dam /= 9;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_POIS);
}
+ break;
+ }
- /* Poison */
- case GF_POIS:
+ /* Nuclear waste */
+ case GF_NUKE:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_IM_POIS)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_IM_POIS)
- {
- note = _("にはかなり耐性がある!", " resists a lot.");
- dam /= 9;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_POIS);
- }
- break;
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_POIS);
}
+ else if (one_in_(3)) do_poly = TRUE;
+ break;
+ }
- /* Nuclear waste */
- case GF_NUKE:
+ /* Hellfire -- hurts Evil */
+ case GF_HELL_FIRE:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags3 & RF3_GOOD)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_IM_POIS)
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_POIS);
- }
- else if (one_in_(3)) do_poly = TRUE;
- break;
+ note = _("はひどい痛手をうけた。", " is hit hard.");
+ dam *= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
}
+ break;
+ }
- /* Hellfire -- hurts Evil */
- case GF_HELL_FIRE:
+ /* Holy Fire -- hurts Evil, Good are immune, others _resist_ */
+ case GF_HOLY_FIRE:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags3 & RF3_EVIL)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flags3 & RF3_GOOD)
- {
- note = _("はひどい痛手をうけた。", " is hit hard.");
- dam *= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
- }
- break;
+ dam *= 2;
+ note = _("はひどい痛手をうけた。", " is hit hard.");
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_EVIL;
+ }
+ else
+ {
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
}
+ break;
+ }
- /* Holy Fire -- hurts Evil, Good are immune, others _resist_ */
- case GF_HOLY_FIRE:
+ /* Arrow -- XXX no defense */
+ case GF_ARROW:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
+
+ /* Plasma -- XXX perhaps check ELEC or FIRE */
+ case GF_PLASMA:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_PLAS)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flags3 & RF3_EVIL)
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_PLAS);
+ }
+ break;
+ }
+
+ /* Nether -- see above */
+ case GF_NETHER:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_NETH)
+ {
+ if (r_ptr->flags3 & RF3_UNDEAD)
{
- dam *= 2;
- note = _("はひどい痛手をうけた。", " is hit hard.");
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_EVIL;
+ note = _("には完全な耐性がある!", " is immune.");
+ dam = 0;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
}
else
{
note = _("には耐性がある。", " resists.");
dam *= 3; dam /= randint1(6) + 6;
}
- break;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_NETH);
}
-
- /* Arrow -- XXX no defense */
- case GF_ARROW:
+ else if (r_ptr->flags3 & RF3_EVIL)
{
- if (seen) obvious = TRUE;
- break;
+ note = _("はいくらか耐性を示した。", " resists somewhat.");
+ dam /= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
}
+ break;
+ }
- /* Plasma -- XXX perhaps check ELEC or FIRE */
- case GF_PLASMA:
+ /* Water (acid) damage -- Water spirits/elementals are immune */
+ case GF_WATER:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_WATE)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_PLAS)
+ if ((m_ptr->r_idx == MON_WATER_ELEM) || (m_ptr->r_idx == MON_UNMAKER))
+ {
+ note = _("には完全な耐性がある!", " is immune.");
+ dam = 0;
+ }
+ else
{
note = _("には耐性がある。", " resists.");
dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_PLAS);
}
- break;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_WATE);
}
+ break;
+ }
- /* Nether -- see above */
- case GF_NETHER:
+ /* Chaos -- Chaos breathers resist */
+ case GF_CHAOS:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_CHAO)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_NETH)
- {
- if (r_ptr->flags3 & RF3_UNDEAD)
- {
- note = _("には完全な耐性がある!", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
- }
- else
- {
- note = _("には耐性がある。", " resists.");
- 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)
- {
- note = _("はいくらか耐性を示した。", " resists somewhat.");
- dam /= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
- }
- break;
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_CHAO);
}
-
- /* Water (acid) damage -- Water spirits/elementals are immune */
- case GF_WATER:
+ else if ((r_ptr->flags3 & RF3_DEMON) && one_in_(3))
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_WATE)
- {
- if ((m_ptr->r_idx == MON_WATER_ELEM) || (m_ptr->r_idx == MON_UNMAKER))
- {
- note = _("には完全な耐性がある!", " is immune.");
- dam = 0;
- }
- else
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- }
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_WATE);
- }
- break;
+ note = _("はいくらか耐性を示した。", " resists somewhat.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
}
-
- /* Chaos -- Chaos breathers resist */
- case GF_CHAOS:
+ else
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_CHAO)
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- 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))
- {
- note = _("はいくらか耐性を示した。", " resists somewhat.");
- 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;
+ do_poly = TRUE;
+ do_conf = (5 + randint1(11) + r) / (r + 1);
}
+ break;
+ }
- /* Shards -- Shard breathers resist */
- case GF_SHARDS:
+ /* Shards -- Shard breathers resist */
+ case GF_SHARDS:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_SHAR)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_SHAR)
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
- }
- break;
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
}
+ break;
+ }
- /* Rocket: Shard resistance helps */
- case GF_ROCKET:
+ /* Rocket: Shard resistance helps */
+ case GF_ROCKET:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_SHAR)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_SHAR)
- {
- note = _("はいくらか耐性を示した。", " resists somewhat.");
- dam /= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
- }
- break;
+ note = _("はいくらか耐性を示した。", " resists somewhat.");
+ dam /= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
}
+ break;
+ }
- /* Sound -- Sound breathers resist */
- case GF_SOUND:
+ /* Sound -- Sound breathers resist */
+ case GF_SOUND:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_SOUN)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_SOUN)
- {
- note = _("には耐性がある。", " resists.");
- 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;
+ note = _("には耐性がある。", " resists.");
+ 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;
+ }
- /* Confusion */
- case GF_CONFUSION:
+ /* Confusion */
+ case GF_CONFUSION:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags3 & RF3_NO_CONF)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flags3 & RF3_NO_CONF)
- {
- note = _("には耐性がある。", " resists.");
- 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;
+ note = _("には耐性がある。", " resists.");
+ 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;
+ }
- /* Disenchantment -- Breathers and Disenchanters resist */
- case GF_DISENCHANT:
+ /* Disenchantment -- Breathers and Disenchanters resist */
+ case GF_DISENCHANT:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_DISE)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_DISE)
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_DISE);
- }
- break;
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_DISE);
}
+ break;
+ }
- /* Nexus -- Breathers and Existers resist */
- case GF_NEXUS:
+ /* Nexus -- Breathers and Existers resist */
+ case GF_NEXUS:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_NEXU)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_NEXU)
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_NEXU);
- }
- break;
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_NEXU);
}
+ break;
+ }
- /* Force */
- case GF_FORCE:
+ /* Force */
+ case GF_FORCE:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_WALL)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_WALL)
- {
- note = _("には耐性がある。", " resists.");
- 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;
- }
-
- /* Inertia -- breathers resist */
- case GF_INERTIAL:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_INER)
- {
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_INER);
- }
- else
- {
- /* Powerful monsters can resist */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- obvious = FALSE;
- }
- /* Normal monsters slow down */
- else
- {
- if (set_monster_slow(g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
- {
- note = _("の動きが遅くなった。", " starts moving slower.");
- }
- }
- }
- break;
+ note = _("には耐性がある。", " resists.");
+ 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;
+ }
- /* Time -- breathers resist */
- case GF_TIME:
+ /* Inertia -- breathers resist */
+ case GF_INERTIAL:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_INER)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_TIME)
- {
- note = _("には耐性がある。", " resists.");
- 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;
- break;
+ note = _("には耐性がある。", " resists.");
+ dam *= 3; dam /= randint1(6) + 6;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_INER);
}
-
- /* Gravity -- breathers resist */
- case GF_GRAVITY:
+ else
{
- bool resist_tele = FALSE;
-
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_TELE)
- {
- if (r_ptr->flags1 & (RF1_UNIQUE))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には効果がなかった。", " is unaffected!");
- resist_tele = TRUE;
- }
- else if (r_ptr->level > randint1(100))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には耐性がある!", " resists!");
- resist_tele = TRUE;
- }
- }
-
- if (!resist_tele) do_dist = 10;
- else do_dist = 0;
- if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) do_dist = 0;
-
- if (r_ptr->flagsr & RFR_RES_GRAV)
+ /* Powerful monsters can resist */
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- note = _("には耐性がある!", " resists!");
- dam *= 3; dam /= randint1(6) + 6;
- do_dist = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_GRAV);
+ obvious = FALSE;
}
+ /* Normal monsters slow down */
else
{
- /* 1. slowness */
- /* Powerful monsters can resist */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- obvious = FALSE;
- }
- /* Normal monsters slow down */
- else
- {
- if (set_monster_slow(g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
- {
- note = _("の動きが遅くなった。", " starts moving slower.");
- }
- }
-
- /* 2. stun */
- do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
-
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ if (set_monster_slow(caster_ptr, g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
- /* Resist */
- do_stun = 0;
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected!");
- obvious = FALSE;
+ note = _("の動きが遅くなった。", " starts moving slower.");
}
}
- break;
}
+ break;
+ }
- /* Pure damage */
- case GF_MANA:
- case GF_SEEKER:
- case GF_SUPER_RAY:
+ /* Time -- breathers resist */
+ case GF_TIME:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_TIME)
{
- if (seen) obvious = TRUE;
- break;
+ note = _("には耐性がある。", " resists.");
+ 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;
+ break;
+ }
+ /* Gravity -- breathers resist */
+ case GF_GRAVITY:
+ {
+ bool resist_tele = FALSE;
- /* Pure damage */
- case GF_DISINTEGRATE:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flags3 & RF3_HURT_ROCK)
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
- note = _("の皮膚がただれた!", " loses some skin!");
- note_dies = _("は蒸発した!", " evaporates!");
- dam *= 2;
- }
- break;
- }
-
- case GF_PSI:
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_TELE)
{
- if (seen) obvious = TRUE;
-
- /* PSI only works if the monster can see you! -- RG */
- if (!(los(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x)))
+ if (r_ptr->flags1 & (RF1_UNIQUE))
{
- if (seen_msg)
- msg_format(_("%sはあなたが見えないので影響されない!", "%^s can't see you, and isn't affected!"), m_name);
- skipped = TRUE;
- break;
- }
- if (r_ptr->flags2 & RF2_EMPTY_MIND)
- {
- dam = 0;
- note = _("には完全な耐性がある!", " is immune.");
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
-
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
+ note = _("には効果がなかった。", " is unaffected!");
+ resist_tele = TRUE;
}
- else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
- (r_ptr->flags3 & RF3_ANIMAL) ||
- (r_ptr->level > randint1(3 * dam)))
+ else if (r_ptr->level > randint1(100))
{
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
note = _("には耐性がある!", " resists!");
- dam /= 3;
-
- /*
- * Powerful demons & undead can current_world_ptr->game_turn a mindcrafter's
- * attacks back on them
- */
- if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
- (r_ptr->level > p_ptr->lev / 2) &&
- one_in_(2))
- {
- note = NULL;
- msg_format(_("%^sの堕落した精神は攻撃を跳ね返した!",
- (seen ? "%^s's corrupted mind backlashes your attack!" :
- "%^ss corrupted mind backlashes your attack!")), m_name);
-
- /* Saving throw */
- if ((randint0(100 + r_ptr->level / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW(p_ptr))
- {
- msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- }
- else
- {
- /* Injure +/- confusion */
- monster_desc(killer, m_ptr, MD_WRONGDOER_NAME);
- take_hit(p_ptr, DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
- if (one_in_(4) && !CHECK_MULTISHADOW(p_ptr))
- {
- switch (randint1(4))
- {
- case 1:
- set_confused(p_ptr, p_ptr->confused + 3 + randint1(dam));
- break;
- case 2:
- set_stun(p_ptr, p_ptr->stun + randint1(dam));
- break;
- case 3:
- {
- if (r_ptr->flags3 & RF3_NO_FEAR)
- note = _("には効果がなかった。", " is unaffected.");
- else
- set_afraid(p_ptr, p_ptr->afraid + 3 + randint1(dam));
- break;
- }
- default:
- if (!p_ptr->free_act)
- (void)set_paralyzed(p_ptr, p_ptr->paralyzed + randint1(dam));
- break;
- }
- }
- }
- dam = 0;
- }
+ resist_tele = TRUE;
}
+ }
- if ((dam > 0) && one_in_(4))
- {
- switch (randint1(4))
- {
- case 1:
- do_conf = 3 + randint1(dam);
- break;
- case 2:
- do_stun = 3 + randint1(dam);
- break;
- case 3:
- do_fear = 3 + randint1(dam);
- break;
- default:
- note = _("は眠り込んでしまった!", " falls asleep!");
- do_sleep = 3 + randint1(dam);
- break;
- }
- }
+ if (!resist_tele) do_dist = 10;
+ else do_dist = 0;
+ if (caster_ptr->riding && (g_ptr->m_idx == caster_ptr->riding)) do_dist = 0;
- note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
- break;
+ if (r_ptr->flagsr & RFR_RES_GRAV)
+ {
+ note = _("には耐性がある!", " resists!");
+ dam *= 3; dam /= randint1(6) + 6;
+ do_dist = 0;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_GRAV);
}
-
- case GF_PSI_DRAIN:
+ else
{
- if (seen) obvious = TRUE;
- if (r_ptr->flags2 & RF2_EMPTY_MIND)
+ /* 1. slowness */
+ /* Powerful monsters can resist */
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- dam = 0;
- note = _("には完全な耐性がある!", " is immune.");
+ obvious = FALSE;
}
- else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
- (r_ptr->flags3 & RF3_ANIMAL) ||
- (r_ptr->level > randint1(3 * dam)))
+ /* Normal monsters slow down */
+ else
{
- note = _("には耐性がある!", " resists!");
- dam /= 3;
-
- /*
- * Powerful demons & undead can current_world_ptr->game_turn a mindcrafter's
- * attacks back on them
- */
- if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
- (r_ptr->level > p_ptr->lev / 2) &&
- (one_in_(2)))
+ if (set_monster_slow(caster_ptr, g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
- note = NULL;
- msg_format(_("%^sの堕落した精神は攻撃を跳ね返した!",
- (seen ? "%^s's corrupted mind backlashes your attack!" :
- "%^ss corrupted mind backlashes your attack!")), m_name);
- /* Saving throw */
- if ((randint0(100 + r_ptr->level / 2) < p_ptr->skill_sav) && !CHECK_MULTISHADOW(p_ptr))
- {
- msg_print(_("あなたは効力を跳ね返した!", "You resist the effects!"));
- }
- else
- {
- /* Injure + mana drain */
- monster_desc(killer, m_ptr, MD_WRONGDOER_NAME);
- if (!CHECK_MULTISHADOW(p_ptr))
- {
- msg_print(_("超能力パワーを吸いとられた!", "Your psychic energy is drained!"));
- 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(p_ptr, DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
- }
- dam = 0;
+ note = _("の動きが遅くなった。", " starts moving slower.");
}
}
- else if (dam > 0)
- {
- int b = damroll(5, dam) / 4;
- concptr str = (p_ptr->pclass == CLASS_MINDCRAFTER) ? _("超能力パワー", "psychic energy") : _("魔力", "mana");
- concptr msg = _("あなたは%sの苦痛を%sに変換した!",
- (seen ? "You convert %s's pain into %s!" :
- "You convert %ss pain into %s!"));
- msg_format(msg, m_name, str);
-
- b = MIN(p_ptr->msp, p_ptr->csp + b);
- p_ptr->csp = b;
- p_ptr->redraw |= PR_MANA;
- p_ptr->window |= (PW_SPELL);
- }
- note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
- break;
- }
-
- case GF_TELEKINESIS:
- {
- if (seen) obvious = TRUE;
- if (one_in_(4))
- {
- if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) do_dist = 0;
- else do_dist = 7;
- }
- /* 1. stun */
- do_stun = damroll((caster_lev / 20) + 3 , dam) + 1;
+ /* 2. stun */
+ do_stun = damroll((caster_lev / 20) + 3, (dam)) + 1;
/* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->level > 5 + randint1(dam)))
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
/* Resist */
do_stun = 0;
/* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected!");
obvious = FALSE;
}
- break;
}
+ break;
+ }
+
+ /* Pure damage */
+ case GF_MANA:
+ case GF_SEEKER:
+ case GF_SUPER_RAY:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
- /* Psycho-spear -- powerful magic missile */
- case GF_PSY_SPEAR:
+
+ /* Pure damage */
+ case GF_DISINTEGRATE:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags3 & RF3_HURT_ROCK)
{
- if (seen) obvious = TRUE;
- break;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
+ note = _("の皮膚がただれた!", " loses some skin!");
+ note_dies = _("は蒸発した!", " evaporates!");
+ dam *= 2;
}
+ break;
+ }
- /* Meteor -- powerful magic missile */
- case GF_METEOR:
+ case GF_PSI:
+ {
+ if (seen) obvious = TRUE;
+
+ /* PSI only works if the monster can see you! -- RG */
+ if (!(los(caster_ptr, m_ptr->fy, m_ptr->fx, caster_ptr->y, caster_ptr->x)))
{
- if (seen) obvious = TRUE;
+ if (seen_msg)
+ msg_format(_("%sはあなたが見えないので影響されない!", "%^s can't see you, and isn't affected!"), m_name);
+ skipped = TRUE;
break;
}
-
- case GF_DOMINATION:
+ if (r_ptr->flags2 & RF2_EMPTY_MIND)
{
- if (!is_hostile(m_ptr)) break;
- if (seen) obvious = TRUE;
- /* Attempt a saving throw */
- 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 (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
- }
+ dam = 0;
+ note = _("には完全な耐性がある!", " is immune.");
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
- /* Resist */
- do_conf = 0;
+ }
+ else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
+ (r_ptr->flags3 & RF3_ANIMAL) ||
+ (r_ptr->level > randint1(3 * dam)))
+ {
+ note = _("には耐性がある!", " resists!");
+ dam /= 3;
- /*
- * Powerful demons & undead can current_world_ptr->game_turn a mindcrafter's
- * attacks back on them
- */
- if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
- (r_ptr->level > p_ptr->lev / 2) &&
- (one_in_(2)))
- {
- note = NULL;
- msg_format(_("%^sの堕落した精神は攻撃を跳ね返した!",
- (seen ? "%^s's corrupted mind backlashes your attack!" :
+ /*
+ * Powerful demons & undead can turn a mindcrafter's
+ * attacks back on them
+ */
+ if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
+ (r_ptr->level > caster_ptr->lev / 2) &&
+ one_in_(2))
+ {
+ note = NULL;
+ msg_format(_("%^sの堕落した精神は攻撃を跳ね返した!",
+ (seen ? "%^s's corrupted mind backlashes your attack!" :
"%^ss corrupted mind backlashes your attack!")), m_name);
- /* Saving throw */
- if (randint0(100 + r_ptr->level/2) < p_ptr->skill_sav)
- {
- msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- }
- else
- {
- /* Confuse, stun, terrify */
- switch (randint1(4))
- {
- case 1:
- set_stun(p_ptr, p_ptr->stun + dam / 2);
- break;
- case 2:
- set_confused(p_ptr, p_ptr->confused + dam / 2);
- break;
- default:
- {
- if (r_ptr->flags3 & RF3_NO_FEAR)
- note = _("には効果がなかった。", " is unaffected.");
- else
- set_afraid(p_ptr, p_ptr->afraid + dam);
- }
- }
- }
- }
- else
- {
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
- }
- else
- {
- if (!common_saving_throw_charm(p_ptr, dam, m_ptr))
+ /* Saving throw */
+ if ((randint0(100 + r_ptr->level / 2) < caster_ptr->skill_sav) && !CHECK_MULTISHADOW(caster_ptr))
{
- note = _("があなたに隷属した。", " is in your thrall!");
- set_pet(m_ptr);
+ msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
}
else
{
- switch (randint1(4))
+ /* Injure +/- confusion */
+ monster_desc(killer, m_ptr, MD_WRONGDOER_NAME);
+ take_hit(caster_ptr, DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
+ if (one_in_(4) && !CHECK_MULTISHADOW(caster_ptr))
{
+ switch (randint1(4))
+ {
case 1:
- do_stun = dam / 2;
+ set_confused(caster_ptr, caster_ptr->confused + 3 + randint1(dam));
break;
case 2:
- do_conf = dam / 2;
+ set_stun(caster_ptr, caster_ptr->stun + randint1(dam));
+ break;
+ case 3:
+ {
+ if (r_ptr->flags3 & RF3_NO_FEAR)
+ note = _("には効果がなかった。", " is unaffected.");
+ else
+ set_afraid(caster_ptr, caster_ptr->afraid + 3 + randint1(dam));
break;
+ }
default:
- do_fear = dam;
+ if (!caster_ptr->free_act)
+ (void)set_paralyzed(caster_ptr, caster_ptr->paralyzed + randint1(dam));
+ break;
+ }
}
}
+ dam = 0;
}
-
- /* No "real" damage */
- dam = 0;
- break;
}
- /* Ice -- Cold + Cuts + Stun */
- case GF_ICE:
+ if ((dam > 0) && one_in_(4))
{
- if (seen) obvious = TRUE;
- do_stun = (randint1(15) + 1) / (r + 1);
- if (r_ptr->flagsr & RFR_IM_COLD)
- {
- note = _("にはかなり耐性がある!", " resists a lot.");
- dam /= 9;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_COLD);
- }
- else if (r_ptr->flags3 & (RF3_HURT_COLD))
+ switch (randint1(4))
{
- note = _("はひどい痛手をうけた。", " is hit hard.");
- dam *= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
+ case 1:
+ do_conf = 3 + randint1(dam);
+ break;
+ case 2:
+ do_stun = 3 + randint1(dam);
+ break;
+ case 3:
+ do_fear = 3 + randint1(dam);
+ break;
+ default:
+ note = _("は眠り込んでしまった!", " falls asleep!");
+ do_sleep = 3 + randint1(dam);
+ break;
}
- break;
}
+ note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
+ break;
+ }
- /* Drain Life */
- case GF_HYPODYNAMIA:
+ case GF_PSI_DRAIN:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags2 & RF2_EMPTY_MIND)
{
- if (seen) obvious = TRUE;
- if (!monster_living(m_ptr->r_idx))
- {
- if (is_original_ap_and_seen(m_ptr))
- {
- 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);
- }
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- dam = 0;
- }
- else do_time = (dam+7)/8;
-
- break;
+ dam = 0;
+ note = _("には完全な耐性がある!", " is immune.");
}
-
- /* Death Ray */
- case GF_DEATH_RAY:
+ else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
+ (r_ptr->flags3 & RF3_ANIMAL) ||
+ (r_ptr->level > randint1(3 * dam)))
{
- if (seen) obvious = TRUE;
- if (!monster_living(m_ptr->r_idx))
+ note = _("には耐性がある!", " resists!");
+ dam /= 3;
+
+ /*
+ * Powerful demons & undead can turn a mindcrafter's
+ * attacks back on them
+ */
+ if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
+ (r_ptr->level > caster_ptr->lev / 2) &&
+ (one_in_(2)))
{
- if (is_original_ap_and_seen(m_ptr))
+ note = NULL;
+ msg_format(_("%^sの堕落した精神は攻撃を跳ね返した!",
+ (seen ? "%^s's corrupted mind backlashes your attack!" :
+ "%^ss corrupted mind backlashes your attack!")), m_name);
+ /* Saving throw */
+ if ((randint0(100 + r_ptr->level / 2) < caster_ptr->skill_sav) && !CHECK_MULTISHADOW(caster_ptr))
{
- 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);
+ msg_print(_("あなたは効力を跳ね返した!", "You resist the effects!"));
+ }
+ else
+ {
+ /* Injure + mana drain */
+ monster_desc(killer, m_ptr, MD_WRONGDOER_NAME);
+ if (!CHECK_MULTISHADOW(caster_ptr))
+ {
+ msg_print(_("超能力パワーを吸いとられた!", "Your psychic energy is drained!"));
+ caster_ptr->csp -= damroll(5, dam) / 2;
+ if (caster_ptr->csp < 0) caster_ptr->csp = 0;
+ caster_ptr->redraw |= PR_MANA;
+ caster_ptr->window |= (PW_SPELL);
+ }
+ take_hit(caster_ptr, DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
}
- note = _("には完全な耐性がある!", " is immune.");
- obvious = FALSE;
- dam = 0;
- }
- else if (((r_ptr->flags1 & RF1_UNIQUE) &&
- (randint1(888) != 666)) ||
- (((r_ptr->level + randint1(20)) > randint1((caster_lev / 2) + randint1(10))) &&
- randint1(100) != 66))
- {
- note = _("には耐性がある!", " resists!");
- obvious = FALSE;
dam = 0;
}
+ }
+ else if (dam > 0)
+ {
+ int b = damroll(5, dam) / 4;
+ concptr str = (caster_ptr->pclass == CLASS_MINDCRAFTER) ? _("超能力パワー", "psychic energy") : _("魔力", "mana");
+ concptr msg = _("あなたは%sの苦痛を%sに変換した!",
+ (seen ? "You convert %s's pain into %s!" :
+ "You convert %ss pain into %s!"));
+ msg_format(msg, m_name, str);
- break;
+ b = MIN(caster_ptr->msp, caster_ptr->csp + b);
+ caster_ptr->csp = b;
+ caster_ptr->redraw |= PR_MANA;
+ caster_ptr->window |= (PW_SPELL);
}
+ note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
+ break;
+ }
- /* Polymorph monster (Use "dam" as "power") */
- case GF_OLD_POLY:
+ case GF_TELEKINESIS:
+ {
+ if (seen) obvious = TRUE;
+ if (one_in_(4))
{
- if (seen) obvious = TRUE;
- /* Attempt to polymorph (see below) */
- do_poly = TRUE;
-
- /* Powerful monsters can resist */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags1 & RF1_QUESTOR) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- note = _("には効果がなかった。", " is unaffected.");
- do_poly = FALSE;
- obvious = FALSE;
- }
+ if (caster_ptr->riding && (g_ptr->m_idx == caster_ptr->riding)) do_dist = 0;
+ else do_dist = 7;
+ }
- /* No "real" damage */
- dam = 0;
+ /* 1. stun */
+ do_stun = damroll((caster_lev / 20) + 3, dam) + 1;
- break;
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->level > 5 + randint1(dam)))
+ {
+ /* Resist */
+ do_stun = 0;
+ /* No obvious effect */
+ obvious = FALSE;
}
+ break;
+ }
+
+ /* Psycho-spear -- powerful magic missile */
+ case GF_PSY_SPEAR:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
+ /* Meteor -- powerful magic missile */
+ case GF_METEOR:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
- /* Clone monsters (Ignore "dam") */
- case GF_OLD_CLONE:
+ case GF_DOMINATION:
+ {
+ if (!is_hostile(m_ptr)) break;
+ if (seen) obvious = TRUE;
+ /* Attempt a saving throw */
+ 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))
{
- if (seen) obvious = TRUE;
+ /* Memorize a flag */
+ if (r_ptr->flags3 & RF3_NO_CONF)
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ }
+
+ /* Resist */
+ do_conf = 0;
+
+ /*
+ * Powerful demons & undead can turn a mindcrafter's
+ * attacks back on them
+ */
+ if ((r_ptr->flags3 & (RF3_UNDEAD | RF3_DEMON)) &&
+ (r_ptr->level > caster_ptr->lev / 2) &&
+ (one_in_(2)))
+ {
+ note = NULL;
+ msg_format(_("%^sの堕落した精神は攻撃を跳ね返した!",
+ (seen ? "%^s's corrupted mind backlashes your attack!" :
+ "%^ss corrupted mind backlashes your attack!")), m_name);
- if ((p_ptr->inside_arena) || is_pet(m_ptr) || (r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & (RF7_NAZGUL | RF7_UNIQUE2)))
+ /* Saving throw */
+ if (randint0(100 + r_ptr->level / 2) < caster_ptr->skill_sav)
+ {
+ msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
+ }
+ else
+ {
+ /* Confuse, stun, terrify */
+ switch (randint1(4))
+ {
+ case 1:
+ set_stun(caster_ptr, caster_ptr->stun + dam / 2);
+ break;
+ case 2:
+ set_confused(caster_ptr, caster_ptr->confused + dam / 2);
+ break;
+ default:
+ {
+ if (r_ptr->flags3 & RF3_NO_FEAR)
+ note = _("には効果がなかった。", " is unaffected.");
+ else
+ set_afraid(caster_ptr, caster_ptr->afraid + dam);
+ }
+ }
+ }
+ }
+ else
{
+ /* No obvious effect */
note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+ }
+ else
+ {
+ if (!common_saving_throw_charm(caster_ptr, dam, m_ptr))
+ {
+ note = _("があなたに隷属した。", " is in your thrall!");
+ set_pet(m_ptr);
}
else
{
- /* Heal fully */
- m_ptr->hp = m_ptr->maxhp;
-
- /* Attempt to clone. */
- if (multiply_monster(g_ptr->m_idx, TRUE, 0L))
+ switch (randint1(4))
{
- note = _("が分裂した!", " spawns!");
+ case 1:
+ do_stun = dam / 2;
+ break;
+ case 2:
+ do_conf = dam / 2;
+ break;
+ default:
+ do_fear = dam;
}
}
-
- /* No "real" damage */
- dam = 0;
-
- break;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Heal Monster (use "dam" as amount of healing) */
- case GF_STAR_HEAL:
+ /* Ice -- Cold + Cuts + Stun */
+ case GF_ICE:
+ {
+ if (seen) obvious = TRUE;
+ do_stun = (randint1(15) + 1) / (r + 1);
+ if (r_ptr->flagsr & RFR_IM_COLD)
{
- if (seen) obvious = TRUE;
+ note = _("にはかなり耐性がある!", " resists a lot.");
+ dam /= 9;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_IM_COLD);
+ }
+ else if (r_ptr->flags3 & (RF3_HURT_COLD))
+ {
+ note = _("はひどい痛手をうけた。", " is hit hard.");
+ dam *= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
+ }
+ break;
+ }
- /* Wake up */
- (void)set_monster_csleep(g_ptr->m_idx, 0);
- if (m_ptr->maxhp < m_ptr->max_maxhp)
+ /* Drain Life */
+ case GF_HYPODYNAMIA:
+ {
+ if (seen) obvious = TRUE;
+ if (!monster_living(m_ptr->r_idx))
+ {
+ if (is_original_ap_and_seen(m_ptr))
{
- if (seen_msg) msg_format(_("%^sの強さが戻った。", "%^s recovers %s vitality."), m_name, m_poss);
- m_ptr->maxhp = m_ptr->max_maxhp;
+ 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);
}
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ dam = 0;
+ }
+ else do_time = (dam + 7) / 8;
+
+ break;
+ }
- if (!dam)
+ /* Death Ray */
+ case GF_DEATH_RAY:
+ {
+ if (seen) obvious = TRUE;
+ if (!monster_living(m_ptr->r_idx))
+ {
+ if (is_original_ap_and_seen(m_ptr))
{
- /* Redraw (later) if needed */
- if (p_ptr->health_who == g_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == g_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
- break;
+ 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);
}
-
- /* Fall through */
+ note = _("には完全な耐性がある!", " is immune.");
+ obvious = FALSE;
+ dam = 0;
}
- case GF_OLD_HEAL:
+ else if (((r_ptr->flags1 & RF1_UNIQUE) &&
+ (randint1(888) != 666)) ||
+ (((r_ptr->level + randint1(20)) > randint1((caster_lev / 2) + randint1(10))) &&
+ randint1(100) != 66))
{
- if (seen) obvious = TRUE;
+ note = _("には耐性がある!", " resists!");
+ obvious = FALSE;
+ dam = 0;
+ }
- /* Wake up */
- (void)set_monster_csleep(g_ptr->m_idx, 0);
- if (MON_STUNNED(m_ptr))
- {
- if (seen_msg) msg_format(_("%^sは朦朧状態から立ち直った。", "%^s is no longer stunned."), m_name);
- (void)set_monster_stunned(g_ptr->m_idx, 0);
- }
- if (MON_CONFUSED(m_ptr))
- {
- if (seen_msg) msg_format(_("%^sは混乱から立ち直った。", "%^s is no longer confused."), m_name);
- (void)set_monster_confused(g_ptr->m_idx, 0);
- }
- if (MON_MONFEAR(m_ptr))
- {
- if (seen_msg) msg_format(_("%^sは勇気を取り戻した。", "%^s recovers %s courage."), m_name);
- (void)set_monster_monfear(g_ptr->m_idx, 0);
- }
+ break;
+ }
+
+ /* Polymorph monster (Use "dam" as "power") */
+ case GF_OLD_POLY:
+ {
+ if (seen) obvious = TRUE;
+ /* Attempt to polymorph (see below) */
+ do_poly = TRUE;
- /* Heal */
- if (m_ptr->hp < 30000) m_ptr->hp += dam;
+ /* Powerful monsters can resist */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->flags1 & RF1_QUESTOR) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ do_poly = FALSE;
+ obvious = FALSE;
+ }
- /* No overflow */
- if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
+ /* No "real" damage */
+ dam = 0;
- if (!who)
- {
- chg_virtue(p_ptr, V_VITALITY, 1);
+ break;
+ }
- if (r_ptr->flags1 & RF1_UNIQUE)
- chg_virtue(p_ptr, V_INDIVIDUALISM, 1);
- if (is_friendly(m_ptr))
- chg_virtue(p_ptr, V_HONOUR, 1);
- else if (!(r_ptr->flags3 & RF3_EVIL))
- {
- if (r_ptr->flags3 & RF3_GOOD)
- chg_virtue(p_ptr, V_COMPASSION, 2);
- else
- chg_virtue(p_ptr, V_COMPASSION, 1);
- }
+ /* Clone monsters (Ignore "dam") */
+ case GF_OLD_CLONE:
+ {
+ if (seen) obvious = TRUE;
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(p_ptr, V_NATURE, 1);
- }
+ if ((floor_ptr->inside_arena) || is_pet(m_ptr) || (r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & (RF7_NAZGUL | RF7_UNIQUE2)))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ }
+ else
+ {
+ /* Heal fully */
+ m_ptr->hp = m_ptr->maxhp;
- if (m_ptr->r_idx == MON_LEPER)
+ /* Attempt to clone. */
+ if (multiply_monster(g_ptr->m_idx, TRUE, 0L))
{
- heal_leper = TRUE;
- if (!who) chg_virtue(p_ptr, V_COMPASSION, 5);
+ note = _("が分裂した!", " spawns!");
}
+ }
- /* Redraw (later) if needed */
- if (p_ptr->health_who == g_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == g_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
+ /* No "real" damage */
+ dam = 0;
+
+ break;
+ }
- note = _("は体力を回復したようだ。", " looks healthier.");
- /* No "real" damage */
- dam = 0;
- break;
- }
+ /* Heal Monster (use "dam" as amount of healing) */
+ case GF_STAR_HEAL:
+ {
+ if (seen) obvious = TRUE;
+ /* Wake up */
+ (void)set_monster_csleep(caster_ptr, g_ptr->m_idx, 0);
- /* Speed Monster (Ignore "dam") */
- case GF_OLD_SPEED:
+ if (m_ptr->maxhp < m_ptr->max_maxhp)
{
- if (seen) obvious = TRUE;
+ if (seen_msg) msg_format(_("%^sの強さが戻った。", "%^s recovers %s vitality."), m_name, m_poss);
+ m_ptr->maxhp = m_ptr->max_maxhp;
+ }
- /* Speed up */
- if (set_monster_fast(g_ptr->m_idx, MON_FAST(m_ptr) + 100))
- {
- note = _("の動きが速くなった。", " starts moving faster.");
- }
+ if (!dam)
+ {
+ /* Redraw (later) if needed */
+ if (caster_ptr->health_who == g_ptr->m_idx) caster_ptr->redraw |= (PR_HEALTH);
+ if (caster_ptr->riding == g_ptr->m_idx) caster_ptr->redraw |= (PR_UHEALTH);
+ break;
+ }
- if (!who)
- {
- if (r_ptr->flags1 & RF1_UNIQUE)
- chg_virtue(p_ptr, V_INDIVIDUALISM, 1);
- if (is_friendly(m_ptr))
- chg_virtue(p_ptr, V_HONOUR, 1);
- }
+ /* Fall through */
+ }
+ case GF_OLD_HEAL:
+ {
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
+ /* Wake up */
+ (void)set_monster_csleep(caster_ptr, g_ptr->m_idx, 0);
+ if (MON_STUNNED(m_ptr))
+ {
+ if (seen_msg) msg_format(_("%^sは朦朧状態から立ち直った。", "%^s is no longer stunned."), m_name);
+ (void)set_monster_stunned(caster_ptr, g_ptr->m_idx, 0);
+ }
+ if (MON_CONFUSED(m_ptr))
+ {
+ if (seen_msg) msg_format(_("%^sは混乱から立ち直った。", "%^s is no longer confused."), m_name);
+ (void)set_monster_confused(caster_ptr, g_ptr->m_idx, 0);
+ }
+ if (MON_MONFEAR(m_ptr))
+ {
+ if (seen_msg) msg_format(_("%^sは勇気を取り戻した。", "%^s recovers %s courage."), m_name);
+ (void)set_monster_monfear(caster_ptr, g_ptr->m_idx, 0);
}
+ /* Heal */
+ if (m_ptr->hp < 30000) m_ptr->hp += dam;
- /* Slow Monster (Use "dam" as "power") */
- case GF_OLD_SLOW:
+ /* No overflow */
+ if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
+
+ if (!who)
{
- if (seen) obvious = TRUE;
+ chg_virtue(caster_ptr, V_VITALITY, 1);
- /* Powerful monsters can resist */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ chg_virtue(caster_ptr, V_INDIVIDUALISM, 1);
- /* Normal monsters slow down */
- else
+ if (is_friendly(m_ptr))
+ chg_virtue(caster_ptr, V_HONOUR, 1);
+ else if (!(r_ptr->flags3 & RF3_EVIL))
{
- if (set_monster_slow(g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
- {
- note = _("の動きが遅くなった。", " starts moving slower.");
- }
+ if (r_ptr->flags3 & RF3_GOOD)
+ chg_virtue(caster_ptr, V_COMPASSION, 2);
+ else
+ chg_virtue(caster_ptr, V_COMPASSION, 1);
}
- /* No "real" damage */
- dam = 0;
- break;
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(caster_ptr, V_NATURE, 1);
}
-
- /* Sleep (Use "dam" as "power") */
- case GF_OLD_SLEEP:
+ if (m_ptr->r_idx == MON_LEPER)
{
- if (seen) obvious = TRUE;
+ heal_leper = TRUE;
+ if (!who) chg_virtue(caster_ptr, V_COMPASSION, 5);
+ }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags3 & RF3_NO_SLEEP) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- /* Memorize a flag */
- if (r_ptr->flags3 & RF3_NO_SLEEP)
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
- }
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
- else
- {
- /* Go to sleep (much) later */
- note = _("は眠り込んでしまった!", " falls asleep!");
- do_sleep = 500;
- }
+ /* Redraw (later) if needed */
+ if (caster_ptr->health_who == g_ptr->m_idx) caster_ptr->redraw |= (PR_HEALTH);
+ if (caster_ptr->riding == g_ptr->m_idx) caster_ptr->redraw |= (PR_UHEALTH);
+
+ note = _("は体力を回復したようだ。", " looks healthier.");
+
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* No "real" damage */
- dam = 0;
- break;
- }
+ /* Speed Monster (Ignore "dam") */
+ case GF_OLD_SPEED:
+ {
+ if (seen) obvious = TRUE;
- /* Sleep (Use "dam" as "power") */
- case GF_STASIS_EVIL:
+ /* Speed up */
+ if (set_monster_fast(caster_ptr, g_ptr->m_idx, MON_FAST(m_ptr) + 100))
{
- if (seen) obvious = TRUE;
+ note = _("の動きが速くなった。", " starts moving faster.");
+ }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- !(r_ptr->flags3 & RF3_EVIL) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
- else
- {
- /* Go to sleep (much) later */
- note = _("は動けなくなった!", " is suspended!");
- do_sleep = 500;
- }
-
- /* No "real" damage */
- dam = 0;
- break;
+ if (!who)
+ {
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ chg_virtue(caster_ptr, V_INDIVIDUALISM, 1);
+ if (is_friendly(m_ptr))
+ chg_virtue(caster_ptr, V_HONOUR, 1);
}
- /* Sleep (Use "dam" as "power") */
- case GF_STASIS:
- {
- if (seen) obvious = TRUE;
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
- else
- {
- /* Go to sleep (much) later */
- note = _("は動けなくなった!", " is suspended!");
- do_sleep = 500;
- }
- /* No "real" damage */
- dam = 0;
- break;
- }
+ /* Slow Monster (Use "dam" as "power") */
+ case GF_OLD_SLOW:
+ {
+ if (seen) obvious = TRUE;
- /* Charm monster */
- case GF_CHARM:
+ /* Powerful monsters can resist */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- int vir;
- vir = virtue_number(p_ptr, V_HARMONY);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
- }
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
- vir = virtue_number(p_ptr, V_INDIVIDUALISM);
- if (vir)
+ /* Normal monsters slow down */
+ else
+ {
+ if (set_monster_slow(caster_ptr, g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
- dam -= p_ptr->virtues[vir-1]/20;
+ note = _("の動きが遅くなった。", " starts moving slower.");
}
+ }
- if (seen) obvious = TRUE;
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Attempt a saving throw */
- if (common_saving_throw_charm(p_ptr, dam, m_ptr))
- {
- /* Resist */
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
+ /* Sleep (Use "dam" as "power") */
+ case GF_OLD_SLEEP:
+ {
+ if (seen) obvious = TRUE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else if (p_ptr->cursed & TRC_AGGRAVATE)
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->flags3 & RF3_NO_SLEEP) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ {
+ /* Memorize a flag */
+ if (r_ptr->flags3 & RF3_NO_SLEEP)
{
- note = _("はあなたに敵意を抱いている!", " hates you too much!");
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
}
- else
- {
- note = _("は突然友好的になったようだ!", " suddenly seems friendly!");
- set_pet(m_ptr);
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+ else
+ {
+ /* Go to sleep (much) later */
+ note = _("は眠り込んでしまった!", " falls asleep!");
+ do_sleep = 500;
+ }
- chg_virtue(p_ptr, V_INDIVIDUALISM, -1);
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(p_ptr, V_NATURE, 1);
- }
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* No "real" damage */
- dam = 0;
- break;
- }
- /* Control undead */
- case GF_CONTROL_UNDEAD:
+ /* Sleep (Use "dam" as "power") */
+ case GF_STASIS_EVIL:
+ {
+ if (seen) obvious = TRUE;
+
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ !(r_ptr->flags3 & RF3_EVIL) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- int vir;
- if (seen) obvious = TRUE;
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+ else
+ {
+ /* Go to sleep (much) later */
+ note = _("は動けなくなった!", " is suspended!");
+ do_sleep = 500;
+ }
- vir = virtue_number(p_ptr, V_UNLIFE);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
- }
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- vir = virtue_number(p_ptr, V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
+ /* Sleep (Use "dam" as "power") */
+ case GF_STASIS:
+ {
+ if (seen) obvious = TRUE;
- /* Attempt a saving throw */
- if (common_saving_throw_control(p_ptr, dam, m_ptr) ||
- !(r_ptr->flags3 & RF3_UNDEAD))
- {
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else if (p_ptr->cursed & TRC_AGGRAVATE)
- {
- note = _("はあなたに敵意を抱いている!", " hates you too much!");
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else
- {
- note = _("は既にあなたの奴隷だ!", " is in your thrall!");
- set_pet(m_ptr);
- }
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+ else
+ {
+ /* Go to sleep (much) later */
+ note = _("は動けなくなった!", " is suspended!");
+ do_sleep = 500;
+ }
- /* No "real" damage */
- dam = 0;
- break;
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
+
+ /* Charm monster */
+ case GF_CHARM:
+ {
+ int vir;
+ vir = virtue_number(caster_ptr, V_HARMONY);
+ if (vir)
+ {
+ dam += caster_ptr->virtues[vir - 1] / 10;
}
- /* Control demon */
- case GF_CONTROL_DEMON:
+ vir = virtue_number(caster_ptr, V_INDIVIDUALISM);
+ if (vir)
{
- int vir;
- if (seen) obvious = TRUE;
+ dam -= caster_ptr->virtues[vir - 1] / 20;
+ }
- vir = virtue_number(p_ptr, V_UNLIFE);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
- }
+ if (seen) obvious = TRUE;
- vir = virtue_number(p_ptr, V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
+ /* Attempt a saving throw */
+ if (common_saving_throw_charm(caster_ptr, dam, m_ptr))
+ {
- /* Attempt a saving throw */
- if (common_saving_throw_control(p_ptr, dam, m_ptr) ||
- !(r_ptr->flags3 & RF3_DEMON))
- {
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else if (p_ptr->cursed & TRC_AGGRAVATE)
- {
- note = _("はあなたに敵意を抱いている!", " hates you too much!");
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else
- {
- note = _("は既にあなたの奴隷だ!", " is in your thrall!");
- set_pet(m_ptr);
- }
+ /* Resist */
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
- /* No "real" damage */
- dam = 0;
- break;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
-
- /* Tame animal */
- case GF_CONTROL_ANIMAL:
+ else if (caster_ptr->cursed & TRC_AGGRAVATE)
{
- int vir;
- if (seen) obvious = TRUE;
+ note = _("はあなたに敵意を抱いている!", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else
+ {
+ note = _("は突然友好的になったようだ!", " suddenly seems friendly!");
+ set_pet(m_ptr);
- vir = virtue_number(p_ptr, V_NATURE);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
- }
+ chg_virtue(caster_ptr, V_INDIVIDUALISM, -1);
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(caster_ptr, V_NATURE, 1);
+ }
- vir = virtue_number(p_ptr, V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Attempt a saving throw */
- if (common_saving_throw_control(p_ptr, dam, m_ptr) ||
- !(r_ptr->flags3 & RF3_ANIMAL))
- {
- /* Resist */
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else if (p_ptr->cursed & TRC_AGGRAVATE)
- {
- note = _("はあなたに敵意を抱いている!", " hates you too much!");
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else
- {
- note = _("はなついた。", " is tamed!");
- set_pet(m_ptr);
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(p_ptr, V_NATURE, 1);
- }
+ /* Control undead */
+ case GF_CONTROL_UNDEAD:
+ {
+ int vir;
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
+ vir = virtue_number(caster_ptr, V_UNLIFE);
+ if (vir)
+ {
+ dam += caster_ptr->virtues[vir - 1] / 10;
}
- /* Tame animal */
- case GF_CHARM_LIVING:
+ vir = virtue_number(caster_ptr, V_INDIVIDUALISM);
+ if (vir)
{
- int vir;
-
- vir = virtue_number(p_ptr, V_UNLIFE);
- if (seen) obvious = TRUE;
-
- vir = virtue_number(p_ptr, V_UNLIFE);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/10;
- }
+ dam -= caster_ptr->virtues[vir - 1] / 20;
+ }
- vir = virtue_number(p_ptr, V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
+ /* Attempt a saving throw */
+ if (common_saving_throw_control(caster_ptr, dam, m_ptr) ||
+ !(r_ptr->flags3 & RF3_UNDEAD))
+ {
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else if (caster_ptr->cursed & TRC_AGGRAVATE)
+ {
+ note = _("はあなたに敵意を抱いている!", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else
+ {
+ note = _("は既にあなたの奴隷だ!", " is in your thrall!");
+ set_pet(m_ptr);
+ }
- msg_format(_("%sを見つめた。", "You stare into %s."), m_name);
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Attempt a saving throw */
- if (common_saving_throw_charm(p_ptr, dam, m_ptr) ||
- !monster_living(m_ptr->r_idx))
- {
- /* Resist */
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else if (p_ptr->cursed & TRC_AGGRAVATE)
- {
- note = _("はあなたに敵意を抱いている!", " hates you too much!");
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else
- {
- note = _("を支配した。", " is tamed!");
- set_pet(m_ptr);
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(p_ptr, V_NATURE, 1);
- }
+ /* Control demon */
+ case GF_CONTROL_DEMON:
+ {
+ int vir;
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
+ vir = virtue_number(caster_ptr, V_UNLIFE);
+ if (vir)
+ {
+ dam += caster_ptr->virtues[vir - 1] / 10;
}
- /* Confusion (Use "dam" as "power") */
- case GF_OLD_CONF:
+ vir = virtue_number(caster_ptr, V_INDIVIDUALISM);
+ if (vir)
{
- if (seen) obvious = TRUE;
+ dam -= caster_ptr->virtues[vir - 1] / 20;
+ }
- /* Get confused later */
- do_conf = damroll(3, (dam / 2)) + 1;
+ /* Attempt a saving throw */
+ if (common_saving_throw_control(caster_ptr, dam, m_ptr) ||
+ !(r_ptr->flags3 & RF3_DEMON))
+ {
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else if (caster_ptr->cursed & TRC_AGGRAVATE)
+ {
+ note = _("はあなたに敵意を抱いている!", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else
+ {
+ note = _("は既にあなたの奴隷だ!", " is in your thrall!");
+ set_pet(m_ptr);
+ }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (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 (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
- }
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Resist */
- do_conf = 0;
+ /* Tame animal */
+ case GF_CONTROL_ANIMAL:
+ {
+ int vir;
+ if (seen) obvious = TRUE;
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
+ vir = virtue_number(caster_ptr, V_NATURE);
+ if (vir)
+ {
+ dam += caster_ptr->virtues[vir - 1] / 10;
+ }
- /* No "real" damage */
- dam = 0;
- break;
+ vir = virtue_number(caster_ptr, V_INDIVIDUALISM);
+ if (vir)
+ {
+ dam -= caster_ptr->virtues[vir - 1] / 20;
}
- case GF_STUN:
+ /* Attempt a saving throw */
+ if (common_saving_throw_control(caster_ptr, dam, m_ptr) ||
+ !(r_ptr->flags3 & RF3_ANIMAL))
{
- if (seen) obvious = TRUE;
+ /* Resist */
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else if (caster_ptr->cursed & TRC_AGGRAVATE)
+ {
+ note = _("はあなたに敵意を抱いている!", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else
+ {
+ note = _("はなついた。", " is tamed!");
+ set_pet(m_ptr);
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(caster_ptr, V_NATURE, 1);
+ }
- do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- /* Resist */
- do_stun = 0;
+ /* Tame animal */
+ case GF_CHARM_LIVING:
+ {
+ int vir;
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
+ vir = virtue_number(caster_ptr, V_UNLIFE);
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
+ vir = virtue_number(caster_ptr, V_UNLIFE);
+ if (vir)
+ {
+ dam -= caster_ptr->virtues[vir - 1] / 10;
}
- /* Lite, but only hurts susceptible creatures */
- case GF_LITE_WEAK:
+ vir = virtue_number(caster_ptr, V_INDIVIDUALISM);
+ if (vir)
{
- if (!dam)
- {
- skipped = TRUE;
- break;
- }
- /* Hurt by light */
- if (r_ptr->flags3 & (RF3_HURT_LITE))
- {
- /* Obvious effect */
- if (seen) obvious = TRUE;
+ dam -= caster_ptr->virtues[vir - 1] / 20;
+ }
- /* Memorize the effects */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ msg_format(_("%sを見つめた。", "You stare into %s."), m_name);
- /* Special effect */
- note = _("は光に身をすくめた!", " cringes from the light!");
- note_dies = _("は光を受けてしぼんでしまった!", " shrivels away in the light!");
- }
+ /* Attempt a saving throw */
+ if (common_saving_throw_charm(caster_ptr, dam, m_ptr) ||
+ !monster_living(m_ptr->r_idx))
+ {
+ /* Resist */
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else if (caster_ptr->cursed & TRC_AGGRAVATE)
+ {
+ note = _("はあなたに敵意を抱いている!", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else
+ {
+ note = _("を支配した。", " is tamed!");
+ set_pet(m_ptr);
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(caster_ptr, V_NATURE, 1);
+ }
- /* Normally no damage */
- else
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
+
+ /* Confusion (Use "dam" as "power") */
+ case GF_OLD_CONF:
+ {
+ if (seen) obvious = TRUE;
+
+ /* Get confused later */
+ do_conf = damroll(3, (dam / 2)) + 1;
+
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (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))
{
- /* No damage */
- dam = 0;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
- break;
+ /* Resist */
+ do_conf = 0;
+
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
+ case GF_STUN:
+ {
+ if (seen) obvious = TRUE;
- /* Lite -- opposite of Dark */
- case GF_LITE:
+ do_stun = damroll((caster_lev / 20) + 3, (dam)) + 1;
+
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- if (seen) obvious = TRUE;
+ /* Resist */
+ do_stun = 0;
- if (r_ptr->flagsr & RFR_RES_LITE)
- {
- note = _("には耐性がある!", " resists!");
- 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 (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
- note = _("は光に身をすくめた!", " cringes from the light!");
- note_dies = _("は光を受けてしぼんでしまった!", " shrivels away in the light!");
- dam *= 2;
- }
- break;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Dark -- opposite of Lite */
- case GF_DARK:
+ /* Lite, but only hurts susceptible creatures */
+ case GF_LITE_WEAK:
+ {
+ if (!dam)
{
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_DARK)
- {
- note = _("には耐性がある!", " resists!");
- dam *= 2; dam /= (randint1(6)+6);
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_DARK);
- }
+ skipped = TRUE;
break;
}
+ /* Hurt by light */
+ if (r_ptr->flags3 & (RF3_HURT_LITE))
+ {
+ /* Obvious effect */
+ if (seen) obvious = TRUE;
+ /* Memorize the effects */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
- /* Stone to Mud */
- case GF_KILL_WALL:
+ /* Special effect */
+ note = _("は光に身をすくめた!", " cringes from the light!");
+ note_dies = _("は光を受けてしぼんでしまった!", " shrivels away in the light!");
+ }
+
+ /* Normally no damage */
+ else
{
- /* Hurt by rock remover */
- if (r_ptr->flags3 & (RF3_HURT_ROCK))
- {
- /* Notice effect */
- if (seen) obvious = TRUE;
+ /* No damage */
+ dam = 0;
+ }
- /* Memorize the effects */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
+ break;
+ }
- /* Cute little message */
- note = _("の皮膚がただれた!", " loses some skin!");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- }
- /* Usually, ignore the effects */
- else
- {
- /* No damage */
- dam = 0;
- }
- break;
+ /* Lite -- opposite of Dark */
+ case GF_LITE:
+ {
+ if (seen) obvious = TRUE;
+
+ if (r_ptr->flagsr & RFR_RES_LITE)
+ {
+ note = _("には耐性がある!", " resists!");
+ 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 (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ note = _("は光に身をすくめた!", " cringes from the light!");
+ note_dies = _("は光を受けてしぼんでしまった!", " shrivels away in the light!");
+ dam *= 2;
}
+ break;
+ }
- /* Teleport undead (Use "dam" as "power") */
- case GF_AWAY_UNDEAD:
- {
- /* Only affect undead */
- if (r_ptr->flags3 & (RF3_UNDEAD))
- {
- bool resists_tele = FALSE;
+ /* Dark -- opposite of Lite */
+ case GF_DARK:
+ {
+ if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_TELE)
- {
- if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には効果がなかった。", " is unaffected.");
- resists_tele = TRUE;
- }
- else if (r_ptr->level > randint1(100))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には耐性がある!", " resists!");
- resists_tele = TRUE;
- }
- }
+ if (r_ptr->flagsr & RFR_RES_DARK)
+ {
+ note = _("には耐性がある!", " resists!");
+ dam *= 2; dam /= (randint1(6) + 6);
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_DARK);
+ }
+ break;
+ }
- if (!resists_tele)
- {
- if (seen) obvious = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
- do_dist = dam;
- }
- }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
- }
+ /* Stone to Mud */
+ case GF_KILL_WALL:
+ {
+ /* Hurt by rock remover */
+ if (r_ptr->flags3 & (RF3_HURT_ROCK))
+ {
+ /* Notice effect */
+ if (seen) obvious = TRUE;
+
+ /* Memorize the effects */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
- /* No "real" damage */
+ /* Cute little message */
+ note = _("の皮膚がただれた!", " loses some skin!");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
+ }
+
+ /* Usually, ignore the effects */
+ else
+ {
+ /* No damage */
dam = 0;
- break;
}
+ break;
+ }
+
- /* Teleport evil (Use "dam" as "power") */
- case GF_AWAY_EVIL:
+ /* Teleport undead (Use "dam" as "power") */
+ case GF_AWAY_UNDEAD:
+ {
+ /* Only affect undead */
+ if (r_ptr->flags3 & (RF3_UNDEAD))
{
- /* Only affect evil */
- if (r_ptr->flags3 & (RF3_EVIL))
- {
- bool resists_tele = FALSE;
+ bool resists_tele = FALSE;
- if (r_ptr->flagsr & RFR_RES_TELE)
+ if (r_ptr->flagsr & RFR_RES_TELE)
+ {
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
{
- if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には効果がなかった。", " is unaffected.");
- resists_tele = TRUE;
- }
- else if (r_ptr->level > randint1(100))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には耐性がある!", " resists!");
- resists_tele = TRUE;
- }
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
+ note = _("には効果がなかった。", " is unaffected.");
+ resists_tele = TRUE;
}
-
- if (!resists_tele)
+ else if (r_ptr->level > randint1(100))
{
- if (seen) obvious = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
- do_dist = dam;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
+ note = _("には耐性がある!", " resists!");
+ resists_tele = TRUE;
}
}
- /* Others ignore */
- else
+ if (!resists_tele)
{
- /* Irrelevant */
- skipped = TRUE;
+ if (seen) obvious = TRUE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ do_dist = dam;
}
+ }
- /* No "real" damage */
- dam = 0;
- break;
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Teleport monster (Use "dam" as "power") */
- case GF_AWAY_ALL:
+
+ /* Teleport evil (Use "dam" as "power") */
+ case GF_AWAY_EVIL:
+ {
+ /* Only affect evil */
+ if (r_ptr->flags3 & (RF3_EVIL))
{
bool resists_tele = FALSE;
+
if (r_ptr->flagsr & RFR_RES_TELE)
{
if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
if (!resists_tele)
{
if (seen) obvious = TRUE;
-
- /* Prepare to teleport */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
do_dist = dam;
}
-
- /* No "real" damage */
- dam = 0;
- break;
}
-
- /* Turn undead (Use "dam" as "power") */
- case GF_TURN_UNDEAD:
+ /* Others ignore */
+ else
{
- /* Only affect undead */
- if (r_ptr->flags3 & (RF3_UNDEAD))
- {
- if (seen) obvious = TRUE;
+ /* Irrelevant */
+ skipped = TRUE;
+ }
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Apply some fear */
- do_fear = damroll(3, (dam / 2)) + 1;
- /* Attempt a saving throw */
- if (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
- {
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- do_fear = 0;
- }
+ /* Teleport monster (Use "dam" as "power") */
+ case GF_AWAY_ALL:
+ {
+ bool resists_tele = FALSE;
+ if (r_ptr->flagsr & RFR_RES_TELE)
+ {
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) || (r_ptr->flagsr & RFR_RES_ALL))
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
+ note = _("には効果がなかった。", " is unaffected.");
+ resists_tele = TRUE;
}
-
- /* Others ignore */
- else
+ else if (r_ptr->level > randint1(100))
{
- /* Irrelevant */
- skipped = TRUE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
+ note = _("には耐性がある!", " resists!");
+ resists_tele = TRUE;
}
+ }
- /* No "real" damage */
- dam = 0;
- break;
+ if (!resists_tele)
+ {
+ if (seen) obvious = TRUE;
+
+ /* Prepare to teleport */
+ do_dist = dam;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* Turn evil (Use "dam" as "power") */
- case GF_TURN_EVIL:
- {
- /* Only affect evil */
- if (r_ptr->flags3 & (RF3_EVIL))
- {
- if (seen) obvious = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+ /* Turn undead (Use "dam" as "power") */
+ case GF_TURN_UNDEAD:
+ {
+ /* Only affect undead */
+ if (r_ptr->flags3 & (RF3_UNDEAD))
+ {
+ if (seen) obvious = TRUE;
- /* Apply some fear */
- do_fear = damroll(3, (dam / 2)) + 1;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
- /* Attempt a saving throw */
- if (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
- {
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- do_fear = 0;
- }
- }
+ /* Apply some fear */
+ do_fear = damroll(3, (dam / 2)) + 1;
- /* Others ignore */
- else
+ /* Attempt a saving throw */
+ if (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
{
- /* Irrelevant */
- skipped = TRUE;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ do_fear = 0;
}
+ }
- /* No "real" damage */
- dam = 0;
- break;
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
+
- /* Turn monster (Use "dam" as "power") */
- case GF_TURN_ALL:
+ /* Turn evil (Use "dam" as "power") */
+ case GF_TURN_EVIL:
+ {
+ /* Only affect evil */
+ if (r_ptr->flags3 & (RF3_EVIL))
{
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;
/* Attempt a saving throw */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (r_ptr->flags3 & (RF3_NO_FEAR)) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ if (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
{
/* No obvious effect */
note = _("には効果がなかった。", " is unaffected.");
obvious = FALSE;
do_fear = 0;
}
+ }
- /* No "real" damage */
- dam = 0;
- break;
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
}
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
+
+
+ /* Turn monster (Use "dam" as "power") */
+ case GF_TURN_ALL:
+ {
+ if (seen) obvious = TRUE;
- /* Dispel undead */
- case GF_DISP_UNDEAD:
+ /* Apply some fear */
+ do_fear = damroll(3, (dam / 2)) + 1;
+
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (r_ptr->flags3 & (RF3_NO_FEAR)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- /* Only affect undead */
- if (r_ptr->flags3 & (RF3_UNDEAD))
- {
- if (seen) obvious = TRUE;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ do_fear = 0;
+ }
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
+ /* Dispel undead */
+ case GF_DISP_UNDEAD:
+ {
+ /* Only affect undead */
+ if (r_ptr->flags3 & (RF3_UNDEAD))
+ {
+ if (seen) obvious = TRUE;
- /* No damage */
- dam = 0;
- }
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
- break;
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
}
-
- /* Dispel evil */
- case GF_DISP_EVIL:
+ /* Others ignore */
+ else
{
- /* Only affect evil */
- if (r_ptr->flags3 & (RF3_EVIL))
- {
- if (seen) obvious = TRUE;
+ /* Irrelevant */
+ skipped = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+ /* No damage */
+ dam = 0;
+ }
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- }
+ break;
+ }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
- /* No damage */
- dam = 0;
- }
+ /* Dispel evil */
+ case GF_DISP_EVIL:
+ {
+ /* Only affect evil */
+ if (r_ptr->flags3 & (RF3_EVIL))
+ {
+ if (seen) obvious = TRUE;
- break;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
}
- /* Dispel good */
- case GF_DISP_GOOD:
+ /* Others ignore */
+ else
{
- /* Only affect good */
- if (r_ptr->flags3 & (RF3_GOOD))
- {
- if (seen) obvious = TRUE;
+ /* Irrelevant */
+ skipped = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
+ /* No damage */
+ dam = 0;
+ }
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- }
+ break;
+ }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
+ /* Dispel good */
+ case GF_DISP_GOOD:
+ {
+ /* Only affect good */
+ if (r_ptr->flags3 & (RF3_GOOD))
+ {
+ if (seen) obvious = TRUE;
- /* No damage */
- dam = 0;
- }
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
- break;
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
}
- /* Dispel living */
- case GF_DISP_LIVING:
+ /* Others ignore */
+ else
{
- /* Only affect non-undead */
- if (monster_living(m_ptr->r_idx))
- {
- if (seen) obvious = TRUE;
+ /* Irrelevant */
+ skipped = TRUE;
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- }
+ /* No damage */
+ dam = 0;
+ }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
+ break;
+ }
- /* No damage */
- dam = 0;
- }
+ /* Dispel living */
+ case GF_DISP_LIVING:
+ {
+ /* Only affect non-undead */
+ if (monster_living(m_ptr->r_idx))
+ {
+ if (seen) obvious = TRUE;
- break;
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
}
- /* Dispel demons */
- case GF_DISP_DEMON:
+ /* Others ignore */
+ else
{
- /* Only affect demons */
- if (r_ptr->flags3 & (RF3_DEMON))
- {
- if (seen) obvious = TRUE;
+ /* Irrelevant */
+ skipped = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
+ /* No damage */
+ dam = 0;
+ }
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- }
+ break;
+ }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
+ /* Dispel demons */
+ case GF_DISP_DEMON:
+ {
+ /* Only affect demons */
+ if (r_ptr->flags3 & (RF3_DEMON))
+ {
+ if (seen) obvious = TRUE;
- /* No damage */
- dam = 0;
- }
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
- break;
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
}
- /* Dispel monster */
- case GF_DISP_ALL:
+ /* Others ignore */
+ else
{
- if (seen) obvious = TRUE;
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた!", " dissolves!");
- break;
+ /* Irrelevant */
+ skipped = TRUE;
+
+ /* No damage */
+ dam = 0;
}
- /* Drain mana */
- case GF_DRAIN_MANA:
+ break;
+ }
+
+ /* Dispel monster */
+ case GF_DISP_ALL:
+ {
+ if (seen) obvious = TRUE;
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた!", " dissolves!");
+ break;
+ }
+
+ /* Drain mana */
+ case GF_DRAIN_MANA:
+ {
+ if (seen) obvious = TRUE;
+ if ((r_ptr->flags4 & ~(RF4_NOMAGIC_MASK)) || (r_ptr->a_ability_flags1 & ~(RF5_NOMAGIC_MASK)) || (r_ptr->a_ability_flags2 & ~(RF6_NOMAGIC_MASK)))
{
- if (seen) obvious = TRUE;
- if ((r_ptr->flags4 & ~(RF4_NOMAGIC_MASK)) || (r_ptr->a_ability_flags1 & ~(RF5_NOMAGIC_MASK)) || (r_ptr->a_ability_flags2 & ~(RF6_NOMAGIC_MASK)))
+ if (who > 0)
{
- if (who > 0)
+ /* Heal the monster */
+ if (m_caster_ptr->hp < m_caster_ptr->maxhp)
{
- /* Heal the monster */
- if (caster_ptr->hp < caster_ptr->maxhp)
- {
- /* Heal */
- caster_ptr->hp += dam;
- if (caster_ptr->hp > caster_ptr->maxhp) caster_ptr->hp = caster_ptr->maxhp;
+ /* Heal */
+ m_caster_ptr->hp += dam;
+ if (m_caster_ptr->hp > m_caster_ptr->maxhp) m_caster_ptr->hp = m_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);
+ /* Redraw (later) if needed */
+ if (caster_ptr->health_who == who) caster_ptr->redraw |= (PR_HEALTH);
+ if (caster_ptr->riding == who) caster_ptr->redraw |= (PR_UHEALTH);
- /* Special message */
- if (see_s_msg)
- {
- monster_desc(killer, caster_ptr, 0);
- msg_format(_("%^sは気分が良さそうだ。", "%^s appears healthier."), killer);
- }
+ /* Special message */
+ if (see_s_msg)
+ {
+ monster_desc(killer, m_caster_ptr, 0);
+ msg_format(_("%^sは気分が良さそうだ。", "%^s appears healthier."), killer);
}
}
- else
- {
- msg_format(_("%sから精神エネルギーを吸いとった。", "You draw psychic energy from %s."), m_name);
- (void)hp_player(p_ptr, dam);
- }
}
else
{
- if (see_s_msg) msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
+ msg_format(_("%sから精神エネルギーを吸いとった。", "You draw psychic energy from %s."), m_name);
+ (void)hp_player(caster_ptr, dam);
}
- dam = 0;
- break;
}
+ else
+ {
+ if (see_s_msg) msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
+ }
+ dam = 0;
+ break;
+ }
- /* Mind blast */
- case GF_MIND_BLAST:
+ /* Mind blast */
+ case GF_MIND_BLAST:
+ {
+ if (seen) obvious = TRUE;
+ if (!who) msg_format(_("%sをじっと睨んだ。", "You gaze intently at %s."), m_name);
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->flags3 & RF3_NO_CONF) ||
+ (r_ptr->level > randint1((caster_lev - 10) < 1 ? 1 : (caster_lev - 10)) + 10))
{
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sをじっと睨んだ。", "You gaze intently at %s."), m_name);
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags3 & RF3_NO_CONF) ||
- (r_ptr->level > randint1((caster_lev - 10) < 1 ? 1 : (caster_lev - 10)) + 10))
- {
- /* Memorize a flag */
- if (r_ptr->flags3 & (RF3_NO_CONF))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
- }
- note = _("には効果がなかった。", " is unaffected.");
- 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);
- note = _("には完全な耐性がある!", " is immune.");
- dam = 0;
- }
- else if (r_ptr->flags2 & RF2_WEIRD_MIND)
+ /* Memorize a flag */
+ if (r_ptr->flags3 & (RF3_NO_CONF))
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_WEIRD_MIND);
- note = _("には耐性がある。", " resists.");
- dam /= 3;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
- else
- {
- note = _("は精神攻撃を食らった。", " is blasted by psionic energy.");
- note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
+ note = _("には効果がなかった。", " is unaffected.");
+ 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);
+ note = _("には完全な耐性がある!", " is immune.");
+ 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);
+ note = _("には耐性がある。", " resists.");
+ dam /= 3;
+ }
+ else
+ {
+ note = _("は精神攻撃を食らった。", " is blasted by psionic energy.");
+ note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
- if (who > 0) do_conf = randint0(4) + 4;
- else do_conf = randint0(8) + 8;
- }
- break;
+ if (who > 0) do_conf = randint0(4) + 4;
+ else do_conf = randint0(8) + 8;
}
+ break;
+ }
- /* Brain smash */
- case GF_BRAIN_SMASH:
- {
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sをじっと睨んだ。", "You gaze intently at %s."), m_name);
+ /* Brain smash */
+ case GF_BRAIN_SMASH:
+ {
+ if (seen) obvious = TRUE;
+ if (!who) msg_format(_("%sをじっと睨んだ。", "You gaze intently at %s."), m_name);
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags3 & RF3_NO_CONF) ||
- (r_ptr->level > randint1((caster_lev - 10) < 1 ? 1 : (caster_lev - 10)) + 10))
- {
- /* Memorize a flag */
- if (r_ptr->flags3 & (RF3_NO_CONF))
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
- }
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- else if (r_ptr->flags2 & RF2_EMPTY_MIND)
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->flags3 & RF3_NO_CONF) ||
+ (r_ptr->level > randint1((caster_lev - 10) < 1 ? 1 : (caster_lev - 10)) + 10))
+ {
+ /* Memorize a flag */
+ if (r_ptr->flags3 & (RF3_NO_CONF))
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
- note = _("には完全な耐性がある!", " is immune.");
- dam = 0;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
- else if (r_ptr->flags2 & RF2_WEIRD_MIND)
+ note = _("には効果がなかった。", " is unaffected.");
+ 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);
+ note = _("には完全な耐性がある!", " is immune.");
+ 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);
+ note = _("には耐性がある!", " resists!");
+ dam /= 3;
+ }
+ else
+ {
+ note = _("は精神攻撃を食らった。", " is blasted by psionic energy.");
+ note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
+
+ if (who > 0)
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_WEIRD_MIND);
- note = _("には耐性がある!", " resists!");
- dam /= 3;
+ do_conf = randint0(4) + 4;
+ do_stun = randint0(4) + 4;
}
else
{
- note = _("は精神攻撃を食らった。", " is blasted by psionic energy.");
- note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
-
- 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(g_ptr->m_idx, MON_SLOW(m_ptr) + 10);
+ do_conf = randint0(8) + 8;
+ do_stun = randint0(8) + 8;
}
- break;
+ (void)set_monster_slow(caster_ptr, g_ptr->m_idx, MON_SLOW(m_ptr) + 10);
}
+ break;
+ }
- /* CAUSE_1 */
- case GF_CAUSE_1:
+ /* CAUSE_1 */
+ case GF_CAUSE_1:
+ {
+ if (seen) obvious = TRUE;
+ if (!who) msg_format(_("%sを指差して呪いをかけた。", "You point at %s and curse."), m_name);
+ /* Attempt a saving throw */
+ if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
{
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sを指差して呪いをかけた。", "You point at %s and curse."), m_name);
- /* Attempt a saving throw */
- if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
}
+ break;
+ }
- /* CAUSE_2 */
- case GF_CAUSE_2:
+ /* CAUSE_2 */
+ case GF_CAUSE_2:
+ {
+ if (seen) obvious = TRUE;
+ if (!who) msg_format(_("%sを指差して恐ろしげに呪いをかけた。", "You point at %s and curse horribly."), m_name);
+ /* Attempt a saving throw */
+ if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
{
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sを指差して恐ろしげに呪いをかけた。", "You point at %s and curse horribly."), m_name);
- /* Attempt a saving throw */
- if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
}
+ break;
+ }
- /* CAUSE_3 */
- case GF_CAUSE_3:
+ /* CAUSE_3 */
+ case GF_CAUSE_3:
+ {
+ if (seen) obvious = TRUE;
+ if (!who) msg_format(_("%sを指差し、恐ろしげに呪文を唱えた!", "You point at %s, incanting terribly!"), m_name);
+ /* Attempt a saving throw */
+ if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
{
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sを指差し、恐ろしげに呪文を唱えた!", "You point at %s, incanting terribly!"), m_name);
- /* Attempt a saving throw */
- if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
}
+ break;
+ }
- /* CAUSE_4 */
- case GF_CAUSE_4:
+ /* CAUSE_4 */
+ case GF_CAUSE_4:
+ {
+ if (seen) obvious = TRUE;
+ if (!who)
+ msg_format(_("%sの秘孔を突いて、「お前は既に死んでいる」と叫んだ。",
+ "You point at %s, screaming the word, 'DIE!'."), m_name);
+ /* Attempt a saving throw */
+ if ((randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35)) && ((who <= 0) || (m_caster_ptr->r_idx != MON_KENSHIROU)))
{
- if (seen) obvious = TRUE;
- if (!who)
- msg_format(_("%sの秘孔を突いて、「お前は既に死んでいる」と叫んだ。",
- "You point at %s, screaming the word, 'DIE!'."), m_name);
- /* Attempt a saving throw */
- if ((randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35)) && ((who <= 0) || (caster_ptr->r_idx != MON_KENSHIROU)))
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
}
+ break;
+ }
- /* HAND_DOOM */
- case GF_HAND_DOOM:
+ /* HAND_DOOM */
+ case GF_HAND_DOOM:
+ {
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags1 & RF1_UNIQUE)
{
- if (seen) obvious = TRUE;
- if (r_ptr->flags1 & RF1_UNIQUE)
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
+ }
+ else
+ {
+ if ((who > 0) ? ((caster_lev + randint1(dam)) > (r_ptr->level + 10 + randint1(20))) :
+ (((caster_lev / 2) + randint1(dam)) > (r_ptr->level + randint1(200))))
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
+ dam = ((40 + randint1(20)) * m_ptr->hp) / 100;
+
+ if (m_ptr->hp < dam) dam = m_ptr->hp - 1;
}
else
{
- 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
- {
- note = _("は耐性を持っている!", "resists!");
- dam = 0;
- }
+ note = _("は耐性を持っている!", "resists!");
+ dam = 0;
}
- break;
}
+ break;
+ }
- /* Capture monster */
- case GF_CAPTURE:
+ /* Capture monster */
+ case GF_CAPTURE:
+ {
+ int nokori_hp;
+ if ((floor_ptr->inside_quest && (quest[floor_ptr->inside_quest].type == QUEST_TYPE_KILL_ALL) && !is_pet(m_ptr)) ||
+ (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)
{
- 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_NAZGUL)) || (r_ptr->flags7 & (RF7_UNIQUE2)) || (r_ptr->flags1 & RF1_QUESTOR) || m_ptr->parent_m_idx)
- {
- msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
- skipped = TRUE;
- break;
- }
+ msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
+ skipped = TRUE;
+ break;
+ }
- if (is_pet(m_ptr)) nokori_hp = m_ptr->maxhp * 4L;
- else if ((p_ptr->pclass == CLASS_BEASTMASTER) && monster_living(m_ptr->r_idx))
- nokori_hp = m_ptr->maxhp * 3 / 10;
- else
- nokori_hp = m_ptr->maxhp * 3 / 20;
+ if (is_pet(m_ptr)) nokori_hp = m_ptr->maxhp * 4L;
+ else if ((caster_ptr->pclass == CLASS_BEASTMASTER) && monster_living(m_ptr->r_idx))
+ nokori_hp = m_ptr->maxhp * 3 / 10;
+ else
+ nokori_hp = m_ptr->maxhp * 3 / 20;
- if (m_ptr->hp >= nokori_hp)
- {
- msg_format(_("もっと弱らせないと。", "You need to weaken %s more."), m_name);
- skipped = TRUE;
- }
- else if (m_ptr->hp < randint0(nokori_hp))
+ if (m_ptr->hp >= nokori_hp)
+ {
+ msg_format(_("もっと弱らせないと。", "You need to weaken %s more."), m_name);
+ skipped = TRUE;
+ }
+ else if (m_ptr->hp < randint0(nokori_hp))
+ {
+ if (m_ptr->mflag2 & MFLAG2_CHAMELEON) choose_new_monster(g_ptr->m_idx, FALSE, MON_CHAMELEON);
+ msg_format(_("%sを捕えた!", "You capture %^s!"), m_name);
+ 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 (g_ptr->m_idx == caster_ptr->riding)
{
- if (m_ptr->mflag2 & MFLAG2_CHAMELEON) choose_new_monster(g_ptr->m_idx, FALSE, MON_CHAMELEON);
- msg_format(_("%sを捕えた!", "You capture %^s!"), m_name);
- 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 (g_ptr->m_idx == p_ptr->riding)
+ if (rakuba(caster_ptr, -1, FALSE))
{
- if (rakuba(p_ptr, -1, FALSE))
- {
- msg_format(_("地面に落とされた。", "You have fallen from %s."), m_name);
- }
+ msg_format(_("地面に落とされた。", "You have fallen from %s."), m_name);
}
+ }
- delete_monster_idx(g_ptr->m_idx);
+ delete_monster_idx(g_ptr->m_idx);
- return (TRUE);
- }
- else
- {
- msg_format(_("うまく捕まえられなかった。", "You failed to capture %s."), m_name);
- skipped = TRUE;
- }
- break;
+ return TRUE;
}
-
- /* Attack (Use "dam" as attack type) */
- case GF_ATTACK:
+ else
{
- /* Return this monster's death */
- return py_attack(p_ptr, y, x, dam);
+ msg_format(_("うまく捕まえられなかった。", "You failed to capture %s."), m_name);
+ skipped = TRUE;
}
+ break;
+ }
- /* Sleep (Use "dam" as "power") */
- case GF_ENGETSU:
- {
- int effect = 0;
- bool done = TRUE;
-
- if (seen) obvious = TRUE;
- if (r_ptr->flags2 & RF2_EMPTY_MIND)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
- break;
- }
- if (MON_CSLEEP(m_ptr))
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- skipped = TRUE;
- break;
- }
-
- if (one_in_(5)) effect = 1;
- else if (one_in_(4)) effect = 2;
- else if (one_in_(3)) effect = 3;
- else done = FALSE;
-
- if (effect == 1)
- {
- /* Powerful monsters can resist */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
+ /* Attack (Use "dam" as attack type) */
+ case GF_ATTACK:
+ {
+ /* Return this monster's death */
+ return py_attack(caster_ptr, y, x, dam);
+ }
- /* Normal monsters slow down */
- else
- {
- if (set_monster_slow(g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
- {
- note = _("の動きが遅くなった。", " starts moving slower.");
- }
- }
- }
+ /* Sleep (Use "dam" as "power") */
+ case GF_ENGETSU:
+ {
+ int effect = 0;
+ bool done = TRUE;
- else if (effect == 2)
- {
- do_stun = damroll((p_ptr->lev / 10) + 3 , (dam)) + 1;
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags2 & RF2_EMPTY_MIND)
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
+ skipped = TRUE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
+ break;
+ }
+ if (MON_CSLEEP(m_ptr))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
+ skipped = TRUE;
+ break;
+ }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- /* Resist */
- do_stun = 0;
+ if (one_in_(5)) effect = 1;
+ else if (one_in_(4)) effect = 2;
+ else if (one_in_(3)) effect = 3;
+ else done = FALSE;
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
+ if (effect == 1)
+ {
+ /* Powerful monsters can resist */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
}
- else if (effect == 3)
+ /* Normal monsters slow down */
+ else
{
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags3 & RF3_NO_SLEEP) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
- {
- /* Memorize a flag */
- if (r_ptr->flags3 & RF3_NO_SLEEP)
- {
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
- }
-
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
- else
+ if (set_monster_slow(caster_ptr, g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
{
- /* Go to sleep (much) later */
- note = _("は眠り込んでしまった!", " falls asleep!");
- do_sleep = 500;
+ note = _("の動きが遅くなった。", " starts moving slower.");
}
}
-
- if (!done)
- {
- note = _("には効果がなかった。", " is unaffected.");
- }
-
- /* No "real" damage */
- dam = 0;
- break;
}
- /* GENOCIDE */
- case GF_GENOCIDE:
+ else if (effect == 2)
{
- if (seen) obvious = TRUE;
- if (genocide_aux(g_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, _("モンスター消滅", "Genocide One")))
+ do_stun = damroll((caster_ptr->lev / 10) + 3, (dam)) + 1;
+
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- if (seen_msg) msg_format(_("%sは消滅した!", "%^s disappered!"), m_name);
- chg_virtue(p_ptr, V_VITALITY, -1);
- return TRUE;
- }
+ /* Resist */
+ do_stun = 0;
- skipped = TRUE;
- break;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
}
- case GF_PHOTO:
+ else if (effect == 3)
{
- if (!who) msg_format(_("%sを写真に撮った。", "You take a photograph of %s."), m_name);
- /* Hurt by light */
- if (r_ptr->flags3 & (RF3_HURT_LITE))
+ /* Attempt a saving throw */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->flags3 & RF3_NO_SLEEP) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- /* Obvious effect */
- if (seen) obvious = TRUE;
-
- /* Memorize the effects */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ /* Memorize a flag */
+ if (r_ptr->flags3 & RF3_NO_SLEEP)
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
+ }
- /* Special effect */
- note = _("ã\81¯å\85\89ã\81«èº«ã\82\92ã\81\99ã\81\8fã\82\81ã\81\9fï¼\81", " cringes from the light!");
- note_dies = _("は光を受けてしぼんでしまった!", " shrivels away in the light!");
+ /* No obvious effect */
+ note = _("ã\81«ã\81¯å\8a¹æ\9e\9cã\81\8cã\81ªã\81\8bã\81£ã\81\9fã\80\82", " is unaffected.");
+ obvious = FALSE;
}
-
- /* Normally no damage */
else
{
- /* No damage */
- dam = 0;
+ /* Go to sleep (much) later */
+ note = _("は眠り込んでしまった!", " falls asleep!");
+ do_sleep = 500;
}
+ }
+
+ if (!done)
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ }
- photo = m_ptr->r_idx;
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- break;
+ /* GENOCIDE */
+ case GF_GENOCIDE:
+ {
+ if (seen) obvious = TRUE;
+ if (genocide_aux(caster_ptr, g_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, _("モンスター消滅", "Genocide One")))
+ {
+ if (seen_msg) msg_format(_("%sは消滅した!", "%^s disappeared!"), m_name);
+ chg_virtue(caster_ptr, V_VITALITY, -1);
+ return TRUE;
}
+ skipped = TRUE;
+ break;
+ }
- /* blood curse */
- case GF_BLOOD_CURSE:
+ case GF_PHOTO:
+ {
+ if (!who) msg_format(_("%sを写真に撮った。", "You take a photograph of %s."), m_name);
+ /* Hurt by light */
+ if (r_ptr->flags3 & (RF3_HURT_LITE))
{
+ /* Obvious effect */
if (seen) obvious = TRUE;
- break;
+
+ /* Memorize the effects */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+
+ /* Special effect */
+ note = _("は光に身をすくめた!", " cringes from the light!");
+ note_dies = _("は光を受けてしぼんでしまった!", " shrivels away in the light!");
}
- case GF_CRUSADE:
+ /* Normally no damage */
+ else
{
- bool success = FALSE;
- if (seen) obvious = TRUE;
+ /* No damage */
+ dam = 0;
+ }
- if ((r_ptr->flags3 & (RF3_GOOD)) && !p_ptr->inside_arena)
- {
- if (r_ptr->flags3 & (RF3_NO_CONF)) dam -= 50;
- if (dam < 1) dam = 1;
+ photo = m_ptr->r_idx;
- /* No need to tame your pet */
- if (is_pet(m_ptr))
- {
- note = _("の動きが速くなった。", " starts moving faster.");
- (void)set_monster_fast(g_ptr->m_idx, MON_FAST(m_ptr) + 100);
- success = TRUE;
- }
+ break;
+ }
- /* Attempt a saving throw */
- else if ((r_ptr->flags1 & (RF1_QUESTOR)) ||
- (r_ptr->flags1 & (RF1_UNIQUE)) ||
- (m_ptr->mflag2 & MFLAG2_NOPET) ||
- (p_ptr->cursed & TRC_AGGRAVATE) ||
- ((r_ptr->level+10) > randint1(dam)))
- {
- /* Resist */
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
- }
- else
- {
- note = _("を支配した。", " is tamed!");
- set_pet(m_ptr);
- (void)set_monster_fast(g_ptr->m_idx, MON_FAST(m_ptr) + 100);
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
- success = TRUE;
- }
+ /* blood curse */
+ case GF_BLOOD_CURSE:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
+
+ case GF_CRUSADE:
+ {
+ bool success = FALSE;
+ if (seen) obvious = TRUE;
+
+ if ((r_ptr->flags3 & (RF3_GOOD)) && !floor_ptr->inside_arena)
+ {
+ if (r_ptr->flags3 & (RF3_NO_CONF)) dam -= 50;
+ if (dam < 1) dam = 1;
+
+ /* No need to tame your pet */
+ if (is_pet(m_ptr))
+ {
+ note = _("の動きが速くなった。", " starts moving faster.");
+ (void)set_monster_fast(caster_ptr, g_ptr->m_idx, MON_FAST(m_ptr) + 100);
+ success = TRUE;
}
- if (!success)
+ /* Attempt a saving throw */
+ else if ((r_ptr->flags1 & (RF1_QUESTOR)) ||
+ (r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (m_ptr->mflag2 & MFLAG2_NOPET) ||
+ (caster_ptr->cursed & TRC_AGGRAVATE) ||
+ ((r_ptr->level + 10) > randint1(dam)))
{
- if (!(r_ptr->flags3 & RF3_NO_FEAR))
- {
- do_fear = randint1(90)+10;
- }
- else if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_FEAR);
+ /* Resist */
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
+ else
+ {
+ note = _("を支配した。", " is tamed!");
+ set_pet(m_ptr);
+ (void)set_monster_fast(caster_ptr, g_ptr->m_idx, MON_FAST(m_ptr) + 100);
- /* No "real" damage */
- dam = 0;
- break;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
+ success = TRUE;
+ }
}
- case GF_WOUNDS:
+ if (!success)
{
- if (seen) obvious = TRUE;
- /* Attempt a saving throw */
- if (randint0(100 + dam) < (r_ptr->level + 50))
+ if (!(r_ptr->flags3 & RF3_NO_FEAR))
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
+ do_fear = randint1(90) + 10;
}
- break;
+ else if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_FEAR);
}
- /* Default */
- default:
- {
- /* Irrelevant */
- skipped = TRUE;
+ /* No "real" damage */
+ dam = 0;
+ break;
+ }
- /* No damage */
+ case GF_WOUNDS:
+ {
+ if (seen) obvious = TRUE;
+ /* Attempt a saving throw */
+ if (randint0(100 + dam) < (r_ptr->level + 50))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
dam = 0;
-
- break;
}
+ break;
+ }
+
+ /* Default */
+ default:
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+
+ /* No damage */
+ dam = 0;
+
+ break;
+ }
}
}
/* Absolutely no effect */
- if (skipped) return (FALSE);
+ if (skipped) return FALSE;
/* "Unique" monsters cannot be polymorphed */
if (r_ptr->flags1 & (RF1_UNIQUE)) do_poly = FALSE;
/* Quest monsters cannot be polymorphed */
if (r_ptr->flags1 & RF1_QUESTOR) do_poly = FALSE;
- if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) do_poly = FALSE;
+ if (caster_ptr->riding && (g_ptr->m_idx == caster_ptr->riding)) do_poly = FALSE;
/* "Unique" and "quest" monsters can only be "killed" by the player. */
- if (((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & RF7_NAZGUL)) && !p_ptr->phase_out)
+ if (((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & RF7_NAZGUL)) && !caster_ptr->phase_out)
{
if (who && (dam > m_ptr->hp)) dam = m_ptr->hp;
}
if (!who && slept)
{
- if (!(r_ptr->flags3 & RF3_EVIL) || one_in_(5)) chg_virtue(p_ptr, V_COMPASSION, -1);
- if (!(r_ptr->flags3 & RF3_EVIL) || one_in_(5)) chg_virtue(p_ptr, V_HONOUR, -1);
+ if (!(r_ptr->flags3 & RF3_EVIL) || one_in_(5)) chg_virtue(caster_ptr, V_COMPASSION, -1);
+ if (!(r_ptr->flags3 & RF3_EVIL) || one_in_(5)) chg_virtue(caster_ptr, V_HONOUR, -1);
}
/* Modify the damage */
tmp = dam;
- dam = mon_damage_mod(m_ptr, dam, (bool)(typ == GF_PSY_SPEAR));
+ dam = mon_damage_mod(caster_ptr, m_ptr, dam, (bool)(typ == GF_PSY_SPEAR));
if ((tmp > 0) && (dam == 0)) note = _("はダメージを受けていない。", " is unharmed.");
/* Check for death */
}
/* Apply stun */
- (void)set_monster_stunned(g_ptr->m_idx, tmp);
+ (void)set_monster_stunned(caster_ptr, g_ptr->m_idx, tmp);
/* Get angry */
get_angry = TRUE;
/* 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))
+ !(r_ptr->flags3 & RF3_NO_CONF) &&
+ !(r_ptr->flagsr & RFR_EFF_RES_CHAO_MASK))
{
if (seen) obvious = TRUE;
}
/* Apply confusion */
- (void)set_monster_confused(g_ptr->m_idx, tmp);
+ (void)set_monster_confused(caster_ptr, g_ptr->m_idx, tmp);
/* Get angry */
get_angry = TRUE;
/* Mega-Hack -- Handle "polymorph" -- monsters get a saving throw */
if (do_poly && (randint1(90) > r_ptr->level))
{
- if (polymorph_monster(p_ptr, y, x))
+ if (polymorph_monster(caster_ptr, y, x))
{
if (seen) obvious = TRUE;
/* Turn off the damage */
dam = 0;
}
- else
- {
- /* No polymorph */
- note = _("には効果がなかった。", " is unaffected.");
- }
/* Hack -- Get new monster */
- m_ptr = &p_ptr->current_floor_ptr->m_list[g_ptr->m_idx];
+ m_ptr = &floor_ptr->m_list[g_ptr->m_idx];
/* Hack -- Get new race */
r_ptr = &r_info[m_ptr->r_idx];
note = _("が消え去った!", " disappears!");
- if (!who) chg_virtue(p_ptr, V_VALOUR, -1);
+ if (!who) chg_virtue(caster_ptr, V_VALOUR, -1);
/* Teleport */
- teleport_away(g_ptr->m_idx, do_dist,
- (!who ? TELEPORT_DEC_VALOUR : 0L) | TELEPORT_PASSIVE);
+ teleport_away(caster_ptr, g_ptr->m_idx, do_dist,
+ (!who ? TELEPORT_DEC_VALOUR : 0L) | TELEPORT_PASSIVE);
/* Hack -- get new location */
y = m_ptr->fy;
x = m_ptr->fx;
/* Hack -- get new grid */
- g_ptr = &p_ptr->current_floor_ptr->grid_array[y][x];
+ g_ptr = &floor_ptr->grid_array[y][x];
}
/* Fear */
if (do_fear)
{
/* Set fear */
- (void)set_monster_monfear(g_ptr->m_idx, MON_MONFEAR(m_ptr) + do_fear);
+ (void)set_monster_monfear(caster_ptr, g_ptr->m_idx, MON_MONFEAR(m_ptr) + do_fear);
/* Get angry */
get_angry = TRUE;
else if (who)
{
/* Redraw (later) if needed */
- if (p_ptr->health_who == g_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == g_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
+ if (caster_ptr->health_who == g_ptr->m_idx) caster_ptr->redraw |= (PR_HEALTH);
+ if (caster_ptr->riding == g_ptr->m_idx) caster_ptr->redraw |= (PR_UHEALTH);
/* Wake the monster up */
- (void)set_monster_csleep(g_ptr->m_idx, 0);
+ (void)set_monster_csleep(caster_ptr, g_ptr->m_idx, 0);
/* Hurt the monster */
m_ptr->hp -= dam;
}
else
{
- p_ptr->current_floor_ptr->monster_noise = TRUE;
+ floor_ptr->monster_noise = TRUE;
}
}
- if (who > 0) monster_gain_exp(who, m_ptr->r_idx);
+ if (who > 0) monster_gain_exp(caster_ptr, who, m_ptr->r_idx);
/* Generate treasure, etc */
monster_death(g_ptr->m_idx, FALSE);
}
else
{
- p_ptr->current_floor_ptr->monster_noise = TRUE;
+ floor_ptr->monster_noise = TRUE;
}
/* Hack -- handle sleep */
- if (do_sleep) (void)set_monster_csleep(g_ptr->m_idx, do_sleep);
+ if (do_sleep) (void)set_monster_csleep(caster_ptr, g_ptr->m_idx, do_sleep);
}
}
char m2_name[MAX_NLEN];
monster_desc(m2_name, m_ptr, MD_INDEF_VISIBLE);
- exe_write_diary(p_ptr, NIKKI_NAMED_PET, RECORD_NAMED_PET_HEAL_LEPER, m2_name);
+ exe_write_diary(caster_ptr, NIKKI_NAMED_PET, RECORD_NAMED_PET_HEAL_LEPER, m2_name);
}
delete_monster_idx(g_ptr->m_idx);
bool fear = FALSE;
/* Hurt the monster, check for fear and death */
- if (mon_take_hit(g_ptr->m_idx, dam, &fear, note_dies))
+ if (mon_take_hit(caster_ptr, g_ptr->m_idx, dam, &fear, note_dies))
{
/* Dead monster */
}
}
/* Hack -- handle sleep */
- if (do_sleep) (void)set_monster_csleep(g_ptr->m_idx, do_sleep);
+ if (do_sleep) (void)set_monster_csleep(caster_ptr, g_ptr->m_idx, do_sleep);
}
}
if ((typ == GF_BLOOD_CURSE) && one_in_(4))
{
- blood_curse_to_enemy(who);
+ blood_curse_to_enemy(caster_ptr, who);
}
- if (p_ptr->phase_out)
+ if (caster_ptr->phase_out)
{
- p_ptr->health_who = g_ptr->m_idx;
- p_ptr->redraw |= (PR_HEALTH);
- handle_stuff();
+ caster_ptr->health_who = g_ptr->m_idx;
+ caster_ptr->redraw |= (PR_HEALTH);
+ handle_stuff(caster_ptr);
}
/* Verify this code */
- if (m_ptr->r_idx) update_monster(g_ptr->m_idx, FALSE);
+ if (m_ptr->r_idx) update_monster(caster_ptr, g_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) && (seen || !m_ptr->r_idx))
+ if ((caster_ptr->monster_race_idx == m_ptr->r_idx) && (seen || !m_ptr->r_idx))
{
- p_ptr->window |= (PW_MONSTER);
+ caster_ptr->window |= (PW_MONSTER);
}
if ((dam > 0) && !is_pet(m_ptr) && !is_friendly(m_ptr))
set_target(m_ptr, monster_target_y, monster_target_x);
}
}
- else if ((who > 0) && is_pet(caster_ptr) && !player_bold(p_ptr, m_ptr->target_y, m_ptr->target_x))
+ else if ((who > 0) && is_pet(m_caster_ptr) && !player_bold(caster_ptr, m_ptr->target_y, m_ptr->target_x))
{
- set_target(m_ptr, caster_ptr->fy, caster_ptr->fx);
+ set_target(m_ptr, m_caster_ptr->fy, m_caster_ptr->fx);
}
}
- if (p_ptr->riding && (p_ptr->riding == g_ptr->m_idx) && (dam > 0))
+ if (caster_ptr->riding && (caster_ptr->riding == g_ptr->m_idx) && (dam > 0))
{
- if (m_ptr->hp > m_ptr->maxhp/3) dam = (dam + 1) / 2;
+ if (m_ptr->hp > m_ptr->maxhp / 3) dam = (dam + 1) / 2;
rakubadam_m = (dam > 200) ? 200 : dam;
}
/* Mark the item as fully known */
q_ptr->ident |= (IDENT_MENTAL);
- (void)drop_near(q_ptr, -1, p_ptr->y, p_ptr->x);
+ (void)drop_near(caster_ptr, q_ptr, -1, caster_ptr->y, caster_ptr->x);
}
/* Track it */
return (obvious);
}
+
/*!
* @brief 汎用的なビーム/ボルト/ボール系によるプレイヤーへの効果処理 / Helper function for "project()" below.
* @param who 魔法を発動したモンスター(0ならばプレイヤー) / Index of "source" monster (zero for "player")
/* Player is not here */
- if (!player_bold(p_ptr, y, x)) return (FALSE);
+ if (!player_bold(target_ptr, y, x)) return FALSE;
if ((target_ptr->special_defense & NINJA_KAWARIMI) && dam && (randint0(55) < (target_ptr->lev * 3 / 5 + 20)) && who && (who != target_ptr->riding))
{
- if (kawarimi(TRUE)) return FALSE;
+ if (kawarimi(target_ptr, TRUE)) return FALSE;
}
/* Player cannot hurt himself */
- if (!who) return (FALSE);
- if (who == target_ptr->riding) return (FALSE);
+ if (!who) return FALSE;
+ if (who == target_ptr->riding) return FALSE;
if ((target_ptr->reflect || ((target_ptr->special_defense & KATA_FUUJIN) && !target_ptr->blind)) && (flg & PROJECT_REFLECTABLE) && !one_in_(10))
{
else
msg_print(_("攻撃が跳ね返った!", "The attack bounces!"));
-
/* Choose 'new' target */
if (who > 0)
{
t_y = target_ptr->current_floor_ptr->m_list[who].fy - 1 + randint1(3);
t_x = target_ptr->current_floor_ptr->m_list[who].fx - 1 + randint1(3);
max_attempts--;
- } while (max_attempts && in_bounds2u(target_ptr->current_floor_ptr, t_y, t_x) && !projectable(target_ptr->y, target_ptr->x, t_y, t_x));
+ } while (max_attempts && in_bounds2u(target_ptr->current_floor_ptr, t_y, t_x) && !projectable(target_ptr, target_ptr->y, target_ptr->x, t_y, t_x));
if (max_attempts < 1)
{
t_x = target_ptr->x - 1 + randint1(3);
}
- project(0, 0, t_y, t_x, dam, typ, (PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE), monspell);
+ project(target_ptr, 0, 0, t_y, t_x, dam, typ, (PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE), monspell);
disturb(target_ptr, TRUE, TRUE);
return TRUE;
case GF_ACID:
{
if (fuzzy) msg_print(_("酸で攻撃された!", "You are hit by acid!"));
- get_damage = acid_dam(dam, killer, monspell, FALSE);
+ get_damage = acid_dam(target_ptr, dam, killer, monspell, FALSE);
break;
}
case GF_FIRE:
{
if (fuzzy) msg_print(_("火炎で攻撃された!", "You are hit by fire!"));
- get_damage = fire_dam(dam, killer, monspell, FALSE);
+ get_damage = fire_dam(target_ptr, dam, killer, monspell, FALSE);
break;
}
case GF_COLD:
{
if (fuzzy) msg_print(_("冷気で攻撃された!", "You are hit by cold!"));
- get_damage = cold_dam(dam, killer, monspell, FALSE);
+ get_damage = cold_dam(target_ptr, dam, killer, monspell, FALSE);
break;
}
case GF_ELEC:
{
if (fuzzy) msg_print(_("電撃で攻撃された!", "You are hit by lightning!"));
- get_damage = elec_dam(dam, killer, monspell, FALSE);
+ get_damage = elec_dam(target_ptr, dam, killer, monspell, FALSE);
break;
}
/* Standard damage -- also poisons player */
case GF_POIS:
{
- bool double_resist = IS_OPPOSE_POIS();
+ bool double_resist = is_oppose_pois(target_ptr);
if (fuzzy) msg_print(_("毒で攻撃された!", "You are hit by poison!"));
if (target_ptr->resist_pois) dam = (dam + 2) / 3;
/* Standard damage -- also poisons / mutates player */
case GF_NUKE:
{
- bool double_resist = IS_OPPOSE_POIS();
+ bool double_resist = is_oppose_pois(target_ptr);
if (fuzzy) msg_print(_("放射能で攻撃された!", "You are hit by radiation!"));
if (target_ptr->resist_pois) dam = (2 * dam + 2) / 5;
if (one_in_(6))
{
- inven_damage(set_acid_destroy, 2);
+ inventory_damage(target_ptr, set_acid_destroy, 2);
}
}
break;
(void)set_stun(target_ptr, target_ptr->stun + plus_stun);
}
- if (!(target_ptr->resist_fire || IS_OPPOSE_FIRE() || target_ptr->immune_fire))
+ if (!(target_ptr->resist_fire || is_oppose_fire(target_ptr) || target_ptr->immune_fire))
{
- inven_damage(set_acid_destroy, 3);
+ inventory_damage(target_ptr, set_acid_destroy, 3);
}
break;
{
msg_print(_("気分がよくなった。", "You feel invigorated!"));
hp_player(target_ptr, dam / 4);
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if (one_in_(5) && !target_ptr->resist_water)
{
- inven_damage(set_cold_destroy, 3);
+ inventory_damage(target_ptr, set_cold_destroy, 3);
}
if (target_ptr->resist_water) get_damage /= 4;
if (!target_ptr->resist_chaos || one_in_(9))
{
- inven_damage(set_elec_destroy, 2);
- inven_damage(set_fire_destroy, 2);
+ inventory_damage(target_ptr, set_elec_destroy, 2);
+ inventory_damage(target_ptr, set_fire_destroy, 2);
}
}
if (!target_ptr->resist_shard || one_in_(13))
{
- inven_damage(set_cold_destroy, 2);
+ inventory_damage(target_ptr, set_cold_destroy, 2);
}
get_damage = take_hit(target_ptr, DAMAGE_ATTACK, dam, killer, monspell);
if (!target_ptr->resist_sound || one_in_(13))
{
- inven_damage(set_cold_destroy, 2);
+ inventory_damage(target_ptr, set_cold_destroy, 2);
}
get_damage = take_hit(target_ptr, DAMAGE_ATTACK, dam, killer, monspell);
}
else if (!CHECK_MULTISHADOW(target_ptr))
{
- (void)apply_disenchant(0);
+ (void)apply_disenchant(target_ptr, 0);
}
get_damage = take_hit(target_ptr, DAMAGE_ATTACK, dam, killer, monspell);
break;
if (!target_ptr->resist_shard || one_in_(12))
{
- inven_damage(set_cold_destroy, 3);
+ inventory_damage(target_ptr, set_cold_destroy, 3);
}
get_damage = take_hit(target_ptr, DAMAGE_ATTACK, dam, killer, monspell);
if (!CHECK_MULTISHADOW(target_ptr))
{
- teleport_player(5, TELEPORT_PASSIVE);
+ teleport_player(target_ptr, 5, TELEPORT_PASSIVE);
if (!target_ptr->levitation)
(void)set_slow(target_ptr, target_ptr->slow + randint0(4) + 4, FALSE);
if (!(target_ptr->resist_sound || target_ptr->levitation))
if (!target_ptr->levitation || one_in_(13))
{
- inven_damage(set_cold_destroy, 2);
+ inventory_damage(target_ptr, set_cold_destroy, 2);
}
get_damage = take_hit(target_ptr, DAMAGE_ATTACK, dam, killer, monspell);
get_damage = take_hit(target_ptr, DAMAGE_ATTACK, dam, killer, monspell);
if (!target_ptr->resist_shard || one_in_(13))
{
- if (!target_ptr->immune_fire) inven_damage(set_fire_destroy, 2);
- inven_damage(set_cold_destroy, 2);
+ if (!target_ptr->immune_fire) inventory_damage(target_ptr, set_fire_destroy, 2);
+ inventory_damage(target_ptr, set_cold_destroy, 2);
}
break;
case GF_ICE:
{
if (fuzzy) msg_print(_("何か鋭く冷たいもので攻撃された!", "You are hit by something sharp and cold!"));
- get_damage = cold_dam(dam, killer, monspell, FALSE);
+ get_damage = cold_dam(target_ptr, dam, killer, monspell, FALSE);
if (!CHECK_MULTISHADOW(target_ptr))
{
if (!target_ptr->resist_shard)
(void)set_stun(target_ptr, target_ptr->stun + randint1(15));
}
- if ((!(target_ptr->resist_cold || IS_OPPOSE_COLD())) || one_in_(12))
+ if ((!(target_ptr->resist_cold || is_oppose_cold(target_ptr))) || one_in_(12))
{
- if (!target_ptr->immune_cold) inven_damage(set_cold_destroy, 3);
+ if (!target_ptr->immune_cold) inventory_damage(target_ptr, set_cold_destroy, 3);
}
}
target_ptr->csp -= dam;
}
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
target_ptr->redraw |= (PR_MANA);
target_ptr->window |= (PW_PLAYER | PW_SPELL);
if ((randint0(100 + rlev / 2) < MAX(5, target_ptr->skill_sav)) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if ((randint0(100 + rlev / 2) < MAX(5, target_ptr->skill_sav)) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if ((randint0(100 + rlev / 2) < target_ptr->skill_sav) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if ((randint0(100 + rlev / 2) < target_ptr->skill_sav) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if ((randint0(100 + rlev / 2) < target_ptr->skill_sav) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if ((randint0(100 + rlev / 2) < target_ptr->skill_sav) && !(m_ptr->r_idx == MON_KENSHIROU) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし秘孔を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
if ((randint0(100 + rlev / 2) < target_ptr->skill_sav) && !CHECK_MULTISHADOW(target_ptr))
{
msg_print(_("しかし効力を跳ね返した!", "You resist the effects!"));
- learn_spell(monspell);
+ learn_spell(target_ptr, monspell);
}
else
{
}
/* Hex - revenge damage stored */
- revenge_store(get_damage);
+ revenge_store(target_ptr, get_damage);
if ((target_ptr->tim_eyeeye || hex_spelling(HEX_EYE_FOR_EYE))
&& (get_damage > 0) && !target_ptr->is_dead && (who > 0))
monster_desc(m_name_self, m_ptr, MD_PRON_VISIBLE | MD_POSSESSIVE | MD_OBJECTIVE);
msg_format(_("攻撃が%s自身を傷つけた!", "The attack of %s has wounded %s!"), m_name, m_name_self);
- project(0, 0, m_ptr->fy, m_ptr->fx, get_damage, GF_MISSILE, PROJECT_KILL, -1);
+ project(target_ptr, 0, 0, m_ptr->fy, m_ptr->fx, get_damage, GF_MISSILE, PROJECT_KILL, -1);
if (target_ptr->tim_eyeeye) set_tim_eyeeye(target_ptr, target_ptr->tim_eyeeye - 5, TRUE);
}
if ((target_ptr->special_defense & NINJA_KAWARIMI) && dam && who && (who != target_ptr->riding))
{
- (void)kawarimi(FALSE);
+ (void)kawarimi(target_ptr, FALSE);
}
/* Return "Anything seen?" */
}
-
/*
*
* Modified version of los() for calculation of disintegration balls.
* Disintegration effects are stopped by permanent walls.
*/
-bool in_disintegration_range(POSITION y1, POSITION x1, POSITION y2, POSITION x2)
+bool in_disintegration_range(floor_type *floor_ptr, POSITION y1, POSITION x1, POSITION y2, POSITION x2)
{
POSITION dx, dy; /* Delta */
POSITION ax, ay; /* Absolute */
ax = ABS(dx);
/* Handle adjacent (or identical) grids */
- if ((ax < 2) && (ay < 2)) return (TRUE);
+ if ((ax < 2) && (ay < 2)) return TRUE;
/* Paranoia -- require "safe" origin */
- /* if (!in_bounds(p_ptr->current_floor_ptr, y1, x1)) return (FALSE); */
+ /* if (!in_bounds(floor_ptr, y1, x1)) return FALSE; */
/* Directly South/North */
if (!dx)
{
for (ty = y1 + 1; ty < y2; ty++)
{
- if (cave_stop_disintegration(ty, x1)) return (FALSE);
+ if (cave_stop_disintegration(floor_ptr, ty, x1)) return FALSE;
}
}
{
for (ty = y1 - 1; ty > y2; ty--)
{
- if (cave_stop_disintegration(ty, x1)) return (FALSE);
+ if (cave_stop_disintegration(floor_ptr, ty, x1)) return FALSE;
}
}
/* Assume los */
- return (TRUE);
+ return TRUE;
}
/* Directly East/West */
{
for (tx = x1 + 1; tx < x2; tx++)
{
- if (cave_stop_disintegration(y1, tx)) return (FALSE);
+ if (cave_stop_disintegration(floor_ptr, y1, tx)) return FALSE;
}
}
{
for (tx = x1 - 1; tx > x2; tx--)
{
- if (cave_stop_disintegration(y1, tx)) return (FALSE);
+ if (cave_stop_disintegration(floor_ptr, y1, tx)) return FALSE;
}
}
/* Assume los */
- return (TRUE);
+ return TRUE;
}
/* Extract some signs */
{
if (ay == 2)
{
- if (!cave_stop_disintegration(y1 + sy, x1)) return (TRUE);
+ if (!cave_stop_disintegration(floor_ptr, y1 + sy, x1)) return TRUE;
}
}
{
if (ax == 2)
{
- if (!cave_stop_disintegration(y1, x1 + sx)) return (TRUE);
+ if (!cave_stop_disintegration(floor_ptr, y1, x1 + sx)) return TRUE;
}
}
/* the LOS exactly meets the corner of a tile. */
while (x2 - tx)
{
- if (cave_stop_disintegration(ty, tx)) return (FALSE);
+ if (cave_stop_disintegration(floor_ptr, ty, tx)) return FALSE;
qy += m;
else if (qy > f2)
{
ty += sy;
- if (cave_stop_disintegration(ty, tx)) return (FALSE);
+ if (cave_stop_disintegration(floor_ptr, ty, tx)) return FALSE;
qy -= f1;
tx += sx;
}
tx += sx;
}
}
+
+ return TRUE;
}
- /* Travel vertically */
+ /* Let m = dx / dy * 2 * (dx * dy) = 2 * dx * dx */
+ qx = ax * ax;
+ m = qx << 1;
+
+ ty = y1 + sy;
+
+ if (qx == f2)
+ {
+ tx = x1 + sx;
+ qx -= f1;
+ }
else
{
- /* Let m = dx / dy * 2 * (dx * dy) = 2 * dx * dx */
- qx = ax * ax;
- m = qx << 1;
+ tx = x1;
+ }
+
+ /* Note (below) the case (qx == f2), where */
+ /* the LOS exactly meets the corner of a tile. */
+ while (y2 - ty)
+ {
+ if (cave_stop_disintegration(floor_ptr, ty, tx)) return FALSE;
- ty = y1 + sy;
+ qx += m;
- if (qx == f2)
+ if (qx < f2)
{
- tx = x1 + sx;
- qx -= f1;
+ ty += sy;
}
- else
+ else if (qx > f2)
{
- tx = x1;
+ tx += sx;
+ if (cave_stop_disintegration(floor_ptr, ty, tx)) return FALSE;
+ qx -= f1;
+ ty += sy;
}
-
- /* Note (below) the case (qx == f2), where */
- /* the LOS exactly meets the corner of a tile. */
- while (y2 - ty)
+ else
{
- if (cave_stop_disintegration(ty, tx)) return (FALSE);
-
- qx += m;
-
- if (qx < f2)
- {
- ty += sy;
- }
- else if (qx > f2)
- {
- tx += sx;
- if (cave_stop_disintegration(ty, tx)) return (FALSE);
- qx -= f1;
- ty += sy;
- }
- else
- {
- tx += sx;
- qx -= f1;
- ty += sy;
- }
+ tx += sx;
+ qx -= f1;
+ ty += sy;
}
}
- /* Assume los */
- return (TRUE);
+ return TRUE;
}
/*
* breath shape
*/
-void breath_shape(u16b *path_g, int dist, int *pgrids, POSITION *gx, POSITION *gy, POSITION *gm, POSITION *pgm_rad, POSITION rad, POSITION y1, POSITION x1, POSITION y2, POSITION x2, EFFECT_ID typ)
+void breath_shape(player_type *caster_ptr, u16b *path_g, int dist, int *pgrids, POSITION *gx, POSITION *gy, POSITION *gm, POSITION *pgm_rad, POSITION rad, POSITION y1, POSITION x1, POSITION y2, POSITION x2, EFFECT_ID typ)
{
POSITION by = y1;
POSITION bx = x1;
int path_n = 0;
int mdis = distance(y1, x1, y2, x2) + rad;
+ floor_type *floor_ptr = caster_ptr->current_floor_ptr;
while (bdis <= mdis)
{
POSITION x, y;
for (x = bx - cdis; x <= bx + cdis; x++)
{
/* Ignore "illegal" locations */
- if (!in_bounds(p_ptr->current_floor_ptr, y, x)) continue;
+ if (!in_bounds(floor_ptr, y, x)) continue;
/* Enforce a circular "ripple" */
if (distance(y1, x1, y, x) != bdis) continue;
case GF_LITE:
case GF_LITE_WEAK:
/* Lights are stopped by opaque terrains */
- if (!los(by, bx, y, x)) continue;
+ if (!los(caster_ptr, 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;
+ if (!in_disintegration_range(floor_ptr, by, bx, y, x)) continue;
break;
default:
/* Ball explosions are stopped by walls */
- if (!projectable(by, bx, y, x)) continue;
+ if (!projectable(caster_ptr, by, bx, y, x)) continue;
break;
}
* and "update_view()" and "update_monsters()" need to be called.
* </pre>
*/
-bool project(MONSTER_IDX who, POSITION rad, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ, BIT_FLAGS flg, int monspell)
+bool project(player_type *caster_ptr, MONSTER_IDX who, POSITION rad, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ, BIT_FLAGS flg, int monspell)
{
int i, t, dist;
bool breath = FALSE;
/* Is the player blind? */
- bool blind = (p_ptr->blind ? TRUE : FALSE);
+ bool blind = (caster_ptr->blind ? TRUE : FALSE);
bool old_hide = FALSE;
rakubadam_m = 0;
/* Default target of monsterspell is player */
- monster_target_y = p_ptr->y;
- monster_target_x = p_ptr->x;
+ monster_target_y = caster_ptr->y;
+ monster_target_x = caster_ptr->x;
/* Hack -- Jump to target */
if (flg & (PROJECT_JUMP))
/* Start at player */
else if (who <= 0)
{
- x1 = p_ptr->x;
- y1 = p_ptr->y;
+ x1 = caster_ptr->x;
+ y1 = caster_ptr->y;
}
/* Start at monster */
else if (who > 0)
{
- x1 = p_ptr->current_floor_ptr->m_list[who].fx;
- y1 = p_ptr->current_floor_ptr->m_list[who].fy;
- monster_desc(who_name, &p_ptr->current_floor_ptr->m_list[who], MD_WRONGDOER_NAME);
+ x1 = caster_ptr->current_floor_ptr->m_list[who].fx;
+ y1 = caster_ptr->current_floor_ptr->m_list[who].fy;
+ monster_desc(who_name, &caster_ptr->current_floor_ptr->m_list[who], MD_WRONGDOER_NAME);
}
else
flg |= PROJECT_HIDE;
}
-
/* Hack -- Assume there will be no blast (max radius 32) */
for (dist = 0; dist < 32; dist++) gm[dist] = 0;
/* Calculate the projection path */
- path_n = project_path(path_g, (project_length ? project_length : MAX_RANGE), y1, x1, y2, x2, flg);
- handle_stuff();
+ path_n = project_path(caster_ptr, path_g, (project_length ? project_length : MAX_RANGE), y1, x1, y2, x2, flg);
+ handle_stuff(caster_ptr);
/* Giga-Hack SEEKER & SUPER_RAY */
- if( typ == GF_SEEKER )
+ if (typ == GF_SEEKER)
{
int j;
- int last_i=0;
+ int last_i = 0;
/* Mega-Hack */
project_m_n = 0;
gx[grids] = x;
grids++;
-
/* Only do visuals if requested */
if (!blind && !(flg & (PROJECT_HIDE)))
{
/* Only do visuals if the player can "see" the bolt */
- if (panel_contains(y, x) && player_has_los_bold(y, x))
+ if (panel_contains(y, x) && player_has_los_bold(caster_ptr, y, x))
{
- u16b p;
-
TERM_COLOR a;
SYMBOL_CODE c;
/* Obtain the bolt pict */
- p = bolt_pict(oy, ox, y, x, typ);
+ u16b p = bolt_pict(oy, ox, y, x, typ);
/* Extract attr/char */
a = PICT_A(p);
c = PICT_C(p);
/* Visual effects */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
move_cursor_relative(y, x);
- /*if (fresh_before)*/ Term_fresh();
+ Term_fresh();
Term_xtra(TERM_XTRA_DELAY, msec);
lite_spot(y, x);
- /*if (fresh_before)*/ Term_fresh();
+ Term_fresh();
/* Display "beam" grids */
if (flg & (PROJECT_BEAM))
c = PICT_C(p);
/* Visual effects */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
}
/* Hack -- Activate delay */
Term_xtra(TERM_XTRA_DELAY, msec);
}
}
- if (project_o(0, 0, y, x, dam, GF_SEEKER))notice = TRUE;
- if (is_mirror_grid(&p_ptr->current_floor_ptr->grid_array[y][x]))
+
+ if (project_o(caster_ptr, 0, 0, y, x, dam, GF_SEEKER))notice = TRUE;
+ if (is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[y][x]))
{
/* The target of monsterspell becomes tha mirror(broken) */
monster_target_y = y;
monster_target_x = x;
- remove_mirror(y, x);
- next_mirror(p_ptr, &oy, &ox, y, x);
+ remove_mirror(caster_ptr, y, x);
+ next_mirror(caster_ptr, &oy, &ox, y, x);
- path_n = i + project_path(&(path_g[i + 1]), (project_length ? project_length : MAX_RANGE), y, x, oy, ox, flg);
+ path_n = i + project_path(caster_ptr, &(path_g[i + 1]), (project_length ? project_length : MAX_RANGE), y, x, oy, ox, flg);
for (j = last_i; j <= i; j++)
{
y = GRID_Y(path_g[j]);
x = GRID_X(path_g[j]);
- if (project_m(0, 0, y, x, dam, GF_SEEKER, flg, TRUE)) notice = TRUE;
+ if (project_m(caster_ptr, 0, 0, y, x, dam, GF_SEEKER, flg, TRUE)) notice = TRUE;
if (!who && (project_m_n == 1) && !jump) {
- if (p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0) {
- monster_type *m_ptr = &p_ptr->current_floor_ptr->m_list[p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
+ if (caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0)
+ {
+ monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
if (m_ptr->ml)
{
- if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
- health_track(p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
+ if (!caster_ptr->image) monster_race_track(caster_ptr, m_ptr->ap_r_idx);
+ health_track(caster_ptr, caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
}
}
}
- (void)project_f(p_ptr->current_floor_ptr, 0, 0, y, x, dam, GF_SEEKER);
+
+ (void)project_f(caster_ptr, 0, 0, y, x, dam, GF_SEEKER);
}
+
last_i = i;
}
}
- for(i = last_i ; i < path_n ; i++)
+
+ for (i = last_i; i < path_n; i++)
{
POSITION py, px;
py = GRID_Y(path_g[i]);
px = GRID_X(path_g[i]);
- if (project_m(0, 0, py, px, dam, GF_SEEKER, flg, TRUE))
+ if (project_m(caster_ptr, 0, 0, py, px, dam, GF_SEEKER, flg, TRUE))
notice = TRUE;
if (!who && (project_m_n == 1) && !jump) {
- if (p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0)
+ if (caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0)
{
- monster_type *m_ptr = &p_ptr->current_floor_ptr->m_list[p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
+ monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
if (m_ptr->ml)
{
- if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
- health_track(p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
+ if (!caster_ptr->image) monster_race_track(caster_ptr, m_ptr->ap_r_idx);
+ health_track(caster_ptr, caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
}
}
}
- (void)project_f(p_ptr->current_floor_ptr, 0, 0, py, px, dam, GF_SEEKER);
+
+ (void)project_f(caster_ptr, 0, 0, py, px, dam, GF_SEEKER);
}
+
return notice;
}
- else if(typ == GF_SUPER_RAY){
+ else if (typ == GF_SUPER_RAY)
+ {
int j;
int second_step = 0;
gy[grids] = y;
gx[grids] = x;
grids++;
-
-
+
/* Only do visuals if requested */
if (!blind && !(flg & (PROJECT_HIDE)))
{
/* Only do visuals if the player can "see" the bolt */
- if (panel_contains(y, x) && player_has_los_bold(y, x))
+ if (panel_contains(y, x) && player_has_los_bold(caster_ptr, y, x))
{
u16b p;
c = PICT_C(p);
/* Visual effects */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
move_cursor_relative(y, x);
/*if (fresh_before)*/ Term_fresh();
Term_xtra(TERM_XTRA_DELAY, msec);
c = PICT_C(p);
/* Visual effects */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
}
/* Hack -- Activate delay */
Term_xtra(TERM_XTRA_DELAY, msec);
}
}
- if(project_o(0,0,y,x,dam,GF_SUPER_RAY) )notice=TRUE;
- if (!cave_have_flag_bold(y, x, FF_PROJECT))
+
+ if (project_o(caster_ptr, 0, 0, y, x, dam, GF_SUPER_RAY))notice = TRUE;
+ if (!cave_have_flag_bold(caster_ptr->current_floor_ptr, y, x, FF_PROJECT))
{
- if( second_step )continue;
+ if (second_step)continue;
break;
}
- if( is_mirror_grid(&p_ptr->current_floor_ptr->grid_array[y][x]) && !second_step )
+
+ if (is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[y][x]) && !second_step)
{
- /* The target of monsterspell becomes tha mirror(broken) */
+ /* The target of monsterspell becomes tha mirror(broken) */
monster_target_y = y;
monster_target_x = x;
- remove_mirror(y,x);
- for( j = 0; j <=i ; j++ )
+ remove_mirror(caster_ptr, y, x);
+ for (j = 0; j <= i; j++)
{
y = GRID_Y(path_g[j]);
x = GRID_X(path_g[j]);
- (void)project_f(p_ptr->current_floor_ptr, 0,0,y,x,dam,GF_SUPER_RAY);
+ (void)project_f(caster_ptr, 0, 0, y, x, dam, GF_SUPER_RAY);
}
+
path_n = i;
- second_step =i+1;
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y-1, x-1, flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y-1, x , flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y-1, x+1, flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y , x-1, flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y , x+1, flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y+1, x-1, flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y+1, x , flg);
- path_n += project_path(&(path_g[path_n+1]), (project_length ? project_length : MAX_RANGE), y, x, y+1, x+1, flg);
+ second_step = i + 1;
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y - 1, x - 1, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y - 1, x, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y - 1, x + 1, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y, x - 1, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y, x + 1, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y + 1, x - 1, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y + 1, x, flg);
+ path_n += project_path(caster_ptr, &(path_g[path_n + 1]), (project_length ? project_length : MAX_RANGE), y, x, y + 1, x + 1, flg);
}
}
- for( i = 0; i < path_n ; i++ )
+
+ for (i = 0; i < path_n; i++)
{
- POSITION py, px;
- py = GRID_Y(path_g[i]);
- px = GRID_X(path_g[i]);
- (void)project_m(0, 0, py, px, dam, GF_SUPER_RAY, flg, TRUE);
- if(!who && (project_m_n == 1) && !jump){
- if(p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx >0 ){
- monster_type *m_ptr = &p_ptr->current_floor_ptr->m_list[p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
+ POSITION py = GRID_Y(path_g[i]);
+ POSITION px = GRID_X(path_g[i]);
+ (void)project_m(caster_ptr, 0, 0, py, px, dam, GF_SUPER_RAY, flg, TRUE);
+ if (!who && (project_m_n == 1) && !jump) {
+ if (caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0) {
+ monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
if (m_ptr->ml)
{
- if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
- health_track(p_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
+ if (!caster_ptr->image) monster_race_track(caster_ptr, m_ptr->ap_r_idx);
+ health_track(caster_ptr, caster_ptr->current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
}
}
}
- (void)project_f(p_ptr->current_floor_ptr, 0, 0, py, px, dam, GF_SUPER_RAY);
+
+ (void)project_f(caster_ptr, 0, 0, py, px, dam, GF_SUPER_RAY);
}
+
return notice;
}
if (flg & PROJECT_DISI)
{
/* Hack -- Balls explode before reaching walls */
- if (cave_stop_disintegration(ny, nx) && (rad > 0)) break;
+ if (cave_stop_disintegration(caster_ptr->current_floor_ptr, 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;
+ if (!cave_los_bold(caster_ptr->current_floor_ptr, ny, nx) && (rad > 0)) break;
}
else
{
/* Hack -- Balls explode before reaching walls */
- if (!cave_have_flag_bold(ny, nx, FF_PROJECT) && (rad > 0)) break;
+ if (!cave_have_flag_bold(caster_ptr->current_floor_ptr, ny, nx, FF_PROJECT) && (rad > 0)) break;
}
/* Advance */
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))
+ if (panel_contains(y, x) && player_has_los_bold(caster_ptr, y, x))
{
u16b p;
c = PICT_C(p);
/* Visual effects */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
move_cursor_relative(y, x);
/*if (fresh_before)*/ Term_fresh();
Term_xtra(TERM_XTRA_DELAY, msec);
c = PICT_C(p);
/* Visual effects */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
}
/* Hack -- Activate delay */
{
flg &= ~(PROJECT_HIDE);
- breath_shape(path_g, dist, &grids, gx, gy, gm, &gm_rad, rad, y1, x1, by, bx, typ);
+ breath_shape(caster_ptr, path_g, dist, &grids, gx, gy, gm, &gm_rad, rad, y1, x1, by, bx, typ);
}
else
{
for (x = bx - dist; x <= bx + dist; x++)
{
/* Ignore "illegal" locations */
- if (!in_bounds2(p_ptr->current_floor_ptr, y, x)) continue;
+ if (!in_bounds2(caster_ptr->current_floor_ptr, y, x)) continue;
/* Enforce a "circular" explosion */
if (distance(by, bx, y, x) != dist) continue;
case GF_LITE:
case GF_LITE_WEAK:
/* Lights are stopped by opaque terrains */
- if (!los(by, bx, y, x)) continue;
+ if (!los(caster_ptr, 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;
+ if (!in_disintegration_range(caster_ptr->current_floor_ptr, by, bx, y, x)) continue;
break;
default:
/* Ball explosions are stopped by walls */
- if (!projectable(by, bx, y, x)) continue;
+ if (!projectable(caster_ptr, by, bx, y, x)) continue;
break;
}
}
/* Encode some more "radius" info */
- gm[dist+1] = grids;
+ gm[dist + 1] = grids;
}
}
}
/* Speed -- ignore "non-explosions" */
- if (!grids) return (FALSE);
+ if (!grids) return FALSE;
/* Display the "blast area" if requested */
for (t = 0; t <= gm_rad; t++)
{
/* Dump everything with this radius */
- for (i = gm[t]; i < gm[t+1]; i++)
+ for (i = gm[t]; i < gm[t + 1]; i++)
{
y = gy[i];
x = gx[i];
/* Only do visuals if the player can "see" the blast */
- if (panel_contains(y, x) && player_has_los_bold(y, x))
+ if (panel_contains(y, x) && player_has_los_bold(caster_ptr, y, x))
{
u16b p;
c = PICT_C(p);
/* Visual effects -- Display */
- print_rel(c, a, y, x);
+ print_rel(caster_ptr, c, a, y, x);
}
}
x = gx[i];
/* Hack -- Erase if needed */
- if (panel_contains(y, x) && player_has_los_bold(y, x))
+ if (panel_contains(y, x) && player_has_los_bold(caster_ptr, y, x))
{
lite_spot(y, x);
}
}
}
- update_creature(p_ptr);
+ update_creature(caster_ptr);
if (flg & PROJECT_KILL)
{
- see_s_msg = (who > 0) ? is_seen(&p_ptr->current_floor_ptr->m_list[who]) :
- (!who ? TRUE : (player_can_see_bold(y1, x1) && projectable(p_ptr->y, p_ptr->x, y1, x1)));
+ see_s_msg = (who > 0) ? is_seen(&caster_ptr->current_floor_ptr->m_list[who]) :
+ (!who ? TRUE : (player_can_see_bold(caster_ptr, y1, x1) && projectable(caster_ptr, caster_ptr->y, caster_ptr->x, y1, x1)));
}
-
/* Check features */
if (flg & (PROJECT_GRID))
{
for (i = 0; i < grids; i++)
{
/* Hack -- Notice new "dist" values */
- if (gm[dist+1] == i) dist++;
+ if (gm[dist + 1] == i) dist++;
/* Get the grid location */
y = gy[i];
int d = dist_to_line(y, x, y1, x1, by, bx);
/* Affect the grid */
- if (project_f(p_ptr->current_floor_ptr, who, d, y, x, dam, typ)) notice = TRUE;
+ if (project_f(caster_ptr, who, d, y, x, dam, typ)) notice = TRUE;
}
+
else
{
/* Affect the grid */
- if (project_f(p_ptr->current_floor_ptr, who, dist, y, x, dam, typ)) notice = TRUE;
+ if (project_f(caster_ptr, who, dist, y, x, dam, typ)) notice = TRUE;
}
}
}
- update_creature(p_ptr);
+ update_creature(caster_ptr);
/* Check objects */
if (flg & (PROJECT_ITEM))
for (i = 0; i < grids; i++)
{
/* Hack -- Notice new "dist" values */
- if (gm[dist+1] == i) dist++;
+ if (gm[dist + 1] == i) dist++;
/* Get the grid location */
y = gy[i];
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;
+ if (project_o(caster_ptr, who, d, y, x, dam, typ)) notice = TRUE;
}
else
{
/* Affect the object in the grid */
- if (project_o(who, dist, y, x, dam, typ)) notice = TRUE;
+ if (project_o(caster_ptr, who, dist, y, x, dam, typ)) notice = TRUE;
}
}
}
-
/* Check monsters */
if (flg & (PROJECT_KILL))
{
/* A single bolt may be reflected */
if (grids <= 1)
{
- monster_type *m_ptr = &p_ptr->current_floor_ptr->m_list[p_ptr->current_floor_ptr->grid_array[y][x].m_idx];
+ monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[caster_ptr->current_floor_ptr->grid_array[y][x].m_idx];
monster_race *ref_ptr = &r_info[m_ptr->r_idx];
- if ((flg & PROJECT_REFLECTABLE) && p_ptr->current_floor_ptr->grid_array[y][x].m_idx && (ref_ptr->flags2 & RF2_REFLECTING) &&
- ((p_ptr->current_floor_ptr->grid_array[y][x].m_idx != p_ptr->riding) || !(flg & PROJECT_PLAYER)) &&
+ if ((flg & PROJECT_REFLECTABLE) && caster_ptr->current_floor_ptr->grid_array[y][x].m_idx && (ref_ptr->flags2 & RF2_REFLECTING) &&
+ ((caster_ptr->current_floor_ptr->grid_array[y][x].m_idx != caster_ptr->riding) || !(flg & PROJECT_PLAYER)) &&
(!who || dist_hack > 1) && !one_in_(10))
{
POSITION t_y, t_x;
t_y = y_saver - 1 + randint1(3);
t_x = x_saver - 1 + randint1(3);
max_attempts--;
- }
- while (max_attempts && in_bounds2u(p_ptr->current_floor_ptr, t_y, t_x) && !projectable(y, x, t_y, t_x));
+ } while (max_attempts && in_bounds2u(caster_ptr->current_floor_ptr, t_y, t_x) && !projectable(caster_ptr, y, x, t_y, t_x));
if (max_attempts < 1)
{
{
if ((m_ptr->r_idx == MON_KENSHIROU) || (m_ptr->r_idx == MON_RAOU))
msg_print(_("「北斗神拳奥義・二指真空把!」", "The attack bounces!"));
- else if (m_ptr->r_idx == MON_DIO)
+ else if (m_ptr->r_idx == MON_DIO)
msg_print(_("ディオ・ブランドーは指一本で攻撃を弾き返した!", "The attack bounces!"));
- else
+ else
msg_print(_("攻撃は跳ね返った!", "The attack bounces!"));
}
if (is_original_ap_and_seen(m_ptr)) ref_ptr->r_flags2 |= RF2_REFLECTING;
/* Reflected bolts randomly target either one */
- if (player_bold(p_ptr, y, x) || one_in_(2)) flg &= ~(PROJECT_PLAYER);
+ if (player_bold(caster_ptr, y, x) || one_in_(2)) flg &= ~(PROJECT_PLAYER);
else flg |= PROJECT_PLAYER;
/* The bolt is reflected */
- project(p_ptr->current_floor_ptr->grid_array[y][x].m_idx, 0, t_y, t_x, dam, typ, flg, monspell);
+ project(caster_ptr, caster_ptr->current_floor_ptr->grid_array[y][x].m_idx, 0, t_y, t_x, dam, typ, flg, monspell);
/* Don't affect the monster any longer */
continue;
}
}
-
/* Find the closest point in the blast */
if (breath)
{
effective_dist = dist;
}
-
/* There is the riding player on this monster */
- if (p_ptr->riding && player_bold(p_ptr, y, x))
+ if (caster_ptr->riding && player_bold(caster_ptr, y, x))
{
/* Aimed on the player */
if (flg & PROJECT_PLAYER)
else
{
/*
- * The spell is not well aimed,
+ * The spell is not well aimed,
* So partly affect the mount too.
*/
effective_dist++;
* of fire is obstructed by this
* monster.
*/
- /*
- * A beam or bolt will hit either
- * player or mount. Choose randomly.
- */
+ /*
+ * A beam or bolt will hit either
+ * player or mount. Choose randomly.
+ */
else if (flg & (PROJECT_BEAM | PROJECT_REFLECTABLE))
{
if (one_in_(2))
}
/* Affect the monster in the grid */
- if (project_m(who, effective_dist, y, x, dam, typ, flg, see_s_msg)) notice = TRUE;
+ if (project_m(caster_ptr, who, effective_dist, y, x, dam, typ, flg, see_s_msg)) notice = TRUE;
}
y = project_m_y;
/* Track if possible */
- if (p_ptr->current_floor_ptr->grid_array[y][x].m_idx > 0)
+ if (caster_ptr->current_floor_ptr->grid_array[y][x].m_idx > 0)
{
- monster_type *m_ptr = &p_ptr->current_floor_ptr->m_list[p_ptr->current_floor_ptr->grid_array[y][x].m_idx];
+ monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[caster_ptr->current_floor_ptr->grid_array[y][x].m_idx];
if (m_ptr->ml)
{
- if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
- health_track(p_ptr->current_floor_ptr->grid_array[y][x].m_idx);
+ if (!caster_ptr->image) monster_race_track(caster_ptr, m_ptr->ap_r_idx);
+ health_track(caster_ptr, caster_ptr->current_floor_ptr->grid_array[y][x].m_idx);
}
}
}
}
-
/* Check player */
if (flg & (PROJECT_KILL))
{
int effective_dist;
/* Hack -- Notice new "dist" values */
- if (gm[dist+1] == i) dist++;
+ if (gm[dist + 1] == i) dist++;
/* Get the grid location */
y = gy[i];
x = gx[i];
/* Affect the player? */
- if (!player_bold(p_ptr, y, x)) continue;
+ if (!player_bold(caster_ptr, y, x)) continue;
/* Find the closest point in the blast */
if (breath)
}
/* Target may be your horse */
- if (p_ptr->riding)
+ if (caster_ptr->riding)
{
/* Aimed on the player */
if (flg & PROJECT_PLAYER)
else
{
/*
- * The spell is not well aimed,
+ * The spell is not well aimed,
* So partly affect the player too.
*/
effective_dist++;
}
/* Affect the player */
- if (project_p(who, p_ptr, who_name, effective_dist, y, x, dam, typ, flg, monspell)) notice = TRUE;
+ if (project_p(who, caster_ptr, who_name, effective_dist, y, x, dam, typ, flg, monspell)) notice = TRUE;
}
}
- if (p_ptr->riding)
+ if (caster_ptr->riding)
{
GAME_TEXT m_name[MAX_NLEN];
- monster_desc(m_name, &p_ptr->current_floor_ptr->m_list[p_ptr->riding], 0);
+ monster_desc(m_name, &caster_ptr->current_floor_ptr->m_list[caster_ptr->riding], 0);
if (rakubadam_m > 0)
{
- if (rakuba(p_ptr, rakubadam_m, FALSE))
+ if (rakuba(caster_ptr, rakubadam_m, FALSE))
{
msg_format(_("%^sに振り落とされた!", "%^s has thrown you off!"), m_name);
}
}
- if (p_ptr->riding && rakubadam_p > 0)
+ if (caster_ptr->riding && rakubadam_p > 0)
{
- if(rakuba(p_ptr, rakubadam_p, FALSE))
+ if (rakuba(caster_ptr, rakubadam_p, FALSE))
{
msg_format(_("%^sから落ちてしまった!", "You have fallen from %s."), m_name);
}
* @param dam ダメージ量
* @return 効果があったらTRUEを返す
*/
-bool binding_field(HIT_POINT dam)
+bool binding_field(player_type *caster_ptr, HIT_POINT dam)
{
POSITION mirror_x[10], mirror_y[10]; /* 鏡はもっと少ない */
int mirror_num = 0; /* 鏡の数 */
POSITION point_y[3];
/* Default target of monsterspell is player */
- monster_target_y = p_ptr->y;
- monster_target_x = p_ptr->x;
+ monster_target_y = caster_ptr->y;
+ monster_target_x = caster_ptr->x;
- for (x = 0; x < p_ptr->current_floor_ptr->width; x++)
+ for (x = 0; x < caster_ptr->current_floor_ptr->width; x++)
{
- for (y = 0; y < p_ptr->current_floor_ptr->height; y++)
- {
- if (is_mirror_grid(&p_ptr->current_floor_ptr->grid_array[y][x]) &&
- distance(p_ptr->y, p_ptr->x, y, x) <= MAX_RANGE &&
- distance(p_ptr->y, p_ptr->x, y, x) != 0 &&
- player_has_los_bold(y, x) &&
- projectable(p_ptr->y, p_ptr->x, y, x)
- ) {
+ for (y = 0; y < caster_ptr->current_floor_ptr->height; y++)
+ {
+ if (is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[y][x]) &&
+ distance(caster_ptr->y, caster_ptr->x, y, x) <= MAX_RANGE &&
+ distance(caster_ptr->y, caster_ptr->x, y, x) != 0 &&
+ player_has_los_bold(caster_ptr, y, x) &&
+ projectable(caster_ptr, caster_ptr->y, caster_ptr->x, y, x))
+ {
mirror_y[mirror_num] = y;
mirror_x[mirror_num] = x;
mirror_num++;
point_x[0] = mirror_x[point_x[0]];
point_y[1] = mirror_y[point_x[1]];
point_x[1] = mirror_x[point_x[1]];
- point_y[2] = p_ptr->y;
- point_x[2] = p_ptr->x;
+ point_y[2] = caster_ptr->y;
+ point_x[2] = caster_ptr->x;
x = point_x[0] + point_x[1] + point_x[2];
y = point_y[0] + point_y[1] + point_y[2];
y2 = point_y[0] > point_y[1] ? point_y[0] : point_y[1];
y2 = y2 > point_y[2] ? y2 : point_y[2];
- for (y = y1; y <= y2; y++) {
- for (x = x1; x <= x2; x++) {
+ for (y = y1; y <= y2; y++)
+ {
+ for (x = x1; x <= x2; x++)
+ {
if (centersign*((point_x[0] - x)*(point_y[1] - y)
- (point_y[0] - y)*(point_x[1] - x)) >= 0 &&
centersign*((point_x[1] - x)*(point_y[2] - y)
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) && projectable(p_ptr->y, p_ptr->x, y, x)) {
+ if (player_has_los_bold(caster_ptr, y, x) && projectable(caster_ptr, caster_ptr->y, caster_ptr->x, y, x))
+ {
/* Visual effects */
- if (!(p_ptr->blind)
- && panel_contains(y, x)) {
+ if (!(caster_ptr->blind)
+ && panel_contains(y, x))
+ {
p = bolt_pict(y, x, y, x, GF_MANA);
- print_rel(PICT_C(p), PICT_A(p), y, x);
+ print_rel(caster_ptr, PICT_C(p), PICT_A(p), y, x);
move_cursor_relative(y, x);
/*if (fresh_before)*/ Term_fresh();
Term_xtra(TERM_XTRA_DELAY, msec);
}
}
}
- for (y = y1; y <= y2; y++) {
- for (x = x1; x <= x2; x++) {
+
+ for (y = y1; y <= y2; y++)
+ {
+ for (x = x1; x <= x2; x++)
+ {
if (centersign*((point_x[0] - x)*(point_y[1] - y)
- (point_y[0] - y)*(point_x[1] - x)) >= 0 &&
centersign*((point_x[1] - x)*(point_y[2] - y)
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) && projectable(p_ptr->y, p_ptr->x, y, x)) {
- (void)project_f(p_ptr->current_floor_ptr, 0, 0, y, x, dam, GF_MANA);
+ if (player_has_los_bold(caster_ptr, y, x) && projectable(caster_ptr, caster_ptr->y, caster_ptr->x, y, x))
+ {
+ (void)project_f(caster_ptr, 0, 0, y, x, dam, GF_MANA);
}
}
}
}
- for (y = y1; y <= y2; y++) {
- for (x = x1; x <= x2; x++) {
+
+ for (y = y1; y <= y2; y++)
+ {
+ for (x = x1; x <= x2; x++)
+ {
if (centersign*((point_x[0] - x)*(point_y[1] - y)
- (point_y[0] - y)*(point_x[1] - x)) >= 0 &&
centersign*((point_x[1] - x)*(point_y[2] - y)
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) && projectable(p_ptr->y, p_ptr->x, y, x)) {
- (void)project_o(0, 0, y, x, dam, GF_MANA);
+ if (player_has_los_bold(caster_ptr, y, x) && projectable(caster_ptr, caster_ptr->y, caster_ptr->x, y, x))
+ {
+ (void)project_o(caster_ptr, 0, 0, y, x, dam, GF_MANA);
}
}
}
}
- for (y = y1; y <= y2; y++) {
- for (x = x1; x <= x2; x++) {
+
+ for (y = y1; y <= y2; y++)
+ {
+ for (x = x1; x <= x2; x++)
+ {
if (centersign*((point_x[0] - x)*(point_y[1] - y)
- (point_y[0] - y)*(point_x[1] - x)) >= 0 &&
centersign*((point_x[1] - x)*(point_y[2] - y)
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) && projectable(p_ptr->y, p_ptr->x, y, x)) {
- (void)project_m(0, 0, y, x, dam, GF_MANA,
+ if (player_has_los_bold(caster_ptr, y, x) && projectable(caster_ptr, caster_ptr->y, caster_ptr->x, y, x))
+ {
+ (void)project_m(caster_ptr, 0, 0, y, x, dam, GF_MANA,
(PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP), TRUE);
}
}
}
}
- if (one_in_(7)) {
+
+ if (one_in_(7))
+ {
msg_print(_("鏡が結界に耐えきれず、壊れてしまった。", "The field broke a mirror"));
- remove_mirror(point_y[0], point_x[0]);
+ remove_mirror(caster_ptr, point_y[0], point_x[0]);
}
return TRUE;
* @param dam ダメージ量
* @return 効果があったらTRUEを返す
*/
-void seal_of_mirror(HIT_POINT dam)
+void seal_of_mirror(player_type *caster_ptr, HIT_POINT dam)
{
- POSITION x, y;
-
- for (x = 0; x < p_ptr->current_floor_ptr->width; x++)
+ for (POSITION x = 0; x < caster_ptr->current_floor_ptr->width; x++)
{
- for (y = 0; y < p_ptr->current_floor_ptr->height; y++)
+ for (POSITION y = 0; y < caster_ptr->current_floor_ptr->height; y++)
{
- if (is_mirror_grid(&p_ptr->current_floor_ptr->grid_array[y][x]))
+ if (!is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[y][x]))
+ continue;
+
+ if (!project_m(caster_ptr, 0, 0, y, x, dam, GF_GENOCIDE,
+ (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP), TRUE))
+ continue;
+
+ if (!caster_ptr->current_floor_ptr->grid_array[y][x].m_idx)
{
- if (project_m(0, 0, y, x, dam, GF_GENOCIDE,
- (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP), TRUE))
- {
- if (!p_ptr->current_floor_ptr->grid_array[y][x].m_idx)
- {
- remove_mirror(y, x);
- }
- }
+ remove_mirror(caster_ptr, y, x);
}
}
}
- return;
}
-
/*!
* @brief 領域魔法に応じて技能の名称を返す。
* @param tval 魔法書のtval
return _("呪文", "spell");
}
}
-