Source:NetHack 3.6.1/src/wizard.c

From NetHackWiki
(Redirected from Source:Ref/amulet)
Jump to navigation Jump to search

Below is the full text to wizard.c from the source code of NetHack 3.6.1. To link to a particular line, write [[Source:NetHack 3.6.1/src/wizard.c#line123]], for example.

Top of file

 /* NetHack 3.6	wizard.c	$NHDT-Date: 1456618999 2016/02/28 00:23:19 $  $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.48 $ */
 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
 /*-Copyright (c) Robert Patrick Rankin, 2016. */
 /* NetHack may be freely redistributed.  See license for details. */

The NetHack General Public License applies to screenshots, source code and other content from NetHack.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

 
 /* wizard code - inspired by rogue code from Merlyn Leroy (digi-g!brian) */
 /*             - heavily modified to give the wiz balls.  (genat!mike)   */
 /*             - dewimped and given some maledictions. -3. */
 /*             - generalized for 3.1 (mike@bullns.on01.bull.ca) */
 
 #include "hack.h"
 #include "qtext.h"
 
 extern const int monstr[];
 
 STATIC_DCL short FDECL(which_arti, (int));
 STATIC_DCL boolean FDECL(mon_has_arti, (struct monst *, SHORT_P));
 STATIC_DCL struct monst *FDECL(other_mon_has_arti, (struct monst *, SHORT_P));
 STATIC_DCL struct obj *FDECL(on_ground, (SHORT_P));
 STATIC_DCL boolean FDECL(you_have, (int));
 STATIC_DCL unsigned long FDECL(target_on, (int, struct monst *));
 STATIC_DCL unsigned long FDECL(strategy, (struct monst *));
 
 /* adding more neutral creatures will tend to reduce the number of monsters
    summoned by nasty(); adding more lawful creatures will reduce the number
    of monsters summoned by lawfuls; adding more chaotic creatures will reduce
    the number of monsters summoned by chaotics; prior to 3.6.1, there were
    only four lawful candidates, so lawful summoners tended to summon more
    (trying to get lawful or neutral but obtaining chaotic instead) than
    their chaotic counterparts */
 static NEARDATA const int nasties[] = {
     /* neutral */
     PM_COCKATRICE, PM_ETTIN, PM_STALKER, PM_MINOTAUR,
     PM_OWLBEAR, PM_PURPLE_WORM, PM_XAN, PM_UMBER_HULK,
     PM_XORN, PM_ZRUTY, PM_LEOCROTTA, PM_BALUCHITHERIUM,
     PM_CARNIVOROUS_APE, PM_FIRE_ELEMENTAL, PM_JABBERWOCK,
     PM_IRON_GOLEM, PM_OCHRE_JELLY, PM_GREEN_SLIME,
     /* chaotic */
     PM_BLACK_DRAGON, PM_RED_DRAGON, PM_ARCH_LICH, PM_VAMPIRE_LORD,
     PM_MASTER_MIND_FLAYER, PM_DISENCHANTER, PM_WINGED_GARGOYLE,
     PM_STORM_GIANT, PM_OLOG_HAI, PM_ELF_LORD, PM_ELVENKING,
     PM_OGRE_KING, PM_CAPTAIN, PM_GREMLIN,
     /* lawful */
     PM_SILVER_DRAGON, PM_ORANGE_DRAGON, PM_GREEN_DRAGON,
     PM_YELLOW_DRAGON, PM_GUARDIAN_NAGA, PM_FIRE_GIANT,
     PM_ALEAX, PM_COUATL, PM_HORNED_DEVIL, PM_BARBED_DEVIL,
     /* (titans, ki-rin, and golden nagas are suitably nasty, but
        they're summoners so would aggravate excessive summoning) */
 };
 
 static NEARDATA const unsigned wizapp[] = {
     PM_HUMAN,      PM_WATER_DEMON,  PM_VAMPIRE,       PM_RED_DRAGON,
     PM_TROLL,      PM_UMBER_HULK,   PM_XORN,          PM_XAN,
     PM_COCKATRICE, PM_FLOATING_EYE, PM_GUARDIAN_NAGA, PM_TRAPPER,
 };
 

amulet

 /* If you've found the Amulet, make the Wizard appear after some time */
 /* Also, give hints about portal locations, if amulet is worn/wielded -dlc */
 void
 amulet()
 {
     struct monst *mtmp;
     struct trap *ttmp;
     struct obj *amu;
 
 #if 0 /* caller takes care of this check */
     if (!u.uhave.amulet)
         return;
 #endif
     if ((((amu = uamul) != 0 && amu->otyp == AMULET_OF_YENDOR)
          || ((amu = uwep) != 0 && amu->otyp == AMULET_OF_YENDOR))
         && !rn2(15)) {
         for (ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) {
             if (ttmp->ttyp == MAGIC_PORTAL) {
                 int du = distu(ttmp->tx, ttmp->ty);
                 if (du <= 9)
                     pline("%s hot!", Tobjnam(amu, "feel"));
                 else if (du <= 64)
                     pline("%s very warm.", Tobjnam(amu, "feel"));
                 else if (du <= 144)
                     pline("%s warm.", Tobjnam(amu, "feel"));
                 /* else, the amulet feels normal */
                 break;
             }
         }
     }
 
     if (!context.no_of_wizards)
         return;
     /* find Wizard, and wake him if necessary */
     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
         if (DEADMONSTER(mtmp))
             continue;
         if (mtmp->iswiz && mtmp->msleeping && !rn2(40)) {
             mtmp->msleeping = 0;
             if (distu(mtmp->mx, mtmp->my) > 2)
                 You(
       "get the creepy feeling that somebody noticed your taking the Amulet.");
             return;
         }
     }
 }
 

mon_has_amulet

 int
 mon_has_amulet(mtmp)
 register struct monst *mtmp;
 {
     register struct obj *otmp;
 
     for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj)
         if (otmp->otyp == AMULET_OF_YENDOR)
             return 1;
     return 0;
 }
 

