From 6172e53ff87b374cae6e9bf193dd7b2c05435f0a Mon Sep 17 00:00:00 2001
From: jwalz <jwalz>
Date: Sat, 5 Jan 2002 21:05:51 +0000
Subject: [PATCH] *** empty log message ***

---
 src/mplayer.c | 339 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 339 insertions(+)
 create mode 100644 src/mplayer.c

diff --git a/src/mplayer.c b/src/mplayer.c
new file mode 100644
index 000000000..e32e0822f
--- /dev/null
+++ b/src/mplayer.c
@@ -0,0 +1,339 @@
+/*	SCCS Id: @(#)mplayer.c	3.3	97/02/04	*/
+/*	Copyright (c) Izchak Miller, 1992.			  */
+/* NetHack may be freely redistributed.  See license for details. */
+
+#include "hack.h"
+
+STATIC_DCL const char *NDECL(dev_name);
+STATIC_DCL void FDECL(get_mplname, (struct monst *, char *));
+STATIC_DCL void FDECL(mk_mplayer_armor, (struct monst *, SHORT_P));
+
+/* These are the names of those who
+ * contributed to the development of NetHack 3.2/3.3.
+ *
+ * Keep in alphabetical order within teams.
+ * Same first name is entered once within each team.
+ */
+static const char *developers[] = {
+	/* devteam */
+	"Dave", "Dean", "Eric", "Izchak", "Janet", "Jessie",
+	"Ken", "Kevin", "Michael", "Mike", "Pat", "Paul", "Steve", "Timo",
+	/* PC team */
+	"Bill", "Eric", "Keizo", "Ken", "Kevin", "Michael", "Mike", "Paul",
+	"Stephen", "Steve", "Timo", "Yitzhak",
+	/* Amiga team */
+	"Andy", "Gregg", "Janne", "Keni", "Mike", "Olaf", "Richard",
+	/* Mac team */
+	"Andy", "Chris", "Dean", "Jon", "Jonathan", "Kevin", "Wang",
+	/* Atari team */
+	"Eric", "Marvin", "Warwick",
+	/* NT team */
+	"Michael",
+	/* OS/2 team */
+	"Helge", "Ron", "Timo",
+	/* VMS team */
+	"Joshua", "Pat",
+	""};
+
+
+/* return a randomly chosen developer name */
+STATIC_OVL const char *
+dev_name()
+{
+	register int i, m = 0, n = SIZE(developers);
+	register struct monst *mtmp;
+	register boolean match;
+
+	do {
+	    match = FALSE;
+	    i = rn2(n);
+	    for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
+		if(!is_mplayer(mtmp->data)) continue;
+		if(!strncmp(developers[i], NAME(mtmp),
+			               strlen(developers[i]))) {
+		    match = TRUE;
+		    break;
+	        }
+	    }
+	    m++;
+	} while (match && m < 100); /* m for insurance */
+
+	if (match) return (const char *)0;
+	return(developers[i]);
+}
+
+STATIC_OVL void
+get_mplname(mtmp, nam)
+register struct monst *mtmp;
+char *nam;
+{
+	boolean fmlkind = is_female(mtmp->data);
+	const char *devnam;
+
+	devnam = dev_name();
+	if (!devnam)
+	    Strcpy(nam, fmlkind ? "Eve" : "Adam");
+	else if (fmlkind && !!strcmp(devnam, "Janet"))
+	    Strcpy(nam, rn2(2) ? "Maud" : "Eve");
+	else Strcpy(nam, devnam);
+
+	if (fmlkind || !strcmp(nam, "Janet"))
+	    mtmp->female = 1;
+	else
+	    mtmp->female = 0;
+	Strcat(nam, " the ");
+	Strcat(nam, rank_of((int)mtmp->m_lev,
+			    monsndx(mtmp->data),
+			    (boolean)mtmp->female));
+}
+
+STATIC_OVL void
+mk_mplayer_armor(mon, typ)
+struct monst *mon;
+short typ;
+{
+	struct obj *obj;
+
+	if (typ == STRANGE_OBJECT) return;
+	obj = mksobj(typ, FALSE, FALSE);
+	if (!rn2(3)) obj->oerodeproof = 1;
+	if (!rn2(3)) curse(obj);
+	if (!rn2(3)) bless(obj);
+	/* Most players who get to the endgame who have cursed equipment
+	 * have it because the wizard or other monsters cursed it, so its
+	 * chances of having plusses is the same as usual....
+	 */
+	obj->spe = rn2(10) ? (rn2(3) ? rn2(5) : rn1(4,4)) : -rnd(3);
+	(void) mpickobj(mon, obj);
+}
+
+struct monst *
+mk_mplayer(ptr, x, y, special)
+register struct permonst *ptr;
+xchar x, y;
+register boolean special;
+{
+	register struct monst *mtmp;
+	char nam[PL_NSIZ];
+
+	if(!is_mplayer(ptr))
+		return((struct monst *)0);
+
+	if(MON_AT(x, y))
+		rloc(m_at(x, y)); /* insurance */
+
+	if(!In_endgame(&u.uz)) special = FALSE;
+
+	if ((mtmp = makemon(ptr, x, y, NO_MM_FLAGS)) != 0) {
+	    short weapon = rn2(2) ? LONG_SWORD : rnd_class(SPEAR, BULLWHIP);
+	    short armor = rnd_class(GRAY_DRAGON_SCALE_MAIL, YELLOW_DRAGON_SCALE_MAIL);
+	    short cloak = !rn2(8) ? STRANGE_OBJECT :
+	    		rnd_class(OILSKIN_CLOAK, CLOAK_OF_DISPLACEMENT);
+	    short helm = !rn2(8) ? STRANGE_OBJECT :
+	    		rnd_class(ELVEN_LEATHER_HELM, HELM_OF_TELEPATHY);
+	    short shield = !rn2(8) ? STRANGE_OBJECT :
+	    		rnd_class(ELVEN_SHIELD, SHIELD_OF_REFLECTION);
+	    int quan;
+	    struct obj *otmp;
+
+	    mtmp->m_lev = (special ? rn1(16,15) : rnd(16));
+	    mtmp->mhp = mtmp->mhpmax = d((int)mtmp->m_lev,10) +
+					(special ? (30 + rnd(30)) : 30);
+	    if(special) {
+	        get_mplname(mtmp, nam);
+	        mtmp = christen_monst(mtmp, nam);
+		/* that's why they are "stuck" in the endgame :-) */
+		(void)mongets(mtmp, FAKE_AMULET_OF_YENDOR);
+	    }
+	    mtmp->mpeaceful = 0;
+	    set_malign(mtmp); /* peaceful may have changed again */
+
+	    switch(monsndx(ptr)) {
+		case PM_ARCHEOLOGIST:
+		    if (rn2(2)) weapon = BULLWHIP;
+		    break;
+		case PM_BARBARIAN:
+		    if (rn2(2)) {
+		    	weapon = rn2(2) ? TWO_HANDED_SWORD : BATTLE_AXE;
+		    	shield = STRANGE_OBJECT;
+		    }
+		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
+		    if (helm == HELM_OF_BRILLIANCE) helm = STRANGE_OBJECT;
+		    break;
+		case PM_CAVEMAN:
+		case PM_CAVEWOMAN:
+		    if (rn2(4)) weapon = MACE;
+		    else if (rn2(2)) weapon = CLUB;
+		    if (helm == HELM_OF_BRILLIANCE) helm = STRANGE_OBJECT;
+		    break;
+		case PM_HEALER:
+		    if (rn2(4)) weapon = QUARTERSTAFF;
+		    else if (rn2(2)) weapon = rn2(2) ? UNICORN_HORN : SCALPEL;
+		    if (rn2(4)) helm = rn2(2) ? HELM_OF_BRILLIANCE : HELM_OF_TELEPATHY;
+		    if (rn2(2)) shield = STRANGE_OBJECT;
+		    break;
+		case PM_KNIGHT:
+		    if (rn2(4)) weapon = LONG_SWORD;
+		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
+		    break;
+		case PM_MONK:
+		    weapon = STRANGE_OBJECT;
+		    armor = STRANGE_OBJECT;
+		    cloak = ROBE;
+		    if (rn2(2)) shield = STRANGE_OBJECT;
+		    break;
+		case PM_PRIEST:
+		case PM_PRIESTESS:
+		    if (rn2(2)) weapon = MACE;
+		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
+		    if (rn2(4)) cloak = ROBE;
+		    if (rn2(4)) helm = rn2(2) ? HELM_OF_BRILLIANCE : HELM_OF_TELEPATHY;
+		    if (rn2(2)) shield = STRANGE_OBJECT;
+		    break;
+		case PM_RANGER:
+		    if (rn2(2)) weapon = ELVEN_DAGGER;
+		    break;
+		case PM_ROGUE:
+		    if (rn2(2)) weapon = SHORT_SWORD;
+		    break;
+		case PM_SAMURAI:
+		    if (rn2(2)) weapon = KATANA;
+		    break;
+#ifdef TOURIST
+		case PM_TOURIST:
+		    /* Defaults are just fine */
+		    break;
+#endif
+		case PM_VALKYRIE:
+		    if (rn2(2)) weapon = WAR_HAMMER;
+		    if (rn2(2)) armor = rnd_class(PLATE_MAIL, CHAIN_MAIL);
+		    break;
+		case PM_WIZARD:
+		    if (rn2(4)) weapon = rn2(2) ? QUARTERSTAFF : ATHAME;
+		    if (rn2(2)) {
+		    	armor = rn2(2) ? BLACK_DRAGON_SCALE_MAIL :
+		    			SILVER_DRAGON_SCALE_MAIL;
+		    	cloak = CLOAK_OF_MAGIC_RESISTANCE;
+		    }
+		    if (rn2(4)) helm = HELM_OF_BRILLIANCE;
+		    shield = STRANGE_OBJECT;
+		    break;
+		default: impossible("bad mplayer monster");
+		    weapon = 0;
+		    break;
+	    }
+
+	    if (weapon != STRANGE_OBJECT) {
+		otmp = mksobj(weapon, TRUE, FALSE);
+		otmp->spe = (special ? rn1(5,4) : rn2(4));
+		if (!rn2(3)) otmp->oerodeproof = 1;
+		else if (!rn2(2)) otmp->greased = 1;
+		if (special && rn2(2))
+		    otmp = mk_artifact(otmp, A_NONE);
+		/* mplayers knew better than to overenchant Magicbane */
+		if (otmp->oartifact == ART_MAGICBANE)
+		    otmp->spe = rnd(4);
+		(void) mpickobj(mtmp, otmp);
+	    }
+
+	    if(special) {
+		if (!rn2(10))
+		    (void) mongets(mtmp, rn2(3) ? LUCKSTONE : LOADSTONE);
+		mk_mplayer_armor(mtmp, armor);
+		mk_mplayer_armor(mtmp, cloak);
+		mk_mplayer_armor(mtmp, helm);
+		mk_mplayer_armor(mtmp, shield);
+		if (rn2(8))
+		    mk_mplayer_armor(mtmp, rnd_class(LEATHER_GLOVES,
+					       GAUNTLETS_OF_DEXTERITY));
+		if (rn2(8))
+		    mk_mplayer_armor(mtmp, rnd_class(LOW_BOOTS, LEVITATION_BOOTS));
+		m_dowear(mtmp, TRUE);
+
+		quan = rn2(3) ? rn2(3) : rn2(16);
+		while(quan--)
+		    (void)mongets(mtmp, rnd_class(DILITHIUM_CRYSTAL, JADE));
+		/* To get the gold "right" would mean a player can double his */
+		/* gold supply by killing one mplayer.  Not good. */
+#ifndef GOLDOBJ
+		mtmp->mgold = rn2(1000);
+#else
+		mkmonmoney(mtmp, rn2(1000));
+#endif
+		quan = rn2(10);
+		while(quan--)
+		    (void) mpickobj(mtmp, mkobj(RANDOM_CLASS, FALSE));
+	    }
+	    quan = rnd(3);
+	    while(quan--)
+		(void)mongets(mtmp, rnd_offensive_item(mtmp));
+	    quan = rnd(3);
+	    while(quan--)
+		(void)mongets(mtmp, rnd_defensive_item(mtmp));
+	    quan = rnd(3);
+	    while(quan--)
+		(void)mongets(mtmp, rnd_misc_item(mtmp));
+	}
+
+	return(mtmp);
+}
+
+/* create the indicated number (num) of monster-players,
+ * randomly chosen, and in randomly chosen (free) locations
+ * on the level.  If "special", the size of num should not
+ * be bigger than the number of _non-repeated_ names in the
+ * developers array, otherwise a bunch of Adams and Eves will
+ * fill up the overflow.
+ */
+void
+create_mplayers(num, special)
+register int num;
+boolean special;
+{
+	int pm, x, y;
+	struct monst fakemon;
+
+	while(num) {
+		int tryct = 0;
+
+		/* roll for character class */
+		pm = PM_ARCHEOLOGIST + rn2(PM_WIZARD - PM_ARCHEOLOGIST + 1);
+		fakemon.data = &mons[pm];
+
+		/* roll for an available location */
+		do {
+		    x = rn1(COLNO-4, 2);
+		    y = rnd(ROWNO-2);
+		} while(!goodpos(x, y, &fakemon) && tryct++ <= 50);
+
+		/* if pos not found in 50 tries, don't bother to continue */
+		if(tryct > 50) return;
+
+		(void) mk_mplayer(&mons[pm], (xchar)x, (xchar)y, special);
+		num--;
+	}
+}
+
+void
+mplayer_talk(mtmp)
+register struct monst *mtmp;
+{
+	static const char *same_class_msg[3] = {
+		"I can't win, and neither will you!",
+		"You don't deserve to win!",
+		"Mine should be the honor, not yours!",
+	},		  *other_class_msg[3] = {
+		"The low-life wants to talk, eh?",
+		"Fight, scum!",
+		"Here is what I have to say!",
+	};
+
+	if(mtmp->mpeaceful) return; /* will drop to humanoid talk */
+
+	pline("Talk? -- %s",
+		(mtmp->data == &mons[urole.malenum] ||
+		mtmp->data == &mons[urole.femalenum]) ?
+		same_class_msg[rn2(3)] : other_class_msg[rn2(3)]);
+}
+
+/*mplayer.c*/