/* attempting to cast a forgotten spell will cause disorientation */
static void
spell_backfire(int spell)
{
long duration = (long)((spellev(spell) + 1) * 3); /* 6..24 */
/* prior to 3.4.1, the only effect was confusion; it still predominates */
switch (rn2(10)) {
case 0:
case 1:
case 2:
case 3:
make_confused(duration, FALSE); /* 40% */
break;
case 4:
case 5:
case 6:
make_confused(2L * duration / 3L, FALSE); /* 30% */
make_stunned(duration / 3L, FALSE);
break;
case 7:
case 8:
make_stunned(2L * duration / 3L, FALSE); /* 20% */
make_confused(duration / 3L, FALSE);
break;
case 9:
make_stunned(duration, FALSE); /* 10% */
break;
}
return;
}
STATIC_OVL void
vomiting_dialogue()
{
register long i = (Vomiting & TIMEOUT) / 3L;
if ((((Vomiting & TIMEOUT) % 3L) == 2) && (i >= 0)
&& (i < SIZE(vomiting_texts)))
You(vomiting_texts[SIZE(vomiting_texts) - i - 1]);
switch ((int) i) {
case 0:
vomit();
morehungry(20);
break;
case 2:
make_stunned(HStun + d(2,4), FALSE);
/* fall through */
case 3:
make_confused(HConfusion + d(2,4), FALSE);
break;
}
exercise(A_CON, FALSE);
}
void
nh_timeout()
{
register struct prop *upp;
int sleeptime;
int m_idx;
int baseluck = (flags.moonphase == FULL_MOON) ? 1 : 0;
if (flags.friday13) baseluck -= 1;
if (u.uluck != baseluck &&
moves % (u.uhave.amulet || u.ugangr ? 300 : 600) == 0) {
/* Cursed luckstones stop bad luck from timing out; blessed luckstones
* stop good luck from timing out; normal luckstones stop both;
* neither is stopped if you don't have a luckstone.
* Luck is based at 0 usually, +1 if a full moon and -1 on Friday 13th
*/
register int time_luck = stone_luck(FALSE);
boolean nostone = !carrying(LUCKSTONE) && !stone_luck(TRUE);
if(u.uluck > baseluck && (nostone || time_luck < 0))
u.uluck--;
else if(u.uluck < baseluck && (nostone || time_luck > 0))
u.uluck++;
}
if(u.uinvulnerable) return; /* things past this point could kill you */
if(Stoned) stoned_dialogue();
if(Slimed) slime_dialogue();
if(Vomiting) vomiting_dialogue();
if(Strangled) choke_dialogue();
if(u.mtimedone && !--u.mtimedone) {
if (Unchanging)
u.mtimedone = rnd(100*youmonst.data->mlevel + 1);
else
rehumanize();
}
if(u.ucreamed) u.ucreamed--;
/* Dissipate spell-based protection. */
if (u.usptime) {
if (--u.usptime == 0 && u.uspellprot) {
u.usptime = u.uspmtime;
u.uspellprot--;
find_ac();
if (!Blind)
Norep("The %s haze around you %s.", hcolor(NH_GOLDEN),
u.uspellprot ? "becomes less dense" : "disappears");
}
}
#ifdef STEED
if (u.ugallop) {
if (--u.ugallop == 0L && u.usteed)
pline("%s stops galloping.", Monnam(u.usteed));
}
#endif
for(upp = u.uprops; upp < u.uprops+SIZE(u.uprops); upp++)
if((upp->intrinsic & TIMEOUT) && !(--upp->intrinsic & TIMEOUT)) {
switch(upp - u.uprops){
case STONED:
if (delayed_killer && !killer) {
killer = delayed_killer;
delayed_killer = 0;
}
if (!killer) {
/* leaving killer_format would make it
"petrified by petrification" */
killer_format = NO_KILLER_PREFIX;
killer = "killed by petrification";
}
done(STONING);
break;
case SLIMED:
if (delayed_killer && !killer) {
killer = delayed_killer;
delayed_killer = 0;
}
if (!killer) {
killer_format = NO_KILLER_PREFIX;
killer = "turned into green slime";
}
done(TURNED_SLIME);
break;
case VOMITING:
make_vomiting(0L, TRUE);
break;
case SICK:
You("die from your illness.");
killer_format = KILLED_BY_AN;
killer = u.usick_cause;
if ((m_idx = name_to_mon(killer)) >= LOW_PM) {
if (type_is_pname(&mons[m_idx])) {
killer_format = KILLED_BY;
} else if (mons[m_idx].geno & G_UNIQ) {
killer = the(killer);
Strcpy(u.usick_cause, killer);
killer_format = KILLED_BY;
}
}
u.usick_type = 0;
done(POISONING);
break;
case FAST:
if (!Very_fast)
You_feel("yourself slowing down%s.",
Fast ? " a bit" : "");
break;
case CONFUSION:
HConfusion = 1; /* So make_confused works properly */
make_confused(0L, TRUE);
stop_occupation();
break;
case STUNNED:
HStun = 1;
make_stunned(0L, TRUE);
stop_occupation();
break;
case BLINDED:
Blinded = 1;
make_blinded(0L, TRUE);
stop_occupation();
break;
case INVIS:
newsym(u.ux,u.uy);
if (!Invis && !BInvis && !Blind) {
You(!See_invisible ?
"are no longer invisible." :
"can no longer see through yourself.");
stop_occupation();
}
break;
case SEE_INVIS:
set_mimic_blocking(); /* do special mimic handling */
see_monsters(); /* make invis mons appear */
newsym(u.ux,u.uy); /* make self appear */
stop_occupation();
break;
case WOUNDED_LEGS:
heal_legs();
stop_occupation();
break;
case HALLUC:
HHallucination = 1;
(void) make_hallucinated(0L, TRUE, 0L);
stop_occupation();
break;
case SLEEPING:
if (unconscious() || Sleep_resistance)
HSleeping += rnd(100);
else if (Sleeping) {
You("fall asleep.");
sleeptime = rnd(20);
fall_asleep(-sleeptime, TRUE);
HSleeping += sleeptime + rnd(100);
}
break;
case LEVITATION:
(void) float_down(I_SPECIAL|TIMEOUT, 0L);
break;
case STRANGLED:
killer_format = KILLED_BY;
killer = (u.uburied) ? "suffocation" : "strangulation";
done(DIED);
break;
case FUMBLING:
/* call this only when a move took place. */
/* otherwise handle fumbling msgs locally. */
if (u.umoved && !Levitation) {
slip_or_trip();
nomul(-2, "fumbling");
nomovemsg = "";
/* The more you are carrying the more likely you
* are to make noise when you fumble. Adjustments
* to this number must be thoroughly play tested.
*/
if ((inv_weight() > -500)) {
You("make a lot of noise!");
wake_nearby();
}
}
/* from outside means slippery ice; don't reset
counter if that's the only fumble reason */
HFumbling &= ~FROMOUTSIDE;
if (Fumbling)
HFumbling += rnd(20);
break;
case DETECT_MONSTERS:
see_monsters();
break;
case PREGNANT: {
char buf[BUFSZ];
if (!flags.female) {
strcpy(buf, body_part(STOMACH));
if (!strcmp(buf, "stomach"))
strcpy(buf, "belly");
pline("Something bursts out of your %s!");
killer_format = KILLED_BY;
killer = "male childbirth";
done(DIED);
}
mksobj_at(PLACENTA, u.ux, u.uy, FALSE, FALSE);
pline("BABIES!"); /* TODO */
stop_occupation();
break;
}
}
}
run_timers();
}
/* called when someone is being hit by Magicbane */
static boolean magicbane_hit(
struct monst *magr, /* attacker */
struct monst *mdef, /* defender */
struct obj *mb, /* Magicbane */
int *dmgptr, /* extra damage target will suffer */
int dieroll, /* d20 that has already scored a hit */
boolean vis, /* whether the action can be seen */
char *hittee /* target's name: "you" or mon_nam(mdef) */
)
{
const struct permonst *old_uasmon;
const char *verb;
boolean youattack = (magr == &youmonst),
youdefend = (mdef == &youmonst),
resisted = FALSE, do_stun, do_confuse, result;
int attack_indx, scare_dieroll = MB_MAX_DIEROLL / 2;
result = FALSE; /* no message given yet */
/* the most severe effects are less likely at higher enchantment */
if (mb->spe >= 3)
scare_dieroll /= (1 << (mb->spe / 3));
/* if target successfully resisted the artifact damage bonus,
reduce overall likelihood of the assorted special effects */
if (!spec_dbon_applies) dieroll += 1;
/* might stun even when attempting a more severe effect, but
in that case it will only happen if the other effect fails;
extra damage will apply regardless; 3.4.1: sometimes might
just probe even when it hasn't been enchanted */
do_stun = (max(mb->spe,0) < rn2(spec_dbon_applies ? 11 : 7));
/* the special effects also boost physical damage; increments are
generally cumulative, but since the stun effect is based on a
different criterium its damage might not be included; the base
damage is either 1d4 (athame) or 2d4 (athame+spec_dbon) depending
on target's resistance check against AD_STUN (handled by caller)
[note that a successful save against AD_STUN doesn't actually
prevent the target from ending up stunned] */
attack_indx = MB_INDEX_PROBE;
*dmgptr += rnd(4); /* (2..3)d4 */
if (do_stun) {
attack_indx = MB_INDEX_STUN;
*dmgptr += rnd(4); /* (3..4)d4 */
}
if (dieroll <= scare_dieroll) {
attack_indx = MB_INDEX_SCARE;
*dmgptr += rnd(4); /* (3..5)d4 */
}
if (dieroll <= (scare_dieroll / 2)) {
attack_indx = MB_INDEX_CANCEL;
*dmgptr += rnd(4); /* (4..6)d4 */
}
/* give the hit message prior to inflicting the effects */
verb = mb_verb[!!Hallucination][attack_indx];
if (youattack || youdefend || vis) {
result = TRUE;
pline("The magic-absorbing blade %s %s!",
vtense(NULL, verb), hittee);
/* assume probing has some sort of noticeable feedback
even if it is being done by one monster to another */
if (attack_indx == MB_INDEX_PROBE && !canspotmon(mdef))
map_invisible(mdef->mx, mdef->my);
}
/* now perform special effects */
switch (attack_indx) {
case MB_INDEX_CANCEL:
old_uasmon = youmonst.data;
/* No mdef->mcan check: even a cancelled monster can be polymorphed
* into a golem, and the "cancel" effect acts as if some magical
* energy remains in spellcasting defenders to be absorbed later.
*/
if (!cancel_monst(mdef, mb, youattack, FALSE, FALSE)) {
resisted = TRUE;
} else {
do_stun = FALSE;
if (youdefend) {
if (youmonst.data != old_uasmon)
*dmgptr = 0; /* rehumanized, so no more damage */
if (u.uenmax > 0) {
pline("You lose magical energy!");
u.uenmax--;
if (u.uen > 0) u.uen--;
iflags.botl = 1;
}
} else {
if (mdef->data == &mons[PM_CLAY_GOLEM])
mdef->mhp = 1; /* cancelled clay golems will die */
if (youattack && attacktype(mdef->data, AT_MAGC)) {
pline("You absorb magical energy!");
u.uenmax++;
u.uen++;
iflags.botl = 1;
}
}
}
break;
case MB_INDEX_SCARE:
if (youdefend) {
if (Antimagic) {
resisted = TRUE;
} else {
nomul(-3, "being scared stiff");
nomovemsg = "";
if (magr && magr == u.ustuck && sticks(youmonst.data)) {
u.ustuck = NULL;
pline("You release %s!", mon_nam(magr));
}
}
} else {
if (rn2(2) && resist(mdef, WEAPON_CLASS, 0, NOTELL))
resisted = TRUE;
else
monflee(mdef, 3, FALSE, (mdef->mhp > *dmgptr));
}
if (!resisted) do_stun = FALSE;
break;
case MB_INDEX_STUN:
do_stun = TRUE; /* (this is redundant...) */
break;
case MB_INDEX_PROBE:
if (youattack && (mb->spe == 0 || !rn2(3 * abs(mb->spe)))) {
pline("The %s is insightful.", verb);
/* pre-damage status */
probe_monster(mdef);
}
break;
}
/* stun if that was selected and a worse effect didn't occur */
if (do_stun) {
if (youdefend)
make_stunned((HStun + 3), FALSE);
else
mdef->mstun = 1;
/* avoid extra stun message below if we used mb_verb["stun"] above */
if (attack_indx == MB_INDEX_STUN) do_stun = FALSE;
}
/* lastly, all this magic can be confusing... */
do_confuse = !rn2(12);
if (do_confuse) {
if (youdefend)
make_confused(HConfusion + 4, FALSE);
else
mdef->mconf = 1;
}
if (youattack || youdefend || vis) {
upstart(hittee); /* capitalize */
if (resisted) {
pline("%s %s!", hittee, vtense(hittee, "resist"));
shieldeff(youdefend ? u.ux : mdef->mx,
youdefend ? u.uy : mdef->my);
}
if ((do_stun || do_confuse) && flags.verbose) {
char buf[BUFSZ];
buf[0] = '\0';
if (do_stun) strcat(buf, "stunned");
if (do_stun && do_confuse) strcat(buf, " and ");
if (do_confuse) strcat(buf, "confused");
pline("%s %s %s%c", hittee, vtense(hittee, "are"),
buf, (do_stun && do_confuse) ? '!' : '.');
}
}
return result;
}
/*
If dmg is zero, then the monster is not casting at you.
If the monster is intentionally not casting at you, we have previously
called spell_would_be_useless() and spellnum should always be a valid
undirected spell.
If you modify either of these, be sure to change is_undirected_spell()
and spell_would_be_useless().
*/
static void cast_wizard_spell(struct monst *mtmp, int dmg, int spellnum)
{
if (dmg == 0 && !is_undirected_spell(AD_SPEL, spellnum)) {
impossible("cast directed wizard spell (%d) with dmg=0?", spellnum);
return;
}
switch (spellnum) {
case MGC_DEATH_TOUCH:
pline("Oh no, %s's using the touch of death!", mhe(mtmp));
if (nonliving(youmonst.data) || is_demon(youmonst.data)) {
pline("You seem no deader than before.");
} else if (!Antimagic && rn2(mtmp->m_lev) > 12) {
if (Hallucination) {
pline("You have an out of body experience.");
} else {
killer_format = KILLED_BY_AN;
killer = "touch of death";
done(DIED);
}
} else {
if (Antimagic) shieldeff(u.ux, u.uy);
pline("Lucky for you, it didn't work!");
}
dmg = 0;
break;
case MGC_CLONE_WIZ:
if (mtmp->iswiz && flags.no_of_wizards == 1) {
pline("Double Trouble...");
clonewiz();
dmg = 0;
} else
impossible("bad wizard cloning?");
break;
case MGC_SUMMON_MONS:
{
int count;
count = nasty(mtmp); /* summon something nasty */
if (mtmp->iswiz)
verbalize("Destroy the thief, my pet%s!", plur(count));
else {
const char *mappear =
(count == 1) ? "A monster appears" : "Monsters appear";
/* messages not quite right if plural monsters created but
only a single monster is seen */
if (Invisible && !perceives(mtmp->data) &&
(mtmp->mux != u.ux || mtmp->muy != u.uy))
pline("%s around a spot near you!", mappear);
else if (Displaced && (mtmp->mux != u.ux || mtmp->muy != u.uy))
pline("%s around your displaced image!", mappear);
else
pline("%s from nowhere!", mappear);
}
dmg = 0;
break;
}
case MGC_AGGRAVATION:
pline("You feel that monsters are aware of your presence.");
aggravate();
dmg = 0;
break;
case MGC_CURSE_ITEMS:
pline("You feel as if you need some help.");
rndcurse();
dmg = 0;
break;
case MGC_DESTRY_ARMR:
if (Antimagic) {
shieldeff(u.ux, u.uy);
pline("A field of force surrounds you!");
} else if (!destroy_arm(some_armor(&youmonst))) {
pline("Your skin itches.");
}
dmg = 0;
break;
case MGC_WEAKEN_YOU: /* drain strength */
if (Antimagic) {
shieldeff(u.ux, u.uy);
pline("You feel momentarily weakened.");
} else {
pline("You suddenly feel weaker!");
dmg = mtmp->m_lev - 6;
if (Half_spell_damage) dmg = (dmg + 1) / 2;
losestr(rnd(dmg));
if (u.uhp < 1)
done_in_by(mtmp);
}
dmg = 0;
break;
case MGC_DISAPPEAR: /* makes self invisible */
if (!mtmp->minvis && !mtmp->invis_blkd) {
if (canseemon(mtmp))
pline("%s suddenly %s!", Monnam(mtmp),
!See_invisible ? "disappears" : "becomes transparent");
mon_set_minvis(mtmp);
dmg = 0;
} else
impossible("no reason for monster to cast disappear spell?");
break;
case MGC_STUN_YOU:
if (Antimagic || Free_action) {
shieldeff(u.ux, u.uy);
if (!Stunned)
pline("You feel momentarily disoriented.");
make_stunned(1L, FALSE);
} else {
pline(Stunned ? "You struggle to keep your balance." : "You reel...");
dmg = dice(ACURR(A_DEX) < 12 ? 6 : 4, 4);
if (Half_spell_damage) dmg = (dmg + 1) / 2;
make_stunned(HStun + dmg, FALSE);
}
dmg = 0;
break;
case MGC_HASTE_SELF:
mon_adjust_speed(mtmp, 1, NULL);
dmg = 0;
break;
case MGC_CURE_SELF:
if (mtmp->mhp < mtmp->mhpmax) {
if (canseemon(mtmp))
pline("%s looks better.", Monnam(mtmp));
/* note: player healing does 6d4; this used to do 1d8 */
if ((mtmp->mhp += dice(3,6)) > mtmp->mhpmax)
mtmp->mhp = mtmp->mhpmax;
dmg = 0;
}
break;
case MGC_PSI_BOLT:
/* prior to 3.4.0 Antimagic was setting the damage to 1--this
made the spell virtually harmless to players with magic res. */
if (Antimagic) {
shieldeff(u.ux, u.uy);
dmg = (dmg + 1) / 2;
}
if (dmg <= 5)
pline("You get a slight %sache.", body_part(HEAD));
else if (dmg <= 10)
pline("Your brain is on fire!");
else if (dmg <= 20)
pline("Your %s suddenly aches painfully!", body_part(HEAD));
else
pline("Your %s suddenly aches very painfully!", body_part(HEAD));
break;
default:
impossible("mcastu: invalid magic spell (%d)", spellnum);
dmg = 0;
break;
}
if (dmg) mdamageu(mtmp, dmg);
}
