static bool cast_mage_spell(int spell, int dir)
{
int py = p_ptr->py;
int px = p_ptr->px;
int plev = p_ptr->lev;
/* Hack -- chance of "beam" instead of "bolt" */
int beam = beam_chance();
/* Spells. */
switch (spell)
{
case SPELL_MAGIC_MISSILE:
{
fire_bolt_or_beam(beam-10, GF_MISSILE, dir,
damroll(3 + ((plev - 1) / 5), 4));
break;
}
case SPELL_DETECT_MONSTERS:
{
(void)detect_monsters_normal(TRUE);
break;
}
case SPELL_PHASE_DOOR:
{
teleport_player(10);
break;
}
case SPELL_LIGHT_AREA:
{
(void)light_area(damroll(2, (plev / 2)), (plev / 10) + 1);
break;
}
case SPELL_TREASURE_DETECTION:
{
(void)detect_treasure(TRUE);
break;
}
case SPELL_CURE_LIGHT_WOUNDS:
{
(void)heal_player(15, 15);
(void)dec_timed(TMD_CUT, 20, TRUE);
(void)dec_timed(TMD_CONFUSED, 20, TRUE);
(void)clear_timed(TMD_BLIND, TRUE);
break;
}
case SPELL_FIND_TRAPS_DOORS:
{
(void)detect_traps(TRUE);
(void)detect_doorstairs(TRUE);
break;
}
case SPELL_STINKING_CLOUD:
{
fire_ball(GF_POIS, dir, 10 + (plev / 2), 2);
break;
}
case SPELL_CONFUSE_MONSTER:
{
(void)confuse_monster(dir, plev, TRUE);
break;
}
case SPELL_LIGHTNING_BOLT:
{
fire_beam(GF_ELEC, dir, damroll(3+((plev-5)/6), 6));
break;
}
case SPELL_TRAP_DOOR_DESTRUCTION:
{
(void)destroy_doors_touch();
break;
}
case SPELL_SLEEP_MONSTER:
{
(void)sleep_monster(dir, TRUE);
break;
}
case SPELL_CURE_POISON:
{
(void)clear_timed(TMD_POISONED, TRUE);
break;
}
case SPELL_TELEPORT_SELF:
{
teleport_player(plev * 5);
break;
}
case SPELL_SPEAR_OF_LIGHT:
{
msg("A line of blue shimmering light appears.");
light_line(dir);
break;
}
case SPELL_FROST_BOLT:
{
fire_bolt_or_beam(beam-10, GF_COLD, dir,
damroll(5+((plev-5)/4), 8));
break;
}
case SPELL_TURN_STONE_TO_MUD:
{
(void)wall_to_mud(dir);
break;
}
case SPELL_SATISFY_HUNGER:
{
(void)set_food(PY_FOOD_MAX - 1);
break;
}
case SPELL_RECHARGE_ITEM_I:
{
return recharge(2 + plev / 5);
}
case SPELL_WONDER:
{
(void)spell_wonder(dir);
break;
}
case SPELL_POLYMORPH_OTHER:
{
(void)poly_monster(dir);
break;
}
case SPELL_IDENTIFY:
{
return ident_spell();
}
case SPELL_MASS_SLEEP:
{
(void)sleep_monsters(TRUE);
break;
}
case SPELL_FIRE_BOLT:
{
fire_bolt_or_beam(beam, GF_FIRE, dir,
damroll(6+((plev-5)/4), 8));
break;
}
case SPELL_SLOW_MONSTER:
{
(void)slow_monster(dir);
break;
}
case SPELL_FROST_BALL:
{
fire_ball(GF_COLD, dir, 30 + (plev), 2);
break;
}
case SPELL_RECHARGE_ITEM_II: /* greater recharging */
{
return recharge(50 + plev);
}
case SPELL_TELEPORT_OTHER:
{
(void)teleport_monster(dir);
break;
}
case SPELL_BEDLAM:
{
fire_ball(GF_OLD_CONF, dir, plev, 4);
break;
}
case SPELL_FIRE_BALL:
{
fire_ball(GF_FIRE, dir, 55 + (plev), 2);
break;
}
case SPELL_WORD_OF_DESTRUCTION:
{
destroy_area(py, px, 15, TRUE);
break;
}
case SPELL_BANISHMENT:
{
return banishment();
break;
}
case SPELL_DOOR_CREATION:
{
(void)door_creation();
break;
}
case SPELL_STAIR_CREATION:
{
(void)stair_creation();
break;
}
case SPELL_TELEPORT_LEVEL:
{
(void)teleport_player_level();
break;
}
case SPELL_EARTHQUAKE:
{
earthquake(py, px, 10);
break;
}
case SPELL_WORD_OF_RECALL:
{
set_recall();
break;
}
case SPELL_ACID_BOLT:
{
fire_bolt_or_beam(beam, GF_ACID, dir, damroll(8+((plev-5)/4), 8));
break;
}
case SPELL_CLOUD_KILL:
{
fire_ball(GF_POIS, dir, 40 + (plev / 2), 3);
break;
}
case SPELL_ACID_BALL:
{
fire_ball(GF_ACID, dir, 40 + (plev), 2);
break;
}
case SPELL_ICE_STORM:
{
fire_ball(GF_ICE, dir, 50 + (plev * 2), 3);
break;
}
case SPELL_METEOR_SWARM:
{
fire_swarm(2 + plev / 20, GF_METEOR, dir, 30 + plev / 2, 1);
break;
}
case SPELL_MANA_STORM:
{
fire_ball(GF_MANA, dir, 300 + (plev * 2), 3);
break;
}
case SPELL_DETECT_INVISIBLE:
{
(void)detect_monsters_normal(TRUE);
(void)detect_monsters_invis(TRUE);
break;
}
case SPELL_DETECT_ENCHANTMENT:
{
(void)detect_objects_magic(TRUE);
break;
}
case SPELL_SHOCK_WAVE:
{
fire_ball(GF_SOUND, dir, 10 + plev, 2);
break;
}
case SPELL_EXPLOSION:
{
fire_ball(GF_SHARD, dir, 20 + (plev * 2), 2);
break;
}
case SPELL_MASS_BANISHMENT:
{
(void)mass_banishment();
break;
}
case SPELL_RESIST_FIRE:
{
(void)inc_timed(TMD_OPP_FIRE, randint1(20) + 20, TRUE);
break;
}
case SPELL_RESIST_COLD:
{
(void)inc_timed(TMD_OPP_COLD, randint1(20) + 20, TRUE);
break;
}
case SPELL_ELEMENTAL_BRAND: /* elemental brand */
{
return brand_ammo();
}
case SPELL_RESIST_POISON:
{
(void)inc_timed(TMD_OPP_POIS, randint1(20) + 20, TRUE);
break;
}
case SPELL_RESISTANCE:
{
int time = randint1(20) + 20;
(void)inc_timed(TMD_OPP_ACID, time, TRUE);
(void)inc_timed(TMD_OPP_ELEC, time, TRUE);
(void)inc_timed(TMD_OPP_FIRE, time, TRUE);
(void)inc_timed(TMD_OPP_COLD, time, TRUE);
(void)inc_timed(TMD_OPP_POIS, time, TRUE);
break;
}
case SPELL_HEROISM:
{
(void)hp_player(10);
(void)inc_timed(TMD_HERO, randint1(25) + 25, TRUE);
(void)clear_timed(TMD_AFRAID, TRUE);
break;
}
case SPELL_SHIELD:
{
(void)inc_timed(TMD_SHIELD, randint1(20) + 30, TRUE);
break;
}
case SPELL_BERSERKER:
{
(void)hp_player(30);
(void)inc_timed(TMD_SHERO, randint1(25) + 25, TRUE);
(void)clear_timed(TMD_AFRAID, TRUE);
break;
}
case SPELL_HASTE_SELF:
{
if (!p_ptr->timed[TMD_FAST])
{
(void)set_timed(TMD_FAST, randint1(20) + plev, TRUE);
}
else
{
(void)inc_timed(TMD_FAST, randint1(5), TRUE);
}
break;
}
case SPELL_RIFT:
{
fire_beam(GF_GRAVITY, dir, 40 + damroll(plev, 7));
break;
}
case SPELL_REND_SOUL: /* rend soul */
{
fire_bolt_or_beam(beam / 4, GF_NETHER, dir, damroll(11, plev));
break;
}
case SPELL_CHAOS_STRIKE: /* chaos strike */
{
fire_bolt_or_beam(beam, GF_CHAOS, dir, damroll(13, plev));
break;
}
case SPELL_RUNE_OF_PROTECTION: /* rune of protection */
{
(void)warding_glyph();
break;
}
case SPELL_ENCHANT_ARMOR: /* enchant armor */
{
return enchant_spell(0, 0, randint0(3) + plev / 20);
}
case SPELL_ENCHANT_WEAPON: /* enchant weapon */
{
return enchant_spell(randint0(4) + plev / 20,
randint0(4) + plev / 20, 0);
}
}
/* 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);
}
