*/
#include "cmd-item/cmd-quaff.h"
-#include "birth/birth-stat.h"
-#include "cmd/cmd-basic.h"
-#include "floor/floor.h"
-#include "game-option/birth-options.h"
-#include "game-option/disturbance-options.h"
-#include "inventory/inventory-object.h"
-#include "inventory/player-inventory.h"
-#include "main/sound-definitions-table.h"
-#include "main/sound-of-music.h"
-#include "mutation/mutation.h"
+#include "action/action-limited.h"
+#include "floor/floor-object.h"
#include "object-hook/hook-expendable.h"
+#include "object-use/quaff-execution.h"
#include "object/item-tester-hooker.h"
#include "object/item-use-flags.h"
-#include "object/object-broken.h"
-#include "object/object-generator.h"
-#include "object/object-info.h"
-#include "object/object-kind.h"
-#include "perception/object-perception.h"
-#include "player/avatar.h"
-#include "player/digestion-processor.h"
-#include "player/eldritch-horror.h"
-#include "player/mimic-info-table.h"
-#include "player/player-class.h"
-#include "player/player-damage.h"
-#include "player/player-effects.h"
-#include "player/player-race-types.h"
-#include "player/selfinfo.h"
+#include "player/attack-defense-types.h"
#include "player/special-defense-types.h"
-#include "realm/realm-hex-numbers.h"
-#include "spell-kind/spells-detection.h"
-#include "spell-kind/spells-floor.h"
-#include "spell-kind/spells-perception.h"
-#include "spell-realm/spells-hex.h"
-#include "spell/spells-status.h"
-#include "spell/spells3.h"
-#include "status/bad-status-setter.h"
-#include "status/base-status.h"
-#include "status/buff-setter.h"
-#include "status/element-resistance.h"
-#include "status/experience.h"
-#include "status/form-changer.h"
-#include "status/sight-setter.h"
-#include "sv-definition/sv-potion-types.h"
-#include "term/screen-processor.h"
-#include "view/display-messages.h"
-
-/*!
- * @brief 薬を飲むコマンドのサブルーチン /
- * Quaff a potion (from the pack or the floor)
- * @param creature_ptr プレーヤーへの参照ポインタ
- * @param item 飲む薬オブジェクトの所持品ID
- * @return なし
- */
-void exe_quaff_potion(player_type *creature_ptr, INVENTORY_IDX item)
-{
- bool ident;
- DEPTH lev;
- object_type *o_ptr;
- object_type forge;
- object_type *q_ptr;
-
- take_turn(creature_ptr, 100);
-
- if (creature_ptr->timewalk)
- {
- if (flush_failure) flush();
- msg_print(_("瓶から水が流れ出てこない!", "The potion doesn't flow out from the bottle."));
-
- sound(SOUND_FAIL);
- return;
- }
-
- if (music_singing_any(creature_ptr)) stop_singing(creature_ptr);
- if (hex_spelling_any(creature_ptr))
- {
- if (!hex_spelling(creature_ptr, HEX_INHAIL)) stop_hex_spell_all(creature_ptr);
- }
-
- o_ptr = ref_item(creature_ptr, item);
- q_ptr = &forge;
- object_copy(q_ptr, o_ptr);
-
- /* Single object */
- q_ptr->number = 1;
-
- vary_item(creature_ptr, item, -1);
- sound(SOUND_QUAFF);
-
-
- /* Not identified yet */
- ident = FALSE;
-
- /* Object level */
- lev = k_info[q_ptr->k_idx].level;
-
- /* Analyze the potion */
- if (q_ptr->tval == TV_POTION)
- {
- switch (q_ptr->sval)
- {
- /* 飲みごたえをオリジナルより細かく表現 */
- case SV_POTION_WATER:
- msg_print(_("口の中がさっぱりした。", ""));
- msg_print(_("のどの渇きが少しおさまった。", "You feel less thirsty."));
- ident = TRUE;
- break;
-
- case SV_POTION_APPLE_JUICE:
- msg_print(_("甘くてサッパリとしていて、とてもおいしい。", ""));
- msg_print(_("のどの渇きが少しおさまった。", "You feel less thirsty."));
- ident = TRUE;
- break;
-
- case SV_POTION_SLIME_MOLD:
- msg_print(_("なんとも不気味な味だ。", ""));
- msg_print(_("のどの渇きが少しおさまった。", "You feel less thirsty."));
- ident = TRUE;
- break;
-
- case SV_POTION_SLOWNESS:
- if (set_slow(creature_ptr, randint1(25) + 15, FALSE)) ident = TRUE;
- break;
-
- case SV_POTION_SALT_WATER:
- msg_print(_("うぇ!思わず吐いてしまった。", "The potion makes you vomit!"));
-
- if (!(is_specific_player_race(creature_ptr, RACE_GOLEM) ||
- is_specific_player_race(creature_ptr, RACE_ZOMBIE) ||
- is_specific_player_race(creature_ptr, RACE_BALROG) ||
- is_specific_player_race(creature_ptr, RACE_ANDROID) ||
- is_specific_player_race(creature_ptr, RACE_SPECTRE) ||
- (mimic_info[creature_ptr->mimic_form].MIMIC_FLAGS & MIMIC_IS_NONLIVING)))
- {
- /* Only living creatures get thirsty */
- (void)set_food(creature_ptr, PY_FOOD_STARVE - 1);
- }
-
- (void)set_poisoned(creature_ptr, 0);
- (void)set_paralyzed(creature_ptr, creature_ptr->paralyzed + 4);
- ident = TRUE;
- break;
-
- case SV_POTION_POISON:
- if (!(creature_ptr->resist_pois || is_oppose_pois(creature_ptr)))
- {
- if (set_poisoned(creature_ptr, creature_ptr->poisoned + randint0(15) + 10))
- {
- ident = TRUE;
- }
- }
- break;
-
- case SV_POTION_BLINDNESS:
- if (!creature_ptr->resist_blind)
- {
- if (set_blind(creature_ptr, creature_ptr->blind + randint0(100) + 100))
- {
- ident = TRUE;
- }
- }
- break;
-
- case SV_POTION_BOOZE:
- ident = booze(creature_ptr);
- break;
-
- case SV_POTION_SLEEP:
- if (!creature_ptr->free_act)
- {
- msg_print(_("あなたは眠ってしまった。", "You fall asleep."));
-
- if (ironman_nightmare)
- {
- msg_print(_("恐ろしい光景が頭に浮かんできた。", "A horrible vision enters your mind."));
-
- /* Have some nightmares */
- sanity_blast(creature_ptr, NULL, FALSE);
- }
- if (set_paralyzed(creature_ptr, creature_ptr->paralyzed + randint0(4) + 4))
- {
- ident = TRUE;
- }
- }
- break;
-
- case SV_POTION_LOSE_MEMORIES:
- if (!creature_ptr->hold_exp && (creature_ptr->exp > 0))
- {
- msg_print(_("過去の記憶が薄れていく気がする。", "You feel your memories fade."));
- chg_virtue(creature_ptr, V_KNOWLEDGE, -5);
-
- lose_exp(creature_ptr, creature_ptr->exp / 4);
- ident = TRUE;
- }
- break;
-
- case SV_POTION_RUINATION:
- msg_print(_("身も心も弱ってきて、精気が抜けていくようだ。", "Your nerves and muscles feel weak and lifeless!"));
- take_hit(creature_ptr, DAMAGE_LOSELIFE, damroll(10, 10), _("破滅の薬", "a potion of Ruination"), -1);
-
- (void)dec_stat(creature_ptr, A_DEX, 25, TRUE);
- (void)dec_stat(creature_ptr, A_WIS, 25, TRUE);
- (void)dec_stat(creature_ptr, A_CON, 25, TRUE);
- (void)dec_stat(creature_ptr, A_STR, 25, TRUE);
- (void)dec_stat(creature_ptr, A_CHR, 25, TRUE);
- (void)dec_stat(creature_ptr, A_INT, 25, TRUE);
- ident = TRUE;
- break;
-
- case SV_POTION_DEC_STR:
- if (do_dec_stat(creature_ptr, A_STR)) ident = TRUE;
- break;
-
- case SV_POTION_DEC_INT:
- if (do_dec_stat(creature_ptr, A_INT)) ident = TRUE;
- break;
-
- case SV_POTION_DEC_WIS:
- if (do_dec_stat(creature_ptr, A_WIS)) ident = TRUE;
- break;
-
- case SV_POTION_DEC_DEX:
- if (do_dec_stat(creature_ptr, A_DEX)) ident = TRUE;
- break;
-
- case SV_POTION_DEC_CON:
- if (do_dec_stat(creature_ptr, A_CON)) ident = TRUE;
- break;
-
- case SV_POTION_DEC_CHR:
- if (do_dec_stat(creature_ptr, A_CHR)) ident = TRUE;
- break;
-
- case SV_POTION_DETONATIONS:
- ident = detonation(creature_ptr);
- break;
-
- case SV_POTION_DEATH:
- chg_virtue(creature_ptr, V_VITALITY, -1);
- chg_virtue(creature_ptr, V_UNLIFE, 5);
- msg_print(_("死の予感が体中を駆けめぐった。", "A feeling of Death flows through your body."));
- take_hit(creature_ptr, DAMAGE_LOSELIFE, 5000, _("死の薬", "a potion of Death"), -1);
- ident = TRUE;
- break;
-
- case SV_POTION_INFRAVISION:
- if (set_tim_infra(creature_ptr, creature_ptr->tim_infra + 100 + randint1(100), FALSE))
- {
- ident = TRUE;
- }
- break;
-
- case SV_POTION_DETECT_INVIS:
- if (set_tim_invis(creature_ptr, creature_ptr->tim_invis + 12 + randint1(12), FALSE))
- {
- ident = TRUE;
- }
- break;
-
- case SV_POTION_SLOW_POISON:
- if (set_poisoned(creature_ptr, creature_ptr->poisoned / 2)) ident = TRUE;
- break;
-
- case SV_POTION_CURE_POISON:
- if (set_poisoned(creature_ptr, 0)) ident = TRUE;
- break;
-
- case SV_POTION_BOLDNESS:
- if (set_afraid(creature_ptr, 0)) ident = TRUE;
- break;
-
- case SV_POTION_SPEED:
- if (!creature_ptr->fast)
- {
- if (set_fast(creature_ptr, randint1(25) + 15, FALSE)) ident = TRUE;
- }
- else
- {
- (void)set_fast(creature_ptr, creature_ptr->fast + 5, FALSE);
- }
- break;
-
- case SV_POTION_RESIST_HEAT:
- if (set_oppose_fire(creature_ptr, creature_ptr->oppose_fire + randint1(10) + 10, FALSE))
- {
- ident = TRUE;
- }
- break;
-
- case SV_POTION_RESIST_COLD:
- if (set_oppose_cold(creature_ptr, creature_ptr->oppose_cold + randint1(10) + 10, FALSE))
- {
- ident = TRUE;
- }
- break;
-
- case SV_POTION_HEROISM:
- ident = heroism(creature_ptr, 25);
- break;
-
- case SV_POTION_BESERK_STRENGTH:
- ident = berserk(creature_ptr, randint1(25) + 25);
- break;
-
- case SV_POTION_CURE_LIGHT:
- ident = cure_light_wounds(creature_ptr, 2, 8);
- break;
-
- case SV_POTION_CURE_SERIOUS:
- ident = cure_serious_wounds(creature_ptr, 4, 8);
- break;
-
- case SV_POTION_CURE_CRITICAL:
- ident = cure_critical_wounds(creature_ptr, damroll(6, 8));
- break;
-
- case SV_POTION_HEALING:
- ident = cure_critical_wounds(creature_ptr, 300);
- break;
-
- case SV_POTION_STAR_HEALING:
- ident = cure_critical_wounds(creature_ptr, 1200);
- break;
-
- case SV_POTION_LIFE:
- ident = life_stream(creature_ptr, TRUE, TRUE);
- break;
-
- case SV_POTION_RESTORE_MANA:
- ident = restore_mana(creature_ptr, TRUE);
- break;
-
- case SV_POTION_RESTORE_EXP:
- if (restore_level(creature_ptr)) ident = TRUE;
- break;
-
- case SV_POTION_RES_STR:
- if (do_res_stat(creature_ptr, A_STR)) ident = TRUE;
- break;
-
- case SV_POTION_RES_INT:
- if (do_res_stat(creature_ptr, A_INT)) ident = TRUE;
- break;
-
- case SV_POTION_RES_WIS:
- if (do_res_stat(creature_ptr, A_WIS)) ident = TRUE;
- break;
-
- case SV_POTION_RES_DEX:
- if (do_res_stat(creature_ptr, A_DEX)) ident = TRUE;
- break;
-
- case SV_POTION_RES_CON:
- if (do_res_stat(creature_ptr, A_CON)) ident = TRUE;
- break;
-
- case SV_POTION_RES_CHR:
- if (do_res_stat(creature_ptr, A_CHR)) ident = TRUE;
- break;
-
- case SV_POTION_INC_STR:
- if (do_inc_stat(creature_ptr, A_STR)) ident = TRUE;
- break;
-
- case SV_POTION_INC_INT:
- if (do_inc_stat(creature_ptr, A_INT)) ident = TRUE;
- break;
-
- case SV_POTION_INC_WIS:
- if (do_inc_stat(creature_ptr, A_WIS)) ident = TRUE;
- break;
-
- case SV_POTION_INC_DEX:
- if (do_inc_stat(creature_ptr, A_DEX)) ident = TRUE;
- break;
-
- case SV_POTION_INC_CON:
- if (do_inc_stat(creature_ptr, A_CON)) ident = TRUE;
- break;
-
- case SV_POTION_INC_CHR:
- if (do_inc_stat(creature_ptr, A_CHR)) ident = TRUE;
- break;
-
- case SV_POTION_AUGMENTATION:
- if (do_inc_stat(creature_ptr, A_STR)) ident = TRUE;
- if (do_inc_stat(creature_ptr, A_INT)) ident = TRUE;
- if (do_inc_stat(creature_ptr, A_WIS)) ident = TRUE;
- if (do_inc_stat(creature_ptr, A_DEX)) ident = TRUE;
- if (do_inc_stat(creature_ptr, A_CON)) ident = TRUE;
- if (do_inc_stat(creature_ptr, A_CHR)) ident = TRUE;
- break;
-
- case SV_POTION_ENLIGHTENMENT:
- msg_print(_("自分の置かれている状況が脳裏に浮かんできた...", "An image of your surroundings forms in your mind..."));
- chg_virtue(creature_ptr, V_KNOWLEDGE, 1);
- chg_virtue(creature_ptr, V_ENLIGHTEN, 1);
- wiz_lite(creature_ptr, FALSE);
- ident = TRUE;
- break;
-
- case SV_POTION_STAR_ENLIGHTENMENT:
- msg_print(_("更なる啓蒙を感じた...", "You begin to feel more enlightened..."));
- chg_virtue(creature_ptr, V_KNOWLEDGE, 1);
- chg_virtue(creature_ptr, V_ENLIGHTEN, 2);
- msg_print(NULL);
- wiz_lite(creature_ptr, FALSE);
- (void)do_inc_stat(creature_ptr, A_INT);
- (void)do_inc_stat(creature_ptr, A_WIS);
- (void)detect_traps(creature_ptr, DETECT_RAD_DEFAULT, TRUE);
- (void)detect_doors(creature_ptr, DETECT_RAD_DEFAULT);
- (void)detect_stairs(creature_ptr, DETECT_RAD_DEFAULT);
- (void)detect_treasure(creature_ptr, DETECT_RAD_DEFAULT);
- (void)detect_objects_gold(creature_ptr, DETECT_RAD_DEFAULT);
- (void)detect_objects_normal(creature_ptr, DETECT_RAD_DEFAULT);
- identify_pack(creature_ptr);
- self_knowledge(creature_ptr);
- ident = TRUE;
- break;
-
- case SV_POTION_SELF_KNOWLEDGE:
- msg_print(_("自分自身のことが少しは分かった気がする...", "You begin to know yourself a little better..."));
- msg_print(NULL);
- self_knowledge(creature_ptr);
- ident = TRUE;
- break;
-
- case SV_POTION_EXPERIENCE:
- if (creature_ptr->prace == RACE_ANDROID) break;
- chg_virtue(creature_ptr, V_ENLIGHTEN, 1);
- if (creature_ptr->exp < PY_MAX_EXP)
- {
- EXP ee = (creature_ptr->exp / 2) + 10;
- if (ee > 100000L) ee = 100000L;
- msg_print(_("更に経験を積んだような気がする。", "You feel more experienced."));
- gain_exp(creature_ptr, ee);
- ident = TRUE;
- }
- break;
-
- case SV_POTION_RESISTANCE:
- (void)set_oppose_acid(creature_ptr, creature_ptr->oppose_acid + randint1(20) + 20, FALSE);
- (void)set_oppose_elec(creature_ptr, creature_ptr->oppose_elec + randint1(20) + 20, FALSE);
- (void)set_oppose_fire(creature_ptr, creature_ptr->oppose_fire + randint1(20) + 20, FALSE);
- (void)set_oppose_cold(creature_ptr, creature_ptr->oppose_cold + randint1(20) + 20, FALSE);
- (void)set_oppose_pois(creature_ptr, creature_ptr->oppose_pois + randint1(20) + 20, FALSE);
- ident = TRUE;
- break;
-
- case SV_POTION_CURING:
- if (true_healing(creature_ptr, 50)) ident = TRUE;
- break;
-
- case SV_POTION_INVULNERABILITY:
- (void)set_invuln(creature_ptr, creature_ptr->invuln + randint1(4) + 4, FALSE);
- ident = TRUE;
- break;
-
- case SV_POTION_NEW_LIFE:
- roll_hitdice(creature_ptr, 0L);
- get_max_stats(creature_ptr);
- creature_ptr->update |= PU_BONUS;
- lose_all_mutations(creature_ptr);
- ident = TRUE;
- break;
-
- case SV_POTION_NEO_TSUYOSHI:
- (void)set_image(creature_ptr, 0);
- (void)set_tsuyoshi(creature_ptr, creature_ptr->tsuyoshi + randint1(100) + 100, FALSE);
- ident = TRUE;
- break;
-
- case SV_POTION_TSUYOSHI:
- msg_print(_("「オクレ兄さん!」", "Brother OKURE!"));
- msg_print(NULL);
- creature_ptr->tsuyoshi = 1;
- (void)set_tsuyoshi(creature_ptr, 0, TRUE);
- if (!creature_ptr->resist_chaos)
- {
- (void)set_image(creature_ptr, 50 + randint1(50));
- }
- ident = TRUE;
- break;
-
- case SV_POTION_POLYMORPH:
- if ((creature_ptr->muta1 || creature_ptr->muta2 || creature_ptr->muta3) && one_in_(23))
- {
- lose_all_mutations(creature_ptr);
- }
- else
- {
- do
- {
- if (one_in_(2))
- {
- if(gain_mutation(creature_ptr, 0)) ident = TRUE;
- }
- else if (lose_mutation(creature_ptr, 0)) ident = TRUE;
- } while(!ident || one_in_(2));
- }
- break;
- }
- }
-
- if (is_specific_player_race(creature_ptr, RACE_SKELETON))
- {
- msg_print(_("液体の一部はあなたのアゴを素通りして落ちた!", "Some of the fluid falls through your jaws!"));
- (void)potion_smash_effect(creature_ptr, 0, creature_ptr->y, creature_ptr->x, q_ptr->k_idx);
- }
- creature_ptr->update |= (PU_COMBINE | PU_REORDER);
-
- if (!(object_is_aware(q_ptr)))
- {
- chg_virtue(creature_ptr, V_PATIENCE, -1);
- chg_virtue(creature_ptr, V_CHANCE, 1);
- chg_virtue(creature_ptr, V_KNOWLEDGE, -1);
- }
-
- /* The item has been tried */
- object_tried(q_ptr);
-
- /* An identification was made */
- if (ident && !object_is_aware(q_ptr))
- {
- object_aware(creature_ptr, q_ptr);
- gain_exp(creature_ptr, (lev + (creature_ptr->lev >> 1)) / creature_ptr->lev);
- }
-
- creature_ptr->window |= (PW_INVEN | PW_EQUIP | PW_PLAYER);
-
- /* Potions can feed the player */
- switch (creature_ptr->mimic_form)
- {
- case MIMIC_NONE:
- switch (creature_ptr->prace)
- {
- case RACE_VAMPIRE:
- (void)set_food(creature_ptr, creature_ptr->food + (q_ptr->pval / 10));
- break;
- case RACE_SKELETON:
- /* Do nothing */
- break;
- case RACE_GOLEM:
- case RACE_ZOMBIE:
- case RACE_BALROG:
- case RACE_SPECTRE:
- set_food(creature_ptr, creature_ptr->food + ((q_ptr->pval) / 20));
- break;
- case RACE_ANDROID:
- if (q_ptr->tval == TV_FLASK)
- {
- msg_print(_("オイルを補給した。", "You replenish yourself with the oil."));
- set_food(creature_ptr, creature_ptr->food + 5000);
- }
- else
- {
- set_food(creature_ptr, creature_ptr->food + ((q_ptr->pval) / 20));
- }
- break;
- case RACE_ENT:
- msg_print(_("水分を取り込んだ。", "You are moistened."));
- set_food(creature_ptr, MIN(creature_ptr->food + q_ptr->pval + MAX(0, q_ptr->pval * 10) + 2000, PY_FOOD_MAX - 1));
- break;
- default:
- (void)set_food(creature_ptr, creature_ptr->food + q_ptr->pval);
- break;
- }
- break;
- case MIMIC_DEMON:
- case MIMIC_DEMON_LORD:
- set_food(creature_ptr, creature_ptr->food + ((q_ptr->pval) / 20));
- break;
- case MIMIC_VAMPIRE:
- (void)set_food(creature_ptr, creature_ptr->food + (q_ptr->pval / 10));
- break;
- default:
- (void)set_food(creature_ptr, creature_ptr->food + q_ptr->pval);
- break;
- }
-}
-
-
+#include "status/action-setter.h"
/*!
* @brief 薬を飲むコマンドのメインルーチン /
*/
void do_cmd_quaff_potion(player_type *creature_ptr)
{
- OBJECT_IDX item;
- concptr q, s;
-
- if (creature_ptr->wild_mode)
- {
- return;
- }
-
- if (cmd_limit_arena(creature_ptr)) return;
+ if (creature_ptr->wild_mode)
+ return;
- if (creature_ptr->special_defense & (KATA_MUSOU | KATA_KOUKIJIN))
- {
- set_action(creature_ptr, ACTION_NONE);
- }
+ if (cmd_limit_arena(creature_ptr))
+ return;
- /* Restrict choices to potions */
- item_tester_hook = item_tester_hook_quaff;
+ if (creature_ptr->special_defense & (KATA_MUSOU | KATA_KOUKIJIN))
+ set_action(creature_ptr, ACTION_NONE);
- q = _("どの薬を飲みますか? ", "Quaff which potion? ");
- s = _("飲める薬がない。", "You have no potions to quaff.");
+ item_tester_hook = item_tester_hook_quaff;
+ concptr q = _("どの薬を飲みますか? ", "Quaff which potion? ");
+ concptr s = _("飲める薬がない。", "You have no potions to quaff.");
- if (!choose_object(creature_ptr, &item, q, s, (USE_INVEN | USE_FLOOR), 0)) return;
+ OBJECT_IDX item;
+ if (!choose_object(creature_ptr, &item, q, s, (USE_INVEN | USE_FLOOR), 0))
+ return;
- /* Quaff the potion */
- exe_quaff_potion(creature_ptr, item);
+ exe_quaff_potion(creature_ptr, item);
}