/* Scrolls for the reading -RAK- */
void read_scroll()
{
int32u i;
int j, k, item_val, y, x;
int tmp[6], flag, used_up;
bigvtype out_val, tmp_str;
register int ident, l;
register inven_type *i_ptr;
register struct misc *m_ptr;
free_turn_flag = TRUE;
if (py.flags.blind > 0)
msg_print("You can't see to read the scroll.");
else if (no_light())
msg_print("You have no light to read by.");
else if (py.flags.confused > 0)
msg_print("You are too confused to read a scroll.");
else if (inven_ctr == 0)
msg_print("You are not carrying anything!");
else if (!find_range(TV_SCROLL1, TV_SCROLL2, &j, &k))
msg_print ("You are not carrying any scrolls!");
else if (get_item(&item_val, "Read which scroll?", j, k, 0))
{
i_ptr = &inventory[item_val];
free_turn_flag = FALSE;
used_up = TRUE;
i = i_ptr->flags;
ident = FALSE;
while (i != 0)
{
j = bit_pos(&i) + 1;
if (i_ptr->tval == TV_SCROLL2)
j += 32;
/* Scrolls. */
switch(j)
{
case 1:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!", tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->tohit))
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 2:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!", tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->todam))
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 3:
k = 0;
l = 0;
if (inventory[INVEN_BODY].tval != TV_NOTHING)
tmp[k++] = INVEN_BODY;
if (inventory[INVEN_ARM].tval != TV_NOTHING)
tmp[k++] = INVEN_ARM;
if (inventory[INVEN_OUTER].tval != TV_NOTHING)
tmp[k++] = INVEN_OUTER;
if (inventory[INVEN_HANDS].tval != TV_NOTHING)
tmp[k++] = INVEN_HANDS;
if (inventory[INVEN_HEAD].tval != TV_NOTHING)
tmp[k++] = INVEN_HEAD;
/* also enchant boots */
if (inventory[INVEN_FEET].tval != TV_NOTHING)
tmp[k++] = INVEN_FEET;
if (k > 0) l = tmp[randint(k)-1];
if (TR_CURSED & inventory[INVEN_BODY].flags)
l = INVEN_BODY;
else if (TR_CURSED & inventory[INVEN_ARM].flags)
l = INVEN_ARM;
else if (TR_CURSED & inventory[INVEN_OUTER].flags)
l = INVEN_OUTER;
else if (TR_CURSED & inventory[INVEN_HEAD].flags)
l = INVEN_HEAD;
else if (TR_CURSED & inventory[INVEN_HANDS].flags)
l = INVEN_HANDS;
else if (TR_CURSED & inventory[INVEN_FEET].flags)
l = INVEN_FEET;
if (l > 0)
{
i_ptr = &inventory[l];
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!", tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->toac))
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 4:
msg_print("This is an identify scroll.");
ident = TRUE;
used_up = ident_spell();
/* the identify may merge objects, causing the identify scroll
to move to a different place. Check for that here. */
if (i_ptr->tval != TV_SCROLL1 || i_ptr->flags != 0x00000008)
{
item_val--;
i_ptr = &inventory[item_val];
if (i_ptr->tval != TV_SCROLL1 || i_ptr->flags != 0x00000008)
{
msg_print("internal error with identify spell.");
msg_print("Please tell the wizard!");
return;
}
}
break;
case 5:
if (remove_curse())
{
msg_print("You feel as if someone is watching over you.");
ident = TRUE;
}
break;
case 6:
ident = light_area(char_row, char_col);
break;
case 7:
for (k = 0; k < randint(3); k++)
{
y = char_row;
x = char_col;
ident |= summon_monster(&y, &x, FALSE);
}
break;
case 8:
teleport(10);
ident = TRUE;
break;
case 9:
teleport(100);
ident = TRUE;
break;
case 10:
(void) tele_level();
ident = TRUE;
break;
case 11:
if (py.flags.confuse_monster == 0)
{
msg_print("Your hands begin to glow.");
py.flags.confuse_monster = TRUE;
ident = TRUE;
}
break;
case 12:
ident = TRUE;
map_area();
break;
case 13:
ident = sleep_monsters1(char_row, char_col);
break;
case 14:
ident = TRUE;
warding_glyph();
break;
case 15:
ident = detect_treasure();
break;
case 16:
ident = detect_object();
break;
case 17:
ident = detect_trap();
break;
case 18:
ident = detect_sdoor();
break;
case 19:
msg_print("This is a mass genocide scroll.");
ident = mass_genocide(TRUE);
break;
case 20:
ident = detect_invisible();
break;
case 21:
ident = aggravate_monster(20);
if (ident)
msg_print("There is a high pitched humming noise.");
break;
case 22:
ident = trap_creation();
break;
case 23:
ident = td_destroy();
break;
case 24: /* Not Used , used to be door creation */
break;
case 25:
msg_print("This is a Recharge-Item scroll.");
ident = TRUE;
used_up = recharge(60);
break;
case 26:
msg_print("This is a genocide scroll.");
ident = genocide(TRUE);
break;
case 27:
ident = unlight_area(char_row, char_col);
break;
case 28:
ident = protect_evil();
break;
case 29:
ident = TRUE;
create_food();
break;
case 30:
ident = dispel_creature(UNDEAD, 60);
break;
case 31:
remove_all_curse();
ident = TRUE;
break;
case 33:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows brightly!", tmp_str);
msg_print(out_val);
flag = FALSE;
for (k = 0; k < randint(2); k++)
if (enchant(&i_ptr->tohit))
flag = TRUE;
for (k = 0; k < randint(2); k++)
if (enchant(&i_ptr->todam))
flag = TRUE;
if (flag)
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 34:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void)sprintf(out_val,"Your %s glows black, fades.",tmp_str);
msg_print(out_val);
unmagic_name(i_ptr);
i_ptr->tohit = -randint(5) - randint(5);
i_ptr->todam = -randint(5) - randint(5);
i_ptr->flags = TR_CURSED;
py_bonuses(i_ptr, -1);
calc_bonuses ();
ident = TRUE;
}
break;
case 35:
k = 0;
l = 0;
if (inventory[INVEN_BODY].tval != TV_NOTHING)
tmp[k++] = INVEN_BODY;
if (inventory[INVEN_ARM].tval != TV_NOTHING)
tmp[k++] = INVEN_ARM;
if (inventory[INVEN_OUTER].tval != TV_NOTHING)
tmp[k++] = INVEN_OUTER;
if (inventory[INVEN_HANDS].tval != TV_NOTHING)
tmp[k++] = INVEN_HANDS;
if (inventory[INVEN_HEAD].tval != TV_NOTHING)
tmp[k++] = INVEN_HEAD;
/* also enchant boots */
if (inventory[INVEN_FEET].tval != TV_NOTHING)
tmp[k++] = INVEN_FEET;
if (k > 0) l = tmp[randint(k)-1];
if (TR_CURSED & inventory[INVEN_BODY].flags)
l = INVEN_BODY;
else if (TR_CURSED & inventory[INVEN_ARM].flags)
l = INVEN_ARM;
else if (TR_CURSED & inventory[INVEN_OUTER].flags)
l = INVEN_OUTER;
else if (TR_CURSED & inventory[INVEN_HEAD].flags)
l = INVEN_HEAD;
else if (TR_CURSED & inventory[INVEN_HANDS].flags)
l = INVEN_HANDS;
else if (TR_CURSED & inventory[INVEN_FEET].flags)
l = INVEN_FEET;
if (l > 0)
{
i_ptr = &inventory[l];
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val,"Your %s glows brightly!", tmp_str);
msg_print(out_val);
flag = FALSE;
for (k = 0; k < randint(2) + 1; k++)
if (enchant(&i_ptr->toac))
flag = TRUE;
if (flag)
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 36:
if ((inventory[INVEN_BODY].tval != TV_NOTHING)
&& (randint(4) == 1))
k = INVEN_BODY;
else if ((inventory[INVEN_ARM].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_ARM;
else if ((inventory[INVEN_OUTER].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_OUTER;
else if ((inventory[INVEN_HEAD].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_HEAD;
else if ((inventory[INVEN_HANDS].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_HANDS;
else if ((inventory[INVEN_FEET].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_FEET;
else if (inventory[INVEN_BODY].tval != TV_NOTHING)
k = INVEN_BODY;
else if (inventory[INVEN_ARM].tval != TV_NOTHING)
k = INVEN_ARM;
else if (inventory[INVEN_OUTER].tval != TV_NOTHING)
k = INVEN_OUTER;
else if (inventory[INVEN_HEAD].tval != TV_NOTHING)
k = INVEN_HEAD;
else if (inventory[INVEN_HANDS].tval != TV_NOTHING)
k = INVEN_HANDS;
else if (inventory[INVEN_FEET].tval != TV_NOTHING)
k = INVEN_FEET;
else
k = 0;
if (k > 0)
{
i_ptr = &inventory[k];
objdes(tmp_str, i_ptr, FALSE);
(void)sprintf(out_val,"Your %s glows black, fades.",tmp_str);
msg_print(out_val);
unmagic_name(i_ptr);
i_ptr->flags = TR_CURSED;
i_ptr->toac = -randint(5) - randint(5);
calc_bonuses ();
ident = TRUE;
}
break;
case 37:
ident = FALSE;
for (k = 0; k < randint(3); k++)
{
y = char_row;
x = char_col;
ident |= summon_undead(&y, &x);
}
break;
case 38:
ident = TRUE;
bless(randint(12)+6);
break;
case 39:
ident = TRUE;
bless(randint(24)+12);
break;
case 40:
ident = TRUE;
bless(randint(48)+24);
break;
case 41:
ident = TRUE;
if (py.flags.word_recall == 0)
py.flags.word_recall = 25 + randint(30);
msg_print("The air about you becomes charged.");
break;
case 42:
destroy_area(char_row, char_col);
ident = TRUE;
break;
case 43:
place_special(char_row, char_col, SPECIAL);
prt_map();
break;
case 44:
special_random_object(char_row, char_col, 1);
prt_map();
break;
default:
msg_print("Internal error in scroll()");
break;
}
/* End of Scrolls. */
}
i_ptr = &inventory[item_val];
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level +(m_ptr->lev >> 1)) / m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
void chaos_warrior_reward(void)
{
if (one_in_(6))
{
msg_format("%^s rewards you with a mutation!",
chaos_patrons[p_ptr->chaos_patron]);
mut_gain_random(NULL);
}
else
{
char wrath_reason[32] = "";
int nasty_chance = 6;
int dummy = 0, dummy2 = 0;
int type, effect;
int count = 0;
if (p_ptr->lev == 13) nasty_chance = 2;
else if (!(p_ptr->lev % 13)) nasty_chance = 3;
else if (!(p_ptr->lev % 14)) nasty_chance = 12;
if (one_in_(nasty_chance))
type = randint1(20); /* Allow the 'nasty' effects */
else
type = randint1(15) + 5; /* Or disallow them */
if (type < 1) type = 1;
if (type > 20) type = 20;
type--;
sprintf(wrath_reason, "the Wrath of %s",
chaos_patrons[p_ptr->chaos_patron]);
effect = chaos_rewards[p_ptr->chaos_patron][type];
switch (effect)
{
case REW_POLY_SLF:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou needst a new form, mortal!'");
do_poly_self();
break;
case REW_GAIN_EXP:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Well done, mortal! Lead on!'");
if (p_ptr->prace == RACE_ANDROID)
msg_print("But, nothing happen.");
else if (p_ptr->exp < PY_MAX_EXP)
{
s32b ee = (p_ptr->exp / 2) + 10;
if (ee > 100000L) ee = 100000L;
msg_print("You feel more experienced.");
gain_exp(ee);
}
break;
case REW_LOSE_EXP:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou didst not deserve that, slave.'");
if (p_ptr->prace == RACE_ANDROID)
msg_print("But, nothing happen.");
else
{
lose_exp(p_ptr->exp / 6);
}
break;
case REW_GOOD_OBJ:
msg_format("The voice of %s whispers:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Use my gift wisely.'");
acquirement(py, px, 1, FALSE, FALSE);
break;
case REW_GREA_OBJ:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Use my gift wisely.'");
acquirement(py, px, 1, TRUE, FALSE);
break;
case REW_CHAOS_WP:
{
object_type forge;
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thy deed hath earned thee a worthy blade.'");
dummy = TV_SWORD;
switch (randint1(p_ptr->lev))
{
case 0: case 1:
dummy2 = SV_DAGGER;
break;
case 2: case 3:
dummy2 = SV_MAIN_GAUCHE;
break;
case 4:
dummy2 = SV_TANTO;
break;
case 5: case 6:
dummy2 = SV_RAPIER;
break;
case 7: case 8:
dummy2 = SV_SMALL_SWORD;
break;
case 9: case 10:
dummy2 = SV_BASILLARD;
break;
case 11: case 12: case 13:
dummy2 = SV_SHORT_SWORD;
break;
case 14: case 15:
dummy2 = SV_SABRE;
break;
case 16: case 17:
dummy2 = SV_CUTLASS;
break;
case 18:
dummy2 = SV_WAKIZASHI;
break;
case 19:
dummy2 = SV_KHOPESH;
break;
case 20:
dummy2 = SV_TULWAR;
break;
case 21:
dummy2 = SV_BROAD_SWORD;
break;
case 22: case 23:
dummy2 = SV_LONG_SWORD;
break;
case 24: case 25:
dummy2 = SV_SCIMITAR;
break;
case 26:
dummy2 = SV_NINJATO;
break;
case 27:
dummy2 = SV_KATANA;
break;
case 28: case 29:
dummy2 = SV_BASTARD_SWORD;
break;
case 30:
dummy2 = SV_GREAT_SCIMITAR;
break;
case 31:
dummy2 = SV_CLAYMORE;
break;
case 32:
dummy2 = SV_ESPADON;
break;
case 33:
dummy2 = SV_TWO_HANDED_SWORD;
break;
case 34:
dummy2 = SV_FLAMBERGE;
break;
case 35:
dummy2 = SV_NO_DACHI;
break;
case 36:
dummy2 = SV_EXECUTIONERS_SWORD;
break;
case 37:
dummy2 = SV_ZWEIHANDER;
break;
case 38:
dummy2 = SV_HAYABUSA;
break;
default:
dummy2 = SV_BLADE_OF_CHAOS;
}
object_prep(&forge, lookup_kind(dummy, dummy2));
forge.to_h = 3 + randint1(dun_level) % 10;
forge.to_d = 3 + randint1(dun_level) % 10;
one_resistance(&forge);
forge.name2 = EGO_WEAPON_CHAOS;
drop_near(&forge, -1, py, px);
break;
}
case REW_GOOD_OBS:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thy deed hath earned thee a worthy reward.'");
acquirement(py, px, randint1(2) + 1, FALSE, FALSE);
break;
case REW_GREA_OBS:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Behold, mortal, how generously I reward thy loyalty.'");
acquirement(py, px, randint1(2) + 1, TRUE, FALSE);
break;
case REW_TY_CURSE:
msg_format("The voice of %s thunders:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou art growing arrogant, mortal.'");
activate_ty_curse(FALSE, &count);
break;
case REW_SUMMON_M:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'My pets, destroy the arrogant mortal!'");
for (dummy = 0; dummy < randint1(5) + 1; dummy++)
summon_specific(0, py, px, dun_level, 0, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE | PM_NO_PET));
break;
case REW_H_SUMMON:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou needst worthier opponents!'");
activate_hi_summon(py, px, FALSE);
break;
case REW_DO_HAVOC:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Death and destruction! This pleaseth me!'");
call_chaos(100);
break;
case REW_GAIN_ABL:
msg_format("The voice of %s rings out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Stay, mortal, and let me mold thee.'");
if (one_in_(3) && !(chaos_stats[p_ptr->chaos_patron] < 0))
do_inc_stat(chaos_stats[p_ptr->chaos_patron]);
else
do_inc_stat(randint0(6));
break;
case REW_LOSE_ABL:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'I grow tired of thee, mortal.'");
if (one_in_(3) && !(chaos_stats[p_ptr->chaos_patron] < 0))
do_dec_stat(chaos_stats[p_ptr->chaos_patron]);
else
do_dec_stat(randint0(6));
break;
case REW_RUIN_ABL:
msg_format("The voice of %s thunders:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou needst a lesson in humility, mortal!'");
msg_print("You feel less powerful!");
for (dummy = 0; dummy < 6; dummy++)
dec_stat(dummy, 10 + randint1(15), TRUE);
break;
case REW_POLY_WND:
msg_format("You feel the power of %s touch you.", chaos_patrons[p_ptr->chaos_patron]);
do_poly_wounds();
break;
case REW_AUGM_ABL:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Receive this modest gift from me!'");
for (dummy = 0; dummy < 6; dummy++)
do_inc_stat(dummy);
break;
case REW_HURT_LOT:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Suffer, pathetic fool!'");
fire_ball(GF_DISINTEGRATE, 0, p_ptr->lev * 4, 4);
take_hit(DAMAGE_NOESCAPE, p_ptr->lev * 4, wrath_reason, -1);
break;
case REW_HEAL_FUL:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Rise, my servant!'");
restore_level();
set_poisoned(0, TRUE);
set_blind(0, TRUE);
set_confused(0, TRUE);
set_image(0, TRUE);
set_stun(0, TRUE);
set_cut(0, TRUE);
hp_player(5000);
for (dummy = 0; dummy < 6; dummy++)
do_res_stat(dummy);
break;
case REW_CURSE_WP:
{
int slot = equip_random_slot(object_is_melee_weapon);
if (slot)
{
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou reliest too much on thy weapon.'");
curse_weapon(FALSE, slot);
}
break;
}
case REW_CURSE_AR:
{
int slot = equip_random_slot(object_is_armour);
if (slot)
{
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Thou reliest too much on thine equipment.'");
curse_armor(slot);
}
break;
}
case REW_PISS_OFF:
msg_format("The voice of %s whispers:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Now thou shalt pay for annoying me.'");
switch (randint1(4))
{
case 1:
activate_ty_curse(FALSE, &count);
break;
case 2:
activate_hi_summon(py, px, FALSE);
break;
case 3:
if (one_in_(2))
{
int slot = equip_random_slot(object_is_melee_weapon);
if (slot)
curse_weapon(FALSE, slot);
}
else
{
int slot = equip_random_slot(object_is_armour);
if (slot)
curse_armor(slot);
}
break;
default:
for (dummy = 0; dummy < 6; dummy++)
dec_stat(dummy, 10 + randint1(15), TRUE);
break;
}
break;
case REW_WRATH:
msg_format("The voice of %s thunders:", chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Die, mortal!'");
take_hit(DAMAGE_LOSELIFE, p_ptr->lev * 4, wrath_reason, -1);
for (dummy = 0; dummy < 6; dummy++)
dec_stat(dummy, 10 + randint1(15), FALSE);
activate_hi_summon(py, px, FALSE);
activate_ty_curse(FALSE, &count);
if (one_in_(2))
{
int slot = equip_random_slot(object_is_melee_weapon);
if (slot)
curse_weapon(FALSE, slot);
}
if (one_in_(2))
{
int slot = equip_random_slot(object_is_armour);
if (slot)
curse_armor(slot);
}
break;
case REW_DESTRUCT:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Death and destruction! This pleaseth me!'");
destroy_area(py, px, 25, 3 * p_ptr->lev);
break;
case REW_GENOCIDE:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Let me relieve thee of thine oppressors!'");
symbol_genocide(0, FALSE);
break;
case REW_MASS_GEN:
msg_format("The voice of %s booms out:",
chaos_patrons[p_ptr->chaos_patron]);
msg_print("'Let me relieve thee of thine oppressors!'");
mass_genocide(0, FALSE);
break;
case REW_DISPEL_C:
msg_format("You can feel the power of %s assault your enemies!",
chaos_patrons[p_ptr->chaos_patron]);
dispel_monsters(p_ptr->lev * 4);
break;
case REW_IGNORE:
msg_format("%s ignores you.",
chaos_patrons[p_ptr->chaos_patron]);
break;
case REW_SER_DEMO:
msg_format("%s rewards you with a demonic servant!",chaos_patrons[p_ptr->chaos_patron]);
if (!summon_specific(-1, py, px, dun_level, SUMMON_DEMON, PM_FORCE_PET))
msg_print("Nobody ever turns up...");
break;
case REW_SER_MONS:
msg_format("%s rewards you with a servant!",chaos_patrons[p_ptr->chaos_patron]);
if (!summon_specific(-1, py, px, dun_level, 0, PM_FORCE_PET))
msg_print("Nobody ever turns up...");
break;
case REW_SER_UNDE:
msg_format("%s rewards you with an undead servant!",chaos_patrons[p_ptr->chaos_patron]);
if (!summon_specific(-1, py, px, dun_level, SUMMON_UNDEAD, PM_FORCE_PET))
msg_print("Nobody ever turns up...");
break;
default:
msg_format("The voice of %s stammers:", chaos_patrons[p_ptr->chaos_patron]);
msg_format("'Uh... uh... the answer's %d/%d, what's the question?'", type, effect);
}
}
}
