![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.fight.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.fight.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2: /* hack.fight.c - version 1.0.3 */
3:
4: #include "hack.h"
5: extern struct permonst li_dog, dog, la_dog;
6: extern char *exclam(), *xname();
7: extern struct obj *mkobj_at();
8:
9: static boolean far_noise;
10: static long noisetime;
11:
12: /* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */
13: hitmm(magr,mdef) register struct monst *magr,*mdef; {
14: register struct permonst *pa = magr->data, *pd = mdef->data;
15: int hit;
16: schar tmp;
17: boolean vis;
18: if(index("Eauy", pa->mlet)) return(0);
19: if(magr->mfroz) return(0); /* riv05!a3 */
20: tmp = pd->ac + pa->mlevel;
21: if(mdef->mconf || mdef->mfroz || mdef->msleep){
22: tmp += 4;
23: if(mdef->msleep) mdef->msleep = 0;
24: }
25: hit = (tmp > rnd(20));
26: if(hit) mdef->msleep = 0;
27: vis = (cansee(magr->mx,magr->my) && cansee(mdef->mx,mdef->my));
28: if(vis){
29: char buf[BUFSZ];
30: if(mdef->mimic) seemimic(mdef);
31: if(magr->mimic) seemimic(magr);
32: (void) sprintf(buf,"%s %s", Monnam(magr),
33: hit ? "hits" : "misses");
34: pline("%s %s.", buf, monnam(mdef));
35: } else {
36: boolean far = (dist(magr->mx, magr->my) > 15);
37: if(far != far_noise || moves-noisetime > 10) {
38: far_noise = far;
39: noisetime = moves;
40: pline("You hear some noises%s.",
41: far ? " in the distance" : "");
42: }
43: }
44: if(hit){
45: if(magr->data->mlet == 'c' && !magr->cham) {
46: magr->mhpmax += 3;
47: if(vis) pline("%s is turned to stone!", Monnam(mdef));
48: else if(mdef->mtame)
49: pline("You have a peculiarly sad feeling for a moment, then it passes.");
50: monstone(mdef);
51: hit = 2;
52: } else
53: if((mdef->mhp -= d(pa->damn,pa->damd)) < 1) {
54: magr->mhpmax += 1 + rn2(pd->mlevel+1);
55: if(magr->mtame && magr->mhpmax > 8*pa->mlevel){
56: if(pa == &li_dog) magr->data = pa = &dog;
57: else if(pa == &dog) magr->data = pa = &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: (void) mkobj_at(pd->mlet,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(ENORMOUS_ROCK, mdef->mx, mdef->my);
88: else
89: mksobj_at(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: /* u is hit by sth, but not a monster */
109: thitu(tlev,dam,name)
110: register tlev,dam;
111: register char *name;
112: {
113: char buf[BUFSZ];
114: setan(name,buf);
115: if(u.uac + tlev <= rnd(20)) {
116: if(Blind) pline("It misses.");
117: else pline("You are almost hit by %s!", buf);
118: return(0);
119: } else {
120: if(Blind) pline("You are hit!");
121: else pline("You are hit by %s!", buf);
122: losehp(dam,name);
123: return(1);
124: }
125: }
126:
127: char mlarge[] = "bCDdegIlmnoPSsTUwY',&";
128:
129: boolean
130: hmon(mon,obj,thrown) /* return TRUE if mon still alive */
131: register struct monst *mon;
132: register struct obj *obj;
133: register thrown;
134: {
135: register tmp;
136: boolean hittxt = FALSE;
137:
138: if(!obj){
139: tmp = rnd(2); /* attack with bare hands */
140: if(mon->data->mlet == 'c' && !uarmg){
141: pline("You hit the cockatrice with your bare hands.");
142: pline("You turn to stone ...");
143: done_in_by(mon);
144: }
145: } else if(obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE) {
146: if(obj == uwep && (obj->otyp > SPEAR || obj->otyp < BOOMERANG))
147: tmp = rnd(2);
148: else {
149: if(index(mlarge, mon->data->mlet)) {
150: tmp = rnd(objects[obj->otyp].wldam);
151: if(obj->otyp == TWO_HANDED_SWORD) tmp += d(2,6);
152: else if(obj->otyp == FLAIL) tmp += rnd(4);
153: } else {
154: tmp = rnd(objects[obj->otyp].wsdam);
155: }
156: tmp += obj->spe;
157: if(!thrown && obj == uwep && obj->otyp == BOOMERANG
158: && !rn2(3)){
159: pline("As you hit %s, the boomerang breaks into splinters.",
160: monnam(mon));
161: freeinv(obj);
162: setworn((struct obj *) 0, obj->owornmask);
163: obfree(obj, (struct obj *) 0);
164: tmp++;
165: }
166: }
167: if(mon->data->mlet == 'O' && obj->otyp == TWO_HANDED_SWORD &&
168: !strcmp(ONAME(obj), "Orcrist"))
169: tmp += rnd(10);
170: } else switch(obj->otyp) {
171: case HEAVY_IRON_BALL:
172: tmp = rnd(25); break;
173: case EXPENSIVE_CAMERA:
174: pline("You succeed in destroying your camera. Congratulations!");
175: freeinv(obj);
176: if(obj->owornmask)
177: setworn((struct obj *) 0, obj->owornmask);
178: obfree(obj, (struct obj *) 0);
179: return(TRUE);
180: case DEAD_COCKATRICE:
181: pline("You hit %s with the cockatrice corpse.",
182: monnam(mon));
183: if(mon->data->mlet == 'c') {
184: tmp = 1;
185: hittxt = TRUE;
186: break;
187: }
188: pline("%s is turned to stone!", Monnam(mon));
189: killed(mon);
190: return(FALSE);
191: case CLOVE_OF_GARLIC: /* no effect against demons */
192: if(index(UNDEAD, mon->data->mlet))
193: mon->mflee = 1;
194: tmp = 1;
195: break;
196: default:
197: /* non-weapons can damage because of their weight */
198: /* (but not too much) */
199: tmp = obj->owt/10;
200: if(tmp < 1) tmp = 1;
201: else tmp = rnd(tmp);
202: if(tmp > 6) tmp = 6;
203: }
204:
205: /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */
206:
207: tmp += u.udaminc + dbon();
208: if(u.uswallow) {
209: if((tmp -= u.uswldtim) <= 0) {
210: pline("Your arms are no longer able to hit.");
211: return(TRUE);
212: }
213: }
214: if(tmp < 1) tmp = 1;
215: mon->mhp -= tmp;
216: if(mon->mhp < 1) {
217: killed(mon);
218: return(FALSE);
219: }
220: if(mon->mtame && (!mon->mflee || mon->mfleetim)) {
221: mon->mflee = 1; /* Rick Richardson */
222: mon->mfleetim += 10*rnd(tmp);
223: }
224:
225: if(!hittxt) {
226: if(thrown)
227: /* this assumes that we cannot throw plural things */
228: hit( xname(obj) /* or: objects[obj->otyp].oc_name */,
229: mon, exclam(tmp) );
230: else if(Blind)
231: pline("You hit it.");
232: else
233: pline("You hit %s%s", monnam(mon), exclam(tmp));
234: }
235:
236: if(u.umconf && !thrown) {
237: if(!Blind) {
238: pline("Your hands stop glowing blue.");
239: if(!mon->mfroz && !mon->msleep)
240: pline("%s appears confused.",Monnam(mon));
241: }
242: mon->mconf = 1;
243: u.umconf = 0;
244: }
245: return(TRUE); /* mon still alive */
246: }
247:
248: /* try to attack; return FALSE if monster evaded */
249: /* u.dx and u.dy must be set */
250: attack(mtmp)
251: register struct monst *mtmp;
252: {
253: schar tmp;
254: boolean malive = TRUE;
255: register struct permonst *mdat;
256: mdat = mtmp->data;
257:
258: u_wipe_engr(3); /* andrew@orca: prevent unlimited pick-axe attacks */
259:
260: if(mdat->mlet == 'L' && !mtmp->mfroz && !mtmp->msleep &&
261: !mtmp->mconf && mtmp->mcansee && !rn2(7) &&
262: (m_move(mtmp, 0) == 2 /* he died */ || /* he moved: */
263: mtmp->mx != u.ux+u.dx || mtmp->my != u.uy+u.dy))
264: return(FALSE);
265:
266: if(mtmp->mimic){
267: if(!u.ustuck && !mtmp->mflee) u.ustuck = mtmp;
268: switch(levl[u.ux+u.dx][u.uy+u.dy].scrsym){
269: case '+':
270: pline("The door actually was a Mimic.");
271: break;
272: case '$':
273: pline("The chest was a Mimic!");
274: break;
275: default:
276: pline("Wait! That's a Mimic!");
277: }
278: wakeup(mtmp); /* clears mtmp->mimic */
279: return(TRUE);
280: }
281:
282: wakeup(mtmp);
283:
284: if(mtmp->mhide && mtmp->mundetected){
285: register struct obj *obj;
286:
287: mtmp->mundetected = 0;
288: if((obj = o_at(mtmp->mx,mtmp->my)) && !Blind)
289: pline("Wait! There's a %s hiding under %s!",
290: mdat->mname, doname(obj));
291: return(TRUE);
292: }
293:
294: tmp = u.uluck + u.ulevel + mdat->ac + abon();
295: if(uwep) {
296: if(uwep->olet == WEAPON_SYM || uwep->otyp == PICK_AXE)
297: tmp += uwep->spe;
298: if(uwep->otyp == TWO_HANDED_SWORD) tmp -= 1;
299: else if(uwep->otyp == DAGGER) tmp += 2;
300: else if(uwep->otyp == CRYSKNIFE) tmp += 3;
301: else if(uwep->otyp == SPEAR &&
302: index("XDne", mdat->mlet)) tmp += 2;
303: }
304: if(mtmp->msleep) {
305: mtmp->msleep = 0;
306: tmp += 2;
307: }
308: if(mtmp->mfroz) {
309: tmp += 4;
310: if(!rn2(10)) mtmp->mfroz = 0;
311: }
312: if(mtmp->mflee) tmp += 2;
313: if(u.utrap) tmp -= 3;
314:
315: /* with a lot of luggage, your agility diminishes */
316: tmp -= (inv_weight() + 40)/20;
317:
318: if(tmp <= rnd(20) && !u.uswallow){
319: if(Blind) pline("You miss it.");
320: else pline("You miss %s.",monnam(mtmp));
321: } else {
322: /* we hit the monster; be careful: it might die! */
323:
324: if((malive = hmon(mtmp,uwep,0)) == TRUE) {
325: /* monster still alive */
326: if(!rn2(25) && mtmp->mhp < mtmp->mhpmax/2) {
327: mtmp->mflee = 1;
328: if(!rn2(3)) mtmp->mfleetim = rnd(100);
329: if(u.ustuck == mtmp && !u.uswallow)
330: u.ustuck = 0;
331: }
332: #ifndef NOWORM
333: if(mtmp->wormno)
334: cutworm(mtmp, u.ux+u.dx, u.uy+u.dy,
335: uwep ? uwep->otyp : 0);
336: #endif NOWORM
337: }
338: if(mdat->mlet == 'a') {
339: if(rn2(2)) {
340: pline("You are splashed by the blob's acid!");
341: losehp_m(rnd(6), mtmp);
342: if(!rn2(30)) corrode_armor();
343: }
344: if(!rn2(6)) corrode_weapon();
345: }
346: }
347: if(malive && mdat->mlet == 'E' && canseemon(mtmp)
348: && !mtmp->mcan && rn2(3)) {
349: if(mtmp->mcansee) {
350: pline("You are frozen by the floating eye's gaze!");
351: nomul((u.ulevel > 6 || rn2(4)) ? rn1(20,-21) : -200);
352: } else {
353: pline("The blinded floating eye cannot defend itself.");
354: if(!rn2(500)) if((int)u.uluck > LUCKMIN) u.uluck--;
355: }
356: }
357: return(TRUE);
358: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.