src/wizard.c

   1 /* NetHack 3.6  wizard.c        $NHDT-Date: 1539804905 2018/10/17 19:35:05 $  $NHDT-Branch: keni-makedefsm $:$NHDT-Revision: 1.53 $ */
   2 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   3 /*-Copyright (c) Robert Patrick Rankin, 2016. */
   4 /* NetHack may be freely redistributed.  See license for details. */
   5
   6 /* JNetHack Copyright */
   7 /* (c) Issei Numata, Naoki Hamada, Shigehiro Miyashita, 1994-2000  */
   8 /* For 3.4-, Copyright (c) SHIRAKATA Kentaro, 2002-2019            */
   9 /* JNetHack may be freely redistributed.  See license for details. */
  10
  11 /* wizard code - inspired by rogue code from Merlyn Leroy (digi-g!brian) */
  12 /*             - heavily modified to give the wiz balls.  (genat!mike)   */
  13 /*             - dewimped and given some maledictions. -3. */
  14 /*             - generalized for 3.1 (mike@bullns.on01.bull.ca) */
  15
  16 #include "hack.h"
  17 #include "qtext.h"
  18
  19 STATIC_DCL short FDECL(which_arti, (int));
  20 STATIC_DCL boolean FDECL(mon_has_arti, (struct monst *, SHORT_P));
  21 STATIC_DCL struct monst *FDECL(other_mon_has_arti, (struct monst *, SHORT_P));
  22 STATIC_DCL struct obj *FDECL(on_ground, (SHORT_P));
  23 STATIC_DCL boolean FDECL(you_have, (int));
  24 STATIC_DCL unsigned long FDECL(target_on, (int, struct monst *));
  25 STATIC_DCL unsigned long FDECL(strategy, (struct monst *));
  26
  27 /* adding more neutral creatures will tend to reduce the number of monsters
  28    summoned by nasty(); adding more lawful creatures will reduce the number
  29    of monsters summoned by lawfuls; adding more chaotic creatures will reduce
  30    the number of monsters summoned by chaotics; prior to 3.6.1, there were
  31    only four lawful candidates, so lawful summoners tended to summon more
  32    (trying to get lawful or neutral but obtaining chaotic instead) than
  33    their chaotic counterparts */
  34 static NEARDATA const int nasties[] = {
  35     /* neutral */
  36     PM_COCKATRICE, PM_ETTIN, PM_STALKER, PM_MINOTAUR,
  37     PM_OWLBEAR, PM_PURPLE_WORM, PM_XAN, PM_UMBER_HULK,
  38     PM_XORN, PM_ZRUTY, PM_LEOCROTTA, PM_BALUCHITHERIUM,
  39     PM_CARNIVOROUS_APE, PM_FIRE_ELEMENTAL, PM_JABBERWOCK,
  40     PM_IRON_GOLEM, PM_OCHRE_JELLY, PM_GREEN_SLIME,
  41     /* chaotic */
  42     PM_BLACK_DRAGON, PM_RED_DRAGON, PM_ARCH_LICH, PM_VAMPIRE_LORD,
  43     PM_MASTER_MIND_FLAYER, PM_DISENCHANTER, PM_WINGED_GARGOYLE,
  44     PM_STORM_GIANT, PM_OLOG_HAI, PM_ELF_LORD, PM_ELVENKING,
  45     PM_OGRE_KING, PM_CAPTAIN, PM_GREMLIN,
  46     /* lawful */
  47     PM_SILVER_DRAGON, PM_ORANGE_DRAGON, PM_GREEN_DRAGON,
  48     PM_YELLOW_DRAGON, PM_GUARDIAN_NAGA, PM_FIRE_GIANT,
  49     PM_ALEAX, PM_COUATL, PM_HORNED_DEVIL, PM_BARBED_DEVIL,
  50     /* (titans, ki-rin, and golden nagas are suitably nasty, but
  51        they're summoners so would aggravate excessive summoning) */
  52 };
  53
  54 static NEARDATA const unsigned wizapp[] = {
  55     PM_HUMAN,      PM_WATER_DEMON,  PM_VAMPIRE,       PM_RED_DRAGON,
  56     PM_TROLL,      PM_UMBER_HULK,   PM_XORN,          PM_XAN,
  57     PM_COCKATRICE, PM_FLOATING_EYE, PM_GUARDIAN_NAGA, PM_TRAPPER,
  58 };
  59
  60 /* If you've found the Amulet, make the Wizard appear after some time */
  61 /* Also, give hints about portal locations, if amulet is worn/wielded -dlc */
  62 void
  63 amulet()
  64 {
  65     struct monst *mtmp;
  66     struct trap *ttmp;
  67     struct obj *amu;
  68
  69 #if 0 /* caller takes care of this check */
  70     if (!u.uhave.amulet)
  71         return;
  72 #endif
  73     if ((((amu = uamul) != 0 && amu->otyp == AMULET_OF_YENDOR)
  74          || ((amu = uwep) != 0 && amu->otyp == AMULET_OF_YENDOR))
  75         && !rn2(15)) {
  76         for (ttmp = ftrap; ttmp; ttmp = ttmp->ntrap) {
  77             if (ttmp->ttyp == MAGIC_PORTAL) {
  78                 int du = distu(ttmp->tx, ttmp->ty);
  79                 if (du <= 9)
  80 /*JP
  81                     pline("%s hot!", Tobjnam(amu, "feel"));
  82 */
  83                     pline("%s\82Í\94M\82\8a´\82¶\82½\81I", xname(amu));
  84                 else if (du <= 64)
  85 /*JP
  86                     pline("%s very warm.", Tobjnam(amu, "feel"));
  87 */
  88                     pline("%s\82Í\82Æ\82Ä\82à\92g\82©\82\8a´\82¶\82½\81D", xname(amu));
  89                 else if (du <= 144)
  90 /*JP
  91                     pline("%s warm.", Tobjnam(amu, "feel"));
  92 */
  93                     pline("%s\82Í\92g\82©\82\8a´\82¶\82½\81D", xname(amu));
  94                 /* else, the amulet feels normal */
  95                 break;
  96             }
  97         }
  98     }
  99
 100     if (!context.no_of_wizards)
 101         return;
 102     /* find Wizard, and wake him if necessary */
 103     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 104         if (DEADMONSTER(mtmp))
 105             continue;
 106         if (mtmp->iswiz && mtmp->msleeping && !rn2(40)) {
 107             mtmp->msleeping = 0;
 108             if (distu(mtmp->mx, mtmp->my) > 2)
 109                 You(
 110 /*JP
 111       "get the creepy feeling that somebody noticed your taking the Amulet.");
 112 */
 113       "\82 \82È\82½\82ª\96\82\8f\9c\82¯\82ð\8e\9d\82Á\82Ä\82¢\82é\82±\82Æ\82ª\92N\82©\82É\92m\82ç\82ê\82½\82Æ\8a´\82¶\82Ä\82¼\82Á\82Æ\82µ\82½\81D");
 114             return;
 115         }
 116     }
 117 }
 118
 119 int
 120 mon_has_amulet(mtmp)
 121 register struct monst *mtmp;
 122 {
 123     register struct obj *otmp;
 124
 125     for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj)
 126         if (otmp->otyp == AMULET_OF_YENDOR)
 127             return 1;
 128     return 0;
 129 }
 130
 131 int
 132 mon_has_special(mtmp)
 133 register struct monst *mtmp;
 134 {
 135     register struct obj *otmp;
 136
 137     for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj)
 138         if (otmp->otyp == AMULET_OF_YENDOR
 139             || any_quest_artifact(otmp)
 140             || otmp->otyp == BELL_OF_OPENING
 141             || otmp->otyp == CANDELABRUM_OF_INVOCATION
 142             || otmp->otyp == SPE_BOOK_OF_THE_DEAD)
 143             return 1;
 144     return 0;
 145 }
 146
 147 /*
 148  *      New for 3.1  Strategy / Tactics for the wiz, as well as other
 149  *      monsters that are "after" something (defined via mflag3).
 150  *
 151  *      The strategy section decides *what* the monster is going
 152  *      to attempt, the tactics section implements the decision.
 153  */
 154 #define STRAT(w, x, y, typ)                            \
 155     ((unsigned long) (w) | ((unsigned long) (x) << 16) \
 156      | ((unsigned long) (y) << 8) | (unsigned long) (typ))
 157
 158 #define M_Wants(mask) (mtmp->data->mflags3 & (mask))
 159
 160 STATIC_OVL short
 161 which_arti(mask)
 162 register int mask;
 163 {
 164     switch (mask) {
 165     case M3_WANTSAMUL:
 166         return AMULET_OF_YENDOR;
 167     case M3_WANTSBELL:
 168         return BELL_OF_OPENING;
 169     case M3_WANTSCAND:
 170         return CANDELABRUM_OF_INVOCATION;
 171     case M3_WANTSBOOK:
 172         return SPE_BOOK_OF_THE_DEAD;
 173     default:
 174         break; /* 0 signifies quest artifact */
 175     }
 176     return 0;
 177 }
 178
 179 /*
 180  *      If "otyp" is zero, it triggers a check for the quest_artifact,
 181  *      since bell, book, candle, and amulet are all objects, not really
 182  *      artifacts right now.  [MRS]
 183  */
 184 STATIC_OVL boolean
 185 mon_has_arti(mtmp, otyp)
 186 register struct monst *mtmp;
 187 register short otyp;
 188 {
 189     register struct obj *otmp;
 190
 191     for (otmp = mtmp->minvent; otmp; otmp = otmp->nobj) {
 192         if (otyp) {
 193             if (otmp->otyp == otyp)
 194                 return 1;
 195         } else if (any_quest_artifact(otmp))
 196             return 1;
 197     }
 198     return 0;
 199 }
 200
 201 STATIC_OVL struct monst *
 202 other_mon_has_arti(mtmp, otyp)
 203 register struct monst *mtmp;
 204 register short otyp;
 205 {
 206     register struct monst *mtmp2;
 207
 208     for (mtmp2 = fmon; mtmp2; mtmp2 = mtmp2->nmon)
 209         /* no need for !DEADMONSTER check here since they have no inventory */
 210         if (mtmp2 != mtmp)
 211             if (mon_has_arti(mtmp2, otyp))
 212                 return mtmp2;
 213
 214     return (struct monst *) 0;
 215 }
 216
 217 STATIC_OVL struct obj *
 218 on_ground(otyp)
 219 register short otyp;
 220 {
 221     register struct obj *otmp;
 222
 223     for (otmp = fobj; otmp; otmp = otmp->nobj)
 224         if (otyp) {
 225             if (otmp->otyp == otyp)
 226                 return otmp;
 227         } else if (any_quest_artifact(otmp))
 228             return otmp;
 229     return (struct obj *) 0;
 230 }
 231
 232 STATIC_OVL boolean
 233 you_have(mask)
 234 register int mask;
 235 {
 236     switch (mask) {
 237     case M3_WANTSAMUL:
 238         return (boolean) u.uhave.amulet;
 239     case M3_WANTSBELL:
 240         return (boolean) u.uhave.bell;
 241     case M3_WANTSCAND:
 242         return (boolean) u.uhave.menorah;
 243     case M3_WANTSBOOK:
 244         return (boolean) u.uhave.book;
 245     case M3_WANTSARTI:
 246         return (boolean) u.uhave.questart;
 247     default:
 248         break;
 249     }
 250     return 0;
 251 }
 252
 253 STATIC_OVL unsigned long
 254 target_on(mask, mtmp)
 255 register int mask;
 256 register struct monst *mtmp;
 257 {
 258     register short otyp;
 259     register struct obj *otmp;
 260     register struct monst *mtmp2;
 261
 262     if (!M_Wants(mask))
 263         return (unsigned long) STRAT_NONE;
 264
 265     otyp = which_arti(mask);
 266     if (!mon_has_arti(mtmp, otyp)) {
 267         if (you_have(mask))
 268             return STRAT(STRAT_PLAYER, u.ux, u.uy, mask);
 269         else if ((otmp = on_ground(otyp)))
 270             return STRAT(STRAT_GROUND, otmp->ox, otmp->oy, mask);
 271         else if ((mtmp2 = other_mon_has_arti(mtmp, otyp)) != 0
 272                  /* when seeking the Amulet, avoid targetting the Wizard
 273                     or temple priests (to protect Moloch's high priest) */
 274                  && (otyp != AMULET_OF_YENDOR
 275                      || (!mtmp2->iswiz && !inhistemple(mtmp2))))
 276             return STRAT(STRAT_MONSTR, mtmp2->mx, mtmp2->my, mask);
 277     }
 278     return (unsigned long) STRAT_NONE;
 279 }
 280
 281 STATIC_OVL unsigned long
 282 strategy(mtmp)
 283 register struct monst *mtmp;
 284 {
 285     unsigned long strat, dstrat;
 286
 287     if (!is_covetous(mtmp->data)
 288         /* perhaps a shopkeeper has been polymorphed into a master
 289            lich; we don't want it teleporting to the stairs to heal
 290            because that will leave its shop untended */
 291         || (mtmp->isshk && inhishop(mtmp))
 292         /* likewise for temple priests */
 293         || (mtmp->ispriest && inhistemple(mtmp)))
 294         return (unsigned long) STRAT_NONE;
 295
 296     switch ((mtmp->mhp * 3) / mtmp->mhpmax) { /* 0-3 */
 297
 298     default:
 299     case 0: /* panic time - mtmp is almost snuffed */
 300         return (unsigned long) STRAT_HEAL;
 301
 302     case 1: /* the wiz is less cautious */
 303         if (mtmp->data != &mons[PM_WIZARD_OF_YENDOR])
 304             return (unsigned long) STRAT_HEAL;
 305     /* else fall through */
 306
 307     case 2:
 308         dstrat = STRAT_HEAL;
 309         break;
 310
 311     case 3:
 312         dstrat = STRAT_NONE;
 313         break;
 314     }
 315
 316     if (context.made_amulet)
 317         if ((strat = target_on(M3_WANTSAMUL, mtmp)) != STRAT_NONE)
 318             return strat;
 319
 320     if (u.uevent.invoked) { /* priorities change once gate opened */
 321         if ((strat = target_on(M3_WANTSARTI, mtmp)) != STRAT_NONE)
 322             return strat;
 323         if ((strat = target_on(M3_WANTSBOOK, mtmp)) != STRAT_NONE)
 324             return strat;
 325         if ((strat = target_on(M3_WANTSBELL, mtmp)) != STRAT_NONE)
 326             return strat;
 327         if ((strat = target_on(M3_WANTSCAND, mtmp)) != STRAT_NONE)
 328             return strat;
 329     } else {
 330         if ((strat = target_on(M3_WANTSBOOK, mtmp)) != STRAT_NONE)
 331             return strat;
 332         if ((strat = target_on(M3_WANTSBELL, mtmp)) != STRAT_NONE)
 333             return strat;
 334         if ((strat = target_on(M3_WANTSCAND, mtmp)) != STRAT_NONE)
 335             return strat;
 336         if ((strat = target_on(M3_WANTSARTI, mtmp)) != STRAT_NONE)
 337             return strat;
 338     }
 339     return dstrat;
 340 }
 341
 342 void
 343 choose_stairs(sx, sy)
 344 xchar *sx;
 345 xchar *sy;
 346 {
 347     xchar x = 0, y = 0;
 348
 349     if (builds_up(&u.uz)) {
 350         if (xdnstair) {
 351             x = xdnstair;
 352             y = ydnstair;
 353         } else if (xdnladder) {
 354             x = xdnladder;
 355             y = ydnladder;
 356         }
 357     } else {
 358         if (xupstair) {
 359             x = xupstair;
 360             y = yupstair;
 361         } else if (xupladder) {
 362             x = xupladder;
 363             y = yupladder;
 364         }
 365     }
 366
 367     if (!x && sstairs.sx) {
 368         x = sstairs.sx;
 369         y = sstairs.sy;
 370     }
 371
 372     if (x && y) {
 373         *sx = x;
 374         *sy = y;
 375     }
 376
 377 }
 378
 379 int
 380 tactics(mtmp)
 381 register struct monst *mtmp;
 382 {
 383     unsigned long strat = strategy(mtmp);
 384     xchar sx = 0, sy = 0;
 385
 386     mtmp->mstrategy =
 387         (mtmp->mstrategy & (STRAT_WAITMASK | STRAT_APPEARMSG)) | strat;
 388
 389     switch (strat) {
 390     case STRAT_HEAL: /* hide and recover */
 391         /* if wounded, hole up on or near the stairs (to block them) */
 392         choose_stairs(&sx, &sy);
 393         mtmp->mavenge = 1; /* covetous monsters attack while fleeing */
 394         if (In_W_tower(mtmp->mx, mtmp->my, &u.uz)
 395             || (mtmp->iswiz && !sx && !mon_has_amulet(mtmp))) {
 396             if (!rn2(3 + mtmp->mhp / 10))
 397                 (void) rloc(mtmp, TRUE);
 398         } else if (sx && (mtmp->mx != sx || mtmp->my != sy)) {
 399             if (!mnearto(mtmp, sx, sy, TRUE)) {
 400                 m_into_limbo(mtmp);
 401                 return 0;
 402             }
 403         }
 404         /* if you're not around, cast healing spells */
 405         if (distu(mtmp->mx, mtmp->my) > (BOLT_LIM * BOLT_LIM))
 406             if (mtmp->mhp <= mtmp->mhpmax - 8) {
 407                 mtmp->mhp += rnd(8);
 408                 return 1;
 409             }
 410         /*FALLTHRU*/
 411
 412     case STRAT_NONE: /* harass */
 413         if (!rn2(!mtmp->mflee ? 5 : 33))
 414             mnexto(mtmp);
 415         return 0;
 416
 417     default: /* kill, maim, pillage! */
 418     {
 419         long where = (strat & STRAT_STRATMASK);
 420         xchar tx = STRAT_GOALX(strat), ty = STRAT_GOALY(strat);
 421         int targ = (int) (strat & STRAT_GOAL);
 422         struct obj *otmp;
 423
 424         if (!targ) { /* simply wants you to close */
 425             return 0;
 426         }
 427         if ((u.ux == tx && u.uy == ty) || where == STRAT_PLAYER) {
 428             /* player is standing on it (or has it) */
 429             mnexto(mtmp);
 430             return 0;
 431         }
 432         if (where == STRAT_GROUND) {
 433             if (!MON_AT(tx, ty) || (mtmp->mx == tx && mtmp->my == ty)) {
 434                 /* teleport to it and pick it up */
 435                 rloc_to(mtmp, tx, ty); /* clean old pos */
 436
 437                 if ((otmp = on_ground(which_arti(targ))) != 0) {
 438                     if (cansee(mtmp->mx, mtmp->my))
 439 #if 0 /*JP:T*/
 440                         pline("%s picks up %s.", Monnam(mtmp),
 441                               (distu(mtmp->mx, mtmp->my) <= 5)
 442                                   ? doname(otmp)
 443                                   : distant_name(otmp, doname));
 444 #else
 445                         pline("%s\82Í%s\82ð\8fE\82Á\82½\81D", Monnam(mtmp),
 446                               (distu(mtmp->mx, mtmp->my) <= 5)
 447                                   ? doname(otmp)
 448                                   : distant_name(otmp, doname));
 449 #endif
 450                     obj_extract_self(otmp);
 451                     (void) mpickobj(mtmp, otmp);
 452                     return 1;
 453                 } else
 454                     return 0;
 455             } else {
 456                 /* a monster is standing on it - cause some trouble */
 457                 if (!rn2(5))
 458                     mnexto(mtmp);
 459                 return 0;
 460             }
 461         } else { /* a monster has it - 'port beside it. */
 462             if (!mnearto(mtmp, tx, ty, FALSE))
 463                 m_into_limbo(mtmp);
 464             return 0;
 465         }
 466     }
 467     }
 468     /*NOTREACHED*/
 469     return 0;
 470 }
 471
 472 /* are there any monsters mon could aggravate? */
 473 boolean
 474 has_aggravatables(mon)
 475 struct monst *mon;
 476 {
 477     struct monst *mtmp;
 478     boolean in_w_tower = In_W_tower(mon->mx, mon->my, &u.uz);
 479
 480     if (in_w_tower != In_W_tower(u.ux, u.uy, &u.uz))
 481         return FALSE;
 482
 483     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 484         if (DEADMONSTER(mtmp))
 485             continue;
 486         if (in_w_tower != In_W_tower(mtmp->mx, mtmp->my, &u.uz))
 487             continue;
 488         if ((mtmp->mstrategy & STRAT_WAITFORU) != 0
 489             || mtmp->msleeping || !mtmp->mcanmove)
 490             return TRUE;
 491     }
 492     return FALSE;
 493 }
 494
 495 void
 496 aggravate()
 497 {
 498     register struct monst *mtmp;
 499     boolean in_w_tower = In_W_tower(u.ux, u.uy, &u.uz);
 500
 501     for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
 502         if (DEADMONSTER(mtmp))
 503             continue;
 504         if (in_w_tower != In_W_tower(mtmp->mx, mtmp->my, &u.uz))
 505             continue;
 506         mtmp->mstrategy &= ~(STRAT_WAITFORU | STRAT_APPEARMSG);
 507         mtmp->msleeping = 0;
 508         if (!mtmp->mcanmove && !rn2(5)) {
 509             mtmp->mfrozen = 0;
 510             mtmp->mcanmove = 1;
 511         }
 512     }
 513 }
 514
 515 void
 516 clonewiz()
 517 {
 518     register struct monst *mtmp2;
 519
 520     if ((mtmp2 = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy, NO_MM_FLAGS))
 521         != 0) {
 522         mtmp2->msleeping = mtmp2->mtame = mtmp2->mpeaceful = 0;
 523         if (!u.uhave.amulet && rn2(2)) { /* give clone a fake */
 524             (void) add_to_minv(mtmp2,
 525                                mksobj(FAKE_AMULET_OF_YENDOR, TRUE, FALSE));
 526         }
 527         mtmp2->m_ap_type = M_AP_MONSTER;
 528         mtmp2->mappearance = wizapp[rn2(SIZE(wizapp))];
 529         newsym(mtmp2->mx, mtmp2->my);
 530     }
 531 }
 532
 533 /* also used by newcham() */
 534 int
 535 pick_nasty()
 536 {
 537     int res = nasties[rn2(SIZE(nasties))];
 538
 539     /* To do?  Possibly should filter for appropriate forms when
 540      * in the elemental planes or surrounded by water or lava.
 541      *
 542      * We want monsters represented by uppercase on rogue level,
 543      * but we don't try very hard.
 544      */
 545     if (Is_rogue_level(&u.uz)
 546         && !('A' <= mons[res].mlet && mons[res].mlet <= 'Z'))
 547         res = nasties[rn2(SIZE(nasties))];
 548
 549     return res;
 550 }
 551
 552 /* create some nasty monsters, aligned with the caster or neutral; chaotic
 553    and unaligned are treated as equivalent; if summoner is Null, this is
 554    for late-game harassment (after the Wizard has been killed at least once
 555    or the invocation ritual has been performed), in which case we treat
 556    'summoner' as neutral, since that will produce the greatest number of
 557    creatures on average (in 3.6.0 and earlier, Null was treated as chaotic);
 558    returns the number of monsters created */
 559 int
 560 nasty(summoner)
 561 struct monst *summoner;
 562 {
 563     register struct monst *mtmp;
 564     register int i, j;
 565     int castalign = (summoner ? sgn(summoner->data->maligntyp) : 0);
 566     coord bypos;
 567     int count, census, tmp, makeindex, s_cls, m_cls;
 568
 569 #define MAXNASTIES 10 /* more than this can be created */
 570
 571     /* some candidates may be created in groups, so simple count
 572        of non-null makemon() return is inadequate */
 573     census = monster_census(FALSE);
 574
 575     if (!rn2(10) && Inhell) {
 576         /* this might summon a demon prince or lord */
 577         count = msummon((struct monst *) 0); /* summons like WoY */
 578     } else {
 579         count = 0;
 580         s_cls = summoner ? summoner->data->mlet : 0;
 581         tmp = (u.ulevel > 3) ? u.ulevel / 3 : 1;
 582         /* if we don't have a casting monster, nasties appear around hero,
 583            otherwise they'll appear around spot summoner thinks she's at */
 584         bypos.x = u.ux;
 585         bypos.y = u.uy;
 586         for (i = rnd(tmp); i > 0 && count < MAXNASTIES; --i)
 587             /* Of the 42 nasties[], 10 are lawful, 14 are chaotic,
 588              * and 18 are neutral.
 589              *
 590              * Neutral caster, used for late-game harrassment,
 591              * has 18/42 chance to stop the inner loop on each
 592              * critter, 24/42 chance for another iteration.
 593              * Lawful caster has 28/42 chance to stop unless the
 594              * summoner is an angel or demon, in which case the
 595              * chance is 26/42.
 596              * Chaotic or unaligned caster has 32/42 chance to
 597              * stop, so will summon fewer creatures on average.
 598              *
 599              * The outer loop potentially gives chaotic/unaligned
 600              * a chance to even things up since others will hit
 601              * MAXNASTIES sooner, but its number of iterations is
 602              * randomized so it won't always do so.
 603              */
 604             for (j = 0; j < 20; j++) {
 605                 /* Don't create more spellcasters of the monsters' level or
 606                  * higher--avoids chain summoners filling up the level.
 607                  */
 608                 do {
 609                     makeindex = pick_nasty();
 610                     m_cls = mons[makeindex].mlet;
 611                 } while (summoner
 612                          && ((attacktype(&mons[makeindex], AT_MAGC)
 613                               && mons[makeindex].difficulty
 614                                  >= mons[summoner->mnum].difficulty)
 615                              || (s_cls == S_DEMON && m_cls == S_ANGEL)
 616                              || (s_cls == S_ANGEL && m_cls == S_DEMON)));
 617                 /* do this after picking the monster to place */
 618                 if (summoner && !enexto(&bypos, summoner->mux, summoner->muy,
 619                                         &mons[makeindex]))
 620                     continue;
 621                 /* this honors genocide but overrides extinction; it ignores
 622                    inside-hell-only (G_HELL) & outside-hell-only (G_NOHELL) */
 623                 if ((mtmp = makemon(&mons[makeindex], bypos.x, bypos.y,
 624                                     NO_MM_FLAGS)) != 0) {
 625                     mtmp->msleeping = mtmp->mpeaceful = mtmp->mtame = 0;
 626                     set_malign(mtmp);
 627                 } else /* random monster to substitute for geno'd selection */
 628                     mtmp = makemon((struct permonst *) 0, bypos.x, bypos.y,
 629                                    NO_MM_FLAGS);
 630                 if (mtmp) {
 631                     /* delay first use of spell or breath attack */
 632                     mtmp->mspec_used = rnd(4);
 633                     if (++count >= MAXNASTIES
 634                         || mtmp->data->maligntyp == 0
 635                         || sgn(mtmp->data->maligntyp) == castalign)
 636                         break;
 637                 }
 638             }
 639     }
 640
 641     if (count)
 642         count = monster_census(FALSE) - census;
 643     return count;
 644 }
 645
 646 /* Let's resurrect the wizard, for some unexpected fun. */
 647 void
 648 resurrect()
 649 {
 650     struct monst *mtmp, **mmtmp;
 651     long elapsed;
 652     const char *verb;
 653
 654     if (!context.no_of_wizards) {
 655         /* make a new Wizard */
 656 /*JP
 657         verb = "kill";
 658 */
 659         verb = "\82ð\93¢\82Ä\82µ";
 660         mtmp = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy, MM_NOWAIT);
 661         /* affects experience; he's not coming back from a corpse
 662            but is subject to repeated killing like a revived corpse */
 663         if (mtmp) mtmp->mrevived = 1;
 664     } else {
 665         /* look for a migrating Wizard */
 666 /*JP
 667         verb = "elude";
 668 */
 669         verb = "\82æ\82è\93¦\82ê\82ñ";
 670         mmtmp = &migrating_mons;
 671         while ((mtmp = *mmtmp) != 0) {
 672             if (mtmp->iswiz
 673                 /* if he has the Amulet, he won't bring it to you */
 674                 && !mon_has_amulet(mtmp)
 675                 && (elapsed = monstermoves - mtmp->mlstmv) > 0L) {
 676                 mon_catchup_elapsed_time(mtmp, elapsed);
 677                 if (elapsed >= LARGEST_INT)
 678                     elapsed = LARGEST_INT - 1;
 679                 elapsed /= 50L;
 680                 if (mtmp->msleeping && rn2((int) elapsed + 1))
 681                     mtmp->msleeping = 0;
 682                 if (mtmp->mfrozen == 1) /* would unfreeze on next move */
 683                     mtmp->mfrozen = 0, mtmp->mcanmove = 1;
 684                 if (mtmp->mcanmove && !mtmp->msleeping) {
 685                     *mmtmp = mtmp->nmon;
 686                     mon_arrive(mtmp, TRUE);
 687                     /* note: there might be a second Wizard; if so,
 688                        he'll have to wait til the next resurrection */
 689                     break;
 690                 }
 691             }
 692             mmtmp = &mtmp->nmon;
 693         }
 694     }
 695
 696     if (mtmp) {
 697         mtmp->mtame = mtmp->mpeaceful = 0; /* paranoia */
 698         set_malign(mtmp);
 699         if (!Deaf) {
 700 /*JP
 701             pline("A voice booms out...");
 702 */
 703             pline("\90º\82ª\8d\82\82\96Â\82è\8b¿\82¢\82½\81D\81D\81D");
 704 /*JP
 705             verbalize("So thou thought thou couldst %s me, fool.", verb);
 706 */
 707             verbalize("\97]%s\82Æ\8ev\82¢\82µ\82©\81C\92s\82ê\8eÒ\82ª\81D", verb);
 708         }
 709     }
 710 }
 711
 712 /* Here, we make trouble for the poor shmuck who actually
 713    managed to do in the Wizard. */
 714 void
 715 intervene()
 716 {
 717     int which = Is_astralevel(&u.uz) ? rnd(4) : rn2(6);
 718     /* cases 0 and 5 don't apply on the Astral level */
 719     switch (which) {
 720     case 0:
 721     case 1:
 722 /*JP
 723         You_feel("vaguely nervous.");
 724 */
 725         You("\89½\82Æ\82È\82\95s\88À\82É\82È\82Á\82½\81D");
 726         break;
 727     case 2:
 728         if (!Blind)
 729 /*JP
 730             You("notice a %s glow surrounding you.", hcolor(NH_BLACK));
 731 */
 732             pline("%s\8cõ\82ª\82 \82È\82½\82ð\82Æ\82è\82Ü\82¢\82Ä\82¢\82é\82Ì\82É\8bC\82ª\82Â\82¢\82½\81D", hcolor(NH_BLACK));
 733         rndcurse();
 734         break;
 735     case 3:
 736         aggravate();
 737         break;
 738     case 4:
 739         (void) nasty((struct monst *) 0);
 740         break;
 741     case 5:
 742         resurrect();
 743         break;
 744     }
 745 }
 746
 747 void
 748 wizdead()
 749 {
 750     context.no_of_wizards--;
 751     if (!u.uevent.udemigod) {
 752         u.uevent.udemigod = TRUE;
 753         u.udg_cnt = rn1(250, 50);
 754     }
 755 }
 756
 757 const char *const random_insult[] = {
 758 #if 0 /*JP:T*/
 759     "antic",      "blackguard",   "caitiff",    "chucklehead",
 760     "coistrel",   "craven",       "cretin",     "cur",
 761     "dastard",    "demon fodder", "dimwit",     "dolt",
 762     "fool",       "footpad",      "imbecile",   "knave",
 763     "maledict",   "miscreant",    "niddering",  "poltroon",
 764     "rattlepate", "reprobate",    "scapegrace", "varlet",
 765     "villein", /* (sic.) */
 766     "wittol",     "worm",         "wretch",
 767 #else
 768     "\82Ó\82´\82¯\82½\96ì\98Y", "\88«\93}",       "\82\82»\82Á\82½\82ê", "\82Ì\82ë\82Ü",
 769     "\82 \82ñ\82Û\82ñ\82½\82ñ", "\89°\95a\8eÒ",     "\94\92\92s",       "\82ë\82\82Å\82È\82µ",
 770     "\82¤\82Â\82¯",       "\88«\96\82\82Ì\89a\90H", "\82¤\82·\82Ì\82ë",   "\82Ü\82Ê\82¯",
 771     "\94n\8e",         "\82¨\82¢\82Í\82¬",   "\8bð\82©\8eÒ",     "\82È\82ç\82¸\8eÒ",
 772     "\88«\90l",         "\8bÉ\88«\90l",     "\94n\8e\82½\82ê",   "\94Ú\8b¯\8eÒ",
 773     "\95\97\91D\93ª",       "\93¹\8ay\8eÒ",     "\96ï\89î\8eÒ",     "\89º\98Y",
 774     "\93z\97ê", /* (sic.) */
 775     "\82Ó\82È\82Þ\82µ",     "åv\92\8e",       "\90l\82Å\82È\82µ",
 776 #endif
 777 };
 778
 779 const char *const random_malediction[] = {
 780 #if 0 /*JP:T*/
 781     "Hell shall soon claim thy remains,", "I chortle at thee, thou pathetic",
 782     "Prepare to die, thou", "Resistance is useless,",
 783     "Surrender or die, thou", "There shall be no mercy, thou",
 784     "Thou shalt repent of thy cunning,", "Thou art as a flea to me,",
 785     "Thou art doomed,", "Thy fate is sealed,",
 786     "Verily, thou shalt be one dead"
 787 #else
 788     "\92n\8d\96\82Í\82¢\82Ã\82ê\81C\93ð\82Ì\96S\8a[\82ð\97v\8b\81\82·\82é\82Å\82 \82ë\82¤\81C",
 789     "\88£\82ê\82È\82â\82Â\82æ\82Ì\82¤\81D\97]\82Í\96\9e\91«\82¶\82á",
 790     "\93ð\81C\8e\80\82É\94õ\82¦\82æ",
 791     "\92ï\8dR\82µ\82Ä\82à\96³\91Ê\82¶\82á\81C",
 792     "\8d~\8eQ\82¹\82æ\81D\82³\82à\82È\82\82Î\8e\80\82¶\82á\81D",
 793     "\8e\9c\94ß\82Í\96³\82©\82ç\82ñ",
 794     "\93ð\81C\82¸\82é\82ð\8cã\89÷\82·\82×\82µ\81C",
 795     "\93ð\82Í\97]\82É\82Æ\82Á\82Ä\83m\83~\82Ì\82æ\82¤\82È\82à\82Ì\82¶\82á\81C",
 796     "\93ð\82Í\8eô\82í\82ê\82Ä\82¨\82é\81C",
 797     "\93ð\82Ì\89^\96½\82Í\95\95\88ó\82³\82ê\82Ä\82¨\82é\81C",
 798     "\82Ü\82±\82Æ\82É\93ð\82Í\8e\80\82É\82½\82é\8eÒ\82È\82è"
 799 #endif
 800 };
 801
 802 /* Insult or intimidate the player */
 803 void
 804 cuss(mtmp)
 805 register struct monst *mtmp;
 806 {
 807     if (Deaf)
 808         return;
 809     if (mtmp->iswiz) {
 810         if (!rn2(5)) /* typical bad guy action */
 811 /*JP
 812             pline("%s laughs fiendishly.", Monnam(mtmp));
 813 */
 814             pline("%s\82Í\88«\96\82\82Ì\82æ\82¤\82É\8fÎ\82Á\82½\81D", Monnam(mtmp));
 815         else if (u.uhave.amulet && !rn2(SIZE(random_insult)))
 816 /*JP
 817             verbalize("Relinquish the amulet, %s!",
 818 */
 819             verbalize("\96\82\82æ\82¯\82ð\8eè\95ú\82¹\81C%s\81I",
 820                       random_insult[rn2(SIZE(random_insult))]);
 821         else if (u.uhp < 5 && !rn2(2)) /* Panic */
 822 #if 0 /*JP:T*/
 823             verbalize(rn2(2) ? "Even now thy life force ebbs, %s!"
 824                              : "Savor thy breath, %s, it be thy last!",
 825                       random_insult[rn2(SIZE(random_insult))]);
 826 #else
 827             verbalize(rn2(2) ? "\8d¡\82Æ\82È\82Á\82Ä\82à\82È\82¨\93ð\82Ì\96½\82Í\82 \82¦\82Ä\90\8a\82¦\82é\82Ì\82¾\81C%s\81I"
 828                              : "\96³\91Ê\82È\82±\82Æ\82ð\82·\82é\82È\81C%s\81C\93ð\82Ì\8dÅ\8aú\82Ì\8e\9e\82¾\81I",
 829                       random_insult[rn2(SIZE(random_insult))]);
 830 #endif
 831         else if (mtmp->mhp < 5 && !rn2(2)) /* Parthian shot */
 832 /*JP
 833             verbalize(rn2(2) ? "I shall return." : "I'll be back.");
 834 */
 835             verbalize(rn2(2) ? "\97]\82Í\95K\82¸\8bA\82Á\82Ä\82\82é\81D" : "\97]\82Í\96ß\82Á\82Ä\82\82é\81D");
 836         else
 837 #if 0 /*JP:T*/
 838             verbalize("%s %s!",
 839                       random_malediction[rn2(SIZE(random_malediction))],
 840                       random_insult[rn2(SIZE(random_insult))]);
 841 #else
 842             verbalize("%s\81C%s\81I",
 843                       random_malediction[rn2(SIZE(random_malediction))],
 844                       random_insult[rn2(SIZE(random_insult))]);
 845 #endif
 846     } else if (is_lminion(mtmp)
 847                && !(mtmp->isminion && EMIN(mtmp)->renegade)) {
 848         com_pager(rn2(QTN_ANGELIC - 1 + (Hallucination ? 1 : 0))
 849                   + QT_ANGELIC);
 850     } else {
 851         if (!rn2(is_minion(mtmp->data) ? 100 : 5))
 852 /*JP
 853             pline("%s casts aspersions on your ancestry.", Monnam(mtmp));
 854 */
 855             pline("%s\82Í\82 \82È\82½\82Ì\89Æ\95¿\82ð\92\86\8f\9d\82µ\82½\81D", Monnam(mtmp));
 856         else
 857             com_pager(rn2(QTN_DEMONIC) + QT_DEMONIC);
 858     }
 859 }
 860
 861 /*wizard.c*/