/* returns 1 if it won't attack. */
int
demon_talk(struct monst *mtmp)
{
long cash, demand, offer;
if (uwep && uwep->oartifact == ART_EXCALIBUR) {
pline("%s looks very angry.", Amonnam(mtmp));
msethostility(mtmp, TRUE, TRUE);
return 0;
}
/* Slight advantage given. */
if (is_dprince(mtmp->data) && mtmp->minvis) {
mtmp->minvis = mtmp->perminvis = 0;
if (!Blind)
pline("%s appears before you.", Amonnam(mtmp));
newsym(mtmp->mx, mtmp->my);
}
if (youmonst.data->mlet == S_DEMON) { /* Won't blackmail their own. */
pline("%s says, \"Good hunting, %s.\"", Amonnam(mtmp),
u.ufemale ? "Sister" : "Brother");
if (!tele_restrict(mtmp))
rloc(mtmp, TRUE);
return 1;
}
cash = money_cnt(invent);
/* don't bother with a custom RNG here, too much unpredictability is
involved */
demand = (cash * (rnd(80) + 20 * Athome)) /
(100 * (1 + (sgn(u.ualign.type) == sgn(mtmp->data->maligntyp))));
if (!demand) { /* you have no gold */
msethostility(mtmp, TRUE, TRUE);
return 0;
} else {
/* make sure that the demand is unmeetable if the monster has the
Amulet, preventing monster from being satisified and removed from
the game (along with said Amulet...) */
if (mon_has_amulet(mtmp))
demand = cash + (long)rn1(1000, 40);
pline("%s demands %ld %s for safe passage.", Amonnam(mtmp), demand,
currency(demand));
if ((offer = bribe(mtmp)) >= demand) {
pline("%s vanishes, laughing about cowardly %s.", Amonnam(mtmp),
makeplural(mortal_or_creature(youmonst.data, FALSE)));
} else if (offer > 0L && (long)rnd(40) > (demand - offer)) {
pline("%s scowls at you menacingly, then vanishes.", Amonnam(mtmp));
} else {
pline("%s gets angry...", Amonnam(mtmp));
msethostility(mtmp, TRUE, TRUE);
return 0;
}
}
mongone(mtmp);
return 1;
}
/* mon summons a monster */
void
msummon(struct monst *mon)
{
const struct permonst *ptr;
int dtype = NON_PM, cnt = 0;
aligntyp atyp;
struct monst *mtmp;
struct d_level *dlev;
if (mon) {
ptr = mon->data;
dlev = &mon->dlevel->z;
atyp = (ptr->maligntyp == A_NONE) ? A_NONE : sgn(ptr->maligntyp);
if (mon->ispriest || roamer_type(mon->data))
atyp = EPRI(mon)->shralign;
} else {
ptr = &mons[PM_WIZARD_OF_YENDOR];
atyp = (ptr->maligntyp == A_NONE) ? A_NONE : sgn(ptr->maligntyp);
dlev = &u.uz;
}
if (is_dprince(ptr) || (ptr == &mons[PM_WIZARD_OF_YENDOR])) {
dtype = (!rn2(20)) ? dprince(atyp) :
(!rn2(4)) ? dlord(atyp) : ndemon(dlev, atyp);
cnt = (!rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;
} else if (is_dlord(ptr)) {
dtype = (!rn2(50)) ? dprince(atyp) :
(!rn2(20)) ? dlord(atyp) : ndemon(dlev, atyp);
cnt = (!rn2(4) && is_ndemon(&mons[dtype])) ? 2 : 1;
} else if (is_ndemon(ptr)) {
dtype = (!rn2(20)) ? dlord(atyp) :
(!rn2(6)) ? ndemon(dlev, atyp) : monsndx(ptr);
cnt = 1;
} else if (mon && is_lminion(mon)) {
dtype = (is_lord(ptr) && !rn2(20)) ? llord() :
(is_lord(ptr) || !rn2(6)) ? lminion() : monsndx(ptr);
cnt = (!rn2(4) && !is_lord(&mons[dtype])) ? 2 : 1;
} else if (ptr == &mons[PM_ANGEL]) {
/* non-lawful angels can also summon */
if (!rn2(6)) {
switch (atyp) { /* see summon_minion */
case A_NEUTRAL:
dtype = PM_AIR_ELEMENTAL + rn2(4);
break;
case A_CHAOTIC:
case A_NONE:
dtype = ndemon(dlev, atyp);
break;
}
} else {
dtype = PM_ANGEL;
}
cnt = (!rn2(4) && !is_lord(&mons[dtype])) ? 2 : 1;
}
if (dtype == NON_PM)
return;
/* sanity checks */
if (cnt > 1 && (mons[dtype].geno & G_UNIQ))
cnt = 1;
/*
* If this daemon is unique and being re-summoned (the only way we
* could get this far with an extinct dtype), try another.
*/
if (mvitals[dtype].mvflags & G_GONE) {
dtype = ndemon(dlev, atyp);
if (dtype == NON_PM)
return;
}
while (cnt > 0) {
mtmp = makemon(&mons[dtype], level, u.ux, u.uy, NO_MM_FLAGS);
if (mtmp && roamer_type(&mons[dtype])) {
/* alignment should match the summoner */
EPRI(mtmp)->shralign = atyp;
}
cnt--;
}
}
