#include "hack.h"

staticfn void check_strangling(boolean);

staticfn void polyman(const char *, const char *);

staticfn void dropp(struct obj *);

staticfn void break_armor(void);

staticfn void drop_weapon(int);

staticfn int armor_to_dragon(int);

staticfn void newman(void);

staticfn void polysense(void);

static const char no_longer_petrify_resistant[] =

"No longer petrify-resistant, you";

set_uasmon(void)

{

struct permonst *mdat = &mons[u.umonnum];

boolean was_vampshifter = valid_vampshiftform(gy.youmonst.cham, u.umonnum);

set_mon_data(&gy.youmonst, mdat);

gy.youmonst.m_id = 1;

if (Protection_from_shape_changers)

gy.youmonst.cham = NON_PM;

else if (is_vampire(gy.youmonst.data))

gy.youmonst.cham = gy.youmonst.mnum;

/* assume hero-as-chameleon/doppelganger/sandestin doesn't change shape */

else if (!was_vampshifter)

gy.youmonst.cham = NON_PM;

u.mcham = gy.youmonst.cham; /* for save/restore since youmonst isn't */

#define PROPSET(PropIndx, ON) \

do { \

if (ON) \

u.uprops[PropIndx].intrinsic |= FROMFORM; \

else \

u.uprops[PropIndx].intrinsic &= ~FROMFORM; \

} while (0)

#define resist_from_form(MRtyp) ((gy.youmonst.data->mresists & (MRtyp)) != 0)

PROPSET(FIRE_RES, resist_from_form(MR_FIRE));

PROPSET(COLD_RES, resist_from_form( MR_COLD));

PROPSET(SLEEP_RES, resist_from_form(MR_SLEEP));

PROPSET(DISINT_RES, resist_from_form(MR_DISINT));

PROPSET(SHOCK_RES, resist_from_form(MR_ELEC));

PROPSET(POISON_RES, resist_from_form(MR_POISON));

PROPSET(ACID_RES, resist_from_form(MR_ACID));

PROPSET(STONE_RES, resist_from_form(MR_STONE));

{

/* resists_drli() takes wielded weapon into account; suppress it */

struct obj *save_uwep = uwep;

uwep = 0;

PROPSET(DRAIN_RES, resists_drli(&gy.youmonst));

uwep = save_uwep;

}

/* resists_magm() takes wielded, worn, and carried equipment into

PROPSET(ANTIMAGIC, (dmgtype(mdat, AD_MAGM)

|| mdat == &mons[PM_BABY_GRAY_DRAGON]

|| dmgtype(mdat, AD_RBRE)));

PROPSET(SICK_RES, (mdat->mlet == S_FUNGUS || mdat == &mons[PM_GHOUL]));

PROPSET(STUNNED, (mdat == &mons[PM_STALKER] || is_bat(mdat)));

PROPSET(HALLUC_RES, dmgtype(mdat, AD_HALU));

PROPSET(SEE_INVIS, perceives(mdat));

PROPSET(TELEPAT, telepathic(mdat));

/* note that Infravision uses mons[race] rather than usual mons[role] */

PROPSET(INFRAVISION, infravision(Upolyd ? mdat : &mons[gu.urace.mnum]));

PROPSET(INVIS, pm_invisible(mdat));

PROPSET(TELEPORT, can_teleport(mdat));

PROPSET(TELEPORT_CONTROL, control_teleport(mdat));

PROPSET(LEVITATION, is_floater(mdat));

/* floating eye is the only 'floater'; it is also flagged as a 'flyer';

PROPSET(FLYING, (is_flyer(mdat) && !is_floater(mdat)));

PROPSET(SWIMMING, is_swimmer(mdat));

/* [don't touch MAGICAL_BREATHING here; both Amphibious and Breathless

PROPSET(PASSES_WALLS, passes_walls(mdat));

PROPSET(REGENERATION, regenerates(mdat));

PROPSET(REFLECTING, (mdat == &mons[PM_SILVER_DRAGON]));

PROPSET(BLINDED, !haseyes(mdat));

PROPSET(BLND_RES, (dmgtype_fromattack(mdat, AD_BLND, AT_EXPL)

|| dmgtype_fromattack(mdat, AD_BLND, AT_GAZE)));

#undef PROPSET

#undef resist_from_form

/* whether the player is flying/floating depends on their steed,

if (!program_state.restoring)

float_vs_flight(); /* maybe toggle (BFlying & I_SPECIAL) */

polysense();

#ifdef STATUS_HILITES

if (VIA_WINDOWPORT())

status_initialize(REASSESS_ONLY);

/* we can reset this now, having just done what it is meant to trigger */

gw.were_changes = 0L;

}

