void _adrenaline_spell(int cmd, variant *res)
{
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, "Adrenaline Channeling");
break;
case SPELL_DESC:
var_set_string(res, "Removes fear and stun. Gives heroism and speed. Heals HP a little unless "
"you already have heroism and temporary speed boost.");
break;
case SPELL_SPOIL_DESC:
var_set_string(res, "Removes stun. Heals 10 + 1d(L*3/2). Grants heroism and haste.");
break;
case SPELL_CAST:
{
int dur = spell_power(15 + randint1(p_ptr->lev*3/2));
bool heal = !IS_FAST() || !IS_HERO(); /* Prevent spamming this as a weak healing spell */
set_stun(0, TRUE);
set_hero(dur, FALSE);
set_fast(dur, FALSE);
if (heal) /* Heal after granting Heroism to fill the +10 mhp */
hp_player(p_ptr->lev);
var_set_bool(res, TRUE);
break;
}
default:
default_spell(cmd, res);
break;
}
}
void heroism_spell(int cmd, variant *res)
{
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, "Heroism");
break;
case SPELL_DESC:
var_set_string(res, "Temporarily grants increased combat prowess and great bravery.");
break;
case SPELL_CAST:
set_hero(randint1(25) + 25, FALSE);
var_set_bool(res, TRUE);
break;
default:
default_spell(cmd, res);
break;
}
}
static bool cast_mage_spell(int Ind, int spell)
{
player_type *p_ptr = Players[Ind];
object_type *o_ptr;
int py = p_ptr->py;
int px = p_ptr->px;
int Depth = p_ptr->dun_depth;
int dir;
int plev = p_ptr->lev;
/* Hack -- chance of "beam" instead of "bolt" */
int beam = beam_chance(Ind);
/* MAngband-specific: Projected */
if (spell >= SPELL_PROJECTED)
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
(void)project_spell_ball(Ind, dir, spell - SPELL_PROJECTED);
return (TRUE);
}
/* Spells. */
switch (spell)
{
case SPELL_MAGIC_MISSILE:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s fires a magic missile.");
fire_bolt_or_beam(Ind, beam-10, GF_MISSILE, dir,
damroll(3 + ((plev - 1) / 5), 4));
break;
}
case SPELL_DETECT_MONSTERS:
{
(void)detect_creatures(Ind, TRUE);
break;
}
case SPELL_PHASE_DOOR:
{
msg_spell("%s blinks away!");
teleport_player(Ind, 10);
break;
}
case SPELL_LIGHT_AREA:
{
(void)lite_area(Ind, damroll(2, (plev / 2)), (plev / 10) + 1);
break;
}
case SPELL_TREASURE_DETECTION:
{
(void)detect_treasure(Ind);
//(void)detect_objects_gold(Ind);
break;
}
case SPELL_CURE_LIGHT_WOUNDS:
{
(void)hp_player(Ind, damroll(2, 8));
(void)set_cut(Ind, p_ptr->cut - 15);
break;
}
case SPELL_OBJECT_DETECTION:
{
(void)detect_objects_normal(Ind);
break;
}
case SPELL_FIND_TRAPS_DOORS:
{
(void)detect_trap(Ind);//detect_traps(Ind);
(void)detect_sdoor(Ind);//detect_doors(Ind);
//(void)detect_stairs(Ind);
break;
}
case SPELL_STINKING_CLOUD:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a stinking cloud.");
fire_ball(Ind, GF_POIS, dir, 10 + (plev / 2), 2);
break;
}
case SPELL_CONFUSE_MONSTER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s makes a complicated gesture.");
(void)confuse_monster(Ind, dir, plev);
break;
}
case SPELL_LIGHTNING_BOLT:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a lightning bolt.");
fire_beam(Ind, GF_ELEC, dir,
damroll(3+((plev-5)/6), 6));
break;
}
case SPELL_TRAP_DOOR_DESTRUCTION:
{
(void)destroy_doors_touch(Ind);
break;
}
case SPELL_SLEEP_MONSTER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s gestures and mumbles calmly.");
(void)sleep_monster(Ind, dir);
break;
}
case SPELL_CURE_POISON:
{
(void)set_poisoned(Ind, 0);
break;
}
case SPELL_TELEPORT_SELF:
{
msg_spell("%s teleports away!");
teleport_player(Ind, plev * 5);
break;
}
case SPELL_SPEAR_OF_LIGHT: /* spear of light */
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_print(Ind, "A line of blue shimmering light appears.");
msg_spell("A line of blue shimmering light appears out of %s's hands.");
lite_line(Ind, dir);
break;
}
case SPELL_FROST_BOLT:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a frost bolt.");
fire_bolt_or_beam(Ind, beam-10, GF_COLD, dir,
damroll(5+((plev-5)/4), 8));
break;
}
case SPELL_TURN_STONE_TO_MUD:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s makes a moving gesture.");
(void)wall_to_mud(Ind, dir);
break;
}
case SPELL_SATISFY_HUNGER:
{
(void)set_food(Ind, PY_FOOD_MAX - 1);
break;
}
case SPELL_RECHARGE_ITEM_I:
{
return recharge(Ind, 2 + plev / 5);
}
case SPELL_WONDER: /* wonder */
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
(void)spell_wonder(Ind, dir);
break;
}
case SPELL_POLYMORPH_OTHER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s discharges an everchanging blast of energy.");
(void)poly_monster(Ind, dir);
break;
}
case SPELL_IDENTIFY:
{
return ident_spell(Ind);
}
case SPELL_MASS_SLEEP:
{
(void)sleep_monsters(Ind);
break;
}
case SPELL_FIRE_BOLT:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a fire bolt.");
fire_bolt_or_beam(Ind, beam, GF_FIRE, dir,
damroll(6+((plev-5)/4), 8));
break;
}
case SPELL_SLOW_MONSTER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s makes a lengthy gesture.");
(void)slow_monster(Ind, dir);
break;
}
case SPELL_FROST_BALL:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a frost ball.");
fire_ball(Ind, GF_COLD, dir, 30 + (plev), 2);
break;
}
case SPELL_RECHARGE_ITEM_II: /* greater recharging */
{
return recharge(Ind, 50 + plev);
}
case SPELL_TELEPORT_OTHER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s makes a rush gesture.");
(void)teleport_monster(Ind, dir);
break;
}
case SPELL_BEDLAM:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s creates confusion.");
fire_ball(Ind, GF_OLD_CONF, dir, plev, 4);
break;
}
case SPELL_FIRE_BALL:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a fire ball.");
fire_ball(Ind, GF_FIRE, dir, 55 + (plev), 2);
break;
}
case SPELL_WORD_OF_DESTRUCTION:
{
msg_spell("%s unleashes great power!");
destroy_area(Depth, py, px, 15, TRUE);
break;
}
case SPELL_BANISHMENT:
{
return banishment(Ind);
break;
}
case SPELL_DOOR_CREATION:
{
(void)door_creation(Ind);
break;
}
case SPELL_STAIR_CREATION:
{
(void)stair_creation(Ind);
break;
}
case SPELL_TELEPORT_LEVEL:
{
(void)teleport_player_level(Ind);
break;
}
case SPELL_EARTHQUAKE:
{
msg_spell("%s casts a spell, and the ground shakes!");
earthquake(Depth, py, px, 10);
break;
}
case SPELL_WORD_OF_RECALL:
{
o_ptr = &p_ptr->inventory[get_spell_book(Ind, spell)];
set_recall(Ind, o_ptr);
break;
}
case SPELL_ACID_BOLT:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts an acid bolt.");
fire_bolt_or_beam(Ind, beam, GF_ACID, dir, damroll(8+((plev-5)/4), 8));
break;
}
case SPELL_CLOUD_KILL:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a cloud of death.");
fire_ball(Ind, GF_POIS, dir, 40 + (plev / 2), 3);
break;
}
case SPELL_ACID_BALL:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts an acid ball.");
fire_ball(Ind, GF_ACID, dir, 40 + (plev), 2);
break;
}
case SPELL_ICE_STORM:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s invokes an ice storm.");
fire_ball(Ind, GF_ICE, dir, 50 + (plev * 2), 3);
break;
}
case SPELL_METEOR_SWARM:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a meteor shower.");
fire_swarm(Ind, 2 + plev / 20, GF_METEOR, dir, 30 + plev / 2, 1);
break;
}
case SPELL_MANA_STORM:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a mana ball.");
fire_ball(Ind, GF_MANA, dir, 300 + (plev * 2), 3);
break;
}
case SPELL_DETECT_INVISIBLE:
{
(void)detect_invisible(Ind, TRUE);
break;
}
case SPELL_DETECT_ENCHANTMENT:
{
(void)detect_objects_magic(Ind);
break;
}
case SPELL_SHOCK_WAVE:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a shock wave.");
fire_ball(Ind, GF_SOUND, dir, 10 + plev, 2);
break;
}
case SPELL_EXPLOSION:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts an explosion.");
fire_ball(Ind, GF_SHARDS, dir, 20 + (plev * 2), 2);
break;
}
case SPELL_MASS_BANISHMENT:
{
(void)mass_banishment(Ind);
break;
}
case SPELL_RESIST_FIRE:
{
(void)set_oppose_fire(Ind, p_ptr->oppose_fire + randint(20) + 20);
break;
}
case SPELL_RESIST_COLD:
{
(void)set_oppose_cold(Ind, p_ptr->oppose_cold + randint(20) + 20);
break;
}
case SPELL_ELEMENTAL_BRAND: /* elemental brand */
{
if (!get_item(Ind, &dir, item_test(AMMO))) return (FALSE);
(void)brand_ammo(Ind, dir);
break;
}
case SPELL_RESIST_POISON:
{
(void)set_oppose_pois(Ind, p_ptr->oppose_pois + randint(20) + 20);
break;
}
case SPELL_RESISTANCE:
{
int time = randint(20) + 20;
(void)set_oppose_acid(Ind, p_ptr->oppose_acid + time);
(void)set_oppose_elec(Ind, p_ptr->oppose_elec + time);
(void)set_oppose_fire(Ind, p_ptr->oppose_fire + time);
(void)set_oppose_cold(Ind, p_ptr->oppose_cold + time);
(void)set_oppose_pois(Ind, p_ptr->oppose_pois + time);
break;
}
case SPELL_HEROISM:
{
(void)hp_player(Ind, 10);
(void)set_hero(Ind, p_ptr->hero + randint(25) + 25);
(void)set_afraid(Ind, 0);
break;
}
case SPELL_SHIELD:
{
msg_spell("%s forms a mystic shield.");
(void)set_shield(Ind, p_ptr->shield + randint(20) + 30);
break;
}
case SPELL_BERSERKER:
{
msg_spell("%s enters a battle rage!");
(void)hp_player(Ind, 30);
(void)set_shero(Ind, p_ptr->shero + randint(25) + 25);
(void)set_afraid(Ind, 0);
break;
}
case SPELL_HASTE_SELF:
{
msg_spell("%s starts moving faster.");
if (!p_ptr->fast)
{
(void)set_fast(Ind, randint(20) + plev);
}
else
{
(void)set_fast(Ind, p_ptr->fast + randint(5));
}
break;
}
case SPELL_RIFT:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("Space warps in a beam from %s.");
fire_beam(Ind, GF_GRAVITY, dir, 40 + damroll(plev, 7));
break;
}
case SPELL_REND_SOUL: /* rend soul */
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a nether ball.");
fire_bolt_or_beam(Ind, beam / 4, GF_NETHER, dir, damroll(11, plev));
break;
}
case SPELL_CHAOS_STRIKE: /* chaos strike */
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_spell("%s casts a ball of chaos.");
fire_bolt_or_beam(Ind, beam, GF_CHAOS, dir, damroll(13, plev));
break;
}
case SPELL_RUNE_OF_PROTECTION: /* rune of protection */
{
if (warding_glyph(Ind))
{
msg_spell("%s lays down a rune of protection.");
}
break;
}
case SPELL_ENCHANT_ARMOR: /* enchant armor */
{
return enchant_spell(Ind, 0, 0, rand_int(3) + plev / 20);
}
case SPELL_ENCHANT_WEAPON: /* enchant weapon */
{
return enchant_spell(Ind, rand_int(4) + plev / 20,
rand_int(4) + plev / 20, 0);
}
}
/* Success */
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("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 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 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;
}
/*
* do_cmd_mind calls this function if the player's class
* is 'Medium'.
*/
static bool cast_medium_spell(int spell)
{
/* this will vary based on the spells, and what they depend on */
int b = 0;
int dir;
int plev = p_ptr->lev;
/* spell code */
switch (spell)
{
case 0:
/* Mindblast */
if (!get_aim_dir(&dir)) return FALSE;
if (randint(100) < plev * 2)
(void)fire_bolt_or_beam(100, GF_PSI, dir,
damroll(3 + ((plev - 1) / 4), (3 + plev / 15)));
else
(void)fire_ball(GF_PSI, dir,
damroll(3 + ((plev - 1) / 4), (3 + plev / 15)),
0);
break;
case 1:
if (plev > 44)
wiz_lite();
else if (plev > 19)
map_area();
if (plev < 30)
{
b = detect_monsters_normal();
if (plev > 14)
b |= detect_monsters_invis();
if (plev > 4)
{
b |= detect_traps();
b |= detect_doors();
}
}
else
{
b = detect_all();
}
if (plev > 24)
{
(void)set_tim_esp(p_ptr->tim_esp + plev);
}
if (!b) msg_print("You feel safe.");
break;
case 2:
/* Minor displace */
teleport_player(plev);
break;
case 3:
/* Major displace */
teleport_player(plev * 5);
break;
case 4:
/* Psychic Disturbance */
msg_print("You disturb specters from beyond the veil!");
(void)project(-1, 2 + plev / 8, p_ptr->py, p_ptr->px,
damroll((plev / 2), plev), GF_CONFUSION, PROJECT_KILL);
break;
case 5:
/* spirit blast --- not 'true' TK */
if (!get_aim_dir(&dir)) return FALSE;
(void)fire_ball(GF_SOUND, dir, damroll(8 + ((plev - 5) / 4), 8),
(plev > 20 ? (plev - 20) / 8 + 1 : 0));
break;
case 6:
/* Character Armour */
(void)set_shield(p_ptr->shield + plev);
if (plev > 14) (void)set_oppose_acid(p_ptr->oppose_acid + plev);
if (plev > 19) (void)set_oppose_fire(p_ptr->oppose_fire + plev);
if (plev > 24) (void)set_oppose_cold(p_ptr->oppose_cold + plev);
if (plev > 29) (void)set_oppose_elec(p_ptr->oppose_elec + plev);
if (plev > 34) (void)set_oppose_pois(p_ptr->oppose_pois + plev);
break;
case 7:
ident_spell();
break;
case 8:
if (!get_aim_dir(&dir)) return FALSE;
(void)fire_bolt(GF_DOMINATION, dir,
damroll((plev / 2), (3 + plev / 3)));
break;
case 9:
/* Soul Purge */
msg_print("The anguish of the dead emanates from your brain!");
(void)project(-1, 2 + plev / 10, p_ptr->py, p_ptr->px,
damroll(plev, 4), GF_PSI, PROJECT_KILL);
break;
case 10:
/* Adrenaline */
(void)set_afraid(0);
(void)set_stun(0);
/*
* Only heal when Adrenalin Channeling is not active. We check
* that by checking if the player isn't fast and 'heroed' atm.
*/
if (!p_ptr->fast || !(p_ptr->hero || p_ptr->shero))
{
(void)hp_player(plev);
}
b = 10 + randint((plev * 3) / 2);
if (plev < 35)
(void)set_hero(p_ptr->hero + b);
else
(void)set_shero(p_ptr->shero + b);
if (!p_ptr->fast)
{
/* Haste */
(void)set_fast(b);
}
else
{
(void)set_fast(p_ptr->fast + b);
}
break;
case 11:
/* Psychic Drain Turned into MEGA-STUN*/
if (!get_aim_dir(&dir)) return FALSE;
b = damroll(plev * 2, 3);
/* This is always a radius-0 ball now */
if (fire_ball(GF_STUN, dir, b, 0))
p_ptr->energy -= randint(150);
break;
case 12:
/* Entropic Blast */
msg_print
("A wave of pure entropic force blasts out from your spirit!");
(void)project(-1, 3 + plev / 10, p_ptr->py, p_ptr->px,
plev * (plev > 39 ? 4 : 3), GF_FORCE,
PROJECT_KILL | PROJECT_ITEM | PROJECT_GRID);
break;
default:
msg_print("Unknown Mindcrafter power!");
}
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);
}