mon_has_special

 int
 mon_has_special(mtmp)
 register struct monst *mtmp;
 {
     register struct obj *otmp;
 
     for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj)
         if (otmp->otyp == AMULET_OF_YENDOR
             || any_quest_artifact(otmp)
             || otmp->otyp == BELL_OF_OPENING
             || otmp->otyp == CANDELABRUM_OF_INVOCATION
             || otmp->otyp == SPE_BOOK_OF_THE_DEAD)
             return 1;
     return 0;
 }
 
 /*
  *      New for 3.1  Strategy / Tactics for the wiz, as well as other
  *      monsters that are "after" something (defined via mflag3).
  *
  *      The strategy section decides *what* the monster is going
  *      to attempt, the tactics section implements the decision.
  */
 #define STRAT(w, x, y, typ)                            \
     ((unsigned long) (w) | ((unsigned long) (x) << 16) \
      | ((unsigned long) (y) << 8) | (unsigned long) (typ))
 
 #define M_Wants(mask) (mtmp->data->mflags3 & (mask))
 

which_arti

 STATIC_OVL short
 which_arti(mask)
 register int mask;
 {
     switch (mask) {
     case M3_WANTSAMUL:
         return AMULET_OF_YENDOR;
     case M3_WANTSBELL:
         return BELL_OF_OPENING;
     case M3_WANTSCAND:
         return CANDELABRUM_OF_INVOCATION;
     case M3_WANTSBOOK:
         return SPE_BOOK_OF_THE_DEAD;
     default:
         break; /* 0 signifies quest artifact */
     }
     return 0;
 }
 

mon_has_arti

 /*
  *      If "otyp" is zero, it triggers a check for the quest_artifact,
  *      since bell, book, candle, and amulet are all objects, not really
  *      artifacts right now.  [MRS]
  */
 STATIC_OVL boolean
 mon_has_arti(mtmp, otyp)
 register struct monst *mtmp;
 register short otyp;
 {
     register struct obj *otmp;
 
     for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj) {
         if (otyp) {
             if (otmp->otyp == otyp)
                 return 1;
         } else if (any_quest_artifact(otmp))
             return 1;
     }
     return 0;
 }
 

