From 3c58c3b2353bee9e0e0200dd12c112ba2288b5fa Mon Sep 17 00:00:00 2001 From: "nethack.rankin" Date: Sun, 8 Apr 2007 01:51:57 +0000 Subject: [PATCH] fix #U1233 - controlled polymorph by hero with lycanthropy (trunk only) reported a long list of inconsistencies and suggestions. This attempts to address the ones about werecritters and vampires. > Polymorphed player does not get werecreature changes. (intentional?) > Player in were form does not turn into werehuman form, ever. (Previous > bugged behavior was that player turned into a plain human) > Player afflicted with a were cannot polymorph into werecreature or > werehuman form. The first guess is right; being polymorphed blocks lycanthropy state changes. The second is not a bug either; hero is either a when in beast form or a when in human form, never human werecritter monster. The last one feels more like a bug though; it happened because all lycanthrope monster entries are marked NOPOLY. This patch extends an earlier post-3.4.3 change to allow player with polymorph control to explicitly specify werecritter when in role form or human werecritter when in beast form to toggle shape. It also allows closely related monsters to toggle from role to beast (ie, "giant rat" yields wererat). > Vampire or Werecreature changing form may change sex. Now the three semi-controlled changes--becoming a dragon due to armor, toggling were form, and vampire into various critters--are prevented from having the 10% chance of sex change kick in. For monsters, lycanthropy didn't apply (sex never toggles) and vampire shifting is now covered but turning into a dragon due to scales/mail remains susceptible to sex change. Also, post-3.4.3 code made polymorphing into a vampire enable the #monster command but neglected to tell the player. --- doc/fixes35.0 | 3 ++ include/extern.h | 1 + src/mon.c | 7 ++++ src/polyself.c | 83 ++++++++++++++++++++++++++++-------------------- src/were.c | 29 ++++++++++++++++- 5 files changed, 88 insertions(+), 35 deletions(-) diff --git a/doc/fixes35.0 b/doc/fixes35.0 index 0437b707d..21c8d845d 100644 --- a/doc/fixes35.0 +++ b/doc/fixes35.0 @@ -212,6 +212,9 @@ stone-to-flesh which activates shop-owned figurine entails shop charges make giants be less likely to be randomly generated in Sokoban bear traps dish out some damage on initial entrapment bear traps and webs are harmless to water elementals +hero with polymorph control and inflicted with lycanthropy can specify own + werecritter or human werecritter monster types as polymorph target +hero undergoing semi-controlled polymorph won't also undergo sex chance Platform- and/or Interface-Specific Fixes diff --git a/include/extern.h b/include/extern.h index f7f4d78f1..fe81c19d9 100644 --- a/include/extern.h +++ b/include/extern.h @@ -2498,6 +2498,7 @@ E void FDECL(skill_init, (const struct def_skill *)); E void FDECL(were_change, (struct monst *)); E int FDECL(counter_were, (int)); +E int FDECL(were_beastie, (int)); E void FDECL(new_were, (struct monst *)); E int FDECL(were_summon, (struct permonst *,BOOLEAN_P,int *,char *)); E void NDECL(you_were); diff --git a/src/mon.c b/src/mon.c index 69ae08f01..b537635a3 100644 --- a/src/mon.c +++ b/src/mon.c @@ -2508,6 +2508,8 @@ decide_to_shapeshift(mon, shiftflags) struct monst *mon; int shiftflags; { + struct permonst *ptr; + unsigned was_female = mon->female; boolean msg = FALSE; if ((shiftflags & SHIFT_MSG) || @@ -2527,6 +2529,10 @@ int shiftflags; !rn2(6) && (mon->mhp > mon->mhpmax - ((mon->mhpmax / 10) + 1))) { (void) newcham(mon, (struct permonst *)0, FALSE, msg); } + /* override the 10% chance for sex change */ + ptr = mon->data; + if (!is_male(ptr) && !is_female(ptr) && !is_neuter(ptr)) + mon->female = was_female; } int @@ -3042,6 +3048,7 @@ struct permonst *mdat; if (!olfaction(youmonst.data)) return FALSE; mndx = monsndx(mdat); switch (mndx) { + case PM_ROTHE: case PM_MINOTAUR: You("notice a bovine smell."); msg_given = TRUE; diff --git a/src/polyself.c b/src/polyself.c index 7588ec22f..5105d6cd3 100644 --- a/src/polyself.c +++ b/src/polyself.c @@ -1,4 +1,4 @@ -/* SCCS Id: @(#)polyself.c 3.5 2007/03/19 */ +/* SCCS Id: @(#)polyself.c 3.5 2007/04/07 */ /* Copyright (C) 1987, 1988, 1989 by Ken Arromdee */ /* NetHack may be freely redistributed. See license for details. */ @@ -32,6 +32,10 @@ STATIC_DCL boolean FDECL(polysense,(struct permonst *)); STATIC_VAR const char no_longer_petrify_resistant[] = "No longer petrify-resistant, you"; +/* controls whether taking on new form or becoming new man can also + change sex (ought to be an arg to polymon() and newman() instead) */ +STATIC_VAR int sex_change_ok = 0; + /* update the youmonst.data structure pointer */ void set_uasmon() @@ -166,7 +170,7 @@ newman() if (u.ulevelmax < newlvl) u.ulevelmax = newlvl; u.ulevel = newlvl; - if (!rn2(10)) change_sex(); + if (sex_change_ok && !rn2(10)) change_sex(); adjabil(oldlvl, (int)u.ulevel); reset_rndmonst(NON_PM); /* new monster generation criteria */ @@ -251,11 +255,11 @@ polyself(psflags) int psflags; { char buf[BUFSZ]; - int old_light, new_light, mntmp, tries; + int old_light, new_light, mntmp, tryct; boolean forcecontrol = (psflags == 1), monsterpoly = (psflags == 2), draconian = (uarm && Is_dragon_armor(uarm)), - iswere = (u.ulycn >= LOW_PM || is_were(youmonst.data)), + iswere = (u.ulycn >= LOW_PM), isvamp = (youmonst.data->mlet == S_VAMPIRE); if (Unchanging) { @@ -274,16 +278,20 @@ int psflags; old_light = emits_light(youmonst.data); mntmp = NON_PM; - if ((Polymorph_control || forcecontrol) && !monsterpoly) { - tries = 0; + if (monsterpoly && isvamp) + goto do_vampyr; + + if (Polymorph_control || forcecontrol) { + tryct = 5; do { getlin("Become what kind of monster? [type the name]", buf); mntmp = name_to_mon(buf); if (mntmp < LOW_PM) pline("I've never heard of such monsters."); - else if (u.ulycn && (mntmp == u.ulycn || - mntmp == counter_were(u.ulycn))) + else if (iswere && (were_beastie(mntmp) == u.ulycn || + mntmp == counter_were(u.ulycn) || + (Upolyd && mntmp == PM_HUMAN))) goto do_shift; /* Note: humans are illegal as monsters, but an * illegal monster forces newman(), which is what we @@ -295,12 +303,15 @@ int psflags; mntmp == urole.femalenum)) You("cannot polymorph into that."); else break; - } while(++tries < 5); - if (tries==5) pline(thats_enough_tries); + } while (--tryct > 0); + if (!tryct) pline(thats_enough_tries); /* allow skin merging, even when polymorph is controlled */ - if (draconian && - (mntmp == armor_to_dragon(uarm->otyp) || tries == 5)) + if (draconian && (!tryct || + mntmp == armor_to_dragon(uarm->otyp))) goto do_merge; + if (isvamp && (!tryct || 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) { @@ -316,53 +327,53 @@ int psflags; } } else if (iswere) { do_shift: - if (is_were(youmonst.data)) + if (Upolyd && were_beastie(mntmp) != u.ulycn) mntmp = PM_HUMAN; /* Illegal; force newman() */ else mntmp = u.ulycn; - } else { - if (youmonst.data->mlet == S_VAMPIRE) { + } else if (isvamp) { + do_vampyr: + if (mntmp < LOW_PM || (mons[mntmp].geno & G_UNIQ)) mntmp = (youmonst.data != &mons[PM_VAMPIRE] && !rn2(10)) ? PM_WOLF : !rn2(4) ? PM_FOG_CLOUD : PM_VAMPIRE_BAT; - if (Polymorph_control) { - char buf[BUFSZ]; - Sprintf(buf, "Become %s?", - an(mons[mntmp].mname)); - if (yn(buf) != 'y') return; - } - if (Unchanging) { - pline("You fail to transform!"); - return; - } + if (Polymorph_control) { + Sprintf(buf, "Become %s?", + an(mons[mntmp].mname)); + if (yn(buf) != 'y') return; } } /* if polymon fails, "you feel" message has been given - so don't follow up with another polymon or newman */ - if (mntmp == PM_HUMAN) newman(); /* werecritter */ - else (void) polymon(mntmp); + so don't follow up with another polymon or newman; + sex_change_ok left disabled here */ + if (mntmp == PM_HUMAN) + newman(); /* werecritter */ + else + (void)polymon(mntmp); goto made_change; /* maybe not, but this is right anyway */ } if (mntmp < LOW_PM) { - tries = 0; + 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 (++tries < 200); + } while (--tryct > 0); } /* The below polyok() fails either if everything is genocided, or if * we deliberately chose something illegal to force newman(). */ + sex_change_ok++; if (!polyok(&mons[mntmp]) || (!forcecontrol && !rn2(5)) || your_race(&mons[mntmp])) { - newman(); - } else if (!polymon(mntmp)) { - return; /* failed to change */ + newman(); + } else { + (void)polymon(mntmp); } + sex_change_ok--; /* reset */ made_change: new_light = emits_light(youmonst.data); @@ -425,7 +436,7 @@ int mntmp; } 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 (sex_change_ok && !rn2(10)) dochange = TRUE; } if (dochange) { flags.female = !flags.female; @@ -537,6 +548,7 @@ int mntmp; 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)) @@ -559,6 +571,9 @@ int mntmp; pline(use_thec,monsterc,"emit a mental blast"); if (youmonst.data->msound == MS_SHRIEK) /* worthless, actually */ pline(use_thec,monsterc,"shriek"); + if (youmonst.data->mlet == S_VAMPIRE) + pline(use_thec,monsterc,"change shape"); + if (lays_eggs(youmonst.data) && flags.female) pline(use_thec,"sit","lay an egg"); } diff --git a/src/were.c b/src/were.c index f5edb6aff..fd1648c30 100644 --- a/src/were.c +++ b/src/were.c @@ -1,4 +1,4 @@ -/* SCCS Id: @(#)were.c 3.5 2006/05/27 */ +/* SCCS Id: @(#)were.c 3.5 2007/04/07 */ /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ /* NetHack may be freely redistributed. See license for details. */ @@ -48,6 +48,33 @@ int pm; } } +/* convert monsters similar to werecritters into appropriate werebeast */ +int +were_beastie(pm) +int pm; +{ + switch (pm) { + case PM_WERERAT: + case PM_SEWER_RAT: + case PM_GIANT_RAT: + case PM_RABID_RAT: + return PM_WERERAT; + case PM_WEREJACKAL: + case PM_JACKAL: + case PM_FOX: + case PM_COYOTE: + return PM_WEREJACKAL; + case PM_WEREWOLF: + case PM_WOLF: + case PM_WARG: + case PM_WINTER_WOLF: + return PM_WEREWOLF; + default: + break; + } + return NON_PM; +} + void new_were(mon) register struct monst *mon;