Fandom

Wikihack

Source:NetHack 3.1.0/dog.c

2,034pages on
this wiki
Add New Page
Talk0

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

Below is the full text to dog.c from the source code of NetHack 3.1.0. To link to a particular line, write [[NetHack 3.1.0/dog.c#line123]], for example.

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

The NetHack General Public License applies to screenshots, source code and other content from NetHack.
1.    /*	SCCS Id: @(#)dog.c	3.1	92/10/18	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include "hack.h"
6.    #include "edog.h"
7.    
8.    #define domestic(mtmp)	(mtmp->data->msound == MS_BARK || \
9.    			 mtmp->data->msound == MS_MEW)
10.   
11.   #ifdef OVLB
12.   
13.   static int NDECL(pet_type);
14.   
15.   void
16.   initedog(mtmp)
17.   register struct monst *mtmp;
18.   {
19.   	mtmp->mtame = domestic(mtmp) ? 10 : 5;
20.   	mtmp->mpeaceful = 1;
21.   	set_malign(mtmp); /* recalc alignment now that it's tamed */
22.   	mtmp->mleashed = 0;
23.   	mtmp->meating = 0;
24.   	EDOG(mtmp)->droptime = 0;
25.   	EDOG(mtmp)->dropdist = 10000;
26.   	EDOG(mtmp)->apport = 10;
27.   	EDOG(mtmp)->whistletime = 0;
28.   	EDOG(mtmp)->hungrytime = 1000 + moves;
29.   }
30.   
31.   static int
32.   pet_type()
33.   {
34.   	register int pettype;
35.   
36.   	switch (pl_character[0]) {
37.   		/* some character classes have restricted ideas of pets */
38.   		case 'C':
39.   		case 'S':
40.   			pettype = PM_LITTLE_DOG;
41.   			break;
42.   		case 'W':
43.   			pettype = PM_KITTEN;
44.   			break;
45.   		/* otherwise, see if the player has a preference */
46.   		default:
47.   			if (preferred_pet == 'c')
48.   				pettype = PM_KITTEN;
49.   			else if (preferred_pet == 'd')
50.   				pettype = PM_LITTLE_DOG;
51.   			else	pettype = rn2(2) ? PM_KITTEN : PM_LITTLE_DOG;
52.   			break;
53.   	}
54.   	return pettype;
55.   }
56.   
57.   void
58.   make_familiar(otmp,x,y)
59.   register struct obj *otmp;
60.   xchar x, y;
61.   {
62.   	register struct monst *mtmp;
63.   	register struct permonst *pm;
64.   
65.   top:
66.   	if (otmp) pm = &mons[otmp->corpsenm]; /* Figurine; otherwise spell */
67.   	else if (rn2(3)) {
68.   	    if (!(pm = rndmonst())) {
69.   		pline("There seems to be nothing available for a familiar.");
70.   		return;
71.   	    }
72.   	}
73.   	else pm = &mons[pet_type()];
74.   
75.   	pm->pxlth += sizeof(struct edog);
76.   	mtmp = makemon(pm, x, y);
77.   	pm->pxlth -= sizeof(struct edog);
78.   	if (!mtmp) { /* monster was genocided */
79.   	    if (otmp)
80.   		pline("The figurine writhes and then shatters into pieces!");
81.   	    else goto top;
82.   		/* rndmonst() returns something not genocided always, so this
83.   		 * means it was a cat or dog; loop back to try again until
84.   		 * either rndmonst() is called, or if only one of cat/dog
85.   		 * was genocided, they get the other.
86.   		 */
87.   	    return;
88.   	}
89.   	initedog(mtmp);
90.   	mtmp->msleep = 0;
91.   	if (otmp && otmp->cursed) { /* cursed figurine */
92.   		You("get a bad feeling about this.");
93.   		mtmp->mtame = mtmp->mpeaceful = 0;
94.   		newsym(mtmp->mx, mtmp->my);
95.   	}
96.   	set_malign(mtmp); /* more alignment changes */
97.   }
98.   
99.   struct monst *
100.  makedog()
101.  {
102.  	register struct monst *mtmp;
103.  	char *petname;
104.  	int   pettype;
105.  	static int petname_used = 0;
106.  
107.  	pettype = pet_type();
108.  	if (pettype == PM_LITTLE_DOG)
109.  		petname = dogname;
110.  	else
111.  		petname = catname;
112.  
113.  	mons[pettype].pxlth = sizeof(struct edog);
114.  	mtmp = makemon(&mons[pettype], u.ux, u.uy);
115.  	mons[pettype].pxlth = 0;
116.  
117.  	if(!mtmp) return((struct monst *) 0); /* pets were genocided */
118.  
119.  	if (!petname_used++ && *petname)
120.  		mtmp = christen_monst(mtmp, petname);
121.  
122.  	initedog(mtmp);
123.  	return(mtmp);
124.  }
125.  
126.  void
127.  losedogs()
128.  {
129.  	register struct monst *mtmp,*mtmp0,*mtmp2;
130.  	int num_segs;
131.  
132.  	while(mtmp = mydogs){
133.  		mydogs = mtmp->nmon;
134.  		mtmp->nmon = fmon;
135.  		fmon = mtmp;
136.  		if (mtmp->isshk)
137.  		    set_residency(mtmp, FALSE);
138.  
139.  		num_segs = mtmp->wormno;
140.  		/* baby long worms have no tail so don't use is_longworm() */
141.  		if ( (mtmp->data == &mons[PM_LONG_WORM]) &&
142.  		     (mtmp->wormno = get_wormno()) ) {
143.  		    initworm(mtmp, num_segs);
144.  		    /* tail segs are not yet initialized or displayed */
145.  		} else mtmp->wormno = 0;
146.  		mnexto(mtmp);
147.  	}
148.  
149.  #if defined(LINT) || defined(GCC_WARN)
150.  	mtmp0 = (struct monst *)0;
151.  #endif
152.  	for(mtmp = migrating_mons; mtmp; mtmp = mtmp2) {
153.  		mtmp2 = mtmp->nmon;
154.  		if(mtmp->mx == u.uz.dnum && mtmp->mux == u.uz.dlevel) {
155.  		    mtmp->mx = 0;		   /* save xyloc in mtmp->my */
156.  		    mtmp->mux = u.ux; mtmp->muy = u.uy; /* not really req'd */
157.  		    if(mtmp == migrating_mons)
158.  			migrating_mons = mtmp->nmon;
159.  		    else
160.  			mtmp0->nmon = mtmp->nmon;
161.  		    mtmp->nmon = fmon;
162.  		    fmon = mtmp;
163.  		    num_segs = mtmp->wormno;
164.  		    if ( (mtmp->data == &mons[PM_LONG_WORM]) &&
165.  			 (mtmp->wormno = get_wormno()) ) {
166.  			initworm(mtmp, num_segs);
167.  			/* tail segs are not yet initialized or displayed */
168.  		    } else mtmp->wormno = 0;
169.  
170.  		    if(mtmp->mlstmv < monstermoves-1) {
171.  			/* heal monster for time spent in limbo */
172.  			long nmv = monstermoves - mtmp->mlstmv - 1;
173.  
174.  			/* might stop being afraid, blind or frozen */
175.  			/* set to 1 and allow final decrement in movemon() */
176.  			if(nmv >= (long)mtmp->mblinded) mtmp->mblinded = 1;
177.  			else mtmp->mblinded -= nmv;
178.  			if(nmv >= (long)mtmp->mfrozen) mtmp->mfrozen = 1;
179.  			else mtmp->mfrozen -= nmv;
180.  			if(nmv >= (long)mtmp->mfleetim) mtmp->mfleetim = 1;
181.  			else mtmp->mfleetim -= nmv;
182.  
183.  			/* might be able to use special ability again */
184.  			if(nmv > (long)mtmp->mspec_used) mtmp->mspec_used = 0;
185.  			else mtmp->mspec_used -= nmv;
186.  
187.  			if(!regenerates(mtmp->data)) nmv /= 20;
188.  			if((long)mtmp->mhp + nmv >= (long)mtmp->mhpmax)
189.  			    mtmp->mhp = mtmp->mhpmax;
190.  			else mtmp->mhp += nmv;
191.  			mtmp->mlstmv = monstermoves-1;
192.  		    }
193.  
194.  		    if (mtmp->data->geno & G_GENOD) {
195.  #ifdef KOPS
196.  			allow_kops = FALSE;
197.  #endif
198.  			mondead(mtmp);	/* must put in fmon list first */
199.  #ifdef KOPS
200.  			allow_kops = TRUE;
201.  #endif
202.  		    } else if (mtmp->isshk && mtmp->mpeaceful)
203.  			home_shk(mtmp, TRUE);
204.  		    else switch(mtmp->my) {
205.  			xchar *xlocale, *ylocale;
206.  
207.  			case 1: xlocale = &xupstair; ylocale = &yupstair;
208.  				goto common;
209.  			case 2: xlocale = &xdnstair; ylocale = &ydnstair;
210.  				goto common;
211.  			case 3: xlocale = &xupladder; ylocale = &yupladder;
212.  				goto common;
213.  			case 4: xlocale = &xdnladder; ylocale = &ydnladder;
214.  				goto common;
215.  			case 5: xlocale = &sstairs.sx; ylocale = &sstairs.sy;
216.  				goto common;
217.  common:
218.  				if (*xlocale && *ylocale) {
219.  			    (void) mnearto(mtmp, *xlocale, *ylocale, FALSE);
220.  				    break;
221.  				} /* else fall through */
222.  			default: 
223.  				rloc(mtmp);
224.  				break;
225.  			}
226.  		} else
227.  		    mtmp0 = mtmp;
228.  		if (mtmp->isshk)
229.  		    set_residency(mtmp, FALSE);
230.  	}
231.  }
232.  
233.  #endif /* OVLB */
234.  #ifdef OVL2
235.  
236.  void
237.  keepdogs()
238.  {
239.  	register struct monst *mtmp;
240.  	register struct obj *obj;
241.  	int num_segs = 0;
242.  
243.  	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
244.  	    if(((monnear(mtmp, u.ux, u.uy) && levl_follower(mtmp)) ||
245.  		/* the wiz will level t-port from anywhere to chase
246.  		   the amulet; if you don't have it, will chase you
247.  		   only if in range. -3. */
248.  			(u.uhave.amulet && mtmp->iswiz))
249.  			&& !mtmp->msleep && mtmp->mcanmove) {
250.  
251.  		/* long worms can now change levels! - Norm */
252.  
253.  		if (mtmp->mtame && mtmp->meating && canseemon(mtmp)) {
254.  			pline("%s is still eating.", Monnam(mtmp));
255.  			goto merge;
256.  		}
257.  		if (mon_has_amulet(mtmp)) {
258.  			pline("%s seems very disoriented for a moment.",
259.  				Monnam(mtmp));
260.  		merge:
261.  #ifdef WALKIES
262.  			if (mtmp->mleashed) {
263.  				pline("%s leash suddenly comes loose.",
264.  					humanoid(mtmp->data)
265.  					    ? (mtmp->female ? "Her" : "His")
266.  					    : "Its");
267.  				m_unleash(mtmp);
268.  			}
269.  #endif
270.  			continue;
271.  		}
272.  		if (mtmp->isshk)
273.  			set_residency(mtmp, TRUE);
274.  
275.  		if (mtmp->wormno) {
276.  		    /* NOTE: worm is truncated to # segs = max wormno size */
277.  		    num_segs = min(count_wsegs(mtmp), MAX_NUM_WORMS - 1);
278.  		    wormgone(mtmp);
279.  		}
280.  
281.  		/* set minvent's obj->no_charge to 0 */
282.  		for(obj = mtmp->minvent; obj; obj = obj->nobj) {
283.  		    if(Is_container(obj))
284.  		        picked_container(obj); /* does the right thing */
285.  		    obj->no_charge = 0;
286.  		}
287.  
288.  		relmon(mtmp);
289.  		newsym(mtmp->mx,mtmp->my);
290.  		mtmp->mx = mtmp->my = 0; /* avoid mnexto()/MON_AT() problem */
291.  		mtmp->wormno = num_segs;
292.  		mtmp->nmon = mydogs;
293.  		mydogs = mtmp;
294.  		keepdogs();	/* we destroyed the link, so use recursion */
295.  		return;		/* (admittedly somewhat primitive) */
296.  	}
297.  }
298.  
299.  #endif /* OVL2 */
300.  #ifdef OVLB
301.  
302.  void
303.  migrate_to_level(mtmp, tolev, xyloc) 
304.  	register struct monst *mtmp; 
305.  	xchar tolev;  	/* destination level */
306.  	xchar xyloc;	/* destination xy location: */
307.  			/* 	0: rnd,
308.  			 *	1: <,
309.  			 *	2: >,
310.  			 *	3: < ladder,
311.  			 *	4: > ladder,
312.  			 *	5: sstairs
313.  			 */ 
314.  {
315.          register struct obj *obj;
316.  	int num_segs = 0;	/* count of worm segments */
317.  
318.  	if (mtmp->isshk)
319.  	    set_residency(mtmp, TRUE);
320.  
321.  	if (mtmp->wormno) {
322.  	  /* **** NOTE: worm is truncated to # segs = max wormno size **** */
323.  	    num_segs = min(count_wsegs(mtmp), MAX_NUM_WORMS - 1);
324.  	    wormgone(mtmp);
325.  	}
326.  
327.  	/* set minvent's obj->no_charge to 0 */
328.  	for(obj = mtmp->minvent; obj; obj = obj->nobj) {
329.  	    if(Is_container(obj))
330.  	        picked_container(obj); /* does the right thing */
331.  	    obj->no_charge = 0;
332.  	}
333.  
334.  	relmon(mtmp);
335.  	mtmp->nmon = migrating_mons;
336.  	migrating_mons = mtmp;
337.  #ifdef WALKIES
338.  	if (mtmp->mleashed)  {
339.  		pline("The leash comes off!");
340.  		m_unleash(mtmp);
341.  	}
342.  #endif
343.  	mtmp->mtame = 0;
344.  	newsym(mtmp->mx,mtmp->my);
345.  	/* make sure to reset mtmp->[mx,my] to 0 when releasing, */
346.  	/* so rloc() on next level doesn't affect MON_AT() state */
347.  	mtmp->mx = ledger_to_dnum((xchar)tolev); 
348.  	mtmp->mux = ledger_to_dlev((xchar)tolev); 
349.  	mtmp->my = xyloc;
350.  	mtmp->muy = 0;
351.  	mtmp->wormno = num_segs;
352.  	mtmp->mlstmv = monstermoves;
353.  }
354.  
355.  #endif /* OVLB */
356.  #ifdef OVL1
357.  
358.  /* return quality of food; the lower the better */
359.  /* fungi will eat even tainted food */
360.  int
361.  dogfood(mon,obj)
362.  struct monst *mon;
363.  register struct obj *obj;
364.  {
365.  	boolean carni = carnivorous(mon->data);
366.  	boolean herbi = herbivorous(mon->data);
367.  	struct permonst *fptr = &mons[obj->corpsenm];
368.  
369.  	switch(obj->oclass) {
370.  	case FOOD_CLASS:
371.  	    if (obj->otyp == CORPSE &&
372.  		((obj->corpsenm == PM_COCKATRICE && !resists_ston(mon->data))
373.  		 || is_rider(fptr)))
374.  		    return TABU;
375.  
376.  	    if (!carni && !herbi)
377.  		    return (obj->cursed ? UNDEF : APPORT);
378.  
379.  	    switch (obj->otyp) {
380.  		case TRIPE_RATION:
381.  		    return (carni ? DOGFOOD : MANFOOD);
382.  		case EGG:
383.  		    if (obj->corpsenm == PM_COCKATRICE &&
384.  						!resists_ston(mon->data))
385.  			return POISON;
386.  		    return (carni ? CADAVER : MANFOOD);
387.  		case CORPSE:
388.  		    if ((obj->age+50 <= monstermoves
389.  					    && obj->corpsenm != PM_LIZARD
390.  					    && mon->data->mlet != S_FUNGUS) ||
391.  			(acidic(&mons[obj->corpsenm]) &&
392.  						!resists_acid(mon->data)) ||
393.  			(poisonous(&mons[obj->corpsenm]) &&
394.  						!resists_poison(mon->data)))
395.  			return POISON;
396.  		    else if (fptr->mlet == S_FUNGUS)
397.  			return (herbi ? CADAVER : MANFOOD);
398.  		    else if (is_meaty(fptr))
399.  		        return (carni ? CADAVER : MANFOOD);
400.  		    else return (carni ? ACCFOOD : MANFOOD);
401.  		case CLOVE_OF_GARLIC:
402.  		    return (is_undead(mon->data) ? TABU :
403.  			    (herbi ? ACCFOOD : MANFOOD));
404.  		case TIN:
405.  		    return (metallivorous(mon->data) ? ACCFOOD : MANFOOD);
406.  		case APPLE:
407.  		case CARROT:
408.  		    return (herbi ? DOGFOOD : MANFOOD);
409.  		case BANANA:
410.  		    return ((mon->data->mlet == S_YETI) ? DOGFOOD :
411.  			    (herbi ? ACCFOOD : MANFOOD));
412.  		default:
413.  #ifdef TUTTI_FRUTTI
414.  		    return (obj->otyp > SLIME_MOLD ?
415.  #else
416.  		    return (obj->otyp > CLOVE_OF_GARLIC ?
417.  #endif
418.  			    (carni ? ACCFOOD : MANFOOD) :
419.  			    (herbi ? ACCFOOD : MANFOOD));
420.  	    }
421.  	default:
422.  	    if (hates_silver(mon->data) && 
423.  		objects[obj->otyp].oc_material == SILVER)
424.  		return(TABU);
425.  	    if (mon->data == &mons[PM_GELATINOUS_CUBE] && is_organic(obj))
426.  		return(ACCFOOD);
427.  	    if (metallivorous(mon->data) && is_metallic(obj))
428.  		/* Ferrous based metals are preferred. */
429.  		return(objects[obj->otyp].oc_material == IRON ? DOGFOOD :
430.  		       ACCFOOD);
431.  	    if(!obj->cursed && obj->oclass != BALL_CLASS &&
432.  						obj->oclass != CHAIN_CLASS)
433.  		return(APPORT);
434.  	    /* fall into next case */
435.  	case ROCK_CLASS:
436.  	    return(UNDEF);
437.  	}
438.  }
439.  
440.  #endif /* OVL1 */
441.  #ifdef OVLB
442.  
443.  struct monst *
444.  tamedog(mtmp, obj)
445.  register struct monst *mtmp;
446.  register struct obj *obj;
447.  {
448.  	register struct monst *mtmp2;
449.  
450.  	/* The Wiz, Medusa and the quest nemeses aren't even made peaceful. */
451.  	if (mtmp->iswiz || mtmp->data == &mons[PM_MEDUSA]
452.  #ifdef MULDGN
453.  	    || (mtmp->data->mflags3 & M3_WANTSARTI)
454.  #endif
455.  	    )
456.  		return((struct monst *)0);
457.  
458.  	/* worst case, at least he'll be peaceful. */
459.  	mtmp->mpeaceful = 1;
460.  	set_malign(mtmp);
461.  	if(flags.moonphase == FULL_MOON && night() && rn2(6) && obj
462.  						&& mtmp->data->mlet == S_DOG)
463.  		return((struct monst *)0);
464.  
465.  	/* If we cannot tame him, at least he's no longer afraid. */
466.  	mtmp->mflee = 0;
467.  	mtmp->mfleetim = 0;
468.  	if(mtmp->mtame || !mtmp->mcanmove ||
469.  	   /* monsters with conflicting structures cannot be tamed */
470.  	   mtmp->isshk || mtmp->isgd || mtmp->ispriest || mtmp->isminion ||
471.  #ifdef POLYSELF
472.  	   is_human(mtmp->data) || (is_demon(mtmp->data) && !is_demon(uasmon))
473.  #else
474.  	   is_human(mtmp->data) || is_demon(mtmp->data)
475.  #endif
476.  	   || (mtmp->data->mflags3 &
477.  	       (M3_WANTSAMUL|M3_WANTSBELL|M3_WANTSBOOK|M3_WANTSCAND))
478.  	   )
479.  		return((struct monst *)0);
480.  	if(obj) {
481.  		if(dogfood(mtmp, obj) >= MANFOOD) return((struct monst *)0);
482.  		if(cansee(mtmp->mx,mtmp->my))
483.  			pline("%s devours the %s.", Monnam(mtmp), xname(obj));
484.  		obfree(obj, (struct obj *)0);
485.  	}
486.  	if (u.uswallow && mtmp == u.ustuck)
487.  		expels(mtmp, mtmp->data, TRUE);
488.  	mtmp2 = newmonst(sizeof(struct edog) + mtmp->mnamelth);
489.  	*mtmp2 = *mtmp;
490.  	mtmp2->mxlth = sizeof(struct edog);
491.  	if(mtmp->mnamelth) Strcpy(NAME(mtmp2), NAME(mtmp));
492.  	initedog(mtmp2);
493.  	replmon(mtmp,mtmp2);
494.  	newsym(mtmp2->mx, mtmp2->my);
495.  	return(mtmp2);
496.  }
497.  
498.  #endif /* OVLB */
499.  
500.  /*dog.c*/

Also on Fandom

Random Wiki