other_mon_has_arti

 STATIC_OVL struct monst *
 other_mon_has_arti(mtmp, otyp)
 register struct monst *mtmp;
 register short otyp;
 {
     register struct monst *mtmp2;
 
     for (mtmp2 = fmon; mtmp2; mtmp2 = mtmp2->nmon)
         /* no need for !DEADMONSTER check here since they have no inventory */
         if (mtmp2 != mtmp)
             if (mon_has_arti(mtmp2, otyp))
                 return mtmp2;
 
     return (struct monst *) 0;
 }
 

on_ground

 STATIC_OVL struct obj *
 on_ground(otyp)
 register short otyp;
 {
     register struct obj *otmp;
 
     for (otmp = fobj; otmp; otmp = otmp->nobj)
         if (otyp) {
             if (otmp->otyp == otyp)
                 return otmp;
         } else if (any_quest_artifact(otmp))
             return otmp;
     return (struct obj *) 0;
 }
 

you_have

 STATIC_OVL boolean
 you_have(mask)
 register int mask;
 {
     switch (mask) {
     case M3_WANTSAMUL:
         return (boolean) u.uhave.amulet;
     case M3_WANTSBELL:
         return (boolean) u.uhave.bell;
     case M3_WANTSCAND:
         return (boolean) u.uhave.menorah;
     case M3_WANTSBOOK:
         return (boolean) u.uhave.book;
     case M3_WANTSARTI:
         return (boolean) u.uhave.questart;
     default:
         break;
     }
     return 0;
 }
 

target_on

 STATIC_OVL unsigned long
 target_on(mask, mtmp)
 register int mask;
 register struct monst *mtmp;
 {
     register short otyp;
     register struct obj *otmp;
     register struct monst *mtmp2;
 
     if (!M_Wants(mask))
         return (unsigned long) STRAT_NONE;
 
     otyp = which_arti(mask);
     if (!mon_has_arti(mtmp, otyp)) {
         if (you_have(mask))
             return STRAT(STRAT_PLAYER, u.ux, u.uy, mask);
         else if ((otmp = on_ground(otyp)))
             return STRAT(STRAT_GROUND, otmp->ox, otmp->oy, mask);
         else if ((mtmp2 = other_mon_has_arti(mtmp, otyp)) != 0
                  /* when seeking the Amulet, avoid targetting the Wizard
                     or temple priests (to protect Moloch's high priest) */
                  && (otyp != AMULET_OF_YENDOR
                      || (!mtmp2->iswiz && !inhistemple(mtmp2))))
             return STRAT(STRAT_MONSTR, mtmp2->mx, mtmp2->my, mask);
     }
     return (unsigned long) STRAT_NONE;
 }
 

strategy

 STATIC_OVL unsigned long
 strategy(mtmp)
 register struct monst *mtmp;
 {
     unsigned long strat, dstrat;
 
     if (!is_covetous(mtmp->data)
         /* perhaps a shopkeeper has been polymorphed into a master
            lich; we don't want it teleporting to the stairs to heal
            because that will leave its shop untended */
         || (mtmp->isshk && inhishop(mtmp))
         /* likewise for temple priests */
         || (mtmp->ispriest && inhistemple(mtmp)))
         return (unsigned long) STRAT_NONE;
 
     switch ((mtmp->mhp * 3) / mtmp->mhpmax) { /* 0-3 */
 
     default:
     case 0: /* panic time - mtmp is almost snuffed */
         return (unsigned long) STRAT_HEAL;
 
     case 1: /* the wiz is less cautious */
         if (mtmp->data != &mons[PM_WIZARD_OF_YENDOR])
             return (unsigned long) STRAT_HEAL;
     /* else fall through */
 
     case 2:
         dstrat = STRAT_HEAL;
         break;
 
     case 3:
         dstrat = STRAT_NONE;
         break;
     }
 
     if (context.made_amulet)
         if ((strat = target_on(M3_WANTSAMUL, mtmp)) != STRAT_NONE)
             return strat;
 
     if (u.uevent.invoked) { /* priorities change once gate opened */
         if ((strat = target_on(M3_WANTSARTI, mtmp)) != STRAT_NONE)
             return strat;
         if ((strat = target_on(M3_WANTSBOOK, mtmp)) != STRAT_NONE)
             return strat;
         if ((strat = target_on(M3_WANTSBELL, mtmp)) != STRAT_NONE)
             return strat;
         if ((strat = target_on(M3_WANTSCAND, mtmp)) != STRAT_NONE)
             return strat;
     } else {
         if ((strat = target_on(M3_WANTSBOOK, mtmp)) != STRAT_NONE)
             return strat;
         if ((strat = target_on(M3_WANTSBELL, mtmp)) != STRAT_NONE)
             return strat;
         if ((strat = target_on(M3_WANTSCAND, mtmp)) != STRAT_NONE)
             return strat;
         if ((strat = target_on(M3_WANTSARTI, mtmp)) != STRAT_NONE)
             return strat;
     }
     return dstrat;
 }
 

