8edb0772d8
Several polymorph tweaks, most dealing with specifying form under
polymorph control or for wizard #polyself:
1) allow "were<critter>" and "human were<critter>" for your type of
<critter> when you're inflicted with lycanthropy; now you'll toggle
shape rather than be told "you cannot polymorph into that".
2) allow your own role; now you'll become a new man (or whatever race)
rather than get "you can't".
3) allow "human" to force a new man (or whatever) regardless of race.
No change for human characters, but elves, dwarves, and such can now
use either their own race or "human". (They never become humans.)
4) for wizard #polyself only, override the 20% chance of becoming a new
man instead of taking on the selected form. (This implicitly prevents
the annoying "your new form isn't healthy enough to survive" death
since your experience level won't drop below 1.)
5) remove a redundant drowning check in polyself(); it's already handled
in polymon() and polyman(for newman()) via spoteffects().
This also gets rid of an old use of 0 as not-a-valid-monster (not
responisble for any bugs though since giant ants aren't lycanthropes).
157 lines
3.8 KiB
C
157 lines
3.8 KiB
C
/* SCCS Id: @(#)were.c 3.5 2006/05/27 */
|
|
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
|
|
#include "hack.h"
|
|
|
|
void
|
|
were_change(mon)
|
|
register struct monst *mon;
|
|
{
|
|
if (!is_were(mon->data))
|
|
return;
|
|
|
|
if (is_human(mon->data)) {
|
|
if (!Protection_from_shape_changers &&
|
|
!rn2(night() ? (flags.moonphase == FULL_MOON ? 3 : 30)
|
|
: (flags.moonphase == FULL_MOON ? 10 : 50))) {
|
|
new_were(mon); /* change into animal form */
|
|
if (!Deaf && !canseemon(mon)) {
|
|
const char *howler;
|
|
|
|
switch (monsndx(mon->data)) {
|
|
case PM_WEREWOLF: howler = "wolf"; break;
|
|
case PM_WEREJACKAL: howler = "jackal"; break;
|
|
default: howler = (char *)0; break;
|
|
}
|
|
if (howler)
|
|
You_hear("a %s howling at the moon.", howler);
|
|
}
|
|
}
|
|
} else if (!rn2(30) || Protection_from_shape_changers) {
|
|
new_were(mon); /* change back into human form */
|
|
}
|
|
}
|
|
|
|
int
|
|
counter_were(pm)
|
|
int pm;
|
|
{
|
|
switch(pm) {
|
|
case PM_WEREWOLF: return(PM_HUMAN_WEREWOLF);
|
|
case PM_HUMAN_WEREWOLF: return(PM_WEREWOLF);
|
|
case PM_WEREJACKAL: return(PM_HUMAN_WEREJACKAL);
|
|
case PM_HUMAN_WEREJACKAL: return(PM_WEREJACKAL);
|
|
case PM_WERERAT: return(PM_HUMAN_WERERAT);
|
|
case PM_HUMAN_WERERAT: return(PM_WERERAT);
|
|
default: return NON_PM;
|
|
}
|
|
}
|
|
|
|
void
|
|
new_were(mon)
|
|
register struct monst *mon;
|
|
{
|
|
register int pm;
|
|
|
|
pm = counter_were(monsndx(mon->data));
|
|
if (pm < LOW_PM) {
|
|
impossible("unknown lycanthrope %s.", mon->data->mname);
|
|
return;
|
|
}
|
|
|
|
if(canseemon(mon) && !Hallucination)
|
|
pline("%s changes into a %s.", Monnam(mon),
|
|
is_human(&mons[pm]) ? "human" :
|
|
mons[pm].mname+4);
|
|
|
|
set_mon_data(mon, &mons[pm], 0);
|
|
if (mon->msleeping || !mon->mcanmove) {
|
|
/* transformation wakens and/or revitalizes */
|
|
mon->msleeping = 0;
|
|
mon->mfrozen = 0; /* not asleep or paralyzed */
|
|
mon->mcanmove = 1;
|
|
}
|
|
/* regenerate by 1/4 of the lost hit points */
|
|
mon->mhp += (mon->mhpmax - mon->mhp) / 4;
|
|
newsym(mon->mx,mon->my);
|
|
mon_break_armor(mon, FALSE);
|
|
possibly_unwield(mon, FALSE);
|
|
}
|
|
|
|
int
|
|
were_summon(ptr,yours,visible,genbuf) /* were-creature (even you) summons a horde */
|
|
register struct permonst *ptr;
|
|
register boolean yours;
|
|
int *visible; /* number of visible helpers created */
|
|
char *genbuf;
|
|
{
|
|
register int i, typ, pm = monsndx(ptr);
|
|
register struct monst *mtmp;
|
|
int total = 0;
|
|
|
|
*visible = 0;
|
|
if(Protection_from_shape_changers && !yours)
|
|
return 0;
|
|
for(i = rnd(5); i > 0; i--) {
|
|
switch(pm) {
|
|
|
|
case PM_WERERAT:
|
|
case PM_HUMAN_WERERAT:
|
|
typ = rn2(3) ? PM_SEWER_RAT : rn2(3) ? PM_GIANT_RAT : PM_RABID_RAT ;
|
|
if (genbuf) Strcpy(genbuf, "rat");
|
|
break;
|
|
case PM_WEREJACKAL:
|
|
case PM_HUMAN_WEREJACKAL:
|
|
typ = PM_JACKAL;
|
|
if (genbuf) Strcpy(genbuf, "jackal");
|
|
break;
|
|
case PM_WEREWOLF:
|
|
case PM_HUMAN_WEREWOLF:
|
|
typ = rn2(5) ? PM_WOLF : PM_WINTER_WOLF ;
|
|
if (genbuf) Strcpy(genbuf, "wolf");
|
|
break;
|
|
default:
|
|
continue;
|
|
}
|
|
mtmp = makemon(&mons[typ], u.ux, u.uy, NO_MM_FLAGS);
|
|
if (mtmp) {
|
|
total++;
|
|
if (canseemon(mtmp)) *visible += 1;
|
|
}
|
|
if (yours && mtmp)
|
|
(void) tamedog(mtmp, (struct obj *) 0);
|
|
}
|
|
return total;
|
|
}
|
|
|
|
void
|
|
you_were()
|
|
{
|
|
char qbuf[QBUFSZ];
|
|
|
|
if (Unchanging || (u.umonnum == u.ulycn)) return;
|
|
if (Polymorph_control) {
|
|
/* `+4' => skip "were" prefix to get name of beast */
|
|
Sprintf(qbuf, "Do you want to change into %s? ",
|
|
an(mons[u.ulycn].mname+4));
|
|
if(yn(qbuf) == 'n') return;
|
|
}
|
|
(void) polymon(u.ulycn);
|
|
}
|
|
|
|
void
|
|
you_unwere(purify)
|
|
boolean purify;
|
|
{
|
|
if (purify) {
|
|
You_feel("purified.");
|
|
u.ulycn = NON_PM; /* cure lycanthropy */
|
|
}
|
|
if (!Unchanging && is_were(youmonst.data) &&
|
|
(!Polymorph_control || yn("Remain in beast form?") == 'n'))
|
|
rehumanize();
|
|
}
|
|
|
|
/*were.c*/
|