OSDN Git Service

[Refactor] #39068 choose_object() の item_tester_tval グローバル参照をローカル引数に収める.(一部バグを起こしている可...
[hengband/hengband.git] / src / cmd-zapwand.c
index fd6e8af..01cf109 100644 (file)
@@ -1,19 +1,32 @@
-#include "angband.h"
-
+#include "angband.h"
+#include "util.h"
+
+#include "avatar.h"
+#include "spells.h"
+#include "spells-status.h"
+#include "player-status.h"
+#include "player-effects.h"
+#include "player-class.h"
+#include "objectkind.h"
+#include "object-hook.h"
+#include "cmd-basic.h"
+#include "floor.h"
+#include "targeting.h"
+#include "view-mainwindow.h"
 
 /*!
-* @brief \96\82\96@\96_\82Ì\8cø\89Ê\82ð\94­\93®\82·\82é
-* @param sval \83I\83u\83W\83F\83N\83g\82Ìsval
-* @param dir \94­\93®\82Ì\95û\8cüID
-* @param powerful \8b­\97Í\94­\93®\8fã\82Ì\8f\88\97\9d\82È\82ç\82ÎTRUE
-* @param magic \96\82\93¹\8bï\8fp\8fã\82Ì\8f\88\97\9d\82È\82ç\82ÎTRUE
-* @return \94­\93®\82É\82æ\82è\8cø\89Ê\93à\97e\82ª\8am\92è\82µ\82½\82È\82ç\82ÎTRUE\82ð\95Ô\82·
+* @brief 魔法棒の効果を発動する
+* @param sval オブジェクトのsval
+* @param dir 発動の方向ID
+* @param powerful 強力発動上の処理ならばTRUE
+* @param magic 魔道具術上の処理ならばTRUE
+* @return 発動により効果内容が確定したならばTRUEを返す
 */
