src/monster-attack/monster-eating.c

   1 /*!
   2  * @brief プレーヤーのHP/MP、アイテム、お金・明かりの残りターン、充填魔力を盗んだり減少させたりする処理
   3  * @date 2020/05/31
   4  * @author Hourier
   5  */
   6
   7 #include "monster-attack/monster-eating.h"
   8 #include "core/player-redraw-types.h"
   9 #include "core/player-update-types.h"
  10 #include "floor/floor.h"
  11 #include "inventory/inventory-object.h"
  12 #include "inventory/inventory-slot-types.h"
  13 #include "mind/mind-mirror-master.h"
  14 #include "monster/monster-status.h"
  15 #include "object-hook/hook-enchant.h"
  16 #include "object/object-flavor.h"
  17 #include "object/object-generator.h"
  18 #include "object/object-mark-types.h"
  19 #include "object/object-info.h"
  20 #include "player/avatar.h"
  21 #include "player/mimic-info-table.h"
  22 #include "status/experience.h"
  23 #include "view/display-messages.h"
  24 #include "world/world-object.h"
  25
  26 void process_eat_gold(player_type *target_ptr, monap_type *monap_ptr)
  27 {
  28     if (!target_ptr->paralyzed && (randint0(100) < (adj_dex_safe[target_ptr->stat_ind[A_DEX]] + target_ptr->lev))) {
  29         msg_print(_("しかし素早く財布を守った！", "You quickly protect your money pouch!"));
  30         if (randint0(3))
  31             monap_ptr->blinked = TRUE;
  32
  33         return;
  34     }
  35
  36     PRICE gold = (target_ptr->au / 10) + randint1(25);
  37     if (gold < 2)
  38         gold = 2;
  39
  40     if (gold > 5000)
  41         gold = (target_ptr->au / 20) + randint1(3000);
  42
  43     if (gold > target_ptr->au)
  44         gold = target_ptr->au;
  45
  46     target_ptr->au -= gold;
  47     if (gold <= 0) {
  48         msg_print(_("しかし何も盗まれなかった。", "Nothing was stolen."));
  49     } else if (target_ptr->au > 0) {
  50         msg_print(_("財布が軽くなった気がする。", "Your purse feels lighter."));
  51         msg_format(_("$%ld のお金が盗まれた！", "%ld coins were stolen!"), (long)gold);
  52         chg_virtue(target_ptr, V_SACRIFICE, 1);
  53     } else {
  54         msg_print(_("財布が軽くなった気がする。", "Your purse feels lighter."));
  55         msg_print(_("お金が全部盗まれた！", "All of your coins were stolen!"));
  56         chg_virtue(target_ptr, V_SACRIFICE, 2);
  57     }
  58
  59     target_ptr->redraw |= (PR_GOLD);
  60     target_ptr->window |= (PW_PLAYER);
  61     monap_ptr->blinked = TRUE;
  62 }
  63
  64 /*!
  65  * @brief 盗み打撃の時にアイテムが盗まれるかどうかを判定する
  66  * @param target_ptr プレーヤーへの参照ポインタ
  67  * @monap_ptr モンスターからモンスターへの直接攻撃構造体への参照ポインタ
  68  * @return 盗まれたらTRUE、何も盗まれなかったらFALSE
  69  */
  70 bool check_eat_item(player_type *target_ptr, monap_type *monap_ptr)
  71 {
  72     if (monster_confused_remaining(monap_ptr->m_ptr))
  73         return FALSE;
  74
  75     if (target_ptr->is_dead || check_multishadow(target_ptr))
  76         return FALSE;
  77
  78     if (!target_ptr->paralyzed && (randint0(100) < (adj_dex_safe[target_ptr->stat_ind[A_DEX]] + target_ptr->lev))) {
  79         msg_print(_("しかしあわててザックを取り返した！", "You grab hold of your backpack!"));
  80         monap_ptr->blinked = TRUE;
  81         monap_ptr->obvious = TRUE;
  82         return FALSE;
  83     }
  84
  85     return TRUE;
  86 }
  87
  88 /*!
  89  * @brief プレーヤーが持っているアイテムをモンスターに移す
  90  * @param target_ptr プレーヤーへの参照ポインタ
  91  * @monap_ptr モンスターからモンスターへの直接攻撃構造体への参照ポインタ
  92  * @return なし
  93  */
  94 static void move_item_to_monster(player_type *target_ptr, monap_type *monap_ptr, const OBJECT_IDX o_idx)
  95 {
  96     if (o_idx == 0)
  97         return;
  98
  99     object_type *j_ptr;
 100     j_ptr = &target_ptr->current_floor_ptr->o_list[o_idx];
 101     object_copy(j_ptr, monap_ptr->o_ptr);
 102     j_ptr->number = 1;
 103     if ((monap_ptr->o_ptr->tval == TV_ROD) || (monap_ptr->o_ptr->tval == TV_WAND)) {
 104         j_ptr->pval = monap_ptr->o_ptr->pval / monap_ptr->o_ptr->number;
 105         monap_ptr->o_ptr->pval -= j_ptr->pval;
 106     }
 107
 108     j_ptr->marked = OM_TOUCHED;
 109     j_ptr->held_m_idx = monap_ptr->m_idx;
 110     j_ptr->next_o_idx = monap_ptr->m_ptr->hold_o_idx;
 111     monap_ptr->m_ptr->hold_o_idx = o_idx;
 112 }
 113
 114 /*!
 115  * @brief アイテム盗み処理
 116  * @param target_ptr プレーヤーへの参照ポインタ
 117  * @monap_ptr モンスターからモンスターへの直接攻撃構造体への参照ポインタ
 118  * @return なし
 119  * @details eatとあるがお金や食べ物と違ってなくならない、盗んだモンスターを倒せば取り戻せる
 120  */
 121 void process_eat_item(player_type *target_ptr, monap_type *monap_ptr)
 122 {
 123     for (int i = 0; i < 10; i++) {
 124         OBJECT_IDX o_idx;
 125         INVENTORY_IDX i_idx = (INVENTORY_IDX)randint0(INVEN_PACK);
 126         monap_ptr->o_ptr = &target_ptr->inventory_list[i_idx];
 127         if (!monap_ptr->o_ptr->k_idx)
 128             continue;
 129
 130         if (object_is_artifact(monap_ptr->o_ptr))
 131             continue;
 132
 133         object_desc(target_ptr, monap_ptr->o_name, monap_ptr->o_ptr, OD_OMIT_PREFIX);
 134 #ifdef JP
 135         msg_format("%s(%c)を%s盗まれた！", monap_ptr->o_name, index_to_label(i_idx), ((monap_ptr->o_ptr->number > 1) ? "一つ" : ""));
 136 #else
 137         msg_format("%sour %s (%c) was stolen!", ((monap_ptr->o_ptr->number > 1) ? "One of y" : "Y"), monap_ptr->o_name, index_to_label(i_idx));
 138 #endif
 139         chg_virtue(target_ptr, V_SACRIFICE, 1);
 140         o_idx = o_pop(target_ptr->current_floor_ptr);
 141         move_item_to_monster(target_ptr, monap_ptr, o_idx);
 142         inven_item_increase(target_ptr, i_idx, -1);
 143         inven_item_optimize(target_ptr, i_idx);
 144         monap_ptr->obvious = TRUE;
 145         monap_ptr->blinked = TRUE;
 146         break;
 147     }
 148 }
 149
 150 void process_eat_food(player_type *target_ptr, monap_type *monap_ptr)
 151 {
 152     for (int i = 0; i < 10; i++) {
 153         INVENTORY_IDX i_idx = (INVENTORY_IDX)randint0(INVEN_PACK);
 154         monap_ptr->o_ptr = &target_ptr->inventory_list[i_idx];
 155         if (!monap_ptr->o_ptr->k_idx)
 156             continue;
 157
 158         if ((monap_ptr->o_ptr->tval != TV_FOOD) && !((monap_ptr->o_ptr->tval == TV_CORPSE) && (monap_ptr->o_ptr->sval)))
 159             continue;
 160
 161         object_desc(target_ptr, monap_ptr->o_name, monap_ptr->o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
 162 #ifdef JP
 163         msg_format("%s(%c)を%s食べられてしまった！", monap_ptr->o_name, index_to_label(i_idx), ((monap_ptr->o_ptr->number > 1) ? "一つ" : ""));
 164 #else
 165         msg_format("%sour %s (%c) was eaten!", ((monap_ptr->o_ptr->number > 1) ? "One of y" : "Y"), monap_ptr->o_name, index_to_label(i_idx));
 166 #endif
 167         inven_item_increase(target_ptr, i_idx, -1);
 168         inven_item_optimize(target_ptr, i_idx);
 169         monap_ptr->obvious = TRUE;
 170         break;
 171     }
 172 }
 173
 174 void process_eat_lite(player_type *target_ptr, monap_type *monap_ptr)
 175 {
 176     if ((monap_ptr->o_ptr->xtra4 <= 0) || object_is_fixed_artifact(monap_ptr->o_ptr))
 177         return;
 178
 179     monap_ptr->o_ptr->xtra4 -= (s16b)(250 + randint1(250));
 180     if (monap_ptr->o_ptr->xtra4 < 1)
 181         monap_ptr->o_ptr->xtra4 = 1;
 182
 183     if (!target_ptr->blind) {
 184         msg_print(_("明かりが暗くなってしまった。", "Your light dims."));
 185         monap_ptr->obvious = TRUE;
 186     }
 187
 188     target_ptr->window |= (PW_EQUIP);
 189 }
 190
 191 /*!
 192  * @brief モンスターからの攻撃による充填魔力吸収処理
 193  * @param target_ptr プレーヤーへの参照ポインタ
 194  * @monap_ptr モンスターからモンスターへの直接攻撃構造体への参照ポインタ
 195  * @return 吸収されたらTRUE、されなかったらFALSE
 196  */
 197 bool process_un_power(player_type *target_ptr, monap_type *monap_ptr)
 198 {
 199     if (((monap_ptr->o_ptr->tval != TV_STAFF) && (monap_ptr->o_ptr->tval != TV_WAND)) || (monap_ptr->o_ptr->pval == 0))
 200         return FALSE;
 201
 202     int heal = monap_ptr->rlev * monap_ptr->o_ptr->pval;
 203     if (monap_ptr->o_ptr->tval == TV_STAFF)
 204         heal *= monap_ptr->o_ptr->number;
 205
 206     heal = MIN(heal, monap_ptr->m_ptr->maxhp - monap_ptr->m_ptr->hp);
 207     msg_print(_("ザックからエネルギーが吸い取られた！", "Energy drains from your pack!"));
 208     monap_ptr->obvious = TRUE;
 209     monap_ptr->m_ptr->hp += (HIT_POINT)heal;
 210     if (target_ptr->health_who == monap_ptr->m_idx)
 211         target_ptr->redraw |= (PR_HEALTH);
 212
 213     if (target_ptr->riding == monap_ptr->m_idx)
 214         target_ptr->redraw |= (PR_UHEALTH);
 215
 216     monap_ptr->o_ptr->pval = 0;
 217     target_ptr->update |= (PU_COMBINE | PU_REORDER);
 218     target_ptr->window |= (PW_INVEN);
 219     return TRUE;
 220 }
 221
 222 bool check_drain_hp(player_type *target_ptr, const s32b d)
 223 {
 224     bool resist_drain = !drain_exp(target_ptr, d, d / 10, 50);
 225     if (target_ptr->mimic_form)
 226         return (mimic_info[target_ptr->mimic_form].MIMIC_FLAGS & MIMIC_IS_NONLIVING) != 0 ? TRUE : resist_drain;
 227
 228     switch (target_ptr->prace) {
 229     case RACE_ZOMBIE:
 230     case RACE_VAMPIRE:
 231     case RACE_SPECTRE:
 232     case RACE_SKELETON:
 233     case RACE_BALROG:
 234     case RACE_GOLEM:
 235     case RACE_ANDROID:
 236         return TRUE;
 237     default:
 238         return resist_drain;
 239     }
 240 }
 241
 242 void process_drain_life(player_type *target_ptr, monap_type *monap_ptr, const bool resist_drain)
 243 {
 244     if ((monap_ptr->damage <= 5) || resist_drain)
 245         return;
 246
 247     bool did_heal = monap_ptr->m_ptr->hp < monap_ptr->m_ptr->maxhp;
 248     monap_ptr->m_ptr->hp += damroll(4, monap_ptr->damage / 6);
 249     if (monap_ptr->m_ptr->hp > monap_ptr->m_ptr->maxhp)
 250         monap_ptr->m_ptr->hp = monap_ptr->m_ptr->maxhp;
 251
 252     if (target_ptr->health_who == monap_ptr->m_idx)
 253         target_ptr->redraw |= (PR_HEALTH);
 254
 255     if (target_ptr->riding == monap_ptr->m_idx)
 256         target_ptr->redraw |= (PR_UHEALTH);
 257
 258     if (monap_ptr->m_ptr->ml && did_heal)
 259         msg_format(_("%sは体力を回復したようだ。", "%^s appears healthier."), monap_ptr->m_name);
 260 }
 261
 262 void process_drain_mana(player_type *target_ptr, monap_type *monap_ptr)
 263 {
 264     if (check_multishadow(target_ptr)) {
 265         msg_print(_("攻撃は幻影に命中し、あなたには届かなかった。", "The attack hits Shadow, but you are unharmed!"));
 266         return;
 267     }
 268
 269     monap_ptr->do_cut = 0;
 270     target_ptr->csp -= monap_ptr->damage;
 271     if (target_ptr->csp < 0) {
 272         target_ptr->csp = 0;
 273         target_ptr->csp_frac = 0;
 274     }
 275
 276     target_ptr->redraw |= (PR_MANA);
 277 }