choose_stairs

 void
 choose_stairs(sx, sy)
 xchar *sx;
 xchar *sy;
 {
     xchar x = 0, y = 0;
 
     if (builds_up(&u.uz)) {
         if (xdnstair) {
             x = xdnstair;
             y = ydnstair;
         } else if (xdnladder) {
             x = xdnladder;
             y = ydnladder;
         }
     } else {
         if (xupstair) {
             x = xupstair;
             y = yupstair;
         } else if (xupladder) {
             x = xupladder;
             y = yupladder;
         }
     }
 
     if (!x && sstairs.sx) {
         x = sstairs.sx;
         y = sstairs.sy;
     }
 
     if (x && y) {
         *sx = x;
         *sy = y;
     }
 
 }
 

tactics

 int
 tactics(mtmp)
 register struct monst *mtmp;
 {
     unsigned long strat = strategy(mtmp);
     xchar sx = 0, sy = 0;
 
     mtmp->mstrategy =
         (mtmp->mstrategy & (STRAT_WAITMASK | STRAT_APPEARMSG)) | strat;
 
     switch (strat) {
     case STRAT_HEAL: /* hide and recover */
         /* if wounded, hole up on or near the stairs (to block them) */
         choose_stairs(&sx, &sy);
         mtmp->mavenge = 1; /* covetous monsters attack while fleeing */
         if (In_W_tower(mtmp->mx, mtmp->my, &u.uz)
             || (mtmp->iswiz && !sx && !mon_has_amulet(mtmp))) {
             if (!rn2(3 + mtmp->mhp / 10))
                 (void) rloc(mtmp, TRUE);
         } else if (sx && (mtmp->mx != sx || mtmp->my != sy)) {
             if (!mnearto(mtmp, sx, sy, TRUE)) {
                 m_into_limbo(mtmp);
                 return 0;
             }
         }
         /* if you're not around, cast healing spells */
         if (distu(mtmp->mx, mtmp->my) > (BOLT_LIM * BOLT_LIM))
             if (mtmp->mhp <= mtmp->mhpmax - 8) {
                 mtmp->mhp += rnd(8);
                 return 1;
             }
         /*FALLTHRU*/
 
     case STRAT_NONE: /* harass */
         if (!rn2(!mtmp->mflee ? 5 : 33))
             mnexto(mtmp);
         return 0;
 
     default: /* kill, maim, pillage! */
     {
         long where = (strat & STRAT_STRATMASK);
         xchar tx = STRAT_GOALX(strat), ty = STRAT_GOALY(strat);
         int targ = (int) (strat & STRAT_GOAL);
         struct obj *otmp;
 
         if (!targ) { /* simply wants you to close */
             return 0;
         }
         if ((u.ux == tx && u.uy == ty) || where == STRAT_PLAYER) {
             /* player is standing on it (or has it) */
             mnexto(mtmp);
             return 0;
         }
         if (where == STRAT_GROUND) {
             if (!MON_AT(tx, ty) || (mtmp->mx == tx && mtmp->my == ty)) {
                 /* teleport to it and pick it up */
                 rloc_to(mtmp, tx, ty); /* clean old pos */
 
                 if ((otmp = on_ground(which_arti(targ))) != 0) {
                     if (cansee(mtmp->mx, mtmp->my))
                         pline("%s picks up %s.", Monnam(mtmp),
                               (distu(mtmp->mx, mtmp->my) <= 5)
                                   ? doname(otmp)
                                   : distant_name(otmp, doname));
                     obj_extract_self(otmp);
                     (void) mpickobj(mtmp, otmp);
                     return 1;
                 } else
                     return 0;
             } else {
                 /* a monster is standing on it - cause some trouble */
                 if (!rn2(5))
                     mnexto(mtmp);
                 return 0;
             }
         } else { /* a monster has it - 'port beside it. */
             if (!mnearto(mtmp, tx, ty, FALSE))
                 m_into_limbo(mtmp);
             return 0;
         }
     }
     }
     /*NOTREACHED*/
     return 0;
 }
 

