home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d008 / hack.lha / src / hack.fight.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-01-18  |  6.8 KB  |  275 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2. /* hack.fight.c version 1.0.1 - corrected symbol of lurker above */
  3.  
  4. #include    "hack.h"
  5. extern char *exclam(), *xname();
  6.  
  7. static boolean far_noise;
  8. static long noisetime;
  9.  
  10. /* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */
  11. hitmm(magr,mdef) register struct monst *magr,*mdef; {
  12. register struct permonst *pa = magr->data, *pd = mdef->data;
  13. int hit;
  14. schar tmp;
  15. boolean vis;
  16.     if(index("Eauy", pa->mlet)) return(0);
  17.     if(magr->mfroz) return(0);        /* riv05!a3 */
  18.     tmp = pd->ac + pa->mlevel;
  19.     if(mdef->mconf || mdef->mfroz || mdef->msleep){
  20.         tmp += 4;
  21.         if(mdef->msleep) mdef->msleep = 0;
  22.     }
  23.     hit = (tmp > rnd(20));
  24.     if(hit) mdef->msleep = 0;
  25.     vis = (cansee(magr->mx,magr->my) && cansee(mdef->mx,mdef->my));
  26.     if(vis){
  27.         char buf[BUFSZ];
  28.         if(mdef->mimic) seemimic(mdef);
  29.         if(magr->mimic) seemimic(magr);
  30.         (void) sprintf(buf,"%s %s", Monnam(magr),
  31.             hit ? "hits" : "misses");
  32.         pline("%s %s.", buf, monnam(mdef));
  33.     } else {
  34.         boolean far = (dist(magr->mx, magr->my) > 15);
  35.         if(far != far_noise || moves-noisetime > 10) {
  36.             far_noise = far;
  37.             noisetime = moves;
  38.             pline("You hear some noises%s.",
  39.                 far ? " in the distance" : "");
  40.         }
  41.     }
  42.     if(hit){
  43.         if(magr->data->mlet == 'c' && !magr->cham) {
  44.             magr->orig_hp += 3;
  45.             if(vis) pline("%s is turned to stone!", Monnam(mdef));
  46.             else if(mdef->mtame)
  47.      pline("You have a peculiarly sad feeling for a moment, then it passes.");
  48.             monstone(mdef);
  49.             hit = 2;
  50.         } else
  51.         if((mdef->mhp -= d(pa->damn,pa->damd)) < 1) {
  52.             magr->orig_hp += 1 + rn2(pd->mlevel+1);
  53.             if(magr->mtame && magr->orig_hp > 8*pa->mlevel){
  54.                 if(pa == PM_LI_DOG)
  55.                     magr->data = pa = PM_DOG;
  56.                 else if(pa == PM_DOG)
  57.                     magr->data = pa = PM_LA_DOG;
  58.             }
  59.             if(vis) pline("%s is killed!", Monnam(mdef));
  60.             else if(mdef->mtame)
  61.         pline("You have a sad feeling for a moment, then it passes.");
  62.             mondied(mdef);
  63.             hit = 2;
  64.         }
  65.     }
  66.     return(hit);
  67. }
  68.  
  69. /* drop (perhaps) a cadaver and remove monster */
  70. mondied(mdef) register struct monst *mdef; {
  71. register struct permonst *pd = mdef->data;
  72.         if(letter(pd->mlet) && rn2(3)){
  73.             mksobj_at(pd->mlet,CORPSE,mdef->mx,mdef->my);
  74.             if(cansee(mdef->mx,mdef->my)){
  75.                 unpmon(mdef);
  76.                 atl(mdef->mx,mdef->my,fobj->olet);
  77.             }
  78.             stackobj(fobj);
  79.         }
  80.         mondead(mdef);
  81. }
  82.  
  83. /* drop a rock and remove monster */
  84. monstone(mdef) register struct monst *mdef; {
  85.     extern char mlarge[];
  86.     if(index(mlarge, mdef->data->mlet))
  87.         mksobj_at(ROCK_SYM, ENORMOUS_ROCK, mdef->mx, mdef->my);
  88.     else
  89.         mksobj_at(WEAPON_SYM, ROCK, mdef->mx, mdef->my);
  90.     if(cansee(mdef->mx, mdef->my)){
  91.         unpmon(mdef);
  92.         atl(mdef->mx,mdef->my,fobj->olet);
  93.     }
  94.     mondead(mdef);
  95. }
  96.         
  97.  
  98. fightm(mtmp) register struct monst *mtmp; {
  99. register struct monst *mon;
  100.     for(mon = fmon; mon; mon = mon->nmon) if(mon != mtmp) {
  101.         if(DIST(mon->mx,mon->my,mtmp->mx,mtmp->my) < 3)
  102.             if(rn2(4))
  103.             return(hitmm(mtmp,mon));
  104.     }
  105.     return(-1);
  106. }
  107.  
  108. hitu(mtmp,dam)
  109. register struct monst *mtmp;
  110. register int dam;
  111. {
  112.     register int tmp;
  113.  
  114.     if(u.uswallow) return(0);
  115.  
  116.     if(mtmp->mhide && mtmp->mundetected) {
  117.         mtmp->mundetected = 0;
  118.         if(!Blind) {
  119.             register struct obj *obj;
  120.             extern char * Xmonnam();
  121.             if(obj = o_at(mtmp->mx,mtmp->my))
  122.                 pline("%s was hidden under %s!",
  123.                     Xmonnam(mtmp), doname(obj));
  124.         }
  125.     }
  126.  
  127.     tmp = u.uac;
  128.     /* give people with Ac = -10 at least some vulnerability */
  129.     if(tmp < 0) {
  130.         dam += tmp;        /* decrease damage */
  131.         if(dam <= 0) dam = 1;
  132.         tmp = -rn2(-tmp);
  133.     }
  134.     tmp += mtmp->data->mlevel;
  135.     if(multi < 0) tmp += 4;
  136.     if(Invis || !mtmp->mcansee) tmp -= 2;
  137.     if(mtmp->mtrapped) tmp -= 2;
  138.     if(tmp <= rnd(20)) {
  139.         if(Blind) pline("It misses.");
  140.         else pline("%s misses.",Monnam(mtmp));
  141.         return(0);
  142.     }
  143.     if(Blind) pline("It hits!");
  144.     else pline("%s hits!",Monnam(mtmp));
  145.     losehp_m(dam, mtmp);
  146.     return(1);
  147. }
  148.  
  149. /* u is hit by sth, but not a monster */
  150. thitu(tlev,dam,name)
  151. register int tlev,dam;
  152. register char *name;
  153. {
  154. char buf[BUFSZ];
  155.     setan(name,buf);
  156.     if(u.uac + tlev <= rnd(20)) {
  157.         if(Blind) pline("It misses.");
  158.         else pline("You are almost hit by %s!", buf);
  159.         return(0);
  160.     } else {
  161.         if(Blind) pline("You are hit!");
  162.         else pline("You are hit by %s!", buf);
  163.         losehp(dam,name);
  164.         return(1);
  165.     }
  166. }
  167.  
  168. char mlarge[] = "bCDdegIlmnoPSsTUwY\',&";
  169.  
  170. boolean
  171. hmon(mon,obj,thrown)    /* return TRUE if mon still alive */
  172. register struct monst *mon;
  173. register struct obj *obj;
  174. register int thrown;
  175. {
  176.     register int tmp;
  177.  
  178.     if(!obj){
  179.         tmp = rnd(2);    /* attack with bare hands */
  180.         if(mon->data->mlet == 'c' && !uarmg){
  181.             pline("You hit the cockatrice with your bare hands");
  182.             pline("You turn to stone ...");
  183.             done_in_by(mon);
  184.         }
  185.     } else if(obj->olet == WEAPON_SYM) {
  186.         if(obj == uwep && (obj->otyp > SPEAR || obj->otyp < BOOMERANG))
  187.         tmp = rnd(2);
  188.         else {
  189.         if(index(mlarge, mon->data->mlet)) {
  190.             tmp = rnd(objects[obj->otyp].wldam);
  191.             if(obj->otyp == TWO_HANDED_SWORD) tmp += d(2,6);
  192.             else if(obj->otyp == FLAIL) tmp += rnd(4);
  193.         } else {
  194.             tmp = rnd(objects[obj->otyp].wsdam);
  195.         }
  196.         tmp += obj->spe;
  197.         if(!thrown && obj == uwep && obj->otyp == BOOMERANG
  198.          && !rn2(3)){
  199.           pline("As you hit %s, the boomerang breaks into splinters.",
  200.                 monnam(mon));
  201.             freeinv(obj);
  202.             setworn((struct obj *) 0, obj->owornmask);
  203.             obfree(obj, (struct obj *) 0);
  204.             tmp++;
  205.         }
  206.         }
  207.         if(mon->data->mlet == 'O' && !strcmp(ONAME(obj), "Orcrist"))
  208.         tmp += rnd(10);
  209.     } else    switch(obj->otyp) {
  210.         case HEAVY_IRON_BALL:
  211.             tmp = rnd(25); break;
  212.         case EXPENSIVE_CAMERA:
  213.     pline("You succeed in destroying your camera. Congratulations!");
  214.             freeinv(obj);
  215.             if(obj->owornmask)
  216.                 setworn((struct obj *) 0, obj->owornmask);
  217.             obfree(obj, (struct obj *) 0);
  218.             return(TRUE);
  219.         case DEAD_COCKATRICE:
  220.             pline("You hit %s with the cockatrice corpse",
  221.                 monnam(mon));
  222.             pline("%s is turned to stone!", Monnam(mon));
  223.             killed(mon);
  224.             return(FALSE);
  225.         case CLOVE_OF_GARLIC:
  226.             if(index(" VWZ", mon->data->mlet))
  227.                 mon->mflee = 1;
  228.             tmp = 1;
  229.             break;
  230.         default:
  231.             /* non-weapons can damage because of their weight */
  232.             /* (but not too much) */
  233.             tmp = obj->owt/10;
  234.             if(tmp < 1) tmp = 1;
  235.             else tmp = rnd(tmp);
  236.             if(tmp > 6) tmp = 6;
  237.         }
  238.  
  239.     /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */
  240.  
  241.     tmp += u.udaminc + dbon();
  242.     if(u.uswallow)
  243.         if(mon->data->mlet == 'P') {
  244.             if((tmp -= u.uswldtim) <= 0) {
  245.                 pline("Your arms are no longer able to hit.");
  246.                 return(TRUE);
  247.             }
  248.         }
  249.     if(tmp < 1) tmp = 1;
  250.     mon->mhp -= tmp;
  251.     if(mon->mhp < 1) {
  252.         killed(mon);
  253.         return(FALSE);
  254.     }
  255.  
  256.     if(thrown) {    /* this assumes that we cannot throw plural things */
  257.         hit( xname(obj)        /* or: objects[obj->otyp].oc_name */,
  258.             mon, exclam(tmp) );
  259.         return(TRUE);
  260.     }
  261.     if(Blind) pline("You hit it.");
  262.     else pline("You hit %s%s", monnam(mon), exclam(tmp));
  263.  
  264.     if(u.umconf) {
  265.         if(!Blind) {
  266.             pline("Your hands stop glowing blue.");
  267.             if(!mon->mfroz && !mon->msleep)
  268.                 pline("%s appears confused.",Monnam(mon));
  269.         }
  270.         mon->mconf = 1;
  271.         u.umconf = 0;
  272.     }
  273.     return(TRUE);    /* mon still alive */
  274. }
  275.