Fandom

Wikihack

Source:Mplayer.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 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*/

Also on Fandom

Random Wiki