void light_area_spell(int cmd, variant *res)
{
int dice = 2;
int sides = p_ptr->lev / 2;
int rad = spell_power(p_ptr->lev / 10 + 1);
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, "Light Area");
break;
case SPELL_DESC:
var_set_string(res, "Lights up nearby area and the inside of a room permanently.");
break;
case SPELL_GAIN_MUT:
msg_print("You can light up rooms with your presence.");
break;
case SPELL_LOSE_MUT:
msg_print("You can no longer light up rooms with your presence.");
break;
case SPELL_MUT_DESC:
var_set_string(res, "You can emit bright light.");
break;
case SPELL_CAST:
lite_area(spell_power(damroll(dice, sides)), rad);
var_set_bool(res, TRUE);
break;
default:
default_spell(cmd, res);
break;
}
}
static void _mirror_of_light_spell(int cmd, variant *res)
{
switch (cmd)
{
case SPELL_NAME:
var_set_string(res, "Mirror of Light");
break;
case SPELL_DESC:
var_set_string(res, "Lights up nearby area and the inside of a room permanently.");
break;
case SPELL_CAST:
lite_area(damroll(2, p_ptr->lev/2), p_ptr->lev/10 + 1);
var_set_bool(res, TRUE);
break;
default:
default_spell(cmd, res);
break;
}
}
static bool cast_priest_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;
switch (spell)
{
case PRAYER_DETECT_EVIL:
{
(void)detect_evil(Ind);
break;
}
case PRAYER_CURE_LIGHT_WOUNDS:
{
(void)hp_player(Ind, damroll(2, 10));
(void)set_cut(Ind, p_ptr->cut - 10);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_CURE_LIGHT_WOUNDS + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, damroll(2, 8));
break;
}
case PRAYER_BLESS:
{
(void)set_blessed(Ind, p_ptr->blessed + randint(12) + 12);
break;
}
case PRAYER_REMOVE_FEAR:
{
(void)set_afraid(Ind, 0);
break;
}
case PRAYER_CALL_LIGHT:
{
msg_prayer("%s calls light.");
(void)lite_area(Ind, damroll(2, (plev / 2)), (plev / 10) + 1);
break;
}
case PRAYER_FIND_TRAPS:
{
(void)detect_trap(Ind);//detect_traps(Ind)
break;
}
case PRAYER_DETECT_DOORS_STAIRS:
{
(void)detect_sdoor(Ind);//detect_doors(Ind);
//(void)detect_stairs();
break;
}
case PRAYER_SLOW_POISON:
{
(void)set_poisoned(Ind, p_ptr->poisoned / 2);
break;
}
case PRAYER_SCARE_MONSTER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
(void)fear_monster(Ind, dir, plev);
break;
}
case PRAYER_PORTAL:
{
msg_prayer("%s blinks away!");
teleport_player(Ind, plev * 3);
break;
}
case PRAYER_CURE_SERIOUS_WOUNDS:
{
(void)hp_player(Ind, damroll(4, 10));
(void)set_cut(Ind, (p_ptr->cut / 2) - 20);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_CURE_SERIOUS_WOUNDS + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, damroll(4, 10));
break;
}
case PRAYER_CHANT:
{
(void)set_blessed(Ind, p_ptr->blessed + randint(24) + 24);
break;
}
case PRAYER_SANCTUARY:
{
msg_prayer("For a brief moment, %s is enclosed by a deep blue aura.");
(void)sleep_monsters_touch(Ind);
break;
}
case PRAYER_SATISFY_HUNGER:
{
(void)set_food(Ind, PY_FOOD_MAX - 1);
break;
}
case PRAYER_REMOVE_CURSE:
{
remove_curse(Ind);
break;
}
case PRAYER_RESIST_HEAT_COLD:
{
(void)set_oppose_fire(Ind, p_ptr->oppose_fire + randint(10) + 10);
(void)set_oppose_cold(Ind, p_ptr->oppose_cold + randint(10) + 10);
break;
}
case PRAYER_NEUTRALIZE_POISON:
{
(void)set_poisoned(Ind, 0);
break;
}
case PRAYER_ORB_OF_DRAINING:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_prayer("%s fires a holy orb!");
fire_ball(Ind, GF_HOLY_ORB, dir,
(damroll(3, 6) + plev +
(plev / ((p_ptr->cp_ptr->flags & CF_BLESS_WEAPON) ? 2 : 4))),
((plev < 30) ? 2 : 3));
break;
}
case PRAYER_CURE_CRITICAL_WOUNDS:
{
(void)hp_player(Ind, damroll(6, 10));
(void)set_cut(Ind, 0);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_CURE_CRITICAL_WOUNDS + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, damroll(6, 10));
break;
}
case PRAYER_SENSE_INVISIBLE:
{
(void)set_tim_invis(Ind, p_ptr->tim_invis + randint(24) + 24);
break;
}
case PRAYER_PROTECTION_FROM_EVIL:
{
(void)set_protevil(Ind, p_ptr->protevil + randint(25) + 3 * p_ptr->lev);
break;
}
case PRAYER_EARTHQUAKE:
{
msg_prayer("%s murmurs, and the ground shakes!");
earthquake(Depth, py, px, 10);
break;
}
case PRAYER_SENSE_SURROUNDINGS:
{
map_area(Ind);
break;
}
case PRAYER_CURE_MORTAL_WOUNDS:
{
(void)hp_player(Ind, damroll(8, 10));
(void)set_stun(Ind, 0);
(void)set_cut(Ind, 0);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_CURE_MORTAL_WOUNDS + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, damroll(8, 10));
break;
}
case PRAYER_TURN_UNDEAD:
{
msg_prayer("%s tries to turn undead.");
(void)turn_undead(Ind);
break;
}
case PRAYER_PRAYER:
{
(void)set_blessed(Ind, p_ptr->blessed + randint(48) + 48);
break;
}
case PRAYER_DISPEL_UNDEAD:
{
msg_prayer("%s dispells undead.");
(void)dispel_undead(Ind, randint(plev * 3));
break;
}
case PRAYER_HEAL:
{
(void)hp_player(Ind, 300);
(void)set_stun(Ind, 0);
(void)set_cut(Ind, 0);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_HEAL + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, 300);
break;
}
case PRAYER_DISPEL_EVIL:
{
msg_prayer("%s dispells evil.");
(void)dispel_evil(Ind, randint(plev * 3));
break;
}
case PRAYER_GLYPH_OF_WARDING:
{
if (warding_glyph(Ind))
{
msg_prayer("%s lays down a glyph of warding.");
}
break;
}
case PRAYER_HOLY_WORD:
{
msg_prayer("%s shouts the holy word.");
(void)dispel_evil(Ind, randint(plev * 4));
(void)hp_player(Ind, 1000);
(void)set_afraid(Ind, 0);
(void)set_poisoned(Ind, 0);
(void)set_stun(Ind, 0);
(void)set_cut(Ind, 0);
break;
}
case PRAYER_DETECT_MONSTERS:
{
(void)detect_creatures(Ind, TRUE);
break;
}
case PRAYER_DETECTION:
{
(void)detection(Ind);//detect_all(Ind)
break;
}
case PRAYER_PERCEPTION:
{
return ident_spell(Ind);
}
case PRAYER_PROBING:
{
(void)probing(Ind);
break;
}
case PRAYER_CLAIRVOYANCE:
{
msg_prayer("An image of your surroundings forms in your mind...");
wiz_lite(Ind);
break;
}
case PRAYER_CURE_SERIOUS_WOUNDS2:
{
(void)hp_player(Ind, damroll(4, 10));
(void)set_cut(Ind, 0);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_CURE_SERIOUS_WOUNDS2 + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, damroll(4, 10));
break;
}
case PRAYER_CURE_MORTAL_WOUNDS2:
{
(void)hp_player(Ind, damroll(8, 10));
(void)set_stun(Ind, 0);
(void)set_cut(Ind, 0);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_CURE_MORTAL_WOUNDS2 + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, damroll(8, 10));
break;
}
case PRAYER_HEALING:
{
(void)hp_player(Ind, 2000);
(void)set_stun(Ind, 0);
(void)set_cut(Ind, 0);
break;
}
/* MAngband-specific: Heal Projectile */
case PRAYER_HEALING + SPELL_PROJECTED:
{
if (!get_aim_dir(Ind, &dir)) return FALSE;
(void)heal_player_ball(Ind, dir, 2000);
break;
}
/* With MAngband-specific addon: ressurect ghosts */
case PRAYER_RESTORATION:
{
if (!do_scroll_life(Ind))
{
(void)do_res_stat(Ind, A_STR);
(void)do_res_stat(Ind, A_INT);
(void)do_res_stat(Ind, A_WIS);
(void)do_res_stat(Ind, A_DEX);
(void)do_res_stat(Ind, A_CON);
(void)do_res_stat(Ind, A_CHR);
}
break;
}
/* With Mangband-sepcific addon: restore others */
case PRAYER_REMEMBRANCE:
{
if (!do_restoreXP_other(Ind))
{
(void)restore_level(Ind);
}
break;
}
case PRAYER_DISPEL_UNDEAD2:
{
msg_prayer("%s dispells undead.");
(void)dispel_undead(Ind, randint(plev * 4));
break;
}
case PRAYER_DISPEL_EVIL2:
{
msg_prayer("%s dispells evil.");
(void)dispel_evil(Ind, randint(plev * 4));
break;
}
case PRAYER_BANISH_EVIL:
{
msg_prayer("%s speaks a holy curse on nearby evil!");
if (banish_evil(Ind, 100))
{
msg_print(Ind, "The power of your god banishes evil!");
}
break;
}
case PRAYER_WORD_OF_DESTRUCTION:
{
msg_prayer("%s unleashes a spell of great power!");
destroy_area(Depth, py, px, 15, TRUE);
break;
}
case PRAYER_ANNIHILATION:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_prayer("%s fires a massive bolt filled with pure energy!");
drain_life(Ind, dir, 200);
break;
}
case PRAYER_UNBARRING_WAYS:
{
msg_prayer("%s sways his hands.");
(void)destroy_doors_touch(Ind);
break;
}
case PRAYER_RECHARGING:
{
return recharge(Ind, 15);
}
case PRAYER_DISPEL_CURSE:
{
(void)remove_all_curse(Ind);
break;
}
case PRAYER_ENCHANT_WEAPON:
{
return enchant_spell(Ind, rand_int(4) + 1, rand_int(4) + 1, 0);
}
case PRAYER_ENCHANT_ARMOUR:
{
return enchant_spell(Ind, 0, 0, rand_int(3) + 2);
}
case PRAYER_ELEMENTAL_BRAND:
{
brand_weapon(Ind);
break;
}
case PRAYER_BLINK:
{
msg_prayer("%s blinks away!");
teleport_player(Ind, 10);
break;
}
case PRAYER_TELEPORT_SELF:
{
msg_prayer("%s teleports away!");
teleport_player(Ind, plev * 8);
break;
}
case PRAYER_TELEPORT_OTHER:
{
if (!get_aim_dir(Ind, &dir)) return (FALSE);
msg_prayer("%s prays for divine intervention.");
(void)teleport_monster(Ind, dir);
break;
}
case PRAYER_TELEPORT_LEVEL:
{
(void)teleport_player_level(Ind);
break;
}
case PRAYER_WORD_OF_RECALL:
{
o_ptr = &p_ptr->inventory[get_spell_book(Ind, spell)];
set_recall(Ind, o_ptr);
break;
}
case PRAYER_ALTER_REALITY:
{
(void)alter_reality(Ind, FALSE);
break;
}
/* Paranoia: shouldn't happen with safe clients */
default:
{
msg_print(Ind, "You cannot project that spell on other players.");
return (FALSE);
}
}
/* Success */
return (TRUE);
}
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 read_scroll(object_type *o_ptr, bool *ident)
{
int py = p_ptr->py;
int px = p_ptr->px;
int k;
bool used_up = TRUE;
/* Analyze the scroll */
switch (o_ptr->sval)
{
case SV_SCROLL_DARKNESS:
{
if (!p_ptr->resist_blind)
{
(void)set_blind(p_ptr->blind + 3 + randint(5));
}
if (unlite_area(10, 3)) *ident = TRUE;
break;
}
case SV_SCROLL_AGGRAVATE_MONSTER:
{
msg_print("There is a high pitched humming noise.");
aggravate_monsters(0);
*ident = TRUE;
break;
}
case SV_SCROLL_CURSE_ARMOR:
{
if (curse_armor()) *ident = TRUE;
break;
}
case SV_SCROLL_CURSE_WEAPON:
{
if (curse_weapon()) *ident = TRUE;
break;
}
case SV_SCROLL_SUMMON_MONSTER:
{
for (k = 0; k < randint(3); k++)
{
if (summon_specific(py, px, p_ptr->depth, 0))
{
*ident = TRUE;
}
}
break;
}
case SV_SCROLL_SUMMON_UNDEAD:
{
for (k = 0; k < randint(3); k++)
{
if (summon_specific(py, px, p_ptr->depth, SUMMON_UNDEAD))
{
*ident = TRUE;
}
}
break;
}
case SV_SCROLL_TRAP_CREATION:
{
if (trap_creation()) *ident = TRUE;
break;
}
case SV_SCROLL_PHASE_DOOR:
{
teleport_player(10);
*ident = TRUE;
break;
}
case SV_SCROLL_TELEPORT:
{
teleport_player(100);
*ident = TRUE;
break;
}
case SV_SCROLL_TELEPORT_LEVEL:
{
(void)teleport_player_level();
*ident = TRUE;
break;
}
case SV_SCROLL_WORD_OF_RECALL:
{
set_recall();
*ident = TRUE;
break;
}
case SV_SCROLL_IDENTIFY:
{
*ident = TRUE;
if (!ident_spell()) used_up = FALSE;
break;
}
case SV_SCROLL_STAR_IDENTIFY:
{
*ident = TRUE;
if (!identify_fully()) used_up = FALSE;
break;
}
case SV_SCROLL_REMOVE_CURSE:
{
if (remove_curse())
{
msg_print("You feel as if someone is watching over you.");
*ident = TRUE;
}
break;
}
case SV_SCROLL_STAR_REMOVE_CURSE:
{
remove_all_curse();
*ident = TRUE;
break;
}
case SV_SCROLL_ENCHANT_ARMOR:
{
*ident = TRUE;
if (!enchant_spell(0, 0, 1)) used_up = FALSE;
break;
}
case SV_SCROLL_ENCHANT_WEAPON_TO_HIT:
{
if (!enchant_spell(1, 0, 0)) used_up = FALSE;
*ident = TRUE;
break;
}
case SV_SCROLL_ENCHANT_WEAPON_TO_DAM:
{
if (!enchant_spell(0, 1, 0)) used_up = FALSE;
*ident = TRUE;
break;
}
case SV_SCROLL_STAR_ENCHANT_ARMOR:
{
if (!enchant_spell(0, 0, randint(3) + 2)) used_up = FALSE;
*ident = TRUE;
break;
}
case SV_SCROLL_STAR_ENCHANT_WEAPON:
{
if (!enchant_spell(randint(3), randint(3), 0)) used_up = FALSE;
*ident = TRUE;
break;
}
case SV_SCROLL_RECHARGING:
{
if (!recharge(60)) used_up = FALSE;
*ident = TRUE;
break;
}
case SV_SCROLL_LIGHT:
{
if (lite_area(damroll(2, 8), 2)) *ident = TRUE;
break;
}
case SV_SCROLL_MAPPING:
{
map_area();
*ident = TRUE;
break;
}
case SV_SCROLL_DETECT_GOLD:
{
if (detect_treasure()) *ident = TRUE;
if (detect_objects_gold()) *ident = TRUE;
break;
}
case SV_SCROLL_DETECT_ITEM:
{
if (detect_objects_normal()) *ident = TRUE;
break;
}
case SV_SCROLL_DETECT_TRAP:
{
if (detect_traps()) *ident = TRUE;
break;
}
case SV_SCROLL_DETECT_DOOR:
{
if (detect_doors()) *ident = TRUE;
if (detect_stairs()) *ident = TRUE;
break;
}
case SV_SCROLL_DETECT_INVIS:
{
if (detect_monsters_invis()) *ident = TRUE;
break;
}
case SV_SCROLL_SATISFY_HUNGER:
{
if (set_food(PY_FOOD_MAX - 1)) *ident = TRUE;
break;
}
case SV_SCROLL_BLESSING:
{
if (set_blessed(p_ptr->blessed + randint(12) + 6)) *ident = TRUE;
break;
}
case SV_SCROLL_HOLY_CHANT:
{
if (set_blessed(p_ptr->blessed + randint(24) + 12)) *ident = TRUE;
break;
}
case SV_SCROLL_HOLY_PRAYER:
{
if (set_blessed(p_ptr->blessed + randint(48) + 24)) *ident = TRUE;
break;
}
case SV_SCROLL_MONSTER_CONFUSION:
{
if (p_ptr->confusing == 0)
{
msg_print("Your hands begin to glow.");
p_ptr->confusing = TRUE;
*ident = TRUE;
}
break;
}
case SV_SCROLL_PROTECTION_FROM_EVIL:
{
k = 3 * p_ptr->lev;
if (set_protevil(p_ptr->protevil + randint(25) + k)) *ident = TRUE;
break;
}
case SV_SCROLL_RUNE_OF_PROTECTION:
{
warding_glyph();
*ident = TRUE;
break;
}
case SV_SCROLL_TRAP_DOOR_DESTRUCTION:
{
if (destroy_doors_touch()) *ident = TRUE;
break;
}
case SV_SCROLL_STAR_DESTRUCTION:
{
destroy_area(py, px, 15, TRUE);
*ident = TRUE;
break;
}
case SV_SCROLL_DISPEL_UNDEAD:
{
if (dispel_undead(60)) *ident = TRUE;
break;
}
case SV_SCROLL_BANISHMENT:
{
(void)banishment();
*ident = TRUE;
break;
}
case SV_SCROLL_MASS_BANISHMENT:
{
(void)mass_banishment();
*ident = TRUE;
break;
}
case SV_SCROLL_ACQUIREMENT:
{
acquirement(py, px, 1, TRUE);
*ident = TRUE;
break;
}
case SV_SCROLL_STAR_ACQUIREMENT:
{
acquirement(py, px, randint(2) + 1, TRUE);
*ident = TRUE;
break;
}
}
return (used_up);
}
/*
* Activate a wielded object. Wielded objects never stack.
* And even if they did, activatable objects never stack.
*
* Currently, only (some) artifacts, and Dragon Scale Mail, can be activated.
* But one could, for example, easily make an activatable "Ring of Plasma".
*
* Note that it always takes a turn to activate an artifact, even if
* the user hits "escape" at the "direction" prompt.
*/
static bool activate_object(object_type *o_ptr, bool *ident)
{
int k, dir, i, chance;
/* Check the recharge */
if (o_ptr->timeout)
{
msg_print("It whines, glows and fades...");
return FALSE;
}
/* Activate the artifact */
message(MSG_ZAP, 0, "You activate it...");
/* Artifacts */
if (o_ptr->name1)
{
artifact_type *a_ptr = &a_info[o_ptr->name1];
char o_name[80];
/* Get the basic name of the object */
object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 0);
switch (a_ptr->activation)
{
case ACT_ILLUMINATION:
{
msg_format("The %s wells with clear light...", o_name);
lite_area(damroll(2, 15), 3);
break;
}
case ACT_MAGIC_MAP:
{
msg_format("The %s shines brightly...", o_name);
map_area();
break;
}
case ACT_CLAIRVOYANCE:
{
msg_format("The %s glows a deep green...", o_name);
wiz_lite();
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
break;
}
case ACT_PROT_EVIL:
{
msg_format("The %s lets out a shrill wail...", o_name);
k = 3 * p_ptr->lev;
(void)set_protevil(p_ptr->protevil + randint(25) + k);
break;
}
case ACT_DISP_EVIL:
{
msg_format("The %s floods the area with goodness...", o_name);
dispel_evil(p_ptr->lev * 5);
break;
}
case ACT_HASTE2:
{
msg_format("The %s glows brightly...", o_name);
if (!p_ptr->fast)
{
(void)set_fast(randint(75) + 75);
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case ACT_FIRE3:
{
msg_format("The %s glows deep red...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_FIRE, dir, 120, 3);
break;
}
case ACT_FROST5:
{
msg_format("The %s glows bright white...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 200, 3);
break;
}
case ACT_ELEC2:
{
msg_format("The %s glows deep blue...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_ELEC, dir, 250, 3);
break;
}
case ACT_BIZZARE:
{
msg_format("The %s glows intensely black...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
ring_of_power(dir);
break;
}
case ACT_STAR_BALL:
{
msg_format("Your %s is surrounded by lightning...", o_name);
for (i = 0; i < 8; i++) fire_ball(GF_ELEC, ddd[i], 150, 3);
break;
}
case ACT_RAGE_BLESS_RESIST:
{
msg_format("Your %s glows many colours...", o_name);
(void)hp_player(30);
(void)set_afraid(0);
(void)set_shero(p_ptr->shero + randint(50) + 50);
(void)set_blessed(p_ptr->blessed + randint(50) + 50);
(void)set_oppose_acid(p_ptr->oppose_acid + randint(50) + 50);
(void)set_oppose_elec(p_ptr->oppose_elec + randint(50) + 50);
(void)set_oppose_fire(p_ptr->oppose_fire + randint(50) + 50);
(void)set_oppose_cold(p_ptr->oppose_cold + randint(50) + 50);
(void)set_oppose_pois(p_ptr->oppose_pois + randint(50) + 50);
break;
}
case ACT_HEAL2:
{
msg_format("Your %s glows a bright white...", o_name);
msg_print("You feel much better...");
(void)hp_player(1000);
(void)set_cut(0);
break;
}
case ACT_PHASE:
{
msg_format("Your %s twists space around you...", o_name);
teleport_player(10);
break;
}
case ACT_BANISHMENT:
{
msg_format("Your %s glows deep blue...", o_name);
(void)banishment();
break;
}
case ACT_TRAP_DOOR_DEST:
{
msg_format("Your %s glows bright red...", o_name);
destroy_doors_touch();
break;
}
case ACT_DETECT:
{
msg_format("Your %s glows bright white...", o_name);
msg_print("An image forms in your mind...");
detect_all();
break;
}
case ACT_HEAL1:
{
msg_format("Your %s glows deep blue...", o_name);
msg_print("You feel a warm tingling inside...");
(void)hp_player(500);
(void)set_cut(0);
break;
}
case ACT_RESIST:
{
msg_format("Your %s glows many colours...", o_name);
(void)set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20);
(void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20);
(void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20);
(void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20);
(void)set_oppose_pois(p_ptr->oppose_pois + randint(20) + 20);
break;
}
case ACT_SLEEP:
{
msg_format("Your %s glows deep blue...", o_name);
sleep_monsters_touch();
break;
}
case ACT_RECHARGE1:
{
msg_format("Your %s glows bright yellow...", o_name);
recharge(60);
break;
}
case ACT_TELEPORT:
{
msg_format("Your %s twists space around you...", o_name);
teleport_player(100);
break;
}
case ACT_RESTORE_LIFE:
{
msg_format("Your %s glows a deep red...", o_name);
restore_level();
break;
}
case ACT_MISSILE:
{
msg_format("Your %s glows extremely brightly...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_MISSILE, dir, damroll(2, 6));
break;
}
case ACT_FIRE1:
{
msg_format("Your %s is covered in fire...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_FIRE, dir, damroll(9, 8));
break;
}
case ACT_FROST1:
{
msg_format("Your %s is covered in frost...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_COLD, dir, damroll(6, 8));
break;
}
case ACT_LIGHTNING_BOLT:
{
msg_format("Your %s is covered in sparks...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_ELEC, dir, damroll(4, 8));
break;
}
case ACT_ACID1:
{
msg_format("Your %s is covered in acid...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_ACID, dir, damroll(5, 8));
break;
}
case ACT_ARROW:
{
msg_format("Your %s grows magical spikes...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_ARROW, dir, 150);
break;
}
case ACT_HASTE1:
{
msg_format("Your %s glows bright green...", o_name);
if (!p_ptr->fast)
{
(void)set_fast(randint(20) + 20);
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case ACT_REM_FEAR_POIS:
{
msg_format("Your %s glows deep blue...", o_name);
(void)set_afraid(0);
(void)set_poisoned(0);
break;
}
case ACT_STINKING_CLOUD:
{
msg_format("Your %s throbs deep green...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_POIS, dir, 12, 3);
break;
}
case ACT_FROST2:
{
msg_format("Your %s is covered in frost...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 48, 2);
break;
}
case ACT_FROST4:
{
msg_format("Your %s glows a pale blue...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_COLD, dir, damroll(12, 8));
break;
}
case ACT_FROST3:
{
msg_format("Your %s glows a intense blue...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 100, 2);
break;
}
case ACT_FIRE2:
{
msg_format("Your %s rages in fire...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_FIRE, dir, 72, 2);
break;
}
case ACT_DRAIN_LIFE2:
{
msg_format("Your %s glows black...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
drain_life(dir, 120);
break;
}
case ACT_STONE_TO_MUD:
{
msg_format("Your %s pulsates...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
wall_to_mud(dir);
break;
}
case ACT_MASS_BANISHMENT:
{
msg_format("Your %s lets out a long, shrill note...", o_name);
(void)mass_banishment();
break;
}
case ACT_CURE_WOUNDS:
{
msg_format("Your %s radiates deep purple...", o_name);
hp_player(damroll(4, 8));
(void)set_cut((p_ptr->cut / 2) - 50);
break;
}
case ACT_TELE_AWAY:
{
msg_format("Your %s glows deep red...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
teleport_monster(dir);
break;
}
case ACT_WOR:
{
msg_format("Your %s glows soft white...", o_name);
set_recall();
break;
}
case ACT_CONFUSE:
{
msg_format("Your %s glows in scintillating colours...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
confuse_monster(dir, 20);
break;
}
case ACT_IDENTIFY:
{
msg_format("Your %s glows yellow...", o_name);
if (!ident_spell()) return FALSE;
break;
}
case ACT_PROBE:
{
msg_format("Your %s glows brightly...", o_name);
probing();
break;
}
case ACT_DRAIN_LIFE1:
{
msg_format("Your %s glows white...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
drain_life(dir, 90);
break;
}
case ACT_FIREBRAND:
{
msg_format("Your %s glows deep red...", o_name);
(void)brand_bolts();
break;
}
case ACT_STARLIGHT:
{
msg_format("Your %s glows with the light of a thousand stars...", o_name);
for (k = 0; k < 8; k++) strong_lite_line(ddd[k]);
break;
}
case ACT_MANA_BOLT:
{
msg_format("Your %s glows white...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_MANA, dir, damroll(12, 8));
break;
}
case ACT_BERSERKER:
{
msg_format("Your %s glows in anger...", o_name);
set_shero(p_ptr->shero + randint(50) + 50);
break;
}
}
/* Set the recharge time */
if (a_ptr->randtime)
o_ptr->timeout = a_ptr->time + (byte)randint(a_ptr->randtime);
else
o_ptr->timeout = a_ptr->time;
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP);
/* Done */
return FALSE;
}
/* Hack -- Dragon Scale Mail can be activated as well */
if (o_ptr->tval == TV_DRAG_ARMOR)
{
/* Get a direction for breathing (or abort) */
if (!get_aim_dir(&dir)) return FALSE;
/* Branch on the sub-type */
switch (o_ptr->sval)
{
case SV_DRAGON_BLUE:
{
msg_print("You breathe lightning.");
fire_ball(GF_ELEC, dir, 100, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_WHITE:
{
msg_print("You breathe frost.");
fire_ball(GF_COLD, dir, 110, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_BLACK:
{
msg_print("You breathe acid.");
fire_ball(GF_ACID, dir, 130, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_GREEN:
{
msg_print("You breathe poison gas.");
fire_ball(GF_POIS, dir, 150, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_RED:
{
msg_print("You breathe fire.");
fire_ball(GF_FIRE, dir, 200, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_MULTIHUED:
{
chance = rand_int(5);
msg_format("You breathe %s.",
((chance == 1) ? "lightning" :
((chance == 2) ? "frost" :
((chance == 3) ? "acid" :
((chance == 4) ? "poison gas" : "fire")))));
fire_ball(((chance == 1) ? GF_ELEC :
((chance == 2) ? GF_COLD :
((chance == 3) ? GF_ACID :
((chance == 4) ? GF_POIS : GF_FIRE)))),
dir, 250, 2);
o_ptr->timeout = rand_int(225) + 225;
break;
}
case SV_DRAGON_BRONZE:
{
msg_print("You breathe confusion.");
fire_ball(GF_CONFUSION, dir, 120, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_GOLD:
{
msg_print("You breathe sound.");
fire_ball(GF_SOUND, dir, 130, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_CHAOS:
{
chance = rand_int(2);
msg_format("You breathe %s.",
((chance == 1 ? "chaos" : "disenchantment")));
fire_ball((chance == 1 ? GF_CHAOS : GF_DISENCHANT),
dir, 220, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_LAW:
{
chance = rand_int(2);
msg_format("You breathe %s.",
((chance == 1 ? "sound" : "shards")));
fire_ball((chance == 1 ? GF_SOUND : GF_SHARD),
dir, 230, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_BALANCE:
{
chance = rand_int(4);
msg_format("You breathe %s.",
((chance == 1) ? "chaos" :
((chance == 2) ? "disenchantment" :
((chance == 3) ? "sound" : "shards"))));
fire_ball(((chance == 1) ? GF_CHAOS :
((chance == 2) ? GF_DISENCHANT :
((chance == 3) ? GF_SOUND : GF_SHARD))),
dir, 250, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_SHINING:
{
chance = rand_int(2);
msg_format("You breathe %s.",
((chance == 0 ? "light" : "darkness")));
fire_ball((chance == 0 ? GF_LITE : GF_DARK), dir, 200, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_POWER:
{
msg_print("You breathe the elements.");
fire_ball(GF_MISSILE, dir, 300, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
}
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP);
/* Success */
return FALSE;
}
/* Hack -- some Rings can be activated for double resist and element ball */
if (o_ptr->tval == TV_RING)
{
/* Get a direction for firing (or abort) */
if (!get_aim_dir(&dir)) return FALSE;
/* Branch on the sub-type */
switch (o_ptr->sval)
{
case SV_RING_ACID:
{
fire_ball(GF_ACID, dir, 70, 2);
set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
case SV_RING_FLAMES:
{
fire_ball(GF_FIRE, dir, 80, 2);
set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
case SV_RING_ICE:
{
fire_ball(GF_COLD, dir, 75, 2);
set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
case SV_RING_LIGHTNING:
{
fire_ball(GF_ELEC, dir, 85, 2);
set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
}
/* Window stuff */
p_ptr->window |= (PW_EQUIP);
/* Success */
return FALSE;
}
/* Mistake */
msg_print("Oops. That object cannot be activated.");
/* Not used up */
return (FALSE);
}
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);
}
/*
* do_cmd_mind calls this function if the player's class
* is 'Naturalist'.
*/
static bool cast_nature_spell(int spell)
{
/* this will vary based on the spells, and what they depend on */
int plev = p_ptr->lev;
int dir;
int px = p_ptr->px;
int py = p_ptr->py;
/* spell code */
switch (spell)
{
case 0: /* Detect Creatures */
(void)detect_monsters_normal();
break;
case 1: /* First Aid */
(void)hp_player(damroll(2, 8));
(void)set_cut(p_ptr->cut - 15);
break;
case 2: /* Detect Doors + Traps */
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
break;
case 3: /* Produce Food */
(void)set_food(PY_FOOD_MAX - 1);
break;
case 4: /* Daylight */
(void)lite_area(damroll(2, (plev / 2)), (plev / 10) + 1);
break;
case 5: /* Animal Taming */
if (!get_aim_dir(&dir)) return FALSE;
(void)charm_animal(dir, plev);
break;
case 6: /* Resist Environment */
(void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20);
(void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20);
(void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20);
break;
case 7: /* Cure Wounds + Poison */
(void)hp_player(damroll(plev, 8));
(void)set_cut(0);
(void)set_poisoned(0);
break;
case 8: /* Stone to Mud */
if (!get_aim_dir(&dir)) return FALSE;
(void)wall_to_mud(dir);
break;
case 9: /* Lightning Bolt */
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt_or_beam(100, GF_ELEC, dir,
damroll(3 + ((plev - 5) / 4), 8));
break;
case 10: /* Ray of Sunlight */
if (!get_aim_dir(&dir)) return FALSE;
msg_print("A line of sunlight appears.");
(void)lite_line(dir);
break;
case 11: /* Entangle */
slow_monsters();
break;
case 12: /* Stone Skin */
(void)set_shield(p_ptr->shield + randint(20) + 30);
break;
case 13: /* Resistance True */
(void)set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20);
(void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20);
(void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20);
(void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20);
(void)set_oppose_pois(p_ptr->oppose_pois + randint(20) + 20);
break;
case 14: /* Stone Tell */
return identify_fully();
case 15: /* Earthquake */
earthquake(py, px, 10);
break;
case 16: /* Blizzard */
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 70 + plev, (plev / 12) + 1);
break;
case 17: /* Lightning Storm */
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_ELEC, dir, 90 + plev, (plev / 12) + 1);
break;
case 18: /* Whirlpool */
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_WATER, dir, 100 + plev, (plev / 12) + 1);
break;
case 19: /* Call Sunlight */
fire_ball(GF_LITE, 0, 150, 8);
wiz_lite();
break;
case 20: /* Nature's Wrath */
(void)dispel_monsters(plev * 4);
earthquake(py, px, 20 + (plev / 2));
project(0, 1 + plev / 12, py, px,
100 + plev, GF_DISINTEGRATE, PROJECT_KILL | PROJECT_ITEM);
break;
default:
msg_format("You cast an unknown Nature spell: %d.", spell);
msg_print(NULL);
}
return TRUE;
}
/*
* do_cmd_mind calls this function if the player's class
* is 'Reckoner'.
*/
static bool cast_reckoner_spell(int spell)
{
/* this will vary based on the spells, and what they depend on */
int plev = p_ptr->lev;
int b;
int py = p_ptr->py;
int px = p_ptr->px;
int dir;
/* spell code */
switch (spell)
{
case 0:
if (plev < 30)
{
teleport_player(plev);
}
else
{
teleport_player(plev * 3);
}
break;
case 1:
b = (randint(50) + plev);
if (b < 10)
{
unlite_area(randint(plev *2), (randint(plev / 5) + 2));
}
else if (b < 25)
{
unlite_room(py, px);
}
else if (b < 50)
{
lite_room(py, px);
}
else
{
lite_area(randint(plev * 2), (randint(plev / 5) + 3));
}
break;
case 2: b = (randint(50) + plev);
if (b < 20)
{
speed_monsters();
}
else if (b < 30)
{
slow_monsters();
}
else if (b < 55)
{
sleep_monsters();
}
else if (b < 75)
{
if (!p_ptr->fast)
{
(void)set_fast(randint(plev) + plev);
}
else
{
(void)set_fast(p_ptr->fast + randint(5));
}
break;
}
else
{
(void)set_fast(p_ptr->fast + b);
slow_monsters();
sleep_monsters();
}
break;
case 3: if (!get_aim_dir(&dir)) return FALSE;
(void)fire_bolt(GF_NETHER, dir,
damroll((plev / 2), (3 + plev / 3)));
break;
case 4: if (!get_aim_dir(&dir)) return FALSE;
(void)wall_to_mud(dir);
break;
case 5: (void)hp_player(damroll((plev / 3), plev));
(void)set_cut(0);
break;
case 6: set_recall(); break;
case 7: if (!get_aim_dir(&dir)) return FALSE;
(void)poly_monster(dir);
break;
case 8: if (plev < 40)
{
map_area();
(void)set_tim_esp(p_ptr->tim_esp + 10);
}
else
{
wiz_lite();
(void)set_tim_esp(p_ptr->tim_esp + plev);
}
break;
case 9: msg_print("The world changes!");
/* Leaving */
p_ptr->leaving = TRUE;
break;
case 10: break;
case 11: break;
case 12: break;
case 13: break;
case 14: break;
case 15: break;
case 16: break;
case 17: break;
case 18: break;
case 19: break;
case 20: break;
}
return TRUE;
}
/*
* Activate a wielded object. Wielded objects never stack.
* And even if they did, activatable objects never stack.
*
* Currently, only (some) artifacts, and Dragon Scale Mail, can be activated.
* But one could, for example, easily make an activatable "Ring of Plasma".
*
* Note that it always takes a turn to activate an artifact, even if
* the user hits "escape" at the "direction" prompt.
*/
static bool activate_object(object_type *o_ptr, bool *ident)
{
int k, dir, i, chance, rod;
char o_name[80];
/* Get the basic name of the object */
rod = object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 0, PAD_IMEN);
/* Check the recharge */
if (o_ptr->timeout)
{
msg_format("Он%s светится и затухает...",
(rod == ROD_M ? "" : rod == ROD_F ? "а" : rod == ROD_N ? "о" : "и"));
return FALSE;
}
/* Activate the artifact */
message(MSG_ZAP, 0, "Вы активируете его...");
/* Artifacts */
if (o_ptr->name1)
{
artifact_type *a_ptr = &a_info[o_ptr->name1];
switch (a_ptr->activation)
{
case ACT_ILLUMINATION:
{
msg_format("%s озаряется чистым светом...", o_name);
lite_area(damroll(2, 15), 3);
break;
}
case ACT_MAGIC_MAP:
{
msg_format("%s ярко сверкает...", o_name);
map_area();
break;
}
case ACT_CLAIRVOYANCE:
{
msg_format("%s светится глубоким зеленым...", o_name);
wiz_lite();
(void)detect_traps();
(void)detect_doors();
(void)detect_stairs();
break;
}
case ACT_PROT_EVIL:
{
msg_format("%s издает протяжный стон...", o_name);
k = 3 * p_ptr->lev;
(void)set_protevil(p_ptr->protevil + randint(25) + k);
break;
}
case ACT_DISP_EVIL:
{
msg_format("%s заполняет подземелье добром...", o_name);
dispel_evil(p_ptr->lev * 5);
break;
}
case ACT_HASTE2:
{
msg_format("%s ярко светится...", o_name);
if (!p_ptr->fast)
{
(void)set_fast(randint(75) + 75);
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case ACT_FIRE3:
{
msg_format("%s светится глубоким красным...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_FIRE, dir, 120, 3);
break;
}
case ACT_FROST5:
{
msg_format("%s светится ярко-белым...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 200, 3);
break;
}
case ACT_ELEC2:
{
msg_format("%s светится глубоким синим...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_ELEC, dir, 250, 3);
break;
}
case ACT_BIZZARE:
{
msg_format("%s светится черным...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
ring_of_power(dir);
break;
}
case ACT_STAR_BALL:
{
msg_format("%s окружается молнией...", o_name);
for (i = 0; i < 8; i++) fire_ball(GF_ELEC, ddd[i], 150, 3);
break;
}
case ACT_RAGE_BLESS_RESIST:
{
msg_format("%s светится всеми цветами...", o_name);
(void)hp_player(30);
(void)set_afraid(0);
(void)set_shero(p_ptr->shero + randint(50) + 50);
(void)set_blessed(p_ptr->blessed + randint(50) + 50);
(void)set_oppose_acid(p_ptr->oppose_acid + randint(50) + 50);
(void)set_oppose_elec(p_ptr->oppose_elec + randint(50) + 50);
(void)set_oppose_fire(p_ptr->oppose_fire + randint(50) + 50);
(void)set_oppose_cold(p_ptr->oppose_cold + randint(50) + 50);
(void)set_oppose_pois(p_ptr->oppose_pois + randint(50) + 50);
break;
}
case ACT_HEAL2:
{
msg_format("%s светится ярким белым...", o_name);
msg_print("Вы чувствуете себя намного лучше...");
(void)hp_player(1000);
(void)set_cut(0);
break;
}
case ACT_PHASE:
{
msg_format("%s искривляет пространство вокруг вас...", o_name);
teleport_player(10);
break;
}
case ACT_BANISHMENT:
{
msg_format("%s светится угрожающим синим...", o_name);
if (!banishment()) return FALSE;
break;
}
case ACT_TRAP_DOOR_DEST:
{
msg_format("%s светится ярко-красным...", o_name);
destroy_doors_touch();
break;
}
case ACT_DETECT:
{
msg_format("%s светится лучистым белым...", o_name);
msg_print("Изображение формируется в вашей голове...");
detect_all();
break;
}
case ACT_HEAL1:
{
msg_format("%s светится спокойным синим...", o_name);
msg_print("Вы чувствуете теплое покалывание...");
(void)hp_player(500);
(void)set_cut(0);
break;
}
case ACT_RESIST:
{
msg_format("%s светится цветами радуги...", o_name);
(void)set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20);
(void)set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20);
(void)set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20);
(void)set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20);
(void)set_oppose_pois(p_ptr->oppose_pois + randint(20) + 20);
break;
}
case ACT_SLEEP:
{
msg_format("%s светится ярко-синим...", o_name);
sleep_monsters_touch();
break;
}
case ACT_RECHARGE1:
{
msg_format("%s светится ярко-желтым...", o_name);
recharge(60);
break;
}
case ACT_TELEPORT:
{
msg_format("%s распрямляет пространство вокруг вас...", o_name);
teleport_player(100);
break;
}
case ACT_RESTORE_LIFE:
{
msg_format("%s светится спокойным красным...", o_name);
restore_level();
break;
}
case ACT_MISSILE:
{
msg_format("%s ярко горит...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_MISSILE, dir, damroll(2, 6));
break;
}
case ACT_FIRE1:
{
msg_format("%s покрывается пламенем...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_FIRE, dir, damroll(9, 8));
break;
}
case ACT_FROST1:
{
msg_format("%s излучает холод...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_COLD, dir, damroll(6, 8));
break;
}
case ACT_LIGHTNING_BOLT:
{
msg_format("%s сыплет искрамиs...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_ELEC, dir, damroll(4, 8));
break;
}
case ACT_ACID1:
{
msg_format("%s покрывается кислотой...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_ACID, dir, damroll(5, 8));
break;
}
case ACT_ARROW:
{
msg_format("%s покрывается шипами...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_ARROW, dir, 150);
break;
}
case ACT_HASTE1:
{
msg_format("%s светится ярко-зеленым...", o_name);
if (!p_ptr->fast)
{
(void)set_fast(randint(20) + 20);
}
else
{
(void)set_fast(p_ptr->fast + 5);
}
break;
}
case ACT_REM_FEAR_POIS:
{
msg_format("%s вспыхивает синим...", o_name);
(void)set_afraid(0);
(void)set_poisoned(0);
break;
}
case ACT_STINKING_CLOUD:
{
msg_format("%s светится ядовито-зеленым...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_POIS, dir, 12, 3);
break;
}
case ACT_FROST2:
{
msg_format("%s покрывается инеем...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 48, 2);
break;
}
case ACT_FROST4:
{
msg_format("%s горит бледно-синим...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_COLD, dir, damroll(12, 8));
break;
}
case ACT_FROST3:
{
msg_format("%s светится насыщенным синим...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_COLD, dir, 100, 2);
break;
}
case ACT_FIRE2:
{
msg_format("%s пылает огнем...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_ball(GF_FIRE, dir, 72, 2);
break;
}
case ACT_DRAIN_LIFE2:
{
msg_format("%s светится черным...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
drain_life(dir, 120);
break;
}
case ACT_STONE_TO_MUD:
{
msg_format("%s пульсирует...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
wall_to_mud(dir);
break;
}
case ACT_MASS_BANISHMENT:
{
msg_format("%s издает протяжную ноту...", o_name);
(void)mass_banishment();
break;
}
case ACT_CURE_WOUNDS:
{
msg_format("%s светится глубоким фиолетовым...", o_name);
hp_player(damroll(4, 8));
(void)set_cut((p_ptr->cut / 2) - 50);
break;
}
case ACT_TELE_AWAY:
{
msg_format("%s вспыхивает глубоким красным...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
teleport_monster(dir);
break;
}
case ACT_WOR:
{
msg_format("%s светится мягким белым...", o_name);
set_recall();
break;
}
case ACT_CONFUSE:
{
msg_format("%s светится странными цветами...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
confuse_monster(dir, 20);
break;
}
case ACT_IDENTIFY:
{
msg_format("%s вспыхивает желтым...", o_name);
if (!ident_spell()) return FALSE;
break;
}
case ACT_PROBE:
{
msg_format("%s ярко загорается...", o_name);
probing();
break;
}
case ACT_DRAIN_LIFE1:
{
msg_format("%s горит белым...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
drain_life(dir, 90);
break;
}
case ACT_FIREBRAND:
{
msg_format("%s светится огненно-красным...", o_name);
(void)brand_bolts();
break;
}
case ACT_STARLIGHT:
{
msg_format("%s вспыхивает светом тысячи звезд...", o_name);
for (k = 0; k < 8; k++) strong_lite_line(ddd[k]);
break;
}
case ACT_MANA_BOLT:
{
msg_format("%s светится белым...", o_name);
if (!get_aim_dir(&dir)) return FALSE;
fire_bolt(GF_MANA, dir, damroll(12, 8));
break;
}
case ACT_BERSERKER:
{
msg_format("%s горит яростью...", o_name);
set_shero(p_ptr->shero + randint(50) + 50);
break;
}
}
/* Set the recharge time */
if (a_ptr->randtime)
o_ptr->timeout = a_ptr->time + (byte)randint(a_ptr->randtime);
else
o_ptr->timeout = a_ptr->time;
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP);
/* Done */
return FALSE;
}
/* Hack -- Dragon Scale Mail can be activated as well */
if (o_ptr->tval == TV_DRAG_ARMOR)
{
/* Get a direction for breathing (or abort) */
if (!get_aim_dir(&dir)) return FALSE;
/* Branch on the sub-type */
switch (o_ptr->sval)
{
case SV_DRAGON_BLUE:
{
msg_print("Вы дышите молнией.");
fire_ball(GF_ELEC, dir, 100, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_WHITE:
{
msg_print("Вы дышите холодом.");
fire_ball(GF_COLD, dir, 110, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_BLACK:
{
msg_print("Вы дышите кислотой.");
fire_ball(GF_ACID, dir, 130, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_GREEN:
{
msg_print("Вы дышите ядовитым газом.");
fire_ball(GF_POIS, dir, 150, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_RED:
{
msg_print("Вы дышите огнем.");
fire_ball(GF_FIRE, dir, 200, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_MULTIHUED:
{
chance = rand_int(5);
msg_format("Вы дышите %s.",
((chance == 1) ? "молнией" :
((chance == 2) ? "холодом" :
((chance == 3) ? "кислотой" :
((chance == 4) ? "ядовитым газом" : "огнем")))));
fire_ball(((chance == 1) ? GF_ELEC :
((chance == 2) ? GF_COLD :
((chance == 3) ? GF_ACID :
((chance == 4) ? GF_POIS : GF_FIRE)))),
dir, 250, 2);
o_ptr->timeout = rand_int(225) + 225;
break;
}
case SV_DRAGON_BRONZE:
{
msg_print("Вы дышите контузией.");
fire_ball(GF_CONFUSION, dir, 120, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_GOLD:
{
msg_print("Вы дышите звуком.");
fire_ball(GF_SOUND, dir, 130, 2);
o_ptr->timeout = rand_int(450) + 450;
break;
}
case SV_DRAGON_CHAOS:
{
chance = rand_int(2);
msg_format("Вы дышите %s.",
((chance == 1 ? "хаосом" : "антимагией")));
fire_ball((chance == 1 ? GF_CHAOS : GF_DISENCHANT),
dir, 220, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_LAW:
{
chance = rand_int(2);
msg_format("Вы дышите %s.",
((chance == 1 ? "звуком" : "осколками")));
fire_ball((chance == 1 ? GF_SOUND : GF_SHARD),
dir, 230, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_BALANCE:
{
chance = rand_int(4);
msg_format("Вы дышите %s.",
((chance == 1) ? "хаосом" :
((chance == 2) ? "антимагией" :
((chance == 3) ? "звуком" : "осколками"))));
fire_ball(((chance == 1) ? GF_CHAOS :
((chance == 2) ? GF_DISENCHANT :
((chance == 3) ? GF_SOUND : GF_SHARD))),
dir, 250, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_SHINING:
{
chance = rand_int(2);
msg_format("Вы дышите %s.",
((chance == 0 ? "светом" : "темнотой")));
fire_ball((chance == 0 ? GF_LITE : GF_DARK), dir, 200, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
case SV_DRAGON_POWER:
{
msg_print("Вы дышите элементами.");
fire_ball(GF_MISSILE, dir, 300, 2);
o_ptr->timeout = rand_int(300) + 300;
break;
}
}
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP);
/* Success */
return FALSE;
}
/* Hack -- some Rings can be activated for double resist and element ball */
if (o_ptr->tval == TV_RING)
{
/* Get a direction for firing (or abort) */
if (!get_aim_dir(&dir)) return FALSE;
/* Branch on the sub-type */
switch (o_ptr->sval)
{
case SV_RING_ACID:
{
fire_ball(GF_ACID, dir, 70, 2);
set_oppose_acid(p_ptr->oppose_acid + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
case SV_RING_FLAMES:
{
fire_ball(GF_FIRE, dir, 80, 2);
set_oppose_fire(p_ptr->oppose_fire + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
case SV_RING_ICE:
{
fire_ball(GF_COLD, dir, 75, 2);
set_oppose_cold(p_ptr->oppose_cold + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
case SV_RING_LIGHTNING:
{
fire_ball(GF_ELEC, dir, 85, 2);
set_oppose_elec(p_ptr->oppose_elec + randint(20) + 20);
o_ptr->timeout = rand_int(50) + 50;
break;
}
}
/* Window stuff */
p_ptr->window |= (PW_EQUIP);
/* Success */
return FALSE;
}
/* Mistake */
msg_print("Oops. That object cannot be activated.");
/* Not used up */
return (FALSE);
}
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;
}