float_vs_flight(void)

{

boolean stuck_in_floor = (u.utrap && u.utraptype != TT_PIT);

/* floating overrides flight; so does being trapped in the floor */

if ((HLevitation || ELevitation)

|| ((HFlying || EFlying) && stuck_in_floor))

BFlying |= I_SPECIAL;

else

BFlying &= ~I_SPECIAL;

/* being trapped on the ground (bear trap, web, molten lava survived

if ((HLevitation || ELevitation) && stuck_in_floor)

BLevitation |= I_SPECIAL;

else

BLevitation &= ~I_SPECIAL;

/* riding blocks stealth unless hero+steed fly, so a change in flying

steed_vs_stealth();

disp.botl = TRUE;

}

steed_vs_stealth(void)

{

if (u.usteed && !Flying && !Levitation)

BStealth |= FROMOUTSIDE;

else

BStealth &= ~FROMOUTSIDE;

}

staticfn void

check_strangling(boolean on)

{

/* on -- maybe resume strangling */

if (on) {

boolean was_strangled = (Strangled != 0L);

/* when Strangled is already set, polymorphing from one

if (uamul && uamul->otyp == AMULET_OF_STRANGULATION

&& can_be_strangled(&gy.youmonst)) {

Strangled = 6L;

disp.botl = TRUE;

Your("%s %s your %s!", simpleonames(uamul),

was_strangled ? "still constricts" : "begins constricting",

body_part(NECK)); /* "throat" */

makeknown(AMULET_OF_STRANGULATION);

}

/* off -- maybe block strangling */

} else {

if (Strangled && !can_be_strangled(&gy.youmonst)) {

Strangled = 0L;

disp.botl = TRUE;

You("are no longer being strangled.");

}

}

}

staticfn void

polyman(const char *fmt, const char *arg)

{

boolean sticking = (sticks(gy.youmonst.data) && u.ustuck && !u.uswallow),

was_mimicking = (U_AP_TYPE != M_AP_NOTHING);

boolean was_blind = !!Blind,

had_see_invis = !!See_invisible;

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 (sticking)

uunstick();

find_ac();

if (was_mimicking) {

if (gm.multi < 0)

unmul("");

gy.youmonst.m_ap_type = M_AP_NOTHING;

gy.youmonst.mappearance = 0;

}

newsym(u.ux, u.uy);

urgent_pline(fmt, arg);

/* check whether player foolishly genocided self while poly'd */

if (ugenocided()) {

/* intervening activity might have clobbered genocide info */

struct kinfo *kptr = find_delayed_killer(POLYMORPH);

if (kptr != (struct kinfo *) 0 && kptr->name[0]) {

svk.killer.format = kptr->format;

Strcpy(svk.killer.name, kptr->name);

} else {

svk.killer.format = KILLED_BY;

Strcpy(svk.killer.name, "self-genocide");

}

dealloc_killer(kptr);

done(GENOCIDED);

}

if (!!See_invisible ^ had_see_invis)

set_mimic_blocking(); /* See_invisible just toggled */

if (u.twoweap && !could_twoweap(gy.youmonst.data))

untwoweapon();

if (u.utrap && u.utraptype == TT_PIT) {

set_utrap(rn1(6, 2), TT_PIT); /* time to escape resets */

}

if (was_blind && !Blind) { /* reverting from eyeless */

set_itimeout(&HBlinded, 1L);

make_blinded(0L, TRUE); /* remove blindness */

}

check_strangling(TRUE);

if (!Levitation && !u.ustuck && is_pool_or_lava(u.ux, u.uy))

spoteffects(TRUE);

see_monsters();

}