has_aggravatables

 /* are there any monsters mon could aggravate? */
 boolean
 has_aggravatables(mon)
 struct monst *mon;
 {
     struct monst *mtmp;
     boolean in_w_tower = In_W_tower(mon->mx, mon->my, &u.uz);
 
     if (in_w_tower != In_W_tower(u.ux, u.uy, &u.uz))
         return FALSE;
 
     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
         if (DEADMONSTER(mtmp))
             continue;
         if (in_w_tower != In_W_tower(mtmp->mx, mtmp->my, &u.uz))
             continue;
         if ((mtmp->mstrategy & STRAT_WAITFORU) != 0
             || mtmp->msleeping || !mtmp->mcanmove)
             return TRUE;
     }
     return FALSE;
 }
 

aggravate

 void
 aggravate()
 {
     register struct monst *mtmp;
     boolean in_w_tower = In_W_tower(u.ux, u.uy, &u.uz);
 
     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
         if (DEADMONSTER(mtmp))
             continue;
         if (in_w_tower != In_W_tower(mtmp->mx, mtmp->my, &u.uz))
             continue;
         mtmp->mstrategy &= ~(STRAT_WAITFORU | STRAT_APPEARMSG);
         mtmp->msleeping = 0;
         if (!mtmp->mcanmove && !rn2(5)) {
             mtmp->mfrozen = 0;
             mtmp->mcanmove = 1;
         }
     }
 }
 

clonewiz

 void
 clonewiz()
 {
     register struct monst *mtmp2;
 
     if ((mtmp2 = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy, NO_MM_FLAGS))
         != 0) {
         mtmp2->msleeping = mtmp2->mtame = mtmp2->mpeaceful = 0;
         if (!u.uhave.amulet && rn2(2)) { /* give clone a fake */
             (void) add_to_minv(mtmp2,
                                mksobj(FAKE_AMULET_OF_YENDOR, TRUE, FALSE));
         }
         mtmp2->m_ap_type = M_AP_MONSTER;
         mtmp2->mappearance = wizapp[rn2(SIZE(wizapp))];
         newsym(mtmp2->mx, mtmp2->my);
     }
 }
 

pick_nasty

 /* also used by newcham() */
 int
 pick_nasty()
 {
     int res = nasties[rn2(SIZE(nasties))];
 
     /* To do?  Possibly should filter for appropriate forms when
      * in the elemental planes or surrounded by water or lava.
      *
      * We want monsters represented by uppercase on rogue level,
      * but we don't try very hard.
      */
     if (Is_rogue_level(&u.uz)
         && !('A' <= mons[res].mlet && mons[res].mlet <= 'Z'))
         res = nasties[rn2(SIZE(nasties))];
 
     return res;
 }
 

