![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.mhitu.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack|
Return to hack.mhitu.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 ! root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ ! 2: /* hack.mhitu.c - version 1.0.3 */ ! 3: ! 4: #include "hack.h" ! 5: extern struct monst *makemon(); ! 6: ! 7: /* ! 8: * mhitu: monster hits you ! 9: * returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise ! 10: */ ! 11: mhitu(mtmp) ! 12: register struct monst *mtmp; ! 13: { ! 14: register struct permonst *mdat = mtmp->data; ! 15: register int tmp, ctmp; ! 16: ! 17: nomul(0); ! 18: ! 19: /* If swallowed, can only be affected by hissers and by u.ustuck */ ! 20: if(u.uswallow) { ! 21: if(mtmp != u.ustuck) { ! 22: if(mdat->mlet == 'c' && !rn2(13)) { ! 23: pline("Outside, you hear %s's hissing!", ! 24: monnam(mtmp)); ! 25: pline("%s gets turned to stone!", ! 26: Monnam(u.ustuck)); ! 27: pline("And the same fate befalls you."); ! 28: done_in_by(mtmp); ! 29: /* "notreached": not return(1); */ ! 30: } ! 31: return(0); ! 32: } ! 33: switch(mdat->mlet) { /* now mtmp == u.ustuck */ ! 34: case ',': ! 35: youswld(mtmp, (u.uac > 0) ? u.uac+4 : 4, ! 36: 5, "The trapper"); ! 37: break; ! 38: case '\'': ! 39: youswld(mtmp,rnd(6),7,"The lurker above"); ! 40: break; ! 41: case 'P': ! 42: youswld(mtmp,d(2,4),12,"The purple worm"); ! 43: break; ! 44: default: ! 45: /* This is not impossible! */ ! 46: pline("The mysterious monster totally digests you."); ! 47: u.uhp = 0; ! 48: } ! 49: if(u.uhp < 1) done_in_by(mtmp); ! 50: return(0); ! 51: } ! 52: ! 53: if(mdat->mlet == 'c' && Stoned) ! 54: return(0); ! 55: ! 56: /* make eels visible the moment they hit/miss us */ ! 57: if(mdat->mlet == ';' && mtmp->minvis && cansee(mtmp->mx,mtmp->my)){ ! 58: mtmp->minvis = 0; ! 59: pmon(mtmp); ! 60: } ! 61: if(!index("1&DuxynNF",mdat->mlet)) ! 62: tmp = hitu(mtmp,d(mdat->damn,mdat->damd)); ! 63: else ! 64: tmp = 0; ! 65: if(index(UNDEAD, mdat->mlet) && midnight()) ! 66: tmp += hitu(mtmp,d(mdat->damn,mdat->damd)); ! 67: ! 68: ctmp = tmp && !mtmp->mcan && ! 69: (!uarm || objects[uarm->otyp].a_can < rnd(3) || !rn2(50)); ! 70: switch(mdat->mlet) { ! 71: case '1': ! 72: if(wiz_hit(mtmp)) return(1); /* he disappeared */ ! 73: break; ! 74: case '&': ! 75: if(!mtmp->cham && !mtmp->mcan && !rn2(13)) { ! 76: (void) makemon(PM_DEMON,u.ux,u.uy); ! 77: } else { ! 78: (void) hitu(mtmp,d(2,6)); ! 79: (void) hitu(mtmp,d(2,6)); ! 80: (void) hitu(mtmp,rnd(3)); ! 81: (void) hitu(mtmp,rnd(3)); ! 82: (void) hitu(mtmp,rn1(4,2)); ! 83: } ! 84: break; ! 85: case ',': ! 86: if(tmp) justswld(mtmp,"The trapper"); ! 87: break; ! 88: case '\'': ! 89: if(tmp) justswld(mtmp, "The lurker above"); ! 90: break; ! 91: case ';': ! 92: if(ctmp) { ! 93: if(!u.ustuck && !rn2(10)) { ! 94: pline("%s swings itself around you!", ! 95: Monnam(mtmp)); ! 96: u.ustuck = mtmp; ! 97: } else if(u.ustuck == mtmp && ! 98: levl[mtmp->mx][mtmp->my].typ == POOL) { ! 99: pline("%s drowns you ...", Monnam(mtmp)); ! 100: done("drowned"); ! 101: } ! 102: } ! 103: break; ! 104: case 'A': ! 105: if(ctmp && rn2(2)) { ! 106: if(Poison_resistance) ! 107: pline("The sting doesn't seem to affect you."); ! 108: else { ! 109: pline("You feel weaker!"); ! 110: losestr(1); ! 111: } ! 112: } ! 113: break; ! 114: case 'C': ! 115: (void) hitu(mtmp,rnd(6)); ! 116: break; ! 117: case 'c': ! 118: if(!rn2(5)) { ! 119: pline("You hear %s's hissing!", monnam(mtmp)); ! 120: if(ctmp || !rn2(20) || (flags.moonphase == NEW_MOON ! 121: && !carrying(DEAD_LIZARD))) { ! 122: Stoned = 5; ! 123: /* pline("You get turned to stone!"); */ ! 124: /* done_in_by(mtmp); */ ! 125: } ! 126: } ! 127: break; ! 128: case 'D': ! 129: if(rn2(6) || mtmp->mcan) { ! 130: (void) hitu(mtmp,d(3,10)); ! 131: (void) hitu(mtmp,rnd(8)); ! 132: (void) hitu(mtmp,rnd(8)); ! 133: break; ! 134: } ! 135: kludge("%s breathes fire!","The dragon"); ! 136: buzz(-1,mtmp->mx,mtmp->my,u.ux-mtmp->mx,u.uy-mtmp->my); ! 137: break; ! 138: case 'd': ! 139: (void) hitu(mtmp,d(2, (flags.moonphase == FULL_MOON) ? 3 : 4)); ! 140: break; ! 141: case 'e': ! 142: (void) hitu(mtmp,d(3,6)); ! 143: break; ! 144: case 'F': ! 145: if(mtmp->mcan) break; ! 146: kludge("%s explodes!","The freezing sphere"); ! 147: if(Cold_resistance) pline("You don't seem affected by it."); ! 148: else { ! 149: xchar dn; ! 150: if(17-(u.ulevel/2) > rnd(20)) { ! 151: pline("You get blasted!"); ! 152: dn = 6; ! 153: } else { ! 154: pline("You duck the blast..."); ! 155: dn = 3; ! 156: } ! 157: losehp_m(d(dn,6), mtmp); ! 158: } ! 159: mondead(mtmp); ! 160: return(1); ! 161: case 'g': ! 162: if(ctmp && multi >= 0 && !rn2(3)) { ! 163: kludge("You are frozen by %ss juices","the cube'"); ! 164: nomul(-rnd(10)); ! 165: } ! 166: break; ! 167: case 'h': ! 168: if(ctmp && multi >= 0 && !rn2(5)) { ! 169: nomul(-rnd(10)); ! 170: kludge("You are put to sleep by %ss bite!", ! 171: "the homunculus'"); ! 172: } ! 173: break; ! 174: case 'j': ! 175: tmp = hitu(mtmp,rnd(3)); ! 176: tmp &= hitu(mtmp,rnd(3)); ! 177: if(tmp){ ! 178: (void) hitu(mtmp,rnd(4)); ! 179: (void) hitu(mtmp,rnd(4)); ! 180: } ! 181: break; ! 182: case 'k': ! 183: if((hitu(mtmp,rnd(4)) || !rn2(3)) && ctmp){ ! 184: poisoned("bee's sting",mdat->mname); ! 185: } ! 186: break; ! 187: case 'L': ! 188: if(tmp) stealgold(mtmp); ! 189: break; ! 190: case 'N': ! 191: if(mtmp->mcan && !Blind) { ! 192: pline("%s tries to seduce you, but you seem not interested.", ! 193: Amonnam(mtmp, "plain")); ! 194: if(rn2(3)) rloc(mtmp); ! 195: } else if(steal(mtmp)) { ! 196: rloc(mtmp); ! 197: mtmp->mflee = 1; ! 198: } ! 199: break; ! 200: case 'n': ! 201: if(!uwep && !uarm && !uarmh && !uarms && !uarmg) { ! 202: pline("%s hits! (I hope you don't mind)", ! 203: Monnam(mtmp)); ! 204: u.uhp += rnd(7); ! 205: if(!rn2(7)) u.uhpmax++; ! 206: if(u.uhp > u.uhpmax) u.uhp = u.uhpmax; ! 207: flags.botl = 1; ! 208: if(!rn2(50)) rloc(mtmp); ! 209: } else { ! 210: (void) hitu(mtmp,d(2,6)); ! 211: (void) hitu(mtmp,d(2,6)); ! 212: } ! 213: break; ! 214: case 'o': ! 215: tmp = hitu(mtmp,rnd(6)); ! 216: if(hitu(mtmp,rnd(6)) && tmp && /* hits with both paws */ ! 217: !u.ustuck && rn2(2)) { ! 218: u.ustuck = mtmp; ! 219: kludge("%s has grabbed you!","The owlbear"); ! 220: u.uhp -= d(2,8); ! 221: } else if(u.ustuck == mtmp) { ! 222: u.uhp -= d(2,8); ! 223: pline("You are being crushed."); ! 224: } ! 225: break; ! 226: case 'P': ! 227: if(ctmp && !rn2(4)) ! 228: justswld(mtmp,"The purple worm"); ! 229: else ! 230: (void) hitu(mtmp,d(2,4)); ! 231: break; ! 232: case 'Q': ! 233: (void) hitu(mtmp,rnd(2)); ! 234: (void) hitu(mtmp,rnd(2)); ! 235: break; ! 236: case 'R': ! 237: if(tmp && uarmh && !uarmh->rustfree && ! 238: (int) uarmh->spe >= -1) { ! 239: pline("Your helmet rusts!"); ! 240: uarmh->spe--; ! 241: } else ! 242: if(ctmp && uarm && !uarm->rustfree && /* Mike Newton */ ! 243: uarm->otyp < STUDDED_LEATHER_ARMOR && ! 244: (int) uarm->spe >= -1) { ! 245: pline("Your armor rusts!"); ! 246: uarm->spe--; ! 247: } ! 248: break; ! 249: case 'S': ! 250: if(ctmp && !rn2(8)) { ! 251: poisoned("snake's bite",mdat->mname); ! 252: } ! 253: break; ! 254: case 's': ! 255: if(tmp && !rn2(8)) { ! 256: poisoned("scorpion's sting",mdat->mname); ! 257: } ! 258: (void) hitu(mtmp,rnd(8)); ! 259: (void) hitu(mtmp,rnd(8)); ! 260: break; ! 261: case 'T': ! 262: (void) hitu(mtmp,rnd(6)); ! 263: (void) hitu(mtmp,rnd(6)); ! 264: break; ! 265: case 't': ! 266: if(!rn2(5)) rloc(mtmp); ! 267: break; ! 268: case 'u': ! 269: mtmp->mflee = 1; ! 270: break; ! 271: case 'U': ! 272: (void) hitu(mtmp,d(3,4)); ! 273: (void) hitu(mtmp,d(3,4)); ! 274: break; ! 275: case 'v': ! 276: if(ctmp && !u.ustuck) u.ustuck = mtmp; ! 277: break; ! 278: case 'V': ! 279: if(tmp) u.uhp -= 4; ! 280: if(ctmp) losexp(); ! 281: break; ! 282: case 'W': ! 283: if(ctmp) losexp(); ! 284: break; ! 285: #ifndef NOWORM ! 286: case 'w': ! 287: if(tmp) wormhit(mtmp); ! 288: #endif NOWORM ! 289: break; ! 290: case 'X': ! 291: (void) hitu(mtmp,rnd(5)); ! 292: (void) hitu(mtmp,rnd(5)); ! 293: (void) hitu(mtmp,rnd(5)); ! 294: break; ! 295: case 'x': ! 296: { register long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE; ! 297: pline("%s pricks in your %s leg!", ! 298: Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left"); ! 299: set_wounded_legs(side, rnd(50)); ! 300: losehp_m(2, mtmp); ! 301: break; ! 302: } ! 303: case 'y': ! 304: if(mtmp->mcan) break; ! 305: mondead(mtmp); ! 306: if(!Blind) { ! 307: pline("You are blinded by a blast of light!"); ! 308: Blind = d(4,12); ! 309: seeoff(0); ! 310: } ! 311: return(1); ! 312: case 'Y': ! 313: (void) hitu(mtmp,rnd(6)); ! 314: break; ! 315: } ! 316: if(u.uhp < 1) done_in_by(mtmp); ! 317: return(0); ! 318: } ! 319: ! 320: hitu(mtmp,dam) ! 321: register struct monst *mtmp; ! 322: register dam; ! 323: { ! 324: register tmp, res; ! 325: ! 326: nomul(0); ! 327: if(u.uswallow) return(0); ! 328: ! 329: if(mtmp->mhide && mtmp->mundetected) { ! 330: mtmp->mundetected = 0; ! 331: if(!Blind) { ! 332: register struct obj *obj; ! 333: extern char * Xmonnam(); ! 334: if(obj = o_at(mtmp->mx,mtmp->my)) ! 335: pline("%s was hidden under %s!", ! 336: Xmonnam(mtmp), doname(obj)); ! 337: } ! 338: } ! 339: ! 340: tmp = u.uac; ! 341: /* give people with Ac = -10 at least some vulnerability */ ! 342: if(tmp < 0) { ! 343: dam += tmp; /* decrease damage */ ! 344: if(dam <= 0) dam = 1; ! 345: tmp = -rn2(-tmp); ! 346: } ! 347: tmp += mtmp->data->mlevel; ! 348: if(multi < 0) tmp += 4; ! 349: if((Invis && mtmp->data->mlet != 'I') || !mtmp->mcansee) tmp -= 2; ! 350: if(mtmp->mtrapped) tmp -= 2; ! 351: if(tmp <= rnd(20)) { ! 352: if(Blind) pline("It misses."); ! 353: else pline("%s misses.",Monnam(mtmp)); ! 354: res = 0; ! 355: } else { ! 356: if(Blind) pline("It hits!"); ! 357: else pline("%s hits!",Monnam(mtmp)); ! 358: losehp_m(dam, mtmp); ! 359: res = 1; ! 360: } ! 361: stop_occupation(); ! 362: return(res); ! 363: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.