void b__misc_effects(integer effect, boolean *idented, treas_ptr item_ptr)
{
integer i3, i4, loss, dur;
integer dumy,y_dumy,x_dumy;
integer y,x;
stat_set tstat;
boolean ident;
char dir;
ident = *idented;
switch (effect) {
case 1 : /*{Silver Cross}*/
msg_print("You feel secure...");
protect_evil();
ident = true;
break;
case 2 : /*{Gold Cross}*/
ident = zap_area(0x0400,100,c_hp);
break;
case 3 : /*{Mithril Cross}*/
x = char_row;
y = char_col;
ident = summon_undead(&x,&y);
break;
case 4 : /*{Cross}*/
x = char_row;
y = char_col;
ident = summon_demon(&x,&y);
break;
case 5 : /*{Cross}*/
strcat(item_ptr->data.name, "(Empty)");
msg_print("You free a Djinni from the bottle!");
msg_print("He grants you a wish...");
msg_print("'I will raise one of your stats by two...'");
msg_print("'Which stat would you like to raise?'");
ident = (get_com("1=str 2=int 3=wis 4=dex 5=con 6=cha",&dir));
if ((dir > '0') && (dir < '7')) {
tstat = (integer)dir-49;
ident = gain_stat(tstat,"X");
ident = gain_stat(tstat," and x2, too!");
} else {
msg_print("Oh well, maybe next time.");
}
break;
case 6 : /*{ Corked Bottle of Demons }*/
msg_print("You release several demons!");
x = char_row;
y = char_col;
for (i3 = 1; i3 <= 4; i3++) {
summon_demon(&x,&y);
}
py.flags.paralysis += 2;
strcat(item_ptr->data.name, "(Empty)");
ident = true;
break;
case 7 :
ident = create_water(char_row,char_col);
break;
case 8 :
ident = destroy_water(char_row,char_col);
break;
case 9 :
msg_print("Many Undead appear!");
x = char_row;
y = char_col;
for (i3 = 1; i3 <= 8; i3++) {
ident = summon_undead(&x,&y);
}
py.flags.paralysis += 2;
break;
case 10 :
msg_print("Many Demons appear!");
x = char_row;
y = char_col;
for (i3 = 1; i3 <= 8; i3++) {
ident = summon_demon(&x,&y);
}
py.flags.paralysis += 2;
ident = true;
break;
case 11:
//with py.stat do;
for (tstat = STR; tstat <= CHR; tstat++) {
if (restore_stat(tstat,"X")) {
ident = true;
}
}
if (hp_player(damroll("6d7"),"a statue.")) {
ident = true;
}
//with py.flags do;
if (PF.slow > 0) {
ident = true;
PF.slow = 1;
}
/* bitwise or, otherwise it shortcuts and not everything happens */
if (cure_me(&PF.blind) | cure_me(&PF.poisoned) |
cure_me(&PF.confused) | cure_me(&PF.afraid) | restore_level()) {
ident = true;
}
if (ident) {
msg_print("The statue fills you with life and all maladies are cured.");
}
break;
case 12:
ident = true;
break;
case 13 :
redraw = true;
wizard_light();
for (i3 = (char_col + 1); i3 <= (char_col - 1); i3++) {
for (i4 = (char_row + 1); i4 <= (char_row - 1); i4++) {
if (test_light(i4,i3)) {
redraw = false;
}
}
}
if (redraw) {
wizard_light();
}
break;
case 14:
ident = zap_area(0,2,c_speed);
break;
case 15:
//with py.misc do;
loss = 0;
for (i3 = 1; i3 <= 6; i3++) {
loss += (PM.money[i3]-PM.money[i3] / 2) * COIN_WEIGHT;
PM.money[i3] /= 2;
}
inven_weight -= loss;
reset_total_cash();
msg_print("most of your money turns to dust!");
prt_gold();
prt_weight();
ident = true;
break;
case 16 :
//with py.misc do;
if (PM.cmana < PM.mana) {
PM.cmana = PM.mana;
ident = true;
msg_print("Your feel your head clear...");
}
break;
case 17 :
ident = item_petrify();
break;
case 18 :
strcpy(item_ptr->data.damage,"50d5");
item_ptr->data.cost = -1;
msg_print("Click!");
ident = true;
break;
case 19 :
ident = detect_creatures(c_monster);
break;
case 20 :
ident = zap_area(0x0004,60,c_hp);
break;
case 21 :
ident = unlight_area(char_row,char_col);
break;
case 22 :
if (d__get_dir("Which direction?",&dur,&dumy,&y_dumy,&x_dumy)) {
i3 = char_row;
i4 = char_col;
ident = fire_ball(3,dur,i3,i4,40,"Acid Ball");
} else {
item_ptr->data.p1++;
}
break;
case 23 :
ident = detect_creatures(c_invisible);
break;
case 24 :
ident = ident_spell();
break;
case 25 :
ident = light_area(char_row,char_col);
break;
case 26 :
for (i3 = 1; i3 <= randint(4); i3++) {
/*{who"s the idiot who wrote these things anyhow? }*/
y = char_row;
x = char_col;
if (is_in(cave[y][x].fval, water_set)) {
summon_water_monster(&y,&x,false);
} else {
summon_land_monster(&y,&x,false);
}
}
ident = true;
break;
case 27 :
if (remove_curse()) {
msg_print("Your junk glows black for a moment...");
ident = true;
}
break;
case 28 :
ident = destroy_area(char_row,char_col);
break;
case 29 :
py.flags.word_recall = 10 + randint(10);
msg_print("You feel dizzy for a moment...");
ident = true;
break;
case 30 :
msg_print("The teeth flare into flames.");
py.flags.ring_fire += 3+randint(3);
ident = true;
break;
case 31 :
msg_print("The Demon teeth try to possess you...");
lose_exp(100);
change_rep(-10);
ident = true;
break;
default:
msg_print("Todd Gardiner is fat!");
ident = true;
break;
}
*idented = ident;
};
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 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);
}
void d__monk_effects(integer effect)
{
/*{ Disciplines....}*/
switch (effect+1) {
case 1 : /*{ Self-Healing }*/
hp_player(damroll("4d4"),"a magic spell.");
break;
case 2 : /*{ Courage } */
cure_me(&py.flags.afraid);
break;
case 3 : /*{ Slow Poison } */
slow_poison();
break;
case 4 : /*{ Negate Hunger } */
py.flags.foodc = PLAYER_FOOD_FULL + 4000;
py.flags.status &= ~(IS_HUNGERY | IS_WEAK);
prt_hunger();
msg_print("You are full.");
break;
case 5 : /*{ Sense Enemies }*/
detect_creatures(c_creature);
break;
case 6 : /*{ Self-Healing II } */
hp_player(damroll("8d4"),"a prayer.");
break;
case 7 : /*{ Night Vision }*/
py.flags.tim_infra += randint(25) + 25;
break;
case 8 : /*{ Poison Immunity }*/
cure_me(&(py.flags.poisoned));
break;
case 9 : /*{ See Invisible } */
detect_inv2(randint(24)+24);
break;
case 10 : /*{ Advanced Self-Healing } */
hp_player(damroll("16d4"),"a prayer.");
break;
case 11 : /*{ Resist Petrification }*/
py.flags.resist_petri += randint(15) + 10;
break;
case 12 : /*{ Stealth }*/
py.flags.temp_stealth += randint(15)+10;
break;
case 13 : /*{ Free Action } */
py.flags.free_time += (randint(10) + py.misc.lev);
break;
case 14 : /*{ Improved Speed }*/
PF.fast += randint(20) + py.misc.lev;
break;
default:
break;
}
/*{ End of Disciplines...}*/
};
