OSDN Git Service

[Refactor] #39964 Removed the dependency from read-pref-file to autopick-pref-processor
[hengband/hengband.git] / src / player-damage.c
index 969d3c8..ad98771 100644 (file)
@@ -1,10 +1,16 @@
 #include "angband.h"
 #include "core.h"
 #include "util.h"
-#include "term.h"
+#include "main/music-definitions-table.h"
+#include "main/sound-definitions-table.h"
+#include "gameterm.h"
 
 #include "avatar.h"
-#include "cmd-dump.h"
+#include "market/building.h"
+#include "io/write-diary.h"
+#include "autopick/autopick-pref-processor.h"
+#include "cmd/cmd-process-screen.h"
+#include "market/arena-info-table.h"
 #include "realm-song.h"
 #include "floor.h"
 #include "artifact.h"
 #include "player-status.h"
 #include "player-effects.h"
 #include "player-class.h"
+#include "player-race.h"
 #include "monster-spell.h"
 #include "world.h"
-#include "view-mainwindow.h"
+#include "view/display-main-window.h"
 #include "quest.h"
 #include "report.h"
 #include "wild.h"
 #include "save.h"
 #include "files.h"
 
-
-
 /*!
-* @brief アイテムが指定確率で破損するかどうかを判定する /
-* Destroys a type of item on a given percent chance
-* @param typ 破損判定関数ポインタ
-* @param perc 基本確率
-* @return 破損したアイテムの数
-* @details
-* Note that missiles are no longer necessarily all destroyed
-* Destruction taken from "melee.c" code for "stealing".
-* New-style wands and rods handled correctly. -LM-
-* Returns number of items destroyed.
-*/
-int inven_damage(inven_func typ, int perc)
+ * @brief アイテムを指定確率で破損させる /
+ * Destroys a type of item on a given percent chance
+ * @param player_ptr プレーヤーへの参照ポインタ
+ * @param typ 破損判定関数ポインタ
+ * @param perc 基本確率
+ * @return なし
+ * @details
+ * Note that missiles are no longer necessarily all destroyed
+ * Destruction taken from "melee.c" code for "stealing".
+ * New-style wands and rods handled correctly. -LM-
+ */
+void inventory_damage(player_type *player_ptr, inven_func typ, int perc)
 {
        INVENTORY_IDX i;
-       int j, k, amt;
+       int j, amt;
        object_type *o_ptr;
        GAME_TEXT o_name[MAX_NLEN];
 
-       if (CHECK_MULTISHADOW(p_ptr)) return 0;
-
-       if (p_ptr->inside_arena) return 0;
-
-       /* Count the casualties */
-       k = 0;
+       if (CHECK_MULTISHADOW(player_ptr) || player_ptr->current_floor_ptr->inside_arena) return;
 
        /* Scan through the slots backwards */
        for (i = 0; i < INVEN_PACK; i++)
        {
-               o_ptr = &p_ptr->inventory_list[i];
+               o_ptr = &player_ptr->inventory_list[i];
                if (!o_ptr->k_idx) continue;
 
                /* Hack -- for now, skip artifacts */
                if (object_is_artifact(o_ptr)) continue;
 
                /* Give this item slot a shot at death */
-               if ((*typ)(o_ptr))
+               if (!(*typ)(o_ptr)) continue;
+               
+               /* Count the casualties */
+               for (amt = j = 0; j < o_ptr->number; ++j)
                {
-                       /* Count the casualties */
-                       for (amt = j = 0; j < o_ptr->number; ++j)
-                       {
-                               if (randint0(100) < perc) amt++;
-                       }
+                       if (randint0(100) < perc) amt++;
+               }
 
-                       /* Some casualities */
-                       if (amt)
-                       {
-                               object_desc(o_name, o_ptr, OD_OMIT_PREFIX);
+               /* Some casualities */
+               if (!amt) continue;
+               
+               object_desc(player_ptr, o_name, o_ptr, OD_OMIT_PREFIX);
 
-                               msg_format(_("%s(%c)が%s壊れてしまった!", "%sour %s (%c) %s destroyed!"),
+               msg_format(_("%s(%c)が%s壊れてしまった!", "%sour %s (%c) %s destroyed!"),
 #ifdef JP
-                                       o_name, index_to_label(i), ((o_ptr->number > 1) ?
-                                               ((amt == o_ptr->number) ? "全部" : (amt > 1 ? "何個か" : "一個")) : ""));
+                       o_name, index_to_label(i), ((o_ptr->number > 1) ?
+                       ((amt == o_ptr->number) ? "全部" : (amt > 1 ? "何個か" : "一個")) : ""));
 #else
-                                       ((o_ptr->number > 1) ? ((amt == o_ptr->number) ? "All of y" :
-                                               (amt > 1 ? "Some of y" : "One of y")) : "Y"), o_name, index_to_label(i), ((amt > 1) ? "were" : "was"));
+                       ((o_ptr->number > 1) ? ((amt == o_ptr->number) ? "All of y" :
+                       (amt > 1 ? "Some of y" : "One of y")) : "Y"), o_name, index_to_label(i), ((amt > 1) ? "were" : "was"));
 #endif
 
 #ifdef JP
-                               if ((p_ptr->pseikaku == SEIKAKU_COMBAT) || (p_ptr->inventory_list[INVEN_BOW].name1 == ART_CRIMSON))
-                                       msg_print("やりやがったな!");
-                               else if ((p_ptr->pseikaku == SEIKAKU_CHARGEMAN))
-                               {
-                                       if (randint0(2) == 0) msg_print(_("ジュラル星人め!", ""));
-                                       else msg_print(_("弱い者いじめは止めるんだ!", ""));
-                               }
+               if (IS_ECHIZEN(player_ptr))
+                       msg_print("やりやがったな!");
+               else if ((player_ptr->pseikaku == SEIKAKU_CHARGEMAN))
+               {
+                       if (randint0(2) == 0) msg_print(_("ジュラル星人め!", ""));
+                       else msg_print(_("弱い者いじめは止めるんだ!", ""));
+               }
 #endif
 
-                               /* Potions smash open */
-                               if (object_is_potion(o_ptr))
-                               {
-                                       (void)potion_smash_effect(0, p_ptr->y, p_ptr->x, o_ptr->k_idx);
-                               }
-
-                               /* Reduce the charges of rods/wands */
-                               reduce_charges(o_ptr, amt);
+               /* Potions smash open */
+               if (object_is_potion(o_ptr))
+               {
+                       (void)potion_smash_effect(player_ptr, 0, player_ptr->y, player_ptr->x, o_ptr->k_idx);
+               }
 
-                               /* Destroy "amt" items */
-                               inven_item_increase(i, -amt);
-                               inven_item_optimize(i);
+               /* Reduce the charges of rods/wands */
+               reduce_charges(o_ptr, amt);
 
-                               /* Count the casualties */
-                               k += amt;
-                       }
-               }
+               /* Destroy "amt" items */
+               inven_item_increase(player_ptr, i, -amt);
+               inven_item_optimize(player_ptr, i);
        }
