Wikia

Wikihack

Source:Were.c

2,032pages on
this wiki
Talk0

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*/

Around Wikia's network

Random Wiki