Source:NetHack 2.3e/monmove.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to monmove.c from the source code of NetHack 2.3e.

Warning! This is the source code from an old release. For newer releases, see Source code

Screenshots and source code from Hack are used under the CWI license. 

1.    /*	SCCS Id: @(#)monmove.c	2.3	87/12/12
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    
4.    #include "hack.h"
5.    #include "mfndpos.h"
6.    #define	NULL	(char *) 0
7.    
8.    extern struct obj *mksobj_at();
9.    extern int warnlevel;	/* defined in mon.c */
10.   
11.   dochugw(mtmp) register struct monst *mtmp; {
12.   register x = mtmp->mx;
13.   register y = mtmp->my;
14.   register d = dochug(mtmp);
15.   register dd;
16.   	if(!d)		/* monster still alive */
17.   	if(Warning)
18.   	if(!mtmp->mpeaceful)
19.   	if(mtmp->data->mlevel > warnlevel)
20.   	if((dd = dist(mtmp->mx,mtmp->my)) < dist(x,y))
21.   	if(dd < 100)
22.   	if(!canseemon(mtmp))
23.   		warnlevel = mtmp->data->mlevel;
24.   	return(d);
25.   }
26.   
27.   /* returns 1 if monster died moving, 0 otherwise */
28.   dochug(mtmp)
29.   register struct monst *mtmp;
30.   {
31.   	register struct permonst *mdat;
32.   	register tmp, nearby, scared, onscary;
33.   
34.   	if(mtmp->cham && !rn2(6))
35.   	    (void) newcham(mtmp,
36.   #ifndef RPH
37.   			   &mons[dlevel+14+rn2(CMNUM-14-dlevel)]);
38.   #else
39.   			   (struct permonst *)0);
40.   #endif
41.   	mdat = mtmp->data;
42.   	if(mdat->mlevel < 0)
43.   		panic("bad monster %c (%d)",mdat->mlet,mdat->mlevel);
44.   
45.   	/* regenerate monsters */
46.   	if((!(moves%20) || index(MREGEN, mdat->mlet)) &&
47.   	    mtmp->mhp < mtmp->mhpmax)
48.   		mtmp->mhp++;
49.   
50.   	if(mtmp->mfroz) {
51.   		if (Hallucination) pmon(mtmp);
52.   		return(0);	/* frozen monsters don't do anything */
53.   	}
54.   
55.   	if(mtmp->msleep)	/* there is a chance we will wake it */
56.   		if(!disturb(mtmp)) return(0);
57.   
58.   	/* not frozen or sleeping: wipe out texts written in the dust */
59.   	wipe_engr_at(mtmp->mx, mtmp->my, 1);
60.   
61.   	/* confused monsters get unconfused with small probability */
62.   	if(mtmp->mconf && !rn2(50)) mtmp->mconf = 0;
63.   
64.   	/* some monsters teleport */
65.   	if(mtmp->mflee && index("tNL", mdat->mlet) && !rn2(40)){
66.   		rloc(mtmp);
67.   		return(0);
68.   	}
69.   	if(mdat->mmove < rnd(6)) return(0);
70.   
71.   	/* fleeing monsters might regain courage */
72.   	if(mtmp->mflee && !mtmp->mfleetim
73.   	    && mtmp->mhp == mtmp->mhpmax && !rn2(25))
74.   		mtmp->mflee = 0;
75.   
76.   	nearby = (dist(mtmp->mx, mtmp->my) < 3);
77.   	onscary = (sengr_at("Elbereth", u.ux, u.uy) ||
78.   			sobj_at(SCR_SCARE_MONSTER, u.ux, u.uy));
79.   	scared = (nearby && onscary && !mtmp->mtame && mtmp->mcansee)
80.   		 && (mdat->mlet != '1');  /* RPH: the wiz is never scared */
81.   	if(scared && !mtmp->mflee) {
82.   		mtmp->mflee = 1;
83.   		mtmp->mfleetim = (rn2(7) ? rnd(10) : rnd(100));
84.   	}
85.   
86.   	if(!nearby ||
87.   		mtmp->mflee || scared ||
88.   		mtmp->mconf ||
89.   		(mtmp->minvis && !rn2(3)) ||
90.   #ifndef KOPS
91.   		(index("BIuy", mdat->mlet) && !rn2(4)) ||
92.   #else
93.   		(index("KBIuy", mdat->mlet) && !rn2(4)) ||
94.   #endif
95.   		(mdat->mlet == 'L' && !u.ugold && (mtmp->mgold || rn2(2))) ||
96.   		(!mtmp->mcansee && !rn2(4)) ||
97.   		mtmp->mpeaceful
98.   	   ) {
99.   		tmp = m_move(mtmp,0);	/* 2: monster died moving */
100.  		if(tmp == 2 || (tmp && mdat->mmove <= 12))
101.  			return(tmp == 2);
102.  
103.  		if(Hallucination && tmp==0) pmon(mtmp);
104.  /* If 0, this means the monster didn't move.  During hallucination, its
105.     appearance should still change. */
106.  
107.  #ifdef HARD
108.  		/* Without this line, fast monsters don't hit you when they've
109.  		 * caught up to you. -dgk
110.  		 */
111.  		nearby = (dist(mtmp->mx, mtmp->my) < 3);
112.  		scared = (nearby && onscary);
113.  		if(scared && !mtmp->mflee) {
114.  			mtmp->mflee = 1;
115.  			mtmp->mfleetim = (rn2(7) ? rnd(10) : rnd(100));
116.  		}
117.  #endif
118.  	}
119.  #ifdef HARD	/* Demonic Blackmail!!! */
120.  	if(mdat->mlet == '&' && mtmp->mpeaceful 
121.  	   && !mtmp->mtame && !mtmp->isdjinni)
122.  		if(demon_talk(mtmp))
123.  			 return(1);	/* you paid it off */
124.  #endif
125.  	if(!index("Ea", mdat->mlet) && nearby &&
126.  	 !mtmp->mpeaceful && u.uhp > 0 && !scared) {
127.  		if(mhitu(mtmp))
128.  			return(1);	/* monster died (e.g. 'y' or 'F') */
129.  	}
130.  	/* extra movement for fast monsters */
131.  	if(mdat->mmove-12 > rnd(12)) tmp = m_move(mtmp,1);
132.  	return(tmp == 2);
133.  }
134.  
135.  m_move(mtmp,after)
136.  register struct monst *mtmp;
137.  {
138.  #ifndef REGBUG
139.  	register
140.  #endif
141.  		 struct monst *mtmp2;
142.  #ifndef REGBUG
143.  	register
144.  #endif
145.  		int nx,ny,omx,omy,appr,nearer,cnt,i,j;
146.  	xchar gx,gy,nix,niy,chcnt;
147.  	schar chi;
148.  	boolean likegold, likegems, likeobjs;
149.  #ifdef KAA
150.  	boolean likerock;
151.  #endif
152.  	char msym = mtmp->data->mlet;
153.  	schar mmoved = 0;	/* not strictly nec.: chi >= 0 will do */
154.  	coord poss[9];
155.  	long info[9];
156.  
157.  	if(mtmp->mfroz || mtmp->msleep)
158.  		return(0);
159.  	if(mtmp->mtrapped) {
160.  		i = mintrap(mtmp);
161.  		if(i == 2) return(2);	/* he died */
162.  		if(i == 1) return(0);	/* still in trap, so didnt move */
163.  	}
164.  	if(mtmp->mhide && o_at(mtmp->mx,mtmp->my) && rn2(10))
165.  		return(0);		/* do not leave hiding place */
166.  
167.  #ifndef NOWORM
168.  	if(mtmp->wormno)
169.  		goto not_special;
170.  #endif
171.  
172.  	/* my dog gets a special treatment */
173.  	if(mtmp->mtame) {
174.  		return( dog_move(mtmp, after) );
175.  	}
176.  
177.  	/* likewise for shopkeeper */
178.  	if(mtmp->isshk) {
179.  		mmoved = shk_move(mtmp);
180.  		if(mmoved >= 0)
181.  			goto postmov;
182.  		mmoved = 0;		/* follow player outside shop */
183.  	}
184.  
185.  	/* and for the guard */
186.  	if(mtmp->isgd) {
187.  		mmoved = gd_move();
188.  		goto postmov;
189.  	}
190.  
191.  /* teleport if that lies in our nature ('t') or when badly wounded ('1') */
192.  	if((msym == 't' && !rn2(5))
193.  	|| (msym == '1' && (mtmp->mhp < 7 || (!xdnstair && !rn2(5))
194.  		|| levl[u.ux][u.uy].typ == STAIRS))) {
195.  		if(mtmp->mhp < 7 || (msym == 't' && rn2(2)))
196.  			rloc(mtmp);
197.  		else
198.  			mnexto(mtmp);
199.  		mmoved = 1;
200.  		goto postmov;
201.  	}
202.  
203.  	/* spit fire ('D') or use a wand ('1') when appropriate */
204.  #ifdef DGKMOD
205.  	/* Add arrow and bolt throwing monsters */
206.  	if (index(
207.  # ifdef KAA
208.  #  ifdef KOPS
209.  		"D1OKC9",
210.  #  else
211.  		"D1KC9",
212.  #  endif
213.  # else
214.  #  ifdef KOPS
215.  		"D1OKC",
216.  #  else
217.  		"D1KC",
218.  #  endif
219.  # endif
220.  			  msym))	
221.  
222.  		if (!inrange(mtmp))	/* inrange returns 1 if OK for mon */
223.  			return(0);	/* to move after it zaps or throws */
224.  #else
225.  	if(index("D1", msym))
226.  		inrange(mtmp);
227.  #endif
228.  
229.  	if(msym == 'U' && !mtmp->mcan && canseemon(mtmp) &&
230.  	    mtmp->mcansee && rn2(5)) {
231.  		if(!Confusion)
232.  			pline("%s's gaze has confused you!", Monnam(mtmp));
233.  		else
234.  			pline("You are getting more and more confused.");
235.  		if(rn2(3)) mtmp->mcan = 1;
236.  		HConfusion += d(3,4);		/* timeout */
237.  	}
238.  #ifdef RPH
239.  	if (msym == '8' && canseemon(mtmp)) {
240.  	    if (mtmp->mcan)
241.  	        pline ("You notice that %s isn't all that ugly.",monnam(mtmp));
242.  	    else if (rn2(3)) 
243.  		pline ("You see the ugly back of %s.", monnam(mtmp));
244.    	    else {
245.  	        pline ("You look upon %s.", monnam(mtmp));
246.  		pline ("You turn to stone.");
247.  		done_in_by(mtmp);
248.  	    }
249.  	}
250.  #endif
251.  not_special:
252.  	if(!mtmp->mflee && u.uswallow && u.ustuck != mtmp) return(1);
253.  	appr = 1;
254.  	if(mtmp->mflee) appr = -1;
255.  	if(mtmp->mconf || Invis ||  !mtmp->mcansee ||
256.  		(index("BIy", msym) && !rn2(3)))
257.  		appr = 0;
258.  	omx = mtmp->mx;
259.  	omy = mtmp->my;
260.  	gx = u.ux;
261.  	gy = u.uy;
262.  	if(msym == 'L' && appr == 1 && mtmp->mgold > u.ugold)
263.  		appr = -1;
264.  
265.  	/* random criterion for 'smell' or track finding ability
266.  	   should use mtmp->msmell or sth
267.  	 */
268.  	if(msym == '@' ||
269.  #ifdef RPH
270.  	  uwep && !strcmp(ONAME(uwep), "Excalibur") ||
271.  #endif
272.  	  ('a' <= msym && msym <= 'z')) {
273.  	extern coord *gettrack();
274.  	register coord *cp;
275.  	schar mroom;
276.  		mroom = inroom(omx,omy);
277.  		if(mroom < 0 || mroom != inroom(u.ux,u.uy)){
278.  		    cp = gettrack(omx,omy);
279.  		    if(cp){
280.  			gx = cp->x;
281.  			gy = cp->y;
282.  		    }
283.  		}
284.  	}
285.  
286.  	/* look for gold or jewels nearby */
287.  #ifdef ROCKMOLE
288.  	likegold = (index("LODr", msym) != NULL);
289.  	likegems = (index("ODu", msym) != NULL);
290.  # ifdef KJSMODS
291.  	likeobjs = (mtmp->mhide || (msym == 'r' && dlevel > 3));
292.  # else
293.  	likeobjs = (mtmp->mhide || msym == 'r');
294.  # endif
295.  #else
296.  	likegold = (index("LOD", msym) != NULL);
297.  	likegems = (index("ODu", msym) != NULL);
298.  	likeobjs = mtmp->mhide;
299.  #endif
300.  #ifdef KAA
301.  	likerock = (msym == '9');
302.  #endif
303.  #define	SRCHRADIUS	25
304.  	{ xchar mind = SRCHRADIUS;		/* not too far away */
305.  	  register int dd;
306.  	  if(likegold){
307.  		register struct gold *gold;
308.  		for(gold = fgold; gold; gold = gold->ngold)
309.  		  if((dd = DIST(omx,omy,gold->gx,gold->gy)) < mind){
310.  		    mind = dd;
311.  		    gx = gold->gx;
312.  		    gy = gold->gy;
313.  		}
314.  	  }
315.  	  if(likegems || likeobjs
316.  #ifdef KAA
317.  				  || likerock
318.  #endif
319.  	    )  {
320.  		register struct obj *otmp;
321.  		for(otmp = fobj; otmp; otmp = otmp->nobj)
322.  		if(likeobjs
323.  		   || (likegems && otmp->olet == GEM_SYM)
324.  #ifdef KAA
325.  		   || (likerock && otmp->olet == ROCK_SYM)
326.  #endif
327.  			)  {
328.  			if(msym != 'u' || objects[otmp->otyp].g_val != 0)
329.  			    if((dd = DIST(omx,omy,otmp->ox,otmp->oy)) < mind){
330.  				mind = dd;
331.  				gx = otmp->ox;
332.  				gy = otmp->oy;
333.  			    }
334.  			}
335.  	    }
336.  	  if(mind < SRCHRADIUS && appr == -1) {
337.  		if(dist(omx,omy) < 10) {
338.  		    gx = u.ux;
339.  		    gy = u.uy;
340.  		} else
341.  		    appr = 1;
342.  	  }
343.  	}
344.  	nix = omx;
345.  	niy = omy;
346.  	cnt = mfndpos(mtmp,poss,info,
347.  		msym == 'u' ? NOTONL :
348.  #ifdef ROCKMOLE
349.  # ifdef KJSMODS
350.  		(msym == 'r' && dlevel > 3) ? ALLOW_WALL :
351.  # else
352.  		msym == 'r' ? ALLOW_WALL :
353.  # endif
354.  #endif
355.  		(msym == '@' || msym == '1') ? (ALLOW_SSM | ALLOW_TRAPS) :
356.  		index(UNDEAD, msym) ? NOGARLIC :
357.  #ifdef KAA
358.  		    (msym == '9') ? (ALLOW_ROCK | ALLOW_TRAPS) : ALLOW_TRAPS);
359.  #else
360.  		     ALLOW_TRAPS);
361.  #endif
362.  	chcnt = 0;
363.  	chi = -1;
364.  	for(i=0; i<cnt; i++) {
365.  		nx = poss[i].x;
366.  		ny = poss[i].y;
367.  		for(j=0; j<MTSZ && j<cnt-1; j++)
368.  			if(nx == mtmp->mtrack[j].x && ny == mtmp->mtrack[j].y)
369.  				if(rn2(4*(cnt-j))) goto nxti;
370.  #ifdef STUPID
371.  		/* some stupid compilers think that this is too complicated */
372.  		{ int d1 = DIST(nx,ny,gx,gy);
373.  		  int d2 = DIST(nix,niy,gx,gy);
374.  		  nearer = (d1 < d2);
375.  		}
376.  #else
377.  		nearer = (DIST(nx,ny,gx,gy) < DIST(nix,niy,gx,gy));
378.  #endif
379.  		if((appr == 1 && nearer) || (appr == -1 && !nearer) ||
380.  			!mmoved ||
381.  			(!appr && !rn2(++chcnt))){
382.  			nix = nx;
383.  			niy = ny;
384.  			chi = i;
385.  			mmoved = 1;
386.  		}
387.  	nxti:	;
388.  	}
389.  	if(mmoved){
390.  		if(info[chi] & ALLOW_M){
391.  			mtmp2 = m_at(nix,niy);
392.  			if(hitmm(mtmp,mtmp2) == 1 && rn2(4) &&
393.  			  hitmm(mtmp2,mtmp) == 2) return(2);
394.  			return(0);
395.  		}
396.  		if(info[chi] & ALLOW_U){
397.  		  (void) hitu(mtmp, d(mtmp->data->damn, mtmp->data->damd)+1);
398.  		  return(0);
399.  		}
400.  		mtmp->mx = nix;
401.  		mtmp->my = niy;
402.  		for(j=MTSZ-1; j>0; j--) mtmp->mtrack[j] = mtmp->mtrack[j-1];
403.  		mtmp->mtrack[0].x = omx;
404.  		mtmp->mtrack[0].y = omy;
405.  #ifndef NOWORM
406.  		if(mtmp->wormno) worm_move(mtmp);
407.  #endif
408.  	} else {
409.  		if(msym == 'u' && rn2(2)){
410.  			rloc(mtmp);
411.  			return(0);
412.  		}
413.  #ifndef NOWORM
414.  		if(mtmp->wormno) worm_nomove(mtmp);
415.  #endif
416.  	}
417.  postmov:
418.  	if(mmoved == 1) {
419.  		if(mintrap(mtmp) == 2)	/* he died */
420.  			return(2);
421.  #ifdef ROCKMOLE
422.  	       /* Maybe a rock mole just ate something? */
423.  	       if(msym == 'r'
424.  # ifdef KJSMODS
425.  		  && dlevel > 3
426.  #endif
427.  		  && IS_ROCK(levl[mtmp->mx][mtmp->my].typ) &&
428.  		  levl[mtmp->mx][mtmp->my].typ != POOL){
429.  		   register int pile = rnd(25);
430.  		   /* Just ate something. */
431.  		   if(levl[mtmp->mx][mtmp->my].typ == 0)
432.  		     levl[mtmp->mx][mtmp->my].typ = CORR;
433.  		   else if(IS_WALL(levl[mtmp->mx][mtmp->my].typ))
434.  		     levl[mtmp->mx][mtmp->my].typ = DOOR;
435.  		   mnewsym(mtmp->mx,mtmp->my);
436.  		   /* Left behind a pile? */
437.  		   if(pile < 5) {
438.  		       if(pile == 1)
439.  			mksobj_at(ENORMOUS_ROCK, mtmp->mx, mtmp->my);
440.  		      else
441.  			mksobj_at(ROCK, mtmp->mx, mtmp->my);
442.  		   }
443.  		  if(cansee(mtmp->mx, mtmp->my))
444.  		    if(fobj)	atl(mtmp->mx,mtmp->my,fobj->olet);
445.  	       }
446.  	       /* Maybe a rock mole just ate some gold or armor? */
447.  	       if(msym == 'r') meatgold(mtmp);
448.  #endif /* ROCKMOLE /**/
449.  		if(likegold) mpickgold(mtmp);
450.  #ifdef KAA
451.  		if(likerock || likegems) mpickgems(mtmp);
452.  #else
453.  		if(likegems) mpickgems(mtmp);
454.  #endif
455.  		if(mtmp->mhide) mtmp->mundetected = 1;
456.  	}
457.  	pmon(mtmp);
458.  	return(mmoved);
459.  }
460.
Retrieved from "https://nethackwiki.com/index.php?title=Source:NetHack_2.3e/monmove.c&oldid=174027"