home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume3 / nethack2.2 / part08 / fight.c < prev    next >
C/C++ Source or Header  |  1987-12-02  |  16KB  |  614 lines
  1. /*    SCCS Id: @(#)fight.c    2.1    87/10/17
  2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  3.  
  4. #include    <stdio.h>
  5. #include    "hack.h"
  6.  
  7. extern struct permonst li_dog, dog, la_dog;
  8. extern char *exclam(), *hcolor(), *xname();
  9. extern struct obj *mkobj_at();
  10. #ifdef KAA
  11. extern boolean stoned;
  12. extern boolean unweapon;
  13. extern char *nomovemsg, *defmonnam();
  14. extern struct monst *mkmon_at();
  15. #endif
  16. #ifdef RPH
  17. extern struct obj *mk_named_obj();
  18. #endif
  19.  
  20. static boolean far_noise;
  21. static long noisetime;
  22.  
  23. /* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */
  24. hitmm(magr,mdef) register struct monst *magr,*mdef; {
  25. register struct permonst *pa = magr->data, *pd = mdef->data;
  26. int hit;
  27. schar tmp;
  28. boolean vis;
  29.     if(!magr || !mdef) return(0);        /* mike@genat */
  30.     if(index("Eauy", pa->mlet)) return(0);
  31.     if(magr->mfroz) return(0);        /* riv05!a3 */
  32.     tmp = pd->ac + pa->mlevel;
  33.     if(mdef->mconf || mdef->mfroz || mdef->msleep){
  34.         tmp += 4;
  35.         if(mdef->msleep) mdef->msleep = 0;
  36.     }
  37.     hit = (tmp > rnd(20));
  38.     if(hit) mdef->msleep = 0;
  39.     vis = (cansee(magr->mx,magr->my) && cansee(mdef->mx,mdef->my));
  40.     if(vis){
  41.         char buf[BUFSZ];
  42.         if(mdef->mimic) seemimic(mdef);
  43.         if(magr->mimic) seemimic(magr);
  44.         (void) sprintf(buf,"%s %s", Monnam(magr),
  45.             hit ? "hits" : "misses");
  46.         pline("%s %s.", buf, monnam(mdef));
  47.     } else {
  48.         boolean farq = (dist(magr->mx, magr->my) > 15);
  49.         if(farq != far_noise || moves-noisetime > 10) {
  50.             far_noise = farq;
  51.             noisetime = moves;
  52.             pline("You hear some noises%s.",
  53.                 farq ? " in the distance" : "");
  54.         }
  55.     }
  56.     if(hit){
  57.         if(magr->data->mlet == 'c' && !magr->cham) {
  58.             magr->mhpmax += 3;
  59.             if(vis) pline("%s is turned to stone!", Monnam(mdef));
  60.             else if(mdef->mtame)
  61.      pline("You have a peculiarly sad feeling for a moment, then it passes.");
  62.             monstone(mdef);
  63.             hit = 2;
  64.         } else
  65.         if((mdef->mhp -= d(pa->damn,pa->damd)) < 1) {
  66.             magr->mhpmax += 1 + rn2(pd->mlevel+1);
  67.             if(magr->mtame && magr->mhpmax > 8*pa->mlevel){
  68.                 if(pa == &li_dog) magr->data = pa = &dog;
  69.                 else if(pa == &dog) magr->data = pa = &la_dog;
  70.             }
  71.             if(vis) pline("%s is killed!", Monnam(mdef));
  72.             else if(mdef->mtame)
  73.         pline("You have a sad feeling for a moment, then it passes.");
  74.             mondied(mdef);
  75.             hit = 2;
  76.         }
  77.         /* fixes a bug where max monster hp could overflow. */
  78.         if(magr->mhpmax <= 0) magr->mhpmax = 127;
  79.     }
  80. #ifdef KAA
  81.     if(hit == 1 && magr->data->mlet == 'Q') {
  82.         rloc(mdef);
  83.         if(vis && !cansee(mdef->mx,mdef->my))
  84.             pline("%s suddenly disappears!",Monnam(mdef));
  85.     }
  86. #endif
  87.     return(hit);
  88. }
  89.  
  90. /* drop (perhaps) a cadaver and remove monster */
  91. mondied(mdef) register struct monst *mdef; {
  92. register struct permonst *pd = mdef->data;
  93. #ifdef KOPS
  94.     if(pd->mlet != 'K')
  95. #endif
  96.     {
  97. #if defined(ROCKMOLE) && defined(KJSMODS)
  98.         /* if a giant rat is killed by a monster, do not make a 
  99.          * corpse (like Keystone Kops above). */
  100.         if(!(pd->mlet == 'r' && dlevel < 4))
  101. #endif
  102.         if(letter(pd->mlet) && rn2(3)) {
  103.             if (pd->mlet == '1') panic("mondied: making obj '1'");
  104. #ifndef RPH
  105.             (void) mkobj_at(pd->mlet,mdef->mx,mdef->my);
  106. #else
  107.             (void) mk_named_obj_at(pd->mlet,mdef->mx,mdef->my,
  108.                        NAME(mdef), mdef->mnamelth);
  109. #endif
  110.             if(cansee(mdef->mx,mdef->my)){
  111.             unpmon(mdef);
  112.             atl(mdef->mx,mdef->my,fobj->olet);
  113.             }
  114.             stackobj(fobj);
  115.         }
  116.         mondead(mdef);
  117.     }
  118. }
  119.  
  120. /* drop a rock and remove monster */
  121. monstone(mdef)
  122.     register struct monst *mdef;
  123. {
  124.     extern char mlarge[];
  125.     if(index(mlarge, mdef->data->mlet))
  126.         mksobj_at(ENORMOUS_ROCK, mdef->mx, mdef->my);
  127.     else
  128.         mksobj_at(ROCK, mdef->mx, mdef->my);
  129.     if(cansee(mdef->mx, mdef->my)){
  130.         unpmon(mdef);
  131.         atl(mdef->mx,mdef->my,fobj->olet);
  132.     }
  133.     mondead(mdef);
  134. }
  135.         
  136.  
  137. fightm(mtmp)
  138.     register struct monst *mtmp;
  139. {
  140. register struct monst *mon;
  141.  
  142.     for(mon = fmon; mon; mon = mon->nmon)
  143.         if(mon != mtmp) {
  144.         if(DIST(mon->mx,mon->my,mtmp->mx,mtmp->my) < 3)
  145.             if(rn2(4))  return(hitmm(mtmp,mon));
  146.         }
  147.     return(-1);
  148. }
  149.  
  150. /* u is hit by sth, but not a monster */
  151. thitu(tlev,dam,name)
  152.     register tlev,dam;
  153.     register char *name;
  154. {
  155.     char buf[BUFSZ];
  156.  
  157.     setan(name,buf);
  158.     if(u.uac + tlev <= rnd(20)) {
  159.         if(Blind) pline("It misses.");
  160.         else pline("You are almost hit by %s!", buf);
  161.         return(0);
  162.     } else {
  163.         if(Blind) pline("You are hit!");
  164.         else pline("You are hit by %s!", buf);
  165.         losehp(dam,name);
  166.         return(1);
  167.     }
  168. }
  169.  
  170. #ifdef KAA
  171. char mlarge[] = "bCDdegIlmnoPSsTUwY',&9";
  172. #else
  173. char mlarge[] = "bCDdegIlmnoPSsTUwY',&";
  174. #endif
  175.  
  176. boolean
  177. hmon(mon,obj,thrown)    /* return TRUE if mon still alive */
  178. register struct monst *mon;
  179. register struct obj *obj;
  180. register thrown;
  181. {
  182.     register tmp;
  183.     boolean hittxt = FALSE;
  184.  
  185. #ifdef KAA
  186.     stoned = FALSE;        /* this refers to the thing hit, not you */
  187. #endif
  188.     if(!obj){
  189. #ifdef KAA
  190. /* Note that c, y, and F can never wield weapons anyway */
  191.       if (u.usym == 'c' && mon->data->mlet != 'c') {
  192.            pline("You turn %s to stone!", monnam(mon));
  193.            stoned = TRUE;
  194.            xkilled(mon,0);
  195.            return(FALSE);
  196.       } else if (u.usym == 'y' && mon->data->mlet != 'y') {
  197.            pline("%s is blinded by your flash of light!",Monnam(mon));
  198.            if (!mon->mblinded) {
  199.             mon->mblinded += rn2(25);
  200.             mon->mcansee = 0;
  201.            }
  202.            rehumanize();
  203.            return(TRUE);
  204.       } else if (u.usym == 'F') {
  205.            pline("You explode!");
  206.            if (!index("gFY",mon->data->mlet)) {
  207.             pline("%s gets blasted!", Monnam(mon));
  208.             mon->mhp -= d(6,6);
  209.             rehumanize();
  210.             if (mon->mhp <= 0) {
  211.              killed(mon);
  212.              return(FALSE);
  213.             } else return(TRUE);
  214.            } else {
  215.             pline("The blast doesn't seem to affect %s.", monnam(mon));
  216.             rehumanize();
  217.             return(TRUE);
  218.            }
  219.       } else if (index("P,'", u.usym) && u.uhunger < 1500
  220.           && !u.uswallow && mon->data->mlet != 'c') {
  221.            static char msgbuf[BUFSZ];
  222.            pline("You swallow %s whole!", monnam(mon));
  223.            u.uhunger += 20*mon->mhpmax;
  224.            newuhs(FALSE);
  225.            xkilled(mon,2);
  226.            if (tmp = mon->mhpmax/5) {
  227.             nomul(-tmp);
  228.             (void)sprintf(msgbuf, "You finished digesting %s.",
  229.              monnam(mon));
  230.             nomovemsg = msgbuf;
  231.            }
  232.            return(FALSE);
  233.       } else if (u.usym != '@') {
  234.            if (u.usym == '&' && !rn2(5)) {
  235.             struct monst *dtmp;
  236.             pline("Some hell-p has arrived!");
  237.             if((dtmp = mkmon_at('&',u.ux,u.uy)))
  238.             (void)tamedog(dtmp,(struct obj *)0);
  239.            }
  240.            tmp = d(mons[u.umonnum].damn, mons[u.umonnum].damd);
  241.       } else
  242. #endif
  243.         tmp = rnd(2);    /* attack with bare hands */
  244. #ifdef KAA
  245.         if (mon->data->mlet == 'c' && !uarmg && u.usym != 'c'){
  246. #else
  247.         if(mon->data->mlet == 'c' && !uarmg){
  248. #endif
  249.             pline("You hit the cockatrice with your bare hands.");
  250.             pline("You turn to stone ...");
  251.             done_in_by(mon);
  252.         }
  253.     } else if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE) {
  254.         if(obj == uwep && (obj->otyp > SPEAR || obj->otyp < BOOMERANG))
  255.         tmp = rnd(2);
  256.         else {
  257.         if(index(mlarge, mon->data->mlet)) {
  258.             tmp = rnd(objects[obj->otyp].wldam);
  259.             switch (obj->otyp) {
  260.             case SLING_BULLET:
  261.             case CROSSBOW_BOLT:
  262.             case MORNING_STAR:
  263.             case PARTISAN:
  264.             case BROAD_SWORD:    tmp += 1; break;
  265.  
  266.             case FLAIL:
  267.             case RANSEUR:
  268.             case VOULGE:        tmp += rnd(4); break;
  269.  
  270.             case HALBERD:
  271.             case SPETUM:        tmp += rnd(6); break;
  272.  
  273.             case BARDICHE:
  274.             case TRIDENT:        tmp += d(2,4); break;
  275.  
  276.             case TWO_HANDED_SWORD: 
  277.             case KATANA:         tmp += d(2,6); break;
  278.             }
  279.         } else {
  280.             tmp = rnd(objects[obj->otyp].wsdam);
  281.             switch (obj->otyp) {
  282.             case SLING_BULLET:
  283.             case CROSSBOW_BOLT:
  284.             case MACE:
  285.             case FLAIL:
  286.             case SPETUM:
  287.             case TRIDENT:        tmp += 1; break;
  288.  
  289.             case BARDICHE:
  290.             case BILL_GUISARME:
  291.             case GUISARME:
  292.             case LUCERN_HAMMER:
  293.             case MORNING_STAR:
  294.             case RANSEUR:
  295.             case BROAD_SWORD:
  296.             case VOULGE:        tmp += rnd(4); break;
  297.             }
  298.         }
  299.         tmp += obj->spe;
  300. #ifdef KAA
  301.         if(obj->olet == WEAPON_SYM && obj->dknown && index("VWZ &",
  302.                 mon->data->mlet)) tmp += rn2(4);
  303. #endif
  304.         if(!thrown && obj == uwep && obj->otyp == BOOMERANG
  305.          && !rn2(3)){
  306.           pline("As you hit %s, the boomerang breaks into splinters.",
  307.                 monnam(mon));
  308.             freeinv(obj);
  309.             setworn((struct obj *) 0, obj->owornmask);
  310.             obfree(obj, (struct obj *) 0);
  311.             tmp++;
  312.         }
  313.         }
  314. #ifdef BVH
  315.         if(!strcmp(ONAME(obj), "Excalibur")) tmp += rnd(10);
  316.         else
  317. #endif
  318.         if(obj->otyp == KATANA
  319.            && !strcmp(ONAME(obj), "Snickersnee")) tmp += rnd(5);
  320.  
  321.         else if(mon->data->mlet == 'O' && obj->otyp == TWO_HANDED_SWORD
  322.             && !strcmp(ONAME(obj), "Orcrist"))    tmp += rnd(10);
  323.  
  324.     } else    switch(obj->otyp) {
  325.         case HEAVY_IRON_BALL:
  326.             tmp = rnd(25); break;
  327.         case ENORMOUS_ROCK:
  328.             tmp = rnd(20); break;
  329. #ifdef RPH
  330.         case MIRROR:
  331.             pline("You break your mirror.  That's bad luck!");
  332.                 u.uluck -= 2;
  333.                 if ((int)u.uluck < LUCKMIN) u.uluck = LUCKMIN;
  334.             freeinv(obj);
  335.             if(obj->owornmask)
  336.                 setworn((struct obj *) 0, obj->owornmask);
  337.             obfree(obj, (struct obj *) 0);
  338.             return(TRUE);
  339. #endif
  340.         case EXPENSIVE_CAMERA:
  341.     pline("You succeed in destroying your camera. Congratulations!");
  342.             freeinv(obj);
  343.             if(obj->owornmask)
  344.                 setworn((struct obj *) 0, obj->owornmask);
  345.             obfree(obj, (struct obj *) 0);
  346.             return(TRUE);
  347.         case DEAD_COCKATRICE:    /* fixed by polder@cs.vu.nl */
  348.             pline("You hit %s with the cockatrice corpse.",
  349.                 monnam(mon));
  350.             if(mon->data->mlet == 'c') {
  351.                 tmp = 1;
  352.                 hittxt = TRUE;
  353.                 break;
  354.             }
  355.             pline ("%s is turned to stone!", Monnam(mon));
  356. #ifdef KAA
  357.             stoned = TRUE;
  358.             xkilled(mon,0);
  359. #else
  360.             killed(mon);
  361. #endif
  362.             return(FALSE);
  363.         case CLOVE_OF_GARLIC:        /* no effect against demons */
  364.             if(index(UNDEAD, mon->data->mlet))
  365.                 mon->mflee = 1;
  366.             tmp = 1;
  367.             break;
  368.         default:
  369.             /* non-weapons can damage because of their weight */
  370.             /* (but not too much) */
  371.             tmp = obj->owt/10;
  372.             if(tmp < 1) tmp = 1;
  373.             else tmp = rnd(tmp);
  374.             if(tmp > 6) tmp = 6;
  375.         }
  376.  
  377.     /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */
  378.  
  379.     tmp += u.udaminc + dbon();
  380.     if(u.uswallow) {
  381.         if((tmp -= u.uswldtim) <= 0) {
  382.             pline("Your arms are no longer able to hit.");
  383.             return(TRUE);
  384.         }
  385.     }
  386.     if(tmp < 1) tmp = 1;
  387.     mon->mhp -= tmp;
  388.     if(mon->mhp < 1) {
  389.         killed(mon);
  390.         return(FALSE);
  391.     }
  392.     if(mon->mtame && (!mon->mflee || mon->mfleetim)) {
  393.         mon->mflee = 1;            /* Rick Richardson */
  394.         mon->mfleetim += 10*rnd(tmp);
  395.     }
  396.  
  397.     if(!hittxt) {
  398.         if(thrown)
  399.             /* this assumes that we cannot throw plural things */
  400.             hit( xname(obj)  /* or: objects[obj->otyp].oc_name */,
  401.                 mon, exclam(tmp) );
  402.         else if(Blind)
  403.             pline("You hit it.");
  404.         else
  405.             pline("You hit %s%s", monnam(mon), exclam(tmp));
  406.     }
  407.  
  408.     if(u.umconf && !thrown) {
  409.         if(!Blind) {
  410.             pline("Your hands stop glowing %s.",
  411.             Hallucination ? hcolor() : "blue");
  412.         }
  413.         if (!resist(mon, '+', 0, NOTELL)) mon->mconf = 1;
  414.         if(!mon->mfroz && !mon->msleep && !Blind && mon->mconf)
  415.             pline("%s appears confused.",Monnam(mon));
  416.         u.umconf = 0;
  417.     }
  418.     if(!thrown && rn2(2) && index("VW",u.usym) &&
  419.        !index("VW",mon->data->mlet)){
  420.         int tmp=d(2,6);
  421.         pline("%s suddenly seems weaker!",Monnam(mon));
  422.         mon->mhpmax -= tmp;
  423.         if ((mon->mhp -= tmp) <= 0) {
  424.             pline("%s dies!",Monnam(mon));
  425.             xkilled(mon,0);
  426.             return(FALSE);
  427.         }
  428.     }
  429.     return(TRUE);    /* mon still alive */
  430. }
  431.  
  432. /* try to attack; return FALSE if monster evaded */
  433. /* u.dx and u.dy must be set */
  434. attack(mtmp)
  435. register struct monst *mtmp;
  436. {
  437.     schar tmp;
  438.     boolean malive = TRUE;
  439.     register struct permonst *mdat;
  440.     mdat = mtmp->data;
  441.  
  442. #ifdef KAA
  443.     if(unweapon) {
  444.         unweapon=FALSE;
  445.         if(uwep)
  446.             pline("You begin bashing monsters with your %s.",
  447.                 aobjnam(uwep,(char *)0));
  448.     }
  449. #endif
  450.     u_wipe_engr(3);   /* andrew@orca: prevent unlimited pick-axe attacks */
  451.  
  452.     if(mdat->mlet == 'L' && !mtmp->mfroz && !mtmp->msleep &&
  453.        !mtmp->mconf && mtmp->mcansee && !rn2(7) &&
  454.        (m_move(mtmp, 0) == 2 /* he died */ || /* he moved: */
  455.         mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy))
  456.         return(FALSE);
  457. #ifdef SAFE_ATTACK
  458.     /* This section of code provides protection against accidentally
  459.      * hitting peaceful (like '@') and tame (like 'd') monsters.
  460.      * There is protection only if you're not blind, confused or
  461.      * invisible.
  462.      */
  463.     /*  changes by wwp 5/16/85 */
  464.     if (!Blind && !Confusion && !Hallucination
  465.         && mdat->mlet == 'd' && mtmp->mtame) {
  466.         char *dname;        /* added by Janet Walz (walz@mimsy) */
  467.         mtmp->mflee = 1;
  468.         mtmp->mfleetim = rnd(6);
  469.         if (dname = NAME(mtmp))
  470.             pline("You stop to avoid hitting %s.",dname);
  471.         else
  472.             pline("You stop to avoid hitting your dog.");
  473.         return(TRUE);
  474.     }
  475.     if (flags.confirm && (mtmp->mpeaceful || mtmp->mtame) && ! Confusion
  476.         && !Hallucination && !Invisible)
  477.  
  478.         if (Blind ? Telepat : (!mtmp->minvis || See_invisible)) {
  479.             pline("Really attack %s?", monnam(mtmp));
  480.             (void) fflush(stdout);
  481.             if (readchar() != 'y') {
  482.                 flags.move = 0;
  483.                 return(TRUE);
  484.             }
  485.         }
  486. #endif /* SAFE_ATTACK /**/
  487.  
  488.     if(mtmp->mimic){
  489.         if(!u.ustuck && !mtmp->mflee) u.ustuck = mtmp;
  490.         if (levl[u.ux+u.dx][u.uy+u.dy].scrsym == DOOR_SYM)
  491.         {
  492.             if (okdoor(u.ux+u.dx, u.uy+u.dy))
  493.             pline("The door actually was %s.", defmonnam(mtmp));
  494.             else
  495.             pline("That spellbook was %s.", defmonnam(mtmp));
  496.         }
  497.         else if (levl[u.ux+u.dx][u.uy+u.dy].scrsym == GOLD_SYM)
  498.             pline("The chest was %s!", defmonnam(mtmp));
  499.         else
  500.             pline("Wait! That's %s!",defmonnam(mtmp));
  501.         wakeup(mtmp);    /* clears mtmp->mimic */
  502.         return(TRUE);
  503.     }
  504.  
  505.     wakeup(mtmp);
  506.  
  507.     if(mtmp->mhide && mtmp->mundetected){
  508.         register struct obj *obj;
  509.  
  510.         mtmp->mundetected = 0;
  511.         if((obj = o_at(mtmp->mx,mtmp->my)) && !Blind)
  512.             pline("Wait! There's %s hiding under %s!",
  513.                 defmonnam(mtmp), doname(obj));
  514.         return(TRUE);
  515.     }
  516. #ifdef KAA
  517.     tmp = u.uluck + (u.mtimedone ? mons[u.umonnum].mlevel : u.ulevel) +
  518.             mdat->ac + abon();
  519.     if (u.usym=='y' || u.usym=='F') tmp=100;
  520.     if (index("uEa",u.usym)) return(TRUE);
  521. #else
  522.     tmp = u.uluck + u.ulevel + mdat->ac + abon();
  523. #endif
  524.     if(uwep) {
  525. #ifdef KAA    /* Blessed weapons used against undead or demons */
  526.         if(uwep->olet == WEAPON_SYM && uwep->dknown && index("VWZ &",
  527.             mtmp->data->mlet)) tmp += 2;
  528. #endif
  529.         if(uwep->olet == WEAPON_SYM || uwep->otyp == PICK_AXE)
  530.             tmp += uwep->spe;
  531. #ifdef  BVH
  532.         if(!strcmp(ONAME(uwep),"Excalibur")) tmp += 5;
  533. #endif
  534.         if(uwep->otyp == TWO_HANDED_SWORD) tmp -= 1;
  535.         else if(uwep->otyp == KATANA) tmp += 1;
  536.         else if(uwep->otyp == DAGGER ||
  537.             uwep->otyp == SHURIKEN) tmp += 2;
  538.         else if(uwep->otyp == CRYSKNIFE) tmp += 3;
  539.         else if(uwep->otyp == SPEAR &&
  540.             index("XDne", mdat->mlet)) tmp += 2;
  541.     }
  542.     if(mtmp->msleep) {
  543.         mtmp->msleep = 0;
  544.         tmp += 2;
  545.     }
  546.     if(mtmp->mfroz) {
  547.         tmp += 4;
  548.         if(!rn2(10)) mtmp->mfroz = 0;
  549.     }
  550.     if(mtmp->mflee) tmp += 2;
  551.     if(u.utrap) tmp -= 3;
  552.  
  553.     /* with a lot of luggage, your agility diminishes */
  554.     tmp -= (inv_weight() + 40)/20;
  555.  
  556.     if(tmp <= rnd(20) && !u.uswallow){
  557.         if(Blind) pline("You miss it.");
  558.         else pline("You miss %s.",monnam(mtmp));
  559.     } else {
  560.         /* we hit the monster; be careful: it might die! */
  561.  
  562.         if((malive = hmon(mtmp,uwep,0)) == TRUE) {
  563.         /* monster still alive */
  564.             if(!rn2(25) && mtmp->mhp < mtmp->mhpmax/2) {
  565.                 mtmp->mflee = 1;
  566.                 if(!rn2(3)) mtmp->mfleetim = rnd(100);
  567.                 if(u.ustuck == mtmp && !u.uswallow)
  568.                     u.ustuck = 0;
  569.             }
  570. #ifndef NOWORM
  571.             if(mtmp->wormno)
  572.                 cutworm(mtmp, u.ux+u.dx, u.uy+u.dy,
  573.                     uwep ? uwep->otyp : 0);
  574. #endif
  575.         }
  576.         if(mdat->mlet == 'a') {
  577.             if(rn2(2)) {
  578.                 if (Blind) pline("You are splashed!");
  579.                 else       pline("You are splashed by %s's acid!",monnam(mtmp));
  580.                 if (u.usym != 'a') {
  581.                     losehp_m(rnd(6), mtmp);
  582.                     if(!rn2(30)) corrode_armor();
  583.                 }
  584.             }
  585.             if(!rn2(6)) corrode_weapon();
  586.         }
  587.     }
  588. #ifdef KAA
  589.     if (malive) if (u.usym=='N' && mtmp->minvent) {
  590.         struct obj *otmp, *addinv();
  591.         otmp = mtmp->minvent;
  592.         mtmp->minvent = otmp->nobj;
  593.         otmp = addinv(otmp);
  594.         pline("You steal:");
  595.         prinv(otmp);
  596.     } else if (u.usym=='L' && mtmp->mgold) {
  597.         u.ugold += mtmp->mgold;
  598.         mtmp->mgold = 0;
  599.         pline("Your purse feels heavier.");
  600.     } else if (u.usym=='Q') rloc(mtmp);
  601. #endif
  602.     if(malive && mdat->mlet == 'E' && canseemon(mtmp)
  603.        && !mtmp->mcan && rn2(3)) {
  604.         if(mtmp->mcansee) {
  605.           pline("You are frozen by %s's gaze!",monnam(mtmp));
  606.           nomul((u.ulevel > 6 || rn2(4)) ? rn1(20,-21) : -200);
  607.         } else {
  608.           pline("%s cannot defend itself.", Amonnam(mtmp,"blinded"));
  609.           if(!rn2(500)) if((int)u.uluck > LUCKMIN) u.uluck--;
  610.         }
  611.     }
  612.     return(TRUE);
  613. }
  614.