/*!
* @brief プレイヤーが詠唱中の呪術から一つを選んで停止する
* @return なし
*/
bool stop_hex_spell(void)
{
int spell;
char choice;
char out_val[160];
bool flag = FALSE;
int y = 1;
int x = 20;
int sp[MAX_KEEP];
if (!hex_spelling_any())
{
#ifdef JP
msg_print("呪文を詠唱していません。");
#else
msg_print("You are casting no spell.");
#endif
return FALSE;
}
/* Stop all spells */
else if ((p_ptr->magic_num2[0] == 1) || (p_ptr->lev < 35))
{
return stop_hex_spell_all();
}
else
{
#ifdef JP
strnfmt(out_val, 78, "どの呪文の詠唱を中断しますか？(呪文 %c-%c, 'l'全て, ESC)",
I2A(0), I2A(p_ptr->magic_num2[0] - 1));
#else
strnfmt(out_val, 78, "Which spell do you stop casting? (Spell %c-%c, 'l' to all, ESC)",
I2A(0), I2A(p_ptr->magic_num2[0] - 1));
#endif
screen_save();
while (!flag)
{
int n = 0;
Term_erase(x, y, 255);
prt(" 名前", y, x + 5);
for (spell = 0; spell < 32; spell++)
{
if (hex_spelling(spell))
{
Term_erase(x, y + n + 1, 255);
put_str(format("%c) %s", I2A(n), do_spell(REALM_HEX, spell, SPELL_NAME)), y + n + 1, x + 2);
sp[n++] = spell;
}
}
if (!get_com(out_val, &choice, TRUE)) break;
if (isupper(choice)) choice = tolower(choice);
if (choice == 'l') /* All */
{
screen_load();
return stop_hex_spell_all();
}
if ((choice < I2A(0)) || (choice > I2A(p_ptr->magic_num2[0] - 1))) continue;
flag = TRUE;
}
}
screen_load();
if (flag)
{
int n = sp[A2I(choice)];
do_spell(REALM_HEX, n, SPELL_STOP);
p_ptr->magic_num1[0] &= ~(1L << n);
p_ptr->magic_num2[0]--;
}
/* Redraw status */
p_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS);
p_ptr->redraw |= (PR_EXTRA | PR_HP | PR_MANA);
return flag;
}
static void do_cmd_eat_food_aux(int item)
{
int ident, lev;
object_type *o_ptr;
if (music_singing_any()) bard_stop_singing();
if (hex_spelling_any()) stop_hex_spell_all();
warlock_stop_singing();
/* Get the item (in the pack) */
if (item >= 0)
{
o_ptr = &inventory[item];
}
/* Get the item (on the floor) */
else
{
o_ptr = &o_list[0 - item];
}
if (object_is_mushroom(o_ptr) && o_ptr->art_name && o_ptr->timeout)
{
msg_print("Your mushroom is still charging.");
return;
}
/* Sound */
sound(SOUND_EAT);
/* Take a turn */
energy_use = 100;
/* Identity not known yet */
ident = FALSE;
/* Object level */
lev = k_info[o_ptr->k_idx].level;
if (o_ptr->tval == TV_FOOD)
{
/* Analyze the food */
switch (o_ptr->sval)
{
case SV_FOOD_POISON:
{
if (!res_save_default(RES_POIS))
{
if (set_poisoned(p_ptr->poisoned + randint0(10) + 10, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_BLINDNESS:
{
if (!res_save_default(RES_BLIND))
{
if (set_blind(p_ptr->blind + randint0(200) + 200, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_PARANOIA:
{
if (!fear_save_p(fear_threat_level()))
ident = fear_add_p(FEAR_SCARED);
break;
}
case SV_FOOD_CONFUSION:
{
if (!res_save_default(RES_CONF))
{
if (set_confused(p_ptr->confused + randint0(10) + 10, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_HALLUCINATION:
{
if (!res_save_default(RES_CHAOS))
{
if (set_image(p_ptr->image + randint0(25) + 25, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_PARALYSIS:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(randint1(4), FALSE))
{
ident = TRUE;
}
}
break;
}
case SV_FOOD_WEAKNESS:
{
take_hit(DAMAGE_NOESCAPE, damroll(6, 6), "poisonous food", -1);
(void)do_dec_stat(A_STR);
ident = TRUE;
break;
}
case SV_FOOD_SICKNESS:
{
take_hit(DAMAGE_NOESCAPE, damroll(6, 6), "poisonous food", -1);
(void)do_dec_stat(A_CON);
ident = TRUE;
break;
}
case SV_FOOD_STUPIDITY:
{
take_hit(DAMAGE_NOESCAPE, damroll(8, 8), "poisonous food", -1);
(void)do_dec_stat(A_INT);
ident = TRUE;
break;
}
case SV_FOOD_NAIVETY:
{
take_hit(DAMAGE_NOESCAPE, damroll(8, 8), "poisonous food", -1);
(void)do_dec_stat(A_WIS);
ident = TRUE;
break;
}
case SV_FOOD_UNHEALTH:
{
take_hit(DAMAGE_NOESCAPE, damroll(10, 10), "poisonous food", -1);
(void)do_dec_stat(A_CON);
ident = TRUE;
break;
}
case SV_FOOD_DISEASE:
{
take_hit(DAMAGE_NOESCAPE, damroll(10, 10), "poisonous food", -1);
(void)do_dec_stat(A_STR);
ident = TRUE;
break;
}
case SV_FOOD_CURE_POISON:
{
if (set_poisoned(0, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_CURE_BLINDNESS:
{
if (set_blind(0, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_CURE_PARANOIA:
{
if (p_ptr->afraid)
{
fear_clear_p();
ident = TRUE;
}
break;
}
case SV_FOOD_CURE_CONFUSION:
{
if (set_confused(0, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_CURE_SERIOUS:
{
if (hp_player(damroll(6, 8))) ident = TRUE;
if (set_cut((p_ptr->cut / 2) - 50, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_RESTORE_STR:
{
if (do_res_stat(A_STR)) ident = TRUE;
break;
}
case SV_FOOD_RESTORE_CON:
{
if (do_res_stat(A_CON)) ident = TRUE;
break;
}
case SV_FOOD_RESTORING:
{
if (do_res_stat(A_STR)) ident = TRUE;
if (do_res_stat(A_INT)) ident = TRUE;
if (do_res_stat(A_WIS)) ident = TRUE;
if (do_res_stat(A_DEX)) ident = TRUE;
if (do_res_stat(A_CON)) ident = TRUE;
if (do_res_stat(A_CHR)) ident = TRUE;
break;
}
case SV_FOOD_RATION:
case SV_FOOD_BISCUIT:
case SV_FOOD_JERKY:
case SV_FOOD_SLIME_MOLD:
{
msg_print("That tastes good.");
ident = TRUE;
break;
}
case SV_FOOD_AMBROSIA:
{
msg_print("That tastes divine!");
set_poisoned(0, TRUE);
hp_player(damroll(15, 15));
do_res_stat(A_STR);
do_res_stat(A_INT);
do_res_stat(A_WIS);
do_res_stat(A_DEX);
do_res_stat(A_CON);
do_res_stat(A_CHR);
restore_level();
ident = TRUE;
break;
}
case SV_FOOD_WAYBREAD:
{
msg_print("That tastes good.");
(void)set_poisoned(0, TRUE);
(void)hp_player(damroll(4, 8));
ident = TRUE;
break;
}
case SV_FOOD_PINT_OF_ALE:
case SV_FOOD_PINT_OF_WINE:
{
msg_print("That tastes good.");
ident = TRUE;
break;
}
}
}
if (prace_is_(RACE_SNOTLING) && object_is_mushroom(o_ptr))
{
int lev = k_info[o_ptr->k_idx].level;
int dur = lev + randint1(lev);
set_fast(p_ptr->fast + dur, FALSE);
set_shield(p_ptr->shield + dur, FALSE);
set_hero(p_ptr->hero + dur, FALSE);
set_tim_building_up(p_ptr->tim_building_up + dur, FALSE);
}
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
if (!(object_is_aware(o_ptr)))
{
virtue_add(VIRTUE_KNOWLEDGE, -1);
virtue_add(VIRTUE_PATIENCE, -1);
virtue_add(VIRTUE_CHANCE, 1);
}
/* We have tried it */
if (o_ptr->tval == TV_FOOD) object_tried(o_ptr);
stats_on_use(o_ptr, 1);
/* The player is now aware of the object */
if (ident && !object_is_aware(o_ptr))
{
object_aware(o_ptr);
stats_on_notice(o_ptr, 1);
gain_exp((lev + (p_ptr->lev >> 1)) / p_ptr->lev);
}
/*!
* @brief 一定時間毎に呪術で消費するMPを処理する /
* Upkeeping hex spells Called from dungeon.c
* @return なし
*/
void check_hex(void)
{
int spell;
s32b need_mana;
u32b need_mana_frac;
bool res = FALSE;
/* Spells spelled by player */
if (p_ptr->realm1 != REALM_HEX) return;
if (!p_ptr->magic_num1[0] && !p_ptr->magic_num1[1]) return;
if (p_ptr->magic_num1[1])
{
p_ptr->magic_num1[0] = p_ptr->magic_num1[1];
p_ptr->magic_num1[1] = 0;
res = TRUE;
}
/* Stop all spells when anti-magic ability is given */
if (p_ptr->anti_magic)
{
stop_hex_spell_all();
return;
}
need_mana = 0;
for (spell = 0; spell < 32; spell++)
{
if (hex_spelling(spell))
{
const magic_type *s_ptr;
s_ptr = &technic_info[REALM_HEX - MIN_TECHNIC][spell];
need_mana += mod_need_mana(s_ptr->smana, spell, REALM_HEX);
}
}
/* Culcurates final mana cost */
need_mana_frac = 0;
s64b_div(&need_mana, &need_mana_frac, 0, 3); /* Divide by 3 */
need_mana += (p_ptr->magic_num2[0] - 1);
/* Not enough mana */
if (s64b_cmp(p_ptr->csp, p_ptr->csp_frac, need_mana, need_mana_frac) < 0)
{
stop_hex_spell_all();
return;
}
/* Enough mana */
else
{
s64b_sub(&(p_ptr->csp), &(p_ptr->csp_frac), need_mana, need_mana_frac);
p_ptr->redraw |= PR_MANA;
if (res)
{
#ifdef JP
msg_print("詠唱を再開した。");
#else
msg_print("You restart spelling.");
#endif
p_ptr->action = ACTION_SPELL;
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS | PU_HP);
/* Redraw map and status bar */
p_ptr->redraw |= (PR_MAP | PR_STATUS | PR_STATE);
/* Update monsters */
p_ptr->update |= (PU_MONSTERS);
/* Window stuff */
p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
}
}
/* Gain experiences of spelling spells */
for (spell = 0; spell < 32; spell++)
{
const magic_type *s_ptr;
if (!hex_spelling(spell)) continue;
s_ptr = &technic_info[REALM_HEX - MIN_TECHNIC][spell];
if (p_ptr->spell_exp[spell] < SPELL_EXP_BEGINNER)
p_ptr->spell_exp[spell] += 5;
else if(p_ptr->spell_exp[spell] < SPELL_EXP_SKILLED)
{ if (one_in_(2) && (dun_level > 4) && ((dun_level + 10) > p_ptr->lev)) p_ptr->spell_exp[spell] += 1; }
else if(p_ptr->spell_exp[spell] < SPELL_EXP_EXPERT)
{ if (one_in_(5) && ((dun_level + 5) > p_ptr->lev) && ((dun_level + 5) > s_ptr->slevel)) p_ptr->spell_exp[spell] += 1; }
else if(p_ptr->spell_exp[spell] < SPELL_EXP_MASTER)
{ if (one_in_(5) && ((dun_level + 5) > p_ptr->lev) && (dun_level > s_ptr->slevel)) p_ptr->spell_exp[spell] += 1; }
}
/* Do any effects of continual spells */
for (spell = 0; spell < 32; spell++)
{
if (hex_spelling(spell))
{
do_spell(REALM_HEX, spell, SPELL_CONT);
}
}
}
static void do_cmd_eat_food_aux(obj_ptr obj)
{
int lev = k_info[obj->k_idx].level;
bool ident = FALSE;
if (music_singing_any()) bard_stop_singing();
if (hex_spelling_any()) stop_hex_spell_all();
warlock_stop_singing();
if (object_is_mushroom(obj) && obj->art_name && obj->timeout)
{
msg_print("Your mushroom is still charging.");
return;
}
sound(SOUND_EAT);
energy_use = 100;
ident = FALSE;
/* Food may have effects */
if (obj->tval == TV_FOOD)
{
switch (obj->sval)
{
case SV_FOOD_POISON:
{
if (!res_save_default(RES_POIS))
{
if (set_poisoned(p_ptr->poisoned + randint0(10) + 10, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_BLINDNESS:
{
if (!res_save_default(RES_BLIND))
{
if (set_blind(p_ptr->blind + randint0(200) + 200, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_PARANOIA:
{
if (!fear_save_p(fear_threat_level()))
ident = fear_add_p(FEAR_SCARED);
break;
}
case SV_FOOD_CONFUSION:
{
if (!res_save_default(RES_CONF))
{
if (set_confused(p_ptr->confused + randint0(10) + 10, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_HALLUCINATION:
{
if (!res_save_default(RES_CHAOS))
{
if (set_image(p_ptr->image + randint0(25) + 25, FALSE))
ident = TRUE;
}
break;
}
case SV_FOOD_PARALYSIS:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(randint1(4), FALSE))
{
ident = TRUE;
}
}
else equip_learn_flag(OF_FREE_ACT);
break;
}
case SV_FOOD_WEAKNESS:
{
take_hit(DAMAGE_NOESCAPE, damroll(6, 6), "poisonous food", -1);
do_dec_stat(A_STR);
ident = TRUE;
break;
}
case SV_FOOD_SICKNESS:
{
take_hit(DAMAGE_NOESCAPE, damroll(6, 6), "poisonous food", -1);
do_dec_stat(A_CON);
ident = TRUE;
break;
}
case SV_FOOD_STUPIDITY:
{
take_hit(DAMAGE_NOESCAPE, damroll(8, 8), "poisonous food", -1);
do_dec_stat(A_INT);
ident = TRUE;
break;
}
case SV_FOOD_NAIVETY:
{
take_hit(DAMAGE_NOESCAPE, damroll(8, 8), "poisonous food", -1);
do_dec_stat(A_WIS);
ident = TRUE;
break;
}
case SV_FOOD_UNHEALTH:
{
take_hit(DAMAGE_NOESCAPE, damroll(10, 10), "poisonous food", -1);
do_dec_stat(A_CON);
ident = TRUE;
break;
}
case SV_FOOD_DISEASE:
{
take_hit(DAMAGE_NOESCAPE, damroll(10, 10), "poisonous food", -1);
do_dec_stat(A_STR);
ident = TRUE;
break;
}
case SV_FOOD_CURE_POISON:
{
if (set_poisoned(0, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_CURE_BLINDNESS:
{
if (set_blind(0, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_CURE_PARANOIA:
{
if (p_ptr->afraid)
{
fear_clear_p();
ident = TRUE;
}
break;
}
case SV_FOOD_CURE_CONFUSION:
{
if (set_confused(0, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_CURE_SERIOUS:
{
if (hp_player(damroll(6, 8))) ident = TRUE;
if (set_cut((p_ptr->cut / 2) - 50, TRUE)) ident = TRUE;
break;
}
case SV_FOOD_RESTORE_STR:
{
if (do_res_stat(A_STR)) ident = TRUE;
break;
}
case SV_FOOD_RESTORE_CON:
{
if (do_res_stat(A_CON)) ident = TRUE;
break;
}
case SV_FOOD_RESTORING:
{
if (do_res_stat(A_STR)) ident = TRUE;
if (do_res_stat(A_INT)) ident = TRUE;
if (do_res_stat(A_WIS)) ident = TRUE;
if (do_res_stat(A_DEX)) ident = TRUE;
if (do_res_stat(A_CON)) ident = TRUE;
if (do_res_stat(A_CHR)) ident = TRUE;
break;
}
case SV_FOOD_RATION:
case SV_FOOD_BISCUIT:
case SV_FOOD_JERKY:
case SV_FOOD_SLIME_MOLD:
{
msg_print("That tastes good.");
ident = TRUE;
break;
}
case SV_FOOD_AMBROSIA:
{
msg_print("That tastes divine!");
set_poisoned(0, TRUE);
hp_player(damroll(15, 15));
do_res_stat(A_STR);
do_res_stat(A_INT);
do_res_stat(A_WIS);
do_res_stat(A_DEX);
do_res_stat(A_CON);
do_res_stat(A_CHR);
restore_level();
ident = TRUE;
break;
}
case SV_FOOD_WAYBREAD:
{
msg_print("That tastes good.");
set_poisoned(0, TRUE);
hp_player(damroll(4, 8));
ident = TRUE;
break;
}
case SV_FOOD_PINT_OF_ALE:
case SV_FOOD_PINT_OF_WINE:
{
msg_print("That tastes good.");
ident = TRUE;
break;
}
}
}
if (prace_is_(RACE_SNOTLING) && object_is_mushroom(obj))
{
int dur = lev + randint1(lev);
set_fast(p_ptr->fast + dur, FALSE);
set_shield(p_ptr->shield + dur, FALSE);
set_hero(p_ptr->hero + dur, FALSE);
set_tim_building_up(p_ptr->tim_building_up + dur, FALSE);
}
if (!object_is_aware(obj))
{
virtue_add(VIRTUE_KNOWLEDGE, -1);
virtue_add(VIRTUE_PATIENCE, -1);
virtue_add(VIRTUE_CHANCE, 1);
}
/* We have tried it */
if (obj->tval == TV_FOOD) object_tried(obj);
stats_on_use(obj, 1);
/* The player is now aware of the object */
if (ident && !object_is_aware(obj))
{
object_aware(obj);
stats_on_notice(obj, 1);
gain_exp((lev + (p_ptr->lev >> 1)) / p_ptr->lev);
p_ptr->notice |= PN_OPTIMIZE_PACK;
}