-
-       /* Return the casualty count */
-       return (k);
 }
 
 
 /*!
 * @brief 酸攻撃による装備のAC劣化処理 /
 * Acid has hit the player, attempt to affect some armor.
+* @param 酸を浴びたキャラクタへの参照ポインタ
 * @return 装備による軽減があったならTRUEを返す
 * @details
 * Note that the "base armor" of an object never changes.
@@ -146,23 +139,23 @@ static bool acid_minus_ac(player_type *creature_ptr)
        case 7: o_ptr = &creature_ptr->inventory_list[INVEN_FEET]; break;
        }
 
-       if (!o_ptr->k_idx) return (FALSE);
-       if (!object_is_armour(o_ptr)) return (FALSE);
+       if (!o_ptr->k_idx) return FALSE;
+       if (!object_is_armour(o_ptr)) return FALSE;
 
-       object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
+       object_desc(creature_ptr, o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
        object_flags(o_ptr, flgs);
        /* No damage left to be done */
        if (o_ptr->ac + o_ptr->to_a <= 0)
        {
-               msg_format(_("%sは既にボロボロだ!", "Your %s is already crumble!"), o_name);
-               return (FALSE);
+               msg_format(_("%sは既にボロボロだ!", "Your %s is already fully corroded!"), o_name);
+               return FALSE;
        }
 
        /* Object resists */
        if (have_flag(flgs, TR_IGNORE_ACID))
        {
                msg_format(_("しかし%sには効果がなかった!", "Your %s is unaffected!"), o_name);
-               return (TRUE);
+               return TRUE;
        }
 
        msg_format(_("%sが酸で腐食した!", "Your %s is corroded!"), o_name);
