OSDN Git Service

In English spell descriptions, use "cuts" rather than "cut status" or "cut", "poisons...
[hengband/hengband.git] / src / mind.c
index 6d8cc03..5fcff8f 100644 (file)
@@ -434,18 +434,18 @@ static concptr const mind_tips[5][MAX_MIND_POWERS] =
 {
        "Detects visible monsters in your vicinity and more and more. Detects traps and doors at level 5, invisible monsters at level 15, items at level 30. And magic mapping at level 20. Lights and know the whole level at level 45. Gives telepathy at level 25.",
        "Fires a beam or ball which inflicts PSI damage.",
-       "Teleport short distance.",
-       "Teleport long distance.",
+       "Teleports you a short distance.",
+       "Teleports you a long distance.",
        "Stuns, confuses or scares a monster. Or attempts to charm all monsters in sight at level 30.",
        "Fires a ball which hurts monsters with telekinesis.",
-       "Gives stone skin and some resistance to elements for a while. The level increased, the more number of resistances given.",
-       "Gives feeling of an item. Or identify an item at level 25.",
-       "Generate a ball centered on you which inflict monster with PSI damage. Or inflict all monsters with PSI damage at level 25.",
-       "Removes fear and stun. Gives heroism and speed. Heals HP a little unless you already have heroism and temporal speed boost.",
+       "Gives stone skin and some resistance to elements for a while. As your level increases, more resistances are given.",
+       "Gives feeling of an item. Or identifies an item at level 25.",
+       "Generates a ball centered on you which inflicts PSI damage on a monster or, at level 25 and higher, inflicts PSI damage on all monsters.",
+       "Removes fear and being stunned. Gives heroism and speed. Heals HP a little unless you already have heroism and a temporary speed boost.",
        "Pulls a distant item close to you.",
-       "Fires a ball which damages, co. Absorbing is takes more turns which from 0 to 1.5.",
-       "Fires a beam of pure energy which penetrate the invulnerability barrier.",
-       "Stops time. Consumes all of your SP. The more consumes SP, the longer duration of spell.",
+       "Fires a ball which damages. When not resisted, you gain SP. You will be occupied for 0 to 1.5 turns after casting as your mind recovers.",
+       "Fires a beam of pure energy which penetrates invulnerability barriers.",
+       "Stops time. Consumes all of your SP. The more SP consumed, the longer the duration of spell.",
        "",
        "",
        "",
@@ -460,13 +460,13 @@ static concptr const mind_tips[5][MAX_MIND_POWERS] =
        "Gives levitaion a while.",
        "Fires a short energy beam.",
        "Gives magic resistance for a while.",
-       "Improves spirit energy power temporaly. Improved spirit energy will be more and more powerfull or have longer duration. Too many improving results in uncontrollable explosion of spirit energy.",
-       "Gives aura which damages all monsters which attacked you for a while.",
-       "Damages an adjacent monster, and blow it away.",
+       "Increases your spirit energy temporarily. More spirit energy will boost the effect or duration of your force abilities. Too much spirit energy can result in an explosion.",
+       "Envelops you with a temporary aura that damages any monster which hits you in melee.",
+       "Damages an adjacent monster and blows it away.",
        "Fires a large energy ball.",
-       "Dispels all magics which is effecting a monster.",
+       "Dispels all magics which are effecting a monster.",
        "Summons ghosts.",
-       "Generates a huge ball of frame which centered on you.",
+       "Generates a huge ball of flame centered on you.",
        "Fires a long, powerful energy beam.",
        "Gives extremely fast speed.",
        "",
@@ -479,9 +479,9 @@ static concptr const mind_tips[5][MAX_MIND_POWERS] =
 },
 {
        "Detects all monsters except mindless in your vicinity.",
-       "Attacks monster with your weapons normaly, then move through counter side of the monster.",
-       "Sets off a trap, then destroy that trap.",
-       "Shakes dungeon structure, and results in random swaping of floors and walls.",
+       "Attacks a monster with your weapons normally, then dodges to one side.",
+       "Sets off a trap, then destroys that trap.",
+       "Shakes dungeon structure, and results in random swapping of floors and walls.",
        "Attacks all adjacent monsters.",
        "",
        "",
@@ -501,50 +501,50 @@ static concptr const mind_tips[5][MAX_MIND_POWERS] =
        "",
 },
 {
-       "Detects visible monsters in your vicinity and more and more. Detects invisible monsters at level 15. Gives telepathy at level 25. Magic mapping at level 35. All of effects need 4 more levels unless on a mirror.",
+       "Detects visible monsters in your vicinity. Detects invisible monsters at level 15. Gives telepathy at level 25. Magic mapping at level 35. All of the effects need 4 more levels unless on a mirror.",
        "Makes a mirror under you.",
-       "Fires bolt of flash light. Or fires beam of light on a mirror at level 10.",
-       "Teleport short distance.",
+       "Fires bolt of light. At level ten or higher, the bolt will be a beam of light if you are on a mirror.",
+       "Teleports you a short distance.",
        "Lights up nearby area and the inside of a room permanently.",
-       "Teleport long distance.",
-       "Gives aura of shards of mirror for a while. It cause counter attack to monsters which attacks you.",
+       "Teleports you a long distance.",
+       "Gives a temporary aura of mirror shards. The aura damages any monster that hits you in melee. If you are on a mirror, the aura will teleport you a short distance if a monster hits you in melee.",
        "Teleports all monsters on the line away unless resisted.",
        "Fires a ball of shards.",
-       "Generate balls which send monsters to sleep on all mirrors in the whole level.",
-       "Fires a beam of mana. If the beam hit a mirror, it breaks that mirror and reflects toward another mirror.",
+       "Causes any mirror to lull to sleep monsters close to the mirror.",
+       "Fires a beam of mana. If the beam hits a mirror, it breaks that mirror and bounces toward another mirror.",
        "Eliminates a monster on a mirror from current dungeon level.",
-       "Gives bonus to AC. Gives reflection at level 32. Gives magic resistance at level 40.",
-       "Fires a powerful beam of mana. If the beam hit a mirror, it breaks that mirror and fires 8 beams of mana to 8 different directions from that point.",
+       "Gives bonus to AC. Gives reflection at level 32. Gives magic resistance at level 40.",
+       "Fires a powerful beam of mana. If the beam hits a mirror, it breaks that mirror and fires 8 beams of mana to 8 different directions from that point.",
        "Attempts to slow, stun, confuse, scare, freeze all monsters in sight. Gets more power on a mirror.",
        "Recreates current dungeon level. Can only be used on a mirror.",
-       "Teleport to given location.",
+       "Teleports you to a given location.",
        "Recalls player from dungeon to town, or from town to the deepest level of dungeon.",
        "Completely protects you from any attacks at one in two chance.",
-       "Generates a magical triangle which damages all monsters in the area. The vertices of the triangle is you and two mirrors in sight.",
-       "Generates barrier which completly protect you from almost all damages. Takes a few your turns when the barrier breaks or duration time is exceeded.",
+       "Generates a magical triangle which damages all monsters in the area. The vertices of the triangle are you and two mirrors in sight.",
+       "Generates a barrier which completely protects you from almost all damage. Takes a few your turns when the barrier breaks or duration time is exceeded.",
 },
 
 {
-       "Darken nearby area and inside of a room.",
-       "Detects visible monsters in your vicinity and more and more. Detects traps, doors and stairs at level 5, items at level 15. Lights and know the whole level at level 45.",
-       "Teleport short distance.",
-       "Teleport as you recieve an attack. Might be able to teleport just before recieveing damages at higher level.",
-       "Teleport long distance.",
-       "Attack and teleport in a time.",
-       "Attempt to freeze a monster.",
+       "Darkens nearby area and inside of a room.",
+       "Detects visible monsters in your vicinity. Detects traps, doors and stairs at level 5. Detects items at level 15. Lights and reveals the whole level at level 45.",
+       "Teleports you a short distance.",
+       "Teleports you as you recieve an attack. Might be able to teleport just before receiving damage at higher levels.",
+       "Teleports you a long distance.",
+       "Attacks an adjacent monster and teleports you away immediately after the attack.",
+       "Attempts to freeze a monster.",
        "Identifies an item.",
        "Gives levitation for a while.",
-       "Generate a fire ball and teleport in a time. Gives resistance to fire for a while. This resistance can be added to which from equipment for more powerful resistance.",
+       "Generates a fire ball and immediately teleports you away. Gives resistance to fire for a while. This resistance can be added to that from equipment for more powerful resistance.",
        "Steps close to a monster and attacks at a time.",
        "Shoots 8 iron Spikes in 8 random directions.",
-       "Teleport a monster to a place adjacent to you.",
+       "Teleports a monster to a place adjacent to you.",
        "Releases a confusion ball which doesn't inflict any damage.",
-       "Swaps positions of you and a monster.",
+       "Causes you and a targeted monster to exchange positions.",
        "Sets a glyph under you. The glyph will explode when a monster moves on it.",
-       "Become ethereal form which gives ability to pass walls, and gives resistance to acid for a while. This resistance can be added to which from equipment for more powerful resistance.",
-       "Generates huge balls of poison, drain life and confusion, then teleport in a time.",
+       "Makes you ethereal for a period of time. While ethereal, you can pass through walls and are resistant to acid. The resistance can be added to that from equipment for more powerful resistance.",
+       "Generates huge balls of poison, drain life and confusion. Then immediately teleports you away.",
        "Fires some number of beams of fire, nether or plasma in random directions.",
-       "Creates shadows of yourself which gives you abillity to completely evade any attacks at one in two chance for a while.",
+       "Creates shadows of yourself which gives you the ability to completely evade any attacks at one in two chance for a while.",
        "",
 },
 #endif