change_sex(void)

{

/* Some monsters are always of one sex and their sex can't be changed;

if (!Upolyd

|| (!is_male(gy.youmonst.data) && !is_female(gy.youmonst.data)

&& !is_neuter(gy.youmonst.data)))

flags.female = !flags.female;

if (Upolyd) /* poly'd: also change saved sex */

u.mfemale = !u.mfemale;

max_rank_sz(); /* [this appears to be superfluous] */

if ((Upolyd ? u.mfemale : flags.female) && gu.urole.name.f)

Strcpy(svp.pl_character, gu.urole.name.f);

else

Strcpy(svp.pl_character, gu.urole.name.m);

if (!Upolyd) {

u.umonnum = u.umonster;

} else if (u.umonnum == PM_AMOROUS_DEMON) {

flags.female = !flags.female;

#if 0

/* change monster type to match new sex; disabled with

u.umonnum = (u.umonnum == PM_SUCCUBUS) ? PM_INCUBUS : PM_SUCCUBUS;

set_uasmon();

}

}

livelog_newform(boolean viapoly, int oldgend, int newgend)

{

char buf[BUFSZ];

const char *oldrole, *oldrank, *newrole, *newrank;

/*

if (!Upolyd) {

if (newgend != oldgend) {

oldrole = (oldgend && gu.urole.name.f) ? gu.urole.name.f

: gu.urole.name.m;

newrole = (newgend && gu.urole.name.f) ? gu.urole.name.f

: gu.urole.name.m;

oldrank = rank_of(u.ulevel, Role_switch, oldgend);

newrank = rank_of(u.ulevel, Role_switch, newgend);

Sprintf(buf, "%.10s %.30s", genders[flags.female].adj, newrank);

livelog_printf(LL_MINORAC, "%s into %s",

viapoly ? "polymorphed" : "transformed",

an(strcmp(newrole, oldrole) ? newrole

: strcmp(newrank, oldrank) ? newrank

: buf));

}

}

}

staticfn void

newman(void)

{

const char *newform;

int i, oldlvl, newlvl, oldgend, newgend, hpmax, enmax;

oldlvl = u.ulevel;

newlvl = oldlvl + rn1(5, -2); /* new = old + {-2,-1,0,+1,+2} */

if (newlvl > 127 || newlvl < 1) { /* level went below 0? */

goto dead; /* old level is still intact (in case of lifesaving) */

}

if (newlvl > MAXULEV)

newlvl = MAXULEV;

/* If your level goes down, your peak level goes down by

if (newlvl < oldlvl)

u.ulevelmax -= (oldlvl - newlvl);

if (u.ulevelmax < newlvl)

u.ulevelmax = newlvl;

u.ulevel = newlvl;

oldgend = poly_gender();

if (gs.sex_change_ok && !rn2(10))

change_sex();

adjabil(oldlvl, (int) u.ulevel);

/* random experience points for the new experience level */

u.uexp = rndexp(FALSE);

/* set up new attribute points (particularly Con) */

redist_attr();

/*

hpmax = u.uhpmax;

for (i = 0; i < oldlvl; i++)

hpmax -= (int) u.uhpinc[i];

/* hpmax * rn1(4,8) / 10; 0.95*hpmax on average */

hpmax = rounddiv((long) hpmax * (long) rn1(4, 8), 10);

for (i = 0; (u.ulevel = i) < newlvl; i++)

hpmax += newhp();

if (hpmax < u.ulevel)

hpmax = u.ulevel; /* min of 1 HP per level */

/* retain same proportion for current HP; u.uhp * hpmax / u.uhpmax */

u.uhp = rounddiv((long) u.uhp * (long) hpmax, u.uhpmax);

setuhpmax(hpmax, TRUE); /* might reduce u.uhp */

/*

enmax = u.uenmax;

for (i = 0; i < oldlvl; i++)

enmax -= (int) u.ueninc[i];

enmax = rounddiv((long) enmax * (long) rn1(4, 8), 10);

for (i = 0; (u.ulevel = i) < newlvl; i++)

enmax += newpw();

if (enmax < u.ulevel)

enmax = u.ulevel;

u.uen = rounddiv((long) u.uen * (long) enmax,

((u.uenmax < 1) ? 1 : u.uenmax));

u.uenmax = enmax;

/* [should alignment record be tweaked too?] */

u.uhunger = rn1(500, 500);

if (Sick)

make_sick(0L, (char *) 0, FALSE, SICK_ALL);

if (Stoned)

make_stoned(0L, (char *) 0, 0, (char *) 0);

if (u.uhp <= 0) {

if (Polymorph_control) { /* even when Stunned || Unaware */

if (u.uhp <= 0)

u.uhp = 1;

} else {

dead: /* we come directly here if experience level went to 0 or less */

urgent_pline(

"Your new form doesn't seem healthy enough to survive.");

svk.killer.format = KILLED_BY_AN;

Strcpy(svk.killer.name, "unsuccessful polymorph");

done(DIED);

/* must have been life-saved to get here */

newuhs(FALSE);

encumber_msg(); /* used to be done by redist_attr() */

return; /* lifesaved */

}

}

newuhs(FALSE);

/* use saved gender we're about to revert to, not current */

newform = ((Upolyd ? u.mfemale : flags.female) && gu.urace.individual.f)

? gu.urace.individual.f

: (gu.urace.individual.m)

? gu.urace.individual.m

: gu.urace.noun;

polyman("You feel like a new %s!", newform);

newgend = poly_gender();

/* note: newman() bypasses achievements for new ranks attained and

if (newlvl != oldlvl)

livelog_printf(LL_MINORAC, "became experience level %d as a new %s",

newlvl, newform);

else

livelog_newform(TRUE, oldgend, newgend);

if (Slimed) {

Your("body transforms, but there is still slime on you.");

make_slimed(10L, (const char *) 0);

}

disp.botl = TRUE;

see_monsters();

encumber_msg();

retouch_equipment(2);

if (!uarmg)

selftouch(no_longer_petrify_resistant);

}

polyself(int psflags)

{

char buf[BUFSZ];

int old_light, new_light, mntmp, class, tryct, gvariant = NEUTRAL;

boolean forcecontrol = ((psflags & POLY_CONTROLLED) != 0),

low_control = ((psflags & POLY_LOW_CTRL) != 0),

monsterpoly = ((psflags & POLY_MONSTER) != 0),

formrevert = ((psflags & POLY_REVERT) != 0),

draconian = (uarm && Is_dragon_armor(uarm)),

iswere = (ismnum(u.ulycn)),

isvamp = (is_vampire(gy.youmonst.data)

|| is_vampshifter(&gy.youmonst)),

controllable_poly = Polymorph_control && !(Stunned || Unaware);

if (Unchanging) {

You("fail to transform!");

return;

}

/* being Stunned|Unaware doesn't negate this aspect of Poly_control */

if (!Polymorph_control && !forcecontrol && !draconian && !iswere

&& !isvamp) {

if (rn2(20) > ACURR(A_CON)) {

You1(shudder_for_moment);

losehp(rnd(30), "system shock", KILLED_BY_AN);

exercise(A_CON, FALSE);

return;

}

}

old_light = emits_light(gy.youmonst.data);

mntmp = NON_PM;

if (formrevert) {

mntmp = gy.youmonst.cham;

monsterpoly = TRUE;

controllable_poly = FALSE;

}

if (forcecontrol && low_control

&& (draconian || monsterpoly || isvamp || iswere))

forcecontrol = FALSE;

if (monsterpoly && isvamp)

goto do_vampyr;

if (controllable_poly || forcecontrol) {

buf[0] = '\0';

tryct = 5;

do {

mntmp = NON_PM;

getlin("Become what kind of monster? [type the name]", buf);

(void) mungspaces(buf);

if (*buf == '\033') {

/* user is cancelling controlled poly */

if (forcecontrol) { /* wizard mode #polyself */

pline1(Never_mind);

return;

}

Strcpy(buf, "*"); /* resort to random */

}

if (!strcmp(buf, "*") || !strcmp(buf, "random")) {

/* explicitly requesting random result */

tryct = 0; /* will skip thats_enough_tries */

continue; /* end do-while(--tryct > 0) loop */

}

class = 0;

mntmp = name_to_mon(buf, &gvariant);

if (mntmp < LOW_PM) {

by_class:

class = name_to_monclass(buf, &mntmp);

if (class && mntmp == NON_PM)

mntmp = (draconian && class == S_DRAGON)

? armor_to_dragon(uarm->otyp)

: mkclass_poly(class);

/* placeholder monsters are for corpses and all flagged

} else if (is_placeholder(&mons[mntmp])

/* when your own race, fall to !polyok() case */

&& !your_race(&mons[mntmp])

/* same for generic human, even if hero isn't human */

&& mntmp != PM_HUMAN) {

/* far less general than mkclass() */

if (mntmp == PM_ORC)

mntmp = rn2(3) ? PM_HILL_ORC : PM_MORDOR_ORC;

else if (mntmp == PM_ELF)

mntmp = rn2(3) ? PM_GREEN_ELF : PM_GREY_ELF;

else if (mntmp == PM_GIANT)

mntmp = rn2(3) ? PM_STONE_GIANT : PM_HILL_GIANT;

/* note: PM_DWARF and PM_GNOME are ordinary monsters and

}

if (mntmp < LOW_PM) {

if (!class)

pline("I've never heard of such monsters.");

else

You_cant("polymorph into any of those.");

} else if (wizard && Upolyd

&& (mntmp == u.umonster

/* "priest" and "priestess" match the monster

|| (u.umonster == PM_CLERIC

&& mntmp == PM_ALIGNED_CLERIC

&& !strstri(buf, "aligned")))) {

/* in wizard mode, picking own role while poly'd reverts to

rehumanize();

old_light = 0; /* rehumanize() extinguishes u-as-mon light */

goto made_change;

} else if (iswere && (were_beastie(mntmp) == u.ulycn

|| mntmp == counter_were(u.ulycn)

|| (Upolyd && mntmp == PM_HUMAN))) {

goto do_shift;

} else if (!polyok(&mons[mntmp])

/* Note: humans are illegal as monsters, but an

&& !(mntmp == PM_HUMAN

|| (your_race(&mons[mntmp])

&& (mons[mntmp].geno & G_UNIQ) == 0)

|| mntmp == gu.urole.mnum)) {

const char *pm_name;

/* mkclass_poly() can pick a !polyok()

if (class) {

if (rn2(3) || --tryct > 0)

goto by_class;

/* no retries left; put one back on counter

++tryct;

}

pm_name = pmname(&mons[mntmp], flags.female ? FEMALE : MALE);

if (the_unique_pm(&mons[mntmp]))

pm_name = the(pm_name);

else if (!type_is_pname(&mons[mntmp]))

pm_name = an(pm_name);

You_cant("polymorph into %s.", pm_name);

} else

break;

} while (--tryct > 0);

if (!tryct)

pline1(thats_enough_tries);

/* allow skin merging, even when polymorph is controlled */

if (draconian && (tryct <= 0 || mntmp == armor_to_dragon(uarm->otyp)))

goto do_merge;

if (isvamp && (tryct <= 0 || mntmp == PM_WOLF || mntmp == PM_FOG_CLOUD

|| is_bat(&mons[mntmp])))

goto do_vampyr;

} else if (draconian || iswere || isvamp) {

/* special changes that don't require polyok() */

if (draconian) {

do_merge:

mntmp = armor_to_dragon(uarm->otyp);

if (!(svm.mvitals[mntmp].mvflags & G_GENOD)) {

unsigned was_lit = uarm->lamplit;

int arm_light = artifact_light(uarm) ? arti_light_radius(uarm)

: 0;

/* allow G_EXTINCT */

if (Is_dragon_scales(uarm)) {

/* dragon scales remain intact as uskin */

You("merge with your scaly armor.");

} else { /* dragon scale mail reverts to scales */

/* similar to noarmor(invent.c),

Strcpy(buf, simpleonames(uarm));

strsubst(buf, " dragon ", " ");

/* tricky phrasing; dragon scale mail is singular, dragon

Your("%s reverts to scales as you merge with them.", buf);

/* uarm->spe enchantment remains unchanged;

uarm->otyp += GRAY_DRAGON_SCALES - GRAY_DRAGON_SCALE_MAIL;

observe_object(uarm);

disp.botl = TRUE; /* AC is changing */

}

uskin = uarm;

uarm = (struct obj *) 0;

/* save/restore hack */

uskin->owornmask |= I_SPECIAL;

if (was_lit)

maybe_adjust_light(uskin, arm_light);

update_inventory();

}

} else if (iswere) {

do_shift:

if (Upolyd && were_beastie(mntmp) != u.ulycn)

mntmp = PM_HUMAN; /* Illegal; force newman() */

else

mntmp = u.ulycn;

} else if (isvamp) {

do_vampyr:

if (mntmp < LOW_PM || (mons[mntmp].geno & G_UNIQ)) {

mntmp = (gy.youmonst.data == &mons[PM_VAMPIRE_LEADER]

&& !rn2(10)) ? PM_WOLF

: !rn2(4) ? PM_FOG_CLOUD

: PM_VAMPIRE_BAT;

if (ismnum(gy.youmonst.cham)

&& !is_vampire(gy.youmonst.data) && !rn2(2))

mntmp = gy.youmonst.cham;

}

if (controllable_poly) {

Sprintf(buf, "Become %s?",

an(pmname(&mons[mntmp], gvariant)));

if (y_n(buf) != 'y')

return;

}

}

/* if polymon fails, "you feel" message has been given

if (mntmp == PM_HUMAN)

newman(); /* werecritter */

else

(void) polymon(mntmp);

goto made_change; /* maybe not, but this is right anyway */

}

if (mntmp < LOW_PM) {

tryct = 200;

do {

/* randomly pick an "ordinary" monster */

mntmp = rn1(SPECIAL_PM - LOW_PM, LOW_PM);

if (polyok(&mons[mntmp]) && !is_placeholder(&mons[mntmp]))

break;

} while (--tryct > 0);

}

/* The below polyok() fails either if everything is genocided, or if

gs.sex_change_ok++;

if (!polyok(&mons[mntmp]) || (!forcecontrol && !rn2(5))

|| your_race(&mons[mntmp])) {

newman();

} else {

(void) polymon(mntmp);

}

gs.sex_change_ok--; /* reset */

made_change:

new_light = emits_light(gy.youmonst.data);

if (old_light != new_light) {

if (old_light)

del_light_source(LS_MONSTER, monst_to_any(&gy.youmonst));

if (new_light == 1)

++new_light; /* otherwise it's undetectable */

if (new_light)

new_light_source(u.ux, u.uy, new_light, LS_MONSTER,

monst_to_any(&gy.youmonst));

}

}

polymon(int mntmp)

{

char buf[BUFSZ], ustuckNam[BUFSZ];

boolean sticking = sticks(gy.youmonst.data) && u.ustuck && !u.uswallow,

was_blind = !!Blind, dochange = FALSE, was_expelled = FALSE,

was_hiding_under = u.uundetected && hides_under(gy.youmonst.data);

int mlvl, newMaxStr;

if (svm.mvitals[mntmp].mvflags & G_GENOD) { /* allow G_EXTINCT */

You_feel("rather %s-ish.",

pmname(&mons[mntmp], flags.female ? FEMALE : MALE));

exercise(A_WIS, TRUE);

return 0;

}

/* KMH, conduct */

if (!u.uconduct.polyselfs++)

livelog_printf(LL_CONDUCT,

"changed form for the first time, becoming %s",

an(pmname(&mons[mntmp], flags.female ? FEMALE : MALE)));

/* exercise used to be at the very end but only Wis was affected

exercise(A_CON, FALSE);

exercise(A_WIS, TRUE);

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

u.acurr = u.macurr;

u.amax = u.mamax;

flags.female = u.mfemale;

}

/* if stuck mimicking gold, stop immediately */

if (gm.multi < 0 && U_AP_TYPE == M_AP_OBJECT

&& gy.youmonst.data->mlet != S_MIMIC)

unmul("");

/* if becoming a non-mimic, stop mimicking anything */

if (mons[mntmp].mlet != S_MIMIC) {

/* as in polyman() */

gy.youmonst.m_ap_type = M_AP_NOTHING;

gy.youmonst.mappearance = 0;

}

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 (gs.sex_change_ok && !rn2(10))

dochange = TRUE;

}

Strcpy(ustuckNam, u.ustuck ? Some_Monnam(u.ustuck) : "");

Strcpy(buf, (u.umonnum != mntmp) ? "" : "new ");

if (dochange) {

flags.female = !flags.female;

Strcat(buf, (is_male(&mons[mntmp]) || is_female(&mons[mntmp]))

? "" : flags.female ? "female " : "male ");

}

Strcat(buf, pmname(&mons[mntmp], flags.female ? FEMALE : MALE));

You("%s %s!", (u.umonnum != mntmp) ? "turn into" : "feel like", an(buf));

if (Stoned && poly_when_stoned(&mons[mntmp])) {

/* poly_when_stoned already checked stone golem genocide */

mntmp = PM_STONE_GOLEM;

make_stoned(0L, "You turn to stone!", 0, (char *) 0);

}

u.mtimedone = rn1(500, 500);

u.umonnum = mntmp;

set_uasmon();

/* New stats for monster, to last only as long as polymorphed.

newMaxStr = uasmon_maxStr();

if (strongmonst(&mons[mntmp])) {

ABASE(A_STR) = AMAX(A_STR) = (schar) newMaxStr;

} else {

/* not a strongmonst(); if hero has exceptional strength, remove it

AMAX(A_STR) = (schar) newMaxStr;

/* make sure current is not higher than max (strip exceptional Str) */

if (ABASE(A_STR) > AMAX(A_STR))

ABASE(A_STR) = AMAX(A_STR);

}

if (Stone_resistance && Stoned) { /* parnes@eniac.seas.upenn.edu */

make_stoned(0L, "You no longer seem to be petrifying.", 0,

(char *) 0);

}

if (Sick_resistance && Sick) {

make_sick(0L, (char *) 0, FALSE, SICK_ALL);

You("no longer feel sick.");

}

if (Slimed) {

if (flaming(gy.youmonst.data)) {

make_slimed(0L, "The slime burns away!");

} else if (mntmp == PM_GREEN_SLIME) {

/* do it silently */

make_slimed(0L, (char *) 0);

}

}

check_strangling(FALSE); /* maybe stop strangling */

if (nohands(gy.youmonst.data))

make_glib(0);

/*

mlvl = (int) mons[mntmp].mlevel;

if (gy.youmonst.data->mlet == S_DRAGON && mntmp >= PM_GRAY_DRAGON) {

u.mhmax = In_endgame(&u.uz) ? (8 * mlvl) : (4 * mlvl + d(mlvl, 4));

} else if (is_golem(gy.youmonst.data)) {

u.mhmax = golemhp(mntmp);

} else {

if (!mlvl)

u.mhmax = rnd(4);

else

u.mhmax = d(mlvl, 8);

if (is_home_elemental(&mons[mntmp]))

u.mhmax *= 3;

}

u.mh = u.mhmax;

if (u.ulevel < mlvl) {

/* Low level characters can't become high level monsters for long */

#ifdef DUMB

/* DRS/NS 2.2.6 messes up -- Peter Kendell */

int mtd = u.mtimedone, ulv = u.ulevel;

u.mtimedone = mtd * ulv / mlvl;

u.mtimedone = u.mtimedone * u.ulevel / mlvl;

}

if (uskin && mntmp != armor_to_dragon(uskin->otyp))

skinback(FALSE);

break_armor();

drop_weapon(1);

find_ac(); /* (repeated below) */

/* if hiding under something and can't hide anymore, unhide now;

if (was_hiding_under)

(void) hideunder(&gy.youmonst);

if (u.utrap && u.utraptype == TT_PIT) {

set_utrap(rn1(6, 2), TT_PIT); /* time to escape resets */

}

