*/
#include "angband.h"
+#include "util.h"
+
#include "cmd-pet.h"
+#include "cmd-dump.h"
+#include "floor.h"
#include "trap.h"
+#include "autopick.h"
#include "object-curse.h"
#include "player-damage.h"
+#include "player-effects.h"
+#include "player-race.h"
+
+#include "monster.h"
+#include "monster-status.h"
+#include "monster-spell.h"
+#include "spells.h"
+#include "spells-status.h"
+#include "spells-diceroll.h"
+#include "spells-summon.h"
#include "monsterrace-hook.h"
+
#include "melee.h"
#include "world.h"
+#include "mutation.h"
+#include "rooms.h"
+#include "artifact.h"
+#include "avatar.h"
+#include "player-status.h"
+#include "player-move.h"
+#include "realm-hex.h"
+#include "object-hook.h"
+#include "object-broken.h"
+#include "object-flavor.h"
+#include "quest.h"
+#include "term.h"
+#include "grid.h"
+#include "feature.h"
+#include "view-mainwindow.h"
+#include "dungeon.h"
static int rakubadam_m; /*!< 振り落とされた際のダメージ量 */
/*!
- * @brief モンスター魅了用セービングスロー共通部(汎用系)
- * @param pow 魅了パワー
- * @param m_ptr 対象モンスター
- * @return 魅了に抵抗したらTRUE
+ * @brief 歌、剣術、呪術領域情報テーブル
*/
-static bool_hack common_saving_throw_charm(player_type *player_ptr, HIT_POINT pow, monster_type *m_ptr)
+const magic_type technic_info[NUM_TECHNIC][32] =
{
- monster_race *r_ptr = &r_info[m_ptr->r_idx];
-
- if(p_ptr->inside_arena) return TRUE;
-
- /* Memorize a flag */
- if (r_ptr->flagsr & RFR_RES_ALL)
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- return TRUE;
- }
+ /* Music */
+ { 1, 1, 10, 2},
+ { 2, 1, 10, 2},
+ { 3, 2, 20, 3},
+ { 4, 2, 20, 4},
+ { 5, 2, 20, 6},
+ { 7, 4, 30, 8},
+ { 9, 3, 30, 10},
+ { 10, 2, 30, 12},
+
+ { 12, 3, 40, 20},
+ { 15, 16, 42, 35},
+ { 17, 18, 40, 25},
+ { 18, 2, 45, 30},
+ { 23, 8, 50, 38},
+ { 28, 30, 50, 41},
+ { 33, 35, 60, 42},
+ { 38, 35, 70, 46},
+
+ { 10, 4, 20, 13},
+ { 22, 5, 30, 26},
+ { 23, 3, 35, 27},
+ { 26, 28, 37, 29},
+ { 32, 37, 41, 36},
+ { 33, 22, 43, 40},
+ { 37, 35, 46, 42},
+ { 45, 60, 50, 56},
+
+ { 23, 18, 20, 23},
+ { 30, 30, 30, 26},
+ { 33, 65, 41, 30},
+ { 37, 35, 43, 35},
+ { 40, 30, 46, 50},
+ { 42, 75, 50, 68},
+ { 45, 58, 62, 73},
+ { 49, 48, 70, 200}
+ },
- if (r_ptr->flags3 & RF3_NO_CONF)
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
- return TRUE;
- }
-
- if (r_ptr->flags1 & RF1_QUESTOR || m_ptr->mflag2 & MFLAG2_NOPET) return TRUE;
-
- pow += (adj_chr_chm[player_ptr->stat_ind[A_CHR]] - 1);
- if((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL)) pow = pow * 2 / 3;
- return (r_ptr->level > randint1((pow - 10) < 1 ? 1 : (pow - 10)) + 5);
-}
-
-/*!
- * @brief モンスター服従用セービングスロー共通部(部族依存系)
- * @param pow 服従パワー
- * @param m_ptr 対象モンスター
- * @return 服従に抵抗したらTRUE
- */
-static bool_hack common_saving_throw_control(player_type *player_ptr, HIT_POINT pow, monster_type *m_ptr)
-{
- monster_race *r_ptr = &r_info[m_ptr->r_idx];
-
- if (p_ptr->inside_arena) return TRUE;
+ /* Hissatsu */
+ { 1, 15, 0, 0},
+ { 3, 10, 0, 0},
+ { 6, 15, 0, 0},
+ { 9, 8, 0, 0},
+ { 10, 12, 0, 0},
+ { 12, 25, 0, 0},
+ { 14, 7, 0, 0},
+ { 17, 20, 0, 0},
+
+ { 19, 10, 0, 0},
+ { 22, 20, 0, 0},
+ { 24, 30, 0, 0},
+ { 25, 10, 0, 0},
+ { 27, 15, 0, 0},
+ { 29, 45, 0, 0},
+ { 32, 70, 0, 0},
+ { 35, 50, 0, 0},
+
+ { 18, 40, 0, 0},
+ { 22, 22, 0, 0},
+ { 24, 30, 0, 0},
+ { 26, 35, 0, 0},
+ { 30, 30, 0, 0},
+ { 32, 60, 0, 0},
+ { 36, 40, 0, 0},
+ { 39, 80, 0, 0},
+
+ { 26, 20, 0, 0},
+ { 29, 40, 0, 0},
+ { 31, 35, 0, 0},
+ { 36, 80, 0, 0},
+ { 39, 100, 0, 0},
+ { 42, 110, 0, 0},
+ { 45, 130, 0, 0},
+ { 50, 255, 0, 0}
+ },
- /* Memorize a flag */
- if (r_ptr->flagsr & RFR_RES_ALL)
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- return TRUE;
- }
-
- if (r_ptr->flags1 & RF1_QUESTOR || m_ptr->mflag2 & MFLAG2_NOPET) return TRUE;
-
- pow += adj_chr_chm[player_ptr->stat_ind[A_CHR]] - 1;
- if ((r_ptr->flags1 & RF1_UNIQUE) || (r_ptr->flags7 & RF7_NAZGUL)) pow = pow * 2 / 3;
- return (r_ptr->level > randint1((pow - 10) < 1 ? 1 : (pow - 10)) + 5);
-}
-
-/*!
-* @brief 一部ボルト魔法のビーム化確率を算出する / Prepare standard probability to become beam for fire_bolt_or_beam()
-* @return ビーム化確率(%)
-* @details
-* ハードコーティングによる実装が行われている。
-* メイジは(レベル)%、ハイメイジ、スペルマスターは(レベル)%、それ以外の職業は(レベル/2)%
-*/
-PERCENTAGE beam_chance(void)
-{
- if (p_ptr->pclass == CLASS_MAGE)
- return (PERCENTAGE)(p_ptr->lev);
- if (p_ptr->pclass == CLASS_HIGH_MAGE || p_ptr->pclass == CLASS_SORCERER)
- return (PERCENTAGE)(p_ptr->lev + 10);
+ /* Hex */
+ { 1, 2, 20, 2},
+ { 1, 2, 20, 2},
+ { 3, 2, 30, 3},
+ { 5, 3, 30, 4},
+ { 7, 3, 40, 6},
+ { 8, 10, 60, 8},
+ { 9, 3, 30, 10},
+ { 10, 5, 40, 12},
+
+ { 12, 8, 40, 15},
+ { 12, 9, 35, 15},
+ { 15, 10, 50, 20},
+ { 20, 12, 45, 35},
+ { 25, 15, 50, 50},
+ { 30, 12, 60, 70},
+ { 35, 10, 60, 80},
+ { 40, 16, 70, 100},
+
+ { 15, 8, 20, 20},
+ { 18, 15, 50, 20},
+ { 22, 10, 65, 35},
+ { 25, 28, 70, 50},
+ { 28, 10, 70, 60},
+ { 30, 20, 60, 60},
+ { 36, 22, 70, 80},
+ { 40, 28, 70, 100},
+
+ { 5, 6, 35, 5},
+ { 22, 24, 70, 40},
+ { 25, 2, 65, 50},
+ { 32, 20, 50, 70},
+ { 35, 35, 70, 80},
+ { 38, 32, 70, 90},
+ { 42, 24, 70, 120},
+ { 46, 45, 80, 200}
+ },
+};
- return (PERCENTAGE)(p_ptr->lev / 2);
-}
/*!
* @param cury 現在の鏡のy座標
* @param curx 現在の鏡のx座標
*/
-static void next_mirror(int* next_y, int* next_x, int cury, int curx)
+static void next_mirror(POSITION* next_y, POSITION* next_x, POSITION cury, POSITION curx)
{
- int mirror_x[10], mirror_y[10]; /* 鏡はもっと少ない */
+ POSITION mirror_x[10], mirror_y[10]; /* 鏡はもっと少ない */
int mirror_num = 0; /* 鏡の数 */
POSITION x, y;
int num;
- for (x = 0; x < cur_wid; x++)
+ for (x = 0; x < current_floor_ptr->width; x++)
{
- for (y = 0; y < cur_hgt; y++)
+ for (y = 0; y < current_floor_ptr->height; y++)
{
- if (is_mirror_grid(&cave[y][x])) {
+ if (is_mirror_grid(¤t_floor_ptr->grid_array[y][x])) {
mirror_y[mirror_num] = y;
mirror_x[mirror_num] = x;
mirror_num++;
*next_x = curx + randint0(5) - 2;
return;
}
-
-/*!
- * @brief 万色表現用にランダムな色を選択する関数 /
- * Get a legal "multi-hued" color for drawing "spells"
- * @param max 色IDの最大値
- * @return 選択した色ID
- */
-static TERM_COLOR mh_attr(int max)
-{
- switch (randint1(max))
- {
- case 1: return (TERM_RED);
- case 2: return (TERM_GREEN);
- case 3: return (TERM_BLUE);
- case 4: return (TERM_YELLOW);
- case 5: return (TERM_ORANGE);
- case 6: return (TERM_VIOLET);
- case 7: return (TERM_L_RED);
- case 8: return (TERM_L_GREEN);
- case 9: return (TERM_L_BLUE);
- case 10: return (TERM_UMBER);
- case 11: return (TERM_L_UMBER);
- case 12: return (TERM_SLATE);
- case 13: return (TERM_WHITE);
- case 14: return (TERM_L_WHITE);
- case 15: return (TERM_L_DARK);
- }
-
- return (TERM_WHITE);
-}
-
-
-/*!
- * @brief 魔法属性に応じたエフェクトの色を返す /
- * Return a color to use for the bolt/ball spells
- * @param type 魔法属性
- * @return 対応する色ID
- */
-static TERM_COLOR spell_color(int type)
-{
- /* Check if A.B.'s new graphics should be used (rr9) */
- if (streq(ANGBAND_GRAF, "new") || streq(ANGBAND_GRAF, "ne2"))
- {
- /* Analyze */
- switch (type)
- {
- case GF_PSY_SPEAR: return (0x06);
- case GF_MISSILE: return (0x0F);
- case GF_ACID: return (0x04);
- case GF_ELEC: return (0x02);
- case GF_FIRE: return (0x00);
- case GF_COLD: return (0x01);
- case GF_POIS: return (0x03);
- case GF_HOLY_FIRE: return (0x00);
- case GF_HELL_FIRE: return (0x00);
- case GF_MANA: return (0x0E);
- /* by henkma */
- case GF_SEEKER: return (0x0E);
- case GF_SUPER_RAY: return (0x0E);
-
- case GF_ARROW: return (0x0F);
- case GF_WATER: return (0x04);
- case GF_NETHER: return (0x07);
- case GF_CHAOS: return (mh_attr(15));
- case GF_DISENCHANT: return (0x05);
- case GF_NEXUS: return (0x0C);
- case GF_CONFUSION: return (mh_attr(4));
- case GF_SOUND: return (0x09);
- case GF_SHARDS: return (0x08);
- case GF_FORCE: return (0x09);
- case GF_INERTIAL: return (0x09);
- case GF_GRAVITY: return (0x09);
- case GF_TIME: return (0x09);
- case GF_LITE_WEAK: return (0x06);
- case GF_LITE: return (0x06);
- case GF_DARK_WEAK: return (0x07);
- case GF_DARK: return (0x07);
- case GF_PLASMA: return (0x0B);
- case GF_METEOR: return (0x00);
- case GF_ICE: return (0x01);
- case GF_ROCKET: return (0x0F);
- case GF_DEATH_RAY: return (0x07);
- case GF_NUKE: return (mh_attr(2));
- case GF_DISINTEGRATE: return (0x05);
- case GF_PSI:
- case GF_PSI_DRAIN:
- case GF_TELEKINESIS:
- case GF_DOMINATION:
- case GF_DRAIN_MANA:
- case GF_MIND_BLAST:
- case GF_BRAIN_SMASH:
- return (0x09);
- case GF_CAUSE_1:
- case GF_CAUSE_2:
- case GF_CAUSE_3:
- case GF_CAUSE_4: return (0x0E);
- case GF_HAND_DOOM: return (0x07);
- case GF_CAPTURE : return (0x0E);
- case GF_IDENTIFY: return (0x01);
- case GF_ATTACK: return (0x0F);
- case GF_PHOTO : return (0x06);
- }
- }
- /* Normal tiles or ASCII */
- else
- {
- TERM_COLOR a;
- SYMBOL_CODE c;
-
- /* Lookup the default colors for this type */
- concptr s = quark_str(gf_color[type]);
-
- if (!s) return (TERM_WHITE);
-
- /* Pick a random color */
- c = s[randint0(strlen(s))];
-
- /* Lookup this color */
- a = my_strchr(color_char, c) - color_char;
-
- /* Invalid color (note check for < 0 removed, gave a silly
- * warning because bytes are always >= 0 -- RG) */
- if (a > 15) return (TERM_WHITE);
-
- /* Use this color */
- return (a);
- }
-
- /* Standard "color" */
- return (TERM_WHITE);
-}
-
-
-/*!
- * @brief 始点から終点にかけた方向毎にボルトのキャラクタを返す /
- * Find the attr/char pair to use for a spell effect
- * @param y 始点Y座標
- * @param x 始点X座標
- * @param ny 終点Y座標
- * @param nx 終点X座標
- * @param typ 魔法の効果属性
- * @return 方向キャラID
- * @details
- * <pre>
- * It is moving (or has moved) from (x,y) to (nx,ny).
- * If the distance is not "one", we (may) return "*".
- * </pre>
- */
-u16b bolt_pict(POSITION y, POSITION x, POSITION ny, POSITION nx, EFFECT_ID typ)
-{
- int base;
-
- byte k;
-
- TERM_COLOR a;
- SYMBOL_CODE c;
-
- /* No motion (*) */
- if ((ny == y) && (nx == x)) base = 0x30;
-
- /* Vertical (|) */
- else if (nx == x) base = 0x40;
-
- /* Horizontal (-) */
- else if (ny == y) base = 0x50;
-
- /* Diagonal (/) */
- else if ((ny - y) == (x - nx)) base = 0x60;
-
- /* Diagonal (\) */
- else if ((ny - y) == (nx - x)) base = 0x70;
-
- /* Weird (*) */
- else base = 0x30;
-
- /* Basic spell color */
- k = spell_color(typ);
-
- /* Obtain attr/char */
- a = misc_to_attr[base + k];
- c = misc_to_char[base + k];
-
- /* Create pict */
- return (PICT(a, c));
-}
-
-
-/*!
- * @brief 始点から終点への経路を返す /
- * Determine the path taken by a projection.
- * @param gp 経路座標リストを返す参照ポインタ
- * @param range 距離
- * @param y1 始点Y座標
- * @param x1 始点X座標
- * @param y2 終点Y座標
- * @param x2 終点X座標
- * @param flg フラグID
- * @return リストの長さ
- * @details
- * <pre>
- * The projection will always start from the grid (y1,x1), and will travel
- * towards the grid (y2,x2), touching one grid per unit of distance along
- * the major axis, and stopping when it enters the destination grid or a
- * wall grid, or has travelled the maximum legal distance of "range".
- *
- * Note that "distance" in this function (as in the "update_view()" code)
- * is defined as "MAX(dy,dx) + MIN(dy,dx)/2", which means that the player
- * actually has an "octagon of projection" not a "circle of projection".
- *
- * The path grids are saved into the grid array pointed to by "gp", and
- * there should be room for at least "range" grids in "gp". Note that
- * due to the way in which distance is calculated, this function normally
- * uses fewer than "range" grids for the projection path, so the result
- * of this function should never be compared directly to "range". Note
- * that the initial grid (y1,x1) is never saved into the grid array, not
- * even if the initial grid is also the final grid.
- *
- * The "flg" flags can be used to modify the behavior of this function.
- *
- * In particular, the "PROJECT_STOP" and "PROJECT_THRU" flags have the same
- * semantics as they do for the "project" function, namely, that the path
- * will stop as soon as it hits a monster, or that the path will continue
- * through the destination grid, respectively.
- *
- * The "PROJECT_JUMP" flag, which for the "project()" function means to
- * start at a special grid (which makes no sense in this function), means
- * that the path should be "angled" slightly if needed to avoid any wall
- * grids, allowing the player to "target" any grid which is in "view".
- * This flag is non-trivial and has not yet been implemented, but could
- * perhaps make use of the "vinfo" array (above).
- *
- * This function returns the number of grids (if any) in the path. This
- * function will return zero if and only if (y1,x1) and (y2,x2) are equal.
- *
- * This algorithm is similar to, but slightly different from, the one used
- * by "update_view_los()", and very different from the one used by "los()".
- * </pre>
- */
-sint project_path(u16b *gp, POSITION range, POSITION y1, POSITION x1, POSITION y2, POSITION x2, BIT_FLAGS flg)
-{
- POSITION y, x;
-
- int n = 0;
- int k = 0;
-
- /* Absolute */
- POSITION ay, ax;
-
- /* Offsets */
- POSITION sy, sx;
-
- /* Fractions */
- int frac;
-
- /* Scale factors */
- int full, half;
-
- /* Slope */
- int m;
-
- /* No path necessary (or allowed) */
- if ((x1 == x2) && (y1 == y2)) return (0);
-
-
- /* Analyze "dy" */
- if (y2 < y1)
- {
- ay = (y1 - y2);
- sy = -1;
- }
- else
- {
- ay = (y2 - y1);
- sy = 1;
- }
-
- /* Analyze "dx" */
- if (x2 < x1)
- {
- ax = (x1 - x2);
- sx = -1;
- }
- else
- {
- ax = (x2 - x1);
- sx = 1;
- }
-
-
- /* Number of "units" in one "half" grid */
- half = (ay * ax);
-
- /* Number of "units" in one "full" grid */
- full = half << 1;
-
- /* Vertical */
- if (ay > ax)
- {
- /* Let m = ((dx/dy) * full) = (dx * dx * 2) */
- m = ax * ax * 2;
-
- /* Start */
- y = y1 + sy;
- x = x1;
-
- frac = m;
-
- if (frac > half)
- {
- /* Advance (X) part 2 */
- x += sx;
-
- /* Advance (X) part 3 */
- frac -= full;
-
- /* Track distance */
- k++;
- }
-
- /* Create the projection path */
- while (1)
- {
- /* Save grid */
- gp[n++] = GRID(y, x);
-
- /* Hack -- Check maximum range */
- if ((n + (k >> 1)) >= range) break;
-
- /* Sometimes stop at destination grid */
- if (!(flg & (PROJECT_THRU)))
- {
- if ((x == x2) && (y == y2)) break;
- }
-
- if (flg & (PROJECT_DISI))
- {
- if ((n > 0) && cave_stop_disintegration(y, x)) break;
- }
- else if (flg & (PROJECT_LOS))
- {
- if ((n > 0) && !cave_los_bold(y, x)) break;
- }
- else if (!(flg & (PROJECT_PATH)))
- {
- /* Always stop at non-initial wall grids */
- if ((n > 0) && !cave_have_flag_bold(y, x, FF_PROJECT)) break;
- }
-
- /* Sometimes stop at non-initial monsters/players */
- if (flg & (PROJECT_STOP))
- {
- if ((n > 0) &&
- (player_bold(y, x) || cave[y][x].m_idx != 0))
- break;
- }
-
- if (!in_bounds(y, x)) break;
-
- /* Slant */
- if (m)
- {
- /* Advance (X) part 1 */
- frac += m;
-
- /* Horizontal change */
- if (frac > half)
- {
- /* Advance (X) part 2 */
- x += sx;
-
- /* Advance (X) part 3 */
- frac -= full;
-
- /* Track distance */
- k++;
- }
- }
-
- /* Advance (Y) */
- y += sy;
- }
- }
-
- /* Horizontal */
- else if (ax > ay)
- {
- /* Let m = ((dy/dx) * full) = (dy * dy * 2) */
- m = ay * ay * 2;
-
- /* Start */
- y = y1;
- x = x1 + sx;
-
- frac = m;
-
- /* Vertical change */
- if (frac > half)
- {
- /* Advance (Y) part 2 */
- y += sy;
-
- /* Advance (Y) part 3 */
- frac -= full;
-
- /* Track distance */
- k++;
- }
-
- /* Create the projection path */
- while (1)
- {
- /* Save grid */
- gp[n++] = GRID(y, x);
-
- /* Hack -- Check maximum range */
- if ((n + (k >> 1)) >= range) break;
-
- /* Sometimes stop at destination grid */
- if (!(flg & (PROJECT_THRU)))
- {
- if ((x == x2) && (y == y2)) break;
- }
-
- if (flg & (PROJECT_DISI))
- {
- if ((n > 0) && cave_stop_disintegration(y, x)) break;
- }
- else if (flg & (PROJECT_LOS))
- {
- if ((n > 0) && !cave_los_bold(y, x)) break;
- }
- else if (!(flg & (PROJECT_PATH)))
- {
- /* Always stop at non-initial wall grids */
- if ((n > 0) && !cave_have_flag_bold(y, x, FF_PROJECT)) break;
- }
-
- /* Sometimes stop at non-initial monsters/players */
- if (flg & (PROJECT_STOP))
- {
- if ((n > 0) &&
- (player_bold(y, x) || cave[y][x].m_idx != 0))
- break;
- }
-
- if (!in_bounds(y, x)) break;
-
- /* Slant */
- if (m)
- {
- /* Advance (Y) part 1 */
- frac += m;
-
- /* Vertical change */
- if (frac > half)
- {
- /* Advance (Y) part 2 */
- y += sy;
-
- /* Advance (Y) part 3 */
- frac -= full;
-
- /* Track distance */
- k++;
- }
- }
-
- /* Advance (X) */
- x += sx;
- }
- }
-
- /* Diagonal */
- else
- {
- /* Start */
- y = y1 + sy;
- x = x1 + sx;
-
- /* Create the projection path */
- while (1)
- {
- /* Save grid */
- gp[n++] = GRID(y, x);
-
- /* Hack -- Check maximum range */
- if ((n + (n >> 1)) >= range) break;
-
- /* Sometimes stop at destination grid */
- if (!(flg & (PROJECT_THRU)))
- {
- if ((x == x2) && (y == y2)) break;
- }
-
- if (flg & (PROJECT_DISI))
- {
- if ((n > 0) && cave_stop_disintegration(y, x)) break;
- }
- else if (flg & (PROJECT_LOS))
- {
- if ((n > 0) && !cave_los_bold(y, x)) break;
- }
- else if (!(flg & (PROJECT_PATH)))
- {
- /* Always stop at non-initial wall grids */
- if ((n > 0) && !cave_have_flag_bold(y, x, FF_PROJECT)) break;
- }
-
- /* Sometimes stop at non-initial monsters/players */
- if (flg & (PROJECT_STOP))
- {
- if ((n > 0) &&
- (player_bold(y, x) || cave[y][x].m_idx != 0))
- break;
- }
-
- if (!in_bounds(y, x)) break;
-
- /* Advance (Y) */
- y += sy;
-
- /* Advance (X) */
- x += sx;
- }
- }
-
- /* Length */
- return (n);
-}
-
/*
*/
static bool project_f(MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ)
{
- cave_type *c_ptr = &cave[y][x];
- feature_type *f_ptr = &f_info[c_ptr->feat];
+ grid_type *g_ptr = ¤t_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);
cave_set_feat(y, x, one_in_(3) ? feat_brake : feat_grass);
/* Observe */
- if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
+ if (g_ptr->info & (CAVE_MARK)) obvious = TRUE;
}
}
case GF_KILL_TRAP:
{
/* Reveal secret doors */
- if (is_hidden_door(c_ptr))
+ if (is_hidden_door(g_ptr))
{
/* Pick a door */
disclose_grid(y, x);
}
/* Destroy traps */
- if (is_trap(c_ptr->feat))
+ if (is_trap(g_ptr->feat))
{
/* Check line of sight */
if (known)
}
/* Locked doors are unlocked */
- if (is_closed_door(c_ptr->feat) && f_ptr->power && have_flag(f_ptr->flags, FF_OPEN))
+ if (is_closed_door(g_ptr->feat) && f_ptr->power && have_flag(f_ptr->flags, FF_OPEN))
{
- s16b old_feat = c_ptr->feat;
+ FEAT_IDX old_feat = g_ptr->feat;
/* Unlock the door */
cave_alter_feat(y, x, FF_DISARM);
/* Check line of sound */
- if (known && (old_feat != c_ptr->feat))
+ if (known && (old_feat != g_ptr->feat))
{
msg_print(_("カチッと音がした！", "Click!"));
obvious = TRUE;
/* Remove "unsafe" flag if player is not blind */
if (!p_ptr->blind && player_has_los_bold(y, x))
{
- c_ptr->info &= ~(CAVE_UNSAFE);
+ g_ptr->info &= ~(CAVE_UNSAFE);
lite_spot(y, x);
obvious = TRUE;
}
case GF_KILL_DOOR:
{
/* Destroy all doors and traps */
- if (is_trap(c_ptr->feat) || have_flag(f_ptr->flags, FF_DOOR))
+ if (is_trap(g_ptr->feat) || have_flag(f_ptr->flags, FF_DOOR))
{
/* Check line of sight */
if (known)
/* Remove "unsafe" flag if player is not blind */
if (!p_ptr->blind && player_has_los_bold(y, x))
{
- c_ptr->info &= ~(CAVE_UNSAFE);
+ g_ptr->info &= ~(CAVE_UNSAFE);
lite_spot(y, x);
obvious = TRUE;
}
{
if (have_flag(f_ptr->flags, FF_SPIKE))
{
- s16b old_mimic = c_ptr->mimic;
- feature_type *mimic_f_ptr = &f_info[get_feat_mimic(c_ptr)];
+ 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);
- c_ptr->mimic = old_mimic;
+ g_ptr->mimic = old_mimic;
note_spot(y, x);
lite_spot(y, x);
{
if (have_flag(f_ptr->flags, FF_HURT_ROCK))
{
- if (known && (c_ptr->info & (CAVE_MARK)))
+ if (known && (g_ptr->info & (CAVE_MARK)))
{
- msg_format(_("%sが溶けて泥になった！", "The %s turns into mud!"), f_name + f_info[get_feat_mimic(c_ptr)].name);
+ msg_format(_("%sが溶けて泥になった！", "The %s turns into mud!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
obvious = TRUE;
}
/* Destroy the wall */
cave_alter_feat(y, x, FF_HURT_ROCK);
-
- /* Update some things */
p_ptr->update |= (PU_FLOW);
}
break;
}
- /* Make doors */
case GF_MAKE_DOOR:
{
- /* Require a "naked" floor grid */
if (!cave_naked_bold(y, x)) break;
-
- /* Not on the player */
if (player_bold(y, x)) break;
-
- /* Create a closed door */
cave_set_feat(y, x, feat_door[DOOR_DOOR].closed);
-
- /* Observe */
- if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
-
+ if (g_ptr->info & (CAVE_MARK)) obvious = TRUE;
break;
}
- /* Make traps */
case GF_MAKE_TRAP:
{
- /* Place a trap */
place_trap(y, x);
-
break;
}
- /* Make doors */
case GF_MAKE_TREE:
{
- /* Require a "naked" floor grid */
if (!cave_naked_bold(y, x)) break;
-
- /* Not on the player */
if (player_bold(y, x)) break;
-
- /* Create a closed door */
cave_set_feat(y, x, feat_tree);
-
- /* Observe */
- if (c_ptr->info & (CAVE_MARK)) obvious = TRUE;
-
-
+ if (g_ptr->info & (CAVE_MARK)) obvious = TRUE;
break;
}
case GF_MAKE_GLYPH:
{
- /* Require a "naked" floor grid */
if (!cave_naked_bold(y, x)) break;
-
- /* Create a glyph */
- c_ptr->info |= CAVE_OBJECT;
- c_ptr->mimic = feat_glyph;
-
+ g_ptr->info |= CAVE_OBJECT;
+ g_ptr->mimic = feat_glyph;
note_spot(y, x);
-
lite_spot(y, x);
-
break;
}
case GF_STONE_WALL:
{
- /* Require a "naked" floor grid */
if (!cave_naked_bold(y, x)) break;
-
- /* Not on the player */
if (player_bold(y, x)) break;
-
- /* Place a wall */
cave_set_feat(y, x, feat_granite);
-
break;
}
-
case GF_LAVA_FLOW:
{
- /* Ignore permanent grid */
if (have_flag(f_ptr->flags, FF_PERMANENT)) break;
-
- /* Shallow Lava */
if (dam == 1)
{
- /* Ignore grid without enough space */
if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
-
- /* Place a shallow lava */
cave_set_feat(y, x, feat_shallow_lava);
}
- /* Deep Lava */
else if (dam)
{
- /* Place a deep lava */
cave_set_feat(y, x, feat_deep_lava);
}
break;
case GF_WATER_FLOW:
{
- /* Ignore permanent grid */
if (have_flag(f_ptr->flags, FF_PERMANENT)) break;
-
- /* Shallow Water */
if (dam == 1)
{
- /* Ignore grid without enough space */
if (!have_flag(f_ptr->flags, FF_FLOOR)) break;
-
- /* Place a shallow water */
cave_set_feat(y, x, feat_shallow_water);
}
- /* Deep Water */
else if (dam)
{
- /* Place a deep water */
cave_set_feat(y, x, feat_deep_water);
}
break;
case GF_LITE:
{
/* Turn on the light */
- if (!(d_info[dungeon_type].flags1 & DF1_DARKNESS))
+ if (!(d_info[p_ptr->dungeon_idx].flags1 & DF1_DARKNESS))
{
- c_ptr->info |= (CAVE_GLOW);
+ g_ptr->info |= (CAVE_GLOW);
note_spot(y, x);
lite_spot(y, x);
update_local_illumination(y, x);
/* Mega-Hack -- Update the monster in the affected grid */
/* This allows "spear of light" (etc) to work "correctly" */
- if (c_ptr->m_idx) update_monster(c_ptr->m_idx, FALSE);
+ if (g_ptr->m_idx) update_monster(g_ptr->m_idx, FALSE);
if (p_ptr->special_defense & NINJA_S_STEALTH)
{
case GF_DARK_WEAK:
case GF_DARK:
{
- bool do_dark = !p_ptr->inside_battle && !is_mirror_grid(c_ptr);
+ bool do_dark = !p_ptr->inside_battle && !is_mirror_grid(g_ptr);
int j;
/* Turn off the light. */
if (do_dark)
{
- if (dun_level || !is_daytime())
+ if (current_floor_ptr->dun_level || !is_daytime())
{
for (j = 0; j < 9; j++)
{
if (in_bounds2(by, bx))
{
- cave_type *cc_ptr = &cave[by][bx];
+ grid_type *cc_ptr = ¤t_floor_ptr->grid_array[by][bx];
if (have_flag(f_info[get_feat_mimic(cc_ptr)].flags, FF_GLOW))
{
if (!do_dark) break;
}
- c_ptr->info &= ~(CAVE_GLOW);
+ g_ptr->info &= ~(CAVE_GLOW);
/* Hack -- Forget "boring" grids */
if (!have_flag(f_ptr->flags, FF_REMEMBER))
{
/* Forget */
- c_ptr->info &= ~(CAVE_MARK);
+ g_ptr->info &= ~(CAVE_MARK);
note_spot(y, x);
}
/* Mega-Hack -- Update the monster in the affected grid */
/* This allows "spear of light" (etc) to work "correctly" */
- if (c_ptr->m_idx) update_monster(c_ptr->m_idx, FALSE);
+ if (g_ptr->m_idx) update_monster(g_ptr->m_idx, FALSE);
}
/* All done */
case GF_SHARDS:
case GF_ROCKET:
{
- if (is_mirror_grid(c_ptr))
+ if (is_mirror_grid(g_ptr))
{
msg_print(_("鏡が割れた！", "The mirror was crashed!"));
sound(SOUND_GLASS);
if (have_flag(f_ptr->flags, FF_GLASS) && !have_flag(f_ptr->flags, FF_PERMANENT) && (dam >= 50))
{
- if (known && (c_ptr->info & CAVE_MARK))
+ if (known && (g_ptr->info & CAVE_MARK))
{
- msg_format(_("%sが割れた！", "The %s was crashed!"), f_name + f_info[get_feat_mimic(c_ptr)].name);
+ msg_format(_("%sが割れた！", "The %s was crashed!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
sound(SOUND_GLASS);
}
/* Destroy the wall */
cave_alter_feat(y, x, FF_HURT_ROCK);
-
- /* Update some things */
p_ptr->update |= (PU_FLOW);
}
break;
case GF_SOUND:
{
- if (is_mirror_grid(c_ptr) && p_ptr->lev < 40)
+ if (is_mirror_grid(g_ptr) && p_ptr->lev < 40)
{
msg_print(_("鏡が割れた！", "The mirror was crashed!"));
sound(SOUND_GLASS);
if (have_flag(f_ptr->flags, FF_GLASS) && !have_flag(f_ptr->flags, FF_PERMANENT) && (dam >= 200))
{
- if (known && (c_ptr->info & CAVE_MARK))
+ if (known && (g_ptr->info & CAVE_MARK))
{
- msg_format(_("%sが割れた！", "The %s was crashed!"), f_name + f_info[get_feat_mimic(c_ptr)].name);
+ msg_format(_("%sが割れた！", "The %s was crashed!"), f_name + f_info[get_feat_mimic(g_ptr)].name);
sound(SOUND_GLASS);
}
/* Destroy the wall */
cave_alter_feat(y, x, FF_HURT_ROCK);
-
- /* Update some things */
p_ptr->update |= (PU_FLOW);
}
break;
case GF_DISINTEGRATE:
{
/* Destroy mirror/glyph */
- if (is_mirror_grid(c_ptr) || is_glyph_grid(c_ptr) || is_explosive_rune_grid(c_ptr))
+ if (is_mirror_grid(g_ptr) || is_glyph_grid(g_ptr) || is_explosive_rune_grid(g_ptr))
remove_mirror(y, x);
/* Permanent features don't get effect */
*/
static bool project_o(MONSTER_IDX who, POSITION r, POSITION y, POSITION x, HIT_POINT dam, EFFECT_ID typ)
{
- cave_type *c_ptr = &cave[y][x];
+ grid_type *g_ptr = ¤t_floor_ptr->grid_array[y][x];
OBJECT_IDX this_o_idx, next_o_idx = 0;
/* Scan all objects in the grid */
- for (this_o_idx = c_ptr->o_idx; this_o_idx; this_o_idx = next_o_idx)
+ for (this_o_idx = g_ptr->o_idx; this_o_idx; this_o_idx = next_o_idx)
{
- object_type *o_ptr = &o_list[this_o_idx];
+ object_type *o_ptr = ¤t_floor_ptr->o_list[this_o_idx];
bool is_art = FALSE;
bool ignore = FALSE;
/* Get the "plural"-ness */
bool plural = (o_ptr->number > 1);
#endif
-
- /* Acquire next object */
next_o_idx = o_ptr->next_o_idx;
object_flags(o_ptr, flgs);
int i;
BIT_FLAGS mode = 0L;
- if (!who || is_pet(&m_list[who]))
+ if (!who || is_pet(¤t_floor_ptr->m_list[who]))
mode |= PM_FORCE_PET;
for (i = 0; i < o_ptr->number ; i++)
{
int tmp;
- cave_type *c_ptr = &cave[y][x];
+ grid_type *g_ptr = ¤t_floor_ptr->grid_array[y][x];
- monster_type *m_ptr = &m_list[c_ptr->m_idx];
- monster_type *caster_ptr = (who > 0) ? &m_list[who] : NULL;
+ monster_type *m_ptr = ¤t_floor_ptr->m_list[g_ptr->m_idx];
+ monster_type *caster_ptr = (who > 0) ? ¤t_floor_ptr->m_list[who] : NULL;
monster_race *r_ptr = &r_info[m_ptr->r_idx];
/* Assume a default death */
concptr note_dies = extract_note_dies(real_r_idx(m_ptr));
- POSITION ty = m_ptr->fy;
- POSITION tx = m_ptr->fx;
-
DEPTH caster_lev = (who > 0) ? r_info[caster_ptr->r_idx].level : (p_ptr->lev * 2);
/* Nobody here */
- if (!c_ptr->m_idx) return (FALSE);
+ if (!g_ptr->m_idx) return (FALSE);
/* Never affect projector */
- if (who && (c_ptr->m_idx == who)) return (FALSE);
- if ((c_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 == p_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 */
/* Get the monster possessive ("his"/"her"/"its") */
monster_desc(m_poss, m_ptr, MD_PRON_VISIBLE | MD_POSSESSIVE);
- if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) disturb(TRUE, TRUE);
+ if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) disturb(TRUE, TRUE);
- /* Analyze the damage type */
- switch (typ)
+ if (r_ptr->flagsr & RFR_RES_ALL &&
+ typ != GF_OLD_CLONE && typ != GF_STAR_HEAL && typ != GF_OLD_HEAL
+ && typ != GF_OLD_SPEED && typ != GF_CAPTURE && typ != GF_PHOTO)
{
- /* Magic Missile -- pure damage */
- case GF_MISSILE:
+ 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;
+ }
+ else
+ {
+ /* Analyze the damage type */
+ switch (typ)
{
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Magic Missile -- pure damage */
+ case GF_MISSILE:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (seen) obvious = TRUE;
break;
}
- break;
- }
-
- /* Acid */
- case GF_ACID:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Acid */
+ case GF_ACID:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Electricity */
- case GF_ELEC:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Electricity */
+ case GF_ELEC:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Fire damage */
- case GF_FIRE:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Fire damage */
+ case GF_FIRE:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Cold */
- case GF_COLD:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Cold */
+ case GF_COLD:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Poison */
- case GF_POIS:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Poison */
+ case GF_POIS:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Nuclear waste */
- case GF_NUKE:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Nuclear waste */
+ case GF_NUKE:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Hellfire -- hurts Evil */
- case GF_HELL_FIRE:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Hellfire -- hurts Evil */
+ case GF_HELL_FIRE:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Holy Fire -- hurts Evil, Good are immune, others _resist_ */
- case GF_HOLY_FIRE:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Holy Fire -- hurts Evil, Good are immune, others _resist_ */
+ case GF_HOLY_FIRE:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags3 & RF3_EVIL)
+ {
+ 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;
}
- if (r_ptr->flags3 & RF3_GOOD)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= RF3_GOOD;
- }
- else if (r_ptr->flags3 & RF3_EVIL)
- {
- 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;
- }
-
- /* Arrow -- XXX no defense */
- case GF_ARROW:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Arrow -- XXX no defense */
+ case GF_ARROW:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (seen) obvious = TRUE;
break;
}
- break;
- }
-
- /* Plasma -- XXX perhaps check ELEC or FIRE */
- case GF_PLASMA:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Plasma -- XXX perhaps check ELEC or FIRE */
+ case GF_PLASMA:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_PLAS)
+ {
+ 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 (r_ptr->flagsr & RFR_RES_PLAS)
+
+ /* Nether -- see above */
+ case GF_NETHER:
{
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_PLAS);
+ 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;
}
- break;
- }
-
- /* Nether -- see above */
- case GF_NETHER:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Water (acid) damage -- Water spirits/elementals are immune */
+ case GF_WATER:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- if (r_ptr->flagsr & RFR_RES_NETH)
+
+ /* Chaos -- Chaos breathers resist */
+ case GF_CHAOS:
{
- if (r_ptr->flags3 & RF3_UNDEAD)
+ if (seen) obvious = TRUE;
+ if (r_ptr->flagsr & RFR_RES_CHAO)
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ 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;
+ }
+
+ /* Shards -- Shard breathers resist */
+ case GF_SHARDS:
+ {
+ 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);
}
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_NETH);
+ break;
}
- else if (r_ptr->flags3 & RF3_EVIL)
+
+ /* Rocket: Shard resistance helps */
+ case GF_ROCKET:
{
- note = _("はいくらか耐性を示した。", " resists somewhat.");
- dam /= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+ 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;
}
- break;
- }
- /* Water (acid) damage -- Water spirits/elementals are immune */
- case GF_WATER:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Sound -- Sound breathers resist */
+ case GF_SOUND:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- if (r_ptr->flagsr & RFR_RES_WATE)
+
+ /* Confusion */
+ case GF_CONFUSION:
{
- if ((m_ptr->r_idx == MON_WATER_ELEM) || (m_ptr->r_idx == MON_UNMAKER))
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- }
- else
+ 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);
}
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_WATE);
+ else do_conf = (10 + randint1(15) + r) / (r + 1);
+ break;
}
- break;
- }
-
- /* Chaos -- Chaos breathers resist */
- case GF_CHAOS:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Disenchantment -- Breathers and Disenchanters resist */
+ case GF_DISENCHANT:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- if (r_ptr->flagsr & RFR_RES_CHAO)
+
+ /* Nexus -- Breathers and Existers resist */
+ case GF_NEXUS:
{
- note = _("には耐性がある。", " resists.");
- dam *= 3; dam /= randint1(6) + 6;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_CHAO);
+ 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;
}
- else if ((r_ptr->flags3 & RF3_DEMON) && one_in_(3))
+
+ /* Force */
+ case GF_FORCE:
{
- 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);
+ 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;
}
- break;
- }
-
- /* Shards -- Shard breathers resist */
- case GF_SHARDS:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Inertia -- breathers resist */
+ case GF_INERTIAL:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Rocket: Shard resistance helps */
- case GF_ROCKET:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Time -- breathers resist */
+ case GF_TIME:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- if (r_ptr->flagsr & RFR_RES_SHAR)
+
+ /* Gravity -- breathers resist */
+ case GF_GRAVITY:
{
- note = _("はいくらか耐性を示した。", " resists somewhat.");
- dam /= 2;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_SHAR);
- }
- break;
- }
+ 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;
+ }
+ }
- /* Sound -- Sound breathers resist */
- case GF_SOUND:
- {
- if (seen) obvious = 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_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- 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;
- }
+ 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);
+ }
+ 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.");
+ }
+ }
- /* Confusion */
- case GF_CONFUSION:
- {
- if (seen) obvious = TRUE;
+ /* 2. stun */
+ do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ /* 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;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected!");
+ obvious = FALSE;
+ }
+ }
break;
}
- 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;
- }
-
- /* Disenchantment -- Breathers and Disenchanters resist */
- case GF_DISENCHANT:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Pure damage */
+ case GF_MANA:
+ case GF_SEEKER:
+ case GF_SUPER_RAY:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (seen) obvious = TRUE;
break;
}
- 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;
- }
- /* Nexus -- Breathers and Existers resist */
- case GF_NEXUS:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Pure damage */
+ case GF_DISINTEGRATE:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- 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;
- }
-
- /* Force */
- case GF_FORCE:
- {
- if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- if (r_ptr->flagsr & RFR_RES_WALL)
+ case GF_PSI:
{
- 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 (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- 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))
+ /* PSI only works if the monster can see you! -- RG */
+ if (!(los(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x)))
{
- obvious = FALSE;
+ if (seen_msg)
+ msg_format(_("%sはあなたが見えないので影響されない！", "%^s can't see you, and isn't affected!"), m_name);
+ skipped = TRUE;
+ break;
}
- /* Normal monsters slow down */
- else
+ 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);
+
+ }
+ else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
+ (r_ptr->flags3 & RF3_ANIMAL) ||
+ (r_ptr->level > randint1(3 * dam)))
{
- if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
+ 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 = _("の動きが遅くなった。", " starts moving slower.");
+ 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())
+ {
+ msg_print(_("しかし効力を跳ね返した！", "You resist the effects!"));
+ }
+ else
+ {
+ /* Injure +/- confusion */
+ monster_desc(killer, m_ptr, MD_WRONGDOER_NAME);
+ take_hit(DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
+ if (one_in_(4) && !CHECK_MULTISHADOW())
+ {
+ switch (randint1(4))
+ {
+ case 1:
+ set_confused(p_ptr->confused + 3 + randint1(dam));
+ break;
+ case 2:
+ set_stun(p_ptr->stun + randint1(dam));
+ break;
+ case 3:
+ {
+ if (r_ptr->flags3 & RF3_NO_FEAR)
+ note = _("には効果がなかった。", " is unaffected.");
+ else
+ set_afraid(p_ptr->afraid + 3 + randint1(dam));
+ break;
+ }
+ default:
+ if (!p_ptr->free_act)
+ (void)set_paralyzed(p_ptr->paralyzed + randint1(dam));
+ break;
+ }
+ }
+ }
+ dam = 0;
}
}
- }
- break;
- }
- /* Time -- breathers resist */
- case GF_TIME:
- {
- if (seen) obvious = 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 (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
break;
}
- 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;
- }
- /* Gravity -- breathers resist */
- case GF_GRAVITY:
- {
- bool resist_tele = FALSE;
-
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- if (r_ptr->flagsr & RFR_RES_TELE)
+ case GF_PSI_DRAIN:
{
- if (r_ptr->flags1 & (RF1_UNIQUE))
+ if (seen) obvious = TRUE;
+ if (r_ptr->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;
+ dam = 0;
+ note = _("には完全な耐性がある！", " is immune.");
}
- else if (r_ptr->level > randint1(100))
+ else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
+ (r_ptr->flags3 & RF3_ANIMAL) ||
+ (r_ptr->level > randint1(3 * dam)))
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
note = _("には耐性がある！", " resists!");
- resist_tele = TRUE;
- }
- }
+ dam /= 3;
- if (!resist_tele) do_dist = 10;
- else do_dist = 0;
- if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) do_dist = 0;
+ /*
+ * 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())
+ {
+ msg_print(_("あなたは効力を跳ね返した！", "You resist the effects!"));
+ }
+ else
+ {
+ /* Injure + mana drain */
+ monster_desc(killer, m_ptr, MD_WRONGDOER_NAME);
+ if (!CHECK_MULTISHADOW())
+ {
+ 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(DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
+ }
+ dam = 0;
+ }
+ }
+ 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);
- 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);
+ 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;
}
- else
+
+ case GF_TELEKINESIS:
{
- /* 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 (seen) obvious = TRUE;
+ if (one_in_(4))
{
- if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
- {
- note = _("の動きが遅くなった。", " starts moving slower.");
- }
+ if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) do_dist = 0;
+ else do_dist = 7;
}
- /* 2. stun */
- do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
+ /* 1. 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 ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->level > 5 + randint1(dam)))
{
/* 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;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- break;
- }
-
-
- /* Pure damage */
- case GF_DISINTEGRATE:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- 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;
-
- /* PSI only works if the monster can see you! -- RG */
- if (!(los(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x)))
+ /* Psycho-spear -- powerful magic missile */
+ case GF_PSY_SPEAR:
{
- if (seen_msg)
- msg_format(_("%sはあなたが見えないので影響されない！", "%^s can't see you, and isn't affected!"), m_name);
- skipped = TRUE;
+ if (seen) obvious = TRUE;
break;
}
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Meteor -- powerful magic missile */
+ case GF_METEOR:
{
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ if (seen) obvious = 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);
- }
- else if ((r_ptr->flags2 & (RF2_STUPID | RF2_WEIRD_MIND)) ||
- (r_ptr->flags3 & RF3_ANIMAL) ||
- (r_ptr->level > randint1(3 * dam)))
+ case GF_DOMINATION:
{
- 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 > p_ptr->lev / 2) &&
- one_in_(2))
+ 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))
{
- 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())
+ /* Memorize a flag */
+ if (r_ptr->flags3 & RF3_NO_CONF)
{
- msg_print(_("しかし効力を跳ね返した！", "You resist the effects!"));
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
}
- else
+
+ /* Resist */
+ do_conf = 0;
+
+ /*
+ * 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)))
{
- /* Injure +/- confusion */
- monster_desc(killer, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
- take_hit(DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
- if (one_in_(4) && !CHECK_MULTISHADOW())
+ 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_confused(p_ptr->confused + 3 + randint1(dam));
+ set_stun(p_ptr->stun + dam / 2);
break;
case 2:
- set_stun(p_ptr->stun + randint1(dam));
+ set_confused(p_ptr->confused + dam / 2);
break;
- case 3:
+ default:
{
if (r_ptr->flags3 & RF3_NO_FEAR)
note = _("には効果がなかった。", " is unaffected.");
else
- set_afraid(p_ptr->afraid + 3 + randint1(dam));
- break;
+ set_afraid(p_ptr->afraid + dam);
}
- default:
- if (!p_ptr->free_act)
- (void)set_paralyzed(p_ptr->paralyzed + randint1(dam));
- break;
}
}
}
- dam = 0;
- }
- }
-
- 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;
- }
- }
-
- note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
- break;
- }
-
- case GF_PSI_DRAIN:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- if (r_ptr->flags2 & RF2_EMPTY_MIND)
- {
- dam = 0;
- note = _("には完全な耐性がある！", " is immune.");
- }
- 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 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())
- {
- msg_print(_("あなたは効力を跳ね返した！", "You resist the effects!"));
- }
else
{
- /* Injure + mana drain */
- monster_desc(killer, m_ptr, MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
- if (!CHECK_MULTISHADOW())
- {
- 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(DAMAGE_ATTACK, dam, killer, -1); /* has already been /3 */
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
}
- dam = 0;
}
- }
- 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 (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- if (one_in_(4))
- {
- if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) do_dist = 0;
- else do_dist = 7;
- }
-
- /* 1. 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)))
- {
- /* Resist */
- do_stun = 0;
- /* No obvious effect */
- obvious = FALSE;
- }
- break;
- }
-
- /* Psycho-spear -- powerful magic missile */
- case GF_PSY_SPEAR:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- break;
- }
-
- /* Meteor -- powerful magic missile */
- case GF_METEOR:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- break;
- }
-
- case GF_DOMINATION:
- {
- if (!is_hostile(m_ptr)) break;
-
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & (RF1_UNIQUE | 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);
- }
-
- /* 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 > p_ptr->lev / 2) &&
- (one_in_(2)))
+ else
{
- 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)
+ if (!common_saving_throw_charm(p_ptr, dam, m_ptr))
{
- msg_print(_("しかし効力を跳ね返した！", "You resist the effects!"));
+ note = _("があなたに隷属した。", " is in your thrall!");
+ set_pet(m_ptr);
}
else
{
- /* Confuse, stun, terrify */
switch (randint1(4))
{
case 1:
- set_stun(p_ptr->stun + dam / 2);
+ do_stun = dam / 2;
break;
case 2:
- set_confused(p_ptr->confused + dam / 2);
+ do_conf = dam / 2;
break;
default:
- {
- if (r_ptr->flags3 & RF3_NO_FEAR)
- note = _("には効果がなかった。", " is unaffected.");
- else
- set_afraid(p_ptr->afraid + dam);
- }
+ do_fear = dam;
}
- }
- }
- else
- {
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
- }
- else
- {
- if (!common_saving_throw_charm(p_ptr, dam, m_ptr))
- {
- note = _("があなたに隷属した。", " is in your thrall!");
- set_pet(m_ptr);
- }
- else
- {
- switch (randint1(4))
- {
- case 1:
- do_stun = dam / 2;
- break;
- case 2:
- do_conf = dam / 2;
- break;
- default:
- do_fear = dam;
- }
- }
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
-
-
- /* Ice -- Cold + Cuts + Stun */
- case GF_ICE:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- do_stun = (randint1(15) + 1) / (r + 1);
- if (r_ptr->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;
- }
-
-
- /* Drain Life */
- case GF_HYPODYNAMIA:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- 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;
- }
-
- /* Death Ray */
- case GF_DEATH_RAY:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- 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 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;
- }
-
- break;
- }
-
- /* Polymorph monster (Use "dam" as "power") */
- case GF_OLD_POLY:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* 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;
- }
-
- /* No "real" damage */
- dam = 0;
-
- break;
- }
-
-
- /* Clone monsters (Ignore "dam") */
- case GF_OLD_CLONE:
- {
- if (seen) obvious = TRUE;
-
- if ((p_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;
-
- /* Attempt to clone. */
- if (multiply_monster(c_ptr->m_idx, TRUE, 0L))
- {
- note = _("が分裂した！", " spawns!");
- }
- }
-
- /* 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(c_ptr->m_idx, 0);
-
- if (m_ptr->maxhp < m_ptr->max_maxhp)
- {
- if (seen_msg) msg_format(_("%^sの強さが戻った。", "%^s recovers %s vitality."), m_name, m_poss);
- m_ptr->maxhp = m_ptr->max_maxhp;
- }
-
- if (!dam)
- {
- /* Redraw (later) if needed */
- if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
- break;
- }
-
- /* Fall through */
- }
- case GF_OLD_HEAL:
- {
- if (seen) obvious = TRUE;
-
- /* Wake up */
- (void)set_monster_csleep(c_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(c_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(c_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(c_ptr->m_idx, 0);
- }
-
- /* Heal */
- if (m_ptr->hp < 30000) m_ptr->hp += dam;
-
- /* No overflow */
- if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
-
- if (!who)
- {
- chg_virtue(V_VITALITY, 1);
-
- if (r_ptr->flags1 & RF1_UNIQUE)
- chg_virtue(V_INDIVIDUALISM, 1);
-
- if (is_friendly(m_ptr))
- chg_virtue(V_HONOUR, 1);
- else if (!(r_ptr->flags3 & RF3_EVIL))
- {
- if (r_ptr->flags3 & RF3_GOOD)
- chg_virtue(V_COMPASSION, 2);
- else
- chg_virtue(V_COMPASSION, 1);
- }
-
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(V_NATURE, 1);
- }
-
- if (m_ptr->r_idx == MON_LEPER)
- {
- heal_leper = TRUE;
- if (!who) chg_virtue(V_COMPASSION, 5);
- }
-
- /* Redraw (later) if needed */
- if (p_ptr->health_who == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
-
- note = _("は体力を回復したようだ。", " looks healthier.");
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
-
- /* Speed Monster (Ignore "dam") */
- case GF_OLD_SPEED:
- {
- if (seen) obvious = TRUE;
-
- /* Speed up */
- if (set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100))
- {
- note = _("の動きが速くなった。", " starts moving faster.");
- }
-
- if (!who)
- {
- if (r_ptr->flags1 & RF1_UNIQUE)
- chg_virtue(V_INDIVIDUALISM, 1);
- if (is_friendly(m_ptr))
- chg_virtue(V_HONOUR, 1);
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
-
- /* Slow Monster (Use "dam" as "power") */
- case GF_OLD_SLOW:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* 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;
- }
-
- /* Normal monsters slow down */
- else
- {
- if (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
- {
- note = _("の動きが遅くなった。", " starts moving slower.");
- }
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
-
- /* Sleep (Use "dam" as "power") */
- case GF_OLD_SLEEP:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->flags3 & RF3_NO_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;
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
-
- /* Sleep (Use "dam" as "power") */
- case GF_STASIS_EVIL:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- !(r_ptr->flags3 & RF3_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;
- }
-
- /* Sleep (Use "dam" as "power") */
- case GF_STASIS:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* Attempt a saving throw */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->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;
- }
-
- /* Charm monster */
- case GF_CHARM:
- {
- int vir;
- vir = virtue_number(V_HARMONY);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
- }
-
- vir = virtue_number(V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
-
- if (seen) obvious = TRUE;
-
- /* Attempt a saving throw */
- if (common_saving_throw_charm(p_ptr, dam, m_ptr))
- {
-
- /* 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 = _("は突然友好的になったようだ！", " suddenly seems friendly!");
- set_pet(m_ptr);
+ }
+ }
- chg_virtue(V_INDIVIDUALISM, -1);
- if (r_ptr->flags3 & RF3_ANIMAL)
- chg_virtue(V_NATURE, 1);
+ /* No "real" damage */
+ dam = 0;
+ break;
}
- /* No "real" damage */
- dam = 0;
- break;
- }
-
- /* Control undead */
- case GF_CONTROL_UNDEAD:
- {
- int vir;
- if (seen) obvious = TRUE;
-
- vir = virtue_number(V_UNLIFE);
- if (vir)
+ /* Ice -- Cold + Cuts + Stun */
+ case GF_ICE:
{
- dam += p_ptr->virtues[vir-1]/10;
+ 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))
+ {
+ note = _("はひどい痛手をうけた。", " is hit hard.");
+ dam *= 2;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_COLD);
+ }
+ break;
}
- vir = virtue_number(V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
- /* 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
+ /* Drain Life */
+ case GF_HYPODYNAMIA:
{
- note = _("は既にあなたの奴隷だ！", " is in your thrall!");
- set_pet(m_ptr);
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
- /* Control demon */
- case GF_CONTROL_DEMON:
- {
- int vir;
- if (seen) obvious = TRUE;
+ 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;
- vir = virtue_number(V_UNLIFE);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
+ break;
}
- vir = virtue_number(V_INDIVIDUALISM);
- if (vir)
+ /* Death Ray */
+ case GF_DEATH_RAY:
{
- dam -= p_ptr->virtues[vir-1]/20;
- }
+ 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 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;
+ }
- /* 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;
+ break;
}
- else
+
+ /* Polymorph monster (Use "dam" as "power") */
+ case GF_OLD_POLY:
{
- note = _("は既にあなたの奴隷だ！", " is in your thrall!");
- set_pet(m_ptr);
- }
+ if (seen) obvious = TRUE;
+ /* Attempt to polymorph (see below) */
+ do_poly = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
- }
+ /* 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;
+ }
- /* Tame animal */
- case GF_CONTROL_ANIMAL:
- {
- int vir;
- if (seen) obvious = TRUE;
+ /* No "real" damage */
+ dam = 0;
- vir = virtue_number(V_NATURE);
- if (vir)
- {
- dam += p_ptr->virtues[vir-1]/10;
+ break;
}
- vir = virtue_number(V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
- }
- /* 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)
+ /* Clone monsters (Ignore "dam") */
+ case GF_OLD_CLONE:
{
- 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(V_NATURE, 1);
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
+ if (seen) obvious = TRUE;
- /* Tame animal */
- case GF_CHARM_LIVING:
- {
- int vir;
+ if ((p_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;
- vir = virtue_number(V_UNLIFE);
- if (seen) obvious = TRUE;
+ /* Attempt to clone. */
+ if (multiply_monster(g_ptr->m_idx, TRUE, 0L))
+ {
+ note = _("が分裂した！", " spawns!");
+ }
+ }
- vir = virtue_number(V_UNLIFE);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/10;
- }
+ /* No "real" damage */
+ dam = 0;
- vir = virtue_number(V_INDIVIDUALISM);
- if (vir)
- {
- dam -= p_ptr->virtues[vir-1]/20;
+ break;
}
- msg_format(_("%sを見つめた。", "You stare into %s."), m_name);
- /* Attempt a saving throw */
- if (common_saving_throw_charm(p_ptr, dam, m_ptr) ||
- !monster_living(m_ptr->r_idx))
+ /* Heal Monster (use "dam" as amount of healing) */
+ case GF_STAR_HEAL:
{
- /* 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(V_NATURE, 1);
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
- /* Confusion (Use "dam" as "power") */
- case GF_OLD_CONF:
- {
- if (seen) obvious = TRUE;
+ if (seen) obvious = TRUE;
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* Get confused later */
- do_conf = damroll(3, (dam / 2)) + 1;
+ /* Wake up */
+ (void)set_monster_csleep(g_ptr->m_idx, 0);
- /* 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 (m_ptr->maxhp < m_ptr->max_maxhp)
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ if (seen_msg) msg_format(_("%^sの強さが戻った。", "%^s recovers %s vitality."), m_name, m_poss);
+ m_ptr->maxhp = m_ptr->max_maxhp;
}
- /* Resist */
- do_conf = 0;
+ if (!dam)
+ {
+ /* 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;
+ }
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
+ /* Fall through */
}
+ case GF_OLD_HEAL:
+ {
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
- }
+ /* 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);
+ }
- case GF_STUN:
- {
- if (seen) obvious = TRUE;
+ /* Heal */
+ if (m_ptr->hp < 30000) m_ptr->hp += dam;
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- do_stun = damroll((caster_lev / 20) + 3 , (dam)) + 1;
+ /* No overflow */
+ if (m_ptr->hp > m_ptr->maxhp) m_ptr->hp = m_ptr->maxhp;
- /* 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 (!who)
+ {
+ chg_virtue(V_VITALITY, 1);
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- }
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ chg_virtue(V_INDIVIDUALISM, 1);
- /* No "real" damage */
- dam = 0;
- break;
- }
+ if (is_friendly(m_ptr))
+ chg_virtue(V_HONOUR, 1);
+ else if (!(r_ptr->flags3 & RF3_EVIL))
+ {
+ if (r_ptr->flags3 & RF3_GOOD)
+ chg_virtue(V_COMPASSION, 2);
+ else
+ chg_virtue(V_COMPASSION, 1);
+ }
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(V_NATURE, 1);
+ }
+ if (m_ptr->r_idx == MON_LEPER)
+ {
+ heal_leper = TRUE;
+ if (!who) chg_virtue(V_COMPASSION, 5);
+ }
+ /* 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);
- /* Lite, but only hurts susceptible creatures */
- case GF_LITE_WEAK:
- {
- if (!dam)
- {
- skipped = TRUE;
- break;
- }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
+ note = _("は体力を回復したようだ。", " looks healthier.");
+
+ /* No "real" damage */
dam = 0;
break;
}
- /* Hurt by light */
- if (r_ptr->flags3 & (RF3_HURT_LITE))
+
+
+ /* Speed Monster (Ignore "dam") */
+ case GF_OLD_SPEED:
{
- /* Obvious effect */
if (seen) obvious = TRUE;
- /* Memorize the effects */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
+ /* Speed up */
+ if (set_monster_fast(g_ptr->m_idx, MON_FAST(m_ptr) + 100))
+ {
+ note = _("の動きが速くなった。", " starts moving faster.");
+ }
- /* Special effect */
- note = _("は光に身をすくめた！", " cringes from the light!");
- note_dies = _("は光を受けてしぼんでしまった！", " shrivels away in the light!");
- }
+ if (!who)
+ {
+ if (r_ptr->flags1 & RF1_UNIQUE)
+ chg_virtue(V_INDIVIDUALISM, 1);
+ if (is_friendly(m_ptr))
+ chg_virtue(V_HONOUR, 1);
+ }
- /* Normally no damage */
- else
- {
- /* No damage */
+ /* No "real" damage */
dam = 0;
+ break;
}
- break;
- }
+ /* Slow Monster (Use "dam" as "power") */
+ case GF_OLD_SLOW:
+ {
+ if (seen) obvious = TRUE;
+ /* 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;
+ }
- /* Lite -- opposite of Dark */
- case GF_LITE:
- {
- if (seen) obvious = TRUE;
+ /* Normal monsters slow down */
+ else
+ {
+ if (set_monster_slow(g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
+ {
+ note = _("の動きが遅くなった。", " starts moving slower.");
+ }
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
+ /* No "real" damage */
dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- 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;
- }
- /* Dark -- opposite of Lite */
- case GF_DARK:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Sleep (Use "dam" as "power") */
+ case GF_OLD_SLEEP:
{
- note = _("には完全な耐性がある！", " is immune.");
+ if (seen) obvious = TRUE;
+
+ /* 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;
+ }
+
+ /* No "real" damage */
dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flagsr & RFR_RES_DARK)
+
+
+ /* Sleep (Use "dam" as "power") */
+ case GF_STASIS_EVIL:
{
- 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 (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))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+ else
+ {
+ /* Go to sleep (much) later */
+ note = _("は動けなくなった！", " is suspended!");
+ do_sleep = 500;
+ }
- /* Stone to Mud */
- case GF_KILL_WALL:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
+ /* No "real" damage */
dam = 0;
break;
}
- /* Hurt by rock remover */
- if (r_ptr->flags3 & (RF3_HURT_ROCK))
+
+ /* Sleep (Use "dam" as "power") */
+ case GF_STASIS:
{
- /* Notice effect */
if (seen) obvious = TRUE;
- /* Memorize the effects */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_ROCK);
-
- /* Cute little message */
- note = _("の皮膚がただれた！", " loses some skin!");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
- }
+ /* 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;
+ }
- /* Usually, ignore the effects */
- else
- {
- /* No damage */
+ /* No "real" damage */
dam = 0;
+ break;
}
- break;
- }
-
-
- /* Teleport undead (Use "dam" as "power") */
- case GF_AWAY_UNDEAD:
- {
- /* Only affect undead */
- if (r_ptr->flags3 & (RF3_UNDEAD))
+ /* Charm monster */
+ case GF_CHARM:
{
- bool resists_tele = FALSE;
-
- if (r_ptr->flagsr & RFR_RES_TELE)
+ int vir;
+ vir = virtue_number(V_HARMONY);
+ if (vir)
{
- 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;
- }
+ dam += p_ptr->virtues[vir-1]/10;
}
- if (!resists_tele)
+ vir = virtue_number(V_INDIVIDUALISM);
+ if (vir)
{
- if (seen) obvious = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
- do_dist = dam;
+ dam -= p_ptr->virtues[vir-1]/20;
}
- }
-
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
- }
- /* No "real" damage */
- dam = 0;
- break;
- }
+ if (seen) obvious = TRUE;
+ /* Attempt a saving throw */
+ if (common_saving_throw_charm(p_ptr, dam, m_ptr))
+ {
- /* Teleport evil (Use "dam" as "power") */
- case GF_AWAY_EVIL:
- {
- /* Only affect evil */
- if (r_ptr->flags3 & (RF3_EVIL))
- {
- bool resists_tele = FALSE;
+ /* Resist */
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
- if (r_ptr->flagsr & RFR_RES_TELE)
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else if (p_ptr->cursed & TRC_AGGRAVATE)
{
- 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;
- }
+ note = _("はあなたに敵意を抱いている！", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
-
- if (!resists_tele)
+ else
{
- if (seen) obvious = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
- do_dist = dam;
+ note = _("は突然友好的になったようだ！", " suddenly seems friendly!");
+ set_pet(m_ptr);
+
+ chg_virtue(V_INDIVIDUALISM, -1);
+ if (r_ptr->flags3 & RF3_ANIMAL)
+ chg_virtue(V_NATURE, 1);
}
+
+ /* No "real" damage */
+ dam = 0;
+ break;
}
- /* Others ignore */
- else
+ /* Control undead */
+ case GF_CONTROL_UNDEAD:
{
- /* Irrelevant */
- skipped = TRUE;
- }
+ int vir;
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
- }
+ vir = virtue_number(V_UNLIFE);
+ if (vir)
+ {
+ dam += p_ptr->virtues[vir-1]/10;
+ }
+ vir = virtue_number(V_INDIVIDUALISM);
+ if (vir)
+ {
+ dam -= p_ptr->virtues[vir-1]/20;
+ }
- /* 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))
+ /* Attempt a saving throw */
+ if (common_saving_throw_control(p_ptr, dam, m_ptr) ||
+ !(r_ptr->flags3 & RF3_UNDEAD))
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
+ /* No obvious effect */
note = _("には効果がなかった。", " is unaffected.");
- resists_tele = TRUE;
+ obvious = FALSE;
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
}
- else if (r_ptr->level > randint1(100))
+ else if (p_ptr->cursed & TRC_AGGRAVATE)
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= RFR_RES_TELE;
- note = _("には耐性がある！", " resists!");
- resists_tele = TRUE;
+ note = _("はあなたに敵意を抱いている！", " hates you too much!");
+ if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ }
+ else
+ {
+ note = _("は既にあなたの奴隷だ！", " is in your thrall!");
+ set_pet(m_ptr);
}
+
+ /* No "real" damage */
+ dam = 0;
+ break;
}
- if (!resists_tele)
+ /* Control demon */
+ case GF_CONTROL_DEMON:
{
+ int vir;
if (seen) obvious = TRUE;
- /* Prepare to teleport */
- do_dist = dam;
- }
+ vir = virtue_number(V_UNLIFE);
+ if (vir)
+ {
+ dam += p_ptr->virtues[vir-1]/10;
+ }
- /* No "real" damage */
- dam = 0;
- break;
- }
+ vir = virtue_number(V_INDIVIDUALISM);
+ if (vir)
+ {
+ dam -= p_ptr->virtues[vir-1]/20;
+ }
+ /* 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);
+ }
- /* Turn undead (Use "dam" as "power") */
- case GF_TURN_UNDEAD:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
+ /* No "real" damage */
+ dam = 0;
break;
}
- /* Only affect undead */
- if (r_ptr->flags3 & (RF3_UNDEAD))
+
+ /* Tame animal */
+ case GF_CONTROL_ANIMAL:
{
+ int vir;
if (seen) obvious = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+ vir = virtue_number(V_NATURE);
+ if (vir)
+ {
+ dam += p_ptr->virtues[vir-1]/10;
+ }
- /* Apply some fear */
- do_fear = damroll(3, (dam / 2)) + 1;
+ vir = virtue_number(V_INDIVIDUALISM);
+ if (vir)
+ {
+ dam -= p_ptr->virtues[vir-1]/20;
+ }
/* Attempt a saving throw */
- if (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
+ if (common_saving_throw_control(p_ptr, dam, m_ptr) ||
+ !(r_ptr->flags3 & RF3_ANIMAL))
{
+ /* Resist */
/* No obvious effect */
note = _("には効果がなかった。", " is unaffected.");
obvious = FALSE;
- do_fear = 0;
+ 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(V_NATURE, 1);
}
- }
-
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
- }
-
- /* No "real" damage */
- dam = 0;
- break;
- }
-
- /* Turn evil (Use "dam" as "power") */
- case GF_TURN_EVIL:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
+ /* No "real" damage */
+ dam = 0;
break;
}
- /* Only affect evil */
- if (r_ptr->flags3 & (RF3_EVIL))
+
+ /* Tame animal */
+ case GF_CHARM_LIVING:
{
+ int vir;
+
+ vir = virtue_number(V_UNLIFE);
if (seen) obvious = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+ vir = virtue_number(V_UNLIFE);
+ if (vir)
+ {
+ dam -= p_ptr->virtues[vir-1]/10;
+ }
- /* Apply some fear */
- do_fear = damroll(3, (dam / 2)) + 1;
+ vir = virtue_number(V_INDIVIDUALISM);
+ if (vir)
+ {
+ dam -= p_ptr->virtues[vir-1]/20;
+ }
+
+ msg_format(_("%sを見つめた。", "You stare into %s."), m_name);
/* Attempt a saving throw */
- if (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
+ 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;
- do_fear = 0;
+ 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(V_NATURE, 1);
}
+
+ /* No "real" damage */
+ dam = 0;
+ break;
}
- /* Others ignore */
- else
+ /* Confusion (Use "dam" as "power") */
+ case GF_OLD_CONF:
{
- /* Irrelevant */
- skipped = TRUE;
- }
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
- }
+ /* 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))
+ {
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ }
+ /* Resist */
+ do_conf = 0;
- /* Turn monster (Use "dam" as "power") */
- case GF_TURN_ALL:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+
+ /* No "real" damage */
+ dam = 0;
break;
}
- if (seen) obvious = TRUE;
-
- /* 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))
+ case GF_STUN:
{
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
- do_fear = 0;
- }
+ if (seen) obvious = TRUE;
- /* No "real" damage */
- dam = 0;
- break;
- }
+ 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))
+ {
+ /* Resist */
+ do_stun = 0;
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
- /* Dispel undead */
- case GF_DISP_UNDEAD:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
+ /* No "real" damage */
dam = 0;
break;
}
- /* Only affect undead */
- if (r_ptr->flags3 & (RF3_UNDEAD))
- {
- if (seen) obvious = TRUE;
-
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
-
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
- }
- /* Others ignore */
- else
+ /* Lite, but only hurts susceptible creatures */
+ case GF_LITE_WEAK:
{
- /* Irrelevant */
- skipped = TRUE;
+ if (!dam)
+ {
+ skipped = TRUE;
+ break;
+ }
+ /* Hurt by light */
+ if (r_ptr->flags3 & (RF3_HURT_LITE))
+ {
+ /* Obvious 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_LITE);
- break;
- }
+ /* Special effect */
+ note = _("は光に身をすくめた！", " cringes from the light!");
+ note_dies = _("は光を受けてしぼんでしまった！", " shrivels away in the light!");
+ }
+ /* Normally no damage */
+ else
+ {
+ /* No damage */
+ dam = 0;
+ }
- /* Dispel evil */
- case GF_DISP_EVIL:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
- dam = 0;
break;
}
- /* 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);
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
- }
- /* Others ignore */
- else
+ /* Lite -- opposite of Dark */
+ case GF_LITE:
{
- /* Irrelevant */
- skipped = TRUE;
+ if (seen) obvious = TRUE;
- /* No damage */
- dam = 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;
}
- break;
- }
- /* Dispel good */
- case GF_DISP_GOOD:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
- dam = 0;
- break;
- }
- /* Only affect good */
- if (r_ptr->flags3 & (RF3_GOOD))
+ /* Dark -- opposite of Lite */
+ case GF_DARK:
{
if (seen) obvious = TRUE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
-
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
+ 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;
}
- /* Others ignore */
- else
+
+ /* Stone to Mud */
+ case GF_KILL_WALL:
{
- /* Irrelevant */
- skipped = TRUE;
+ /* 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;
+ }
- /* Dispel living */
- case GF_DISP_LIVING:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
- dam = 0;
break;
}
- /* Only affect non-undead */
- if (monster_living(m_ptr->r_idx))
- {
- if (seen) obvious = TRUE;
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
- }
- /* Others ignore */
- else
+ /* Teleport undead (Use "dam" as "power") */
+ case GF_AWAY_UNDEAD:
{
- /* Irrelevant */
- skipped = TRUE;
+ /* Only affect undead */
+ if (r_ptr->flags3 & (RF3_UNDEAD))
+ {
+ bool resists_tele = FALSE;
- /* No damage */
- dam = 0;
- }
+ 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;
+ }
+ }
- 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;
+ }
+ }
- /* Dispel demons */
- case GF_DISP_DEMON:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- skipped = TRUE;
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+ }
+
+ /* No "real" damage */
dam = 0;
break;
}
- /* Only affect demons */
- if (r_ptr->flags3 & (RF3_DEMON))
+
+
+ /* Teleport evil (Use "dam" as "power") */
+ case GF_AWAY_EVIL:
{
- if (seen) obvious = TRUE;
+ /* Only affect evil */
+ if (r_ptr->flags3 & (RF3_EVIL))
+ {
+ bool resists_tele = FALSE;
- /* Learn about type */
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
+ 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;
+ }
+ }
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
- }
+ if (!resists_tele)
+ {
+ if (seen) obvious = TRUE;
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+ do_dist = dam;
+ }
+ }
- /* Others ignore */
- else
- {
- /* Irrelevant */
- skipped = TRUE;
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+ }
- /* No damage */
+ /* No "real" damage */
dam = 0;
+ break;
}
- break;
- }
- /* Dispel monster */
- case GF_DISP_ALL:
- {
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Teleport monster (Use "dam" as "power") */
+ case GF_AWAY_ALL:
{
- skipped = TRUE;
- dam = 0;
- break;
- }
- if (seen) obvious = TRUE;
+ 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;
+ }
+ 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;
+ }
+ }
- note = _("は身震いした。", " shudders.");
- note_dies = _("はドロドロに溶けた！", " dissolves!");
- break;
- }
+ if (!resists_tele)
+ {
+ if (seen) obvious = TRUE;
- /* Drain mana */
- case GF_DRAIN_MANA:
- {
- if (seen) obvious = TRUE;
+ /* Prepare to teleport */
+ do_dist = dam;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ /* No "real" damage */
+ dam = 0;
break;
}
- if ((r_ptr->flags4 & ~(RF4_NOMAGIC_MASK)) || (r_ptr->a_ability_flags1 & ~(RF5_NOMAGIC_MASK)) || (r_ptr->a_ability_flags2 & ~(RF6_NOMAGIC_MASK)))
+
+ /* Turn undead (Use "dam" as "power") */
+ case GF_TURN_UNDEAD:
{
- if (who > 0)
+ /* Only affect undead */
+ if (r_ptr->flags3 & (RF3_UNDEAD))
{
- /* 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;
+ if (seen) obvious = TRUE;
- /* 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);
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
- /* Special message */
- if (see_s_msg)
- {
- monster_desc(killer, caster_ptr, 0);
- msg_format(_("%^sは気分が良さそうだ。", "%^s appears healthier."), killer);
- }
+ /* 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;
}
}
+
+ /* Others ignore */
else
{
- msg_format(_("%sから精神エネルギーを吸いとった。", "You draw psychic energy from %s."), m_name);
- (void)hp_player(dam);
+ /* Irrelevant */
+ skipped = TRUE;
}
- }
- else
- {
- if (see_s_msg) msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
- }
- dam = 0;
- break;
- }
-
- /* Mind blast */
- case GF_MIND_BLAST:
- {
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sをじっと睨んだ。", "You gaze intently at %s."), m_name);
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ /* No "real" damage */
+ dam = 0;
break;
}
- /* 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))
+
+ /* Turn evil (Use "dam" as "power") */
+ case GF_TURN_EVIL:
{
- /* Memorize a flag */
- if (r_ptr->flags3 & (RF3_NO_CONF))
+ /* Only affect evil */
+ if (r_ptr->flags3 & (RF3_EVIL))
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_CONF);
+ 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->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10)
+ {
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ do_fear = 0;
+ }
}
- 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.");
+
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+ }
+
+ /* No "real" damage */
dam = 0;
+ break;
}
- 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
+
+
+ /* Turn monster (Use "dam" as "power") */
+ case GF_TURN_ALL:
{
- note = _("は精神攻撃を食らった。", " is blasted by psionic energy.");
- note_dies = _("の精神は崩壊し、肉体は抜け殻となった。", " collapses, a mindless husk.");
+ if (seen) obvious = TRUE;
- if (who > 0) do_conf = randint0(4) + 4;
- else do_conf = randint0(8) + 8;
- }
- break;
- }
+ /* Apply some fear */
+ do_fear = damroll(3, (dam / 2)) + 1;
- /* 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_FEAR)) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ {
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ do_fear = 0;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ /* No "real" damage */
+ dam = 0;
break;
}
- /* 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))
+
+ /* Dispel undead */
+ case GF_DISP_UNDEAD:
{
- /* Memorize a flag */
- if (r_ptr->flags3 & (RF3_NO_CONF))
+ /* Only affect undead */
+ if (r_ptr->flags3 & (RF3_UNDEAD))
{
- 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)
- {
- 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 (seen) obvious = TRUE;
- if (who > 0)
- {
- do_conf = randint0(4) + 4;
- do_stun = randint0(4) + 4;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_UNDEAD);
+
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた！", " dissolves!");
}
+
+ /* Others ignore */
else
{
- do_conf = randint0(8) + 8;
- do_stun = randint0(8) + 8;
- }
- (void)set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 10);
- }
- break;
- }
+ /* Irrelevant */
+ skipped = TRUE;
- /* CAUSE_1 */
- case GF_CAUSE_1:
- {
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sを指差して呪いをかけた。", "You point at %s and curse."), m_name);
+ /* No damage */
+ dam = 0;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- /* Attempt a saving throw */
- if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
+
+ /* Dispel evil */
+ case GF_DISP_EVIL:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
- }
+ /* Only affect evil */
+ if (r_ptr->flags3 & (RF3_EVIL))
+ {
+ if (seen) obvious = TRUE;
- /* CAUSE_2 */
- case GF_CAUSE_2:
- {
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sを指差して恐ろしげに呪いをかけた。", "You point at %s and curse horribly."), m_name);
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_EVIL);
+
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた！", " dissolves!");
+ }
+
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+
+ /* No damage */
+ dam = 0;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- /* Attempt a saving throw */
- if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
+ /* Dispel good */
+ case GF_DISP_GOOD:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
- }
+ /* Only affect good */
+ if (r_ptr->flags3 & (RF3_GOOD))
+ {
+ if (seen) obvious = TRUE;
- /* CAUSE_3 */
- case GF_CAUSE_3:
- {
- if (seen) obvious = TRUE;
- if (!who) msg_format(_("%sを指差し、恐ろしげに呪文を唱えた！", "You point at %s, incanting terribly!"), m_name);
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_GOOD);
+
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた！", " dissolves!");
+ }
+
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+
+ /* No damage */
+ dam = 0;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- /* Attempt a saving throw */
- if (randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35))
+ /* Dispel living */
+ case GF_DISP_LIVING:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
- }
+ /* Only affect non-undead */
+ if (monster_living(m_ptr->r_idx))
+ {
+ if (seen) obvious = TRUE;
- /* 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);
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた！", " dissolves!");
+ }
+
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+
+ /* No damage */
+ dam = 0;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- /* Attempt a saving throw */
- if ((randint0(100 + (caster_lev / 2)) < (r_ptr->level + 35)) && ((who <= 0) || (caster_ptr->r_idx != MON_KENSHIROU)))
+ /* Dispel demons */
+ case GF_DISP_DEMON:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- }
- break;
- }
+ /* Only affect demons */
+ if (r_ptr->flags3 & (RF3_DEMON))
+ {
+ if (seen) obvious = TRUE;
- /* HAND_DOOM */
- case GF_HAND_DOOM:
- {
- if (seen) obvious = TRUE;
+ /* Learn about type */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_DEMON);
+
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた！", " dissolves!");
+ }
+
+ /* Others ignore */
+ else
+ {
+ /* Irrelevant */
+ skipped = TRUE;
+
+ /* No damage */
+ dam = 0;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- if (r_ptr->flags1 & RF1_UNIQUE)
+ /* Dispel monster */
+ case GF_DISP_ALL:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
+ if (seen) obvious = TRUE;
+ note = _("は身震いした。", " shudders.");
+ note_dies = _("はドロドロに溶けた！", " dissolves!");
+ break;
}
- else
+
+ /* Drain mana */
+ case GF_DRAIN_MANA:
{
- if ((who > 0) ? ((caster_lev + randint1(dam)) > (r_ptr->level + 10 + randint1(20))) :
- (((caster_lev / 2) + randint1(dam)) > (r_ptr->level + randint1(200))))
+ 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)))
{
- dam = ((40 + randint1(20)) * m_ptr->hp) / 100;
+ if (who > 0)
+ {
+ /* 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;
+
+ /* 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);
- if (m_ptr->hp < dam) dam = m_ptr->hp - 1;
+ /* Special message */
+ if (see_s_msg)
+ {
+ monster_desc(killer, 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(dam);
+ }
}
else
{
- note = _("は耐性を持っている！", "resists!");
- dam = 0;
+ if (see_s_msg) msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
}
+ dam = 0;
+ break;
}
- break;
- }
- /* Capture monster */
- case GF_CAPTURE:
- {
- 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)
+ /* Mind blast */
+ case GF_MIND_BLAST:
{
- msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
- skipped = TRUE;
+ 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)
+ {
+ 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 (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 (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))
+ /* Brain smash */
+ case GF_BRAIN_SMASH:
{
- if (m_ptr->mflag2 & MFLAG2_CHAMELEON) choose_new_monster(c_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 (c_ptr->m_idx == p_ptr->riding)
+ 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 (rakuba(-1, FALSE))
+ /* Memorize a flag */
+ if (r_ptr->flags3 & (RF3_NO_CONF))
{
- msg_format(_("地面に落とされた。", "You have fallen from %s."), m_name);
+ 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)
+ {
+ 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.");
- delete_monster_idx(c_ptr->m_idx);
-
- return (TRUE);
+ 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);
+ }
+ break;
}
- else
+
+ /* CAUSE_1 */
+ case GF_CAUSE_1:
{
- msg_format(_("うまく捕まえられなかった。", "You failed to capture %s."), m_name);
- skipped = TRUE;
+ 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;
}
- break;
- }
-
- /* Attack (Use "dam" as attack type) */
- case GF_ATTACK:
- {
- /* Return this monster's death */
- return py_attack(y, x, dam);
- }
-
- /* Sleep (Use "dam" as "power") */
- case GF_ENGETSU:
- {
- int effect = 0;
- bool done = TRUE;
- if (seen) obvious = TRUE;
+ /* 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))
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
+ }
+ break;
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* CAUSE_3 */
+ case GF_CAUSE_3:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ 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;
}
- if (r_ptr->flags2 & RF2_EMPTY_MIND)
+
+ /* CAUSE_4 */
+ case GF_CAUSE_4:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags2 |= (RF2_EMPTY_MIND);
+ 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;
}
- if (MON_CSLEEP(m_ptr))
+
+ /* HAND_DOOM */
+ case GF_HAND_DOOM:
{
- note = _("には効果がなかった。", " is unaffected.");
- dam = 0;
- skipped = TRUE;
+ 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))))
+ {
+ dam = ((40 + randint1(20)) * m_ptr->hp) / 100;
+
+ if (m_ptr->hp < dam) dam = m_ptr->hp - 1;
+ }
+ else
+ {
+ note = _("は耐性を持っている！", "resists!");
+ dam = 0;
+ }
+ }
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)
+ /* Capture monster */
+ case GF_CAPTURE:
{
- /* Powerful monsters can resist */
- if ((r_ptr->flags1 & RF1_UNIQUE) ||
- (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
+ 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)
{
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
+ msg_format(_("%sには効果がなかった。", "%s is unaffected."), m_name);
+ skipped = TRUE;
+ break;
}
- /* Normal monsters slow down */
+ 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 (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 (set_monster_slow(c_ptr->m_idx, MON_SLOW(m_ptr) + 50))
+ 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)
{
- note = _("の動きが遅くなった。", " starts moving slower.");
+ if (rakuba(-1, FALSE))
+ {
+ msg_format(_("地面に落とされた。", "You have fallen from %s."), m_name);
+ }
}
+
+ delete_monster_idx(g_ptr->m_idx);
+
+ return (TRUE);
+ }
+ else
+ {
+ msg_format(_("うまく捕まえられなかった。", "You failed to capture %s."), m_name);
+ skipped = TRUE;
}
+ break;
}
- else if (effect == 2)
+ /* Attack (Use "dam" as attack type) */
+ case GF_ATTACK:
{
- do_stun = damroll((p_ptr->lev / 10) + 3 , (dam)) + 1;
+ /* Return this monster's death */
+ return py_attack(y, x, dam);
+ }
- /* 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;
+ /* Sleep (Use "dam" as "power") */
+ case GF_ENGETSU:
+ {
+ int effect = 0;
+ bool done = TRUE;
- /* No obvious effect */
+ if (seen) obvious = TRUE;
+ if (r_ptr->flags2 & RF2_EMPTY_MIND)
+ {
note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
+ 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;
}
- }
- else if (effect == 3)
- {
- /* 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))
+ 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)
{
- /* Memorize a flag */
- if (r_ptr->flags3 & RF3_NO_SLEEP)
+ /* Powerful monsters can resist */
+ if ((r_ptr->flags1 & RF1_UNIQUE) ||
+ (r_ptr->level > randint1((dam - 10) < 1 ? 1 : (dam - 10)) + 10))
{
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_SLEEP);
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
}
- /* No obvious effect */
- note = _("には効果がなかった。", " is unaffected.");
- obvious = FALSE;
+ /* Normal monsters slow down */
+ else
+ {
+ if (set_monster_slow(g_ptr->m_idx, MON_SLOW(m_ptr) + 50))
+ {
+ note = _("の動きが遅くなった。", " starts moving slower.");
+ }
+ }
}
- else
+
+ else if (effect == 2)
{
- /* Go to sleep (much) later */
- note = _("は眠り込んでしまった！", " falls asleep!");
- do_sleep = 500;
+ do_stun = damroll((p_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))
+ {
+ /* Resist */
+ do_stun = 0;
+
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
}
- }
- if (!done)
- {
- note = _("には効果がなかった。", " is unaffected.");
- }
+ else if (effect == 3)
+ {
+ /* 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 "real" damage */
- dam = 0;
- break;
- }
+ /* No obvious effect */
+ note = _("には効果がなかった。", " is unaffected.");
+ obvious = FALSE;
+ }
+ else
+ {
+ /* Go to sleep (much) later */
+ note = _("は眠り込んでしまった！", " falls asleep!");
+ do_sleep = 500;
+ }
+ }
- /* GENOCIDE */
- case GF_GENOCIDE:
- {
- if (seen) obvious = TRUE;
+ if (!done)
+ {
+ note = _("には効果がなかった。", " is unaffected.");
+ }
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には効果がなかった。", " is unaffected.");
- skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
+ /* No "real" damage */
+ dam = 0;
break;
}
- if (genocide_aux(c_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, _("モンスター消滅", "Genocide One")))
- {
- if (seen_msg) msg_format(_("%sは消滅した！", "%^s disappered!"), m_name);
- chg_virtue(V_VITALITY, -1);
- return TRUE;
- }
-
- skipped = TRUE;
- break;
- }
-
- 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))
+ /* GENOCIDE */
+ case GF_GENOCIDE:
{
- /* Obvious effect */
if (seen) obvious = TRUE;
+ if (genocide_aux(g_ptr->m_idx, dam, !who, (r_ptr->level + 1) / 2, _("モンスター消滅", "Genocide One")))
+ {
+ if (seen_msg) msg_format(_("%sは消滅した！", "%^s disappered!"), m_name);
+ chg_virtue(V_VITALITY, -1);
+ return TRUE;
+ }
- /* 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!");
+ skipped = TRUE;
+ break;
}
- /* Normally no damage */
- else
+ case GF_PHOTO:
{
- /* No damage */
- dam = 0;
- }
+ 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;
- photo = m_ptr->r_idx;
+ /* Memorize the effects */
+ if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_HURT_LITE);
- break;
- }
+ /* Special effect */
+ note = _("は光に身をすくめた！", " cringes from the light!");
+ note_dies = _("は光を受けてしぼんでしまった！", " shrivels away in the light!");
+ }
+ /* Normally no damage */
+ else
+ {
+ /* No damage */
+ dam = 0;
+ }
- /* blood curse */
- case GF_BLOOD_CURSE:
- {
- if (seen) obvious = TRUE;
+ photo = m_ptr->r_idx;
- if (r_ptr->flagsr & RFR_RES_ALL)
- {
- note = _("には完全な耐性がある！", " is immune.");
- dam = 0;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
break;
}
- break;
- }
- case GF_CRUSADE:
- {
- bool success = FALSE;
- if (seen) obvious = TRUE;
- if ((r_ptr->flags3 & (RF3_GOOD)) && !p_ptr->inside_arena)
+ /* blood curse */
+ case GF_BLOOD_CURSE:
+ {
+ if (seen) obvious = TRUE;
+ break;
+ }
+
+ case GF_CRUSADE:
{
- if (r_ptr->flags3 & (RF3_NO_CONF)) dam -= 50;
- if (dam < 1) dam = 1;
+ bool success = FALSE;
+ if (seen) obvious = TRUE;
- /* No need to tame your pet */
- if (is_pet(m_ptr))
+ if ((r_ptr->flags3 & (RF3_GOOD)) && !p_ptr->inside_arena)
{
- note = _("の動きが速くなった。", " starts moving faster.");
- (void)set_monster_fast(c_ptr->m_idx, MON_FAST(m_ptr) + 100);
- success = TRUE;
+ 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(g_ptr->m_idx, MON_FAST(m_ptr) + 100);
+ success = TRUE;
+ }
+
+ /* Attempt a saving throw */
+ else if ((r_ptr->flags1 & (RF1_QUESTOR)) ||
+ (r_ptr->flags1 & (RF1_UNIQUE)) ||
+ (m_ptr->mflag2 & 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;
+ }
}
- /* 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)))
+ if (!success)
{
- /* Resist */
- if (one_in_(4)) m_ptr->mflag2 |= MFLAG2_NOPET;
+ 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);
}
- else
- {
- note = _("を支配した。", " is tamed!");
- set_pet(m_ptr);
- (void)set_monster_fast(c_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;
- }
+ /* No "real" damage */
+ dam = 0;
+ break;
}
- if (!success)
+ case GF_WOUNDS:
{
- if (!(r_ptr->flags3 & RF3_NO_FEAR))
+ if (seen) obvious = TRUE;
+ /* Attempt a saving throw */
+ if (randint0(100 + dam) < (r_ptr->level + 50))
{
- do_fear = randint1(90)+10;
+ note = _("には効果がなかった。", " is unaffected.");
+ dam = 0;
}
- else if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flags3 |= (RF3_NO_FEAR);
+ break;
}
- /* No "real" damage */
- dam = 0;
- break;
- }
-
- case GF_WOUNDS:
- {
- if (seen) obvious = TRUE;
-
- if (r_ptr->flagsr & RFR_RES_ALL)
+ /* Default */
+ default:
{
- note = _("には完全な耐性がある！", " is immune.");
+ /* Irrelevant */
skipped = TRUE;
- if (is_original_ap_and_seen(m_ptr)) r_ptr->r_flagsr |= (RFR_RES_ALL);
- break;
- }
- /* Attempt a saving throw */
- if (randint0(100 + dam) < (r_ptr->level + 50))
- {
- note = _("には効果がなかった。", " is unaffected.");
+ /* No damage */
dam = 0;
- }
- break;
- }
-
- /* Default */
- default:
- {
- /* Irrelevant */
- skipped = TRUE;
-
- /* No damage */
- dam = 0;
- break;
+ break;
+ }
}
}
-
/* Absolutely no effect */
if (skipped) return (FALSE);
/* Quest monsters cannot be polymorphed */
if (r_ptr->flags1 & RF1_QUESTOR) do_poly = FALSE;
- if (p_ptr->riding && (c_ptr->m_idx == p_ptr->riding)) do_poly = FALSE;
+ if (p_ptr->riding && (g_ptr->m_idx == p_ptr->riding)) do_poly = FALSE;
/* "Unique" and "quest" monsters can only be "killed" by the player. */
if (((r_ptr->flags1 & (RF1_UNIQUE | RF1_QUESTOR)) || (r_ptr->flags7 & RF7_NAZGUL)) && !p_ptr->inside_battle)
}
/* Apply stun */
- (void)set_monster_stunned(c_ptr->m_idx, tmp);
+ (void)set_monster_stunned(g_ptr->m_idx, tmp);
/* Get angry */
get_angry = TRUE;
}
/* Apply confusion */
- (void)set_monster_confused(c_ptr->m_idx, tmp);
+ (void)set_monster_confused(g_ptr->m_idx, tmp);
/* Get angry */
get_angry = TRUE;
}
/* Hack -- Get new monster */
- m_ptr = &m_list[c_ptr->m_idx];
+ m_ptr = ¤t_floor_ptr->m_list[g_ptr->m_idx];
/* Hack -- Get new race */
r_ptr = &r_info[m_ptr->r_idx];
if (!who) chg_virtue(V_VALOUR, -1);
/* Teleport */
- teleport_away(c_ptr->m_idx, do_dist,
+ teleport_away(g_ptr->m_idx, do_dist,
(!who ? TELEPORT_DEC_VALOUR : 0L) | TELEPORT_PASSIVE);
/* Hack -- get new location */
x = m_ptr->fx;
/* Hack -- get new grid */
- c_ptr = &cave[y][x];
+ g_ptr = ¤t_floor_ptr->grid_array[y][x];
}
/* Fear */
if (do_fear)
{
/* Set fear */
- (void)set_monster_monfear(c_ptr->m_idx, MON_MONFEAR(m_ptr) + do_fear);
+ (void)set_monster_monfear(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 == c_ptr->m_idx) p_ptr->redraw |= (PR_HEALTH);
- if (p_ptr->riding == c_ptr->m_idx) p_ptr->redraw |= (PR_UHEALTH);
+ 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);
/* Wake the monster up */
- (void)set_monster_csleep(c_ptr->m_idx, 0);
+ (void)set_monster_csleep(g_ptr->m_idx, 0);
/* Hurt the monster */
m_ptr->hp -= dam;
if (who > 0) monster_gain_exp(who, m_ptr->r_idx);
/* Generate treasure, etc */
- monster_death(c_ptr->m_idx, FALSE);
+ monster_death(g_ptr->m_idx, FALSE);
- delete_monster_idx(c_ptr->m_idx);
+ delete_monster_idx(g_ptr->m_idx);
if (sad)
{
/* Hack -- Pain message */
else if (see_s_msg)
{
- message_pain(c_ptr->m_idx, dam);
+ message_pain(g_ptr->m_idx, dam);
}
else
{
}
/* Hack -- handle sleep */
- if (do_sleep) (void)set_monster_csleep(c_ptr->m_idx, do_sleep);
+ if (do_sleep) (void)set_monster_csleep(g_ptr->m_idx, do_sleep);
}
}
do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_HEAL_LEPER, m2_name);
}
- delete_monster_idx(c_ptr->m_idx);
+ delete_monster_idx(g_ptr->m_idx);
}
/* If the player did it, give him experience, check fear */
bool fear = FALSE;
/* Hurt the monster, check for fear and death */
- if (mon_take_hit(c_ptr->m_idx, dam, &fear, note_dies))
+ if (mon_take_hit(g_ptr->m_idx, dam, &fear, note_dies))
{
/* Dead monster */
}
/* Hack -- Pain message */
else if (known && (dam || !do_fear))
{
- message_pain(c_ptr->m_idx, dam);
+ message_pain(g_ptr->m_idx, dam);
}
/* Anger monsters */
}
/* Hack -- handle sleep */
- if (do_sleep) (void)set_monster_csleep(c_ptr->m_idx, do_sleep);
+ if (do_sleep) (void)set_monster_csleep(g_ptr->m_idx, do_sleep);
}
}
if ((typ == GF_BLOOD_CURSE) && one_in_(4))
{
- int curse_flg = (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP);
- int count = 0;
- do
- {
- switch (randint1(28))
- {
- case 1: case 2:
- if (!count)
- {
- msg_print(_("地面が揺れた...", "The ground trembles..."));
- earthquake(ty, tx, 4 + randint0(4));
- if (!one_in_(6)) break;
- }
- case 3: case 4: case 5: case 6:
- if (!count)
- {
- int extra_dam = damroll(10, 10);
- msg_print(_("純粋な魔力の次元への扉が開いた！", "A portal opens to a plane of raw mana!"));
-
- project(0, 8, ty, tx, extra_dam, GF_MANA, curse_flg, -1);
- if (!one_in_(6)) break;
- }
- case 7: case 8:
- if (!count)
- {
- msg_print(_("空間が歪んだ！", "Space warps about you!"));
-
- if (m_ptr->r_idx) teleport_away(c_ptr->m_idx, damroll(10, 10), TELEPORT_PASSIVE);
- if (one_in_(13)) count += activate_hi_summon(ty, tx, TRUE);
- if (!one_in_(6)) break;
- }
- case 9: case 10: case 11:
- msg_print(_("エネルギーのうねりを感じた！", "You feel a surge of energy!"));
- project(0, 7, ty, tx, 50, GF_DISINTEGRATE, curse_flg, -1);
- if (!one_in_(6)) break;
- case 12: case 13: case 14: case 15: case 16:
- aggravate_monsters(0);
- if (!one_in_(6)) break;
- case 17: case 18:
- count += activate_hi_summon(ty, tx, TRUE);
- if (!one_in_(6)) break;
- case 19: case 20: case 21: case 22:
- {
- bool pet = !one_in_(3);
- BIT_FLAGS mode = PM_ALLOW_GROUP;
-
- if (pet) mode |= PM_FORCE_PET;
- else mode |= (PM_NO_PET | PM_FORCE_FRIENDLY);
-
- count += summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, (pet ? p_ptr->lev*2/3+randint1(p_ptr->lev/2) : dun_level), 0, mode, '\0');
- if (!one_in_(6)) break;
- }
- case 23: case 24: case 25:
- if (p_ptr->hold_exp && (randint0(100) < 75)) break;
- msg_print(_("経験値が体から吸い取られた気がする！", "You feel your experience draining away..."));
-
- if (p_ptr->hold_exp) lose_exp(p_ptr->exp / 160);
- else lose_exp(p_ptr->exp / 16);
- if (!one_in_(6)) break;
- case 26: case 27: case 28:
- {
- int i = 0;
- if (one_in_(13))
- {
- while (i < A_MAX)
- {
- do
- {
- (void)do_dec_stat(i);
- }
- while (one_in_(2));
-
- i++;
- }
- }
- else
- {
- (void)do_dec_stat(randint0(6));
- }
- break;
- }
- }
- }
- while (one_in_(5));
+ blood_curse_to_enemy(who);
}
if (p_ptr->inside_battle)
{
- p_ptr->health_who = c_ptr->m_idx;
+ p_ptr->health_who = g_ptr->m_idx;
p_ptr->redraw |= (PR_HEALTH);
handle_stuff();
}
/* Verify this code */
- if (m_ptr->r_idx) update_monster(c_ptr->m_idx, FALSE);
+ if (m_ptr->r_idx) update_monster(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 (p_ptr->riding && (p_ptr->riding == c_ptr->m_idx) && (dam > 0))
+ if (p_ptr->riding && (p_ptr->riding == g_ptr->m_idx) && (dam > 0))
{
if (m_ptr->hp > m_ptr->maxhp/3) dam = (dam + 1) / 2;
rakubadam_m = (dam > 200) ? 200 : dam;
{
do
{
- t_y = m_list[who].fy - 1 + randint1(3);
- t_x = m_list[who].fx - 1 + randint1(3);
+ t_y = current_floor_ptr->m_list[who].fy - 1 + randint1(3);
+ t_x = current_floor_ptr->m_list[who].fx - 1 + randint1(3);
max_attempts--;
}
while (max_attempts && in_bounds2u(t_y, t_x) && !projectable(p_ptr->y, p_ptr->x, t_y, t_x));
if (max_attempts < 1)
{
- t_y = m_list[who].fy;
- t_x = m_list[who].fx;
+ t_y = current_floor_ptr->m_list[who].fy;
+ t_x = current_floor_ptr->m_list[who].fx;
}
}
else
if (who > 0)
{
- m_ptr = &m_list[who];
+ m_ptr = ¤t_floor_ptr->m_list[who];
rlev = (((&r_info[m_ptr->r_idx])->level >= 1) ? (&r_info[m_ptr->r_idx])->level : 1);
monster_desc(m_name, m_ptr, 0);
strcpy(killer, _("罠", "a trap"));
break;
}
-
- /* Paranoia */
strcpy(m_name, killer);
}
/* Analyze the damage */
switch (typ)
{
- /* Standard damage -- hurts inventory too */
+ /* Standard damage -- hurts p_ptr->inventory_list too */
case GF_ACID:
{
if (fuzzy) msg_print(_("酸で攻撃された！", "You are hit by acid!"));
break;
}
- /* Standard damage -- hurts inventory too */
+ /* Standard damage -- hurts p_ptr->inventory_list too */
case GF_FIRE:
{
if (fuzzy) msg_print(_("火炎で攻撃された！", "You are hit by fire!"));
break;
}
- /* Standard damage -- hurts inventory too */
+ /* Standard damage -- hurts p_ptr->inventory_list too */
case GF_COLD:
{
if (fuzzy) msg_print(_("冷気で攻撃された！", "You are hit by cold!"));
break;
}
- /* Standard damage -- hurts inventory too */
+ /* Standard damage -- hurts p_ptr->inventory_list too */
case GF_ELEC:
{
if (fuzzy) msg_print(_("電撃で攻撃された！", "You are hit by lightning!"));
if (one_in_(4)) /* 4 */
do_poly_self();
else
- mutate_player();
+ status_shuffle();
}
if (one_in_(6))
{
msg_print(_("何か鋭いもので攻撃された！", "You are hit by something sharp!"));
}
- else if ((inventory[INVEN_RARM].name1 == ART_ZANTETSU) || (inventory[INVEN_LARM].name1 == ART_ZANTETSU))
+ else if ((p_ptr->inventory_list[INVEN_RARM].name1 == ART_ZANTETSU) || (p_ptr->inventory_list[INVEN_LARM].name1 == ART_ZANTETSU))
{
msg_print(_("矢を斬り捨てた！", "You cut down the arrow!"));
break;
if (one_in_(3))
{
msg_print(_("あなたの身体はカオスの力で捻じ曲げられた！", "Your body is twisted by chaos!"));
- (void)gain_random_mutation(0);
+ (void)gain_mutation(p_ptr, 0);
}
}
if (!p_ptr->resist_neth && !p_ptr->resist_chaos)
get_damage = take_hit(DAMAGE_ATTACK, dam, m_name, monspell);
- if (p_ptr->chp < 1) p_ptr->chp = 1; /* Paranoia */
+ if (p_ptr->chp < 1) p_ptr->chp = 1;
}
break;
}
/* Start at monster */
else if (who > 0)
{
- x1 = m_list[who].fx;
- y1 = m_list[who].fy;
- monster_desc(who_name, &m_list[who], MD_IGNORE_HALLU | MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
+ x1 = current_floor_ptr->m_list[who].fx;
+ y1 = current_floor_ptr->m_list[who].fy;
+ monster_desc(who_name, ¤t_floor_ptr->m_list[who], MD_WRONGDOER_NAME);
}
else
for (i = 0; i < path_n; ++i)
{
- int oy = y;
- int ox = x;
+ POSITION oy = y;
+ POSITION ox = x;
- int ny = GRID_Y(path_g[i]);
- int nx = GRID_X(path_g[i]);
+ POSITION ny = GRID_Y(path_g[i]);
+ POSITION nx = GRID_X(path_g[i]);
/* Advance */
y = ny;
}
}
if (project_o(0, 0, y, x, dam, GF_SEEKER))notice = TRUE;
- if (is_mirror_grid(&cave[y][x]))
+ if (is_mirror_grid(¤t_floor_ptr->grid_array[y][x]))
{
/* The target of monsterspell becomes tha mirror(broken) */
monster_target_y = y;
x = GRID_X(path_g[j]);
if (project_m(0, 0, y, x, dam, GF_SEEKER, flg, TRUE)) notice = TRUE;
if (!who && (project_m_n == 1) && !jump) {
- if (cave[project_m_y][project_m_x].m_idx > 0) {
- monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
+ if (current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0) {
+ monster_type *m_ptr = ¤t_floor_ptr->m_list[current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
if (m_ptr->ml)
{
- /* Hack -- auto-recall */
if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
-
- /* Hack - auto-track */
- health_track(cave[project_m_y][project_m_x].m_idx);
+ health_track(current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
}
}
}
if (project_m(0, 0, py, px, dam, GF_SEEKER, flg, TRUE))
notice = TRUE;
if (!who && (project_m_n == 1) && !jump) {
- if (cave[project_m_y][project_m_x].m_idx > 0)
+ if (current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx > 0)
{
- monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
+ monster_type *m_ptr = ¤t_floor_ptr->m_list[current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
if (m_ptr->ml)
{
- /* Hack -- auto-recall */
if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
-
- /* Hack - auto-track */
- health_track(cave[project_m_y][project_m_x].m_idx);
+ health_track(current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
}
}
}
if( second_step )continue;
break;
}
- if( is_mirror_grid(&cave[y][x]) && !second_step )
+ if( is_mirror_grid(¤t_floor_ptr->grid_array[y][x]) && !second_step )
{
/* The target of monsterspell becomes tha mirror(broken) */
- monster_target_y=(s16b)y;
- monster_target_x=(s16b)x;
+ monster_target_y = y;
+ monster_target_x = x;
remove_mirror(y,x);
for( j = 0; j <=i ; j++ )
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(cave[project_m_y][project_m_x].m_idx >0 ){
- monster_type *m_ptr = &m_list[cave[project_m_y][project_m_x].m_idx];
+ if(current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx >0 ){
+ monster_type *m_ptr = ¤t_floor_ptr->m_list[current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx];
if (m_ptr->ml)
{
- /* Hack -- auto-recall */
if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
-
- /* Hack - auto-track */
- health_track(cave[project_m_y][project_m_x].m_idx);
+ health_track(current_floor_ptr->grid_array[project_m_y][project_m_x].m_idx);
}
}
}
if (flg & PROJECT_KILL)
{
- see_s_msg = (who > 0) ? is_seen(&m_list[who]) :
+ see_s_msg = (who > 0) ? is_seen(¤t_floor_ptr->m_list[who]) :
(!who ? TRUE : (player_can_see_bold(y1, x1) && projectable(p_ptr->y, p_ptr->x, y1, x1)));
}
/* A single bolt may be reflected */
if (grids <= 1)
{
- monster_type *m_ptr = &m_list[cave[y][x].m_idx];
+ monster_type *m_ptr = ¤t_floor_ptr->m_list[current_floor_ptr->grid_array[y][x].m_idx];
monster_race *ref_ptr = &r_info[m_ptr->r_idx];
- if ((flg & PROJECT_REFLECTABLE) && cave[y][x].m_idx && (ref_ptr->flags2 & RF2_REFLECTING) &&
- ((cave[y][x].m_idx != p_ptr->riding) || !(flg & PROJECT_PLAYER)) &&
+ if ((flg & PROJECT_REFLECTABLE) && current_floor_ptr->grid_array[y][x].m_idx && (ref_ptr->flags2 & RF2_REFLECTING) &&
+ ((current_floor_ptr->grid_array[y][x].m_idx != p_ptr->riding) || !(flg & PROJECT_PLAYER)) &&
(!who || dist_hack > 1) && !one_in_(10))
{
POSITION t_y, t_x;
else flg |= PROJECT_PLAYER;
/* The bolt is reflected */
- project(cave[y][x].m_idx, 0, t_y, t_x, dam, typ, flg, monspell);
+ project(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;
y = project_m_y;
/* Track if possible */
- if (cave[y][x].m_idx > 0)
+ if (current_floor_ptr->grid_array[y][x].m_idx > 0)
{
- monster_type *m_ptr = &m_list[cave[y][x].m_idx];
+ monster_type *m_ptr = ¤t_floor_ptr->m_list[current_floor_ptr->grid_array[y][x].m_idx];
if (m_ptr->ml)
{
- /* Hack -- auto-recall */
if (!p_ptr->image) monster_race_track(m_ptr->ap_r_idx);
-
- /* Hack - auto-track */
- if (m_ptr->ml) health_track(cave[y][x].m_idx);
+ health_track(current_floor_ptr->grid_array[y][x].m_idx);
}
}
}
{
GAME_TEXT m_name[MAX_NLEN];
- monster_desc(m_name, &m_list[p_ptr->riding], 0);
+ monster_desc(m_name, ¤t_floor_ptr->m_list[p_ptr->riding], 0);
if (rakubadam_m > 0)
{
monster_target_y = p_ptr->y;
monster_target_x = p_ptr->x;
- for (x = 0; x < cur_wid; x++)
+ for (x = 0; x < current_floor_ptr->width; x++)
{
- for (y = 0; y < cur_hgt; y++)
+ for (y = 0; y < current_floor_ptr->height; y++)
{
- if (is_mirror_grid(&cave[y][x]) &&
+ if (is_mirror_grid(¤t_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) &&
{
POSITION x, y;
- for (x = 0; x < cur_wid; x++)
+ for (x = 0; x < current_floor_ptr->width; x++)
{
- for (y = 0; y < cur_hgt; y++)
+ for (y = 0; y < current_floor_ptr->height; y++)
{
- if (is_mirror_grid(&cave[y][x]))
+ if (is_mirror_grid(¤t_floor_ptr->grid_array[y][x]))
{
if (project_m(0, 0, y, x, dam, GF_GENOCIDE,
(PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP), TRUE))
{
- if (!cave[y][x].m_idx)
+ if (!current_floor_ptr->grid_array[y][x].m_idx)
{
remove_mirror(y, x);
}
}
return;
}
-
+
+
+
+/*!
+ * @brief 領域魔法に応じて技能の名称を返す。
+ * @param tval 魔法書のtval
+ * @return 領域魔法の技能名称を保管した文字列ポインタ
+ */
+concptr spell_category_name(OBJECT_TYPE_VALUE tval)
+{
+ switch (tval)
+ {
+ case TV_HISSATSU_BOOK:
+ return _("必殺技", "art");
+ case TV_LIFE_BOOK:
+ return _("祈り", "prayer");
+ case TV_MUSIC_BOOK:
+ return _("歌", "song");
+ default:
+ return _("呪文", "spell");
+ }
+}
+
OSDN Git Service
