Source:NetHack 3.0.0/wizard.c

Below is the full text to wizard.c from the source code of NetHack 3.0.0. To link to a particular line, write [[NetHack 3.0.0/wizard.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.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

1.    /*	SCCS Id: @(#)wizard.c	3.0	88/04/11
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    /* wizard code - inspired by rogue code from Merlyn Leroy (digi-g!brian) */
6.    /*	       - heavily modified to give the wiz balls.  (genat!mike)   */
7.    /*	       - dewimped and given some maledictions. -3. */
8.    
9.    #include "hack.h"
10.   
11.   #ifdef HARD
12.   /*	TODO:	Expand this list.	*/
13.   static const int nasties[] = {
14.   	PM_COCKATRICE, PM_ETTIN, PM_STALKER, PM_MINOTAUR, PM_RED_DRAGON,
15.   	PM_GREEN_DRAGON, PM_OWLBEAR, PM_PURPLE_WORM, PM_ROCK_TROLL, PM_XAN,
16.   	PM_GREMLIN, PM_UMBER_HULK, PM_VAMPIRE_LORD, PM_XORN, PM_ZRUTY,
17.   #ifdef ARMY
18.   	PM_CAPTAIN,
19.   #endif
20.   	};
21.   #endif /* HARD */
22.   
23.   /*	TODO:	investigate this. */
24.   static const char wizapp[] = {
25.   	S_HUMAN, S_DEMON, S_VAMPIRE, S_DRAGON, S_TROLL, S_UMBER,
26.   	S_XORN, S_XAN, S_COCKATRICE, S_EYE, S_NAGA, S_TRAPPER,
27.   	/* '1' /* Historical reference */ };
28.   
29.   /* If he has found the Amulet, make the wizard appear after some time */
30.   void
31.   amulet(){
32.   	register struct monst *mtmp;
33.   
34.   	if(!flags.made_amulet || !flags.no_of_wizards)
35.   		return;
36.   	/* find wizard, and wake him if necessary */
37.   	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
38.   	    if(mtmp->iswiz && mtmp->msleep && !rn2(40))
39.   		    if(u.uhave_amulet) {
40.   			mtmp->msleep = 0;
41.   			if(dist(mtmp->mx,mtmp->my) > 2)
42.   			    pline(
43.       "You get the creepy feeling that somebody noticed your taking the Amulet."
44.   			    );
45.   			return;
46.   		    }
47.   }
48.   
49.   int
50.   mon_has_amulet(mtmp)
51.   register struct monst *mtmp;
52.   {
53.   	register struct obj *otmp;
54.   
55.   	for(otmp = mtmp->minvent; otmp; otmp = otmp->nobj){
56.   		if(otmp->otyp == AMULET_OF_YENDOR && otmp->spe >= 0) return(1);
57.   	}
58.   	return(0);
59.   }
60.   
61.   /* the wiz's prime directive */
62.   int
63.   wiz_get_amulet(mtmp)
64.   register struct monst *mtmp;
65.   {
66.   	/* if he doesn't have the amulet */
67.   	if(!mon_has_amulet(mtmp))
68.   	    if(u.uhave_amulet) {
69.   
70.   		/* player has it, dog them til he gets it or dies */
71.   		mnexto(mtmp);
72.   	    } else {
73.   		register struct obj *otmp;
74.   
75.   		/* if it is lying around someplace, he teleports to it */
76.   		for(otmp = fobj; otmp; otmp = otmp->nobj)
77.   		    if(otmp->otyp == AMULET_OF_YENDOR && !otmp->spe) {
78.   			if(u.ux == otmp->ox && u.uy == otmp->oy) {
79.   			    /* player is standing on it */
80.   			    mnexto(mtmp);
81.   			    return(0);
82.   			}
83.   			if(!levl[otmp->ox][otmp->oy].mmask ||
84.   			    (mtmp->mx == otmp->ox && mtmp->my == otmp->oy)) {
85.   
86.   			    /* teleport to it and pick it up */
87.   			    levl[mtmp->mx][mtmp->my].mmask = 0;
88.   			    levl[otmp->ox][otmp->oy].mmask = 1;
89.   			    mtmp->mx = otmp->ox;
90.   			    mtmp->my = otmp->oy;
91.   			    freeobj(otmp);
92.   			    mpickobj(mtmp, otmp);
93.   			    pmon(mtmp);
94.   			    return(1);
95.   			}
96.   			break;
97.   		    }
98.   		/* we don't know where it is */
99.   	    }
100.  
101.  	/* he has it or can't find it */
102.  	/* secondary goal - stayin' alive */
103.  
104.  	/* if wounded, hole up on or near the stairs (to block them) */
105.  	if(mtmp->mhp < 20 + rnd(10))
106.  	    if (mtmp->mx != xupstair && mtmp->my != yupstair)
107.  		mnearto(mtmp,xupstair,yupstair,TRUE);
108.  
109.  	/* if you're not around, cast healing spells */
110.  	if(dist(mtmp->mx,mtmp->my) > (BOLT_LIM * BOLT_LIM))
111.  	    if(mtmp->mhp <= mtmp->mhpmax - 8) {
112.  		mtmp->mhp += rnd(8);
113.  		return(1);
114.  	    }
115.  	    /* healthy wiz with nothing to do */
116.  	    else if(!rn2(5))
117.  		mnexto(mtmp);
118.  
119.  	/* the effect is that below 30 hp, wily wiz teleports
120.  	   again and again, unless/until he blocks the stairs.
121.  
122.  	   if you keep away from the wounded wiz, he sits
123.  	   there healing himself, until he gets healthy
124.  	   and decides to punish you some more.  -3. */
125.  
126.  	return(0);
127.  }
128.  
129.  void
130.  aggravate()
131.  {
132.  	register struct monst *mtmp;
133.  
134.  	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
135.  		mtmp->msleep = 0;
136.  		if(mtmp->mfroz && !rn2(5))
137.  			mtmp->mfroz = 0;
138.  	}
139.  }
140.  
141.  void
142.  clonewiz()
143.  {
144.  	register struct monst *mtmp2;
145.  
146.  	if(mtmp2 = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy)) {
147.  		mtmp2->msleep = mtmp2->mtame = mtmp2->mpeaceful = 0;
148.  		if (!u.uhave_amulet && rn2(2)) {  /* give clone a fake */
149.  			mtmp2->minvent = mksobj(AMULET_OF_YENDOR,FALSE);
150.  			mtmp2->minvent->spe = -1;
151.  		}
152.  		unpmon(mtmp2);
153.  		mtmp2->mappearance = wizapp[rn2(SIZE(wizapp))];
154.  		pmon(mtmp2);
155.  	}
156.  }
157.  
158.  #ifdef HARD
159.  void
160.  nasty() {
161.  	register struct monst	*mtmp;
162.  	register int	i, tmp;
163.  
164.  	if(!rn2(10) && Inhell) dsummon(&mons[PM_WIZARD_OF_YENDOR]);
165.  	else {
166.  	    tmp = (u.ulevel > 3) ? u.ulevel/3 : 1; /* just in case -- rph */
167.  
168.  	    for(i = rnd(tmp); i > 0; --i)
169.  		if((mtmp = makemon(&mons[nasties[rn2(SIZE(nasties))]], u.ux, u.uy))) {
170.  
171.  		    mtmp->msleep = mtmp->mpeaceful = mtmp->mtame = 0;
172.  		} else
173.  		  (void)makemon((struct permonst *)0, u.ux, u.uy); /* GENOD? */
174.  	}
175.  	return;
176.  }
177.  
178.  /*	Let's resurrect the wizard, for some unexpected fun.	*/
179.  void
180.  resurrect()
181.  {
182.  	register struct monst	*mtmp;
183.  
184.  	if(mtmp = makemon(&mons[PM_WIZARD_OF_YENDOR], u.ux, u.uy)) {
185.  		mtmp->msleep = mtmp->mtame = mtmp->mpeaceful = 0;
186.  		pline("A voice booms out...");
187.  		pline("\"So thou thought thou couldst kill me, fool.\"");
188.  	}
189.  
190.  }
191.  
192.  /*	Here, we make trouble for the poor shmuck who actually	*/
193.  /*	managed to do in the Wizard.				*/
194.  void
195.  intervene() {
196.  
197.  	switch(rn2(6)) {
198.  
199.  	    case 0:
200.  	    case 1:	You("feel vaguely nervous.");
201.  			break;
202.  	    case 2:	if (!Blind)
203.  			    You("notice a %s glow surrounding you.",
204.  				  Hallucination ? hcolor() : black);
205.  			rndcurse();
206.  			break;
207.  	    case 3:	aggravate();
208.  			break;
209.  	    case 4:	nasty();
210.  			break;
211.  	    case 5:	if (!flags.no_of_wizards) resurrect();
212.  			break;
213.  	}
214.  }
215.  
216.  void
217.  wizdead(mtmp)
218.  register struct monst	*mtmp;
219.  {
220.  	flags.no_of_wizards--;
221.  	if(! u.udemigod)  {
222.  
223.  		u.udemigod = TRUE;
224.  		u.udg_cnt = rn1(250, 50);
225.  
226.  	/*  Make the wizard meaner the next time he appears  */
227.  		mtmp->data->mlevel++;
228.  		mtmp->data->ac--;
229.  	} else  
230.  		mtmp->data->mlevel++;
231.  }
232.  #endif /* HARD /**/
233.  
234.  const char *random_insult[] = {
235.  	"antic",
236.  	"blackguard",
237.  	"caitiff",
238.  	"chucklehead",
239.  	"coistrel",
240.  	"craven",
241.  	"cretin",
242.  	"cur",
243.  	"dastard",
244.  	"demon fodder",
245.  	"dimwit",
246.  	"dolt",
247.  	"fool",
248.  	"footpad",
249.  	"imbecile",
250.  	"knave",
251.  	"maledict",
252.  	"miscreant",
253.  	"niddering",
254.  	"poltroon",
255.  	"rattlepate",
256.  	"reprobate",
257.  	"scapegrace",
258.  	"varlet",
259.  	"villein",	/* (sic.) */
260.  	"wittol",
261.  	"worm",
262.  	"wretch",
263.  };
264.  
265.  const char *random_malediction[] = {
266.  	"Hell shall soon claim thy remains,",
267.  	"I chortle at thee, pathetic",
268.  	"Prepare to die,",
269.  	"Resistance is useless,",
270.  	"Surrender or die, thou",
271.  	"There shall be no mercy, yon",
272.  	"Thou shalt repent of thy cunning,",
273.  	"Thou art as a flea to me,",
274.  	"Thou art doomed,",
275.  	"Thy fate is sealed,",
276.  	"Verily, thou shalt be one dead"
277.  /*	"Go play leapfrog with a unicorn,", */
278.  };
279.  
280.  /* Insult the player */
281.  void
282.  cuss(mtmp)
283.  register struct monst	*mtmp;
284.  {
285.  	switch (rn2(5)) {
286.  	    case 0: pline("%s casts aspersions on your ancestry.",
287.  			  Monnam(mtmp));
288.  		    break;
289.  	    case 1: pline("%s laughs fiendishly.", /* typical bad guy action */
290.  			  Monnam(mtmp));
291.  		    break;
292.  	    default:
293.  		    if (u.uhave_amulet && !rn2(SIZE(random_insult)))
294.  			pline("\"Relinquish the amulet, %s!\"",
295.  			      random_insult[rn2(SIZE(random_insult))]);
296.  		    else if (u.uhp < 5 && !rn2(2))	/* Panic */
297.  			pline(rn2(2) ?
298.  				"\"Even now thy life force ebbs, %s!\"" :
299.  				"\"Savor thy breath, %s, it be thine last!\"",
300.  			      random_insult[rn2(SIZE(random_insult))]);
301.  		    else if (mtmp->mhp < 5 && !rn2(2))	/* Parthian shot */
302.  			pline(rn2(2) ?
303.  				"\"I shall return.\"" :
304.  				"\"I'll be back.\"");
305.  		    else
306.  			pline("\"%s %s!\"",
307.  			      random_malediction[rn2(SIZE(random_malediction))],
308.  			      random_insult[rn2(SIZE(random_insult))]);
309.  	}
310.  }