Fandom

Wikihack

Source:Were.c

2,034pages on
this wiki
Add New Page
Talk0

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

Below is the full text to src/were.c from NetHack 3.4.3. To link to a particular line, write [[were.c#line123]], for example.

Top of file Edit

1.    /*	SCCS Id: @(#)were.c	3.4	2002/11/07	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
The NetHack General Public License applies to screenshots, source code and other content from NetHack.
5.    #include "hack.h"
6.    

were_change Edit

7.    #ifdef OVL0
8.    
9.    void
10.   were_change(mon)
11.   register struct monst *mon;
12.   {
13.   	if (!is_were(mon->data))
14.   	    return;
15.   
16.   	if (is_human(mon->data)) {
17.   	    if (!Protection_from_shape_changers &&
18.   		!rn2(night() ? (flags.moonphase == FULL_MOON ?  3 : 30)
19.   			     : (flags.moonphase == FULL_MOON ? 10 : 50))) {
20.   		new_were(mon);		/* change into animal form */
21.   		if (flags.soundok && !canseemon(mon)) {
22.   		    const char *howler;
23.   
24.   		    switch (monsndx(mon->data)) {
25.   		    case PM_WEREWOLF:	howler = "wolf";    break;
26.   		    case PM_WEREJACKAL: howler = "jackal";  break;
27.   		    default:		howler = (char *)0; break;
28.   		    }
29.   		    if (howler)
30.   			You_hear("a %s howling at the moon.", howler);
31.   		}
32.   	    }
33.   	} else if (!rn2(30) || Protection_from_shape_changers) {
34.   	    new_were(mon);		/* change back into human form */
35.   	}
36.   }
37.   
38.   #endif /* OVL0 */

counter_were Edit

39.   #ifdef OVLB
40.   
41.   STATIC_DCL int FDECL(counter_were,(int));
42.   
43.   STATIC_OVL int
44.   counter_were(pm)
45.   int pm;
46.   {
47.   	switch(pm) {
48.   	    case PM_WEREWOLF:	      return(PM_HUMAN_WEREWOLF);
49.   	    case PM_HUMAN_WEREWOLF:   return(PM_WEREWOLF);
50.   	    case PM_WEREJACKAL:	      return(PM_HUMAN_WEREJACKAL);
51.   	    case PM_HUMAN_WEREJACKAL: return(PM_WEREJACKAL);
52.   	    case PM_WERERAT:	      return(PM_HUMAN_WERERAT);
53.   	    case PM_HUMAN_WERERAT:    return(PM_WERERAT);
54.   	    default:		      return(0);
55.   	}
56.   }
57.   

new_were Edit

58.   void
59.   new_were(mon)
60.   register struct monst *mon;
61.   {
62.   	register int pm;
63.   
64.   	pm = counter_were(monsndx(mon->data));
65.   	if(!pm) {
66.   	    impossible("unknown lycanthrope %s.", mon->data->mname);
67.   	    return;
68.   	}
69.   
70.   	if(canseemon(mon) && !Hallucination)
71.   	    pline("%s changes into a %s.", Monnam(mon),
72.   			is_human(&mons[pm]) ? "human" :
73.   			mons[pm].mname+4);
74.   
75.   	set_mon_data(mon, &mons[pm], 0);
76.   	if (mon->msleeping || !mon->mcanmove) {
77.   	    /* transformation wakens and/or revitalizes */
78.   	    mon->msleeping = 0;
79.   	    mon->mfrozen = 0;	/* not asleep or paralyzed */
80.   	    mon->mcanmove = 1;
81.   	}
82.   	/* regenerate by 1/4 of the lost hit points */
83.   	mon->mhp += (mon->mhpmax - mon->mhp) / 4;
84.   	newsym(mon->mx,mon->my);
85.   	mon_break_armor(mon, FALSE);
86.   	possibly_unwield(mon, FALSE);
87.   }
88.   

were_summon Edit

89.   int
90.   were_summon(ptr,yours,visible,genbuf)	/* were-creature (even you) summons a horde */
91.   register struct permonst *ptr;
92.   register boolean yours;
93.   int *visible;			/* number of visible helpers created */
94.   char *genbuf;
95.   {
96.   	register int i, typ, pm = monsndx(ptr);
97.   	register struct monst *mtmp;
98.   	int total = 0;
99.   
100.  	*visible = 0;
101.  	if(Protection_from_shape_changers && !yours)
102.  		return 0;
103.  	for(i = rnd(5); i > 0; i--) {
104.  	   switch(pm) {
105.  
106.  		case PM_WERERAT:
107.  		case PM_HUMAN_WERERAT:
108.  			typ = rn2(3) ? PM_SEWER_RAT : rn2(3) ? PM_GIANT_RAT : PM_RABID_RAT ;
109.  			if (genbuf) Strcpy(genbuf, "rat");
110.  			break;
111.  		case PM_WEREJACKAL:
112.  		case PM_HUMAN_WEREJACKAL:
113.  			typ = PM_JACKAL;
114.  			if (genbuf) Strcpy(genbuf, "jackal");
115.  			break;
116.  		case PM_WEREWOLF:
117.  		case PM_HUMAN_WEREWOLF:
118.  			typ = rn2(5) ? PM_WOLF : PM_WINTER_WOLF ;
119.  			if (genbuf) Strcpy(genbuf, "wolf");
120.  			break;
121.  		default:
122.  			continue;
123.  	    }
124.  	    mtmp = makemon(&mons[typ], u.ux, u.uy, NO_MM_FLAGS);
125.  	    if (mtmp) {
126.  		total++;
127.  		if (canseemon(mtmp)) *visible += 1;
128.  	    }
129.  	    if (yours && mtmp)
130.  		(void) tamedog(mtmp, (struct obj *) 0);
131.  	}
132.  	return total;
133.  }
134.  

you_were Edit

135.  void
136.  you_were()
137.  {
138.  	char qbuf[QBUFSZ];
139.  
140.  	if (Unchanging || (u.umonnum == u.ulycn)) return;
141.  	if (Polymorph_control) {
142.  	    /* `+4' => skip "were" prefix to get name of beast */
143.  	    Sprintf(qbuf, "Do you want to change into %s? ",
144.  		    an(mons[u.ulycn].mname+4));
145.  	    if(yn(qbuf) == 'n') return;
146.  	}
147.  	(void) polymon(u.ulycn);
148.  }
149.  

you_unwere Edit

150.  void
151.  you_unwere(purify)
152.  boolean purify;
153.  {
154.  	if (purify) {
155.  	    You_feel("purified.");
156.  	    u.ulycn = NON_PM;	/* cure lycanthropy */
157.  	}
158.  	if (!Unchanging && is_were(youmonst.data) &&
159.  		(!Polymorph_control || yn("Remain in beast form?") == 'n'))
160.  	    rehumanize();
161.  }
162.  
163.  #endif /* OVLB */
164.  
165.  /*were.c*/

Also on Fandom

Random Wiki