@@ -177,55 +170,56 @@ static bool acid_minus_ac(player_type *creature_ptr)
        calc_android_exp(creature_ptr);
 
        /* Item was damaged */
-       return (TRUE);
+       return TRUE;
 }
 
 
 /*!
 * @brief 酸属性によるプレイヤー損害処理 /
 * Hurt the player with Acid
+* @param creature_ptr 酸を浴びたキャラクタへの参照ポインタ
 * @param dam 基本ダメージ量
 * @param kb_str ダメージ原因記述
 * @param monspell 原因となったモンスター特殊攻撃ID
 * @param aura オーラよるダメージが原因ならばTRUE
 * @return 修正HPダメージ量
 */
-HIT_POINT acid_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
+HIT_POINT acid_dam(player_type *creature_ptr, HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 {
        HIT_POINT get_damage;
        int inv = (dam < 30) ? 1 : (dam < 60) ? 2 : 3;
-       bool double_resist = IS_OPPOSE_ACID();
+       bool double_resist = is_oppose_acid(creature_ptr);
 
        /* Total Immunity */
-       if (p_ptr->immune_acid || (dam <= 0))
+       if (creature_ptr->immune_acid || (dam <= 0))
        {
-               learn_spell(monspell);
+               learn_spell(creature_ptr, monspell);
                return 0;
        }
 
        /* Vulnerability (Ouch!) */
-       if (p_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
-       if (p_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
+       if (creature_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
+       if (creature_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
 
        /* Resist the damage */
-       if (p_ptr->resist_acid) dam = (dam + 2) / 3;
+       if (creature_ptr->resist_acid) dam = (dam + 2) / 3;
        if (double_resist) dam = (dam + 2) / 3;
 
-       if (aura || !CHECK_MULTISHADOW(p_ptr))
+       if (aura || !CHECK_MULTISHADOW(creature_ptr))
        {
-               if ((!(double_resist || p_ptr->resist_acid)) &&
+               if ((!(double_resist || creature_ptr->resist_acid)) &&
                        one_in_(HURT_CHANCE))
-                       (void)do_dec_stat(p_ptr, A_CHR);
+                       (void)do_dec_stat(creature_ptr, A_CHR);
 
                /* If any armor gets hit, defend the player */
-               if (acid_minus_ac(p_ptr)) dam = (dam + 1) / 2;
+               if (acid_minus_ac(creature_ptr)) dam = (dam + 1) / 2;
        }
 
-       get_damage = take_hit(p_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
+       get_damage = take_hit(creature_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
 
        /* Inventory damage */
-       if (!aura && !(double_resist && p_ptr->resist_acid))
-               inven_damage(set_acid_destroy, inv);
+       if (!aura && !(double_resist && creature_ptr->resist_acid))
+               inventory_damage(creature_ptr, set_acid_destroy, inv);
        return get_damage;
 }
 
@@ -233,46 +227,47 @@ HIT_POINT acid_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 /*!
 * @brief 電撃属性によるプレイヤー損害処理 /
 * Hurt the player with electricity
+* @param creature_ptr 電撃を浴びたキャラクタへの参照ポインタ
 * @param dam 基本ダメージ量
 * @param kb_str ダメージ原因記述
 * @param monspell 原因となったモンスター特殊攻撃ID
 * @param aura オーラよるダメージが原因ならばTRUE
 * @return 修正HPダメージ量
 */
-HIT_POINT elec_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
+HIT_POINT elec_dam(player_type *creature_ptr, HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 {
        HIT_POINT get_damage;
        int inv = (dam < 30) ? 1 : (dam < 60) ? 2 : 3;
-       bool double_resist = IS_OPPOSE_ELEC();
+       bool double_resist = is_oppose_elec(creature_ptr);
 
        /* Total immunity */
-       if (p_ptr->immune_elec || (dam <= 0))
+       if (creature_ptr->immune_elec || (dam <= 0))
        {
-               learn_spell(monspell);
+               learn_spell(creature_ptr, monspell);
                return 0;
        }
 
        /* Vulnerability (Ouch!) */
-       if (p_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
-       if (p_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
-       if (PRACE_IS_(p_ptr, RACE_ANDROID)) dam += dam / 3;
+       if (creature_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
+       if (creature_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
+       if (PRACE_IS_(creature_ptr, RACE_ANDROID)) dam += dam / 3;
 
        /* Resist the damage */
-       if (p_ptr->resist_elec) dam = (dam + 2) / 3;
+       if (creature_ptr->resist_elec) dam = (dam + 2) / 3;
        if (double_resist) dam = (dam + 2) / 3;
 
-       if (aura || !CHECK_MULTISHADOW(p_ptr))
+       if (aura || !CHECK_MULTISHADOW(creature_ptr))
        {
-               if ((!(double_resist || p_ptr->resist_elec)) &&
+               if ((!(double_resist || creature_ptr->resist_elec)) &&
                        one_in_(HURT_CHANCE))
-                       (void)do_dec_stat(p_ptr, A_DEX);
+                       (void)do_dec_stat(creature_ptr, A_DEX);
        }
 
-       get_damage = take_hit(p_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
+       get_damage = take_hit(creature_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
 
        /* Inventory damage */
-       if (!aura && !(double_resist && p_ptr->resist_elec))
-               inven_damage(set_elec_destroy, inv);
+       if (!aura && !(double_resist && creature_ptr->resist_elec))
+               inventory_damage(creature_ptr, set_elec_destroy, inv);
 
        return get_damage;
 }
@@ -281,46 +276,47 @@ HIT_POINT elec_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 /*!
 * @brief 火炎属性によるプレイヤー損害処理 /
 * Hurt the player with Fire
+* @param creature_ptr 火炎を浴びたキャラクタへの参照ポインタ
 * @param dam 基本ダメージ量
 * @param kb_str ダメージ原因記述
 * @param monspell 原因となったモンスター特殊攻撃ID
 * @param aura オーラよるダメージが原因ならばTRUE
 * @return 修正HPダメージ量
 */
-HIT_POINT fire_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
+HIT_POINT fire_dam(player_type *creature_ptr, HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 {
        HIT_POINT get_damage;
        int inv = (dam < 30) ? 1 : (dam < 60) ? 2 : 3;
-       bool double_resist = IS_OPPOSE_FIRE();
+       bool double_resist = is_oppose_fire(creature_ptr);
 
        /* Totally immune */
-       if (p_ptr->immune_fire || (dam <= 0))
+       if (creature_ptr->immune_fire || (dam <= 0))
        {
-               learn_spell(monspell);
+               learn_spell(creature_ptr, monspell);
                return 0;
        }
 
        /* Vulnerability (Ouch!) */
-       if (p_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
-       if (PRACE_IS_(p_ptr, RACE_ENT)) dam += dam / 3;
-       if (p_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
+       if (creature_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
+       if (PRACE_IS_(creature_ptr, RACE_ENT)) dam += dam / 3;
+       if (creature_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
 
        /* Resist the damage */
-       if (p_ptr->resist_fire) dam = (dam + 2) / 3;
+       if (creature_ptr->resist_fire) dam = (dam + 2) / 3;
        if (double_resist) dam = (dam + 2) / 3;
 
-       if (aura || !CHECK_MULTISHADOW(p_ptr))
+       if (aura || !CHECK_MULTISHADOW(creature_ptr))
        {
-               if ((!(double_resist || p_ptr->resist_fire)) &&
+               if ((!(double_resist || creature_ptr->resist_fire)) &&
                        one_in_(HURT_CHANCE))
-                       (void)do_dec_stat(p_ptr, A_STR);
+                       (void)do_dec_stat(creature_ptr, A_STR);
        }
 
-       get_damage = take_hit(p_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
+       get_damage = take_hit(creature_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
 
        /* Inventory damage */
-       if (!aura && !(double_resist && p_ptr->resist_fire))
-               inven_damage(set_fire_destroy, inv);
+       if (!aura && !(double_resist && creature_ptr->resist_fire))
+               inventory_damage(creature_ptr, set_fire_destroy, inv);
 
        return get_damage;
 }
@@ -329,45 +325,46 @@ HIT_POINT fire_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 /*!
 * @brief 冷気属性によるプレイヤー損害処理 /
 * Hurt the player with Cold
+* @param creature_ptr 冷気を浴びたキャラクタへの参照ポインタ
 * @param dam 基本ダメージ量
 * @param kb_str ダメージ原因記述
 * @param monspell 原因となったモンスター特殊攻撃ID
 * @param aura オーラよるダメージが原因ならばTRUE
 * @return 修正HPダメージ量
 */
-HIT_POINT cold_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
+HIT_POINT cold_dam(player_type *creature_ptr, HIT_POINT dam, concptr kb_str, int monspell, bool aura)
 {
        HIT_POINT get_damage;
        int inv = (dam < 30) ? 1 : (dam < 60) ? 2 : 3;
-       bool double_resist = IS_OPPOSE_COLD();
+       bool double_resist = is_oppose_cold(creature_ptr);
 
        /* Total immunity */
-       if (p_ptr->immune_cold || (dam <= 0))
+       if (creature_ptr->immune_cold || (dam <= 0))
        {
-               learn_spell(monspell);
+               learn_spell(creature_ptr, monspell);
                return 0;
        }
 
        /* Vulnerability (Ouch!) */
-       if (p_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
-       if (p_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
+       if (creature_ptr->muta3 & MUT3_VULN_ELEM) dam *= 2;
+       if (creature_ptr->special_defense & KATA_KOUKIJIN) dam += dam / 3;
 
        /* Resist the damage */
-       if (p_ptr->resist_cold) dam = (dam + 2) / 3;
+       if (creature_ptr->resist_cold) dam = (dam + 2) / 3;
        if (double_resist) dam = (dam + 2) / 3;
 
-       if (aura || !CHECK_MULTISHADOW(p_ptr))
+       if (aura || !CHECK_MULTISHADOW(creature_ptr))
        {
-               if ((!(double_resist || p_ptr->resist_cold)) &&
+               if ((!(double_resist || creature_ptr->resist_cold)) &&
                        one_in_(HURT_CHANCE))
-                       (void)do_dec_stat(p_ptr, A_STR);
+                       (void)do_dec_stat(creature_ptr, A_STR);
        }
 
-       get_damage = take_hit(p_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
+       get_damage = take_hit(creature_ptr, aura ? DAMAGE_NOESCAPE : DAMAGE_ATTACK, dam, kb_str, monspell);
 
        /* Inventory damage */
-       if (!aura && !(double_resist && p_ptr->resist_cold))
-               inven_damage(set_cold_destroy, inv);
+       if (!aura && !(double_resist && creature_ptr->resist_cold))
+               inventory_damage(creature_ptr, set_cold_destroy, inv);
 
        return get_damage;
 }
@@ -382,7 +379,6 @@ HIT_POINT cold_dam(HIT_POINT dam, concptr kb_str, int monspell, bool aura)
  * the game when he dies, since the "You die." message is shown before
  * setting the player to "dead".
  */
-
 int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concptr hit_from, int monspell)
 {
        int old_chp = creature_ptr->chp;
@@ -400,19 +396,19 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
 
        if (damage_type != DAMAGE_USELIFE)
        {
-               disturb(p_ptr, TRUE, TRUE);
+               disturb(creature_ptr, TRUE, TRUE);
                if (auto_more)
                {
                        creature_ptr->now_damaged = TRUE;
                }
        }
 
-       if (monspell >= 0) learn_spell(monspell);
+       if (monspell >= 0) learn_spell(creature_ptr, monspell);
 
        /* Mega-Hack -- Apply "invulnerability" */
        if ((damage_type != DAMAGE_USELIFE) && (damage_type != DAMAGE_LOSELIFE))
        {
-               if (IS_INVULN() && (damage < 9000))
+               if (IS_INVULN(creature_ptr) && (damage < 9000))
                {
                        if (damage_type == DAMAGE_FORCE)
                        {
@@ -428,7 +424,7 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
                        }
                }
 
-               if (CHECK_MULTISHADOW(p_ptr))
+               if (CHECK_MULTISHADOW(creature_ptr))
                {
                        if (damage_type == DAMAGE_FORCE)
                        {
@@ -436,7 +432,7 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
                        }
                        else if (damage_type == DAMAGE_ATTACK)
                        {
-                               msg_print(_("攻撃は幻影に命中し、あなたには届かなかった。", "The attack hits Shadow, you are unharmed!"));
+                               msg_print(_("攻撃は幻影に命中し、あなたには届かなかった。", "The attack hits Shadow, but you are unharmed!"));
                                return 0;
                        }
                }
@@ -485,39 +481,40 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
        {
                bool android = (creature_ptr->prace == RACE_ANDROID ? TRUE : FALSE);
 
-#ifdef JP       /* 死んだ時に強制終了して死を回避できなくしてみた by Habu */
+#ifdef JP
+               /* 死んだ時に強制終了して死を回避できなくしてみた by Habu */
                if (!cheat_save)
-                       if (!save_player()) msg_print("セーブ失敗!");
+                       if (!save_player(creature_ptr)) msg_print("セーブ失敗!");
 #endif
 
                sound(SOUND_DEATH);
 
                chg_virtue(creature_ptr, V_SACRIFICE, 10);
 
-               handle_stuff();
+               handle_stuff(creature_ptr);
                creature_ptr->leaving = TRUE;
 
                /* Note death */
                creature_ptr->is_dead = TRUE;
 
-               if (creature_ptr->inside_arena)
+               if (creature_ptr->current_floor_ptr->inside_arena)
                {
                        concptr m_name = r_name + r_info[arena_info[creature_ptr->arena_number].r_idx].name;
                        msg_format(_("あなたは%sの前に敗れ去った。", "You are beaten by %s."), m_name);
                        msg_print(NULL);
-                       if (record_arena) exe_write_diary(p_ptr, NIKKI_ARENA, -1 - creature_ptr->arena_number, m_name);
+                       if (record_arena) exe_write_diary(creature_ptr, DIARY_ARENA, -1 - creature_ptr->arena_number, m_name);
                }
                else
                {
-                       QUEST_IDX q_idx = quest_number(current_floor_ptr->dun_level);
+                       QUEST_IDX q_idx = quest_number(creature_ptr, creature_ptr->current_floor_ptr->dun_level);
                        bool seppuku = streq(hit_from, "Seppuku");
-                       bool winning_seppuku = creature_ptr->total_winner && seppuku;
+                       bool winning_seppuku = current_world_ptr->total_winner && seppuku;
 
                        play_music(TERM_XTRA_MUSIC_BASIC, MUSIC_BASIC_GAMEOVER);
 
 #ifdef WORLD_SCORE
                        /* Make screen dump */
-                       screen_dump = make_screen_dump();
+                       screen_dump = make_screen_dump(creature_ptr, process_autopick_file_command);
 #endif
 
                        /* Note cause of death */
@@ -540,38 +537,38 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
                        }
 
                        /* No longer a winner */
-                       creature_ptr->total_winner = FALSE;
+                       current_world_ptr->total_winner = FALSE;
 
                        if (winning_seppuku)
                        {
-                               exe_write_diary(p_ptr, NIKKI_BUNSHOU, 0, _("勝利の後切腹した。", "did Seppuku after the winning."));
+                               exe_write_diary(creature_ptr, DIARY_DESCRIPTION, 0, _("勝利の後切腹した。", "committed seppuku after the winning."));
                        }
                        else
                        {
                                char buf[20];
 
-                               if (creature_ptr->inside_arena)
+                               if (creature_ptr->current_floor_ptr->inside_arena)
                                        strcpy(buf, _("アリーナ", "in the Arena"));
-                               else if (!current_floor_ptr->dun_level)
+                               else if (!creature_ptr->current_floor_ptr->dun_level)
                                        strcpy(buf, _("地上", "on the surface"));
                                else if (q_idx && (is_fixed_quest_idx(q_idx) &&
                                        !((q_idx == QUEST_OBERON) || (q_idx == QUEST_SERPENT))))
                                        strcpy(buf, _("クエスト", "in a quest"));
                                else
-                                       sprintf(buf, _("%d階", "level %d"), (int)current_floor_ptr->dun_level);
+                                       sprintf(buf, _("%d階", "level %d"), (int)creature_ptr->current_floor_ptr->dun_level);
 
                                sprintf(tmp, _("%sで%sに殺された。", "killed by %s %s."), buf, creature_ptr->died_from);
-                               exe_write_diary(p_ptr, NIKKI_BUNSHOU, 0, tmp);
+                               exe_write_diary(creature_ptr, DIARY_DESCRIPTION, 0, tmp);
                        }
 
-                       exe_write_diary(p_ptr, NIKKI_GAMESTART, 1, _("-------- ゲームオーバー --------", "--------   Game  Over   --------"));
-                       exe_write_diary(p_ptr, NIKKI_BUNSHOU, 1, "\n\n\n\n");
+                       exe_write_diary(creature_ptr, DIARY_GAMESTART, 1, _("-------- ゲームオーバー --------", "--------   Game  Over   --------"));
+                       exe_write_diary(creature_ptr, DIARY_DESCRIPTION, 1, "\n\n\n\n");
 
                        flush();
 
                        if (get_check_strict(_("画面を保存しますか?", "Dump the screen? "), CHECK_NO_HISTORY))
                        {
-                               do_cmd_save_screen();
+                               do_cmd_save_screen(creature_ptr, handle_stuff, process_autopick_file_command);
                        }
 
                        flush();
@@ -668,7 +665,7 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
                                        flush();
 #ifdef WORLD_SCORE
                                        /* Make screen dump */
-                                       screen_dump = make_screen_dump();
+                                       screen_dump = make_screen_dump(creature_ptr, process_autopick_file_command);
 #endif
 
                                        /* Wait a key press */
@@ -684,7 +681,7 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
                return damage;
        }
 
-       handle_stuff();
+       handle_stuff(creature_ptr);
 
        /* Hitpoint warning */
        if (creature_ptr->chp < warning)
@@ -699,8 +696,8 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
                        if (creature_ptr->image && damage_type == DAMAGE_ATTACK)
                                hit_from = _("何か", "something");
 
-                       sprintf(tmp, _("%sによってピンチに陥った。", "A critical situation because of %s."), hit_from);
-                       exe_write_diary(p_ptr, NIKKI_BUNSHOU, 0, tmp);
+                       sprintf(tmp, _("%sによってピンチに陥った。", "was in a critical situation because of %s."), hit_from);
+                       exe_write_diary(creature_ptr, DIARY_DESCRIPTION, 0, tmp);
                }
 
                if (auto_more)
@@ -715,7 +712,7 @@ int take_hit(player_type *creature_ptr, int damage_type, HIT_POINT damage, concp
        }
        if (creature_ptr->wild_mode && !creature_ptr->leaving && (creature_ptr->chp < MAX(warning, creature_ptr->mhp / 5)))
        {
-               change_wild_mode(FALSE);
+               change_wild_mode(creature_ptr, FALSE);
        }
        return damage;
 }