Source:NetHack 3.4.3/src/were.c - Revision history

Furey: Fix instructions for linking to a particular line. Current instructions incorrectly link to a different version of NetHack.

2024-06-26T19:17:51Z

Fix instructions for linking to a particular line. Current instructions incorrectly link to a different version of NetHack.

Umbire the Phantom: tweak

2024-05-08T18:07:26Z

tweak

Umbire the Phantom: touch-ups

2024-01-16T21:03:53Z

touch-ups

Paxedbot: moved Source:Were.c to Source:NetHack 3.4.3/src/were.c: Moving src to subdirs

2011-01-31T19:24:17Z

moved Source:Were.c to Source:NetHack 3.4.3/src/were.c: Moving src to subdirs

Paxedbot: Adding MIXEDSYNTAXHIGHLIGHT

2010-11-20T19:14:27Z

Adding __MIXEDSYNTAXHIGHLIGHT__

Kernigh bot: Were.c moved to Source:Were.c: Robot: moved page

2008-03-04T15:35:49Z

Were.c moved to Source:Were.c: Robot: moved page

Eidolos: Add headers.

2006-09-03T21:38:12Z

Add headers.

Jaytbot: Automated source code upload

2006-06-22T13:12:47Z

Automated source code upload

New page

Below is the full text to src/were.c from NetHack 3.4.3. To link to a particular line, write [[were.c#line123|<nowiki>[[were.c#line123]]</nowiki>]], for example.
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. 

{{NGPL}}

5. #include "hack.h"
6. 
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 */
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. 
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. 
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. 
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. 
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*/
[[Category:source code]]

@@ Line 1: / Line 1: @@
-Below is the full text to src/were.c from [[NetHack 3.4.3]]. To link to a particular line, write [[were.c#line123|<nowiki>[[were.c#line123]]</nowiki>]], for example.
+Below is the full text to src/were.c from [[NetHack 3.4.3]]. To link to a particular line, write [[Source:NetHack 3.4.3/src/were.c#line123]], for example.
-'''Warning!''' This is the source code from an old release. For the latest release, see the [[source code]] article.
+'''Warning!''' This is the source code from an old release. For newer releases, see the [[source code]] article.
 {{NGPL}}

@@ Line 1: / Line 1: @@
 Below is the full text to src/were.c from [[NetHack 3.4.3]]. To link to a particular line, write [[were.c#line123|<nowiki>[[were.c#line123]]</nowiki>]], for example.
-'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]].
+'''Warning!''' This is the source code from an old release. For the latest release, see the [[source code]] article.
 {{NGPL}}

@@ Line 1: / Line 1: @@
-__MIXEDSYNTAXHIGHLIGHT__
+Below is the full text to src/were.c from [[NetHack 3.4.3]]. To link to a particular line, write [[were.c#line123|<nowiki>[[were.c#line123]]</nowiki>]], for example.
-== Top of file ==
+'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]].
   <span id="line1">1.    /*	SCCS Id: @(#)were.c	3.4	2002/11/07	*/</span>
   <span id="line2">2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span>
   <span id="line3">3.    /* NetHack may be freely redistributed.  See license for details. */</span>
   <span id="line4">4.    </span>
   <span id="line5">5.    #include "hack.h"</span>
   <span id="line6">6.    </span>
@@ Line 190: / Line 188: @@
   <span id="line164">164.  </span>
   <span id="line165">165.  /*were.c*/</span>
-[[Category:source code]]
+{{noversion}}

← Older revision		Revision as of 19:14, 20 November 2010
Line 1:		Line 1:
		+	__MIXEDSYNTAXHIGHLIGHT__
	Below is the full text to src/were.c from NetHack 3.4.3. To link to a particular line, write [[were.c#line123\|<nowiki>[[were.c#line123]]</nowiki>]], for example.		Below is the full text to src/were.c from NetHack 3.4.3. To link to a particular line, write [[were.c#line123\|<nowiki>[[were.c#line123]]</nowiki>]], for example.

@@ Line 1: / Line 1: @@
   <span id="line1">1.    /*	SCCS Id: @(#)were.c	3.4	2002/11/07	*/</span>
   <span id="line2">2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */</span>
@@ Line 10: / Line 12: @@
   <span id="line5">5.    #include "hack.h"</span>
   <span id="line6">6.    </span>
   <span id="line7">7.    #ifdef OVL0</span>
   <span id="line8">8.    </span>
@@ Line 42: / Line 47: @@
   <span id="line37">37.   </span>
   <span id="line38">38.   #endif /* OVL0 */</span>
   <span id="line39">39.   #ifdef OVLB</span>
   <span id="line40">40.   </span>
@@ Line 61: / Line 69: @@
   <span id="line56">56.   }</span>
   <span id="line57">57.   </span>
   <span id="line58">58.   void</span>
   <span id="line59">59.   new_were(mon)</span>
@@ Line 92: / Line 103: @@
   <span id="line87">87.   }</span>
   <span id="line88">88.   </span>
   <span id="line89">89.   int</span>
   <span id="line90">90.   were_summon(ptr,yours,visible,genbuf)	/* were-creature (even you) summons a horde */</span>
@@ Line 138: / Line 152: @@
   <span id="line133">133.  }</span>
   <span id="line134">134.  </span>
   <span id="line135">135.  void</span>
   <span id="line136">136.  you_were()</span>
@@ Line 153: / Line 170: @@
   <span id="line148">148.  }</span>
   <span id="line149">149.  </span>
   <span id="line150">150.  void</span>
   <span id="line151">151.  you_unwere(purify)</span>

← Older revision	Revision as of 19:24, 31 January 2011
(No difference)

← Older revision	Revision as of 15:35, 4 March 2008
(No difference)