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) */
hitmm(magr,mdef)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 */
mondied(mdef)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 */
monstone(mdef)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
fightm(mtmp)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 */
thitu(tlev,dam,name)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
hmon(mon,obj,thrown)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 */
attack(mtmp)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 }
359