@@ -557,9 +557,9 @@ static concptr const mind_tips[5][MAX_MIND_POWERS] =
  * @param power モンスター魔法のID
  * @return なし
  */
-void mindcraft_info(char *p, int use_mind, int power)
+void mindcraft_info(player_type *caster_ptr, char *p, int use_mind, int power)
 {
-       PLAYER_LEVEL plev = p_ptr->lev;
+       PLAYER_LEVEL plev = caster_ptr->lev;
 
        strcpy(p, "");
 
@@ -585,14 +585,14 @@ void mindcraft_info(char *p, int use_mind, int power)
 #endif
                case 11: sprintf(p, " %s%dd6", KWD_DAM, plev / 2);  break;
                case 12: sprintf(p, " %sd%d+%d", KWD_DAM, plev * 3, plev * 3); break;
-               case 13: sprintf(p, _(" 行動:%ld回", " %ld acts."), (long int)(p_ptr->csp + 100-p_ptr->energy_need - 50)/100); break;
+               case 13: sprintf(p, _(" 行動:%ld回", " %ld acts."), (long int)(caster_ptr->csp + 100-caster_ptr->energy_need - 50)/100); break;
                }
                break;
        case MIND_KI:
        {
                int boost = P_PTR_KI;
 
-               if (heavy_armor(p_ptr)) boost /= 2;
+               if (heavy_armor(caster_ptr)) boost /= 2;
 
                switch (power)
                {
@@ -689,14 +689,14 @@ void mindcraft_info(char *p, int use_mind, int power)
  * when you run it. It's probably easy to fix but I haven't tried,\n
  * sorry.\n
  */
-static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
+static bool_hack get_mind_power(player_type *caster_ptr, SPELL_IDX *sn, bool only_browse)
 {
        SPELL_IDX i;
        int             num = 0;
        TERM_LEN y = 1;
        TERM_LEN x = 10;
        PERCENTAGE minfail = 0;
-       PLAYER_LEVEL plev = p_ptr->lev;
+       PLAYER_LEVEL plev = caster_ptr->lev;
        PERCENTAGE chance = 0;
        int             ask = TRUE;
        char            choice;
@@ -710,7 +710,7 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
        int             use_mind;
        int menu_line = (use_menu ? 1 : 0);
 
-       switch (p_ptr->pclass)
+       switch (caster_ptr->pclass)
        {
        case CLASS_MINDCRAFTER:
        {
@@ -767,7 +767,7 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
                if (mind_ptr->info[*sn].min_lev <= plev)
                {
                        /* Success */
-                       return (TRUE);
+                       return TRUE;
                }
        }
 
@@ -812,7 +812,7 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
                                case '0':
                                {
                                        if (!only_browse) screen_load();
-                                       return (FALSE);
+                                       return FALSE;
                                }
 
                                case '8':
@@ -861,8 +861,8 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
                                put_str(format(_("Lv   %s   失率 効果", "Lv   %s   Fail Info"),
                                        ((use_mind == MIND_BERSERKER) || (use_mind == MIND_NINJUTSU)) ? "HP" : "MP"), y, x + 35);
 
-                               has_weapon[0] = has_melee_weapon(p_ptr, INVEN_RARM);
-                               has_weapon[1] = has_melee_weapon(p_ptr, INVEN_LARM);
+                               has_weapon[0] = has_melee_weapon(caster_ptr, INVEN_RARM);
+                               has_weapon[1] = has_melee_weapon(caster_ptr, INVEN_LARM);
 
                                /* Dump the spells */
                                for (i = 0; i < MAX_MIND_POWERS; i++)
@@ -884,14 +884,14 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
                                                chance -= 3 * (plev - spell.min_lev);
 
                                                /* Reduce failure rate by INT/WIS adjustment */
-                                               chance -= 3 * (adj_mag_stat[p_ptr->stat_ind[mp_ptr->spell_stat]] - 1);
+                                               chance -= 3 * (adj_mag_stat[caster_ptr->stat_ind[mp_ptr->spell_stat]] - 1);
 
                                                if (use_mind == MIND_KI)
                                                {
-                                                       if (heavy_armor(p_ptr)) chance += 20;
-                                                       if (p_ptr->icky_wield[0]) chance += 20;
+                                                       if (heavy_armor(caster_ptr)) chance += 20;
+                                                       if (caster_ptr->icky_wield[0]) chance += 20;
                                                        else if (has_weapon[0]) chance += 10;
-                                                       if (p_ptr->icky_wield[1]) chance += 20;
+                                                       if (caster_ptr->icky_wield[1]) chance += 20;
                                                        else if (has_weapon[1]) chance += 10;
                                                        if (i == 5)
                                                        {
@@ -902,35 +902,35 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
                                                }
 
                                                /* Not enough mana to cast */
-                                               if ((use_mind != MIND_BERSERKER) && (use_mind != MIND_NINJUTSU) && (mana_cost > p_ptr->csp))
+                                               if ((use_mind != MIND_BERSERKER) && (use_mind != MIND_NINJUTSU) && (mana_cost > caster_ptr->csp))
                                                {
-                                                       chance += 5 * (mana_cost - p_ptr->csp);
+                                                       chance += 5 * (mana_cost - caster_ptr->csp);
                                                }
 
-                                               chance += p_ptr->to_m_chance;
+                                               chance += caster_ptr->to_m_chance;
 
                                                /* Extract the minimum failure rate */
-                                               minfail = adj_mag_fail[p_ptr->stat_ind[mp_ptr->spell_stat]];
+                                               minfail = adj_mag_fail[caster_ptr->stat_ind[mp_ptr->spell_stat]];
 
                                                /* Minimum failure rate */
                                                if (chance < minfail) chance = minfail;
 
                                                /* Stunning makes spells harder */
-                                               if (p_ptr->stun > 50) chance += 25;
-                                               else if (p_ptr->stun) chance += 15;
+                                               if (caster_ptr->stun > 50) chance += 25;
+                                               else if (caster_ptr->stun) chance += 15;
 
                                                if (use_mind == MIND_KI)
                                                {
-                                                       if (heavy_armor(p_ptr)) chance += 5;
-                                                       if (p_ptr->icky_wield[0]) chance += 5;
-                                                       if (p_ptr->icky_wield[1]) chance += 5;
+                                                       if (heavy_armor(caster_ptr)) chance += 5;
+                                                       if (caster_ptr->icky_wield[0]) chance += 5;
+                                                       if (caster_ptr->icky_wield[1]) chance += 5;
                                                }
                                                /* Always a 5 percent chance of working */
                                                if (chance > 95) chance = 95;
                                        }
 
                                        /* Get info */
-                                       mindcraft_info(comment, use_mind, i);
+                                       mindcraft_info(caster_ptr, comment, use_mind, i);
 
                                        if (use_menu)
                                        {
@@ -1003,11 +1003,11 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
        }
        if (redraw && !only_browse) screen_load();
 
-       p_ptr->window |= (PW_SPELL);
-       handle_stuff();
+       caster_ptr->window |= (PW_SPELL);
+       handle_stuff(caster_ptr);
 
        /* Abort if needed */
-       if (!flag) return (FALSE);
+       if (!flag) return FALSE;
 
        /* Save the choice */
        (*sn) = i;
@@ -1015,7 +1015,7 @@ static bool_hack get_mind_power(SPELL_IDX *sn, bool only_browse)
        repeat_push((COMMAND_CODE)i);
 
        /* Success */
-       return (TRUE);
+       return TRUE;
 }
 
 /*!
@@ -1042,20 +1042,20 @@ static bool cast_mindcrafter_spell(player_type *caster_ptr, int spell)
                        wiz_lite(caster_ptr, FALSE);
                }
                else if (plev > 19)
-                       map_area(DETECT_RAD_MAP);
+                       map_area(caster_ptr, DETECT_RAD_MAP);
 
                if (plev < 30)
                {
-                       b = detect_monsters_normal(DETECT_RAD_DEFAULT);
-                       if (plev > 14) b |= detect_monsters_invis(DETECT_RAD_DEFAULT);
+                       b = detect_monsters_normal(caster_ptr, DETECT_RAD_DEFAULT);
+                       if (plev > 14) b |= detect_monsters_invis(caster_ptr, DETECT_RAD_DEFAULT);
                        if (plev > 4)  {
-                               b |= detect_traps(DETECT_RAD_DEFAULT, TRUE);
-                               b |= detect_doors(DETECT_RAD_DEFAULT);
+                               b |= detect_traps(caster_ptr, DETECT_RAD_DEFAULT, TRUE);
+                               b |= detect_doors(caster_ptr, DETECT_RAD_DEFAULT);
                        }
                }
                else
                {
-                       b = detect_all(DETECT_RAD_DEFAULT);
+                       b = detect_all(caster_ptr, DETECT_RAD_DEFAULT);
                }
 
                if ((plev > 24) && (plev < 40))
@@ -1066,12 +1066,12 @@ static bool cast_mindcrafter_spell(player_type *caster_ptr, int spell)
                break;
        case 1:
                /* Mindblast */
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
                if (randint1(100) < plev * 2)
-                       fire_beam(GF_PSI, dir, damroll(3 + ((plev - 1) / 4), (3 + plev / 15)));
+                       fire_beam(caster_ptr, GF_PSI, dir, damroll(3 + ((plev - 1) / 4), (3 + plev / 15)));
                else
-                       fire_ball(GF_PSI, dir, damroll(3 + ((plev - 1) / 4), (3 + plev / 15)), 0);
+                       fire_ball(caster_ptr, GF_PSI, dir, damroll(3 + ((plev - 1) / 4), (3 + plev / 15)), 0);
                break;
        case 2:
                /* Minor displace */
@@ -1085,20 +1085,20 @@ static bool cast_mindcrafter_spell(player_type *caster_ptr, int spell)
                /* Domination */
                if (plev < 30)
                {
-                       if (!get_aim_dir(&dir)) return FALSE;
+                       if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
-                       fire_ball(GF_DOMINATION, dir, plev, 0);
+                       fire_ball(caster_ptr, GF_DOMINATION, dir, plev, 0);
                }
                else
                {
-                       charm_monsters(plev * 2);
+                       charm_monsters(caster_ptr, plev * 2);
                }
                break;
        case 5:
                /* Fist of Force  ---  not 'true' TK  */
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
-               fire_ball(GF_TELEKINESIS, dir, damroll(8 + ((plev - 5) / 4), 8),
+               fire_ball(caster_ptr, GF_TELEKINESIS, dir, damroll(8 + ((plev - 5) / 4), 8),
                        (plev > 20 ? (plev - 20) / 8 + 1 : 0));
                break;
        case 6:
@@ -1113,18 +1113,18 @@ static bool cast_mindcrafter_spell(player_type *caster_ptr, int spell)
        case 7:
                /* Psychometry */
                if (plev < 25)
-                       return psychometry();
+                       return psychometry(caster_ptr);
                else
-                       return ident_spell(FALSE);
+                       return ident_spell(caster_ptr, FALSE);
        case 8:
                /* Mindwave */
                msg_print(_("精神を捻じ曲げる波動を発生させた!", "Mind-warping forces emanate from your brain!"));
 
                if (plev < 25)
-                       project(0, 2 + plev / 10, caster_ptr->y, caster_ptr->x,
+                       project(caster_ptr, 0, 2 + plev / 10, caster_ptr->y, caster_ptr->x,
                        (plev * 3), GF_PSI, PROJECT_KILL, -1);
                else
-                       (void)mindblast_monsters(randint1(plev * ((plev - 5) / 10 + 1)));
+                       (void)mindblast_monsters(caster_ptr, randint1(plev * ((plev - 5) / 10 + 1)));
                break;
        case 9:
                /* Adrenaline */
@@ -1135,7 +1135,7 @@ static bool cast_mindcrafter_spell(player_type *caster_ptr, int spell)
                 * Only heal when Adrenalin Channeling is not active. We check
                 * that by checking if the player isn't fast and 'heroed' atm.
                 */
-               if (!IS_FAST() || !IS_HERO())
+               if (!IS_FAST(caster_ptr) || !IS_HERO(caster_ptr))
                {
                        hp_player(caster_ptr, plev);
                }
@@ -1147,26 +1147,26 @@ static bool cast_mindcrafter_spell(player_type *caster_ptr, int spell)
                break;
        case 10:
                /* Telekinesis */
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
                fetch(caster_ptr, dir, plev * 15, FALSE);
 
                break;
        case 11:
                /* Psychic Drain */
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
                b = damroll(plev / 2, 6);
 
                /* This is always a radius-0 ball now */
-               if (fire_ball(GF_PSI_DRAIN, dir, b, 0))
+               if (fire_ball(caster_ptr, GF_PSI_DRAIN, dir, b, 0))
                        caster_ptr->energy_need += randint1(150);
                break;
        case 12:
                /* psycho-spear */
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
-               fire_beam(GF_PSY_SPEAR, dir, randint1(plev*3)+plev*3);
+               fire_beam(caster_ptr, GF_PSY_SPEAR, dir, randint1(plev*3)+plev*3);
                break;
        case 13:
        {
@@ -1198,20 +1198,20 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
        switch (spell)
        {
        case 0:
-               if (!get_aim_dir(&dir)) return FALSE;
-               fire_ball(GF_MISSILE, dir, damroll(3 + ((plev - 1) / 5) + boost / 12, 4), 0);
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               fire_ball(caster_ptr, GF_MISSILE, dir, damroll(3 + ((plev - 1) / 5) + boost / 12, 4), 0);
                break;
        case 1:
-               (void)lite_area(damroll(2, (plev / 2)), (plev / 10) + 1);
+               (void)lite_area(caster_ptr, damroll(2, (plev / 2)), (plev / 10) + 1);
                break;
        case 2:
                set_tim_levitation(caster_ptr, randint1(30) + 30 + boost / 5, FALSE);
                break;
        case 3:
                project_length = plev / 8 + 3;
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
-               fire_beam(GF_MISSILE, dir, damroll(5 + ((plev - 1) / 5) + boost / 10, 5));
+               fire_beam(caster_ptr, GF_MISSILE, dir, damroll(5 + ((plev - 1) / 5) + boost / 10, 5));
                break;
        case 4:
                set_resist_magic(caster_ptr, randint1(20) + 20 + boost / 5, FALSE);
@@ -1223,7 +1223,7 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
                if (randint1(P_PTR_KI) > (plev * 4 + 120))
                {
                        msg_print(_("気が暴走した!", "The Force exploded!"));
-                       fire_ball(GF_MANA, 0, P_PTR_KI / 2, 10);
+                       fire_ball(caster_ptr, GF_MANA, 0, P_PTR_KI / 2, 10);
                        take_hit(caster_ptr, DAMAGE_LOSELIFE, caster_ptr->magic_num1[0] / 2, _("気の暴走", "Explosion of the Force"), -1);
                }
                else return TRUE;
@@ -1235,19 +1235,19 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
                return shock_power(caster_ptr);
                break;
        case 8:
-               if (!get_aim_dir(&dir)) return FALSE;
-               fire_ball(GF_MISSILE, dir, damroll(10, 6) + plev * 3 / 2 + boost * 3 / 5, (plev < 30) ? 2 : 3);
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               fire_ball(caster_ptr, GF_MISSILE, dir, damroll(10, 6) + plev * 3 / 2 + boost * 3 / 5, (plev < 30) ? 2 : 3);
                break;
        case 9:
        {
                MONSTER_IDX m_idx;
 
-               if (!target_set(TARGET_KILL)) return FALSE;
+               if (!target_set(caster_ptr, TARGET_KILL)) return FALSE;
                m_idx = caster_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx;
                if (!m_idx) break;
-               if (!player_has_los_bold(p_ptr, target_row, target_col)) break;
-               if (!projectable(caster_ptr->current_floor_ptr, caster_ptr->y, caster_ptr->x, target_row, target_col)) break;
-               dispel_monster_status(m_idx);
+               if (!player_has_los_bold(caster_ptr, target_row, target_col)) break;
+               if (!projectable(caster_ptr, caster_ptr->y, caster_ptr->x, target_row, target_col)) break;
+               dispel_monster_status(caster_ptr, m_idx);
                break;
        }
        case 10:
@@ -1256,7 +1256,7 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
                bool success = FALSE;
 
                for (i = 0; i < 1 + boost/100; i++)
-                       if (summon_specific(-1, caster_ptr->y, caster_ptr->x, plev, SUMMON_PHANTOM, PM_FORCE_PET))
+                       if (summon_specific(caster_ptr, -1, caster_ptr->y, caster_ptr->x, plev, SUMMON_PHANTOM, PM_FORCE_PET))
                                success = TRUE;
                if (success)
                {
@@ -1269,12 +1269,12 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
                break;
        }
        case 11:
-               fire_ball(GF_FIRE, 0, 200 + (2 * plev) + boost * 2, 10);
+               fire_ball(caster_ptr, GF_FIRE, 0, 200 + (2 * plev) + boost * 2, 10);
                break;
        case 12:
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
 
-               fire_beam(GF_MANA, dir, damroll(10 + (plev / 2) + boost * 3 / 10, 15));
+               fire_beam(caster_ptr, GF_MANA, dir, damroll(10 + (plev / 2) + boost * 3 / 10, 15));
                break;
        case 13:
                set_lightspeed(caster_ptr, randint1(16) + 16 + boost / 20, FALSE);
@@ -1282,6 +1282,7 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
        default:
                msg_print(_("なに?", "Zap?"));
        }
+
        P_PTR_KI = 0;
        caster_ptr->update |= (PU_BONUS);
 
@@ -1293,18 +1294,19 @@ static bool cast_force_spell(player_type *caster_ptr, int spell)
  * @brief 現在フロアに存在している鏡の数を数える / calculate mirrors
  * @return 鏡の枚数
  */
-static int number_of_mirrors(void)
+static int number_of_mirrors(floor_type *floor_ptr)
 {
-       POSITION x, y;
        int val = 0;
-       for (x = 0; x < p_ptr->current_floor_ptr->width; x++) {
-               for (y = 0; y < p_ptr->current_floor_ptr->height; y++) {
-                       if (is_mirror_grid(&p_ptr->current_floor_ptr->grid_array[y][x])) val++;
+       for (POSITION x = 0; x < floor_ptr->width; x++) {
+               for (POSITION y = 0; y < floor_ptr->height; y++) {
+                       if (is_mirror_grid(&floor_ptr->grid_array[y][x])) val++;
                }
        }
+
        return val;
 }
 
+
 /*!
  * @brief 鏡魔法の発動 /
  * do_cmd_cast calls this function if the player's class is 'Mirror magic'.
@@ -1325,17 +1327,17 @@ static bool cast_mirror_spell(player_type *caster_ptr, int spell)
                /* mirror of seeing */
        case 0:
                tmp = is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[caster_ptr->y][caster_ptr->x]) ? 4 : 0;
-               if (plev + tmp > 4)detect_monsters_normal(DETECT_RAD_DEFAULT);
-               if (plev + tmp > 18)detect_monsters_invis(DETECT_RAD_DEFAULT);
+               if (plev + tmp > 4)detect_monsters_normal(caster_ptr, DETECT_RAD_DEFAULT);
+               if (plev + tmp > 18)detect_monsters_invis(caster_ptr, DETECT_RAD_DEFAULT);
                if (plev + tmp > 28)set_tim_esp(caster_ptr, (TIME_EFFECT)plev, FALSE);
-               if (plev + tmp > 38)map_area(DETECT_RAD_MAP);
+               if (plev + tmp > 38)map_area(caster_ptr, DETECT_RAD_MAP);
                if (tmp == 0 && plev < 5) {
                        msg_print(_("鏡がなくて集中できなかった!", "You need a mirror to concentrate!"));
                }
                break;
                /* drip of light */
        case 1:
-               if (number_of_mirrors() < 4 + plev / 10) {
+               if (number_of_mirrors(caster_ptr->current_floor_ptr) < 4 + plev / 10) {
                        place_mirror(caster_ptr);
                }
                else {
@@ -1343,12 +1345,12 @@ static bool cast_mirror_spell(player_type *caster_ptr, int spell)
                }
                break;
        case 2:
-               if (!get_aim_dir(&dir)) return FALSE;
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
                if (plev > 9 && is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[caster_ptr->y][caster_ptr->x])) {
-                       fire_beam(GF_LITE, dir, damroll(3 + ((plev - 1) / 5), 4));
+                       fire_beam(caster_ptr, GF_LITE, dir, damroll(3 + ((plev - 1) / 5), 4));
                }
                else {
-                       fire_bolt(GF_LITE, dir, damroll(3 + ((plev - 1) / 5), 4));
+                       fire_bolt(caster_ptr, GF_LITE, dir, damroll(3 + ((plev - 1) / 5), 4));
                }
                break;
                /* warped mirror */
@@ -1357,7 +1359,7 @@ static bool cast_mirror_spell(player_type *caster_ptr, int spell)
                break;
                /* mirror of light */
        case 4:
-               (void)lite_area(damroll(2, (plev / 2)), (plev / 10) + 1);
+               (void)lite_area(caster_ptr, damroll(2, (plev / 2)), (plev / 10) + 1);
                break;
                /* mirror of wandering */
        case 5:
@@ -1369,13 +1371,13 @@ static bool cast_mirror_spell(player_type *caster_ptr, int spell)
                break;
                /* banishing mirror */
        case 7:
-               if (!get_aim_dir(&dir)) return FALSE;
-               (void)fire_beam(GF_AWAY_ALL, dir, plev);
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               (void)fire_beam(caster_ptr, GF_AWAY_ALL, dir, plev);
                break;
                /* mirror clashing */
        case 8:
-               if (!get_aim_dir(&dir)) return FALSE;
-               fire_ball(GF_SHARDS, dir, damroll(8 + ((plev - 5) / 4), 8),
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               fire_ball(caster_ptr, GF_SHARDS, dir, damroll(8 + ((plev - 5) / 4), 8),
                        (plev > 20 ? (plev - 20) / 8 + 1 : 0));
                break;
                /* mirror sleeping */
@@ -1383,15 +1385,15 @@ static bool cast_mirror_spell(player_type *caster_ptr, int spell)
                for (x = 0; x < caster_ptr->current_floor_ptr->width; x++) {
                        for (y = 0; y < caster_ptr->current_floor_ptr->height; y++) {
                                if (is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[y][x])) {
-                                       project(0, 2, y, x, (HIT_POINT)plev, GF_OLD_SLEEP, (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI), -1);
+                                       project(caster_ptr, 0, 2, y, x, (HIT_POINT)plev, GF_OLD_SLEEP, (PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL | PROJECT_JUMP | PROJECT_NO_HANGEKI), -1);
                                }
                        }
                }
                break;
                /* seeker ray */
        case 10:
-               if (!get_aim_dir(&dir)) return FALSE;
-               fire_beam(GF_SEEKER, dir, damroll(11 + (plev - 5) / 4, 8));
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               fire_beam(caster_ptr, GF_SEEKER, dir, damroll(11 + (plev - 5) / 4, 8));
                break;
                /* seal of mirror */
        case 11:
@@ -1406,31 +1408,31 @@ static bool cast_mirror_spell(player_type *caster_ptr, int spell)
                break;
                /* super ray */
        case 13:
-               if (!get_aim_dir(&dir)) return FALSE;
-               fire_beam(GF_SUPER_RAY, dir, 150 + randint1(2 * plev));
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               fire_beam(caster_ptr, GF_SUPER_RAY, dir, 150 + randint1(2 * plev));
                break;
                /* illusion light */
        case 14:
                tmp = is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[caster_ptr->y][caster_ptr->x]) ? 4 : 3;
-               slow_monsters(plev);
-               stun_monsters(plev*tmp);
-               confuse_monsters(plev*tmp);
-               turn_monsters(plev*tmp);
-               stun_monsters(plev*tmp);
-               stasis_monsters(plev*tmp);
+               slow_monsters(caster_ptr, plev);
+               stun_monsters(caster_ptr, plev*tmp);
+               confuse_monsters(caster_ptr, plev*tmp);
+               turn_monsters(caster_ptr, plev*tmp);
+               stun_monsters(caster_ptr, plev*tmp);
+               stasis_monsters(caster_ptr, plev*tmp);
                break;
                /* mirror shift */
        case 15:
                if (!is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[caster_ptr->y][caster_ptr->x])) {
-                       msg_print(_("鏡の国の場所がわからない!", "You cannot find out where is the world of mirror!"));
+                       msg_print(_("鏡の国の場所がわからない!", "You cannot find out where the mirror is!"));
                        break;
                }
-               alter_reality();
+               reserve_alter_reality(caster_ptr);
                break;
                /* mirror tunnel */
        case 16:
-               msg_print(_("鏡の世界を通り抜け…  ", "Go through the world of mirror..."));
-               return mirror_tunnel();
+               msg_print(_("鏡の世界を通り抜け…  ", "You try to enter the mirror..."));
+               return mirror_tunnel(caster_ptr);
 
                /* mirror of recall */
        case 17:
@@ -1471,7 +1473,7 @@ static bool cast_berserk_spell(player_type *caster_ptr, int spell)
        switch (spell)
        {
        case 0:
-               detect_monsters_mind(DETECT_RAD_DEFAULT);
+               detect_monsters_mind(caster_ptr, DETECT_RAD_DEFAULT);
                break;
        case 1:
        {
@@ -1481,7 +1483,7 @@ static bool cast_berserk_spell(player_type *caster_ptr, int spell)
                        return FALSE;
                }
 
-               if (!get_direction(&dir, FALSE, FALSE)) return FALSE;
+               if (!get_direction(caster_ptr, &dir, FALSE, FALSE)) return FALSE;
 
                if (dir == 5) return FALSE;
                y = caster_ptr->y + ddy[dir];
@@ -1495,13 +1497,13 @@ static bool cast_berserk_spell(player_type *caster_ptr, int spell)
 
                py_attack(caster_ptr, y, x, 0);
 
-               if (!player_can_enter(caster_ptr->current_floor_ptr->grid_array[y][x].feat, 0) || is_trap(caster_ptr->current_floor_ptr->grid_array[y][x].feat))
+               if (!player_can_enter(caster_ptr, caster_ptr->current_floor_ptr->grid_array[y][x].feat, 0) || is_trap(caster_ptr, caster_ptr->current_floor_ptr->grid_array[y][x].feat))
                        break;
 
                y += ddy[dir];
                x += ddx[dir];
 
-               if (player_can_enter(caster_ptr->current_floor_ptr->grid_array[y][x].feat, 0) && !is_trap(caster_ptr->current_floor_ptr->grid_array[y][x].feat) && !caster_ptr->current_floor_ptr->grid_array[y][x].m_idx)
+               if (player_can_enter(caster_ptr, caster_ptr->current_floor_ptr->grid_array[y][x].feat, 0) && !is_trap(caster_ptr, caster_ptr->current_floor_ptr->grid_array[y][x].feat) && !caster_ptr->current_floor_ptr->grid_array[y][x].m_idx)
                {
                        msg_print(NULL);
                        (void)move_player_effect(caster_ptr, y, x, MPE_FORGET_FLOW | MPE_HANDLE_STUFF | MPE_DONT_PICKUP);
@@ -1510,7 +1512,7 @@ static bool cast_berserk_spell(player_type *caster_ptr, int spell)
        }
        case 2:
        {
-               if (!get_direction(&dir, FALSE, FALSE)) return FALSE;
+               if (!get_direction(caster_ptr, &dir, FALSE, FALSE)) return FALSE;
                y = caster_ptr->y + ddy[dir];
                x = caster_ptr->x + ddx[dir];
                move_player(caster_ptr, dir, easy_disarm, TRUE);
@@ -1532,6 +1534,7 @@ static bool cast_berserk_spell(player_type *caster_ptr, int spell)
 /*!
  * @brief 忍術の発動 /
  * do_cmd_cast calls this function if the player's class is 'ninja'.
+ * @param caster_ptr プレーヤーへの参照ポインタ
  * @param spell 発動する特殊技能のID
  * @return 処理を実行したらTRUE、キャンセルした場合FALSEを返す。
  */
@@ -1542,26 +1545,27 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
        PLAYER_LEVEL plev = caster_ptr->lev;
 
        /* spell code */
+       floor_type *floor_ptr = caster_ptr->current_floor_ptr;
        switch (spell)
        {
        case 0:
-               (void)unlite_area(0, 3);
+               (void)unlite_area(caster_ptr, 0, 3);
                break;
        case 1:
                if (plev > 44)
                {
                        wiz_lite(caster_ptr, TRUE);
                }
-               detect_monsters_normal(DETECT_RAD_DEFAULT);
+               detect_monsters_normal(caster_ptr, DETECT_RAD_DEFAULT);
                if (plev > 4)
                {
-                       detect_traps(DETECT_RAD_DEFAULT, TRUE);
-                       detect_doors(DETECT_RAD_DEFAULT);
-                       detect_stairs(DETECT_RAD_DEFAULT);
+                       detect_traps(caster_ptr, DETECT_RAD_DEFAULT, TRUE);
+                       detect_doors(caster_ptr, DETECT_RAD_DEFAULT);
+                       detect_stairs(caster_ptr, DETECT_RAD_DEFAULT);
                }
                if (plev > 14)
                {
-                       detect_objects_normal(DETECT_RAD_DEFAULT);
+                       detect_objects_normal(caster_ptr, DETECT_RAD_DEFAULT);
                }
                break;
        case 2:
@@ -1573,7 +1577,7 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
        {
                if (!(caster_ptr->special_defense & NINJA_KAWARIMI))
                {
-                       msg_print(_("敵の攻撃に対して敏感になった。", "You are now prepare to evade any attacks."));
+                       msg_print(_("敵の攻撃に対して敏感になった。", "You are now prepared to evade any attacks."));
                        caster_ptr->special_defense |= NINJA_KAWARIMI;
                        caster_ptr->redraw |= (PR_STATUS);
                }
@@ -1586,27 +1590,27 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
        }
        case 5:
        {
-               if(!panic_hit()) return FALSE;
+               if(!hit_and_away(caster_ptr)) return FALSE;
                break;
        }
        case 6:
        {
-               if (!get_aim_dir(&dir)) return FALSE;
-               (void)stasis_monster(dir);
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               (void)stasis_monster(caster_ptr, dir);
                break;
        }
        case 7:
-               return ident_spell(FALSE);
+               return ident_spell(caster_ptr, FALSE);
        case 8:
                set_tim_levitation(caster_ptr, randint1(20) + 20, FALSE);
                break;
        case 9:
-               fire_ball(GF_FIRE, 0, 50+plev, plev/10+2);
+               fire_ball(caster_ptr, GF_FIRE, 0, 50+plev, plev/10+2);
                teleport_player(caster_ptr, 30, 0L);
                set_oppose_fire(caster_ptr, (TIME_EFFECT)plev, FALSE);
                break;
        case 10:
-               return rush_attack(NULL);
+               return rush_attack(caster_ptr, NULL);
        case 11:
        {
                int i;
@@ -1642,47 +1646,47 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
                u16b path_g[512];
                POSITION ty, tx;
 
-               if (!target_set(TARGET_KILL)) return FALSE;
-               m_idx = caster_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx;
+               if (!target_set(caster_ptr, TARGET_KILL)) return FALSE;
+               m_idx = floor_ptr->grid_array[target_row][target_col].m_idx;
                if (!m_idx) break;
                if (m_idx == caster_ptr->riding) break;
-               if (!player_has_los_bold(p_ptr, target_row, target_col)) break;
-               if (!projectable(caster_ptr->current_floor_ptr, caster_ptr->y, caster_ptr->x, target_row, target_col)) break;
-               m_ptr = &caster_ptr->current_floor_ptr->m_list[m_idx];
-               monster_desc(m_name, m_ptr, 0);
+               if (!player_has_los_bold(caster_ptr, target_row, target_col)) break;
+               if (!projectable(caster_ptr, caster_ptr->y, caster_ptr->x, target_row, target_col)) break;
+               m_ptr = &floor_ptr->m_list[m_idx];
+               monster_desc(caster_ptr, m_name, m_ptr, 0);
                msg_format(_("%sを引き戻した。", "You pull back %s."), m_name);
-               path_n = project_path(path_g, MAX_RANGE, target_row, target_col, caster_ptr->y, caster_ptr->x, 0);
+               path_n = project_path(caster_ptr, path_g, MAX_RANGE, target_row, target_col, caster_ptr->y, caster_ptr->x, 0);
                ty = target_row, tx = target_col;
                for (i = 1; i < path_n; i++)
                {
                        POSITION ny = GRID_Y(path_g[i]);
                        POSITION nx = GRID_X(path_g[i]);
-                       grid_type *g_ptr = &caster_ptr->current_floor_ptr->grid_array[ny][nx];
+                       grid_type *g_ptr = &floor_ptr->grid_array[ny][nx];
 
-                       if (in_bounds(caster_ptr->current_floor_ptr, ny, nx) && cave_empty_bold(p_ptr->current_floor_ptr, ny, nx) &&
+                       if (in_bounds(floor_ptr, ny, nx) && is_cave_empty_bold(caster_ptr, ny, nx) &&
                            !(g_ptr->info & CAVE_OBJECT) &&
-                               !pattern_tile(ny, nx))
+                               !pattern_tile(floor_ptr, ny, nx))
                        {
                                ty = ny;
                                tx = nx;
                        }
                }
                /* Update the old location */
-               caster_ptr->current_floor_ptr->grid_array[target_row][target_col].m_idx = 0;
+               floor_ptr->grid_array[target_row][target_col].m_idx = 0;
 
                /* Update the new location */
-               caster_ptr->current_floor_ptr->grid_array[ty][tx].m_idx = m_idx;
+               floor_ptr->grid_array[ty][tx].m_idx = m_idx;
 
                /* Move the monster */
                m_ptr->fy = ty;
                m_ptr->fx = tx;
 
                /* Wake the monster up */
-               (void)set_monster_csleep(m_idx, 0);
+               (void)set_monster_csleep(caster_ptr, m_idx, 0);
 
                update_monster(caster_ptr, m_idx, TRUE);
-               lite_spot(target_row, target_col);
-               lite_spot(ty, tx);
+               lite_spot(caster_ptr, target_row, target_col);
+               lite_spot(caster_ptr, ty, tx);
 
                if (r_info[m_ptr->r_idx].flags7 & (RF7_LITE_MASK | RF7_DARK_MASK))
                        caster_ptr->update |= (PU_MON_LITE);
@@ -1690,38 +1694,38 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
                if (m_ptr->ml)
                {
                        /* Auto-Recall if possible and visible */
-                       if (!caster_ptr->image) monster_race_track(m_ptr->ap_r_idx);
-                       health_track(m_idx);
+                       if (!caster_ptr->image) monster_race_track(caster_ptr, m_ptr->ap_r_idx);
+                       health_track(caster_ptr, m_idx);
                }
 
                break;
        }
        case 13:
-               if (!get_aim_dir(&dir)) return FALSE;
-               fire_ball(GF_OLD_CONF, dir, plev*3, 3);
+               if (!get_aim_dir(caster_ptr, &dir)) return FALSE;
+               fire_ball(caster_ptr, GF_OLD_CONF, dir, plev*3, 3);
                break;
        case 14:
                project_length = -1;
-               if (!get_aim_dir(&dir))
+               if (!get_aim_dir(caster_ptr, &dir))
                {
                        project_length = 0;
                        return FALSE;
                }
                project_length = 0;
 
-               (void)teleport_swap(dir);
+               (void)teleport_swap(caster_ptr, dir);
                break;
        case 15:
-               explosive_rune(caster_ptr->current_floor_ptr, caster_ptr->y, caster_ptr->x);
+               explosive_rune(caster_ptr, caster_ptr->y, caster_ptr->x);
                break;
        case 16:
                (void)set_kabenuke(caster_ptr, randint1(plev/2) + plev/2, FALSE);
                set_oppose_acid(caster_ptr, (TIME_EFFECT)plev, FALSE);
                break;
        case 17:
-               fire_ball(GF_POIS, 0, 75+plev*2/3, plev/5+2);
-               fire_ball(GF_HYPODYNAMIA, 0, 75+plev*2/3, plev/5+2);
-               fire_ball(GF_CONFUSION, 0, 75+plev*2/3, plev/5+2);
+               fire_ball(caster_ptr, GF_POIS, 0, 75+plev*2/3, plev/5+2);
+               fire_ball(caster_ptr, GF_HYPODYNAMIA, 0, 75+plev*2/3, plev/5+2);
+               fire_ball(caster_ptr, GF_CONFUSION, 0, 75+plev*2/3, plev/5+2);
                teleport_player(caster_ptr, 30, 0L);
                break;
        case 18:
@@ -1736,11 +1740,11 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
 
                        while (attempts--)
                        {
-                               scatter(&y, &x, caster_ptr->y, caster_ptr->x, 4, 0);
+                               scatter(caster_ptr, &y, &x, caster_ptr->y, caster_ptr->x, 4, 0);
 
                                if (!player_bold(caster_ptr, y, x)) break;
                        }
-                       project(0, 0, y, x, damroll(6 + plev / 8, 10), typ,
+                       project(caster_ptr, 0, 0, y, x, damroll(6 + plev / 8, 10), typ,
                                (PROJECT_BEAM | PROJECT_THRU | PROJECT_GRID | PROJECT_KILL), -1);
                }
                break;
@@ -1759,25 +1763,25 @@ static bool cast_ninja_spell(player_type *caster_ptr, int spell)
  * @brief 特殊技能コマンドのメインルーチン /
  * @return なし
  */
-void do_cmd_mind(void)
+void do_cmd_mind(player_type *caster_ptr)
 {
        SPELL_IDX n = 0;
        int b = 0;
        PERCENTAGE chance;
        PERCENTAGE minfail = 0;
-       PLAYER_LEVEL plev = p_ptr->lev;
-       int             old_csp = p_ptr->csp;
+       PLAYER_LEVEL plev = caster_ptr->lev;
+       int             old_csp = caster_ptr->csp;
        mind_type       spell;
        bool            cast;
        int             use_mind, mana_cost;
        concptr            p;
        bool            on_mirror = FALSE;
 
-       if (cmd_limit_confused(p_ptr)) return;
-       if (!get_mind_power(&n, FALSE)) return;
+       if (cmd_limit_confused(caster_ptr)) return;
+       if (!get_mind_power(caster_ptr, &n, FALSE)) return;
 
 #ifdef JP
-       switch(p_ptr->pclass)
+       switch(caster_ptr->pclass)
        {
                case CLASS_MINDCRAFTER: use_mind = MIND_MINDCRAFTER; p = "精神";break;
                case CLASS_FORCETRAINER:          use_mind = MIND_KI; p = "気";break;
@@ -1787,7 +1791,7 @@ void do_cmd_mind(void)
                default:                use_mind = 0 ;p = "超能力"; break;
        }
 #else
-       switch(p_ptr->pclass)
+       switch(caster_ptr->pclass)
        {
                case CLASS_MINDCRAFTER: use_mind = MIND_MINDCRAFTER; break;
                case CLASS_FORCETRAINER: use_mind = MIND_KI; break;
@@ -1806,11 +1810,11 @@ void do_cmd_mind(void)
        mana_cost = spell.mana_cost;
        if (use_mind == MIND_KI)
        {
-               if (heavy_armor(p_ptr)) chance += 20;
-               if (p_ptr->icky_wield[0]) chance += 20;
-               else if (has_melee_weapon(p_ptr, INVEN_RARM)) chance += 10;
-               if (p_ptr->icky_wield[1]) chance += 20;
-               else if (has_melee_weapon(p_ptr, INVEN_LARM)) chance += 10;
+               if (heavy_armor(caster_ptr)) chance += 20;
+               if (caster_ptr->icky_wield[0]) chance += 20;
+               else if (has_melee_weapon(caster_ptr, INVEN_RARM)) chance += 10;
+               if (caster_ptr->icky_wield[1]) chance += 20;
+               else if (has_melee_weapon(caster_ptr, INVEN_LARM)) chance += 10;
                if (n == 5)
                {
                        int j;
@@ -1822,13 +1826,13 @@ void do_cmd_mind(void)
        /* Verify "dangerous" spells */
        if ((use_mind == MIND_BERSERKER) || (use_mind == MIND_NINJUTSU))
        {
-               if (mana_cost > p_ptr->chp)
+               if (mana_cost > caster_ptr->chp)
                {
                        msg_print(_("HPが足りません。", "You do not have enough hp to use this power."));
                        return;
                }
        }
-       else if (mana_cost > p_ptr->csp)
+       else if (mana_cost > caster_ptr->csp)
        {
                /* Warning */
                msg_print(_("MPが足りません。", "You do not have enough mana to use this power."));
@@ -1845,32 +1849,32 @@ void do_cmd_mind(void)
                /* Reduce failure rate by "effective" level adjustment */
                chance -= 3 * (plev - spell.min_lev);
 
-               chance += p_ptr->to_m_chance;
+               chance += caster_ptr->to_m_chance;
 
                /* Reduce failure rate by INT/WIS adjustment */
-               chance -= 3 * (adj_mag_stat[p_ptr->stat_ind[mp_ptr->spell_stat]] - 1);
+               chance -= 3 * (adj_mag_stat[caster_ptr->stat_ind[mp_ptr->spell_stat]] - 1);
 
                /* Not enough mana to cast */
-               if ((mana_cost > p_ptr->csp) && (use_mind != MIND_BERSERKER) && (use_mind != MIND_NINJUTSU))
+               if ((mana_cost > caster_ptr->csp) && (use_mind != MIND_BERSERKER) && (use_mind != MIND_NINJUTSU))
                {
-                       chance += 5 * (mana_cost - p_ptr->csp);
+                       chance += 5 * (mana_cost - caster_ptr->csp);
                }
 
                /* Extract the minimum failure rate */
-               minfail = adj_mag_fail[p_ptr->stat_ind[mp_ptr->spell_stat]];
+               minfail = adj_mag_fail[caster_ptr->stat_ind[mp_ptr->spell_stat]];
 
                /* Minimum failure rate */
                if (chance < minfail) chance = minfail;
 
                /* Stunning makes spells harder */
-               if (p_ptr->stun > 50) chance += 25;
-               else if (p_ptr->stun) chance += 15;
+               if (caster_ptr->stun > 50) chance += 25;
+               else if (caster_ptr->stun) chance += 15;
 
                if (use_mind == MIND_KI)
                {
-                       if (heavy_armor(p_ptr)) chance += 5;
-                       if (p_ptr->icky_wield[0]) chance += 5;
-                       if (p_ptr->icky_wield[1]) chance += 5;
+                       if (heavy_armor(caster_ptr)) chance += 5;
+                       if (caster_ptr->icky_wield[0]) chance += 5;
+                       if (caster_ptr->icky_wield[1]) chance += 5;
                }
        }
 
@@ -1902,30 +1906,30 @@ void do_cmd_mind(void)
                                if (b < 5)
                                {
                                        msg_print(_("なんてこった!頭の中が真っ白になった!", "Oh, no! Your mind has gone blank!"));
-                                       lose_all_info(p_ptr);
+                                       lose_all_info(caster_ptr);
                                }
                                else if (b < 15)
                                {
                                        msg_print(_("奇妙な光景が目の前で踊っている...", "Weird visions seem to dance before your eyes..."));
-                                       set_image(p_ptr, p_ptr->image + 5 + randint1(10));
+                                       set_image(caster_ptr, caster_ptr->image + 5 + randint1(10));
                                }
                                else if (b < 45)
                                {
                                        msg_print(_("あなたの頭は混乱した!", "Your brain is addled!"));
-                                       set_confused(p_ptr, p_ptr->confused + randint1(8));
+                                       set_confused(caster_ptr, caster_ptr->confused + randint1(8));
                                }
                                else if (b < 90)
                                {
-                                       set_stun(p_ptr, p_ptr->stun + randint1(8));
+                                       set_stun(caster_ptr, caster_ptr->stun + randint1(8));
                                }
                                else
                                {
                                        /* Mana storm */
                                        msg_format(_("%sの力が制御できない氾流となって解放された!", "Your mind unleashes its power in an uncontrollable storm!"), p);
 
-                                       project(PROJECT_WHO_UNCTRL_POWER, 2 + plev / 10, p_ptr->y, p_ptr->x, plev * 2,
+                                       project(caster_ptr, PROJECT_WHO_UNCTRL_POWER, 2 + plev / 10, caster_ptr->y, caster_ptr->x, plev * 2,
                                                GF_MANA, PROJECT_JUMP | PROJECT_KILL | PROJECT_GRID | PROJECT_ITEM, -1);
-                                       p_ptr->csp = MAX(0, p_ptr->csp - plev * MAX(1, plev / 10));
+                                       caster_ptr->csp = MAX(0, caster_ptr->csp - plev * MAX(1, plev / 10));
                                }
                          }
                          if( use_mind == MIND_MIRROR_MASTER ){
@@ -1936,21 +1940,21 @@ void do_cmd_mind(void)
                                else if (b < 81)
                                {
                                        msg_print(_("鏡の世界の干渉を受けた!", "Weird visions seem to dance before your eyes..."));
-                                       teleport_player(p_ptr, 10, TELEPORT_PASSIVE);
+                                       teleport_player(caster_ptr, 10, TELEPORT_PASSIVE);
                                }
                                else if (b < 96)
                                {
                                        msg_print(_("まわりのものがキラキラ輝いている!", "Your brain is addled!"));
-                                       set_image(p_ptr, p_ptr->image + 5 + randint1(10));
+                                       set_image(caster_ptr, caster_ptr->image + 5 + randint1(10));
                                }
                                else
                                {
                                        /* Mana storm */
                                        msg_format(_("%sの力が制御できない氾流となって解放された!", "Your mind unleashes its power in an uncontrollable storm!"), p);
 
-                                       project(PROJECT_WHO_UNCTRL_POWER, 2 + plev / 10, p_ptr->y, p_ptr->x, plev * 2,
+                                       project(caster_ptr, PROJECT_WHO_UNCTRL_POWER, 2 + plev / 10, caster_ptr->y, caster_ptr->x, plev * 2,
                                                GF_MANA, PROJECT_JUMP | PROJECT_KILL | PROJECT_GRID | PROJECT_ITEM, -1);
-                                       p_ptr->csp = MAX(0, p_ptr->csp - plev * MAX(1, plev / 10));
+                                       caster_ptr->csp = MAX(0, caster_ptr->csp - plev * MAX(1, plev / 10));
                                }
                          }
                        }
@@ -1964,24 +1968,24 @@ void do_cmd_mind(void)
                {
                case MIND_MINDCRAFTER:
                        
-                       cast = cast_mindcrafter_spell(p_ptr, n);
+                       cast = cast_mindcrafter_spell(caster_ptr, n);
                        break;
                case MIND_KI:
                        
-                       cast = cast_force_spell(p_ptr, n);
+                       cast = cast_force_spell(caster_ptr, n);
                        break;
                case MIND_BERSERKER:
                        
-                       cast = cast_berserk_spell(p_ptr, n);
+                       cast = cast_berserk_spell(caster_ptr, n);
                        break;
                case MIND_MIRROR_MASTER:
                        
-                       if(is_mirror_grid(&p_ptr->current_floor_ptr->grid_array[p_ptr->y][p_ptr->x]) )on_mirror = TRUE;
-                       cast = cast_mirror_spell(p_ptr, n);
+                       if(is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[caster_ptr->y][caster_ptr->x]) )on_mirror = TRUE;
+                       cast = cast_mirror_spell(caster_ptr, n);
                        break;
                case MIND_NINJUTSU:
                        
-                       cast = cast_ninja_spell(p_ptr, n);
+                       cast = cast_ninja_spell(caster_ptr, n);
                        break;
                default:
                        msg_format(_("謎の能力:%d, %d", "Mystery power:%d, %d"),use_mind, n);
@@ -1993,36 +1997,36 @@ void do_cmd_mind(void)
 
 
        /* teleport from mirror costs small energy */
-       if(on_mirror && p_ptr->pclass == CLASS_MIRROR_MASTER)
+       if(on_mirror && caster_ptr->pclass == CLASS_MIRROR_MASTER)
        {
-         if( n==3 || n==5 || n==7 || n==16 ) take_turn(p_ptr, 50);
+         if( n==3 || n==5 || n==7 || n==16 ) take_turn(caster_ptr, 50);
        }
        else
        {
-               take_turn(p_ptr, 100);
+               take_turn(caster_ptr, 100);
        }
 
        if ((use_mind == MIND_BERSERKER) || (use_mind == MIND_NINJUTSU))
        {
-               take_hit(p_ptr, DAMAGE_USELIFE, mana_cost, _("過度の集中", "concentrating too hard"), -1);
+               take_hit(caster_ptr, DAMAGE_USELIFE, mana_cost, _("過度の集中", "concentrating too hard"), -1);
                /* Redraw hp */
-               p_ptr->redraw |= (PR_HP);
+               caster_ptr->redraw |= (PR_HP);
        }
 
        /* Sufficient mana */
        else if (mana_cost <= old_csp)
        {
                /* Use some mana */
-               p_ptr->csp -= mana_cost;
+               caster_ptr->csp -= mana_cost;
 
                /* Limit */
-               if (p_ptr->csp < 0) p_ptr->csp = 0;
+               if (caster_ptr->csp < 0) caster_ptr->csp = 0;
 
                if ((use_mind == MIND_MINDCRAFTER) && (n == 13))
                {
                        /* No mana left */
-                       p_ptr->csp = 0;
-                       p_ptr->csp_frac = 0;
+                       caster_ptr->csp = 0;
+                       caster_ptr->csp_frac = 0;
                }
        }
 
@@ -2032,13 +2036,13 @@ void do_cmd_mind(void)
                int oops = mana_cost - old_csp;
 
                /* No mana left */
-               if ((p_ptr->csp - mana_cost) < 0) p_ptr->csp_frac = 0;
-               p_ptr->csp = MAX(0, p_ptr->csp - mana_cost);
+               if ((caster_ptr->csp - mana_cost) < 0) caster_ptr->csp_frac = 0;
+               caster_ptr->csp = MAX(0, caster_ptr->csp - mana_cost);
 
                msg_format(_("%sを集中しすぎて気を失ってしまった!", "You faint from the effort!"),p);
 
                /* Hack -- Bypass free action */
-               (void)set_paralyzed(p_ptr, p_ptr->paralyzed + randint1(5 * oops + 1));
+               (void)set_paralyzed(caster_ptr, caster_ptr->paralyzed + randint1(5 * oops + 1));
 
                /* Damage WIS (possibly permanently) */
                if (randint0(100) < 50)
@@ -2048,12 +2052,12 @@ void do_cmd_mind(void)
                        msg_print(_("自分の精神を攻撃してしまった!", "You have damaged your mind!"));
 
                        /* Reduce constitution */
-                       (void)dec_stat(p_ptr, A_WIS, 15 + randint1(10), perm);
+                       (void)dec_stat(caster_ptr, A_WIS, 15 + randint1(10), perm);
                }
        }
-       p_ptr->redraw |= (PR_MANA);
-       p_ptr->window |= (PW_PLAYER);
-       p_ptr->window |= (PW_SPELL);
+       caster_ptr->redraw |= (PR_MANA);
+       caster_ptr->window |= (PW_PLAYER);
+       caster_ptr->window |= (PW_SPELL);
 }
 
 
@@ -2061,25 +2065,25 @@ void do_cmd_mind(void)
  * @brief 現在プレイヤーが使用可能な特殊技能の一覧表示 /
  * @return なし
  */
-void do_cmd_mind_browse(void)
+void do_cmd_mind_browse(player_type *caster_ptr)
 {
        SPELL_IDX n = 0;
        int j, line;
        char temp[62*5];
        int use_mind = 0;
 
-       if (p_ptr->pclass == CLASS_MINDCRAFTER) use_mind = MIND_MINDCRAFTER;
-       else if (p_ptr->pclass == CLASS_FORCETRAINER) use_mind = MIND_KI;
-       else if (p_ptr->pclass == CLASS_BERSERKER) use_mind = MIND_BERSERKER;
-       else if (p_ptr->pclass == CLASS_NINJA) use_mind = MIND_NINJUTSU;
-       else if (p_ptr->pclass == CLASS_MIRROR_MASTER)
+       if (caster_ptr->pclass == CLASS_MINDCRAFTER) use_mind = MIND_MINDCRAFTER;
+       else if (caster_ptr->pclass == CLASS_FORCETRAINER) use_mind = MIND_KI;
+       else if (caster_ptr->pclass == CLASS_BERSERKER) use_mind = MIND_BERSERKER;
+       else if (caster_ptr->pclass == CLASS_NINJA) use_mind = MIND_NINJUTSU;
+       else if (caster_ptr->pclass == CLASS_MIRROR_MASTER)
          use_mind = MIND_MIRROR_MASTER;
 
        screen_save();
 
-       while(1)
+       while (TRUE)
        {
-               if (!get_mind_power(&n, TRUE))
+               if (!get_mind_power(caster_ptr, &n, TRUE))
                {
                        screen_load();
                        return;