Wikia

Wikihack

Source:Mplayer.c

2,032pages on
this wiki
Talk0

Below is the full text to src/mplayer.c from NetHack 3.4.3. To link to a particular line, write [[mplayer.c#line123]], for example.

Top of file Edit

1.    /*	SCCS Id: @(#)mplayer.c	3.4	1997/02/04	*/
2.    /*	Copyright (c) Izchak Miller, 1992.			  */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
5.    #include "hack.h"
6.    
7.    STATIC_DCL const char *NDECL(dev_name);
8.    STATIC_DCL void FDECL(get_mplname, (struct monst *, char *));
9.    STATIC_DCL void FDECL(mk_mplayer_armor, (struct monst *, SHORT_P));
10.   

developers Edit

11.   /* These are the names of those who
12.    * contributed to the development of NetHack 3.2/3.3/3.4.
13.    *
14.    * Keep in alphabetical order within teams.
15.    * Same first name is entered once within each team.
16.    */
17.   static const char *developers[] = {
18.   	/* devteam */
19.   	"Dave", "Dean", "Eric", "Izchak", "Janet", "Jessie",
20.   	"Ken", "Kevin", "Michael", "Mike", "Pat", "Paul", "Steve", "Timo",
21.   	"Warwick",
22.   	/* PC team */
23.   	"Bill", "Eric", "Keizo", "Ken", "Kevin", "Michael", "Mike", "Paul",
24.   	"Stephen", "Steve", "Timo", "Yitzhak",
25.   	/* Amiga team */
26.   	"Andy", "Gregg", "Janne", "Keni", "Mike", "Olaf", "Richard",
27.   	/* Mac team */
28.   	"Andy", "Chris", "Dean", "Jon", "Jonathan", "Kevin", "Wang",
29.   	/* Atari team */
30.   	"Eric", "Marvin", "Warwick",
31.   	/* NT team */
32.   	"Alex", "Dion", "Michael",
33.   	/* OS/2 team */
34.   	"Helge", "Ron", "Timo",
35.   	/* VMS team */
36.   	"Joshua", "Pat",
37.   	""};
38.   
39.   

dev_name Edit

40.   /* return a randomly chosen developer name */
41.   STATIC_OVL const char *
42.   dev_name()
43.   {
44.   	register int i, m = 0, n = SIZE(developers);
45.   	register struct monst *mtmp;
46.   	register boolean match;
47.   
48.   	do {
49.   	    match = FALSE;
50.   	    i = rn2(n);
51.   	    for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
52.   		if(!is_mplayer(mtmp->data)) continue;
53.   		if(!strncmp(developers[i], NAME(mtmp),
54.   			               strlen(developers[i]))) {
55.   		    match = TRUE;
56.   		    break;
57.   	        }
58.   	    }
59.   	    m++;
60.   	} while (match && m < 100); /* m for insurance */
61.   
62.   	if (match) return (const char *)0;
63.   	return(developers[i]);
64.   }
65.   

get_mplname Edit

66.   STATIC_OVL void
67.   get_mplname(mtmp, nam)
68.   register struct monst *mtmp;
69.   char *nam;
70.   {
71.   	boolean fmlkind = is_female(mtmp->data);
72.   	const char *devnam;
73.   
74.   	devnam = dev_name();
75.   	if (!devnam)
76.   	    Strcpy(nam, fmlkind ? "Eve" : "Adam");
77.   	else if (fmlkind && !!strcmp(devnam, "Janet"))
78.   	    Strcpy(nam, rn2(2) ? "Maud" : "Eve");
79.   	else Strcpy(nam, devnam);
80.   
81.   	if (fmlkind || !strcmp(nam, "Janet"))
82.   	    mtmp->female = 1;
83.   	else
84.   	    mtmp->female = 0;
85.   	Strcat(nam, " the ");
86.   	Strcat(nam, rank_of((int)mtmp->m_lev,
87.   			    monsndx(mtmp->data),
88.   			    (boolean)mtmp->female));
89.   }
90.   

mk_mplayer_armor Edit

91.   STATIC_OVL void
92.   mk_mplayer_armor(mon, typ)
93.   struct monst *mon;
94.   short typ;
95.   {
96.   	struct obj *obj;
97.   
98.   	if (typ == STRANGE_OBJECT) return;
99.   	obj = mksobj(typ, FALSE, FALSE);
100.  	if (!rn2(3)) obj->oerodeproof = 1;
101.  	if (!rn2(3)) curse(obj);
102.  	if (!rn2(3)) bless(obj);
103.  	/* Most players who get to the endgame who have cursed equipment
104.  	 * have it because the wizard or other monsters cursed it, so its
105.  	 * chances of having plusses is the same as usual....
106.  	 */
107.  	obj->spe = rn2(10) ? (rn2(3) ? rn2(5) : rn1(4,4)) : -rnd(3);
108.  	(void) mpickobj(mon, obj);
109.  }
110.  

mk_mplayer Edit

111.  struct monst *
112.  mk_mplayer(ptr, x, y, special)
113.  register struct permonst *ptr;
114.  xchar x, y;
115.  register boolean special;
116.  {
117.  	register struct monst *mtmp;
118.  	char nam[PL_NSIZ];
119.  
120.  	if(!is_mplayer(ptr))
121.  		return((struct monst *)0);
122.  
123.  	if(MON_AT(x, y))
124.  		(void) rloc(m_at(x, y), FALSE); /* insurance */
125.  
126.  	if(!In_endgame(&u.uz)) special = FALSE;
127.  
128.  	if ((mtmp = makemon(ptr, x, y, NO_MM_FLAGS)) != 0) {
129.  	    short weapon = rn2(2) ? LONG_SWORD : rnd_class(SPEAR, BULLWHIP);
130.  	    short armor = rnd_class(GRAY_DRAGON_SCALE_MAIL, YELLOW_DRAGON_SCALE_MAIL);
131.  	    short cloak = !rn2(8) ? STRANGE_OBJECT :
132.  	    		rnd_class(OILSKIN_CLOAK, CLOAK_OF_DISPLACEMENT);
133.  	    short helm = !rn2(8) ? STRANGE_OBJECT :
134.  	    		rnd_class(ELVEN_LEATHER_HELM, HELM_OF_TELEPATHY);
135.  	    short shield = !rn2(8) ? STRANGE_OBJECT :
136.  	    		rnd_class(ELVEN_SHIELD, SHIELD_OF_REFLECTION);
137.  	    int quan;
138.  	    struct obj *otmp;
139.  
140.  	    mtmp->m_lev = (special ? rn1(16,15) : rnd(16));
141.  	    mtmp->mhp = mtmp->mhpmax = d((int)mtmp->m_lev,10) +
142.  					(special ? (30 + rnd(30)) : 30);
143.  	    if(special) {
144.  	        get_mplname(mtmp, nam);
145.  	        mtmp = christen_monst(mtmp, nam);
146.  		/* that's why they are "stuck" in the endgame :-) */
147.  		(void)mongets(mtmp, FAKE_AMULET_OF_YENDOR);
148.  	    }
149.  	    mtmp->mpeaceful = 0;
150.  	    set_malign(mtmp); /* peaceful may have changed again */
151.  
152.  	    switch(monsndx(ptr)) {
153.  		case PM_ARCHEOLOGIST:
154.  		    if (rn2(2)) weapon = BULLWHIP;
155.  		    break;
156.  		case PM_BARBARIAN:
157.  		    if (rn2(2)) {
158.  		    	weapon = rn2(2) ? TWO_HANDED_SWORD : BATTLE_AXE;
159.  		    	shield = STRANGE_OBJECT;
160.  		    }
161.  		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
162.  		    if (helm == HELM_OF_BRILLIANCE) helm = STRANGE_OBJECT;
163.  		    break;
164.  		case PM_CAVEMAN:
165.  		case PM_CAVEWOMAN:
166.  		    if (rn2(4)) weapon = MACE;
167.  		    else if (rn2(2)) weapon = CLUB;
168.  		    if (helm == HELM_OF_BRILLIANCE) helm = STRANGE_OBJECT;
169.  		    break;
170.  		case PM_HEALER:
171.  		    if (rn2(4)) weapon = QUARTERSTAFF;
172.  		    else if (rn2(2)) weapon = rn2(2) ? UNICORN_HORN : SCALPEL;
173.  		    if (rn2(4)) helm = rn2(2) ? HELM_OF_BRILLIANCE : HELM_OF_TELEPATHY;
174.  		    if (rn2(2)) shield = STRANGE_OBJECT;
175.  		    break;
176.  		case PM_KNIGHT:
177.  		    if (rn2(4)) weapon = LONG_SWORD;
178.  		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
179.  		    break;
180.  		case PM_MONK:
181.  		    weapon = STRANGE_OBJECT;
182.  		    armor = STRANGE_OBJECT;
183.  		    cloak = ROBE;
184.  		    if (rn2(2)) shield = STRANGE_OBJECT;
185.  		    break;
186.  		case PM_PRIEST:
187.  		case PM_PRIESTESS:
188.  		    if (rn2(2)) weapon = MACE;
189.  		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
190.  		    if (rn2(4)) cloak = ROBE;
191.  		    if (rn2(4)) helm = rn2(2) ? HELM_OF_BRILLIANCE : HELM_OF_TELEPATHY;
192.  		    if (rn2(2)) shield = STRANGE_OBJECT;
193.  		    break;
194.  		case PM_RANGER:
195.  		    if (rn2(2)) weapon = ELVEN_DAGGER;
196.  		    break;
197.  		case PM_ROGUE:
198.  		    if (rn2(2)) weapon = SHORT_SWORD;
199.  		    break;
200.  		case PM_SAMURAI:
201.  		    if (rn2(2)) weapon = KATANA;
202.  		    break;
203.  #ifdef TOURIST
204.  		case PM_TOURIST:
205.  		    /* Defaults are just fine */
206.  		    break;
207.  #endif
208.  		case PM_VALKYRIE:
209.  		    if (rn2(2)) weapon = WAR_HAMMER;
210.  		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
211.  		    break;
212.  		case PM_WIZARD:
213.  		    if (rn2(4)) weapon = rn2(2) ? QUARTERSTAFF : ATHAME;
214.  		    if (rn2(2)) {
215.  		    	armor = rn2(2) ? BLACK_DRAGON_SCALE_MAIL :
216.  		    			SILVER_DRAGON_SCALE_MAIL;
217.  		    	cloak = CLOAK_OF_MAGIC_RESISTANCE;
218.  		    }
219.  		    if (rn2(4)) helm = HELM_OF_BRILLIANCE;
220.  		    shield = STRANGE_OBJECT;
221.  		    break;
222.  		default: impossible("bad mplayer monster");
223.  		    weapon = 0;
224.  		    break;
225.  	    }
226.  
227.  	    if (weapon != STRANGE_OBJECT) {
228.  		otmp = mksobj(weapon, TRUE, FALSE);
229.  		otmp->spe = (special ? rn1(5,4) : rn2(4));
230.  		if (!rn2(3)) otmp->oerodeproof = 1;
231.  		else if (!rn2(2)) otmp->greased = 1;
232.  		if (special && rn2(2))
233.  		    otmp = mk_artifact(otmp, A_NONE);
234.  		/* mplayers knew better than to overenchant Magicbane */
235.  		if (otmp->oartifact == ART_MAGICBANE)
236.  		    otmp->spe = rnd(4);
237.  		(void) mpickobj(mtmp, otmp);
238.  	    }
239.  
240.  	    if(special) {
241.  		if (!rn2(10))
242.  		    (void) mongets(mtmp, rn2(3) ? LUCKSTONE : LOADSTONE);
243.  		mk_mplayer_armor(mtmp, armor);
244.  		mk_mplayer_armor(mtmp, cloak);
245.  		mk_mplayer_armor(mtmp, helm);
246.  		mk_mplayer_armor(mtmp, shield);
247.  		if (rn2(8))
248.  		    mk_mplayer_armor(mtmp, rnd_class(LEATHER_GLOVES,
249.  					       GAUNTLETS_OF_DEXTERITY));
250.  		if (rn2(8))
251.  		    mk_mplayer_armor(mtmp, rnd_class(LOW_BOOTS, LEVITATION_BOOTS));
252.  		m_dowear(mtmp, TRUE);
253.  
254.  		quan = rn2(3) ? rn2(3) : rn2(16);
255.  		while(quan--)
256.  		    (void)mongets(mtmp, rnd_class(DILITHIUM_CRYSTAL, JADE));
257.  		/* To get the gold "right" would mean a player can double his */
258.  		/* gold supply by killing one mplayer.  Not good. */
259.  #ifndef GOLDOBJ
260.  		mtmp->mgold = rn2(1000);
261.  #else
262.  		mkmonmoney(mtmp, rn2(1000));
263.  #endif
264.  		quan = rn2(10);
265.  		while(quan--)
266.  		    (void) mpickobj(mtmp, mkobj(RANDOM_CLASS, FALSE));
267.  	    }
268.  	    quan = rnd(3);
269.  	    while(quan--)
270.  		(void)mongets(mtmp, rnd_offensive_item(mtmp));
271.  	    quan = rnd(3);
272.  	    while(quan--)
273.  		(void)mongets(mtmp, rnd_defensive_item(mtmp));
274.  	    quan = rnd(3);
275.  	    while(quan--)
276.  		(void)mongets(mtmp, rnd_misc_item(mtmp));
277.  	}
278.  
279.  	return(mtmp);
280.  }
281.  

create_mplayers Edit

282.  /* create the indicated number (num) of monster-players,
283.   * randomly chosen, and in randomly chosen (free) locations
284.   * on the level.  If "special", the size of num should not
285.   * be bigger than the number of _non-repeated_ names in the
286.   * developers array, otherwise a bunch of Adams and Eves will
287.   * fill up the overflow.
288.   */
289.  void
290.  create_mplayers(num, special)
291.  register int num;
292.  boolean special;
293.  {
294.  	int pm, x, y;
295.  	struct monst fakemon;
296.  
297.  	while(num) {
298.  		int tryct = 0;
299.  
300.  		/* roll for character class */
301.  		pm = PM_ARCHEOLOGIST + rn2(PM_WIZARD - PM_ARCHEOLOGIST + 1);
302.  		fakemon.data = &mons[pm];
303.  
304.  		/* roll for an available location */
305.  		do {
306.  		    x = rn1(COLNO-4, 2);
307.  		    y = rnd(ROWNO-2);
308.  		} while(!goodpos(x, y, &fakemon, 0) && tryct++ <= 50);
309.  
310.  		/* if pos not found in 50 tries, don't bother to continue */
311.  		if(tryct > 50) return;
312.  
313.  		(void) mk_mplayer(&mons[pm], (xchar)x, (xchar)y, special);
314.  		num--;
315.  	}
316.  }
317.  

mplayer_talk Edit

318.  void
319.  mplayer_talk(mtmp)
320.  register struct monst *mtmp;
321.  {
322.  	static const char *same_class_msg[3] = {
323.  		"I can't win, and neither will you!",
324.  		"You don't deserve to win!",
325.  		"Mine should be the honor, not yours!",
326.  	},		  *other_class_msg[3] = {
327.  		"The low-life wants to talk, eh?",
328.  		"Fight, scum!",
329.  		"Here is what I have to say!",
330.  	};
331.  
332.  	if(mtmp->mpeaceful) return; /* will drop to humanoid talk */
333.  
334.  	pline("Talk? -- %s",
335.  		(mtmp->data == &mons[urole.malenum] ||
336.  		mtmp->data == &mons[urole.femalenum]) ?
337.  		same_class_msg[rn2(3)] : other_class_msg[rn2(3)]);
338.  }
339.  
340.  /*mplayer.c*/

Around Wikia's network

Random Wiki