games/hack/hack.mon.c

   1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   2 /* hack.mon.c - version 1.0.3 */
   3 /* $FreeBSD: src/games/hack/hack.mon.c,v 1.5 1999/11/16 10:26:37 marcel Exp $ */
   4 /* $DragonFly: src/games/hack/hack.mon.c,v 1.6 2008/06/05 18:01:49 swildner Exp $ */
   5
   6 #include "hack.h"
   7 #include "hack.mfndpos.h"
   8
   9 int warnlevel;  /* used by movemon and dochugw */
  10 long lastwarntime;
  11 int lastwarnlev;
  12 static const char *warnings[] = {
  13         "white", "pink", "red", "ruby", "purple", "black"
  14 };
  15
  16 static int dochugw(struct monst *);
  17 static void mpickgold(struct monst *);
  18 static void mpickgems(struct monst *);
  19 static void dmonsfree(void);
  20 static bool ishuman(struct monst *);
  21
  22 void
  23 movemon(void)
  24 {
  25         struct monst *mtmp;
  26         int fr;
  27
  28         warnlevel = 0;
  29
  30         for (;;) {
  31                 /* find a monster that we haven't treated yet */
  32                 /*
  33                  * note that mtmp or mtmp->nmon might get killed while mtmp
  34                  * moves, so we cannot just walk down the chain (even new
  35                  * monsters might get created!)
  36                  */
  37                 for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  38                         if (mtmp->mlstmv < moves)
  39                                 goto next_mon;
  40                 /* treated all monsters */
  41                 break;
  42
  43 next_mon:
  44                 mtmp->mlstmv = moves;
  45
  46                 /* most monsters drown in pools */
  47                 {
  48                         boolean inpool, iseel;
  49
  50                         inpool = (levl[mtmp->mx][mtmp->my].typ == POOL);
  51                         iseel = (mtmp->data->mlet == ';');
  52                         if (inpool && !iseel) {
  53                                 if (cansee(mtmp->mx, mtmp->my))
  54                                         pline("%s drowns.", Monnam(mtmp));
  55                                 mondead(mtmp);
  56                                 continue;
  57                         }
  58                         /* but eels have a difficult time outside */
  59                         if (iseel && !inpool) {
  60                                 if (mtmp->mhp > 1)
  61                                         mtmp->mhp--;
  62                                 mtmp->mflee = 1;
  63                                 mtmp->mfleetim += 2;
  64                         }
  65                 }
  66                 if (mtmp->mblinded && !--mtmp->mblinded)
  67                         mtmp->mcansee = 1;
  68                 if (mtmp->mfleetim && !--mtmp->mfleetim)
  69                         mtmp->mflee = 0;
  70                 if (mtmp->mimic)
  71                         continue;
  72                 if (mtmp->mspeed != MSLOW || !(moves % 2)) {
  73                         /* continue if the monster died fighting */
  74                         fr = -1;
  75                         if (Conflict && cansee(mtmp->mx, mtmp->my)
  76                             && (fr = fightm(mtmp)) == 2)
  77                                 continue;
  78                         if (fr < 0 && dochugw(mtmp))
  79                                 continue;
  80                 }
  81                 if (mtmp->mspeed == MFAST && dochugw(mtmp))
  82                         continue;
  83         }
  84
  85         warnlevel -= u.ulevel;
  86         if (warnlevel >= SIZE(warnings))
  87                 warnlevel = SIZE(warnings) - 1;
  88         if (warnlevel >= 0)
  89                 if (warnlevel > lastwarnlev || moves > lastwarntime + 5) {
  90                         const char *rr;
  91                         switch (Warning & (LEFT_RING | RIGHT_RING)) {
  92                         case LEFT_RING:
  93                                 rr = "Your left ring glows";
  94                                 break;
  95                         case RIGHT_RING:
  96                                 rr = "Your right ring glows";
  97                                 break;
  98                         case LEFT_RING | RIGHT_RING:
  99                                 rr = "Both your rings glow";
 100                                 break;
 101                         default:
 102                                 rr = "Your fingertips glow";
 103                                 break;
 104                         }
 105                         pline("%s %s!", rr, warnings[warnlevel]);
 106                         lastwarntime = moves;
 107                         lastwarnlev = warnlevel;
 108                 }
 109
 110         dmonsfree();            /* remove all dead monsters */
 111 }
 112
 113 void
 114 justswld(struct monst *mtmp, const char *name)
 115 {
 116         mtmp->mx = u.ux;
 117         mtmp->my = u.uy;
 118         u.ustuck = mtmp;
 119         pmon(mtmp);
 120         kludge("%s swallows you!", name);
 121         more();
 122         seeoff(1);
 123         u.uswallow = 1;
 124         u.uswldtim = 0;
 125         swallowed();
 126 }
 127
 128 void
 129 youswld(struct monst *mtmp, int dam, int die, const char *name)
 130 {
 131         if (mtmp != u.ustuck)
 132                 return;
 133         kludge("%s digests you!", name);
 134         u.uhp -= dam;
 135         if ((int)u.uswldtim++ >= die) { /* a3 */
 136                 pline("It totally digests you!");
 137                 u.uhp = -1;
 138         }
 139         if (u.uhp < 1)
 140                 done_in_by(mtmp);
 141 #if 0
 142         flags.botlx = 1;                /* should we show status line ? */
 143 #endif
 144 }
 145
 146 static int
 147 dochugw(struct monst *mtmp)
 148 {
 149         int x = mtmp->mx;
 150         int y = mtmp->my;
 151         int d1 = dochug(mtmp);
 152         int dd;
 153
 154         if (!d1)                /* monster still alive */
 155                 if (Warning)
 156                         if (!mtmp->mpeaceful)
 157                                 if (mtmp->data->mlevel > warnlevel)
 158                                         if ((dd = dist(mtmp->mx, mtmp->my)) <
 159                                             dist(x, y))
 160                                                 if (dd < 100)
 161                                                         if (!canseemon(mtmp))
 162                                                                 warnlevel =
 163                                                                         mtmp->
 164                                                                         data->
 165                                                                         mlevel;
 166         return (d1);
 167 }
 168
 169 /* returns 1 if monster died moving, 0 otherwise */
 170 bool
 171 dochug(struct monst *mtmp)
 172 {
 173         struct permonst *mdat;
 174         int tmp = 0, nearby, scared;
 175
 176         if (mtmp->cham && !rn2(6))
 177                 newcham(mtmp, &mons[dlevel + 14 + rn2(CMNUM - 14 - dlevel)]);
 178         mdat = mtmp->data;
 179         if (mdat->mlevel < 0)
 180                 panic("bad monster %c (%d)", mdat->mlet, mdat->mlevel);
 181
 182         /* regenerate monsters */
 183         if ((!(moves % 20) || strchr(MREGEN, mdat->mlet)) &&
 184             mtmp->mhp < mtmp->mhpmax)
 185                 mtmp->mhp++;
 186
 187         if (mtmp->mfroz)        /* frozen monsters don't do anything */
 188                 return (0);
 189
 190         if (mtmp->msleep) {
 191                 /* wake up, or get out of here. */
 192                 /* ettins are hard to surprise */
 193                 /* Nymphs and Leprechauns do not easily wake up */
 194                 if (cansee(mtmp->mx, mtmp->my) &&
 195                     (!Stealth || (mdat->mlet == 'e' && rn2(10))) &&
 196                     (!strchr("NL", mdat->mlet) || !rn2(50)) &&
 197                     (Aggravate_monster || strchr("d1", mdat->mlet)
 198                      || (!rn2(7) && !mtmp->mimic)))
 199                         mtmp->msleep = 0;
 200                 else
 201                         return (0);
 202         }
 203
 204         /* not frozen or sleeping: wipe out texts written in the dust */
 205         wipe_engr_at(mtmp->mx, mtmp->my, 1);
 206
 207         /* confused monsters get unconfused with small probability */
 208         if (mtmp->mconf && !rn2(50))
 209                 mtmp->mconf = 0;
 210
 211         /* some monsters teleport */
 212         if (mtmp->mflee && strchr("tNL", mdat->mlet) && !rn2(40)) {
 213                 rloc(mtmp);
 214                 return (0);
 215         }
 216         if (mdat->mmove < rnd(6))
 217                 return (0);
 218
 219         /* fleeing monsters might regain courage */
 220         if (mtmp->mflee && !mtmp->mfleetim
 221             && mtmp->mhp == mtmp->mhpmax && !rn2(25))
 222                 mtmp->mflee = 0;
 223
 224         nearby = (dist(mtmp->mx, mtmp->my) < 3);
 225         scared = (nearby && (sengr_at("Elbereth", u.ux, u.uy) ||
 226                              sobj_at(SCR_SCARE_MONSTER, u.ux, u.uy)));
 227         if (scared && !mtmp->mflee) {
 228                 mtmp->mflee = 1;
 229                 mtmp->mfleetim = (rn2(7) ? rnd(10) : rnd(100));
 230         }
 231
 232         if (!nearby ||
 233             mtmp->mflee ||
 234             mtmp->mconf ||
 235             (mtmp->minvis && !rn2(3)) ||
 236             (strchr("BIuy", mdat->mlet) && !rn2(4)) ||
 237             (mdat->mlet == 'L' && !u.ugold && (mtmp->mgold || rn2(2))) ||
 238             (!mtmp->mcansee && !rn2(4)) ||
 239             mtmp->mpeaceful
 240            ) {
 241                 tmp = m_move(mtmp, 0);  /* 2: monster died moving */
 242                 if (tmp == 2 || (tmp && mdat->mmove <= 12))
 243                         return (tmp == 2);
 244         }
 245
 246         if (!strchr("Ea", mdat->mlet) && nearby &&
 247             !mtmp->mpeaceful && u.uhp > 0 && !scared) {
 248                 if (mhitu(mtmp))
 249                         return (1);     /* monster died (e.g. 'y' or 'F') */
 250         }
 251         /* extra movement for fast monsters */
 252         if (mdat->mmove - 12 > rnd(12))
 253                 tmp = m_move(mtmp, 1);
 254         return (tmp == 2);
 255 }
 256
 257 int
 258 m_move(struct monst *mtmp, int after)
 259 {
 260         struct monst *mtmp2;
 261         int nx, ny, omx, omy, appr, nearer, cnt, i, j;
 262         xchar gx, gy, nix, niy, chcnt;
 263         schar chi;
 264         boolean likegold = 0, likegems = 0, likeobjs;
 265         char msym = mtmp->data->mlet;
 266         schar mmoved = 0;       /* not strictly nec.: chi >= 0 will do */
 267         coord poss[9];
 268         int info[9];
 269
 270         if (mtmp->mfroz || mtmp->msleep)
 271                 return (0);
 272         if (mtmp->mtrapped) {
 273                 i = mintrap(mtmp);
 274                 if (i == 2)     /* he died */
 275                         return (2);
 276                 if (i == 1)     /* still in trap, so didnt move */
 277                         return (0);
 278         }
 279         if (mtmp->mhide && o_at(mtmp->mx, mtmp->my) && rn2(10))
 280                 return (0);     /* do not leave hiding place */
 281
 282 #ifndef NOWORM
 283         if (mtmp->wormno)
 284                 goto not_special;
 285 #endif /* NOWORM */
 286
 287         /* my dog gets a special treatment */
 288         if (mtmp->mtame)
 289                 return (dog_move(mtmp, after));
 290
 291         /* likewise for shopkeeper */
 292         if (mtmp->isshk) {
 293                 mmoved = shk_move(mtmp);
 294                 if (mmoved >= 0)
 295                         goto postmov;
 296                 mmoved = 0;     /* follow player outside shop */
 297         }
 298
 299         /* and for the guard */
 300         if (mtmp->isgd) {
 301                 mmoved = gd_move();
 302                 goto postmov;
 303         }
 304
 305         /* teleport if that lies in our nature ('t') or when badly wounded ('1') */
 306         if ((msym == 't' && !rn2(5))
 307             || (msym == '1' && (mtmp->mhp < 7 || (!xdnstair && !rn2(5))
 308                                 || levl[u.ux][u.uy].typ == STAIRS))) {
 309                 if (mtmp->mhp < 7 || (msym == 't' && rn2(2)))
 310                         rloc(mtmp);
 311                 else
 312                         mnexto(mtmp);
 313                 mmoved = 1;
 314                 goto postmov;
 315         }
 316
 317         /* spit fire ('D') or use a wand ('1') when appropriate */
 318         if (strchr("D1", msym))
 319                 inrange(mtmp);
 320
 321         if (msym == 'U' && !mtmp->mcan && canseemon(mtmp) &&
 322             mtmp->mcansee && rn2(5)) {
 323                 if (!Confusion)
 324                         pline("%s's gaze has confused you!", Monnam(mtmp));
 325                 else
 326                         pline("You are getting more and more confused.");
 327                 if (rn2(3))
 328                         mtmp->mcan = 1;
 329                 Confusion += d(3, 4);   /* timeout */
 330         }
 331 not_special:
 332         if (!mtmp->mflee && u.uswallow && u.ustuck != mtmp)
 333                 return (1);
 334         appr = 1;
 335         if (mtmp->mflee)
 336                 appr = -1;
 337         if (mtmp->mconf || Invis || !mtmp->mcansee ||
 338             (strchr("BIy", msym) && !rn2(3)))
 339                 appr = 0;
 340         omx = mtmp->mx;
 341         omy = mtmp->my;
 342         gx = u.ux;
 343         gy = u.uy;
 344         if (msym == 'L' && appr == 1 && mtmp->mgold > u.ugold)
 345                 appr = -1;
 346
 347         /*
 348          * random criterion for 'smell' or track finding ability should use
 349          * mtmp->msmell or sth
 350          */
 351         if (msym == '@' ||
 352             ('a' <= msym && msym <= 'z')) {
 353                 coord *cp;
 354                 schar mroom;
 355                 mroom = inroom(omx, omy);
 356                 if (mroom < 0 || mroom != inroom(u.ux, u.uy)) {
 357                         cp = gettrack(omx, omy);
 358                         if (cp) {
 359                                 gx = cp->x;
 360                                 gy = cp->y;
 361                         }
 362                 }
 363         }
 364
 365         /* look for gold or jewels nearby */
 366         likegold = (strchr("LOD", msym) != NULL);
 367         likegems = (strchr("ODu", msym) != NULL);
 368         likeobjs = mtmp->mhide;
 369 #define SRCHRADIUS      25
 370         {
 371                 xchar mind = SRCHRADIUS;              /* not too far away */
 372                 int dd;
 373                 if (likegold) {
 374                         struct gold *gold;
 375                         for (gold = fgold; gold; gold = gold->ngold)
 376                                 if ((dd = DIST(omx, omy, gold->gx,
 377                                     gold->gy)) < mind) {
 378                                         mind = dd;
 379                                         gx = gold->gx;
 380                                         gy = gold->gy;
 381                                 }
 382                 }
 383                 if (likegems || likeobjs) {
 384                         struct obj *otmp;
 385                         for (otmp = fobj; otmp; otmp = otmp->nobj)
 386                                 if (likeobjs || otmp->olet == GEM_SYM)
 387                                         if (msym != 'u' ||
 388                                             objects[otmp->otyp].g_val != 0)
 389                                                 if ((dd = DIST(omx, omy, otmp->ox,
 390                                                     otmp->oy)) < mind) {
 391                                                         mind = dd;
 392                                                         gx = otmp->ox;
 393                                                         gy = otmp->oy;
 394                                                 }
 395                 }
 396                 if (mind < SRCHRADIUS && appr == -1) {
 397                         if (dist(omx, omy) < 10) {
 398                                 gx = u.ux;
 399                                 gy = u.uy;
 400                         } else
 401                                 appr = 1;
 402                 }
 403         }
 404         nix = omx;
 405         niy = omy;
 406         cnt = mfndpos(mtmp, poss, info,
 407             msym == 'u' ? NOTONL :
 408             (msym == '@' || msym == '1') ? (ALLOW_SSM | ALLOW_TRAPS) :
 409             strchr(UNDEAD, msym) ? NOGARLIC : ALLOW_TRAPS);
 410         /* ALLOW_ROCK for some monsters ? */
 411         chcnt = 0;
 412         chi = -1;
 413         for (i = 0; i < cnt; i++) {
 414                 nx = poss[i].x;
 415                 ny = poss[i].y;
 416                 for (j = 0; j < MTSZ && j < cnt - 1; j++)
 417                         if (nx == mtmp->mtrack[j].x && ny == mtmp->mtrack[j].y)
 418                                 if (rn2(4 * (cnt - j)))
 419                                         goto nxti;
 420 #ifdef STUPID
 421                 /* some stupid compilers think that this is too complicated */
 422                 {
 423                         int d1 = DIST(nx, ny, gx, gy);
 424                         int d2 = DIST(nix, niy, gx, gy);
 425                         nearer = (d1 < d2);
 426                 }
 427 #else
 428                 nearer = (DIST(nx, ny, gx, gy) < DIST(nix, niy, gx, gy));
 429 #endif /* STUPID */
 430                 if ((appr == 1 && nearer) || (appr == -1 && !nearer) ||
 431                     !mmoved ||
 432                     (!appr && !rn2(++chcnt))) {
 433                         nix = nx;
 434                         niy = ny;
 435                         chi = i;
 436                         mmoved = 1;
 437                 }
 438 nxti:;
 439         }
 440         if (mmoved) {
 441                 if (info[chi] & ALLOW_M) {
 442                         mtmp2 = m_at(nix, niy);
 443                         if (hitmm(mtmp, mtmp2) == 1 && rn2(4) &&
 444                             hitmm(mtmp2, mtmp) == 2)
 445                                 return (2);
 446                         return (0);
 447                 }
 448                 if (info[chi] & ALLOW_U) {
 449                         hitu(mtmp, d(mtmp->data->damn, mtmp->data->damd) + 1);
 450                         return (0);
 451                 }
 452                 mtmp->mx = nix;
 453                 mtmp->my = niy;
 454                 for (j = MTSZ - 1; j > 0; j--)
 455                         mtmp->mtrack[j] = mtmp->mtrack[j - 1];
 456                 mtmp->mtrack[0].x = omx;
 457                 mtmp->mtrack[0].y = omy;
 458 #ifndef NOWORM
 459                 if (mtmp->wormno)
 460                         worm_move(mtmp);
 461 #endif /* NOWORM */
 462         } else {
 463                 if (msym == 'u' && rn2(2)) {
 464                         rloc(mtmp);
 465                         return (0);
 466                 }
 467 #ifndef NOWORM
 468                 if (mtmp->wormno)
 469                         worm_nomove(mtmp);
 470 #endif /* NOWORM */
 471         }
 472 postmov:
 473         if (mmoved == 1) {
 474                 if (mintrap(mtmp) == 2) /* he died */
 475                         return (2);
 476                 if (likegold)
 477                         mpickgold(mtmp);
 478                 if (likegems)
 479                         mpickgems(mtmp);
 480                 if (mtmp->mhide)
 481                         mtmp->mundetected = 1;
 482         }
 483         pmon(mtmp);
 484         return (mmoved);
 485 }
 486
 487 static void
 488 mpickgold(struct monst *mtmp)
 489 {
 490         struct gold *gold;
 491
 492         while ((gold = g_at(mtmp->mx, mtmp->my)) != NULL) {
 493                 mtmp->mgold += gold->amount;
 494                 freegold(gold);
 495                 if (levl[mtmp->mx][mtmp->my].scrsym == '$')
 496                         newsym(mtmp->mx, mtmp->my);
 497         }
 498 }
 499
 500 static void
 501 mpickgems(struct monst *mtmp)
 502 {
 503         struct obj *otmp;
 504
 505         for (otmp = fobj; otmp; otmp = otmp->nobj)
 506                 if (otmp->olet == GEM_SYM)
 507                         if (otmp->ox == mtmp->mx && otmp->oy == mtmp->my)
 508                                 if (mtmp->data->mlet != 'u' ||
 509                                     objects[otmp->otyp].g_val != 0) {
 510                                         freeobj(otmp);
 511                                         mpickobj(mtmp, otmp);
 512                                         if (levl[mtmp->mx][mtmp->my].scrsym == GEM_SYM)
 513                                                 newsym(mtmp->mx, mtmp->my);     /* %% */
 514                                         return; /* pick only one object */
 515                                 }
 516 }
 517
 518 /* return number of acceptable neighbour positions */
 519 int
 520 mfndpos(struct monst *mon, coord poss[9], int info[9], int flag)
 521 {
 522         int x, y, nx, ny, cnt = 0, ntyp;
 523         struct monst *mtmp;
 524         int nowtyp;
 525         boolean pool;
 526
 527         x = mon->mx;
 528         y = mon->my;
 529         nowtyp = levl[x][y].typ;
 530
 531         pool = (mon->data->mlet == ';');
 532 nexttry:
 533         /*
 534          * eels prefer the water, but if there is no water nearby, they will
 535          * crawl over land
 536          */
 537         if (mon->mconf) {
 538                 flag |= ALLOW_ALL;
 539                 flag &= ~NOTONL;
 540         }
 541         for (nx = x - 1; nx <= x + 1; nx++)
 542                 for (ny = y - 1; ny <= y + 1; ny++)
 543                         if (nx != x || ny != y)
 544                                 if (isok(nx, ny))
 545                                         if (!IS_ROCK(ntyp = levl[nx][ny].typ))
 546                                                 if (!(nx != x && ny != y &&
 547                                                       (nowtyp == DOOR || ntyp == DOOR)))
 548                                                         if ((ntyp == POOL) == pool) {
 549                                                                 info[cnt] = 0;
 550                                                                 if (nx == u.ux && ny == u.uy) {
 551                                                                         if (!(flag & ALLOW_U))
 552                                                                                 continue;
 553                                                                         info[cnt] = ALLOW_U;
 554                                                                 } else if ((mtmp = m_at(nx, ny)) != NULL) {
 555                                                                         if (!(flag & ALLOW_M))
 556                                                                                 continue;
 557                                                                         info[cnt] = ALLOW_M;
 558                                                                         if (mtmp->mtame) {
 559                                                                                 if (!(flag & ALLOW_TM))
 560                                                                                         continue;
 561                                                                                 info[cnt] |= ALLOW_TM;
 562                                                                         }
 563                                                                 }
 564                                                                 if (sobj_at(CLOVE_OF_GARLIC, nx, ny)) {
 565                                                                         if (flag & NOGARLIC)
 566                                                                                 continue;
 567                                                                         info[cnt] |= NOGARLIC;
 568                                                                 }
 569                                                                 if (sobj_at(SCR_SCARE_MONSTER, nx, ny) ||
 570                                                                     (!mon->mpeaceful &&
 571                                                                     sengr_at("Elbereth", nx, ny))) {
 572                                                                         if (!(flag & ALLOW_SSM))
 573                                                                                 continue;
 574                                                                         info[cnt] |= ALLOW_SSM;
 575                                                                 }
 576                                                                 if (sobj_at(ENORMOUS_ROCK, nx, ny)) {
 577                                                                         if (!(flag & ALLOW_ROCK))
 578                                                                                 continue;
 579                                                                         info[cnt] |= ALLOW_ROCK;
 580                                                                 }
 581                                                                 if (!Invis && online(nx, ny)) {
 582                                                                         if (flag & NOTONL)
 583                                                                                 continue;
 584                                                                         info[cnt] |= NOTONL;
 585                                                                 }
 586                                                                 /* we cannot avoid traps of an unknown kind */
 587                                                                 {
 588                                                                         struct trap *ttmp = t_at(nx, ny);
 589                                                                         int tt;
 590                                                                         if (ttmp) {
 591                                                                                 tt = 1 << ttmp->ttyp;
 592                                                                                 if (mon->mtrapseen & tt) {
 593                                                                                         if (!(flag & tt))
 594                                                                                                 continue;
 595                                                                                         info[cnt] |= tt;
 596                                                                                 }
 597                                                                         }
 598                                                                 }
 599                                                                 poss[cnt].x = nx;
 600                                                                 poss[cnt].y = ny;
 601                                                                 cnt++;
 602                                                         }
 603         if (!cnt && pool && nowtyp != POOL) {
 604                 pool = FALSE;
 605                 goto nexttry;
 606         }
 607         return (cnt);
 608 }
 609
 610 int
 611 dist(int x, int y)
 612 {
 613         return ((x - u.ux) * (x - u.ux) + (y - u.uy) * (y - u.uy));
 614 }
 615
 616 void
 617 poisoned(const char *string, const char *pname)
 618 {
 619         int i;
 620
 621         if (Blind)
 622                 pline("It was poisoned.");
 623         else
 624                 pline("The %s was poisoned!", string);
 625         if (Poison_resistance) {
 626                 pline("The poison doesn't seem to affect you.");
 627                 return;
 628         }
 629         i = rn2(10);
 630         if (i == 0) {
 631                 u.uhp = -1;
 632                 pline("I am afraid the poison was deadly ...");
 633         } else if (i <= 5) {
 634                 losestr(rn1(3, 3));
 635         } else {
 636                 losehp(rn1(10, 6), pname);
 637         }
 638         if (u.uhp < 1) {
 639                 killer = pname;
 640                 done("died");
 641         }
 642 }
 643
 644 void
 645 mondead(struct monst *mtmp)
 646 {
 647         relobj(mtmp, 1);
 648         unpmon(mtmp);
 649         relmon(mtmp);
 650         unstuck(mtmp);
 651         if (mtmp->isshk)
 652                 shkdead(mtmp);
 653         if (mtmp->isgd)
 654                 gddead();
 655 #ifndef NOWORM
 656         if (mtmp->wormno)
 657                 wormdead(mtmp);
 658 #endif /* NOWORM */
 659         monfree(mtmp);
 660 }
 661
 662 /* called when monster is moved to larger structure */
 663 void
 664 replmon(struct monst *mtmp, struct monst *mtmp2)
 665 {
 666         relmon(mtmp);
 667         monfree(mtmp);
 668         mtmp2->nmon = fmon;
 669         fmon = mtmp2;
 670         if (u.ustuck == mtmp)
 671                 u.ustuck = mtmp2;
 672         if (mtmp2->isshk)
 673                 replshk(mtmp, mtmp2);
 674         if (mtmp2->isgd)
 675                 replgd(mtmp, mtmp2);
 676 }
 677
 678 void
 679 relmon(struct monst *mon)
 680 {
 681         struct monst *mtmp;
 682
 683         if (mon == fmon)
 684                 fmon = fmon->nmon;
 685         else {
 686                 for (mtmp = fmon; mtmp->nmon != mon; mtmp = mtmp->nmon)
 687                         ; /* nothing */
 688                 mtmp->nmon = mon->nmon;
 689         }
 690 }
 691
 692 /*
 693  * we do not free monsters immediately, in order to have their name available
 694  * shortly after their demise
 695  */
 696 struct monst *fdmon;    /* chain of dead monsters, need not to be saved */
 697
 698 void
 699 monfree(struct monst *mtmp)
 700 {
 701         mtmp->nmon = fdmon;
 702         fdmon = mtmp;
 703 }
 704
 705 static void
 706 dmonsfree(void)
 707 {
 708         struct monst *mtmp;
 709
 710         while ((mtmp = fdmon) != NULL) {
 711                 fdmon = mtmp->nmon;
 712                 free(mtmp);
 713         }
 714 }
 715
 716 void
 717 unstuck(struct monst *mtmp)
 718 {
 719         if (u.ustuck == mtmp) {
 720                 if (u.uswallow) {
 721                         u.ux = mtmp->mx;
 722                         u.uy = mtmp->my;
 723                         u.uswallow = 0;
 724                         setsee();
 725                         docrt();
 726                 }
 727                 u.ustuck = 0;
 728         }
 729 }
 730
 731 void
 732 killed(struct monst *mtmp)
 733 {
 734 #ifdef lint
 735 #define NEW_SCORING
 736         int tmp2;
 737 #endif /* lint */
 738         int tmp, nk, x, y;
 739         struct permonst *mdat;
 740
 741         if (mtmp->cham)
 742                 mtmp->data = PM_CHAMELEON;
 743         mdat = mtmp->data;
 744         if (Blind)
 745                 pline("You destroy it!");
 746         else
 747                 pline("You destroy %s!",
 748                       mtmp->mtame ? amonnam(mtmp, "poor") : monnam(mtmp));
 749         if (u.umconf) {
 750                 if (!Blind)
 751                         pline("Your hands stop glowing blue.");
 752                 u.umconf = 0;
 753         }
 754
 755         /* count killed monsters */
 756 #define MAXMONNO        100
 757         nk = 1;                 /* in case we cannot find it in mons */
 758         tmp = mdat - mons;      /* index in mons array (if not 'd', '@', ...) */
 759         if (tmp >= 0 && tmp < CMNUM + 2) {
 760                 u.nr_killed[tmp]++;
 761                 if ((nk = u.nr_killed[tmp]) > MAXMONNO &&
 762                     !strchr(fut_geno, mdat->mlet))
 763                         charcat(fut_geno, mdat->mlet);
 764         }
 765
 766         /* punish bad behaviour */
 767         if (mdat->mlet == '@')
 768                 Telepat = 0, u.uluck -= 2;
 769         if (mtmp->mpeaceful || mtmp->mtame)
 770                 u.uluck--;
 771         if (mdat->mlet == 'u')
 772                 u.uluck -= 5;
 773         if ((int)u.uluck < LUCKMIN)
 774                 u.uluck = LUCKMIN;
 775
 776         /* give experience points */
 777         tmp = 1 + mdat->mlevel * mdat->mlevel;
 778         if (mdat->ac < 3)
 779                 tmp += 2 * (7 - mdat->ac);
 780         if (strchr("AcsSDXaeRTVWU&In:P", mdat->mlet))
 781                 tmp += 2 * mdat->mlevel;
 782         if (strchr("DeV&P", mdat->mlet))
 783                 tmp += (7 * mdat->mlevel);
 784         if (mdat->mlevel > 6)
 785                 tmp += 50;
 786         if (mdat->mlet == ';')
 787                 tmp += 1000;
 788
 789 #ifdef NEW_SCORING
 790         /* ------- recent addition: make nr of points decrease
 791          *         when this is not the first of this kind */
 792         {
 793                 int ul = u.ulevel;
 794                 int ml = mdat->mlevel;
 795
 796                 if (ul < 14)    /* points are given based on present and future level */
 797                         for (tmp2 = 0; !tmp2 || ul + tmp2 <= ml; tmp2++)
 798                                 if (u.uexp + 1 + (tmp + ((tmp2 <= 0) ? 0 : 4 << (tmp2 - 1))) / nk
 799                                     >= 10 * pow((unsigned)(ul - 1)))
 800                                         if (++ul == 14)
 801                                                 break;
 802
 803                 tmp2 = ml - ul - 1;
 804                 tmp = (tmp + ((tmp2 < 0) ? 0 : 4 << tmp2)) / nk;
 805                 if (!tmp)
 806                         tmp = 1;
 807         }
 808         /* note: ul is not necessarily the future value of u.ulevel */
 809         /* ------- end of recent valuation change ------- */
 810 #endif /* NEW_SCORING */
 811
 812         more_experienced(tmp, 0);
 813         flags.botl = 1;
 814         while (u.ulevel < 14 && u.uexp >= newuexp()) {
 815                 pline("Welcome to experience level %u.", ++u.ulevel);
 816                 tmp = rnd(10);
 817                 if (tmp < 3)
 818                         tmp = rnd(10);
 819                 u.uhpmax += tmp;
 820                 u.uhp += tmp;
 821                 flags.botl = 1;
 822         }
 823
 824         /* dispose of monster and make cadaver */
 825         x = mtmp->mx;
 826         y = mtmp->my;
 827         mondead(mtmp);
 828         tmp = mdat->mlet;
 829         if (tmp == 'm') {       /* he killed a minotaur, give him a wand of digging */
 830                         /* note: the dead minotaur will be on top of it! */
 831                 mksobj_at(WAN_DIGGING, x, y);
 832                 /* if (cansee(x, y)) atl(x, y, fobj->olet); */
 833                 stackobj(fobj);
 834         } else
 835 #ifndef NOWORM
 836         if (tmp == 'w') {
 837                 mksobj_at(WORM_TOOTH, x, y);
 838                 stackobj(fobj);
 839         } else
 840 #endif /* NOWORM */
 841         if (!letter(tmp) || (!strchr("mw", tmp) && !rn2(3)))
 842                 tmp = 0;
 843
 844         if (ACCESSIBLE(levl[x][y].typ)) /* might be mimic in wall or dead eel*/
 845                 if (x != u.ux || y != u.uy)     /* might be here after swallowed */
 846                         if (strchr("NTVm&", mdat->mlet) || rn2(5)) {
 847                                 struct obj *obj2 = mkobj_at(tmp, x, y);
 848                                 if (cansee(x, y))
 849                                         atl(x, y, obj2->olet);
 850                                 stackobj(obj2);
 851                         }
 852 }
 853
 854 void
 855 kludge(const char *str, const char *arg)
 856 {
 857         if (Blind) {
 858                 if (*str == '%')
 859                         pline(str, "It");
 860                 else
 861                         pline(str, "it");
 862         } else
 863                 pline(str, arg);
 864 }
 865
 866 void
 867 rescham(void)           /* force all chameleons to become normal */
 868 {
 869         struct monst *mtmp;
 870
 871         for (mtmp = fmon; mtmp; mtmp = mtmp->nmon)
 872                 if (mtmp->cham) {
 873                         mtmp->cham = 0;
 874                         newcham(mtmp, PM_CHAMELEON);
 875                 }
 876 }
 877
 878 /* make a chameleon look like a new monster */
 879 /* returns 1 if the monster actually changed */
 880 bool
 881 newcham(struct monst *mtmp, struct permonst *mdat)
 882 {
 883         int mhp, hpn, hpd;
 884
 885         if (mdat == mtmp->data)         /* still the same monster */
 886                 return (0);
 887 #ifndef NOWORM
 888         if (mtmp->wormno)               /* throw tail away */
 889                 wormdead(mtmp);
 890 #endif /* NOWORM */
 891         if (u.ustuck == mtmp) {
 892                 if (u.uswallow) {
 893                         u.uswallow = 0;
 894                         u.uswldtim = 0;
 895                         mnexto(mtmp);
 896                         docrt();
 897                         prme();
 898                 }
 899                 u.ustuck = 0;
 900         }
 901         hpn = mtmp->mhp;
 902         hpd = (mtmp->data->mlevel) * 8;
 903         if (!hpd)
 904                 hpd = 4;
 905         mtmp->data = mdat;
 906         mhp = (mdat->mlevel) * 8;
 907         /* new hp: same fraction of max as before */
 908         mtmp->mhp = 2 + (hpn * mhp) / hpd;
 909         hpn = mtmp->mhpmax;
 910         mtmp->mhpmax = 2 + (hpn * mhp) / hpd;
 911         mtmp->minvis = (mdat->mlet == 'I') ? 1 : 0;
 912 #ifndef NOWORM
 913         if (mdat->mlet == 'w' && getwn(mtmp))
 914                 initworm(mtmp);
 915         /* perhaps we should clear mtmp->mtame here? */
 916 #endif /* NOWORM */
 917         unpmon(mtmp);   /* necessary for 'I' and to force pmon */
 918         pmon(mtmp);
 919         return (1);
 920 }
 921
 922 /* Make monster mtmp next to you (if possible) */
 923 void
 924 mnexto(struct monst *mtmp)
 925 {
 926         coord mm;
 927         mm = enexto(u.ux, u.uy);
 928         mtmp->mx = mm.x;
 929         mtmp->my = mm.y;
 930         pmon(mtmp);
 931 }
 932
 933 static bool
 934 ishuman(struct monst *mtmp)
 935 {
 936         return (mtmp->data->mlet == '@');
 937 }
 938
 939 void
 940 setmangry(struct monst *mtmp)
 941 {
 942         if (!mtmp->mpeaceful)
 943                 return;
 944         if (mtmp->mtame)
 945                 return;
 946         mtmp->mpeaceful = 0;
 947         if (ishuman(mtmp))
 948                 pline("%s gets angry!", Monnam(mtmp));
 949 }
 950
 951 /*
 952  * not one hundred percent correct: now a snake may hide under an invisible
 953  * object
 954  */
 955 bool
 956 canseemon(struct monst *mtmp)
 957 {
 958         return ((!mtmp->minvis || See_invisible)
 959                 && (!mtmp->mhide || !o_at(mtmp->mx, mtmp->my))
 960                 && cansee(mtmp->mx, mtmp->my));
 961 }