From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001 From: cgd Date: Sun, 21 Mar 1993 09:45:37 +0000 Subject: initial import of 386bsd-0.1 sources --- hack/hack.fight.c | 358 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 358 insertions(+) create mode 100644 hack/hack.fight.c (limited to 'hack/hack.fight.c') diff --git a/hack/hack.fight.c b/hack/hack.fight.c new file mode 100644 index 00000000..ede886d1 --- /dev/null +++ b/hack/hack.fight.c @@ -0,0 +1,358 @@ +/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ +/* hack.fight.c - version 1.0.3 */ + +#include "hack.h" +extern struct permonst li_dog, dog, la_dog; +extern char *exclam(), *xname(); +extern struct obj *mkobj_at(); + +static boolean far_noise; +static long noisetime; + +/* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */ +hitmm(magr,mdef) register struct monst *magr,*mdef; { +register struct permonst *pa = magr->data, *pd = mdef->data; +int hit; +schar tmp; +boolean vis; + if(index("Eauy", pa->mlet)) return(0); + if(magr->mfroz) return(0); /* riv05!a3 */ + tmp = pd->ac + pa->mlevel; + if(mdef->mconf || mdef->mfroz || mdef->msleep){ + tmp += 4; + if(mdef->msleep) mdef->msleep = 0; + } + hit = (tmp > rnd(20)); + if(hit) mdef->msleep = 0; + vis = (cansee(magr->mx,magr->my) && cansee(mdef->mx,mdef->my)); + if(vis){ + char buf[BUFSZ]; + if(mdef->mimic) seemimic(mdef); + if(magr->mimic) seemimic(magr); + (void) sprintf(buf,"%s %s", Monnam(magr), + hit ? "hits" : "misses"); + pline("%s %s.", buf, monnam(mdef)); + } else { + boolean far = (dist(magr->mx, magr->my) > 15); + if(far != far_noise || moves-noisetime > 10) { + far_noise = far; + noisetime = moves; + pline("You hear some noises%s.", + far ? " in the distance" : ""); + } + } + if(hit){ + if(magr->data->mlet == 'c' && !magr->cham) { + magr->mhpmax += 3; + if(vis) pline("%s is turned to stone!", Monnam(mdef)); + else if(mdef->mtame) + pline("You have a peculiarly sad feeling for a moment, then it passes."); + monstone(mdef); + hit = 2; + } else + if((mdef->mhp -= d(pa->damn,pa->damd)) < 1) { + magr->mhpmax += 1 + rn2(pd->mlevel+1); + if(magr->mtame && magr->mhpmax > 8*pa->mlevel){ + if(pa == &li_dog) magr->data = pa = &dog; + else if(pa == &dog) magr->data = pa = &la_dog; + } + if(vis) pline("%s is killed!", Monnam(mdef)); + else if(mdef->mtame) + pline("You have a sad feeling for a moment, then it passes."); + mondied(mdef); + hit = 2; + } + } + return(hit); +} + +/* drop (perhaps) a cadaver and remove monster */ +mondied(mdef) register struct monst *mdef; { +register struct permonst *pd = mdef->data; + if(letter(pd->mlet) && rn2(3)){ + (void) mkobj_at(pd->mlet,mdef->mx,mdef->my); + if(cansee(mdef->mx,mdef->my)){ + unpmon(mdef); + atl(mdef->mx,mdef->my,fobj->olet); + } + stackobj(fobj); + } + mondead(mdef); +} + +/* drop a rock and remove monster */ +monstone(mdef) register struct monst *mdef; { + extern char mlarge[]; + if(index(mlarge, mdef->data->mlet)) + mksobj_at(ENORMOUS_ROCK, mdef->mx, mdef->my); + else + mksobj_at(ROCK, mdef->mx, mdef->my); + if(cansee(mdef->mx, mdef->my)){ + unpmon(mdef); + atl(mdef->mx,mdef->my,fobj->olet); + } + mondead(mdef); +} + + +fightm(mtmp) register struct monst *mtmp; { +register struct monst *mon; + for(mon = fmon; mon; mon = mon->nmon) if(mon != mtmp) { + if(DIST(mon->mx,mon->my,mtmp->mx,mtmp->my) < 3) + if(rn2(4)) + return(hitmm(mtmp,mon)); + } + return(-1); +} + +/* u is hit by sth, but not a monster */ +thitu(tlev,dam,name) +register tlev,dam; +register char *name; +{ +char buf[BUFSZ]; + setan(name,buf); + if(u.uac + tlev <= rnd(20)) { + if(Blind) pline("It misses."); + else pline("You are almost hit by %s!", buf); + return(0); + } else { + if(Blind) pline("You are hit!"); + else pline("You are hit by %s!", buf); + losehp(dam,name); + return(1); + } +} + +char mlarge[] = "bCDdegIlmnoPSsTUwY',&"; + +boolean +hmon(mon,obj,thrown) /* return TRUE if mon still alive */ +register struct monst *mon; +register struct obj *obj; +register thrown; +{ + register tmp; + boolean hittxt = FALSE; + + if(!obj){ + tmp = rnd(2); /* attack with bare hands */ + if(mon->data->mlet == 'c' && !uarmg){ + pline("You hit the cockatrice with your bare hands."); + pline("You turn to stone ..."); + done_in_by(mon); + } + } else if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE) { + if(obj == uwep && (obj->otyp > SPEAR || obj->otyp < BOOMERANG)) + tmp = rnd(2); + else { + if(index(mlarge, mon->data->mlet)) { + tmp = rnd(objects[obj->otyp].wldam); + if(obj->otyp == TWO_HANDED_SWORD) tmp += d(2,6); + else if(obj->otyp == FLAIL) tmp += rnd(4); + } else { + tmp = rnd(objects[obj->otyp].wsdam); + } + tmp += obj->spe; + if(!thrown && obj == uwep && obj->otyp == BOOMERANG + && !rn2(3)){ + pline("As you hit %s, the boomerang breaks into splinters.", + monnam(mon)); + freeinv(obj); + setworn((struct obj *) 0, obj->owornmask); + obfree(obj, (struct obj *) 0); + tmp++; + } + } + if(mon->data->mlet == 'O' && obj->otyp == TWO_HANDED_SWORD && + !strcmp(ONAME(obj), "Orcrist")) + tmp += rnd(10); + } else switch(obj->otyp) { + case HEAVY_IRON_BALL: + tmp = rnd(25); break; + case EXPENSIVE_CAMERA: + pline("You succeed in destroying your camera. Congratulations!"); + freeinv(obj); + if(obj->owornmask) + setworn((struct obj *) 0, obj->owornmask); + obfree(obj, (struct obj *) 0); + return(TRUE); + case DEAD_COCKATRICE: + pline("You hit %s with the cockatrice corpse.", + monnam(mon)); + if(mon->data->mlet == 'c') { + tmp = 1; + hittxt = TRUE; + break; + } + pline("%s is turned to stone!", Monnam(mon)); + killed(mon); + return(FALSE); + case CLOVE_OF_GARLIC: /* no effect against demons */ + if(index(UNDEAD, mon->data->mlet)) + mon->mflee = 1; + tmp = 1; + break; + default: + /* non-weapons can damage because of their weight */ + /* (but not too much) */ + tmp = obj->owt/10; + if(tmp < 1) tmp = 1; + else tmp = rnd(tmp); + if(tmp > 6) tmp = 6; + } + + /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */ + + tmp += u.udaminc + dbon(); + if(u.uswallow) { + if((tmp -= u.uswldtim) <= 0) { + pline("Your arms are no longer able to hit."); + return(TRUE); + } + } + if(tmp < 1) tmp = 1; + mon->mhp -= tmp; + if(mon->mhp < 1) { + killed(mon); + return(FALSE); + } + if(mon->mtame && (!mon->mflee || mon->mfleetim)) { + mon->mflee = 1; /* Rick Richardson */ + mon->mfleetim += 10*rnd(tmp); + } + + if(!hittxt) { + if(thrown) + /* this assumes that we cannot throw plural things */ + hit( xname(obj) /* or: objects[obj->otyp].oc_name */, + mon, exclam(tmp) ); + else if(Blind) + pline("You hit it."); + else + pline("You hit %s%s", monnam(mon), exclam(tmp)); + } + + if(u.umconf && !thrown) { + if(!Blind) { + pline("Your hands stop glowing blue."); + if(!mon->mfroz && !mon->msleep) + pline("%s appears confused.",Monnam(mon)); + } + mon->mconf = 1; + u.umconf = 0; + } + return(TRUE); /* mon still alive */ +} + +/* try to attack; return FALSE if monster evaded */ +/* u.dx and u.dy must be set */ +attack(mtmp) +register struct monst *mtmp; +{ + schar tmp; + boolean malive = TRUE; + register struct permonst *mdat; + mdat = mtmp->data; + + u_wipe_engr(3); /* andrew@orca: prevent unlimited pick-axe attacks */ + + if(mdat->mlet == 'L' && !mtmp->mfroz && !mtmp->msleep && + !mtmp->mconf && mtmp->mcansee && !rn2(7) && + (m_move(mtmp, 0) == 2 /* he died */ || /* he moved: */ + mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy)) + return(FALSE); + + if(mtmp->mimic){ + if(!u.ustuck && !mtmp->mflee) u.ustuck = mtmp; + switch(levl[u.ux+u.dx][u.uy+u.dy].scrsym){ + case '+': + pline("The door actually was a Mimic."); + break; + case '$': + pline("The chest was a Mimic!"); + break; + default: + pline("Wait! That's a Mimic!"); + } + wakeup(mtmp); /* clears mtmp->mimic */ + return(TRUE); + } + + wakeup(mtmp); + + if(mtmp->mhide && mtmp->mundetected){ + register struct obj *obj; + + mtmp->mundetected = 0; + if((obj = o_at(mtmp->mx,mtmp->my)) && !Blind) + pline("Wait! There's a %s hiding under %s!", + mdat->mname, doname(obj)); + return(TRUE); + } + + tmp = u.uluck + u.ulevel + mdat->ac + abon(); + if(uwep) { + if(uwep->olet == WEAPON_SYM || uwep->otyp == PICK_AXE) + tmp += uwep->spe; + if(uwep->otyp == TWO_HANDED_SWORD) tmp -= 1; + else if(uwep->otyp == DAGGER) tmp += 2; + else if(uwep->otyp == CRYSKNIFE) tmp += 3; + else if(uwep->otyp == SPEAR && + index("XDne", mdat->mlet)) tmp += 2; + } + if(mtmp->msleep) { + mtmp->msleep = 0; + tmp += 2; + } + if(mtmp->mfroz) { + tmp += 4; + if(!rn2(10)) mtmp->mfroz = 0; + } + if(mtmp->mflee) tmp += 2; + if(u.utrap) tmp -= 3; + + /* with a lot of luggage, your agility diminishes */ + tmp -= (inv_weight() + 40)/20; + + if(tmp <= rnd(20) && !u.uswallow){ + if(Blind) pline("You miss it."); + else pline("You miss %s.",monnam(mtmp)); + } else { + /* we hit the monster; be careful: it might die! */ + + if((malive = hmon(mtmp,uwep,0)) == TRUE) { + /* monster still alive */ + if(!rn2(25) && mtmp->mhp < mtmp->mhpmax/2) { + mtmp->mflee = 1; + if(!rn2(3)) mtmp->mfleetim = rnd(100); + if(u.ustuck == mtmp && !u.uswallow) + u.ustuck = 0; + } +#ifndef NOWORM + if(mtmp->wormno) + cutworm(mtmp, u.ux+u.dx, u.uy+u.dy, + uwep ? uwep->otyp : 0); +#endif NOWORM + } + if(mdat->mlet == 'a') { + if(rn2(2)) { + pline("You are splashed by the blob's acid!"); + losehp_m(rnd(6), mtmp); + if(!rn2(30)) corrode_armor(); + } + if(!rn2(6)) corrode_weapon(); + } + } + if(malive && mdat->mlet == 'E' && canseemon(mtmp) + && !mtmp->mcan && rn2(3)) { + if(mtmp->mcansee) { + pline("You are frozen by the floating eye's gaze!"); + nomul((u.ulevel > 6 || rn2(4)) ? rn1(20,-21) : -200); + } else { + pline("The blinded floating eye cannot defend itself."); + if(!rn2(500)) if((int)u.uluck > LUCKMIN) u.uluck--; + } + } + return(TRUE); +} -- cgit v1.2.3-56-ge451