Source:NetHack 2.3e/mhitu.c

From NetHackWiki
Jump to navigation Jump to search

Below is the full text to mhitu.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: @(#)mhitu.c	2.3	88/01/21
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    
4.    #include	"hack.h"
5.    extern struct monst *makemon();
6.    extern struct obj *carrying();
7.    #ifdef KAA
8.    extern char pl_character[];
9.    #endif
10.   
11.   char *breathe[]= {	"fragments",
12.   			"fire",
13.   			"sleep gas",
14.   			"frost",
15.   			"death",
16.   			"lightening",
17.   			"poison gas",
18.   			"acid" };
19.   
20.   /*
21.    * mhitu: monster hits you
22.    *	  returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
23.    */
24.   mhitu(mtmp)
25.   register struct monst *mtmp;
26.   {
27.   	register struct permonst *mdat = mtmp->data;
28.   	register int tmp, ctmp;
29.   
30.   	nomul(0);
31.   
32.   	/* If swallowed, can only be affected by hissers and by u.ustuck */
33.   	if(u.uswallow) {
34.   		if(mtmp != u.ustuck) {
35.   			if(mdat->mlet == 'c' && !rn2(13)) {
36.   				pline("Outside, you hear %s's hissing!",
37.   					monnam(mtmp));
38.   				pline("%s gets turned to stone!",
39.   					Monnam(u.ustuck));
40.   				pline("And the same fate befalls you.");
41.   				done_in_by(mtmp);
42.   				/* "notreached": not return(1); */
43.   			}
44.   			return(0);
45.   		}
46.   		switch(mdat->mlet) {	/* now mtmp == u.ustuck */
47.   		case ',':
48.   			youswld(mtmp, (u.uac > 0) ? u.uac+4 : 4,
49.   				5, Monnam(mtmp));
50.   			break;
51.   		case '\:
52.   			youswld(mtmp,rnd(6),7,Monnam(mtmp));
53.   			break;
54.   		case 'P':
55.   			youswld(mtmp,d(2,4),12,Monnam(mtmp));
56.   			break;
57.   		default:
58.   			/* This is not impossible! */
59.   #ifdef DGKMOD
60.   			/* If the swallowing monster changes into a monster
61.   			 * that is not capable of swallowing you, you get
62.   			 * regurgitated - dgk
63.   			 */
64.   			pline("You get regurgitated!");
65.   			u.ux = mtmp->mx;
66.   			u.uy = mtmp->my;
67.   			u.uswallow = 0;
68.   			u.ustuck = 0;
69.   			mnexto(mtmp);
70.   			setsee();
71.   			docrt();
72.   			break;
73.   #else
74.   			pline("The mysterious monster totally digests you.");
75.   			u.uhp = 0;
76.   #endif /* DGKMOD /**/
77.   		}
78.   		if(u.uhp < 1) done_in_by(mtmp);
79.   		return(0);
80.   	}
81.   
82.   	if(mdat->mlet == 'c' && Stoned)
83.   		return(0);
84.   
85.   	/* make eels visible the moment they hit/miss us */
86.   	if(mdat->mlet == ';' && mtmp->minvis && cansee(mtmp->mx,mtmp->my)){
87.   		mtmp->minvis = 0;
88.   		pmon(mtmp);
89.   	}
90.   	if(!index("1&DuxynNF",mdat->mlet))
91.   		tmp = hitu(mtmp,d(mdat->damn,mdat->damd));
92.   	else
93.   		tmp = 0;
94.   	if(index(UNDEAD, mdat->mlet) && midnight())
95.   		tmp += hitu(mtmp,d(mdat->damn,mdat->damd));
96.   
97.   	ctmp = tmp && !mtmp->mcan &&
98.   	  (!uarm || objects[uarm->otyp].a_can < rnz(3));
99.   	switch(mdat->mlet) {
100.  	case '1':
101.  		if(wiz_hit(mtmp)) return(1);	/* he disappeared */
102.  		break;
103.  	case '&':
104.  		if(mtmp->isdjinni) {
105.  			(void) hitu(mtmp,d(mdat->damn, mdat->damd));
106.  			(void) hitu(mtmp,d(mdat->damn, mdat->damd));
107.  		} else demon_hit(mtmp);
108.  		break;
109.  	case ',':
110.  		if(tmp) justswld(mtmp,Monnam(mtmp));
111.  		break;
112.  	case '\:
113.  		if (tmp) justswld(mtmp,Monnam(mtmp));
114.  		break;
115.  	case ';':
116.  		if(ctmp) {
117.  			if (!rn2(6)) {
118.  				if (!Blind)
119.  					pline("%s shocks you!", Monnam(mtmp));
120.  				else	pline("It shocks you!");
121.  				if (Shock_resistance)
122.  					pline("You aren't affected!");
123.  				else	losehp_m(d(4,6),mtmp);
124.  			} else
125.  			if(!u.ustuck && !rn2(10)) {
126.  				pline("%s swings itself around you!",
127.  					Monnam(mtmp));
128.  				u.ustuck = mtmp;
129.  			} else if(u.ustuck == mtmp &&
130.  			    levl[mtmp->mx][mtmp->my].typ == POOL) {
131.  				pline("%s drowns you ...", Monnam(mtmp));
132.  				done("drowned");
133.  			}
134.  		}
135.  		break;
136.  	case 'A':
137.  		if(ctmp && rn2(2)) {
138.  		    if(Poison_resistance)
139.  			pline("The sting doesn't seem to affect you.");
140.  		    else {
141.  			pline("You feel weaker!");
142.  			losestr(1);
143.  		    }
144.  		}
145.  		break;
146.  	case 'C':
147.  		(void) hitu(mtmp,rnd(6));
148.  		break;
149.  	case 'c':
150.  		if(!rn2(5)) {
151.  		    if (mtmp->mcan)
152.  			pline("You hear a cough from %s!", monnam(mtmp));
153.  		    else {
154.  			pline("You hear %s's hissing!", monnam(mtmp));
155.  			if(!rn2(20) || (flags.moonphase == NEW_MOON
156.  			    && !carrying(DEAD_LIZARD) && u.usym != 'c')) {
157.  				Stoned = 5;
158.  				/* pline("You get turned to stone!"); */
159.  				/* done_in_by(mtmp); */
160.  			}
161.  		    }
162.  		}
163.  		break;
164.  	case 'D':
165.  		if(rn2(6) || mtmp->mcan) {
166.  			(void) hitu(mtmp,d(3,10));
167.  			(void) hitu(mtmp,rnd(8));
168.  			(void) hitu(mtmp,rnd(8));
169.  			break;
170.  		}
171.  		kludge("%s breathes %s!",Monnam(mtmp), breathe[mtmp->dragon]);
172.  		buzz((int) -10 - (mtmp->dragon),
173.  			mtmp->mx,mtmp->my,u.ux-mtmp->mx,u.uy-mtmp->my);
174.  		break;
175.  	case 'd':
176.  		(void) hitu(mtmp,d(2, (flags.moonphase == FULL_MOON) ? 3 : 4));
177.  		break;
178.  	case 'e':
179.  		(void) hitu(mtmp,d(3,6));
180.  		break;
181.  	case 'F':
182.  		if(mtmp->mcan) break;
183.  		kludge("%s explodes!", Monnam(mtmp));
184.  		if(Cold_resistance) pline("You don't seem affected by it.");
185.  		else {
186.  			xchar dn;
187.  			if(17-(u.ulevel/2) > rnd(20)) {
188.  				pline("You get blasted!");
189.  				dn = 6;
190.  			} else {
191.  				pline("You duck the blast...");
192.  				dn = 3;
193.  			}
194.  			losehp_m(d(dn,6), mtmp);
195.  		}
196.  		mondead(mtmp);
197.  		return(1);
198.  	case 'G':
199.  		if(!mtmp->isgremlin || mtmp->mcan) break;
200.  		if(!rn2(10)) {
201.  			if (Blind)
202.  				pline("You hear laughter.");
203.  			else
204.  				pline("%s chuckles.", Monnam(mtmp));
205.  			attrcurse();
206.  		}
207.  		break;
208.  	case 'g':
209.  		if(ctmp && multi >= 0 && !rn2(3)) {
210.  		/* fix so we do not know what hit us when blind  KAA */
211.  		    if (Blind)
212.  			pline("You are frozen by its juices!");
213.  		    else
214.  			pline("You are frozen by %s's juices!",monnam(mtmp));
215.  		    nomul(-rnd(10));
216.  		}
217.  		break;
218.  	case 'h':
219.  		if(ctmp && multi >= 0 && !rn2(5)) {
220.  		    nomul(-rnd(10));
221.  		    if (Blind)
222.  			pline("You are put to sleep by its bite!");
223.  		    else
224.  			pline("You are put to sleep by %s's bite!",monnam(mtmp));
225.  		}
226.  		break;
227.  	case 'j':
228.  		tmp = hitu(mtmp,rnd(3));
229.  		tmp &= hitu(mtmp,rnd(3));
230.  		if(tmp){
231.  			(void) hitu(mtmp,rnd(4));
232.  			(void) hitu(mtmp,rnd(4));
233.  		}
234.  		break;
235.  	case 'k':
236.  		if((hitu(mtmp,rnd(4)) || !rn2(3)) && ctmp){
237.  			poisoned("bee's sting",mdat->mname);
238.  		}
239.  		break;
240.  	case 'L':
241.  #ifdef KAA
242.  		if (u.usym=='L') break;
243.  #endif
244.  		if(!mtmp->mcan && tmp) stealgold(mtmp);
245.  		break;
246.  	case 'N':
247.  #ifdef KAA
248.  		if (u.usym=='N') {
249.  			if (mtmp->minvent)
250.  	pline("%s brags about the goods some dungeon explorer provided.",
251.  	Monnam(mtmp));
252.  			else
253.  	pline("%s makes some remarks about how difficult theft is lately.",
254.  	Monnam(mtmp));
255.  			rloc(mtmp);
256.  		} else
257.  #endif
258.  		if(mtmp->mcan && !Blind) {
259.  		pline("%s tries to seduce you, but you seem not interested.",
260.  			Amonnam(mtmp, "plain"));
261.  			if(rn2(3)) rloc(mtmp);
262.  		} else if(steal(mtmp)) {
263.  			rloc(mtmp);
264.  			mtmp->mflee = 1;
265.  		}
266.  		break;
267.  	case 'n':
268.  		if(!uwep
269.  #ifdef KAA
270.  		   && u.usym == '@'
271.  #endif
272.  #ifdef SHIRT
273.  		   && !uarmu
274.  #endif
275.  		   && !uarm && !uarmh && !uarms && !uarmg) {
276.  		    pline("%s hits! (I hope you don't mind)",
277.  			Monnam(mtmp));
278.  			u.uhp += rnd(7);
279.  			if(!rn2(7)) u.uhpmax++;
280.  			if(u.uhp > u.uhpmax) u.uhp = u.uhpmax;
281.  			flags.botl = 1;
282.  			if(!rn2(50)) rloc(mtmp);
283.  		} else {
284.  #ifdef KAA
285.  			if (pl_character[0] == 'H' && u.usym == '@') {
286.  			    if (!(moves % 5))
287.  				pline("Doc, I can't help you unless you cooperate.");
288.  			} else {
289.  #endif
290.  				(void) hitu(mtmp,d(2,6));
291.  				(void) hitu(mtmp,d(2,6));
292.  #ifdef KAA
293.  			}
294.  #endif
295.  		}
296.  		break;
297.  	case 'o':
298.  		tmp = hitu(mtmp,rnd(6));
299.  		if(hitu(mtmp,rnd(6)) && tmp &&	/* hits with both paws */
300.  		    !u.ustuck && rn2(2)) {
301.  			u.ustuck = mtmp;
302.  			kludge("%s has grabbed you!", Monnam(mtmp));
303.  			losehp_m(d(2,8), mtmp);
304.  		} else if(u.ustuck == mtmp) {
305.  			losehp_m(d(2,8), mtmp);
306.  			pline("You are being crushed.");
307.  		}
308.  		break;
309.  	case 'P':
310.  		if(ctmp && !rn2(4))
311.  			justswld(mtmp,Monnam(mtmp));
312.  		else
313.  			(void) hitu(mtmp,d(2,4));
314.  		break;
315.  	case 'Q':
316.  #ifdef KAA
317.  		if(ctmp) {
318.  			pline("Your position suddenly seems very uncertain!");
319.  			tele();
320.  		}
321.  #else
322.  		(void) hitu(mtmp,rnd(2));
323.  		(void) hitu(mtmp,rnd(2));
324.  #endif
325.  		break;
326.  	case 'R':
327.  		if(ctmp && uarmh && !uarmh->rustfree &&
328.  		   (int) uarmh->spe >= -1) {
329.  			pline("Your helmet rusts!");
330.  			uarmh->spe--;
331.  		} else
332.  		if(ctmp && uarm && !uarm->rustfree &&	/* Mike Newton */
333.  		 uarm->otyp < STUDDED_LEATHER_ARMOR &&
334.  		 (int) uarm->spe >= -1) {
335.  			pline("Your armor rusts!");
336.  			uarm->spe--;
337.  		}
338.  		break;
339.  	case 'S':
340.  		if(ctmp && !rn2(8)) {
341.  			poisoned("snake's bite",mdat->mname);
342.  		}
343.  		break;
344.  	case 's':
345.  		if(ctmp && !rn2(8)) {
346.  #ifdef SPIDERS
347.  			poisoned("giant spider's bite",mdat->mname);
348.  #else
349.  			poisoned("scorpion's sting",mdat->mname);
350.  #endif
351.  		}
352.  		(void) hitu(mtmp,rnd(8));
353.  		(void) hitu(mtmp,rnd(8));
354.  		break;
355.  	case 'T':
356.  		(void) hitu(mtmp,rnd(6));
357.  		(void) hitu(mtmp,rnd(6));
358.  		break;
359.  	case 't':
360.  		if(!rn2(5)) rloc(mtmp);
361.  		break;
362.  	case 'u':
363.  		mtmp->mflee = 1;
364.  		break;
365.  	case 'U':
366.  		(void) hitu(mtmp,d(3,4));
367.  		(void) hitu(mtmp,d(3,4));
368.  		break;
369.  	case 'v':
370.  		if(ctmp && !u.ustuck) u.ustuck = mtmp;
371.  		break;
372.  	case 'V':
373.  		if(tmp)  losehp_m(4, mtmp);
374.  		if(ctmp) losexp();
375.  		break;
376.  	case 'W':
377.  		if(ctmp) losexp();
378.  		break;
379.  #ifndef NOWORM
380.  	case 'w':
381.  		if(tmp) wormhit(mtmp);
382.  #endif
383.  		break;
384.  	case 'X':
385.  		(void) hitu(mtmp,rnd(5));
386.  		(void) hitu(mtmp,rnd(5));
387.  		(void) hitu(mtmp,rnd(5));
388.  		break;
389.  	case 'x':
390.  		{ register long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
391.  #ifdef KAA
392.  		  if (mtmp->mcan)
393.  		    pline("%s nuzzles against your %s leg!",
394.  			  Monnam(mtmp), (side==RIGHT_SIDE)?"right":"left");
395.  		  else {
396.  #endif
397.  		    pline("%s pricks your %s leg!",
398.  			  Monnam(mtmp), (side==RIGHT_SIDE)?"right":"left");
399.  		    set_wounded_legs(side, rnd(50));
400.  		    losehp_m(2, mtmp);
401.  #ifdef KAA
402.  		  }
403.  #endif
404.  		  break;
405.  		}
406.  	case 'y':
407.  		if(mtmp->mcan) break;
408.  		mondead(mtmp);
409.  		if(!Blind && (u.usym != 'y')) {
410.  			pline("You are blinded by a blast of light!");
411.  			Blinded = d(4,12);
412.  			seeoff(0);
413.  		}
414.  		return(1);
415.  	case 'Y':
416.  		(void) hitu(mtmp,rnd(6));
417.  		break;
418.  #ifdef RPH
419.  	case '8':
420.  		if (canseemon(mtmp) && !mtmp->mcan) {
421.  
422.  		        pline ("You look upon %s.", monnam(mtmp));
423.  			pline ("You turn to stone.");
424.  			done_in_by(mtmp);
425.  	    	}
426.  		(void) hitu(mtmp,d(2,6));
427.  		(void) hitu(mtmp,d(2,6));
428.  		break;
429.  #endif
430.  #ifdef STOOGES
431.  	case '@':
432.  		if(!mtmp->isstooge) break;
433.  		if(!tmp) break;
434.  		if(!rn2(6) && !Blind) {
435.  		        pline ("%s poked you in the eye.", Monnam(mtmp));
436.  		        pline ("You are blinded!");
437.  			Blinded += rnd(10);
438.  			seeoff(0);
439.  		}
440.  		break;
441.  #endif
442.  	}
443.  	if(u.uhp < 1) done_in_by(mtmp);
444.  	return(0);
445.  }
446.  
447.  hitu(mtmp,dam)
448.  register struct monst *mtmp;
449.  register dam;
450.  {
451.  	register tmp, res;
452.  
453.  	nomul(0);
454.  	if (mtmp->mfroz || mtmp->mhp <= 0) return(0);
455.  	/* If you are a 'a' or 'E' the monster might not get a second hit */
456.  	if(u.uswallow) return(0);
457.  
458.  	if(mtmp->mhide && mtmp->mundetected) {
459.  		mtmp->mundetected = 0;
460.  		if(!Blind) {
461.  			register struct obj *obj;
462.  			extern char *Xmonnam();
463.  			if(obj = o_at(mtmp->mx,mtmp->my))
464.  				pline("%s was hidden under %s!",
465.  					Xmonnam(mtmp), doname(obj));
466.  		}
467.  	}
468.  
469.  	tmp = u.uac;
470.  	/* give people with Ac = -10 at least some vulnerability */
471.  	if(tmp < 0) {
472.  		dam += tmp;		/* decrease damage */
473.  		if(dam <= 0) dam = 1;
474.  		tmp = -rn2(-tmp);
475.  	}
476.  	tmp += mtmp->data->mlevel;
477.  	if(multi < 0) tmp += 4;
478.  	if((Invis && mtmp->data->mlet != 'I') || !mtmp->mcansee) tmp -= 2;
479.  	if(mtmp->mtrapped) tmp -= 2;
480.  	if(tmp <= rnd(20)) {
481.  		if(Blind) pline("It misses.");
482.  		else pline("%s misses.",Monnam(mtmp));
483.  		res = 0;
484.  	} else {
485.  		if(Blind) pline("It hits!");
486.  		else pline("%s hits!",Monnam(mtmp));
487.  		if (u.usym == 'a' && !rn2(4)) {
488.  			pline("%s is splashed by your acid!",Monnam(mtmp));
489.  			mtmp->mhp -= rnd(10);
490.  			if(mtmp->mhp <= 0) {
491.  				pline("%s dies!",Monnam(mtmp));
492.  				xkilled(mtmp,0);
493.  			}
494.  		}
495.  		losehp_m(dam, mtmp);
496.  		res = 1;
497.  	}
498.  	stop_occupation();
499.  	if(u.usym=='E' && mtmp->mcansee && rn2(2)) {
500.  		pline("%s is frozen by your gaze!",Monnam(mtmp));
501.  		mtmp->mfroz = 1;
502.  	}
503.  	return(res);
504.  }
505.  
506.  #define	Athome	(Inhell && !mtmp->cham)
507.  
508.  #ifdef HARD
509.  demon_talk(mtmp)		/* returns 1 if we pay him off. */
510.  register struct monst *mtmp;
511.  {
512.  	char	*xmonnam(), *Xmonnam();
513.  	int	demand, offer;
514.  
515.  	if(uwep && !strcmp(ONAME(uwep), "Excalibur")) {
516.  
517.  	    pline("%s looks very angry.", Xmonnam(mtmp));
518.  	    mtmp->mpeaceful = mtmp->mtame = 0;
519.  	    return(0);
520.  	}
521.  	if(!strcmp(mtmp->data->mname, "demon")) {  /* not for regular '&'s */
522.  
523.  	    pline("%s mutters something about awful working conditions.",
524.  		  Xmonnam(mtmp));
525.  	    return(0);
526.  	}
527.  
528.  	/* Slight advantage given. */
529.  	if(!strcmp(mtmp->data->mname, "demon prince") && mtmp->minvis) {
530.  
531.  	    if (!Blind) pline("%s appears before you.", Xmonnam(mtmp));
532.  	    mtmp->minvis = 0;
533.  	    pmon(mtmp);
534.  	}
535.  	if(u.usym == '&') {	/* Won't blackmail their own. */
536.  
537.  	    pline("%s says, 'Good hunting %s.' and vanishes",
538.  		  Xmonnam(mtmp), flags.female ? "Sister" : "Brother");
539.  	    rloc(mtmp);
540.  	    return(1);
541.  	}
542.  	demand = (u.ugold * (rnd(80) + 20 * Athome)) / 100;
543.  	if(!demand)  {		/* you have no gold */
544.  	    mtmp->mpeaceful = 0;
545.  	    return(0);
546.  	} else {
547.  	    char buf[80];
548.  
549.  	    pline("%s demands %d Zorkmids for safe passage.",
550.  		  Xmonnam(mtmp), demand);
551.  	    pline("how many will you offer him?");
552.  	    getlin(buf);
553.  	    sscanf(buf, "%d", &offer);
554.  
555.  	    if(offer >= u.ugold) {
556.  		pline("You give %s all your gold.", xmonnam(mtmp, 0));
557.  		offer = u.ugold;
558.  	    } else pline("You give %s %d Zorkmids.", xmonnam(mtmp, 0), offer);
559.  	    u.ugold -= offer;
560.  
561.  	    if(offer >= demand) {
562.  		pline("%s vanishes laughing about cowardly mortals.",
563.  		      Xmonnam(mtmp));
564.  	    } else {
565.  		if(rnd(40) > (demand - offer)) {
566.  		    pline("%s scowls at you menacingly, then vanishes.",
567.  			  Xmonnam(mtmp));
568.  		} else {
569.  		    pline("%s gets angry...", Xmonnam(mtmp));
570.  		    mtmp->mpeaceful = 0;
571.  		    return(0);
572.  		}
573.  	    }
574.  	}
575.  	mondead(mtmp);
576.  	return(1);
577.  }
578.  #endif
579.  
580.  demon_hit(mtmp)
581.  register struct monst *mtmp;
582.  {
583.  	register struct	obj	*otmp;
584.  	int	onum, nobj = 0,
585.  		ml = mtmp->data->mlevel;
586.  
587.  	if(!mtmp->cham && !mtmp->mcan && !rn2(13)) {
588.  		(void) makemon(PM_DEMON,u.ux,u.uy);
589.  	} else {
590.  	    switch((!mtmp->mcan) ? rn2(ml - 5 - !Athome) : 0)   {
591.  #ifdef HARD
592.  		case 12:
593.  		case 11:
594.  		case 10:
595.  		case 9:			/* the wiz */
596.  			(void) hitu(mtmp, 1);
597.  			pline("Oh no, he's using the touch of death!");
598.  			if (rn2(ml) > 12)  {
599.  
600.  			    if(Confusion)
601.  				pline("You have an out of body experience.");
602.  			    else  {
603.  				killer = "touch of death";
604.  				done("died");
605.  			    }
606.  			} else pline("Lucky for you, it didn't work!");
607.  			break;
608.  		case 8:			/* demon princes */
609.  			(void) hitu(mtmp, 1);
610.  			if(!destroy_arm()) pline("Your skin itches.");
611.  			break;
612.  		case 7:
613.  			(void) hitu(mtmp, 1);
614.  			for (otmp = invent; otmp; otmp = otmp->nobj)  nobj++;
615.  			onum = rn2(nobj);
616.  			for(otmp = invent; onum != 0; onum--) otmp = otmp->nobj;
617.  			otmp->cursed++;
618.  			break;
619.  		case 6:			/* demon lords */
620.  			(void) hitu(mtmp, 1);
621.  			pline("You suddenly feel weaker!");
622.  			losestr(rnd(ml - 6));
623.  			break;
624.  		case 5:
625.  			(void) hitu(mtmp, 1);
626.  			if (Confusion)	pline("Hey, that tickles!");
627.  			else		pline("Huh, What? Where am I?");
628.  			HConfusion += rn1(7, 16);
629.  			break;
630.  #endif /* HARD /**/
631.  		default:		/* demons and chamelons as demons */
632.  			(void) hitu(mtmp,d(2,5 + Athome));
633.  			(void) hitu(mtmp,d(2,5 + Athome));
634.  			(void) hitu(mtmp,rnd(2 + Athome));
635.  			(void) hitu(mtmp,rnd(2 + Athome));
636.  			(void) hitu(mtmp,rn1(4,1 + Athome));
637.  			break;
638.  	    }
639.  	}
640.  	return(0);
641.  }