/* SCCS Id: @(#)mhitu.c 3.1 92/12/10 */ /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ /* NetHack may be freely redistributed. See license for details. */ #include "hack.h" #include "artifact.h" STATIC_VAR struct obj NEARDATA *otmp; #ifdef POLYSELF STATIC_DCL void FDECL(urustm, (struct monst *, struct obj *)); # ifdef OVL1 static int FDECL(passiveum, (struct permonst *,struct monst *,struct attack *)); # endif /* OVL1 */ #endif /* POLYSELF */ #ifdef OVLB # ifdef SEDUCE static void FDECL(mayberem, (struct obj *, const char *)); # endif #endif /* OVLB */ STATIC_DCL boolean FDECL(diseasemu, (struct permonst *)); STATIC_DCL int FDECL(hitmu, (struct monst *,struct attack *)); STATIC_DCL int FDECL(gulpmu, (struct monst *,struct attack *)); STATIC_DCL int FDECL(explmu, (struct monst *,struct attack *,BOOLEAN_P)); STATIC_DCL int FDECL(gazemu, (struct monst *,struct attack *)); STATIC_DCL void FDECL(missmu,(struct monst *,BOOLEAN_P,struct attack *)); STATIC_DCL void FDECL(mswings,(struct monst *,struct obj *)); STATIC_DCL void FDECL(wildmiss,(struct monst *)); STATIC_DCL void FDECL(hurtarmor,(struct permonst *,int)); STATIC_DCL void FDECL(hitmsg,(struct monst *,struct attack *)); /* See comment in mhitm.c. If we use this a lot it probably should be */ /* changed to a parameter to mhitu. */ static int dieroll; #ifdef OVL1 STATIC_OVL void hitmsg(mtmp, mattk) register struct monst *mtmp; register struct attack *mattk; { int compat; /* Note: if opposite gender, "seductively" */ /* If same gender, "engagingly" for nymph, normal msg for others */ if((compat = could_seduce(mtmp, &youmonst, mattk)) && !mtmp->mcan && !mtmp->mspec_used) { pline("%s %s you %s.", Monnam(mtmp), Blind ? "talks to" : "smiles at", compat == 2 ? "engagingly" : "seductively"); } else switch (mattk->aatyp) { case AT_BITE: pline("%s bites!", Monnam(mtmp)); break; case AT_KICK: #ifdef POLYSELF pline("%s kicks%c", Monnam(mtmp), thick_skinned(uasmon) ? '.' : '!'); #else pline("%s kicks!", Monnam(mtmp)); #endif break; case AT_STNG: pline("%s stings!", Monnam(mtmp)); break; case AT_BUTT: pline("%s butts!", Monnam(mtmp)); break; case AT_TUCH: pline("%s touches you!", Monnam(mtmp)); break; case AT_TENT: pline("%s tentacles suck you!", s_suffix(Monnam(mtmp))); break; case AT_EXPL: pline("%s explodes!", Monnam(mtmp)); break; default: pline("%s hits!", Monnam(mtmp)); } } STATIC_OVL void missmu(mtmp, nearmiss, mattk) /* monster missed you */ register struct monst *mtmp; register boolean nearmiss; register struct attack *mattk; { if(could_seduce(mtmp, &youmonst, mattk) && !mtmp->mcan) pline("%s pretends to be friendly.", Monnam(mtmp)); else { if (!flags.verbose || !nearmiss) pline("%s misses.", Monnam(mtmp)); else pline("%s just misses!", Monnam(mtmp)); } } STATIC_OVL void mswings(mtmp, otemp) /* monster swings obj */ register struct monst *mtmp; register struct obj *otemp; { if (!flags.verbose || Blind || !mon_visible(mtmp) || otemp->oclass != WEAPON_CLASS) return; pline("%s %s %s %s.", Monnam(mtmp), ((otemp->otyp >= SPEAR && otemp->otyp <= LANCE) || (otemp->otyp >= PARTISAN && otemp->otyp <= SPETUM) || otemp->otyp == TRIDENT) ? "thrusts" : "swings", !humanoid(mtmp->data) ? "its" : mtmp->female ? "her" : "his", xname(otemp)); } #endif /* OVL1 */ #ifdef OVLB STATIC_OVL void wildmiss(mtmp) /* monster attacked your displaced image */ register struct monst *mtmp; { int compat; if (!flags.verbose) return; if (!cansee(mtmp->mx, mtmp->my)) return; /* maybe it's attacking an image around the corner? */ compat = could_seduce(mtmp, &youmonst, (struct attack *)0); /* we really want to have the attack here to pass -- * the previous code checked whether mtmp was a nymph, * which was not correct either since the attack type of * succubi/incubi varies with SEDUCE */ if(Invis && !perceives(mtmp->data)) { if(compat) pline("%s tries to touch you and misses!", Monnam(mtmp)); else switch(rn2(3)) { case 0: pline("%s %s wildly and misses!", Monnam(mtmp), nolimbs(mtmp->data) ? "lunges" : "swings"); break; case 1: pline("%s attacks a spot beside you.", Monnam(mtmp)); break; case 2: pline("%s strikes at %s!", Monnam(mtmp), Underwater ? "empty water" : "thin air"); break; default:pline("%s %s wildly!", Monnam(mtmp), nolimbs(mtmp->data) ? "lunges" : "swings"); break; } } else if(Displaced) { if(compat) pline("%s smiles %s at your %sdisplaced image...", Monnam(mtmp), compat == 2 ? "engagingly" : "seductively", Invis ? "invisible " : ""); else pline("%s strikes at your %sdisplaced image and misses you!", /* Note: if you're both invisible and displaced, * only monsters which see invisible will attack your * displaced image, since the displaced image is also * invisible. */ Monnam(mtmp), Invis ? "invisible " : ""); } /* monsters may miss especially on water level where bubbles shake the player here and there */ else if(Underwater) { if(compat) pline("%s reaches towards your distorted image.",Monnam(mtmp)); else pline("%s is fooled by water reflections and misses!",Monnam(mtmp)); } else impossible("%s attacks you without knowing your location?", Monnam(mtmp)); } void expels(mtmp, mdat, message) register struct monst *mtmp; register struct permonst *mdat; /* if mtmp is polymorphed, mdat != mtmp->data */ boolean message; { if (message) if (is_animal(mdat)) You("get regurgitated!"); else { char blast[40]; register int i; blast[0] = '\0'; for(i = 0; i < NATTK; i++) if(mdat->mattk[i].aatyp == AT_ENGL) break; if (mdat->mattk[i].aatyp != AT_ENGL) impossible("Swallower has no engulfing attack?"); else { if (is_whirly(mdat)) { switch (mdat->mattk[i].adtyp) { case AD_ELEC: Strcpy(blast, " in a shower of sparks"); break; case AD_COLD: Strcpy(blast, " in a blast of frost"); break; } } else Strcpy(blast, " with a squelch"); You("get expelled from %s%s!", mon_nam(mtmp), blast); } } unstuck(mtmp); /* ball&chain returned in unstuck() */ mnexto(mtmp); newsym(u.ux,u.uy); spoteffects(); /* to cover for a case where mtmp is not in a next square */ if(um_dist(mtmp->mx,mtmp->my,1)) pline("Brrooaa... You land hard at some distance."); } #endif /* OVLB */ #ifdef OVL0 /* * mattacku: monster attacks you * returns 1 if monster dies (e.g. "yellow light"), 0 otherwise * Note: if you're displaced or invisible the monster might attack the * wrong position... * Assumption: it's attacking you or an empty square; if there's another * monster which it attacks by mistake, the caller had better * take care of it... */ int mattacku(mtmp) register struct monst *mtmp; { struct attack *mattk; int i, j, tmp, sum[NATTK]; struct permonst *mdat = mtmp->data; boolean ranged = (distu(mtmp->mx, mtmp->my) > 3); /* Is it near you? Affects your actions */ boolean range2 = !monnear(mtmp, mtmp->mux, mtmp->muy); /* Does it think it's near you? Affects its actions */ boolean foundyou = (mtmp->mux==u.ux && mtmp->muy==u.uy); /* Is it attacking you or your image? */ boolean youseeit = canseemon(mtmp); /* Might be attacking your image around the corner, or * invisible, or you might be blind.... */ if(!ranged) nomul(0); if(mtmp->mhp <= 0 || (Underwater && !is_swimmer(mtmp->data))) return(0); /* If swallowed, can only be affected by u.ustuck */ if(u.uswallow) { if(mtmp != u.ustuck) return(0); u.ustuck->mux = u.ux; u.ustuck->muy = u.uy; range2 = 0; foundyou = 1; if(u.uinvulnerable) return (0); /* stomachs can't hurt you! */ /* This is not impossible! */ /* If the swallowing monster changes into a monster * that is not capable of swallowing you, you get * regurgitated - dgk * * This code is obsolete: newcham() will handle this contingency * as soon as it occurs in the course of a round. - kcd * * for(i = 0; i < NATTK; i++) * if(mdat->mattk[i].aatyp == AT_ENGL) goto doattack; * * You("get regurgitated!"); * regurgitates(mtmp); * return(0); */ } /* doattack: use commented out above */ #ifdef POLYSELF if (u.uundetected && !range2 && foundyou && !u.uswallow) { u.uundetected = 0; if (is_hider(uasmon)) { coord cc; /* maybe we need a unexto() function? */ You("fall from the ceiling!"); if (enexto(&cc, u.ux, u.uy, &playermon)) { remove_monster(mtmp->mx, mtmp->my); newsym(mtmp->mx,mtmp->my); place_monster(mtmp, u.ux, u.uy); if(mtmp->wormno) worm_move(mtmp); teleds(cc.x, cc.y); set_apparxy(mtmp); newsym(u.ux,u.uy); } else { pline("%s is killed by a falling %s (you)!", Monnam(mtmp), uasmon->mname); killed(mtmp); newsym(u.ux,u.uy); return(0); } if (u.usym != S_PIERCER) return(0); /* trappers don't attack */ #ifdef MUSE if (which_armor(mtmp, WORN_HELMET)) { #else if (is_mercenary(mtmp->data) && m_carrying(mtmp,HELMET)) { #endif Your("blow glances off %s helmet.", s_suffix(mon_nam(mtmp))); } else { if (3 + find_mac(mtmp) <= rnd(20)) { pline("%s is hit by a falling piercer (you)!", Monnam(mtmp)); if ((mtmp->mhp -= d(3,6)) < 1) killed(mtmp); } else pline("%s is almost hit by a falling piercer (you)!", Monnam(mtmp)); } } else { if (!youseeit) pline("It tries to move where you are hiding."); else { /* Ugly kludge for eggs. The message is phrased so as * to be directed at the monster, not the player, * which makes "laid by you" wrong. For the * parallelism to work, we can't rephrase it, so we * zap the "laid by you" momentarily instead. */ struct obj *obj = level.objects[u.ux][u.uy]; if (obj) { int save_spe = obj->spe; if (obj->otyp == EGG) obj->spe = 0; pline("Wait, %s! There's a %s named %s hiding under %s!", mtmp->mnamelth ? (const char *)NAME(mtmp) : mtmp->data->mname, uasmon->mname, plname, doname(level.objects[u.ux][u.uy])); obj->spe = save_spe; } else impossible("hiding under nothing?"); } newsym(u.ux,u.uy); } return(0); } if (u.usym == S_MIMIC_DEF && !range2 && foundyou && !u.uswallow) { if (!youseeit) pline("It gets stuck on you."); else pline("Wait, %s! That's a %s named %s!", mtmp->mnamelth ? (const char *)NAME(mtmp) : mtmp->data->mname, uasmon->mname, plname); u.ustuck = mtmp; u.usym = S_MIMIC; newsym(u.ux,u.uy); return(0); } #endif /* Work out the armor class differential */ tmp = u.uac + 10; /* tmp ~= 0 - 20 */ /* give people with Ac < -9 at least some vulnerability */ /* negative AC gives an actual AC of somewhere from -1 to the AC */ if (tmp < 10) tmp = 10 - rnd(10-tmp); tmp += mtmp->m_lev; if(multi < 0) tmp += 4; if((Invis && !perceives(mdat)) || !mtmp->mcansee) tmp -= 2; if(mtmp->mtrapped) tmp -= 2; if(tmp <= 0) tmp = 1; /* make eels visible the moment they hit/miss us */ if(mdat->mlet == S_EEL && mtmp->minvis && cansee(mtmp->mx,mtmp->my)) { mtmp->minvis = 0; newsym(mtmp->mx,mtmp->my); } /* Special demon handling code */ if(!mtmp->cham && is_demon(mdat) && !range2 && mtmp->data != &mons[PM_BALROG] && mtmp->data != &mons[PM_SUCCUBUS] && mtmp->data != &mons[PM_INCUBUS]) if(!mtmp->mcan && !rn2(13)) msummon(mdat); /* Special lycanthrope handling code */ if(!mtmp->cham && is_were(mdat) && !range2) { if(is_human(mdat)) { if(!rn2(5 - (night() * 2)) && !mtmp->mcan) new_were(mtmp); } else if(!rn2(30) && !mtmp->mcan) new_were(mtmp); if(!rn2(10) && !mtmp->mcan) { if(youseeit) { pline("%s summons help!",youseeit ? Monnam(mtmp) : "It"); } else You("feel hemmed in."); /* Technically wrong; we really should check if you can see the * help, but close enough... */ if (!were_summon(mdat,FALSE) && youseeit) pline("But none comes."); } } if(u.uinvulnerable) { /* monster's won't attack you */ if(mtmp == u.ustuck) pline("%s loosens its grip slightly.", Monnam(mtmp)); else if(!range2) { if(youseeit) pline("%s starts to attack you, but pulls back.", Monnam(mtmp)); else You("feel something move nearby."); } return (0); } #ifdef MUSE /* Unlike defensive stuff, don't let them use item _and_ attack. */ /* Exception: Medusa; her gaze is automatic. (We actually kludge * by permitting a full attack sequence, not just a gaze attack.) */ if(find_offensive(mtmp)) { int foo = use_offensive(mtmp); if (mtmp->data != &mons[PM_MEDUSA] && foo != 0) return(foo==1); } #endif for(i = 0; i < NATTK; i++) { sum[i] = 0; mattk = &(mdat->mattk[i]); if (u.uswallow && (mattk->aatyp != AT_ENGL)) continue; switch(mattk->aatyp) { case AT_CLAW: /* "hand to hand" attacks */ case AT_KICK: case AT_BITE: case AT_STNG: case AT_TUCH: case AT_BUTT: case AT_TENT: if(!range2) { if (foundyou) { if(tmp > (j = rnd(20+i))) { #ifdef POLYSELF if (mattk->aatyp != AT_KICK || !thick_skinned(uasmon)) #endif sum[i] = hitmu(mtmp, mattk); } else missmu(mtmp, (tmp == j), mattk); } else wildmiss(mtmp); } break; case AT_HUGS: /* automatic if prev two attacks succeed */ /* Note: if displaced, prev attacks never succeeded */ if((!range2 && i>=2 && sum[i-1] && sum[i-2]) || mtmp == u.ustuck) sum[i]= hitmu(mtmp, mattk); break; case AT_GAZE: /* can affect you either ranged or not */ if (youseeit) /* not displaced around a corner so not visible */ sum[i] = gazemu(mtmp, mattk); /* if gazemu returns, the player isn't dead. * can't put this in gazemu() because youseeit might * not be set */ if(Reflecting && m_canseeu(mtmp) && !mtmp->mcan && mtmp->data == &mons[PM_MEDUSA]) { if(!Blind) { if(Reflecting & W_AMUL) makeknown(AMULET_OF_REFLECTION); else makeknown(SHIELD_OF_REFLECTION); pline("%s gaze is reflected by your %s.", s_suffix(Monnam(mtmp)), (Reflecting & W_AMUL) ? "medallion" : "shield"); pline("%s is turned to stone!", Monnam(mtmp)); } stoned = TRUE; killed(mtmp); sum[i] = 2; } break; case AT_EXPL: /* automatic hit if next to, and aimed at you */ if(!range2) sum[i] = explmu(mtmp, mattk, foundyou); break; case AT_ENGL: if (!range2) { if(foundyou) { if(u.uswallow || tmp > (j = rnd(20+i))) { /* Force swallowing monster to be * displayed even when player is * moving away */ flush_screen(1); sum[i] = gulpmu(mtmp, mattk); } else { missmu(mtmp, (tmp == j), mattk); } } else if (is_animal(mtmp->data)) pline("%s gulps some air!", youseeit ? Monnam(mtmp) : "It"); else if (youseeit) pline("%s lunges forward and recoils!", Monnam(mtmp)); else You("hear a %s nearby.", is_whirly(mtmp->data)? "rushing noise" : "splat"); } break; case AT_BREA: if(range2) sum[i] = breamu(mtmp, mattk); /* Note: breamu takes care of displacement */ break; case AT_SPIT: if(range2) sum[i] = spitmu(mtmp, mattk); /* Note: spitmu takes care of displacement */ break; case AT_WEAP: if(range2) { #ifdef REINCARNATION if (!Is_rogue_level(&u.uz)) #endif thrwmu(mtmp); } else { #ifdef MUSE /* Rare but not impossible. Normally the monster * wields when 2 spaces away, but it can be * teleported or whatever.... */ if (mtmp->weapon_check == NEED_WEAPON || !MON_WEP(mtmp)) { mtmp->weapon_check = NEED_HTH_WEAPON; /* mon_wield_item resets weapon_check as appropriate */ if (mon_wield_item(mtmp) != 0) break; } #endif if (foundyou) { set_uasmon(); #ifdef MUSE otmp = MON_WEP(mtmp); #else otmp = select_hwep(mtmp); #endif if(otmp) { tmp += hitval(otmp, uasmon); mswings(mtmp, otmp); } if(tmp > (j = dieroll = rnd(20+i))) sum[i] = hitmu(mtmp, mattk); else missmu(mtmp, (tmp == j), mattk); } else wildmiss(mtmp); } break; case AT_MAGC: if (range2) sum[i] = buzzmu(mtmp, mattk); else if (foundyou) sum[i] = castmu(mtmp, mattk); else pline("%s casts a spell at thin air!", youseeit ? Monnam(mtmp) : "It"); /* Not totally right since castmu allows other * spells, such as the monster healing itself, * that should work even when not next to you-- * but the previous code was just as wrong. * --KAA */ break; default: /* no attack */ break; } if(flags.botl) bot(); if(sum[i] == 2) return(1); /* attacker dead */ if(sum[i] == 3) break; /* attacker teleported, no more attacks */ /* sum[i] == 1: successful attack */ /* sum[i] == 0: unsuccessful attack */ } return(0); } #endif /* OVL0 */ #ifdef OVLB /* * helper function for some compilers that have trouble with hitmu */ STATIC_OVL void hurtarmor(mdat, attk) struct permonst *mdat; int attk; { boolean getbronze, rusting; int hurt; rusting = (attk == AD_RUST); if (rusting) { hurt = 1; getbronze = (mdat == &mons[PM_BLACK_PUDDING] && uarm && is_corrodeable(uarm)); } else { hurt=2; getbronze = FALSE; } /* What the following code does: it keeps looping until it * finds a target for the rust monster. * Head, feet, etc... not covered by metal, or covered by * rusty metal, are not targets. However, your body always * is, no matter what covers it. */ while (1) { switch(rn2(5)) { case 0: if (!rust_dmg(uarmh, rusting ? "helmet" : "leather helmet", hurt, FALSE)) continue; break; case 1: if (uarmc) break; /* Note the difference between break and continue; * break means it was hit and didn't rust; continue * means it wasn't a target and though it didn't rust * something else did. */ if (getbronze) (void)rust_dmg(uarm, "bronze armor", 3, TRUE); else if (uarm) (void)rust_dmg(uarm, xname(uarm), hurt, TRUE); break; case 2: if (!rust_dmg(uarms, rusting ? "shield" : "wooden shield", hurt, FALSE)) continue; break; case 3: if (!rust_dmg(uarmg, rusting ? "metal gauntlets" : "gloves", hurt, FALSE)) continue; break; case 4: if (!rust_dmg(uarmf, rusting ? "metal boots" : "boots", hurt, FALSE)) continue; break; } break; /* Out of while loop */ } } #endif /* OVLB */ #ifdef OVL1 STATIC_OVL boolean diseasemu(mdat) struct permonst *mdat; { if (defends(AD_DISE,uwep) #ifdef POLYSELF || u.usym == S_FUNGUS #endif ) { You("feel a slight illness."); return FALSE; } else { if (!Sick) You("feel very sick."); exercise(A_CON, FALSE); make_sick(Sick + (long)rn1(25-ACURR(A_CON),15),FALSE); u.usick_cause = mdat->mname; return TRUE; } } /* * hitmu: monster hits you * returns 2 if monster dies (e.g. "yellow light"), 1 otherwise * 3 if the monster lives but teleported/paralyzed, so it can't keep * attacking you */ STATIC_OVL int hitmu(mtmp, mattk) register struct monst *mtmp; register struct attack *mattk; { register struct permonst *mdat = mtmp->data; register int ctmp, ptmp; int dmg, armpro; char buf[BUFSZ]; #ifdef POLYSELF struct permonst *olduasmon = uasmon; int res; #endif /* If the monster is undetected & hits you. You should know where * the attack came from. */ if(mtmp->mundetected && hides_under(mdat)) { mtmp->mundetected = 0; if(!(Blind ? Telepat : (HTelepat & (WORN_HELMET|WORN_AMUL)))) { register struct obj *obj; if(OBJ_AT(mtmp->mx, mtmp->my)) { if((obj = level.objects[mtmp->mx][mtmp->my]) != 0) pline("%s was hidden under %s!", Amonnam(mtmp), doname(obj)); } newsym(mtmp->mx, mtmp->my); } } /* First determine the base damage done */ dmg = d((int)mattk->damn, (int)mattk->damd); if(is_undead(mdat) && midnight()) dmg += d((int)mattk->damn, (int)mattk->damd); /* extra damage */ /* Next a cancellation factor */ /* Use ctmp when the cancellation factor takes into account certain * armor's special magic protection. Otherwise just use !mtmp->mcan. */ armpro = 0; if (uarm && armpro < objects[uarm->otyp].a_can) armpro = objects[uarm->otyp].a_can; if (uarmc && armpro < objects[uarmc->otyp].a_can) armpro = objects[uarmc->otyp].a_can; ctmp = !mtmp->mcan && ((rn2(3) >= armpro) || !rn2(50)); /* Now, adjust damages via resistances or specific attacks */ switch(mattk->adtyp) { case AD_PHYS: if(mattk->aatyp == AT_HUGS #ifdef POLYSELF && !sticks(uasmon) #endif ) { if(!u.ustuck && rn2(2)) { u.ustuck = mtmp; pline("%s grabs you!", Monnam(mtmp)); } else if(u.ustuck == mtmp) { exercise(A_STR, FALSE); You("are being %s.", (mtmp->data == &mons[PM_ROPE_GOLEM]) ? "choked" : "crushed"); } } else { /* hand to hand weapon */ if(mattk->aatyp == AT_WEAP && otmp) { dmg += dmgval(otmp, uasmon); if (dmg <= 0) dmg = 1; if (!(otmp->oartifact && artifact_hit(mtmp, &youmonst, otmp, &dmg,dieroll))) hitmsg(mtmp, mattk); #ifdef POLYSELF if (u.mh > 1 && u.mh > ((u.uac>0) ? dmg : dmg+u.uac) && (u.umonnum==PM_BLACK_PUDDING || u.umonnum==PM_BROWN_PUDDING)) { /* This redundancy necessary because you have to * take the damage _before_ being cloned. */ if (u.uac < 0) dmg += u.uac; if (dmg < 1) dmg = 1; if (dmg > 1) exercise(A_STR, FALSE); u.mh -= dmg; flags.botl = 1; dmg = 0; if(cloneu()) You("divide as %s hits you!",mon_nam(mtmp)); } urustm(mtmp, otmp); #endif } else hitmsg(mtmp, mattk); } break; case AD_DISE: hitmsg(mtmp, mattk); if (!diseasemu(mdat)) dmg = 0; break; case AD_FIRE: hitmsg(mtmp, mattk); if(ctmp) { pline("You're on fire!"); if (Fire_resistance) { pline("The fire doesn't feel hot!"); dmg = 0; } if((int) mtmp->m_lev > rn2(20)) destroy_item(SCROLL_CLASS, AD_FIRE); if((int) mtmp->m_lev > rn2(20)) destroy_item(POTION_CLASS, AD_FIRE); if((int) mtmp->m_lev > rn2(25)) destroy_item(SPBOOK_CLASS, AD_FIRE); } else dmg = 0; break; case AD_COLD: hitmsg(mtmp, mattk); if(ctmp) { pline("You're covered in frost!"); if (Cold_resistance) { pline("The frost doesn't seem cold!"); dmg = 0; } if((int) mtmp->m_lev > rn2(20)) destroy_item(POTION_CLASS, AD_COLD); } else dmg = 0; break; case AD_ELEC: hitmsg(mtmp, mattk); if(ctmp) { You("get zapped!"); if (Shock_resistance) { pline("The zap doesn't shock you!"); dmg = 0; } if((int) mtmp->m_lev > rn2(20)) destroy_item(WAND_CLASS, AD_ELEC); if((int) mtmp->m_lev > rn2(20)) destroy_item(RING_CLASS, AD_ELEC); } else dmg = 0; break; case AD_SLEE: hitmsg(mtmp, mattk); if(ctmp && multi >= 0 && !rn2(5)) { if (Sleep_resistance) break; nomul(-rnd(10)); u.usleep = 1; nomovemsg = "You wake up."; if (Blind) You("are put to sleep!"); else You("are put to sleep by %s!",mon_nam(mtmp)); } break; case AD_DRST: ptmp = A_STR; goto dopois; case AD_DRDX: ptmp = A_DEX; goto dopois; case AD_DRCO: ptmp = A_CON; dopois: hitmsg(mtmp, mattk); if(ctmp && !rn2(8)) { Sprintf(buf, "%s %s", !(canseemon(mtmp) || sensemon(mtmp)) ? "Its" : Hallucination ? s_suffix(rndmonnam()) : s_suffix(mdat->mname), (mattk->aatyp == AT_BITE) ? "bite" : "sting"); poisoned(buf, ptmp, mdat->mname, 30); } break; case AD_DRIN: hitmsg(mtmp, mattk); if (defends(AD_DRIN, uwep) #ifdef POLYSELF || !has_head(uasmon) #endif ) { You("don't seem harmed."); break; } if (uarmh && rn2(8)) { Your("helmet blocks the attack to your head."); break; } if (Half_physical_damage) dmg = (dmg+1) / 2; losehp(dmg, mon_nam(mtmp), KILLED_BY_AN); Your("brain is eaten!"); /* No such thing as mindless players... */ if (ABASE(A_INT) <= ATTRMIN(A_INT)) { int lifesaved = 0; while(1) { if (lifesaved) pline("Unfortunately your brain is still gone."); else Your("last thought fades away."); killer = "brainlessness"; killer_format = KILLED_BY; done(DIED); lifesaved = 1; #ifdef WIZARD if (wizard) break; #endif } } (void) adjattrib(A_INT, -rnd(2), FALSE); exercise(A_WIS, FALSE); break; case AD_PLYS: hitmsg(mtmp, mattk); if(ctmp && multi >= 0 && !rn2(3)) { if (Blind) You("are frozen!"); else You("are frozen by %s!", mon_nam(mtmp)); nomul(-rnd(10)); exercise(A_DEX, FALSE); } break; case AD_DRLI: hitmsg(mtmp, mattk); if (ctmp && !rn2(3) #ifdef POLYSELF && !resists_drli(uasmon) #endif && !defends(AD_DRLI, uwep) ) losexp(); break; case AD_LEGS: { register long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE; if (mtmp->mcan) { pline("%s nuzzles against your %s %s!", Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left", body_part(LEG)); } else { if (uarmf) { pline("%s scratches your %s boot!", Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left"); break; } pline("%s pricks your %s %s!", Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left", body_part(LEG)); set_wounded_legs(side, rnd(60-ACURR(A_DEX))); exercise(A_STR, FALSE); exercise(A_DEX, FALSE); } break; } case AD_STON: /* at present only a cockatrice */ hitmsg(mtmp, mattk); if(!rn2(3) && !Stoned) { if (mtmp->mcan) { if (flags.soundok) You("hear a cough from %s!", mon_nam(mtmp)); } else { if (flags.soundok) You("hear %s hissing!", s_suffix(mon_nam(mtmp))); if((!rn2(10) || (flags.moonphase == NEW_MOON && !have_lizard())) #ifdef POLYSELF && !resists_ston(uasmon) && !(poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)) #endif ) { Stoned = 5; return(1); /* You("turn to stone..."); */ /* done_in_by(mtmp); */ } } } break; case AD_STCK: hitmsg(mtmp, mattk); if(ctmp && !u.ustuck #ifdef POLYSELF && !sticks(uasmon) #endif ) u.ustuck = mtmp; break; case AD_WRAP: if(ctmp #ifdef POLYSELF && !sticks(uasmon) #endif ) { if(!u.ustuck && !rn2(10)) { pline("%s swings itself around you!", Monnam(mtmp)); u.ustuck = mtmp; } else if(u.ustuck == mtmp) { if (is_pool(mtmp->mx,mtmp->my) #ifdef POLYSELF && !is_swimmer(uasmon) #endif && !Magical_breathing ) { pline("%s drowns you....", Monnam(mtmp)); done(DROWNING); } else if(mattk->aatyp == AT_HUGS) You("are being crushed."); } else { dmg = 0; if(flags.verbose) pline("%s brushes against your %s.", Monnam(mtmp), body_part(LEG)); } } else dmg = 0; break; case AD_WERE: hitmsg(mtmp, mattk); #ifdef POLYSELF if (ctmp && !rn2(4) && u.ulycn == -1 && !Protection_from_shape_changers && !defends(AD_WERE,uwep)) { You("feel feverish."); exercise(A_CON, FALSE); u.ulycn = monsndx(mdat); } #endif break; case AD_SGLD: hitmsg(mtmp, mattk); #ifdef POLYSELF if (u.usym == mdat->mlet) break; #endif if(!mtmp->mcan) stealgold(mtmp); break; case AD_SITM: /* for now these are the same */ case AD_SEDU: #ifdef POLYSELF if (dmgtype(uasmon, AD_SEDU) # ifdef SEDUCE || dmgtype(uasmon, AD_SSEX) # endif ) { if (mtmp->minvent) pline("%s brags about the goods some dungeon explorer provided.", Monnam(mtmp)); else pline("%s makes some remarks about how difficult theft is lately.", Monnam(mtmp)); rloc(mtmp); return 3; } else #endif if(mtmp->mcan) { if (!Blind) { pline("%s tries to %s you, but you seem %s.", Adjmonnam(mtmp, "plain"), flags.female ? "charm" : "seduce", flags.female ? "unaffected" : "uninterested"); } if(rn2(3)) { rloc(mtmp); return 3; } } else { switch (steal(mtmp)) { case -1: return 2; case 0: break; default: rloc(mtmp); mtmp->mflee = 1; return 3; } } break; #ifdef SEDUCE case AD_SSEX: if(could_seduce(mtmp, &youmonst, mattk) == 1 && !mtmp->mcan) if (doseduce(mtmp)) return 3; break; #endif case AD_SAMU: hitmsg(mtmp, mattk); /* when the Wiz hits, 1/20 steals the amulet */ if (!u.uhave.amulet) break; if (!rn2(20)) stealamulet(mtmp); break; case AD_TLPT: hitmsg(mtmp, mattk); if(ctmp) { if(flags.verbose) Your("position suddenly seems very uncertain!"); tele(); } break; case AD_RUST: hitmsg(mtmp, mattk); if (mtmp->mcan) break; #if defined(POLYSELF) if (u.umonnum == PM_IRON_GOLEM) { You("rust!"); rehumanize(); break; } #endif hurtarmor(mdat, AD_RUST); break; case AD_DCAY: hitmsg(mtmp, mattk); if (mtmp->mcan) break; #if defined(POLYSELF) if (u.umonnum == PM_WOOD_GOLEM || u.umonnum == PM_LEATHER_GOLEM) { You("rot!"); rehumanize(); break; } #endif hurtarmor(mdat, AD_DCAY); break; case AD_HEAL: if(!uwep #ifdef TOURIST && !uarmu #endif && !uarm && !uarmh && !uarms && !uarmg && !uarmc && !uarmf) { pline("%s hits! (I hope you don't mind.)", Monnam(mtmp)); #ifdef POLYSELF if (u.mtimedone) { u.mh += rnd(7); if(!rn2(7)) u.mhmax++; if(u.mh > u.mhmax) u.mh = u.mhmax; if(u.mh == u.mhmax && !rn2(50)) mongone(mtmp); } else { #endif u.uhp += rnd(7); if(!rn2(7)) u.uhpmax++; if(u.uhp > u.uhpmax) u.uhp = u.uhpmax; if(u.uhp == u.uhpmax && !rn2(50)) mongone(mtmp); #ifdef POLYSELF } #endif exercise(A_STR, TRUE); exercise(A_CON, TRUE); flags.botl = 1; if(!rn2(50)) rloc(mtmp); dmg = 0; } else if(pl_character[0] == 'H') { if (flags.soundok && !(moves % 5)) verbalize("Doc, I can't help you unless you cooperate."); dmg = 0; } else hitmsg(mtmp, mattk); break; case AD_CURS: hitmsg(mtmp, mattk); if(!night() && mdat == &mons[PM_GREMLIN]) break; if(!mtmp->mcan && !rn2(10)) { if (flags.soundok) if (Blind) You("hear laughter."); else pline("%s chuckles.", Monnam(mtmp)); #ifdef POLYSELF if (u.umonnum == PM_CLAY_GOLEM) { pline("Some writing vanishes from your head!"); rehumanize(); break; } #endif attrcurse(); } break; case AD_STUN: hitmsg(mtmp, mattk); if(!mtmp->mcan && !rn2(4)) { make_stunned(HStun + dmg, TRUE); dmg /= 2; } break; case AD_ACID: hitmsg(mtmp, mattk); if(!mtmp->mcan && !rn2(3)) #ifdef POLYSELF if (resists_acid(uasmon)) { pline("You're covered in acid, but it seems harmless."); dmg = 0; } else #endif { pline("You're covered in acid! It burns!"); exercise(A_STR, FALSE); } else dmg = 0; break; case AD_SLOW: hitmsg(mtmp, mattk); if(!ctmp && (Fast & (INTRINSIC|TIMEOUT)) && !defends(AD_SLOW, uwep) && !rn2(4)) { Fast &= ~(INTRINSIC|TIMEOUT); You("feel yourself slowing down."); exercise(A_DEX, FALSE); } break; case AD_DREN: hitmsg(mtmp, mattk); if(!ctmp && !rn2(4)) drain_en(dmg); dmg = 0; break; case AD_CONF: hitmsg(mtmp, mattk); if(!mtmp->mcan && !rn2(4) && !mtmp->mspec_used) { mtmp->mspec_used = mtmp->mspec_used + (dmg + rn2(6)); if(Confusion) You("are getting even more confused."); else You("are getting confused."); make_confused(HConfusion + dmg, FALSE); } /* fall through to next case */ case AD_DETH: pline("%s reaches out with its deadly touch.", Monnam(mtmp)); #ifdef POLYSELF if (is_undead(uasmon)) { /* Still does normal damage */ pline("Was that the touch of death?"); break; } #endif if(!Antimagic && rn2(20) > 16) { killer_format = KILLED_BY_AN; killer = "touch of death"; done(DIED); } else { if(!rn2(5)) { if(Antimagic) shieldeff(u.ux, u.uy); pline("Lucky for you, it didn't work!"); dmg = 0; } else You("feel your life force draining away..."); } break; case AD_PEST: pline("%s reaches out, and you feel fever and chills.", Monnam(mtmp)); (void) diseasemu(mdat); /* plus the normal damage */ break; case AD_FAMN: pline("%s reaches out, and your body shrivels.", Monnam(mtmp)); exercise(A_CON, FALSE); morehungry(rn1(40,40)); /* plus the normal damage */ break; default: dmg = 0; break; } if(u.uhp < 1) done_in_by(mtmp); /* Negative armor class reduces damage done instead of fully protecting * against hits. */ if (dmg && u.uac < 0) { dmg -= rnd(-u.uac); if (dmg < 1) dmg = 1; } if(dmg) { if(Half_physical_damage) dmg = (dmg+1) / 2; #ifdef MULDGN else if(pl_character[0] == 'P' && uwep && is_quest_artifact(uwep) && is_undead(mtmp->data)) dmg = (dmg+1) / 2; #endif mdamageu(mtmp, dmg); } #ifdef POLYSELF res = passiveum(olduasmon, mtmp, mattk); stop_occupation(); return res; #else stop_occupation(); return 1; #endif } #endif /* OVL1 */ #ifdef OVLB STATIC_OVL int gulpmu(mtmp, mattk) /* monster swallows you, or damage if u.uswallow */ register struct monst *mtmp; register struct attack *mattk; { struct trap *t = t_at(u.ux, u.uy); int tmp = d((int)mattk->damn, (int)mattk->damd); int tim_tmp; register struct obj *otmp2; #ifdef WALKIES int i; #endif if(!u.uswallow) { /* swallows you */ #ifdef POLYSELF if (uasmon->msize >= MZ_HUGE) return(0); #endif if ((t && ((t->ttyp == PIT) || (t->ttyp == SPIKED_PIT))) && sobj_at(BOULDER, u.ux, u.uy)) return(0); if (Punished) unplacebc(); /* ball&chain go away */ remove_monster(mtmp->mx, mtmp->my); place_monster(mtmp, u.ux, u.uy); u.ustuck = mtmp; newsym(mtmp->mx,mtmp->my); pline("%s engulfs you!", Monnam(mtmp)); stop_occupation(); if (u.utrap) { You("are released from the %s!", u.utraptype==TT_WEB ? "web" : "trap"); u.utrap = 0; } #ifdef WALKIES if((i = number_leashed()) > 0) { pline("The leash%s snap%s loose...", (i > 1) ? "es" : "", (i > 1) ? "" : "s"); unleash_all(); } #endif #ifdef POLYSELF if (u.umonnum==PM_COCKATRICE && !resists_ston(mtmp->data)) { pline("%s turns to stone!", Monnam(mtmp)); stoned = 1; xkilled(mtmp, 0); return 2; } #endif display_nhwindow(WIN_MESSAGE, FALSE); vision_recalc(2); /* hero can't see anything */ u.uswallow = 1; /*assume that u.uswldtim always set >=0*/ u.uswldtim = (tim_tmp = (-u.uac + 10 + rnd(25 - (int)mtmp->m_lev)) >> 1) > 0 ? tim_tmp : 0; swallowed(1); for(otmp2 = invent; otmp2; otmp2 = otmp2->nobj) { (void) snuff_lit(otmp2); } } else { if(mtmp != u.ustuck) return(0); switch(mattk->adtyp) { case AD_DGST: if(!u.uswldtim) { /* a3 *//*no cf unsigned <=0*/ pline("%s totally digests you!", Monnam(mtmp)); tmp = u.uhp; } else { pline("%s digests you!", Monnam(mtmp)); exercise(A_STR, FALSE); } break; case AD_PHYS: You("are pummeled with debris!"); exercise(A_STR, FALSE); break; case AD_ACID: #ifdef POLYSELF if (resists_acid(uasmon)) { You("are covered with a seemingly harmless goo."); tmp = 0; } else #endif { if (Hallucination) pline("Ouch! You've been slimed!"); else You("are covered in slime! It burns!"); exercise(A_STR, FALSE); } break; case AD_BLND: if (!defends(AD_BLND, uwep)) { if(!Blind) { You("can't see in here!"); make_blinded((long)tmp,FALSE); } else /* keep him blind until disgorged */ make_blinded(Blinded+1,FALSE); } tmp = 0; break; case AD_ELEC: if(!mtmp->mcan && rn2(2)) { pline("The air around you crackles with electricity."); if (Shock_resistance) { shieldeff(u.ux, u.uy); You("seem unhurt."); #if defined(POLYSELF) ugolemeffects(AD_ELEC,tmp); #endif tmp = 0; } } else tmp = 0; break; case AD_COLD: if(!mtmp->mcan && rn2(2)) { if (Cold_resistance) { shieldeff(u.ux, u.uy); You("feel mildly chilly."); #if defined(POLYSELF) ugolemeffects(AD_COLD,tmp); #endif tmp = 0; } else You("are freezing to death!"); } else tmp = 0; break; case AD_FIRE: if(!mtmp->mcan && rn2(2)) { if (Fire_resistance) { shieldeff(u.ux, u.uy); You("feel mildly hot."); #if defined(POLYSELF) ugolemeffects(AD_FIRE,tmp); #endif tmp = 0; } else You("are burning to a crisp!"); } else tmp = 0; break; case AD_DISE: if (!diseasemu(mtmp->data)) tmp = 0; break; default: tmp = 0; break; } } if(Half_physical_damage) tmp = (tmp+1) / 2; mdamageu(mtmp, tmp); if(tmp) stop_occupation(); if(u.uswldtim) --u.uswldtim; if(!u.uswldtim #ifdef POLYSELF || u.umonnum==PM_COCKATRICE || uasmon->msize >= MZ_HUGE #endif ) { #ifdef POLYSELF if (u.umonnum == PM_COCKATRICE) { pline("%s very hurriedly %s you!", Monnam(mtmp), is_animal(mtmp->data)? "regurgitates" : "expels"); u.uswldtim = 0; } else { #endif You("get %s!", is_animal(mtmp->data)? "regurgitated" : "expelled"); if(flags.verbose && is_animal(mtmp->data)) pline("Obviously %s doesn't like your taste.", mon_nam(mtmp)); #ifdef POLYSELF } #endif expels(mtmp, mtmp->data, FALSE); } return(1); } STATIC_OVL int explmu(mtmp, mattk, ufound) /* monster explodes in your face */ register struct monst *mtmp; register struct attack *mattk; boolean ufound; { if (mtmp->mcan) return(0); if (!ufound) pline("%s explodes at a spot in thin air!", canseemon(mtmp) ? Monnam(mtmp) : "It"); else { register int tmp = d((int)mattk->damn, (int)mattk->damd); register boolean not_affected = defends((int)mattk->adtyp, uwep); hitmsg(mtmp, mattk); switch (mattk->adtyp) { case AD_COLD: not_affected |= Cold_resistance; if (!not_affected) { if (flags.verbose) You("get blasted!"); if (ACURR(A_DEX) > rnd(20)) { You("duck the blast..."); tmp = (tmp+1) / 2; } if (Half_physical_damage) tmp = (tmp+1) / 2; mdamageu(mtmp, tmp); } break; case AD_BLND: not_affected |= #ifdef POLYSELF (u.umonnum == PM_YELLOW_LIGHT) || #endif Blind; if (!not_affected) { if (mon_visible(mtmp)) { You("are blinded by a blast of light!"); make_blinded((long)tmp, FALSE); } else You("get the impression it was not terribly bright."); } break; default: break; } if (not_affected) { You("seem unaffected by it."); #if defined(POLYSELF) ugolemeffects((int)mattk->adtyp, tmp); #endif } } mondead(mtmp); return(2); /* it dies */ } STATIC_OVL int gazemu(mtmp, mattk) /* monster gazes at you */ register struct monst *mtmp; register struct attack *mattk; { switch(mattk->adtyp) { case AD_STON: if (mtmp->mcan) { You("notice that %s isn't all that ugly.",mon_nam(mtmp)); break; } if (canseemon(mtmp)) { You("look upon %s.", mon_nam(mtmp)); # ifdef POLYSELF if (resists_ston(uasmon)) { pline("So what?"); break; } if(poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM)) break; # endif You("turn to stone..."); killer_format = KILLED_BY_AN; killer = mons[PM_MEDUSA].mname; done(STONING); } break; case AD_CONF: if(!mtmp->mcan && canseemon(mtmp) && mtmp->mcansee && !mtmp->mspec_used && rn2(5)) { int conf = d(3,4); mtmp->mspec_used = mtmp->mspec_used + (conf + rn2(6)); if(!Confusion) pline("%s gaze confuses you!", s_suffix(Monnam(mtmp))); else You("are getting more and more confused."); make_confused(HConfusion + conf, FALSE); } break; case AD_STUN: if(!mtmp->mcan && canseemon(mtmp) && mtmp->mcansee && !mtmp->mspec_used && rn2(5)) { int stun = d(2,6); pline("%s stares piercingly at you!", Monnam(mtmp)); mtmp->mspec_used = mtmp->mspec_used + (stun + rn2(6)); make_stunned(HStun + stun, TRUE); } break; case AD_BLND: if(!mtmp->mcan && canseemon(mtmp) && !defends(AD_BLND, uwep) && distu(mtmp->mx,mtmp->my) <= BOLT_LIM*BOLT_LIM) { int blnd = d((int)mattk->damn, (int)mattk->damd); You("are blinded by %s radiance!", s_suffix(mon_nam(mtmp))); make_blinded((long)blnd,FALSE); make_stunned((long)d(1,3),TRUE); } break; default: impossible("Gaze attack %d?", mattk->adtyp); break; } return(1); } #endif /* OVLB */ #ifdef OVL1 void mdamageu(mtmp, n) /* mtmp hits you for n points damage */ register struct monst *mtmp; register int n; { #ifdef POLYSELF if (u.mtimedone) { u.mh -= n; flags.botl = 1; if (u.mh < 1) rehumanize(); return; } #endif u.uhp -= n; flags.botl = 1; if(u.uhp < 1) done_in_by(mtmp); } #endif /* OVL1 */ #ifdef OVLB #ifdef POLYSELF STATIC_OVL void urustm(mon, obj) register struct monst *mon; register struct obj *obj; { boolean vis = cansee(mon->mx, mon->my); if (!mon || !obj) return; /* just in case */ if (u.umonnum == PM_RUST_MONSTER && is_rustprone(obj) && obj->oeroded < MAX_ERODE) { if (obj->greased || obj->oerodeproof || (obj->blessed && rn2(3))) { if (vis) pline("Somehow, %s weapon is not affected.", s_suffix(mon_nam(mon))); if (obj->greased && !rn2(2)) obj->greased = 0; } else { if (vis) pline("%s %s%s!", s_suffix(Monnam(mon)), aobjnam(obj, "rust"), obj->oeroded ? " further" : ""); obj->oeroded++; } } } #endif #endif /* OVLB */ #ifdef OVL1 int could_seduce(magr,mdef,mattk) struct monst *magr, *mdef; struct attack *mattk; /* returns 0 if seduction impossible, * 1 if fine, * 2 if wrong gender for nymph */ { register struct permonst *pagr; boolean agrinvis, defperc; xchar genagr, gendef; if(magr == &youmonst) { pagr = uasmon; agrinvis = (Invis != 0); genagr = poly_gender(); } else { pagr = magr->data; agrinvis = magr->minvis; genagr = gender(magr); } if(mdef == &youmonst) { defperc = (See_invisible != 0); gendef = poly_gender(); } else { defperc = perceives(mdef->data); gendef = gender(mdef); } if(agrinvis && !defperc #ifdef SEDUCE && mattk && mattk->adtyp != AD_SSEX #endif ) return 0; if(pagr->mlet != S_NYMPH && ((pagr != &mons[PM_INCUBUS] && pagr != &mons[PM_SUCCUBUS]) #ifdef SEDUCE || (mattk && mattk->adtyp != AD_SSEX) #endif )) return 0; if(genagr == 1 - gendef) return 1; else return (pagr->mlet == S_NYMPH) ? 2 : 0; } #endif /* OVL1 */ #ifdef OVLB #ifdef SEDUCE /* Returns 1 if monster teleported */ int doseduce(mon) register struct monst *mon; { register struct obj *ring; boolean fem = (mon->data == &mons[PM_SUCCUBUS]); /* otherwise incubus */ char qbuf[QBUFSZ]; if (mon->mcan || mon->mspec_used) { pline("%s acts as though %s has got a %sheadache.", Monnam(mon), Blind ? "it" : fem ? "she" : "he", mon->mcan ? "severe " : ""); return 0; } if (unconscious()) { pline("%s seems dismayed at your lack of response.", Monnam(mon)); return 0; } if (Blind) pline("It caresses you..."); else You("feel very attracted to %s.", mon_nam(mon)); for(ring = invent; ring; ring = ring->nobj) { if (ring->otyp != RIN_ADORNMENT) continue; if (fem) { if (rn2(20) < ACURR(A_CHA)) { Sprintf(qbuf, "\"That %s looks pretty. May I have it?\"", xname(ring)); makeknown(RIN_ADORNMENT); if (yn(qbuf) == 'n') continue; } else pline("%s decides she'd like your %s, and takes it.", Blind ? "She" : Monnam(mon), xname(ring)); makeknown(RIN_ADORNMENT); if (ring==uleft || ring==uright) Ring_gone(ring); if (ring==uwep) setuwep((struct obj *)0); freeinv(ring); mpickobj(mon,ring); } else { char buf[BUFSZ]; if (uleft && uright && uleft->otyp == RIN_ADORNMENT && uright->otyp==RIN_ADORNMENT) break; if (ring==uleft || ring==uright) continue; if (rn2(20) < ACURR(A_CHA)) { Sprintf(qbuf,"\"That %s looks pretty. Would you wear it for me?\"", xname(ring)); makeknown(RIN_ADORNMENT); if (yn(qbuf) == 'n') continue; } else { pline("%s decides you'd look prettier wearing your %s,", Blind ? "He" : Monnam(mon), xname(ring)); pline("and puts it on your finger."); } makeknown(RIN_ADORNMENT); if (!uright) { pline("%s puts %s on your right hand.", Blind ? "He" : Monnam(mon), the(xname(ring))); setworn(ring, RIGHT_RING); } else if (!uleft) { pline("%s puts %s on your left hand.", Blind ? "He" : Monnam(mon), the(xname(ring))); setworn(ring, LEFT_RING); } else if (uright && uright->otyp != RIN_ADORNMENT) { Strcpy(buf, xname(uright)); pline("%s replaces your %s with your %s.", Blind ? "He" : Monnam(mon), buf, xname(ring)); Ring_gone(uright); setworn(ring, RIGHT_RING); } else if (uleft && uleft->otyp != RIN_ADORNMENT) { Strcpy(buf, xname(uleft)); pline("%s replaces your %s with your %s.", Blind ? "He" : Monnam(mon), buf, xname(ring)); Ring_gone(uleft); setworn(ring, LEFT_RING); } else impossible("ring replacement"); Ring_on(ring); prinv(NULL, ring, 0L); } } if (!uarmc && !uarmf && !uarmg && !uarms && !uarmh #ifdef TOURIST && !uarmu #endif ) pline("%s murmurs sweet nothings into your ear.", Blind ? (fem ? "She" : "He") : Monnam(mon)); else pline("%s murmurs in your ear, while helping you undress.", Blind ? (fem ? "She" : "He") : Monnam(mon)); mayberem(uarmc, "cloak"); if(!uarmc) mayberem(uarm, "suit"); mayberem(uarmf, "boots"); if(!uwep || !welded(uwep)) mayberem(uarmg, "gloves"); mayberem(uarms, "shield"); mayberem(uarmh, "helmet"); #ifdef TOURIST if(!uarmc && !uarm) mayberem(uarmu, "shirt"); #endif if (uarm || uarmc) { verbalize("You're such a %s; I wish...", flags.female ? "sweet lady" : "nice guy"); rloc(mon); return 1; } if (u.ualign.type == A_CHAOTIC && u.ualign.record < ALIGNLIM) u.ualign.record++; /* by this point you have discovered mon's identity, blind or not... */ pline("Time stands still while you and %s lie in each other's arms...", mon_nam(mon)); if (rn2(35) > ACURR(A_CHA) + ACURR(A_INT)) { /* Don't bother with mspec_used here... it didn't get tired! */ pline("%s seems to have enjoyed it more than you...", Monnam(mon)); switch (rn2(5)) { case 0: You("feel drained of energy."); u.uen = 0; u.uenmax -= rnd(Half_physical_damage ? 5 : 10); exercise(A_CON, FALSE); if (u.uenmax < 0) u.uenmax = 0; break; case 1: You("are down in the dumps."); (void) adjattrib(A_CON, -1, TRUE); exercise(A_CON, FALSE); flags.botl = 1; break; case 2: Your("senses are dulled."); (void) adjattrib(A_WIS, -1, TRUE); exercise(A_WIS, FALSE); flags.botl = 1; break; case 3: #ifdef POLYSELF if (resists_drli(uasmon)) You("have a curious feeling..."); else { #endif You("feel out of shape."); losexp(); if(u.uhp <= 0) { killer_format = KILLED_BY; killer = "overexertion"; done(DIED); } #ifdef POLYSELF } #endif break; case 4: { int tmp; You("feel exhausted."); exercise(A_STR, FALSE); tmp = rn1(10, 6); if(Half_physical_damage) tmp = (tmp+1) / 2; losehp(tmp, "exhaustion", KILLED_BY); break; } } } else { mon->mspec_used = rnd(100); /* monster is worn out */ You("seem to have enjoyed it more than %s...", mon_nam(mon)); switch (rn2(5)) { case 0: You("feel raised to your full potential."); exercise(A_CON, TRUE); u.uen = (u.uenmax += rnd(5)); break; case 1: You("feel good enough to do it again."); (void) adjattrib(A_CON, 1, TRUE); exercise(A_CON, TRUE); flags.botl = 1; break; case 2: You("will always remember %s...", mon_nam(mon)); (void) adjattrib(A_WIS, 1, TRUE); exercise(A_WIS, TRUE); flags.botl = 1; break; case 3: pline("That was a very educational experience."); pluslvl(); exercise(A_WIS, TRUE); break; case 4: You("feel restored to health!"); u.uhp = u.uhpmax; #ifdef POLYSELF if (u.mtimedone) u.mh = u.mhmax; #endif exercise(A_STR, TRUE); flags.botl = 1; break; } } if (mon->mtame) /* don't charge */ ; else if (rn2(20) < ACURR(A_CHA)) { pline("%s demands that you pay %s, but you refuse...", Monnam(mon), (fem ? "her" : "him")); } #ifdef POLYSELF else if (u.umonnum == PM_LEPRECHAUN) pline("%s tries to take your money, but fails...", Monnam(mon)); #endif else { long cost; if (u.ugold > (long)LARGEST_INT - 10L) cost = (long) rnd(LARGEST_INT) + 500L; else cost = (long) rnd((int)u.ugold + 10) + 500L; if (mon->mpeaceful) { cost /= 5L; if (!cost) cost = 1L; } if (cost > u.ugold) cost = u.ugold; if (!cost) verbalize("It's on the house!"); else { pline("%s takes %ld zorkmid%s for services rendered!", Monnam(mon), cost, plur(cost)); u.ugold -= cost; mon->mgold += cost; flags.botl = 1; } } if (!rn2(25)) mon->mcan = 1; /* monster is worn out */ rloc(mon); return 1; } static void mayberem(obj, str) register struct obj *obj; const char *str; { char qbuf[QBUFSZ]; if (!obj || !obj->owornmask) return; if (rn2(20) < ACURR(A_CHA)) { Sprintf(qbuf,"\"Shall I remove your %s, %s?\"", str, (!rn2(2) ? "lover" : !rn2(2) ? "dear" : "sweetheart")); if (yn(qbuf) == 'n') return; } else verbalize("Take off your %s; %s.", str, (obj == uarm) ? "let's get a little closer" : (obj == uarmc || obj == uarms) ? "it's in the way" : (obj == uarmf) ? "let me rub your feet" : (obj == uarmg) ? "they're too clumsy" : #ifdef TOURIST (obj == uarmu) ? "let me massage you" : #endif /* obj == uarmh */ "let me run my fingers through your hair"); if (donning(obj)) cancel_don(); if (obj == uarm) (void) Armor_off(); else if (obj == uarmc) (void) Cloak_off(); else if (obj == uarmf) (void) Boots_off(); else if (obj == uarmg) (void) Gloves_off(); else if (obj == uarmh) (void) Helmet_off(); else setworn((struct obj *)0, obj->owornmask & W_ARMOR); } #endif /* SEDUCE */ #endif /* OVLB */ #ifdef POLYSELF #ifdef OVL1 static int passiveum(olduasmon,mtmp,mattk) struct permonst *olduasmon; register struct monst *mtmp; register struct attack *mattk; { register struct permonst *mdat = mtmp->data; int i, tmp; for(i = 0; ; i++) { if(i >= NATTK) return 1; if(olduasmon->mattk[i].aatyp == AT_NONE) break; } if (olduasmon->mattk[i].damn) tmp = d((int)olduasmon->mattk[i].damn, (int)olduasmon->mattk[i].damd); else if(olduasmon->mattk[i].damd) tmp = d((int)olduasmon->mlevel+1, (int)olduasmon->mattk[i].damd); else tmp = 0; /* These affect the enemy even if you were "killed" (rehumanized) */ switch(olduasmon->mattk[i].adtyp) { case AD_ACID: if (!rn2(2)) { pline("%s is splashed by your acid!", Monnam(mtmp)); if(resists_acid(mdat)) { pline("%s is not affected.", Monnam(mtmp)); tmp = 0; } } else tmp = 0; goto assess_dmg; case AD_STON: /* cockatrice */ if (!resists_ston(mdat) && #ifdef MUSE (mattk->aatyp != AT_WEAP || !MON_WEP(mtmp)) && #else (mattk->aatyp != AT_WEAP || !select_hwep(mtmp)) && #endif mattk->aatyp != AT_GAZE && mattk->aatyp != AT_EXPL && mattk->aatyp != AT_MAGC && #ifdef MUSE (!which_armor(mtmp, W_ARMG))) { #else (!is_mercenary(mdat) || !m_carrying(mtmp, LEATHER_GLOVES))) { #endif if(poly_when_stoned(mdat)) { mon_to_stone(mtmp); return (1); } pline("%s turns to stone!", Monnam(mtmp)); stoned = 1; xkilled(mtmp, 0); return 2; } return 1; default: break; } if (!u.mtimedone) return 1; /* These affect the enemy only if you are still a monster */ if (rn2(3)) switch(uasmon->mattk[i].adtyp) { case AD_PLYS: /* Floating eye */ if (u.umonnum == PM_FLOATING_EYE) { if (!rn2(4)) tmp = 120; if (mtmp->mcansee && haseyes(mtmp->data) && rn2(3) && (perceives(mdat) || !Invis)) { if (Blind) pline("As a blind %s, you cannot defend yourself.", uasmon->mname); else { pline("%s is frozen by your gaze!", Monnam(mtmp)); mtmp->mcanmove = 0; mtmp->mfrozen = tmp; return 3; } } } else { /* gelatinous cube */ pline("%s is frozen by you.", Monnam(mtmp)); mtmp->mcanmove = 0; mtmp->mfrozen = tmp; return 3; } return 1; case AD_COLD: /* Brown mold or blue jelly */ if(resists_cold(mdat)) { shieldeff(mtmp->mx, mtmp->my); pline("%s is mildly chilly.", Monnam(mtmp)); golemeffects(mtmp, AD_COLD, tmp); tmp = 0; break; } pline("%s is suddenly very cold!", Monnam(mtmp)); u.mh += tmp / 2; if (u.mhmax < u.mh) u.mhmax = u.mh; if (u.mhmax > ((uasmon->mlevel+1) * 8)) { register struct monst *mon; if ((mon = cloneu()) != 0) { mon->mhpmax = u.mhmax /= 2; You("multiply from %s heat!", s_suffix(mon_nam(mtmp))); } } break; case AD_STUN: /* Yellow mold */ if (!mtmp->mstun) { mtmp->mstun = 1; pline("%s staggers.", Monnam(mtmp)); } tmp = 0; break; case AD_FIRE: /* Red mold */ if(resists_fire(mdat)) { shieldeff(mtmp->mx, mtmp->my); pline("%s is mildly warm.", Monnam(mtmp)); golemeffects(mtmp, AD_FIRE, tmp); tmp = 0; break; } pline("%s is suddenly very hot!", Monnam(mtmp)); break; case AD_ELEC: if(resists_elec(mdat)) { shieldeff(mtmp->mx, mtmp->my); pline("%s is slightly tingled.", Monnam(mtmp)); golemeffects(mtmp, AD_ELEC, tmp); tmp = 0; break; } pline("%s is jolted with your electricity!", Monnam(mtmp)); break; default: tmp = 0; break; } else tmp = 0; assess_dmg: if((mtmp->mhp -= tmp) <= 0) { pline("%s dies!", Monnam(mtmp)); xkilled(mtmp,0); return 2; } return 1; } #endif /* OVL1 */ #ifdef OVLB #include "edog.h" struct monst * cloneu() { register struct monst *mon; if (u.mh <= 1) return(struct monst *)0; if (uasmon->geno & G_EXTINCT) return(struct monst *)0; uasmon->pxlth += sizeof(struct edog); mon = makemon(uasmon, u.ux, u.uy); uasmon->pxlth -= sizeof(struct edog); mon = christen_monst(mon, plname); initedog(mon); mon->m_lev = uasmon->mlevel; mon->mhp = u.mh /= 2; mon->mhpmax = u.mhmax; return(mon); } #endif /* OVLB */ #endif /* POLYSELF */ /*mhitu.c*/