void change_sex(void)
{
/* setting u.umonster for caveman/cavewoman or priest/priestess
swap unintentionally makes `Upolyd' appear to be true */
boolean already_polyd = (boolean) Upolyd;
/* Some monsters are always of one sex and their sex can't be changed */
/* succubi/incubi can change, but are handled below */
/* !already_polyd check necessary because is_male() and is_female()
are true if the player is a priest/priestess */
if (!already_polyd || (!is_male(youmonst.data) && !is_female(youmonst.data) && !is_neuter(youmonst.data)))
flags.female = !flags.female;
if (already_polyd) /* poly'd: also change saved sex */
u.mfemale = !u.mfemale;
max_rank_sz(); /* [this appears to be superfluous] */
if ((already_polyd ? u.mfemale : flags.female) && urole.name.f)
strcpy(pl_character, urole.name.f);
else
strcpy(pl_character, urole.name.m);
u.umonster = ((already_polyd ? u.mfemale : flags.female) && urole.femalenum != NON_PM) ?
urole.femalenum : urole.malenum;
if (!already_polyd) {
u.umonnum = u.umonster;
} else if (u.umonnum == PM_SUCCUBUS || u.umonnum == PM_INCUBUS) {
flags.female = !flags.female;
/* change monster type to match new sex */
u.umonnum = (u.umonnum == PM_SUCCUBUS) ? PM_INCUBUS : PM_SUCCUBUS;
set_uasmon();
}
}
/* Use u.umonster since we might be restoring and you may be polymorphed */
void
init_uasmon()
{
int i;
upermonst = mons[u.umonster];
/* Fix up the flags */
/* Default flags assume human, so replace with your race's flags */
upermonst.mflags1 &= ~(mons[PM_HUMAN].mflags1);
upermonst.mflags1 |= (mons[urace.malenum].mflags1);
upermonst.mflags2 &= ~(mons[PM_HUMAN].mflags2);
upermonst.mflags2 |= (mons[urace.malenum].mflags2);
upermonst.mflags3 &= ~(mons[PM_HUMAN].mflags3);
upermonst.mflags3 |= (mons[urace.malenum].mflags3);
/* Fix up the attacks */
/* crude workaround, needs better general solution */
if (Race_if(PM_VAMPIRE)) {
for(i = 0; i < NATTK; i++) {
upermonst.mattk[i] = mons[urace.malenum].mattk[i];
}
}
set_uasmon();
}
/* returns 1 if polymorph successful */
int polymon(int mntmp)
{
boolean sticky = sticks(youmonst.data) && u.ustuck && !u.uswallow,
was_blind = !!Blind, dochange = FALSE;
boolean could_pass_walls = Passes_walls;
int mlvl;
if (mvitals[mntmp].mvflags & G_GENOD) { /* allow G_EXTINCT */
pline("You feel rather %s-ish.",mons[mntmp].mname);
exercise(A_WIS, TRUE);
return 0;
}
/* KMH, conduct */
u.uconduct.polyselfs++;
if (!Upolyd) {
/* Human to monster; save human stats */
u.macurr = u.acurr;
u.mamax = u.amax;
u.mfemale = flags.female;
} else {
/* Monster to monster; restore human stats, to be
* immediately changed to provide stats for the new monster
*/
u.acurr = u.macurr;
u.amax = u.mamax;
flags.female = u.mfemale;
}
if (youmonst.m_ap_type) {
/* stop mimicking immediately */
if (multi < 0) unmul("");
} else if (mons[mntmp].mlet != S_MIMIC) {
/* as in polyman() */
youmonst.m_ap_type = M_AP_NOTHING;
}
if (is_male(&mons[mntmp])) {
if (flags.female) dochange = TRUE;
} else if (is_female(&mons[mntmp])) {
if (!flags.female) dochange = TRUE;
} else if (!is_neuter(&mons[mntmp]) && mntmp != u.ulycn) {
if (!rn2(10)) dochange = TRUE;
}
if (dochange) {
flags.female = !flags.female;
pline("You %s %s%s!",
(u.umonnum != mntmp) ? "turn into a" : "feel like a new",
(is_male(&mons[mntmp]) || is_female(&mons[mntmp])) ? "" :
flags.female ? "female " : "male ",
mons[mntmp].mname);
} else {
if (u.umonnum != mntmp)
pline("You turn into %s!", an(mons[mntmp].mname));
else
pline("You feel like a new %s!", mons[mntmp].mname);
}
if (Stoned && poly_when_stoned(&mons[mntmp])) {
/* poly_when_stoned already checked stone golem genocide */
pline("You turn to stone!");
mntmp = PM_STONE_GOLEM;
Stoned = 0;
delayed_killer = 0;
}
u.mtimedone = rn1(500, 500);
u.umonnum = mntmp;
set_uasmon();
/* New stats for monster, to last only as long as polymorphed.
* Currently only strength gets changed.
*/
if (strongmonst(&mons[mntmp])) ABASE(A_STR) = AMAX(A_STR) = STR18(100);
if (Stone_resistance && Stoned) { /* [email protected] */
Stoned = 0;
delayed_killer = 0;
pline("You no longer seem to be petrifying.");
}
if (Sick_resistance && Sick) {
make_sick(0L, NULL, FALSE, SICK_ALL);
pline("You no longer feel sick.");
}
if (Slimed) {
if (flaming(youmonst.data)) {
pline("The slime burns away!");
Slimed = 0L;
iflags.botl = 1;
} else if (mntmp == PM_GREEN_SLIME) {
/* do it silently */
Slimed = 0L;
iflags.botl = 1;
}
}
if (nohands(youmonst.data)) Glib = 0;
/*
mlvl = adj_lev(&mons[mntmp]);
* We can't do the above, since there's no such thing as an
* "experience level of you as a monster" for a polymorphed character.
*/
mlvl = (int)mons[mntmp].mlevel;
if (youmonst.data->mlet == S_DRAGON && mntmp >= PM_GRAY_DRAGON) {
u.mhmax = In_endgame(&u.uz) ? (8*mlvl) : (4*mlvl + dice(mlvl,4));
} else if (is_golem(youmonst.data)) {
u.mhmax = golemhp(mntmp);
} else {
if (!mlvl) u.mhmax = rnd(4);
else u.mhmax = dice(mlvl, 8);
if (is_home_elemental(&u.uz, &mons[mntmp])) u.mhmax *= 3;
}
u.mh = u.mhmax;
if (u.ulevel < mlvl) {
/* Low level characters can't become high level monsters for long */
u.mtimedone = u.mtimedone * u.ulevel / mlvl;
}
if (uskin && mntmp != armor_to_dragon(uskin->otyp))
skinback(FALSE);
break_armor();
drop_weapon(1);
if (hides_under(youmonst.data))
u.uundetected = OBJ_AT(u.ux, u.uy);
else if (youmonst.data->mlet == S_EEL)
u.uundetected = is_pool(level, u.ux, u.uy);
else
u.uundetected = 0;
if (u.utraptype == TT_PIT) {
if (could_pass_walls && !Passes_walls) {
u.utrap = rn1(6,2);
} else if (!could_pass_walls && Passes_walls) {
u.utrap = 0;
}
}
if (was_blind && !Blind) { /* previous form was eyeless */
Blinded = 1L;
make_blinded(0L, TRUE); /* remove blindness */
}
newsym(u.ux,u.uy); /* Change symbol */
if (!sticky && !u.uswallow && u.ustuck && sticks(youmonst.data)) u.ustuck = 0;
else if (sticky && !sticks(youmonst.data)) uunstick();
if (u.usteed) {
if (touch_petrifies(u.usteed->data) &&
!Stone_resistance && rnl(3)) {
char buf[BUFSZ];
pline("No longer petrifying-resistant, you touch %s.",
mon_nam(u.usteed));
sprintf(buf, "riding %s", an(u.usteed->data->mname));
instapetrify(buf);
}
if (!can_ride(u.usteed)) dismount_steed(DISMOUNT_POLY);
}
if (flags.verbose) {
static const char use_thec[] = "Use the command #%s to %s.";
static const char monsterc[] = "monster";
if (can_breathe(youmonst.data))
pline(use_thec,monsterc,"use your breath weapon");
if (attacktype(youmonst.data, AT_SPIT))
pline(use_thec,monsterc,"spit venom");
if (youmonst.data->mlet == S_NYMPH)
pline(use_thec,monsterc,"remove an iron ball");
if (attacktype(youmonst.data, AT_GAZE))
pline(use_thec,monsterc,"gaze at monsters");
if (is_hider(youmonst.data))
pline(use_thec,monsterc,"hide");
if (is_were(youmonst.data))
pline(use_thec,monsterc,"summon help");
if (webmaker(youmonst.data))
pline(use_thec,monsterc,"spin a web");
if (u.umonnum == PM_GREMLIN)
pline(use_thec,monsterc,"multiply in a fountain");
if (is_unicorn(youmonst.data))
pline(use_thec,monsterc,"use your horn");
if (is_mind_flayer(youmonst.data))
pline(use_thec,monsterc,"emit a mental blast");
if (youmonst.data->msound == MS_SHRIEK) /* worthless, actually */
pline(use_thec,monsterc,"shriek");
if (lays_eggs(youmonst.data) && flags.female)
pline(use_thec,"sit","lay an egg");
}
/* you now know what an egg of your type looks like */
if (lays_eggs(youmonst.data)) {
learn_egg_type(u.umonnum);
/* make queen bees recognize killer bee eggs */
learn_egg_type(egg_type_from_parent(u.umonnum, TRUE));
}
find_ac();
if ((!Levitation && !u.ustuck && !Flying &&
(is_pool(level, u.ux,u.uy) || is_lava(level, u.ux,u.uy))) ||
(Underwater && !Swimming))
spoteffects(TRUE);
if (Passes_walls && u.utrap && u.utraptype == TT_INFLOOR) {
u.utrap = 0;
pline("The rock seems to no longer trap you.");
} else if (likes_lava(youmonst.data) && u.utrap && u.utraptype == TT_LAVA) {
u.utrap = 0;
pline("The lava now feels soothing.");
}
if (amorphous(youmonst.data) || is_whirly(youmonst.data) || unsolid(youmonst.data)) {
if (Punished) {
pline("You slip out of the iron chain.");
unpunish();
}
}
if (u.utrap && (u.utraptype == TT_WEB || u.utraptype == TT_BEARTRAP) &&
(amorphous(youmonst.data) || is_whirly(youmonst.data) || unsolid(youmonst.data) ||
(youmonst.data->msize <= MZ_SMALL && u.utraptype == TT_BEARTRAP))) {
pline("You are no longer stuck in the %s.",
u.utraptype == TT_WEB ? "web" : "bear trap");
/* probably should burn webs too if PM_FIRE_ELEMENTAL */
u.utrap = 0;
}
if (webmaker(youmonst.data) && u.utrap && u.utraptype == TT_WEB) {
pline("You orient yourself on the web.");
u.utrap = 0;
}
iflags.botl = 1;
vision_full_recalc = 1;
see_monsters();
exercise(A_CON, FALSE);
exercise(A_WIS, TRUE);
encumber_msg();
return 1;
}
/* make a (new) human out of the player */
static void polyman(const char *fmt, const char *arg)
{
boolean sticky = sticks(youmonst.data) && u.ustuck && !u.uswallow,
was_mimicking = (youmonst.m_ap_type == M_AP_OBJECT);
boolean could_pass_walls = Passes_walls;
boolean was_blind = !!Blind;
if (Upolyd) {
u.acurr = u.macurr; /* restore old attribs */
u.amax = u.mamax;
u.umonnum = u.umonster;
flags.female = u.mfemale;
}
set_uasmon();
u.mh = u.mhmax = 0;
u.mtimedone = 0;
skinback(FALSE);
u.uundetected = 0;
if (sticky) uunstick();
find_ac();
if (was_mimicking) {
if (multi < 0) unmul("");
youmonst.m_ap_type = M_AP_NOTHING;
}
newsym(u.ux,u.uy);
pline(fmt, arg);
/* check whether player foolishly genocided self while poly'd */
if ((mvitals[urole.malenum].mvflags & G_GENOD) ||
(urole.femalenum != NON_PM &&
(mvitals[urole.femalenum].mvflags & G_GENOD)) ||
(mvitals[urace.malenum].mvflags & G_GENOD) ||
(urace.femalenum != NON_PM &&
(mvitals[urace.femalenum].mvflags & G_GENOD))) {
/* intervening activity might have clobbered genocide info */
killer = delayed_killer;
if (!killer || !strstri(killer, "genocid")) {
killer_format = KILLED_BY;
killer = "self-genocide";
}
done(GENOCIDED);
}
if (u.twoweap && !could_twoweap(youmonst.data))
untwoweapon();
if (u.utraptype == TT_PIT) {
if (could_pass_walls) { /* player forms cannot pass walls */
u.utrap = rn1(6,2);
}
}
if (was_blind && !Blind) { /* reverting from eyeless */
Blinded = 1L;
make_blinded(0L, TRUE); /* remove blindness */
}
if (!Levitation && !u.ustuck &&
(is_pool(level, u.ux,u.uy) || is_lava(level, u.ux,u.uy)))
spoteffects(TRUE);
see_monsters();
}
