static void _on_fail(const spell_info *spell)
{
if (randint1(100) < (spell->fail / 2))
{
int b = randint1(100);
if (b < 5)
{
msg_print("Oh, no! Your mind has gone blank!");
lose_all_info();
}
else if (b < 15)
{
msg_print("Weird visions seem to dance before your eyes...");
set_image(p_ptr->image + 5 + randint1(10), FALSE);
}
else if (b < 45)
{
msg_print("Your brain is addled!");
set_confused(p_ptr->confused + randint1(8), FALSE);
}
else if (b < 90)
{
set_stun(p_ptr->stun + randint1(8), FALSE);
}
else
{
msg_print("Your mind unleashes its power in an uncontrollable storm!");
project(PROJECT_WHO_UNCTRL_POWER, 2 + p_ptr->lev / 10, py, px, p_ptr->lev * 2,
GF_MANA, PROJECT_JUMP | PROJECT_KILL | PROJECT_GRID | PROJECT_ITEM, -1);
p_ptr->csp = MAX(0, p_ptr->csp - p_ptr->lev * MAX(1, p_ptr->lev / 10));
}
}
}
/*!
* @brief プレイヤーを完全回復する /
* Cure everything instantly
* @return なし
*/
static void do_cmd_wiz_cure_all(void)
{
/* Restore stats */
(void)res_stat(A_STR);
(void)res_stat(A_INT);
(void)res_stat(A_WIS);
(void)res_stat(A_CON);
(void)res_stat(A_DEX);
(void)res_stat(A_CHR);
/* Restore the level */
(void)restore_level();
/* Heal the player */
if (p_ptr->chp < p_ptr->mhp)
{
p_ptr->chp = p_ptr->mhp;
p_ptr->chp_frac = 0;
/* Redraw */
p_ptr->redraw |= (PR_HP);
/* Window stuff */
p_ptr->window |= (PW_PLAYER);
}
/* Restore mana */
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
p_ptr->redraw |= (PR_MANA);
p_ptr->window |= (PW_PLAYER);
p_ptr->window |= (PW_SPELL);
}
/* Cure stuff */
(void)set_blind(0);
(void)set_confused(0);
(void)set_poisoned(0);
(void)set_afraid(0);
(void)set_paralyzed(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)set_slow(0, TRUE);
/* No longer hungry */
(void)set_food(PY_FOOD_MAX - 1);
}
/*
* Cure everything instantly
*/
static void do_cmd_wiz_cure_all(void)
{
/* Remove curses */
(void)remove_all_curse();
/* Restore stats */
(void)res_stat(A_STR, 200);
(void)res_stat(A_INT, 200);
(void)res_stat(A_WIS, 200);
(void)res_stat(A_CON, 200);
(void)res_stat(A_DEX, 200);
(void)res_stat(A_CHR, 200);
/* Restore the level */
(void)restore_level();
/* Heal the player */
p_ptr->chp = p_ptr->mhp;
p_ptr->chp_frac = 0;
/* Restore mana */
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
/* Cure stuff */
(void)set_blind(0);
(void)set_confused(0);
(void)set_poisoned(0);
(void)set_afraid(0);
(void)set_paralyzed(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)set_slow(0);
/* No longer hungry */
(void)set_food(PY_FOOD_MAX - 1);
/* Redraw everything */
do_cmd_redraw();
}
/*
* Cure everything instantly
*/
static void do_cmd_wiz_cure_all(void)
{
/* Remove curses */
(void)remove_curse(TRUE);
/* Restore stats */
(void)res_stat(A_STR, 20);
(void)res_stat(A_CON, 20);
(void)res_stat(A_DEX, 20);
(void)res_stat(A_GRA, 20);
/* Heal the player */
p_ptr->chp = p_ptr->mhp;
p_ptr->chp_frac = 0;
/* Restore mana */
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
/* Cure stuff */
(void)set_blind(0);
(void)set_confused(0);
(void)set_poisoned(0);
(void)set_afraid(0);
(void)set_entranced(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)set_slow(0);
/* No longer hungry */
(void)set_food(PY_FOOD_FULL - 1);
/* Redraw everything */
do_cmd_redraw();
}
static void _shatter_device_spell(int cmd, variant *res)
{
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, "Shatter Device");
break;
case SPELL_DESC:
var_set_string(res, "Destroy a magical device in your inventory for various effects.");
break;
case SPELL_CAST:
{
obj_prompt_t prompt = {0};
var_set_bool(res, FALSE);
prompt.prompt = "Shatter which device?";
prompt.error = "You have nothing to shatter.";
prompt.filter = object_is_device;
prompt.where[0] = INV_PACK;
prompt.where[1] = INV_FLOOR;
obj_prompt(&prompt);
if (!prompt.obj) return;
var_set_bool(res, TRUE);
if (prompt.obj->activation.type == EFFECT_NONE)
{
msg_print("Nothing happens.");
}
else if (prompt.obj->activation.type == EFFECT_DESTRUCTION)
{
if (destroy_area(py, px, 15 + p_ptr->lev + randint0(11), 4 * p_ptr->lev))
msg_print("The dungeon collapses...");
else
msg_print("The dungeon trembles.");
}
else if ( prompt.obj->activation.type == EFFECT_HEAL_CURING
|| prompt.obj->activation.type == EFFECT_HEAL_CURING_HERO
|| prompt.obj->activation.type == EFFECT_RESTORING )
{
msg_print("You feel life flow through your body!");
restore_level();
(void)set_poisoned(0, TRUE);
(void)set_blind(0, TRUE);
(void)set_confused(0, TRUE);
(void)set_image(0, TRUE);
(void)set_stun(0, TRUE);
(void)set_cut(0, TRUE);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
update_stuff(); /* hp may change if Con was drained ... */
hp_player(5000);
}
else if ( prompt.obj->activation.type == EFFECT_TELEPORT_AWAY
|| prompt.obj->activation.type == EFFECT_BANISH_EVIL
|| prompt.obj->activation.type == EFFECT_BANISH_ALL )
{
banish_monsters(p_ptr->lev * 4);
}
else
{
project(0, 5, py, px,
prompt.obj->activation.difficulty * 16,
_object_dam_type(prompt.obj),
PROJECT_STOP | PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL, -1);
}
prompt.obj->number--;
obj_release(prompt.obj, 0);
break;
}
default:
default_spell(cmd, res);
break;
}
}
static bool quaff_potion(object_type *o_ptr, bool *ident)
{
/* Analyze the potion */
switch (o_ptr->sval)
{
case SV_POTION_WATER:
case SV_POTION_APPLE_JUICE:
case SV_POTION_SLIME_MOLD:
{
msg_print("You feel less thirsty.");
*ident = TRUE;
break;
}
case SV_POTION_SLOWNESS:
{
if (set_slow(p_ptr->slow + randint(25) + 15)) *ident = TRUE;
break;
}
case SV_POTION_SALT_WATER:
{
msg_print("The potion makes you vomit!");
(void)set_food(PY_FOOD_STARVE - 1);
(void)set_poisoned(0);
(void)set_paralyzed(p_ptr->paralyzed + 4);
*ident = TRUE;
break;
}
case SV_POTION_POISON:
{
if (!(p_ptr->resist_pois || p_ptr->oppose_pois))
{
if (set_poisoned(p_ptr->poisoned + rand_int(15) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_BLINDNESS:
{
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + rand_int(100) + 100))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_CONFUSION:
{
if (!p_ptr->resist_confu)
{
if (set_confused(p_ptr->confused + rand_int(20) + 15))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_SLEEP:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(p_ptr->paralyzed + rand_int(4) + 4))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_LOSE_MEMORIES:
{
if (!p_ptr->hold_life && (p_ptr->exp > 0))
{
msg_print("You feel your memories fade.");
lose_exp(p_ptr->exp / 4);
*ident = TRUE;
}
break;
}
case SV_POTION_RUINATION:
{
msg_print("Your nerves and muscles feel weak and lifeless!");
take_hit(damroll(10, 10), "a potion of Ruination");
(void)dec_stat(A_DEX, 25, TRUE);
(void)dec_stat(A_WIS, 25, TRUE);
(void)dec_stat(A_CON, 25, TRUE);
(void)dec_stat(A_STR, 25, TRUE);
(void)dec_stat(A_CHR, 25, TRUE);
(void)dec_stat(A_INT, 25, TRUE);
*ident = TRUE;
break;
}
case SV_POTION_DEC_STR:
{
if (do_dec_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_DEC_INT:
{
if (do_dec_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_DEC_WIS:
{
if (do_dec_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_DEC_DEX:
{
if (do_dec_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CON:
{
if (do_dec_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CHR:
{
if (do_dec_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_DETONATIONS:
{
msg_print("Massive explosions rupture your body!");
take_hit(damroll(50, 20), "a potion of Detonation");
(void)set_stun(p_ptr->stun + 75);
(void)set_cut(p_ptr->cut + 5000);
*ident = TRUE;
break;
}
case SV_POTION_DEATH:
{
msg_print("A feeling of Death flows through your body.");
take_hit(5000, "a potion of Death");
*ident = TRUE;
break;
}
case SV_POTION_INFRAVISION:
{
if (set_tim_infra(p_ptr->tim_infra + 100 + randint(100)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_DETECT_INVIS:
{
if (set_tim_invis(p_ptr->tim_invis + 12 + randint(12)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_SLOW_POISON:
{
if (set_poisoned(p_ptr->poisoned / 2)) *ident = TRUE;
break;
}
case SV_POTION_CURE_POISON:
{
if (set_poisoned(0)) *ident = TRUE;
break;
}
case SV_POTION_BOLDNESS:
{
if (set_afraid(0)) *ident = TRUE;
break;
}
case SV_POTION_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(25) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case SV_POTION_RESIST_HEAT:
{
if (set_oppose_fire(p_ptr->oppose_fire + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_RESIST_COLD:
{
if (set_oppose_cold(p_ptr->oppose_cold + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_HEROISM:
{
if (hp_player(10)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_hero(p_ptr->hero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_BERSERK_STRENGTH:
{
if (hp_player(30)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_shero(p_ptr->shero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_CURE_LIGHT:
{
if (hp_player(damroll(2, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_cut(p_ptr->cut - 10)) *ident = TRUE;
break;
}
case SV_POTION_CURE_SERIOUS:
{
if (hp_player(damroll(4, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_cut((p_ptr->cut / 2) - 50)) *ident = TRUE;
break;
}
case SV_POTION_CURE_CRITICAL:
{
if (hp_player(damroll(6, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_HEALING:
{
if (hp_player(300)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_STAR_HEALING:
{
if (hp_player(1200)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_LIFE:
{
msg_print("You feel life flow through your body!");
restore_level();
(void)set_poisoned(0);
(void)set_blind(0);
(void)set_confused(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
/* Recalculate max. hitpoints */
update_stuff();
hp_player(5000);
*ident = TRUE;
break;
}
case SV_POTION_RESTORE_MANA:
{
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
msg_print("Your feel your head clear.");
p_ptr->redraw |= (PR_MANA);
p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
*ident = TRUE;
}
break;
}
case SV_POTION_RESTORE_EXP:
{
if (restore_level()) *ident = TRUE;
break;
}
case SV_POTION_RES_STR:
{
if (do_res_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_RES_INT:
{
if (do_res_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_RES_WIS:
{
if (do_res_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_RES_DEX:
{
if (do_res_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_RES_CON:
{
if (do_res_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_RES_CHR:
{
if (do_res_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_INC_STR:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_INC_INT:
{
if (do_inc_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_INC_WIS:
{
if (do_inc_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_INC_DEX:
{
if (do_inc_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_INC_CON:
{
if (do_inc_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_INC_CHR:
{
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_AUGMENTATION:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
if (do_inc_stat(A_INT)) *ident = TRUE;
if (do_inc_stat(A_WIS)) *ident = TRUE;
if (do_inc_stat(A_DEX)) *ident = TRUE;
if (do_inc_stat(A_CON)) *ident = TRUE;
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_ENLIGHTENMENT:
{
msg_print("An image of your surroundings forms in your mind...");
wiz_lite();
*ident = TRUE;
break;
}
case SV_POTION_STAR_ENLIGHTENMENT:
{
msg_print("You begin to feel more enlightened...");
message_flush();
wiz_lite();
(void)do_inc_stat(A_INT);
(void)do_inc_stat(A_WIS);
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
(void)detect_treasure();
(void)detect_objects_gold();
(void)detect_objects_normal();
identify_pack();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_SELF_KNOWLEDGE:
{
msg_print("You begin to know yourself a little better...");
message_flush();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_EXPERIENCE:
{
if (p_ptr->exp < PY_MAX_EXP)
{
s32b ee = (p_ptr->exp / 2) + 10;
if (ee > 100000L) ee = 100000L;
msg_print("You feel more experienced.");
gain_exp(ee);
*ident = TRUE;
}
break;
}
}
return (TRUE);
}
static bool eat_food(object_type *o_ptr, bool *ident)
{
/* Analyze the food */
switch (o_ptr->sval)
{
case SV_FOOD_POISON:
{
if (!(p_ptr->resist_pois || p_ptr->oppose_pois))
{
if (set_poisoned(p_ptr->poisoned + rand_int(10) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_FOOD_BLINDNESS:
{
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + rand_int(200) + 200))
{
*ident = TRUE;
}
}
break;
}
case SV_FOOD_PARANOIA:
{
if (!p_ptr->resist_fear)
{
if (set_afraid(p_ptr->afraid + rand_int(10) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_FOOD_CONFUSION:
{
if (!p_ptr->resist_confu)
{
if (set_confused(p_ptr->confused + rand_int(10) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_FOOD_HALLUCINATION:
{
if (!p_ptr->resist_chaos)
{
if (set_image(p_ptr->image + rand_int(250) + 250))
{
*ident = TRUE;
}
}
break;
}
case SV_FOOD_PARALYSIS:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(p_ptr->paralyzed + rand_int(10) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_FOOD_WEAKNESS:
{
take_hit(damroll(6, 6), "poisonous food");
(void)do_dec_stat(A_STR);
*ident = TRUE;
break;
}
case SV_FOOD_SICKNESS:
{
take_hit(damroll(6, 6), "poisonous food");
(void)do_dec_stat(A_CON);
*ident = TRUE;
break;
}
case SV_FOOD_STUPIDITY:
{
take_hit(damroll(8, 8), "poisonous food");
(void)do_dec_stat(A_INT);
*ident = TRUE;
break;
}
case SV_FOOD_NAIVETY:
{
take_hit(damroll(8, 8), "poisonous food");
(void)do_dec_stat(A_WIS);
*ident = TRUE;
break;
}
case SV_FOOD_UNHEALTH:
{
take_hit(damroll(10, 10), "poisonous food");
(void)do_dec_stat(A_CON);
*ident = TRUE;
break;
}
case SV_FOOD_DISEASE:
{
take_hit(damroll(10, 10), "poisonous food");
(void)do_dec_stat(A_STR);
*ident = TRUE;
break;
}
case SV_FOOD_CURE_POISON:
{
if (set_poisoned(0)) *ident = TRUE;
break;
}
case SV_FOOD_CURE_BLINDNESS:
{
if (set_blind(0)) *ident = TRUE;
break;
}
case SV_FOOD_CURE_PARANOIA:
{
if (set_afraid(0)) *ident = TRUE;
break;
}
case SV_FOOD_CURE_CONFUSION:
{
if (set_confused(0)) *ident = TRUE;
break;
}
case SV_FOOD_CURE_SERIOUS:
{
if (hp_player(damroll(4, 8))) *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_WAYBREAD:
{
msg_print("That tastes good.");
(void)set_poisoned(0);
(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;
}
}
/* Food can feed the player */
(void)set_food(p_ptr->food + o_ptr->pval);
return (TRUE);
}
static bool zap_rod(object_type *o_ptr, bool *ident)
{
int chance, dir, lev;
/* Get a direction (unless KNOWN not to need it) */
if ((o_ptr->sval >= SV_ROD_MIN_DIRECTION) || !object_aware_p(o_ptr))
{
/* Get a direction, allow cancel */
if (!get_aim_dir(&dir)) return FALSE;
}
/* Take a turn */
p_ptr->energy_use = 100;
/* Not identified yet */
*ident = FALSE;
/* Extract the item level */
lev = k_info[o_ptr->k_idx].level;
/* Base chance of success */
chance = p_ptr->skill_dev;
/* Confusion hurts skill */
if (p_ptr->confused) chance = chance / 2;
/* High level objects are harder */
chance = chance - ((lev > 50) ? 50 : lev);
/* Give everyone a (slight) chance */
if ((chance < USE_DEVICE) && (rand_int(USE_DEVICE - chance + 1) == 0))
{
chance = USE_DEVICE;
}
/* Roll for usage */
if ((chance < USE_DEVICE) || (randint(chance) < USE_DEVICE))
{
if (flush_failure) flush();
msg_print("You failed to use the rod properly.");
return FALSE;
}
/* Still charging */
if (o_ptr->pval)
{
if (flush_failure) flush();
msg_print("The rod is still charging.");
return FALSE;
}
/* Sound */
sound(MSG_ZAP);
/* Analyze the rod */
switch (o_ptr->sval)
{
case SV_ROD_DETECT_TRAP:
{
if (detect_traps()) *ident = TRUE;
o_ptr->pval = 50;
break;
}
case SV_ROD_DETECT_DOOR:
{
if (detect_doors()) *ident = TRUE;
if (detect_stairs()) *ident = TRUE;
o_ptr->pval = 70;
break;
}
case SV_ROD_IDENTIFY:
{
*ident = TRUE;
if (ident_spell()) o_ptr->pval = 10;
break;
}
case SV_ROD_RECALL:
{
set_recall();
*ident = TRUE;
o_ptr->pval = 60;
break;
}
case SV_ROD_ILLUMINATION:
{
if (lite_area(damroll(2, 8), 2)) *ident = TRUE;
o_ptr->pval = 30;
break;
}
case SV_ROD_MAPPING:
{
map_area();
*ident = TRUE;
o_ptr->pval = 99;
break;
}
case SV_ROD_DETECTION:
{
detect_all();
*ident = TRUE;
o_ptr->pval = 99;
break;
}
case SV_ROD_PROBING:
{
probing();
*ident = TRUE;
o_ptr->pval = 50;
break;
}
case SV_ROD_CURING:
{
if (set_blind(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
o_ptr->pval = 999;
break;
}
case SV_ROD_HEALING:
{
if (hp_player(500)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
o_ptr->pval = 999;
break;
}
case SV_ROD_RESTORATION:
{
if (restore_level()) *ident = TRUE;
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;
o_ptr->pval = 999;
break;
}
case SV_ROD_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(30) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
o_ptr->pval = 99;
break;
}
case SV_ROD_TELEPORT_AWAY:
{
if (teleport_monster(dir)) *ident = TRUE;
o_ptr->pval = 25;
break;
}
case SV_ROD_DISARMING:
{
if (disarm_trap(dir)) *ident = TRUE;
o_ptr->pval = 30;
break;
}
case SV_ROD_LITE:
{
msg_print("A line of blue shimmering light appears.");
lite_line(dir);
*ident = TRUE;
o_ptr->pval = 9;
break;
}
case SV_ROD_SLEEP_MONSTER:
{
if (sleep_monster(dir)) *ident = TRUE;
o_ptr->pval = 18;
break;
}
case SV_ROD_SLOW_MONSTER:
{
if (slow_monster(dir)) *ident = TRUE;
o_ptr->pval = 20;
break;
}
case SV_ROD_DRAIN_LIFE:
{
if (drain_life(dir, 150)) *ident = TRUE;
o_ptr->pval = 23;
break;
}
case SV_ROD_POLYMORPH:
{
if (poly_monster(dir)) *ident = TRUE;
o_ptr->pval = 25;
break;
}
case SV_ROD_ACID_BOLT:
{
fire_bolt_or_beam(10, GF_ACID, dir, damroll(12, 8));
*ident = TRUE;
o_ptr->pval = 12;
break;
}
case SV_ROD_ELEC_BOLT:
{
fire_bolt_or_beam(10, GF_ELEC, dir, damroll(6, 6));
*ident = TRUE;
o_ptr->pval = 11;
break;
}
case SV_ROD_FIRE_BOLT:
{
fire_bolt_or_beam(10, GF_FIRE, dir, damroll(16, 8));
*ident = TRUE;
o_ptr->pval = 15;
break;
}
case SV_ROD_COLD_BOLT:
{
fire_bolt_or_beam(10, GF_COLD, dir, damroll(10, 8));
*ident = TRUE;
o_ptr->pval = 13;
break;
}
case SV_ROD_ACID_BALL:
{
fire_ball(GF_ACID, dir, 120, 2);
*ident = TRUE;
o_ptr->pval = 27;
break;
}
case SV_ROD_ELEC_BALL:
{
fire_ball(GF_ELEC, dir, 64, 2);
*ident = TRUE;
o_ptr->pval = 23;
break;
}
case SV_ROD_FIRE_BALL:
{
fire_ball(GF_FIRE, dir, 144, 2);
*ident = TRUE;
o_ptr->pval = 30;
break;
}
case SV_ROD_COLD_BALL:
{
fire_ball(GF_COLD, dir, 96, 2);
*ident = TRUE;
o_ptr->pval = 25;
break;
}
}
return TRUE;
}
static bool use_staff(object_type *o_ptr, bool *ident)
{
int py = p_ptr->py;
int px = p_ptr->px;
int k;
bool use_charge = TRUE;
/* Analyze the staff */
switch (o_ptr->sval)
{
case SV_STAFF_DARKNESS:
{
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + 3 + randint(5))) *ident = TRUE;
}
if (unlite_area(10, 3)) *ident = TRUE;
break;
}
case SV_STAFF_SLOWNESS:
{
if (set_slow(p_ptr->slow + randint(30) + 15)) *ident = TRUE;
break;
}
case SV_STAFF_HASTE_MONSTERS:
{
if (speed_monsters()) *ident = TRUE;
break;
}
case SV_STAFF_SUMMONING:
{
for (k = 0; k < randint(4); k++)
{
if (summon_specific(py, px, p_ptr->depth, 0))
{
*ident = TRUE;
}
}
break;
}
case SV_STAFF_TELEPORTATION:
{
teleport_player(100);
*ident = TRUE;
break;
}
case SV_STAFF_IDENTIFY:
{
if (!ident_spell()) use_charge = FALSE;
*ident = TRUE;
break;
}
case SV_STAFF_REMOVE_CURSE:
{
if (remove_curse())
{
if (!p_ptr->blind)
{
msg_print("The staff glows blue for a moment...");
}
*ident = TRUE;
}
break;
}
case SV_STAFF_STARLITE:
{
if (!p_ptr->blind)
{
msg_print("The end of the staff glows brightly...");
}
for (k = 0; k < 8; k++) lite_line(ddd[k]);
*ident = TRUE;
break;
}
case SV_STAFF_LITE:
{
if (lite_area(damroll(2, 8), 2)) *ident = TRUE;
break;
}
case SV_STAFF_MAPPING:
{
map_area();
*ident = TRUE;
break;
}
case SV_STAFF_DETECT_GOLD:
{
if (detect_treasure()) *ident = TRUE;
if (detect_objects_gold()) *ident = TRUE;
break;
}
case SV_STAFF_DETECT_ITEM:
{
if (detect_objects_normal()) *ident = TRUE;
break;
}
case SV_STAFF_DETECT_TRAP:
{
if (detect_traps()) *ident = TRUE;
break;
}
case SV_STAFF_DETECT_DOOR:
{
if (detect_doors()) *ident = TRUE;
if (detect_stairs()) *ident = TRUE;
break;
}
case SV_STAFF_DETECT_INVIS:
{
if (detect_monsters_invis()) *ident = TRUE;
break;
}
case SV_STAFF_DETECT_EVIL:
{
if (detect_monsters_evil()) *ident = TRUE;
break;
}
case SV_STAFF_CURE_LIGHT:
{
if (hp_player(randint(8))) *ident = TRUE;
break;
}
case SV_STAFF_CURING:
{
if (set_blind(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_STAFF_HEALING:
{
if (hp_player(300)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_STAFF_THE_MAGI:
{
if (do_res_stat(A_INT)) *ident = TRUE;
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
*ident = TRUE;
msg_print("Your feel your head clear.");
p_ptr->redraw |= (PR_MANA);
p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
}
break;
}
case SV_STAFF_SLEEP_MONSTERS:
{
if (sleep_monsters()) *ident = TRUE;
break;
}
case SV_STAFF_SLOW_MONSTERS:
{
if (slow_monsters()) *ident = TRUE;
break;
}
case SV_STAFF_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(30) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case SV_STAFF_PROBING:
{
probing();
*ident = TRUE;
break;
}
case SV_STAFF_DISPEL_EVIL:
{
if (dispel_evil(60)) *ident = TRUE;
break;
}
case SV_STAFF_POWER:
{
if (dispel_monsters(120)) *ident = TRUE;
break;
}
case SV_STAFF_HOLINESS:
{
if (dispel_evil(120)) *ident = TRUE;
k = 3 * p_ptr->lev;
if (set_protevil(p_ptr->protevil + randint(25) + k)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (hp_player(50)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_STAFF_BANISHMENT:
{
(void)banishment();
*ident = TRUE;
break;
}
case SV_STAFF_EARTHQUAKES:
{
earthquake(py, px, 10);
*ident = TRUE;
break;
}
case SV_STAFF_DESTRUCTION:
{
destroy_area(py, px, 15, TRUE);
*ident = TRUE;
break;
}
}
return (use_charge);
}
/*
* Attack the player via physical attacks.
*/
bool make_attack_normal(int m_idx)
{
monster_type *m_ptr = &mon_list[m_idx];
monster_race *r_ptr = &r_info[m_ptr->r_idx];
monster_lore *l_ptr = &l_list[m_ptr->r_idx];
int ap_cnt;
int i, k, tmp, ac, rlev;
int do_cut, do_stun;
s32b gold;
object_type *o_ptr;
char o_name[80];
char m_name[80];
char ddesc[80];
bool blinked;
/* Not allowed to attack */
if (r_ptr->flags1 & (RF1_NEVER_BLOW)) return (FALSE);
/* Total armor */
ac = p_ptr->ac + p_ptr->to_a;
/* Extract the effective monster level */
rlev = ((r_ptr->level >= 1) ? r_ptr->level : 1);
/* Get the monster name (or "it") */
monster_desc(m_name, sizeof(m_name), m_ptr, 0);
/* Get the "died from" information (i.e. "a kobold") */
monster_desc(ddesc, sizeof(ddesc), m_ptr, 0x88);
/* Assume no blink */
blinked = FALSE;
/* Scan through all blows */
for (ap_cnt = 0; ap_cnt < MONSTER_BLOW_MAX; ap_cnt++)
{
bool visible = FALSE;
bool obvious = FALSE;
int power = 0;
int damage = 0;
cptr act = NULL;
/* Extract the attack infomation */
int effect = r_ptr->blow[ap_cnt].effect;
int method = r_ptr->blow[ap_cnt].method;
int d_dice = r_ptr->blow[ap_cnt].d_dice;
int d_side = r_ptr->blow[ap_cnt].d_side;
/* Hack -- no more attacks */
if (!method) break;
/* Handle "leaving" */
if (p_ptr->leaving) break;
/* Extract visibility (before blink) */
if (m_ptr->ml) visible = TRUE;
/* Extract the attack "power" */
switch (effect)
{
case RBE_HURT: power = 60; break;
case RBE_POISON: power = 5; break;
case RBE_UN_BONUS: power = 20; break;
case RBE_UN_POWER: power = 15; break;
case RBE_EAT_GOLD: power = 5; break;
case RBE_EAT_ITEM: power = 5; break;
case RBE_EAT_FOOD: power = 5; break;
case RBE_EAT_LITE: power = 5; break;
case RBE_ACID: power = 0; break;
case RBE_ELEC: power = 10; break;
case RBE_FIRE: power = 10; break;
case RBE_COLD: power = 10; break;
case RBE_BLIND: power = 2; break;
case RBE_CONFUSE: power = 10; break;
case RBE_TERRIFY: power = 10; break;
case RBE_PARALYZE: power = 2; break;
case RBE_LOSE_STR: power = 0; break;
case RBE_LOSE_DEX: power = 0; break;
case RBE_LOSE_CON: power = 0; break;
case RBE_LOSE_INT: power = 0; break;
case RBE_LOSE_WIS: power = 0; break;
case RBE_LOSE_CHR: power = 0; break;
case RBE_LOSE_ALL: power = 2; break;
case RBE_SHATTER: power = 60; break;
case RBE_EXP_10: power = 5; break;
case RBE_EXP_20: power = 5; break;
case RBE_EXP_40: power = 5; break;
case RBE_EXP_80: power = 5; break;
case RBE_HALLU: power = 10; break;
}
/* Monster hits player */
if (!effect || check_hit(power, rlev))
{
/* Always disturbing */
disturb(1, 0);
/* Hack -- Apply "protection from evil" */
if ((p_ptr->protevil > 0) &&
(r_ptr->flags3 & (RF3_EVIL)) &&
(p_ptr->lev >= rlev) &&
((rand_int(100) + p_ptr->lev) > 50))
{
/* Remember the Evil-ness */
if (m_ptr->ml)
{
l_ptr->flags3 |= (RF3_EVIL);
}
/* Message */
msg_format("%^s is repelled.", m_name);
/* Hack -- Next attack */
continue;
}
/* Assume no cut or stun */
do_cut = do_stun = 0;
/* Describe the attack method */
switch (method)
{
case RBM_HIT:
{
act = "hits you.";
do_cut = do_stun = 1;
break;
}
case RBM_TOUCH:
{
act = "touches you.";
break;
}
case RBM_PUNCH:
{
act = "punches you.";
do_stun = 1;
break;
}
case RBM_KICK:
{
act = "kicks you.";
do_stun = 1;
break;
}
case RBM_CLAW:
{
act = "claws you.";
do_cut = 1;
break;
}
case RBM_BITE:
{
act = "bites you.";
do_cut = 1;
break;
}
case RBM_STING:
{
act = "stings you.";
break;
}
case RBM_XXX1:
{
act = "XXX1's you.";
break;
}
case RBM_BUTT:
{
act = "butts you.";
do_stun = 1;
break;
}
case RBM_CRUSH:
{
act = "crushes you.";
do_stun = 1;
break;
}
case RBM_ENGULF:
{
act = "engulfs you.";
break;
}
case RBM_XXX2:
{
act = "XXX2's you.";
break;
}
case RBM_CRAWL:
{
act = "crawls on you.";
break;
}
case RBM_DROOL:
{
act = "drools on you.";
break;
}
case RBM_SPIT:
{
act = "spits on you.";
break;
}
case RBM_XXX3:
{
act = "XXX3's on you.";
break;
}
case RBM_GAZE:
{
act = "gazes at you.";
break;
}
case RBM_WAIL:
{
act = "wails at you.";
break;
}
case RBM_SPORE:
{
act = "releases spores at you.";
break;
}
case RBM_XXX4:
{
act = "projects XXX4's at you.";
break;
}
case RBM_BEG:
{
act = "begs you for money.";
break;
}
case RBM_INSULT:
{
act = desc_insult[rand_int(MAX_DESC_INSULT)];
break;
}
case RBM_MOAN:
{
act = desc_moan[rand_int(MAX_DESC_MOAN)];
break;
}
case RBM_XXX5:
{
act = "XXX5's you.";
break;
}
}
/* Message */
if (act) msg_format("%^s %s", m_name, act);
/* Hack -- assume all attacks are obvious */
obvious = TRUE;
/* Roll out the damage */
damage = damroll(d_dice, d_side);
/* Apply appropriate damage */
switch (effect)
{
case 0:
{
/* Hack -- Assume obvious */
obvious = TRUE;
/* Hack -- No damage */
damage = 0;
break;
}
case RBE_HURT:
{
/* Obvious */
obvious = TRUE;
/* Hack -- Player armor reduces total damage */
damage -= (damage * ((ac < 150) ? ac : 150) / 250);
/* Take damage */
take_hit(damage, ddesc);
break;
}
case RBE_POISON:
{
/* Take damage */
take_hit(damage, ddesc);
/* Take "poison" effect */
if (!(p_ptr->resist_pois || p_ptr->oppose_pois))
{
if (set_poisoned(p_ptr->poisoned + randint(rlev) + 5))
{
obvious = TRUE;
}
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_POIS);
break;
}
case RBE_UN_BONUS:
{
/* Take damage */
take_hit(damage, ddesc);
/* Allow complete resist */
if (!p_ptr->resist_disen)
{
/* Apply disenchantment */
if (apply_disenchant(0)) obvious = TRUE;
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_DISEN);
break;
}
case RBE_UN_POWER:
{
/* Take damage */
take_hit(damage, ddesc);
/* Find an item */
for (k = 0; k < 10; k++)
{
/* Pick an item */
i = rand_int(INVEN_PACK);
/* Obtain the item */
o_ptr = &inventory[i];
/* Skip non-objects */
if (!o_ptr->k_idx) continue;
/* Drain charged wands/staffs */
if (((o_ptr->tval == TV_STAFF) ||
(o_ptr->tval == TV_WAND)) &&
(o_ptr->pval > 0))
{
/* Calculate healed hitpoints */
int heal = rlev * o_ptr->pval * o_ptr->number;
/* Don't heal more than max hp */
heal = MIN(heal, m_ptr->maxhp - m_ptr->hp);
/* Message */
msg_print("Energy drains from your pack!");
/* Obvious */
obvious = TRUE;
/* Heal */
m_ptr->hp += heal;
/* Redraw (later) if needed */
if (p_ptr->health_who == m_idx)
p_ptr->redraw |= (PR_HEALTH);
/* Uncharge */
o_ptr->pval = 0;
/* Combine / Reorder the pack */
p_ptr->notice |= (PN_COMBINE | PN_REORDER);
/* Window stuff */
p_ptr->window |= (PW_INVEN);
/* Done */
break;
}
}
break;
}
case RBE_EAT_GOLD:
{
/* Take damage */
take_hit(damage, ddesc);
/* Obvious */
obvious = TRUE;
/* Saving throw (unless paralyzed) based on dex and level */
if (!p_ptr->paralyzed &&
(rand_int(100) < (adj_dex_safe[p_ptr->stat_ind[A_DEX]] +
p_ptr->lev)))
{
/* Saving throw message */
msg_print("You quickly protect your money pouch!");
/* Occasional blink anyway */
if (rand_int(3)) blinked = TRUE;
}
/* Eat gold */
else
{
gold = (p_ptr->au / 10) + randint(25);
if (gold < 2) gold = 2;
if (gold > 5000) gold = (p_ptr->au / 20) + randint(3000);
if (gold > p_ptr->au) gold = p_ptr->au;
p_ptr->au -= gold;
if (gold <= 0)
{
msg_print("Nothing was stolen.");
}
else if (p_ptr->au)
{
msg_print("Your purse feels lighter.");
msg_format("%ld coins were stolen!", (long)gold);
}
else
{
msg_print("Your purse feels lighter.");
msg_print("All of your coins were stolen!");
}
/* Redraw gold */
p_ptr->redraw |= (PR_GOLD);
/* Window stuff */
p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
/* Blink away */
blinked = TRUE;
}
break;
}
case RBE_EAT_ITEM:
{
/* Take damage */
take_hit(damage, ddesc);
/* Saving throw (unless paralyzed) based on dex and level */
if (!p_ptr->paralyzed &&
(rand_int(100) < (adj_dex_safe[p_ptr->stat_ind[A_DEX]] +
p_ptr->lev)))
{
/* Saving throw message */
msg_print("You grab hold of your backpack!");
/* Occasional "blink" anyway */
blinked = TRUE;
/* Obvious */
obvious = TRUE;
/* Done */
break;
}
/* Find an item */
for (k = 0; k < 10; k++)
{
object_type *i_ptr;
object_type object_type_body;
/* Pick an item */
i = rand_int(INVEN_PACK);
/* Obtain the item */
o_ptr = &inventory[i];
/* Skip non-objects */
if (!o_ptr->k_idx) continue;
/* Skip artifacts */
if (artifact_p(o_ptr)) continue;
/* Get a description */
object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 3);
/* Message */
msg_format("%sour %s (%c) was stolen!",
((o_ptr->number > 1) ? "One of y" : "Y"),
o_name, index_to_label(i));
/* Get local object */
i_ptr = &object_type_body;
/* Obtain local object */
object_copy(i_ptr, o_ptr);
/* Modify number */
i_ptr->number = 1;
/* Carry the object */
(void)monster_carry(m_idx, i_ptr);
/* Steal the items */
inven_item_increase(i, -1);
inven_item_optimize(i);
/* Obvious */
obvious = TRUE;
/* Blink away */
blinked = TRUE;
/* Done */
break;
}
break;
}
case RBE_EAT_FOOD:
{
/* Take damage */
take_hit(damage, ddesc);
/* Steal some food */
for (k = 0; k < 10; k++)
{
/* Pick an item from the pack */
i = rand_int(INVEN_PACK);
/* Get the item */
o_ptr = &inventory[i];
/* Skip non-objects */
if (!o_ptr->k_idx) continue;
/* Skip non-food objects */
if (o_ptr->tval != TV_FOOD) continue;
/* Get a description */
object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 0);
/* Message */
msg_format("%sour %s (%c) was eaten!",
((o_ptr->number > 1) ? "One of y" : "Y"),
o_name, index_to_label(i));
/* Steal the items */
inven_item_increase(i, -1);
inven_item_optimize(i);
/* Obvious */
obvious = TRUE;
/* Done */
break;
}
break;
}
case RBE_EAT_LITE:
{
/* Take damage */
take_hit(damage, ddesc);
/* Get the lite */
o_ptr = &inventory[INVEN_LITE];
/* Drain fuel */
if ((o_ptr->pval > 0) && (!artifact_p(o_ptr)))
{
/* Reduce fuel */
o_ptr->pval -= (250 + randint(250));
if (o_ptr->pval < 1) o_ptr->pval = 1;
/* Notice */
if (!p_ptr->blind)
{
msg_print("Your light dims.");
obvious = TRUE;
}
/* Window stuff */
p_ptr->window |= (PW_EQUIP);
}
break;
}
case RBE_ACID:
{
/* Obvious */
obvious = TRUE;
/* Message */
msg_print("You are covered in acid!");
/* Special damage */
acid_dam(damage, ddesc);
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_ACID);
break;
}
case RBE_ELEC:
{
/* Obvious */
obvious = TRUE;
/* Message */
msg_print("You are struck by electricity!");
/* Take damage (special) */
elec_dam(damage, ddesc);
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_ELEC);
break;
}
case RBE_FIRE:
{
/* Obvious */
obvious = TRUE;
/* Message */
msg_print("You are enveloped in flames!");
/* Take damage (special) */
fire_dam(damage, ddesc);
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_FIRE);
break;
}
case RBE_COLD:
{
/* Obvious */
obvious = TRUE;
/* Message */
msg_print("You are covered with frost!");
/* Take damage (special) */
cold_dam(damage, ddesc);
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_COLD);
break;
}
case RBE_BLIND:
{
/* Take damage */
take_hit(damage, ddesc);
/* Increase "blind" */
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + 10 + randint(rlev)))
{
obvious = TRUE;
}
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_BLIND);
break;
}
case RBE_CONFUSE:
{
/* Take damage */
take_hit(damage, ddesc);
/* Increase "confused" */
if (!p_ptr->resist_confu)
{
if (set_confused(p_ptr->confused + 3 + randint(rlev)))
{
obvious = TRUE;
}
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_CONFU);
break;
}
case RBE_TERRIFY:
{
/* Take damage */
take_hit(damage, ddesc);
/* Increase "afraid" */
if (p_ptr->resist_fear)
{
msg_print("You stand your ground!");
obvious = TRUE;
}
else if (rand_int(100) < p_ptr->skill_sav)
{
msg_print("You stand your ground!");
obvious = TRUE;
}
else
{
if (set_afraid(p_ptr->afraid + 3 + randint(rlev)))
{
obvious = TRUE;
}
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_FEAR);
break;
}
case RBE_PARALYZE:
{
/* Hack -- Prevent perma-paralysis via damage */
if (p_ptr->paralyzed && (damage < 1)) damage = 1;
/* Take damage */
take_hit(damage, ddesc);
/* Increase "paralyzed" */
if (p_ptr->free_act)
{
msg_print("You are unaffected!");
obvious = TRUE;
}
else if (rand_int(100) < p_ptr->skill_sav)
{
msg_print("You resist the effects!");
obvious = TRUE;
}
else
{
if (set_paralyzed(p_ptr->paralyzed + 3 + randint(rlev)))
{
obvious = TRUE;
}
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_FREE);
break;
}
case RBE_LOSE_STR:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stat) */
if (do_dec_stat(A_STR)) obvious = TRUE;
break;
}
case RBE_LOSE_INT:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stat) */
if (do_dec_stat(A_INT)) obvious = TRUE;
break;
}
case RBE_LOSE_WIS:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stat) */
if (do_dec_stat(A_WIS)) obvious = TRUE;
break;
}
case RBE_LOSE_DEX:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stat) */
if (do_dec_stat(A_DEX)) obvious = TRUE;
break;
}
case RBE_LOSE_CON:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stat) */
if (do_dec_stat(A_CON)) obvious = TRUE;
break;
}
case RBE_LOSE_CHR:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stat) */
if (do_dec_stat(A_CHR)) obvious = TRUE;
break;
}
case RBE_LOSE_ALL:
{
/* Take damage */
take_hit(damage, ddesc);
/* Damage (stats) */
if (do_dec_stat(A_STR)) obvious = TRUE;
if (do_dec_stat(A_DEX)) obvious = TRUE;
if (do_dec_stat(A_CON)) obvious = TRUE;
if (do_dec_stat(A_INT)) obvious = TRUE;
if (do_dec_stat(A_WIS)) obvious = TRUE;
if (do_dec_stat(A_CHR)) obvious = TRUE;
break;
}
case RBE_SHATTER:
{
/* Obvious */
obvious = TRUE;
/* Hack -- Reduce damage based on the player armor class */
damage -= (damage * ((ac < 150) ? ac : 150) / 250);
/* Take damage */
take_hit(damage, ddesc);
/* Radius 8 earthquake centered at the monster */
if (damage > 23) earthquake(m_ptr->fy, m_ptr->fx, 8);
break;
}
case RBE_EXP_10:
{
/* Obvious */
obvious = TRUE;
/* Take damage */
take_hit(damage, ddesc);
if (p_ptr->hold_life && (rand_int(100) < 95))
{
msg_print("You keep hold of your life force!");
}
else
{
s32b d = damroll(10, 6) + (p_ptr->exp/100) * MON_DRAIN_LIFE;
if (p_ptr->hold_life)
{
msg_print("You feel your life slipping away!");
lose_exp(d/10);
}
else
{
msg_print("You feel your life draining away!");
lose_exp(d);
}
}
break;
}
case RBE_EXP_20:
{
/* Obvious */
obvious = TRUE;
/* Take damage */
take_hit(damage, ddesc);
if (p_ptr->hold_life && (rand_int(100) < 90))
{
msg_print("You keep hold of your life force!");
}
else
{
s32b d = damroll(20, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
if (p_ptr->hold_life)
{
msg_print("You feel your life slipping away!");
lose_exp(d / 10);
}
else
{
msg_print("You feel your life draining away!");
lose_exp(d);
}
}
break;
}
case RBE_EXP_40:
{
/* Obvious */
obvious = TRUE;
/* Take damage */
take_hit(damage, ddesc);
if (p_ptr->hold_life && (rand_int(100) < 75))
{
msg_print("You keep hold of your life force!");
}
else
{
s32b d = damroll(40, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
if (p_ptr->hold_life)
{
msg_print("You feel your life slipping away!");
lose_exp(d / 10);
}
else
{
msg_print("You feel your life draining away!");
lose_exp(d);
}
}
break;
}
case RBE_EXP_80:
{
/* Obvious */
obvious = TRUE;
/* Take damage */
take_hit(damage, ddesc);
if (p_ptr->hold_life && (rand_int(100) < 50))
{
msg_print("You keep hold of your life force!");
}
else
{
s32b d = damroll(80, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
if (p_ptr->hold_life)
{
msg_print("You feel your life slipping away!");
lose_exp(d / 10);
}
else
{
msg_print("You feel your life draining away!");
lose_exp(d);
}
}
break;
}
case RBE_HALLU:
{
/* Take damage */
take_hit(damage, ddesc);
/* Increase "image" */
if (!p_ptr->resist_chaos)
{
if (set_image(p_ptr->image + 3 + randint(rlev / 2)))
{
obvious = TRUE;
}
}
/* Learn about the player */
update_smart_learn(m_idx, DRS_RES_CHAOS);
break;
}
}
/* Hack -- only one of cut or stun */
if (do_cut && do_stun)
{
/* Cancel cut */
if (rand_int(100) < 50)
{
do_cut = 0;
}
/* Cancel stun */
else
{
do_stun = 0;
}
}
/* Handle cut */
if (do_cut)
{
int k;
/* Critical hit (zero if non-critical) */
tmp = monster_critical(d_dice, d_side, damage);
/* Roll for damage */
switch (tmp)
{
case 0: k = 0; break;
case 1: k = randint(5); break;
case 2: k = randint(5) + 5; break;
case 3: k = randint(20) + 20; break;
case 4: k = randint(50) + 50; break;
case 5: k = randint(100) + 100; break;
case 6: k = 300; break;
default: k = 500; break;
}
/* Apply the cut */
if (k) (void)set_cut(p_ptr->cut + k);
}
/* Handle stun */
if (do_stun)
{
int k;
/* Critical hit (zero if non-critical) */
tmp = monster_critical(d_dice, d_side, damage);
/* Roll for damage */
switch (tmp)
{
case 0: k = 0; break;
case 1: k = randint(5); break;
case 2: k = randint(10) + 10; break;
case 3: k = randint(20) + 20; break;
case 4: k = randint(30) + 30; break;
case 5: k = randint(40) + 40; break;
case 6: k = 100; break;
default: k = 200; break;
}
/* Apply the stun */
if (k) (void)set_stun(p_ptr->stun + k);
}
}
/* Monster missed player */
else
{
/* Analyze failed attacks */
switch (method)
{
case RBM_HIT:
case RBM_TOUCH:
case RBM_PUNCH:
case RBM_KICK:
case RBM_CLAW:
case RBM_BITE:
case RBM_STING:
case RBM_XXX1:
case RBM_BUTT:
case RBM_CRUSH:
case RBM_ENGULF:
case RBM_XXX2:
/* Visible monsters */
if (m_ptr->ml)
{
/* Disturbing */
disturb(1, 0);
/* Message */
msg_format("%^s misses you.", m_name);
}
break;
}
}
/* Analyze "visible" monsters only */
if (visible)
{
/* Count "obvious" attacks (and ones that cause damage) */
if (obvious || damage || (l_ptr->blows[ap_cnt] > 10))
{
/* Count attacks of this type */
if (l_ptr->blows[ap_cnt] < MAX_UCHAR)
{
l_ptr->blows[ap_cnt]++;
}
}
}
}
/* Blink away */
if (blinked)
{
msg_print("There is a puff of smoke!");
teleport_away(m_idx, MAX_SIGHT * 2 + 5);
}
/* Always notice cause of death */
if (p_ptr->is_dead && (l_ptr->deaths < MAX_SHORT))
{
l_ptr->deaths++;
}
/* Assume we attacked */
return (TRUE);
}
static bool quaff_potion(object_type *o_ptr, bool *ident)
{
/* Analyze the potion */
switch (o_ptr->sval)
{
case SV_POTION_WATER:
case SV_POTION_APPLE_JUICE:
case SV_POTION_SLIME_MOLD:
{
msg_print("Вы утолили жажду.");
*ident = TRUE;
break;
}
case SV_POTION_SLOWNESS:
{
if (set_slow(p_ptr->slow + randint(25) + 15)) *ident = TRUE;
break;
}
case SV_POTION_SALT_WATER:
{
msg_print("Вя-а-а! Вас стошнило!");
(void)set_food(PY_FOOD_STARVE - 1);
(void)set_poisoned(0);
(void)set_paralyzed(p_ptr->paralyzed + 4);
*ident = TRUE;
break;
}
case SV_POTION_POISON:
{
if (!(p_ptr->resist_pois || p_ptr->oppose_pois))
{
if (set_poisoned(p_ptr->poisoned + rand_int(15) + 10))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_BLINDNESS:
{
if (!p_ptr->resist_blind)
{
if (set_blind(p_ptr->blind + rand_int(100) + 100))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_CONFUSION:
{
if (!p_ptr->resist_confu)
{
if (set_confused(p_ptr->confused + rand_int(20) + 15))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_SLEEP:
{
if (!p_ptr->free_act)
{
if (set_paralyzed(p_ptr->paralyzed + rand_int(4) + 4))
{
*ident = TRUE;
}
}
break;
}
case SV_POTION_LOSE_MEMORIES:
{
if (!p_ptr->hold_life && (p_ptr->exp > 0))
{
msg_print("Ваша жизнь меркнет.");
lose_exp(p_ptr->exp / 4);
*ident = TRUE;
}
break;
}
case SV_POTION_RUINATION:
{
msg_print("Ваши нервы и мускулы кажутся слабыми и безжизненными!");
take_hit(damroll(10, 10), "зельем Ослабевания");
(void)dec_stat(A_DEX, 25, TRUE);
(void)dec_stat(A_WIS, 25, TRUE);
(void)dec_stat(A_CON, 25, TRUE);
(void)dec_stat(A_STR, 25, TRUE);
(void)dec_stat(A_CHR, 25, TRUE);
(void)dec_stat(A_INT, 25, TRUE);
*ident = TRUE;
break;
}
case SV_POTION_DEC_STR:
{
if (do_dec_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_DEC_INT:
{
if (do_dec_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_DEC_WIS:
{
if (do_dec_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_DEC_DEX:
{
if (do_dec_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CON:
{
if (do_dec_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_DEC_CHR:
{
if (do_dec_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_DETONATIONS:
{
msg_print("Массивные взрывы сотрясают ваше тело!");
take_hit(damroll(50, 20), "зельем взрыва");
(void)set_stun(p_ptr->stun + 75);
(void)set_cut(p_ptr->cut + 5000);
*ident = TRUE;
break;
}
case SV_POTION_DEATH:
{
msg_print("Чувство Смерти протекает сквозь вас...");
take_hit(5000, "зельем Смерти");
*ident = TRUE;
break;
}
case SV_POTION_INFRAVISION:
{
if (set_tim_infra(p_ptr->tim_infra + 100 + randint(100)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_DETECT_INVIS:
{
if (set_tim_invis(p_ptr->tim_invis + 12 + randint(12)))
{
*ident = TRUE;
}
break;
}
case SV_POTION_SLOW_POISON:
{
if (set_poisoned(p_ptr->poisoned / 2)) *ident = TRUE;
break;
}
case SV_POTION_CURE_POISON:
{
if (set_poisoned(0)) *ident = TRUE;
break;
}
case SV_POTION_BOLDNESS:
{
if (set_afraid(0)) *ident = TRUE;
break;
}
case SV_POTION_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(25) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case SV_POTION_RESIST_HEAT:
{
if (set_oppose_fire(p_ptr->oppose_fire + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_RESIST_COLD:
{
if (set_oppose_cold(p_ptr->oppose_cold + randint(10) + 10))
{
*ident = TRUE;
}
break;
}
case SV_POTION_HEROISM:
{
if (hp_player(10)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_hero(p_ptr->hero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_BERSERK_STRENGTH:
{
if (hp_player(30)) *ident = TRUE;
if (set_afraid(0)) *ident = TRUE;
if (set_shero(p_ptr->shero + randint(25) + 25)) *ident = TRUE;
break;
}
case SV_POTION_CURE_LIGHT:
{
if (hp_player(damroll(2, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_cut(p_ptr->cut - 10)) *ident = TRUE;
break;
}
case SV_POTION_CURE_SERIOUS:
{
if (hp_player(damroll(4, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_cut((p_ptr->cut / 2) - 50)) *ident = TRUE;
break;
}
case SV_POTION_CURE_CRITICAL:
{
if (hp_player(damroll(6, 8))) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_HEALING:
{
if (hp_player(300)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_STAR_HEALING:
{
if (hp_player(1200)) *ident = TRUE;
if (set_blind(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_POTION_LIFE:
{
msg_print("Чуство Жизни протекает в вас!");
restore_level();
(void)set_poisoned(0);
(void)set_blind(0);
(void)set_confused(0);
(void)set_image(0);
(void)set_stun(0);
(void)set_cut(0);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
/* Recalculate max. hitpoints */
update_stuff();
hp_player(5000);
*ident = TRUE;
break;
}
case SV_POTION_RESTORE_MANA:
{
if (p_ptr->csp < p_ptr->msp)
{
p_ptr->csp = p_ptr->msp;
p_ptr->csp_frac = 0;
msg_print("Ваша голова проясняется.");
p_ptr->redraw |= (PR_MANA);
p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
*ident = TRUE;
}
break;
}
case SV_POTION_RESTORE_EXP:
{
if (restore_level()) *ident = TRUE;
break;
}
case SV_POTION_RES_STR:
{
if (do_res_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_RES_INT:
{
if (do_res_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_RES_WIS:
{
if (do_res_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_RES_DEX:
{
if (do_res_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_RES_CON:
{
if (do_res_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_RES_CHR:
{
if (do_res_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_INC_STR:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
break;
}
case SV_POTION_INC_INT:
{
if (do_inc_stat(A_INT)) *ident = TRUE;
break;
}
case SV_POTION_INC_WIS:
{
if (do_inc_stat(A_WIS)) *ident = TRUE;
break;
}
case SV_POTION_INC_DEX:
{
if (do_inc_stat(A_DEX)) *ident = TRUE;
break;
}
case SV_POTION_INC_CON:
{
if (do_inc_stat(A_CON)) *ident = TRUE;
break;
}
case SV_POTION_INC_CHR:
{
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_AUGMENTATION:
{
if (do_inc_stat(A_STR)) *ident = TRUE;
if (do_inc_stat(A_INT)) *ident = TRUE;
if (do_inc_stat(A_WIS)) *ident = TRUE;
if (do_inc_stat(A_DEX)) *ident = TRUE;
if (do_inc_stat(A_CON)) *ident = TRUE;
if (do_inc_stat(A_CHR)) *ident = TRUE;
break;
}
case SV_POTION_ENLIGHTENMENT:
{
msg_print("Изображение подземелья формируется у вас в голове...");
wiz_lite();
*ident = TRUE;
break;
}
case SV_POTION_STAR_ENLIGHTENMENT:
{
msg_print("Вы чувствуете себя просвещенным...");
message_flush();
wiz_lite();
(void)do_inc_stat(A_INT);
(void)do_inc_stat(A_WIS);
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
(void)detect_treasure();
(void)detect_objects_gold();
(void)detect_objects_normal();
identify_pack();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_SELF_KNOWLEDGE:
{
msg_print("Вы познаете себя немного лучше...");
message_flush();
self_knowledge();
*ident = TRUE;
break;
}
case SV_POTION_EXPERIENCE:
{
if (p_ptr->exp < PY_MAX_EXP)
{
s32b ee = (p_ptr->exp / 2) + 10;
if (ee > 100000L) ee = 100000L;
msg_print("Вы чувствуете себя более опытным.");
gain_exp(ee);
*ident = TRUE;
}
break;
}
}
return (TRUE);
}
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;
}
void chaos_warrior_reward(void)
{
if (one_in_(6))
{
msg_format("%^s rewards you with a mutation!",
chaos_patrons[p_ptr->chaos_patron]);
mut_gain_random(NULL);
}
else
{
char wrath_reason[32] = "";
int nasty_chance = 6;
int dummy = 0, dummy2 = 0;
int type, effect;
int count = 0;
if (p_ptr->lev == 13) nasty_chance = 2;
else if (!(p_ptr->lev % 13)) nasty_chance = 3;
else if (!(p_ptr->lev % 14)) nasty_chance = 12;
if (one_in_(nasty_chance))
type = randint1(20); /* Allow the 'nasty' effects */
else
type = randint1(15) + 5; /* Or disallow them */
if (type < 1) type = 1;
if (type > 20) type = 20;
type--;
sprintf(wrath_reason, "the Wrath of %s",
chaos_patrons[p_ptr->chaos_patron]);
effect = chaos_rewards[p_ptr->chaos_patron][type];
switch (effect)
{
case REW_POLY_SLF:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou needst a new form, mortal!'");
do_poly_self();
break;
case REW_GAIN_EXP:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Well done, mortal! Lead on!'");
if (p_ptr->prace == RACE_ANDROID)
msg_print("But, nothing happen.");
else if (p_ptr->exp < PY_MAX_EXP)
{
s32b ee = (p_ptr->exp / 2) + 10;
if (ee > 100000L) ee = 100000L;
msg_print("You feel more experienced.");
gain_exp(ee);
}
break;
case REW_LOSE_EXP:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou didst not deserve that, slave.'");
if (p_ptr->prace == RACE_ANDROID)
msg_print("But, nothing happen.");
else
{
lose_exp(p_ptr->exp / 6);
}
break;
case REW_GOOD_OBJ:
msg_format("The voice of %s whispers:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Use my gift wisely.'");
acquirement(py, px, 1, FALSE, FALSE);
break;
case REW_GREA_OBJ:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Use my gift wisely.'");
acquirement(py, px, 1, TRUE, FALSE);
break;
case REW_CHAOS_WP:
{
object_type forge;
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thy deed hath earned thee a worthy blade.'");
dummy = TV_SWORD;
switch (randint1(p_ptr->lev))
{
case 0: case 1:
dummy2 = SV_DAGGER;
break;
case 2: case 3:
dummy2 = SV_MAIN_GAUCHE;
break;
case 4:
dummy2 = SV_TANTO;
break;
case 5: case 6:
dummy2 = SV_RAPIER;
break;
case 7: case 8:
dummy2 = SV_SMALL_SWORD;
break;
case 9: case 10:
dummy2 = SV_BASILLARD;
break;
case 11: case 12: case 13:
dummy2 = SV_SHORT_SWORD;
break;
case 14: case 15:
dummy2 = SV_SABRE;
break;
case 16: case 17:
dummy2 = SV_CUTLASS;
break;
case 18:
dummy2 = SV_WAKIZASHI;
break;
case 19:
dummy2 = SV_KHOPESH;
break;
case 20:
dummy2 = SV_TULWAR;
break;
case 21:
dummy2 = SV_BROAD_SWORD;
break;
case 22: case 23:
dummy2 = SV_LONG_SWORD;
break;
case 24: case 25:
dummy2 = SV_SCIMITAR;
break;
case 26:
dummy2 = SV_NINJATO;
break;
case 27:
dummy2 = SV_KATANA;
break;
case 28: case 29:
dummy2 = SV_BASTARD_SWORD;
break;
case 30:
dummy2 = SV_GREAT_SCIMITAR;
break;
case 31:
dummy2 = SV_CLAYMORE;
break;
case 32:
dummy2 = SV_ESPADON;
break;
case 33:
dummy2 = SV_TWO_HANDED_SWORD;
break;
case 34:
dummy2 = SV_FLAMBERGE;
break;
case 35:
dummy2 = SV_NO_DACHI;
break;
case 36:
dummy2 = SV_EXECUTIONERS_SWORD;
break;
case 37:
dummy2 = SV_ZWEIHANDER;
break;
case 38:
dummy2 = SV_HAYABUSA;
break;
default:
dummy2 = SV_BLADE_OF_CHAOS;
}
object_prep(&forge, lookup_kind(dummy, dummy2));
forge.to_h = 3 + randint1(dun_level) % 10;
forge.to_d = 3 + randint1(dun_level) % 10;
one_resistance(&forge);
forge.name2 = EGO_WEAPON_CHAOS;
drop_near(&forge, -1, py, px);
break;
}
case REW_GOOD_OBS:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thy deed hath earned thee a worthy reward.'");
acquirement(py, px, randint1(2) + 1, FALSE, FALSE);
break;
case REW_GREA_OBS:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Behold, mortal, how generously I reward thy loyalty.'");
acquirement(py, px, randint1(2) + 1, TRUE, FALSE);
break;
case REW_TY_CURSE:
msg_format("The voice of %s thunders:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou art growing arrogant, mortal.'");
activate_ty_curse(FALSE, &count);
break;
case REW_SUMMON_M:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'My pets, destroy the arrogant mortal!'");
for (dummy = 0; dummy < randint1(5) + 1; dummy++)
summon_specific(0, py, px, dun_level, 0, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE | PM_NO_PET));
break;
case REW_H_SUMMON:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou needst worthier opponents!'");
activate_hi_summon(py, px, FALSE);
break;
case REW_DO_HAVOC:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Death and destruction! This pleaseth me!'");
call_chaos(100);
break;
case REW_GAIN_ABL:
msg_format("The voice of %s rings out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Stay, mortal, and let me mold thee.'");
if (one_in_(3) && !(chaos_stats[p_ptr->chaos_patron] < 0))
do_inc_stat(chaos_stats[p_ptr->chaos_patron]);
else
do_inc_stat(randint0(6));
break;
case REW_LOSE_ABL:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'I grow tired of thee, mortal.'");
if (one_in_(3) && !(chaos_stats[p_ptr->chaos_patron] < 0))
do_dec_stat(chaos_stats[p_ptr->chaos_patron]);
else
do_dec_stat(randint0(6));
break;
case REW_RUIN_ABL:
msg_format("The voice of %s thunders:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou needst a lesson in humility, mortal!'");
msg_print("You feel less powerful!");
for (dummy = 0; dummy < 6; dummy++)
dec_stat(dummy, 10 + randint1(15), TRUE);
break;
case REW_POLY_WND:
msg_format("You feel the power of %s touch you.", chaos_patrons[p_ptr->chaos_patron]);
do_poly_wounds();
break;
case REW_AUGM_ABL:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Receive this modest gift from me!'");
for (dummy = 0; dummy < 6; dummy++)
do_inc_stat(dummy);
break;
case REW_HURT_LOT:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Suffer, pathetic fool!'");
fire_ball(GF_DISINTEGRATE, 0, p_ptr->lev * 4, 4);
take_hit(DAMAGE_NOESCAPE, p_ptr->lev * 4, wrath_reason, -1);
break;
case REW_HEAL_FUL:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Rise, my servant!'");
restore_level();
set_poisoned(0, TRUE);
set_blind(0, TRUE);
set_confused(0, TRUE);
set_image(0, TRUE);
set_stun(0, TRUE);
set_cut(0, TRUE);
hp_player(5000);
for (dummy = 0; dummy < 6; dummy++)
do_res_stat(dummy);
break;
case REW_CURSE_WP:
{
int slot = equip_random_slot(object_is_melee_weapon);
if (slot)
{
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou reliest too much on thy weapon.'");
curse_weapon(FALSE, slot);
}
break;
}
case REW_CURSE_AR:
{
int slot = equip_random_slot(object_is_armour);
if (slot)
{
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou reliest too much on thine equipment.'");
curse_armor(slot);
}
break;
}
case REW_PISS_OFF:
msg_format("The voice of %s whispers:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Now thou shalt pay for annoying me.'");
switch (randint1(4))
{
case 1:
activate_ty_curse(FALSE, &count);
break;
case 2:
activate_hi_summon(py, px, FALSE);
break;
case 3:
if (one_in_(2))
{
int slot = equip_random_slot(object_is_melee_weapon);
if (slot)
curse_weapon(FALSE, slot);
}
else
{
int slot = equip_random_slot(object_is_armour);
if (slot)
curse_armor(slot);
}
break;
default:
for (dummy = 0; dummy < 6; dummy++)
dec_stat(dummy, 10 + randint1(15), TRUE);
break;
}
break;
case REW_WRATH:
msg_format("The voice of %s thunders:", chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Die, mortal!'");
take_hit(DAMAGE_LOSELIFE, p_ptr->lev * 4, wrath_reason, -1);
for (dummy = 0; dummy < 6; dummy++)
dec_stat(dummy, 10 + randint1(15), FALSE);
activate_hi_summon(py, px, FALSE);
activate_ty_curse(FALSE, &count);
if (one_in_(2))
{
int slot = equip_random_slot(object_is_melee_weapon);
if (slot)
curse_weapon(FALSE, slot);
}
if (one_in_(2))
{
int slot = equip_random_slot(object_is_armour);
if (slot)
curse_armor(slot);
}
break;
case REW_DESTRUCT:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Death and destruction! This pleaseth me!'");
destroy_area(py, px, 25, 3 * p_ptr->lev);
break;
case REW_GENOCIDE:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Let me relieve thee of thine oppressors!'");
symbol_genocide(0, FALSE);
break;
case REW_MASS_GEN:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Let me relieve thee of thine oppressors!'");
mass_genocide(0, FALSE);
break;
case REW_DISPEL_C:
msg_format("You can feel the power of %s assault your enemies!",
chaos_patrons[p_ptr->chaos_patron]);
dispel_monsters(p_ptr->lev * 4);
break;
case REW_IGNORE:
msg_format("%s ignores you.",
chaos_patrons[p_ptr->chaos_patron]);
break;
case REW_SER_DEMO:
msg_format("%s rewards you with a demonic servant!",chaos_patrons[p_ptr->chaos_patron]);
if (!summon_specific(-1, py, px, dun_level, SUMMON_DEMON, PM_FORCE_PET))
msg_print("Nobody ever turns up...");
break;
case REW_SER_MONS:
msg_format("%s rewards you with a servant!",chaos_patrons[p_ptr->chaos_patron]);
if (!summon_specific(-1, py, px, dun_level, 0, PM_FORCE_PET))
msg_print("Nobody ever turns up...");
break;
case REW_SER_UNDE:
msg_format("%s rewards you with an undead servant!",chaos_patrons[p_ptr->chaos_patron]);
if (!summon_specific(-1, py, px, dun_level, SUMMON_UNDEAD, PM_FORCE_PET))
msg_print("Nobody ever turns up...");
break;
default:
msg_format("The voice of %s stammers:", chaos_patrons[p_ptr->chaos_patron]);
msg_format("'Uh... uh... the answer's %d/%d, what's the question?'", type, effect);
}
}
}
static void _shatter_device_spell(int cmd, variant *res)
{
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, T("Shatter Device", ""));
break;
case SPELL_DESC:
var_set_string(res, T("Destroy a magical device in your inventory for various effects.", ""));
break;
case SPELL_CAST:
{
int item;
object_type *o_ptr;
var_set_bool(res, FALSE);
item_tester_hook = item_tester_hook_recharge;
if (!get_item(&item, "Shatter which device?", "You have nothing to shatter.", USE_INVEN)) return;
o_ptr = &inventory[item];
var_set_bool(res, TRUE);
if (_object_is_(o_ptr, TV_STAFF, SV_STAFF_DESTRUCTION))
{
if (destroy_area(py, px, 15 + p_ptr->lev + randint0(11), 4 * p_ptr->lev))
msg_print("The dungeon collapses...");
else
msg_print("The dungeon trembles.");
}
else if ( _object_is_(o_ptr, TV_STAFF, SV_STAFF_HEALING)
|| _object_is_(o_ptr, TV_ROD, SV_ROD_HEALING)
|| _object_is_(o_ptr, TV_ROD, SV_ROD_RESTORATION) )
{
msg_print("You feel life flow through your body!");
restore_level();
(void)set_poisoned(0, TRUE);
(void)set_blind(0, TRUE);
(void)set_confused(0, TRUE);
(void)set_image(0, TRUE);
(void)set_stun(0, TRUE);
(void)set_cut(0, TRUE);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
update_stuff();
hp_player(5000);
}
else if (_object_is_(o_ptr, TV_ROD, SV_ROD_TELEPORT_AWAY))
{
banish_monsters(p_ptr->lev * 4);
}
else
{
project(0, 5, py, px,
k_info[o_ptr->k_idx].level * 16,
_object_dam_type(o_ptr),
PROJECT_STOP | PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL, -1);
}
inven_item_increase(item, -1);
inven_item_describe(item);
inven_item_optimize(item);
break;
}
default:
default_spell(cmd, res);
break;
}
}
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);
}
static void _shatter_device_spell(int cmd, variant *res)
{
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, "Shatter Device");
break;
case SPELL_DESC:
var_set_string(res, "Destroy a magical device in your inventory for various effects.");
break;
case SPELL_CAST:
{
int item;
object_type *o_ptr;
var_set_bool(res, FALSE);
item_tester_hook = object_is_device;
if (!get_item(&item, "Shatter which device?", "You have nothing to shatter.", USE_INVEN)) return;
o_ptr = &inventory[item];
var_set_bool(res, TRUE);
if (o_ptr->activation.type == EFFECT_NONE)
{
msg_print("Nothing happens.");
}
else if (o_ptr->activation.type == EFFECT_DESTRUCTION)
{
if (destroy_area(py, px, 15 + p_ptr->lev + randint0(11), 4 * p_ptr->lev))
msg_print("The dungeon collapses...");
else
msg_print("The dungeon trembles.");
}
else if ( o_ptr->activation.type == EFFECT_HEAL_CURING
|| o_ptr->activation.type == EFFECT_HEAL_CURING_HERO
|| o_ptr->activation.type == EFFECT_RESTORING )
{
msg_print("You feel life flow through your body!");
restore_level();
(void)set_poisoned(0, TRUE);
(void)set_blind(0, TRUE);
(void)set_confused(0, TRUE);
(void)set_image(0, TRUE);
(void)set_stun(0, TRUE);
(void)set_cut(0, TRUE);
(void)do_res_stat(A_STR);
(void)do_res_stat(A_CON);
(void)do_res_stat(A_DEX);
(void)do_res_stat(A_WIS);
(void)do_res_stat(A_INT);
(void)do_res_stat(A_CHR);
update_stuff(); /* hp may change if Con was drained ... */
hp_player(5000);
}
else if ( o_ptr->activation.type == EFFECT_TELEPORT_AWAY
|| o_ptr->activation.type == EFFECT_BANISH_EVIL
|| o_ptr->activation.type == EFFECT_BANISH_ALL )
{
banish_monsters(p_ptr->lev * 4);
}
else
{
project(0, 5, py, px,
o_ptr->activation.difficulty * 16,
_object_dam_type(o_ptr),
PROJECT_STOP | PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL, -1);
}
inven_item_increase(item, -1);
inven_item_describe(item);
inven_item_optimize(item);
break;
}
default:
default_spell(cmd, res);
break;
}
}
static bool zap_rod(object_type *o_ptr, bool *ident)
{
int chance, dir, lev;
bool used_charge = TRUE;
object_kind *k_ptr = &k_info[o_ptr->k_idx];
/* Get a direction (unless KNOWN not to need it) */
if ((o_ptr->sval >= SV_ROD_MIN_DIRECTION) || !object_aware_p(o_ptr))
{
/* Get a direction, allow cancel */
if (!get_aim_dir(&dir)) return FALSE;
}
/* Take a turn */
p_ptr->energy_use = 100;
/* Not identified yet */
*ident = FALSE;
/* Extract the item level */
lev = k_info[o_ptr->k_idx].level;
/* Base chance of success */
chance = p_ptr->skill_dev;
/* Confusion hurts skill */
if (p_ptr->confused) chance = chance / 2;
/* High level objects are harder */
chance = chance - ((lev > 50) ? 50 : lev);
/* Give everyone a (slight) chance */
if ((chance < USE_DEVICE) && (rand_int(USE_DEVICE - chance + 1) == 0))
{
chance = USE_DEVICE;
}
/* Roll for usage */
if ((chance < USE_DEVICE) || (randint(chance) < USE_DEVICE))
{
if (flush_failure) flush();
msg_print("Вы не смогли использовать жезл.");
return FALSE;
}
/* Still charging? */
if (o_ptr->timeout > (o_ptr->pval - k_ptr->pval))
{
if (flush_failure) flush();
if (o_ptr->number == 1)
msg_print("Жезл все еще заряжается.");
else
msg_print("Все жезлы все еще заряжаются.");
return FALSE;
}
/* Sound */
sound(MSG_ZAP);
/* Analyze the rod */
switch (o_ptr->sval)
{
case SV_ROD_DETECT_TRAP:
{
if (detect_traps()) *ident = TRUE;
break;
}
case SV_ROD_DETECT_DOOR:
{
if (detect_doors()) *ident = TRUE;
if (detect_stairs()) *ident = TRUE;
break;
}
case SV_ROD_IDENTIFY:
{
*ident = TRUE;
if (ident_spell()) used_charge = FALSE;
break;
}
case SV_ROD_RECALL:
{
set_recall();
*ident = TRUE;
break;
}
case SV_ROD_ILLUMINATION:
{
if (lite_area(damroll(2, 8), 2)) *ident = TRUE;
break;
}
case SV_ROD_MAPPING:
{
map_area();
*ident = TRUE;
break;
}
case SV_ROD_DETECTION:
{
detect_all();
*ident = TRUE;
break;
}
case SV_ROD_PROBING:
{
probing();
*ident = TRUE;
break;
}
case SV_ROD_CURING:
{
if (set_blind(0)) *ident = TRUE;
if (set_poisoned(0)) *ident = TRUE;
if (set_confused(0)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_ROD_HEALING:
{
if (hp_player(500)) *ident = TRUE;
if (set_stun(0)) *ident = TRUE;
if (set_cut(0)) *ident = TRUE;
break;
}
case SV_ROD_RESTORATION:
{
if (restore_level()) *ident = TRUE;
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_ROD_SPEED:
{
if (!p_ptr->fast)
{
if (set_fast(randint(30) + 15)) *ident = TRUE;
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case SV_ROD_TELEPORT_AWAY:
{
if (teleport_monster(dir)) *ident = TRUE;
break;
}
case SV_ROD_DISARMING:
{
if (disarm_trap(dir)) *ident = TRUE;
break;
}
case SV_ROD_LITE:
{
msg_print("Появляется коридор синего мерцающего света.");
lite_line(dir);
*ident = TRUE;
break;
}
case SV_ROD_SLEEP_MONSTER:
{
if (sleep_monster(dir)) *ident = TRUE;
break;
}
case SV_ROD_SLOW_MONSTER:
{
if (slow_monster(dir)) *ident = TRUE;
break;
}
case SV_ROD_DRAIN_LIFE:
{
if (drain_life(dir, 150)) *ident = TRUE;
break;
}
case SV_ROD_POLYMORPH:
{
if (poly_monster(dir)) *ident = TRUE;
break;
}
case SV_ROD_ACID_BOLT:
{
fire_bolt_or_beam(10, GF_ACID, dir, damroll(12, 8));
*ident = TRUE;
break;
}
case SV_ROD_ELEC_BOLT:
{
fire_bolt_or_beam(10, GF_ELEC, dir, damroll(6, 6));
*ident = TRUE;
break;
}
case SV_ROD_FIRE_BOLT:
{
fire_bolt_or_beam(10, GF_FIRE, dir, damroll(16, 8));
*ident = TRUE;
break;
}
case SV_ROD_COLD_BOLT:
{
fire_bolt_or_beam(10, GF_COLD, dir, damroll(10, 8));
*ident = TRUE;
break;
}
case SV_ROD_ACID_BALL:
{
fire_ball(GF_ACID, dir, 120, 2);
*ident = TRUE;
break;
}
case SV_ROD_ELEC_BALL:
{
fire_ball(GF_ELEC, dir, 64, 2);
*ident = TRUE;
break;
}
case SV_ROD_FIRE_BALL:
{
fire_ball(GF_FIRE, dir, 144, 2);
*ident = TRUE;
break;
}
case SV_ROD_COLD_BALL:
{
fire_ball(GF_COLD, dir, 96, 2);
*ident = TRUE;
break;
}
}
/* Drain the charge */
if (used_charge) o_ptr->timeout += k_ptr->pval;
return TRUE;
}