nasty

 /* create some nasty monsters, aligned with the caster or neutral; chaotic
    and unaligned are treated as equivalent; if summoner is Null, this is
    for late-game harassment (after the Wizard has been killed at least once
    or the invocation ritual has been performed), in which case we treat
    'summoner' as neutral, since that will produce the greatest number of
    creatures on average (in 3.6.0 and earlier, Null was treated as chaotic);
    returns the number of monsters created */
 int
 nasty(summoner)
 struct monst *summoner;
 {
     register struct monst *mtmp;
     register int i, j;
     int castalign = (summoner ? sgn(summoner->data->maligntyp) : 0);
     coord bypos;
     int count, census, tmp, makeindex, s_cls, m_cls;
 
 #define MAXNASTIES 10 /* more than this can be created */
 
     /* some candidates may be created in groups, so simple count
        of non-null makemon() return is inadequate */
     census = monster_census(FALSE);
 
     if (!rn2(10) && Inhell) {
         /* this might summon a demon prince or lord */
         count = msummon((struct monst *) 0); /* summons like WoY */
     } else {
         count = 0;
         s_cls = summoner ? summoner->data->mlet : 0;
         tmp = (u.ulevel > 3) ? u.ulevel / 3 : 1;
         /* if we don't have a casting monster, nasties appear around hero,
            otherwise they'll appear around spot summoner thinks she's at */
         bypos.x = u.ux;
         bypos.y = u.uy;
         for (i = rnd(tmp); i > 0 && count < MAXNASTIES; --i)
             /* Of the 42 nasties[], 10 are lawful, 14 are chaotic,
              * and 18 are neutral.
              *
              * Neutral caster, used for late-game harrassment,
              * has 18/42 chance to stop the inner loop on each
              * critter, 24/42 chance for another iteration.
              * Lawful caster has 28/42 chance to stop unless the
              * summoner is an angel or demon, in which case the
              * chance is 26/42.
              * Chaotic or unaligned caster has 32/42 chance to
              * stop, so will summon fewer creatures on average.
              *
              * The outer loop potentially gives chaotic/unaligned
              * a chance to even things up since others will hit
              * MAXNASTIES sooner, but its number of iterations is
              * randomized so it won't always do so.
              */
             for (j = 0; j < 20; j++) {
                 /* Don't create more spellcasters of the monsters' level or
                  * higher--avoids chain summoners filling up the level.
                  */
                 do {
                     makeindex = pick_nasty();
                     m_cls = mons[makeindex].mlet;
                 } while (summoner
                          && ((attacktype(&mons[makeindex], AT_MAGC)
                               && monstr[makeindex] >= monstr[summoner->mnum])
                              || (s_cls == S_DEMON && m_cls == S_ANGEL)
                              || (s_cls == S_ANGEL && m_cls == S_DEMON)));
                 /* do this after picking the monster to place */
                 if (summoner && !enexto(&bypos, summoner->mux, summoner->muy,
                                         &mons[makeindex]))
                     continue;
                 /* this honors genocide but overrides extinction; it ignores
                    inside-hell-only (G_HELL) & outside-hell-only (G_NOHELL) */
                 if ((mtmp = makemon(&mons[makeindex], bypos.x, bypos.y,
                                     NO_MM_FLAGS)) != 0) {
                     mtmp->msleeping = mtmp->mpeaceful = mtmp->mtame = 0;
                     set_malign(mtmp);
                 } else /* random monster to substitute for geno'd selection */
                     mtmp = makemon((struct permonst *) 0, bypos.x, bypos.y,
                                    NO_MM_FLAGS);
                 if (mtmp) {
                     /* delay first use of spell or breath attack */
                     mtmp->mspec_used = rnd(4);
                     if (++count >= MAXNASTIES
                         || mtmp->data->maligntyp == 0
                         || sgn(mtmp->data->maligntyp) == castalign)
                         break;
                 }
             }
     }
 
     if (count)
         count = monster_census(FALSE) - census;
     return count;
 }
 

resurrect

 /* Let's resurrect the wizard, for some unexpected fun. */
 void
 resurrect()
 {
     struct monst *mtmp, **mmtmp;
     long elapsed;
     const char *verb;
 
     if (!context.no_of_wizards) {
         /* make a new Wizard */
         verb = "kill";
         mtmp = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy, MM_NOWAIT);
         /* affects experience; he's not coming back from a corpse
            but is subject to repeated killing like a revived corpse */
         if (mtmp) mtmp->mrevived = 1;
     } else {
         /* look for a migrating Wizard */
         verb = "elude";
         mmtmp = &migrating_mons;
         while ((mtmp = *mmtmp) != 0) {
             if (mtmp->iswiz
                 /* if he has the Amulet, he won't bring it to you */
                 && !mon_has_amulet(mtmp)
                 && (elapsed = monstermoves - mtmp->mlstmv) > 0L) {
                 mon_catchup_elapsed_time(mtmp, elapsed);
                 if (elapsed >= LARGEST_INT)
                     elapsed = LARGEST_INT - 1;
                 elapsed /= 50L;
                 if (mtmp->msleeping && rn2((int) elapsed + 1))
                     mtmp->msleeping = 0;
                 if (mtmp->mfrozen == 1) /* would unfreeze on next move */
                     mtmp->mfrozen = 0, mtmp->mcanmove = 1;
                 if (mtmp->mcanmove && !mtmp->msleeping) {
                     *mmtmp = mtmp->nmon;
                     mon_arrive(mtmp, TRUE);
                     /* note: there might be a second Wizard; if so,
                        he'll have to wait til the next resurrection */
                     break;
                 }
             }
             mmtmp = &mtmp->nmon;
         }
     }
 
     if (mtmp) {
         mtmp->mtame = mtmp->mpeaceful = 0; /* paranoia */
         set_malign(mtmp);
         if (!Deaf) {
             pline("A voice booms out...");
             verbalize("So thou thought thou couldst %s me, fool.", verb);
         }
     }
 }
 

