src/were.c

   1 /* NetHack 3.6  were.c  $NHDT-Date: 1432512763 2015/05/25 00:12:43 $  $NHDT-Branch: master $:$NHDT-Revision: 1.18 $ */
   2 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
   3 /* NetHack may be freely redistributed.  See license for details. */
   4
   5 #include "hack.h"
   6
   7 void
   8 were_change(mon)
   9 register struct monst *mon;
  10 {
  11     if (!is_were(mon->data))
  12         return;
  13
  14     if (is_human(mon->data)) {
  15         if (!Protection_from_shape_changers
  16             && !rn2(night() ? (flags.moonphase == FULL_MOON ? 3 : 30)
  17                             : (flags.moonphase == FULL_MOON ? 10 : 50))) {
  18             new_were(mon); /* change into animal form */
  19             if (!Deaf && !canseemon(mon)) {
  20                 const char *howler;
  21
  22                 switch (monsndx(mon->data)) {
  23                 case PM_WEREWOLF:
  24                     howler = "wolf";
  25                     break;
  26                 case PM_WEREJACKAL:
  27                     howler = "jackal";
  28                     break;
  29                 default:
  30                     howler = (char *) 0;
  31                     break;
  32                 }
  33                 if (howler)
  34                     You_hear("a %s howling at the moon.", howler);
  35             }
  36         }
  37     } else if (!rn2(30) || Protection_from_shape_changers) {
  38         new_were(mon); /* change back into human form */
  39     }
  40     /* update innate intrinsics (mainly Drain_resistance) */
  41     set_uasmon(); /* new_were() doesn't do this */
  42 }
  43
  44 int
  45 counter_were(pm)
  46 int pm;
  47 {
  48     switch (pm) {
  49     case PM_WEREWOLF:
  50         return (PM_HUMAN_WEREWOLF);
  51     case PM_HUMAN_WEREWOLF:
  52         return (PM_WEREWOLF);
  53     case PM_WEREJACKAL:
  54         return (PM_HUMAN_WEREJACKAL);
  55     case PM_HUMAN_WEREJACKAL:
  56         return (PM_WEREJACKAL);
  57     case PM_WERERAT:
  58         return (PM_HUMAN_WERERAT);
  59     case PM_HUMAN_WERERAT:
  60         return (PM_WERERAT);
  61     default:
  62         return NON_PM;
  63     }
  64 }
  65
  66 /* convert monsters similar to werecritters into appropriate werebeast */
  67 int
  68 were_beastie(pm)
  69 int pm;
  70 {
  71     switch (pm) {
  72     case PM_WERERAT:
  73     case PM_SEWER_RAT:
  74     case PM_GIANT_RAT:
  75     case PM_RABID_RAT:
  76         return PM_WERERAT;
  77     case PM_WEREJACKAL:
  78     case PM_JACKAL:
  79     case PM_FOX:
  80     case PM_COYOTE:
  81         return PM_WEREJACKAL;
  82     case PM_WEREWOLF:
  83     case PM_WOLF:
  84     case PM_WARG:
  85     case PM_WINTER_WOLF:
  86         return PM_WEREWOLF;
  87     default:
  88         break;
  89     }
  90     return NON_PM;
  91 }
  92
  93 void
  94 new_were(mon)
  95 register struct monst *mon;
  96 {
  97     register int pm;
  98
  99     pm = counter_were(monsndx(mon->data));
 100     if (pm < LOW_PM) {
 101         impossible("unknown lycanthrope %s.", mon->data->mname);
 102         return;
 103     }
 104
 105     if (canseemon(mon) && !Hallucination)
 106         pline("%s changes into a %s.", Monnam(mon),
 107               is_human(&mons[pm]) ? "human" : mons[pm].mname + 4);
 108
 109     set_mon_data(mon, &mons[pm], 0);
 110     if (mon->msleeping || !mon->mcanmove) {
 111         /* transformation wakens and/or revitalizes */
 112         mon->msleeping = 0;
 113         mon->mfrozen = 0; /* not asleep or paralyzed */
 114         mon->mcanmove = 1;
 115     }
 116     /* regenerate by 1/4 of the lost hit points */
 117     mon->mhp += (mon->mhpmax - mon->mhp) / 4;
 118     newsym(mon->mx, mon->my);
 119     mon_break_armor(mon, FALSE);
 120     possibly_unwield(mon, FALSE);
 121 }
 122
 123 /* were-creature (even you) summons a horde */
 124 int were_summon(ptr, yours, visible, genbuf)
 125 struct permonst *ptr;
 126 boolean yours;
 127 int *visible; /* number of visible helpers created */
 128 char *genbuf;
 129 {
 130     int i, typ, pm = monsndx(ptr);
 131     struct monst *mtmp;
 132     int total = 0;
 133
 134     *visible = 0;
 135     if (Protection_from_shape_changers && !yours)
 136         return 0;
 137     for (i = rnd(5); i > 0; i--) {
 138         switch (pm) {
 139         case PM_WERERAT:
 140         case PM_HUMAN_WERERAT:
 141             typ =
 142                 rn2(3) ? PM_SEWER_RAT : rn2(3) ? PM_GIANT_RAT : PM_RABID_RAT;
 143             if (genbuf)
 144                 Strcpy(genbuf, "rat");
 145             break;
 146         case PM_WEREJACKAL:
 147         case PM_HUMAN_WEREJACKAL:
 148             typ = PM_JACKAL;
 149             if (genbuf)
 150                 Strcpy(genbuf, "jackal");
 151             break;
 152         case PM_WEREWOLF:
 153         case PM_HUMAN_WEREWOLF:
 154             typ = rn2(5) ? PM_WOLF : PM_WINTER_WOLF;
 155             if (genbuf)
 156                 Strcpy(genbuf, "wolf");
 157             break;
 158         default:
 159             continue;
 160         }
 161         mtmp = makemon(&mons[typ], u.ux, u.uy, NO_MM_FLAGS);
 162         if (mtmp) {
 163             total++;
 164             if (canseemon(mtmp))
 165                 *visible += 1;
 166         }
 167         if (yours && mtmp)
 168             (void) tamedog(mtmp, (struct obj *) 0);
 169     }
 170     return total;
 171 }
 172
 173 void
 174 you_were()
 175 {
 176     char qbuf[QBUFSZ];
 177     boolean controllable_poly = Polymorph_control && !(Stunned || Unaware);
 178
 179     if (Unchanging || (u.umonnum == u.ulycn))
 180         return;
 181     if (controllable_poly) {
 182         /* `+4' => skip "were" prefix to get name of beast */
 183         Sprintf(qbuf, "Do you want to change into %s?",
 184                 an(mons[u.ulycn].mname + 4));
 185         if (yn(qbuf) == 'n')
 186             return;
 187     }
 188     (void) polymon(u.ulycn);
 189 }
 190
 191 void
 192 you_unwere(purify)
 193 boolean purify;
 194 {
 195     boolean controllable_poly = Polymorph_control && !(Stunned || Unaware);
 196
 197     if (purify) {
 198         You_feel("purified.");
 199         set_ulycn(NON_PM); /* cure lycanthropy */
 200     }
 201     if (!Unchanging && is_were(youmonst.data)
 202         && (!controllable_poly || yn("Remain in beast form?") == 'n'))
 203         rehumanize();
 204 }
 205
 206 /* lycanthropy is being caught or cured, but no shape change is involved */
 207 void
 208 set_ulycn(which)
 209 int which;
 210 {
 211     u.ulycn = which;
 212     /* add or remove lycanthrope's innate intrinsics (Drain_resistance) */
 213     set_uasmon();
 214 }
 215
 216 /*were.c*/