if (was_blind && !Blind) { /* previous form was eyeless */

set_itimeout(&HBlinded, 1L);

make_blinded(0L, TRUE); /* remove blindness */

}

newsym(u.ux, u.uy); /* Change symbol */

/* you now know what an egg of your type looks like; [moved from

if (lays_eggs(gy.youmonst.data)) {

learn_egg_type(u.umonnum);

/* make queen bees recognize killer bee eggs */

learn_egg_type(egg_type_from_parent(u.umonnum, TRUE));

}

if (u.uswallow) {

uchar usiz;

/* if new form can't be swallowed, make engulfer expel hero */

if (unsolid(gy.youmonst.data)

/* subset of engulf_target() */

|| (usiz = gy.youmonst.data->msize) >= MZ_HUGE

|| (u.ustuck->data->msize < usiz && !is_whirly(u.ustuck->data))) {

boolean expels_mesg = TRUE;

if (unsolid(gy.youmonst.data)) {

if (canspotmon(u.ustuck)) /* [see below for explanation] */

Strcpy(ustuckNam, Monnam(u.ustuck));

pline("%s can no longer contain you.", ustuckNam);

expels_mesg = FALSE;

}

expels(u.ustuck, u.ustuck->data, expels_mesg);

was_expelled = TRUE;

/* FIXME? if expels() triggered rehumanize then we should

}

/* [note: this 'sticking' handling is only sufficient for changing from

} else if (u.ustuck && !sticking /* && !u.uswallow */

/* being held; if now capable of holding, make holder

&& (sticks(gy.youmonst.data) || unsolid(gy.youmonst.data))) {

/* u.ustuck name was saved above in case we're changing from can-see

if (canspotmon(u.ustuck))

Strcpy(ustuckNam, Monnam(u.ustuck));

set_ustuck((struct monst *) 0);

pline("%s loses its grip on you.", ustuckNam);

} else if (sticking && !sticks(gy.youmonst.data)) {

/* was holding onto u.ustuck but no longer capable of that */

uunstick();

}

if (u.usteed) {

if (touch_petrifies(u.usteed->data) && !Stone_resistance && rnl(3)) {

pline("%s touch %s.", no_longer_petrify_resistant,

mon_nam(u.usteed));

Sprintf(buf, "riding %s",

an(pmname(u.usteed->data, Mgender(u.usteed))));

instapetrify(buf);

}

if (!can_ride(u.usteed))

dismount_steed(DISMOUNT_POLY);

}

find_ac();

if (((!Levitation && !u.ustuck && !Flying && is_pool_or_lava(u.ux, u.uy))

|| (Underwater && !Swimming))

/* if expelled above, expels() already called spoteffects() */

&& !was_expelled) {

spoteffects(TRUE);

/* FIXME? if spoteffects() triggered rehumanize then we should

}

if (Passes_walls && u.utrap

&& (u.utraptype == TT_INFLOOR || u.utraptype == TT_BURIEDBALL)) {

if (u.utraptype == TT_INFLOOR) {

pline_The("rock seems to no longer trap you.");

} else {

pline_The("buried ball is no longer bound to you.");

buried_ball_to_freedom();

}

reset_utrap(TRUE);

} else if (likes_lava(gy.youmonst.data) && u.utrap

&& u.utraptype == TT_LAVA) {

pline_The("%s now feels soothing.", hliquid("lava"));

reset_utrap(TRUE);

}

if (amorphous(gy.youmonst.data) || is_whirly(gy.youmonst.data)

|| unsolid(gy.youmonst.data)) {

if (Punished) {

You("slip out of the iron chain.");

unpunish();

} else if (u.utrap && u.utraptype == TT_BURIEDBALL) {

You("slip free of the buried ball and chain.");

buried_ball_to_freedom();

}

}

if (u.utrap && (u.utraptype == TT_WEB || u.utraptype == TT_BEARTRAP)