intervene

 /* Here, we make trouble for the poor shmuck who actually
    managed to do in the Wizard. */
 void
 intervene()
 {
     int which = Is_astralevel(&u.uz) ? rnd(4) : rn2(6);
     /* cases 0 and 5 don't apply on the Astral level */
     switch (which) {
     case 0:
     case 1:
         You_feel("vaguely nervous.");
         break;
     case 2:
         if (!Blind)
             You("notice a %s glow surrounding you.", hcolor(NH_BLACK));
         rndcurse();
         break;
     case 3:
         aggravate();
         break;
     case 4:
         (void) nasty((struct monst *) 0);
         break;
     case 5:
         resurrect();
         break;
     }
 }
 

wizdead

 void
 wizdead()
 {
     context.no_of_wizards--;
     if (!u.uevent.udemigod) {
         u.uevent.udemigod = TRUE;
         u.udg_cnt = rn1(250, 50);
     }
 }
 
 const char *const random_insult[] = {
     "antic",      "blackguard",   "caitiff",    "chucklehead",
     "coistrel",   "craven",       "cretin",     "cur",
     "dastard",    "demon fodder", "dimwit",     "dolt",
     "fool",       "footpad",      "imbecile",   "knave",
     "maledict",   "miscreant",    "niddering",  "poltroon",
     "rattlepate", "reprobate",    "scapegrace", "varlet",
     "villein", /* (sic.) */
     "wittol",     "worm",         "wretch",
 };
 
 const char *const random_malediction[] = {
     "Hell shall soon claim thy remains,", "I chortle at thee, thou pathetic",
     "Prepare to die, thou", "Resistance is useless,",
     "Surrender or die, thou", "There shall be no mercy, thou",
     "Thou shalt repent of thy cunning,", "Thou art as a flea to me,",
     "Thou art doomed,", "Thy fate is sealed,",
     "Verily, thou shalt be one dead"
 };
 

cuss

 /* Insult or intimidate the player */
 void
 cuss(mtmp)
 register struct monst *mtmp;
 {
     if (Deaf)
         return;
     if (mtmp->iswiz) {
         if (!rn2(5)) /* typical bad guy action */
             pline("%s laughs fiendishly.", Monnam(mtmp));
         else if (u.uhave.amulet && !rn2(SIZE(random_insult)))
             verbalize("Relinquish the amulet, %s!",
                       random_insult[rn2(SIZE(random_insult))]);
         else if (u.uhp < 5 && !rn2(2)) /* Panic */
             verbalize(rn2(2) ? "Even now thy life force ebbs, %s!"
                              : "Savor thy breath, %s, it be thy last!",
                       random_insult[rn2(SIZE(random_insult))]);
         else if (mtmp->mhp < 5 && !rn2(2)) /* Parthian shot */
             verbalize(rn2(2) ? "I shall return." : "I'll be back.");
         else
             verbalize("%s %s!",
                       random_malediction[rn2(SIZE(random_malediction))],
                       random_insult[rn2(SIZE(random_insult))]);
     } else if (is_lminion(mtmp)
                && !(mtmp->isminion && EMIN(mtmp)->renegade)) {
         com_pager(rn2(QTN_ANGELIC - 1 + (Hallucination ? 1 : 0))
                   + QT_ANGELIC);
     } else {
         if (!rn2(is_minion(mtmp->data) ? 100 : 5))
             pline("%s casts aspersions on your ancestry.", Monnam(mtmp));
         else
             com_pager(rn2(QTN_DEMONIC) + QT_DEMONIC);
     }
 }
 
 /*wizard.c*/