-int wand_effect(OBJECT_SUBTYPE_VALUE sval, int dir, bool powerful, bool magic)
+bool wand_effect(OBJECT_SUBTYPE_VALUE sval, DIRECTION dir, bool powerful, bool magic)
 {
-       int ident = FALSE;
-       int lev = powerful ? p_ptr->lev * 2 : p_ptr->lev;
-       int rad = powerful ? 3 : 2;
+       bool ident = FALSE;
+       PLAYER_LEVEL lev = powerful ? p_ptr->lev * 2 : p_ptr->lev;
+       POSITION rad = powerful ? 3 : 2;
 
        /* XXX Hack -- Wand of wonder can do anything before it */
        if (sval == SV_WAND_WONDER)
@@ -41,269 +54,269 @@ int wand_effect(OBJECT_SUBTYPE_VALUE sval, int dir, bool powerful, bool magic)
        /* Analyze the wand */
        switch (sval)
        {
-       case SV_WAND_HEAL_MONSTER:
-       {
-               HIT_POINT dam = damroll((powerful ? 20 : 10), 10);
-               if (heal_monster(dir, dam)) ident = TRUE;
-               break;
-       }
-
-       case SV_WAND_HASTE_MONSTER:
-       {
-               if (speed_monster(dir, lev)) ident = TRUE;
-               break;
-       }
-
-       case SV_WAND_CLONE_MONSTER:
-       {
-               if (clone_monster(dir)) ident = TRUE;
-               break;
-       }
-
-       case SV_WAND_TELEPORT_AWAY:
-       {
-               int distance = MAX_SIGHT * (powerful ? 8 : 5);
-               if (teleport_monster(dir, distance)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_HEAL_MONSTER:
+               {
+                       HIT_POINT dam = damroll((powerful ? 20 : 10), 10);
+                       if (heal_monster(dir, dam)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_DISARMING:
-       {
-               if (disarm_trap(dir)) ident = TRUE;
-               if (powerful && disarm_traps_touch()) ident = TRUE;
-               break;
-       }
+               case SV_WAND_HASTE_MONSTER:
+               {
+                       if (speed_monster(dir, lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_TRAP_DOOR_DEST:
-       {
-               if (destroy_door(dir)) ident = TRUE;
-               if (powerful && destroy_doors_touch()) ident = TRUE;
-               break;
-       }
+               case SV_WAND_CLONE_MONSTER:
+               {
+                       if (clone_monster(dir)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_STONE_TO_MUD:
-       {
-               HIT_POINT dam = powerful ? 40 + randint1(60) : 20 + randint1(30);
-               if (wall_to_mud(dir, dam)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_TELEPORT_AWAY:
+               {
+                       int distance = MAX_SIGHT * (powerful ? 8 : 5);
+                       if (teleport_monster(dir, distance)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_LITE:
-       {
-               HIT_POINT dam = damroll((powerful ? 12 : 6), 8);
-               msg_print(_("\90Â\82­\8bP\82­\8cõ\90ü\82ª\95ú\82½\82ê\82½\81B", "A line of blue shimmering light appears."));
-               (void)lite_line(dir, dam);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_DISARMING:
+               {
+                       if (disarm_trap(dir)) ident = TRUE;
+                       if (powerful && disarm_traps_touch()) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_SLEEP_MONSTER:
-       {
-               if (sleep_monster(dir, lev)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_TRAP_DOOR_DEST:
+               {
+                       if (destroy_door(dir)) ident = TRUE;
+                       if (powerful && destroy_doors_touch()) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_SLOW_MONSTER:
-       {
-               if (slow_monster(dir, lev)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_STONE_TO_MUD:
+               {
+                       HIT_POINT dam = powerful ? 40 + randint1(60) : 20 + randint1(30);
+                       if (wall_to_mud(dir, dam)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_CONFUSE_MONSTER:
-       {
-               if (confuse_monster(dir, lev)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_LITE:
+               {
+                       HIT_POINT dam = damroll((powerful ? 12 : 6), 8);
+                       msg_print(_("青く輝く光線が放たれた。", "A line of blue shimmering light appears."));
+                       (void)lite_line(dir, dam);
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_FEAR_MONSTER:
-       {
-               if (fear_monster(dir, lev)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_SLEEP_MONSTER:
+               {
+                       if (sleep_monster(dir, lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_HYPODYNAMIA:
-       {
-               if (hypodynamic_bolt(dir, 80 + lev)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_SLOW_MONSTER:
+               {
+                       if (slow_monster(dir, lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_POLYMORPH:
-       {
-               if (poly_monster(dir, lev)) ident = TRUE;
-               break;
-       }
+               case SV_WAND_CONFUSE_MONSTER:
+               {
+                       if (confuse_monster(dir, lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_STINKING_CLOUD:
-       {
-               fire_ball(GF_POIS, dir, 12 + lev / 4, rad);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_FEAR_MONSTER:
+               {
+                       if (fear_monster(dir, lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_MAGIC_MISSILE:
-       {
-               fire_bolt_or_beam(20, GF_MISSILE, dir, damroll(2 + lev / 10, 6));
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_HYPODYNAMIA:
+               {
+                       if (hypodynamic_bolt(dir, 80 + lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_ACID_BOLT:
-       {
-               fire_bolt_or_beam(20, GF_ACID, dir, damroll(6 + lev / 7, 8));
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_POLYMORPH:
+               {
+                       if (poly_monster(dir, lev)) ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_CHARM_MONSTER:
-       {
-               if (charm_monster(dir, MAX(20, lev)))
+               case SV_WAND_STINKING_CLOUD:
+               {
+                       fire_ball(GF_POIS, dir, 12 + lev / 4, rad);
                        ident = TRUE;
-               break;
-       }
-
-       case SV_WAND_FIRE_BOLT:
-       {
-               fire_bolt_or_beam(20, GF_FIRE, dir, damroll(7 + lev / 6, 8));
-               ident = TRUE;
-               break;
-       }
-
-       case SV_WAND_COLD_BOLT:
-       {
-               fire_bolt_or_beam(20, GF_COLD, dir, damroll(5 + lev / 8, 8));
-               ident = TRUE;
-               break;
-       }
-
-       case SV_WAND_ACID_BALL:
-       {
-               fire_ball(GF_ACID, dir, 60 + 3 * lev / 4, rad);
-               ident = TRUE;
-               break;
-       }
+                       break;
+               }
 
-       case SV_WAND_ELEC_BALL:
-       {
-               fire_ball(GF_ELEC, dir, 40 + 3 * lev / 4, rad);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_MAGIC_MISSILE:
+               {
+                       fire_bolt_or_beam(20, GF_MISSILE, dir, damroll(2 + lev / 10, 6));
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_FIRE_BALL:
-       {
-               fire_ball(GF_FIRE, dir, 70 + 3 * lev / 4, rad);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_ACID_BOLT:
+               {
+                       fire_bolt_or_beam(20, GF_ACID, dir, damroll(6 + lev / 7, 8));
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_COLD_BALL:
-       {
-               fire_ball(GF_COLD, dir, 50 + 3 * lev / 4, rad);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_CHARM_MONSTER:
+               {
+                       if (charm_monster(dir, MAX(20, lev)))
+                               ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_WONDER:
-       {
-               msg_print(_("\82¨\82Á\82Æ\81A\93ä\82Ì\96\82\96@\96_\82ð\8en\93®\82³\82¹\82½\81B", "Oops.  Wand of wonder activated."));
-               break;
-       }
+               case SV_WAND_FIRE_BOLT:
+               {
+                       fire_bolt_or_beam(20, GF_FIRE, dir, damroll(7 + lev / 6, 8));
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_DRAGON_FIRE:
-       {
-               fire_breath(GF_FIRE, dir, (powerful ? 300 : 200), 3);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_COLD_BOLT:
+               {
+                       fire_bolt_or_beam(20, GF_COLD, dir, damroll(5 + lev / 8, 8));
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_DRAGON_COLD:
-       {
-               fire_breath(GF_COLD, dir, (powerful ? 270 : 180), 3);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_ACID_BALL:
+               {
+                       fire_ball(GF_ACID, dir, 60 + 3 * lev / 4, rad);
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_DRAGON_BREATH:
-       {
-               HIT_POINT dam;
-               int typ;
+               case SV_WAND_ELEC_BALL:
+               {
+                       fire_ball(GF_ELEC, dir, 40 + 3 * lev / 4, rad);
+                       ident = TRUE;
+                       break;
+               }
 
-               switch (randint1(5))
+               case SV_WAND_FIRE_BALL:
                {
-               case 1:
-                       dam = 240;
-                       typ = GF_ACID;
+                       fire_ball(GF_FIRE, dir, 70 + 3 * lev / 4, rad);
+                       ident = TRUE;
                        break;
-               case 2:
-                       dam = 210;
-                       typ = GF_ELEC;
+               }
+
+               case SV_WAND_COLD_BALL:
+               {
+                       fire_ball(GF_COLD, dir, 50 + 3 * lev / 4, rad);
+                       ident = TRUE;
                        break;
-               case 3:
-                       dam = 240;
-                       typ = GF_FIRE;
+               }
+
+               case SV_WAND_WONDER:
+               {
+                       msg_print(_("おっと、謎の魔法棒を始動させた。", "Oops.  Wand of wonder activated."));
                        break;
-               case 4:
-                       dam = 210;
-                       typ = GF_COLD;
+               }
+
+               case SV_WAND_DRAGON_FIRE:
+               {
+                       fire_breath(GF_FIRE, dir, (powerful ? 300 : 200), 3);
+                       ident = TRUE;
                        break;
-               default:
-                       dam = 180;
-                       typ = GF_POIS;
+               }
+
+               case SV_WAND_DRAGON_COLD:
+               {
+                       fire_breath(GF_COLD, dir, (powerful ? 270 : 180), 3);
+                       ident = TRUE;
                        break;
                }
 
-               if (powerful) dam = (dam * 3) / 2;
+               case SV_WAND_DRAGON_BREATH:
+               {
+                       HIT_POINT dam;
+                       EFFECT_ID typ;
 
-               fire_ball(typ, dir, dam, -3);
+                       switch (randint1(5))
+                       {
+                       case 1:
+                               dam = 240;
+                               typ = GF_ACID;
+                               break;
+                       case 2:
+                               dam = 210;
+                               typ = GF_ELEC;
+                               break;
+                       case 3:
+                               dam = 240;
+                               typ = GF_FIRE;
+                               break;
+                       case 4:
+                               dam = 210;
+                               typ = GF_COLD;
+                               break;
+                       default:
+                               dam = 180;
+                               typ = GF_POIS;
+                               break;
+                       }
 
-               ident = TRUE;
-               break;
-       }
+                       if (powerful) dam = (dam * 3) / 2;
 
-       case SV_WAND_DISINTEGRATE:
-       {
-               fire_ball(GF_DISINTEGRATE, dir, 200 + randint1(lev * 2), rad);
-               ident = TRUE;
-               break;
-       }
+                       fire_breath(typ, dir, dam, 3);
 
-       case SV_WAND_ROCKETS:
-       {
-               msg_print(_("\83\8d\83P\83b\83g\82ð\94­\8eË\82µ\82½\81I", "You launch a rocket!"));
-               fire_rocket(GF_ROCKET, dir, 250 + lev * 3, rad);
-               ident = TRUE;
-               break;
-       }
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_STRIKING:
-       {
-               fire_bolt(GF_METEOR, dir, damroll(15 + lev / 3, 13));
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_DISINTEGRATE:
+               {
+                       fire_ball(GF_DISINTEGRATE, dir, 200 + randint1(lev * 2), rad);
+                       ident = TRUE;
+                       break;
+               }
 
-       case SV_WAND_GENOCIDE:
-       {
-               fire_ball_hide(GF_GENOCIDE, dir, magic ? lev + 50 : 250, 0);
-               ident = TRUE;
-               break;
-       }
+               case SV_WAND_ROCKETS:
+               {
+                       msg_print(_("ロケットを発射した!", "You launch a rocket!"));
+                       fire_rocket(GF_ROCKET, dir, 250 + lev * 3, rad);
+                       ident = TRUE;
+                       break;
+               }
+
+               case SV_WAND_STRIKING:
+               {
+                       fire_bolt(GF_METEOR, dir, damroll(15 + lev / 3, 13));
+                       ident = TRUE;
+                       break;
+               }
+
+               case SV_WAND_GENOCIDE:
+               {
+                       fire_ball_hide(GF_GENOCIDE, dir, magic ? lev + 50 : 250, 0);
+                       ident = TRUE;
+                       break;
+               }
        }
        return ident;
 }
 
 /*!
-* @brief \96\82\96@\96_\82ð\8eg\82¤\83R\83}\83\93\83h\82Ì\83T\83u\83\8b\81[\83`\83\93 /
+* @brief 魔法棒を使うコマンドのサブルーチン /
 * Aim a wand (from the pack or floor).
-* @param item \8eg\82¤\83I\83u\83W\83F\83N\83g\82Ì\8f\8a\8e\9d\95iID
-* @return \82È\82µ
+* @param item 使うオブジェクトの所持品ID
+* @return なし
 * @details
 * <pre>
 * Use a single charge from a single item.
 * Handle "unstacking" in a logical manner.
 * For simplicity, you cannot use a stack of items from the
 * ground.  This would require too much nasty code.
-* There are no wands which can "destroy" themselves, in the inventory
+* There are no wands which can "destroy" themselves, in the p_ptr->inventory_list
 * or on the ground, so we can ignore this possibility.  Note that this
 * required giving "wand of wonder" the ability to ignore destruction
 * by electric balls.
@@ -313,28 +326,30 @@ int wand_effect(OBJECT_SUBTYPE_VALUE sval, int dir, bool powerful, bool magic)
 * as the basic "ball" rods.
 * </pre>
 */
-void do_cmd_aim_wand_aux(int item)
+void do_cmd_aim_wand_aux(INVENTORY_IDX item)
 {
-       int         lev, ident, chance, dir;
+       DEPTH lev;
+       int ident, chance;
+       DIRECTION dir;
        object_type *o_ptr;
        bool old_target_pet = target_pet;
 
        /* Get the item (in the pack) */
        if (item >= 0)
        {
-               o_ptr = &inventory[item];
+               o_ptr = &p_ptr->inventory_list[item];
        }
 
        /* Get the item (on the floor) */
        else
        {
-               o_ptr = &o_list[0 - item];
+               o_ptr = &current_floor_ptr->o_list[0 - item];
        }
 
        /* Mega-Hack -- refuse to aim a pile from the ground */
        if ((item < 0) && (o_ptr->number > 1))
        {
-               msg_print(_("\82Ü\82¸\82Í\96\82\96@\96_\82ð\8fE\82í\82È\82¯\82ê\82Î\81B", "You must first pick up the wands."));
+               msg_print(_("まずは魔法棒を拾わなければ。", "You must first pick up the wands."));
                return;
        }
 
@@ -350,8 +365,7 @@ void do_cmd_aim_wand_aux(int item)
        }
        target_pet = old_target_pet;
 
-       /* Take a turn */
-       p_ptr->energy_use = 100;
+       take_turn(p_ptr, 100);
 
        /* Get the level */
        lev = k_info[o_ptr->k_idx].level;
@@ -372,19 +386,13 @@ void do_cmd_aim_wand_aux(int item)
                chance = USE_DEVICE;
        }
 
-       if (world_player)
-       {
-               if (flush_failure) flush();
-               msg_print(_("\8e~\82Ü\82Á\82½\8e\9e\82Ì\92\86\82Å\82Í\82¤\82Ü\82­\93­\82©\82È\82¢\82æ\82¤\82¾\81B", "Nothing happen. Maybe this wand is freezing too."));
-               sound(SOUND_FAIL);
-               return;
-       }
+       if (cmd_limit_time_walk(p_ptr)) return;
 
        /* Roll for usage */
        if ((chance < USE_DEVICE) || (randint1(chance) < USE_DEVICE) || (p_ptr->pclass == CLASS_BERSERKER))
        {
                if (flush_failure) flush();
-               msg_print(_("\96\82\96@\96_\82ð\82¤\82Ü\82­\8eg\82¦\82È\82©\82Á\82½\81B", "You failed to use the wand properly."));
+               msg_print(_("魔法棒をうまく使えなかった。", "You failed to use the wand properly."));
                sound(SOUND_FAIL);
                return;
        }
@@ -393,23 +401,18 @@ void do_cmd_aim_wand_aux(int item)
        if (o_ptr->pval <= 0)
        {
                if (flush_failure) flush();
-               msg_print(_("\82±\82Ì\96\82\96@\96_\82É\82Í\82à\82¤\96\82\97Í\82ª\8ec\82Á\82Ä\82¢\82È\82¢\81B", "The wand has no charges left."));
+               msg_print(_("この魔法棒にはもう魔力が残っていない。", "The wand has no charges left."));
                o_ptr->ident |= (IDENT_EMPTY);
-
-               /* Combine / Reorder the pack (later) */
-               p_ptr->notice |= (PN_COMBINE | PN_REORDER);
+               p_ptr->update |= (PU_COMBINE | PU_REORDER);
                p_ptr->window |= (PW_INVEN);
 
                return;
        }
 
-       /* Sound */
        sound(SOUND_ZAP);
 
        ident = wand_effect(o_ptr->sval, dir, FALSE, FALSE);
-
-       /* Combine / Reorder the pack (later) */
-       p_ptr->notice |= (PN_COMBINE | PN_REORDER);
+       p_ptr->update |= (PU_COMBINE | PU_REORDER);
 
        if (!(object_is_aware(o_ptr)))
        {
@@ -428,7 +431,6 @@ void do_cmd_aim_wand_aux(int item)
                gain_exp((lev + (p_ptr->lev >> 1)) / p_ptr->lev);
        }
 
-       /* Window stuff */
        p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_PLAYER);
 
 
@@ -449,28 +451,24 @@ void do_cmd_aim_wand_aux(int item)
 }
 
 /*!
-* @brief \96\82\96@\96_\82ð\8eg\82¤\83R\83}\83\93\83h\82Ì\83\81\83C\83\93\83\8b\81[\83`\83\93 /
-* @return \82È\82µ
+* @brief 魔法棒を使うコマンドのメインルーチン /
+* @return なし
 */
 void do_cmd_aim_wand(void)
 {
        OBJECT_IDX item;
-       cptr    q, s;
-
-       /* Restrict choices to wands */
-       item_tester_tval = TV_WAND;
+       concptr q, s;
 
+       if (p_ptr->wild_mode) return;
+       if (cmd_limit_arena(p_ptr)) return;
        if (p_ptr->special_defense & (KATA_MUSOU | KATA_KOUKIJIN))
        {
                set_action(ACTION_NONE);
        }
 
-       /* Get an item */
-       q = _("\82Ç\82Ì\96\82\96@\96_\82Å\91_\82¢\82Ü\82·\82©? ", "Aim which wand? ");
-       s = _("\8eg\82¦\82é\96\82\96@\96_\82ª\82È\82¢\81B", "You have no wand to aim.");
-
-       if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
+       q = _("どの魔法棒で狙いますか? ", "Aim which wand? ");
+       s = _("使える魔法棒がない。", "You have no wand to aim.");
+       if (!choose_object(&item, q, s, (USE_INVEN | USE_FLOOR), TV_WAND)) return;
 
-       /* Aim the wand */
        do_cmd_aim_wand_aux(item);
 }