Furey: Delete link-to-particular-source instructions. Source code covers that now. "latest release" -> "newer releases".

2024-06-29T20:16:55Z

Delete link-to-particular-source instructions. Source code covers that now. "latest release" -> "newer releases".

Kernigh bot: Hack 1.0/hack.mhitu.c moved to Source:Hack 1.0/hack.mhitu.c: Robot: moved page

2008-03-03T22:27:21Z

Hack 1.0/hack.mhitu.c moved to Source:Hack 1.0/hack.mhitu.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-29T20:27:42Z

Automated source code upload

New page

Below is the full text to '''hack.mhitu.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.mhitu.c#line123|<nowiki>[[Hack 1.0/hack.mhitu.c#line123]]</nowiki>]], for example.

'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]

{{CWI}}
1. #include "hack.h"
2. extern struct monst *makemon();
3. 
4. /*
5. * mhitu: monster hits you
6. * returns 1 if monster dies (e.g. 'y', 'F'), 0 otherwise
7. */
8. mhitu(mtmp)
9. register struct monst *mtmp;
10. {
11. register struct permonst *mdat = mtmp->data;
12. register int tmp, ctmp;
13. 
14. nomul(0);
15. if(!index("&DuxynNF",mdat->mlet) && !u.uswallow)
16. tmp = hitu(mtmp,d(mdat->damn,mdat->damd));
17. else tmp = 0;
18. 
19. ctmp = tmp && !mtmp->mcan &&
20. (!uarm || objects[uarm->otyp].a_can < rnd(3) || !rn2(50));
21. switch(mdat->mlet) {
22. case '&':
23. if(!mtmp->cham && !mtmp->mcan && !rn2(15)) {
24. (void) makemon(PM_DEMON,u.ux,u.uy);
25. } else {
26. (void) hitu(mtmp,d(2,6));
27. (void) hitu(mtmp,d(2,6));
28. (void) hitu(mtmp,rnd(3));
29. (void) hitu(mtmp,rnd(3));
30. (void) hitu(mtmp,rn1(4,2));
31. }
32. break;
33. case ',':
34. if(u.uswallow)
35. youswld(mtmp,4+u.uac,5,"The trapper");
36. else if(tmp) justswld(mtmp,"The trapper");
37. break;
38. case '\'':
39. if(u.uswallow)
40. youswld(mtmp,rnd(6),7,"The lurker above");
41. else if(tmp) justswld(mtmp,"The lurker above");
42. break;
43. case 'A':
44. if(ctmp && rn2(2)) {
45. pline("You feel weaker!");
46. losestr(1);
47. }
48. break;
49. case 'C':
50. (void) hitu(mtmp,rnd(6));
51. break;
52. case 'c':
53. if(!rn2(5)) {
54. pline("You hear %s's hissing!", monnam(mtmp));
55. if(ctmp || !rn2(5)) {
56. pline("You get turned to stone!");
57. done_in_by(mtmp);
58. }
59. }
60. break;
61. case 'D':
62. if(rn2(6) || mtmp->mcan) {
63. (void) hitu(mtmp,d(3,10));
64. (void) hitu(mtmp,rnd(8));
65. (void) hitu(mtmp,rnd(8));
66. break;
67. }
68. kludge("%s breathes fire!","The dragon");
69. buzz(-1,mtmp->mx,mtmp->my,u.ux-mtmp->mx,u.uy-mtmp->my);
70. break;
71. case 'd':
72. (void) hitu(mtmp,d(2,4));
73. break;
74. case 'e':
75. (void) hitu(mtmp,d(3,6));
76. break;
77. case 'F':
78. if(mtmp->mcan) break;
79. kludge("%s explodes!","The freezing sphere");
80. if(Cold_resistance) pline("You don't seem affected by it.");
81. else {
82. xchar dn;
83. if(17-(u.ulevel/2) > rnd(20)) {
84. pline("You get blasted!");
85. dn = 6;
86. } else {
87. pline("You duck the blast...");
88. dn = 3;
89. }
90. losehp_m(d(dn,6), mtmp);
91. }
92. mondead(mtmp);
93. return(1);
94. case 'g':
95. if(ctmp && multi >= 0 && !rn2(6)) {
96. kludge("You are frozen by %ss juices","the cube'");
97. nomul(-rnd(10));
98. }
99. break;
100. case 'h':
101. if(ctmp && multi >= 0 && !rn2(5)) {
102. nomul(-rnd(10));
103. kludge("You are put to sleep by %ss bite!","the homunculus'");
104. }
105. break;
106. case 'j':
107. tmp = hitu(mtmp,rnd(3));
108. tmp &= hitu(mtmp,rnd(3));
109. if(tmp){
110. (void) hitu(mtmp,rnd(4));
111. (void) hitu(mtmp,rnd(4));
112. }
113. break;
114. case 'k':
115. if((hitu(mtmp,rnd(4)) || !rn2(3)) && ctmp){
116. poisoned("bee's sting",mdat->mname);
117. }
118. break;
119. case 'L':
120. if(tmp) stealgold(mtmp);
121. break;
122. case 'N':
123. if(mtmp->mcan && !Blind) {
124. pline("%s tries to seduce you, but you seem not interested.",
125. Amonnam(mtmp, "plain"));
126. if(rn2(3)) rloc(mtmp);
127. } else if(steal(mtmp)) {
128. rloc(mtmp);
129. mtmp->mflee = 1;
130. }
131. break;
132. case 'n':
133. if(!uwep && !uarm && !uarmh && !uarms && !uarmg) {
134. pline("%s hits! (I hope you don't mind)",
135. Monnam(mtmp));
136. u.uhp += rnd(7);
137. if(!rn2(7)) u.uhpmax++;
138. if(u.uhp > u.uhpmax) u.uhp = u.uhpmax;
139. flags.botl = 1;
140. if(!rn2(50)) rloc(mtmp);
141. } else {
142. (void) hitu(mtmp,d(2,6));
143. (void) hitu(mtmp,d(2,6));
144. }
145. break;
146. case 'o':
147. tmp = hitu(mtmp,rnd(6));
148. if(hitu(mtmp,rnd(6)) && ctmp &&
149. !u.ustuck && rn2(2)) {
150. u.ustuck = mtmp;
151. kludge("%s has grabbed you!","The owlbear");
152. u.uhp -= d(2,8);
153. } else if(u.ustuck == mtmp) {
154. u.uhp -= d(2,8);
155. pline("You are being crushed.");
156. }
157. break;
158. case 'P':
159. if(u.uswallow)
160. youswld(mtmp,d(2,4),12,"The purple worm");
161. else if(ctmp && !rn2(4))
162. justswld(mtmp,"The purple worm");
163. else (void) hitu(mtmp,d(2,4));
164. break;
165. case 'Q':
166. (void) hitu(mtmp,rnd(2));
167. (void) hitu(mtmp,rnd(2));
168. break;
169. case 'R':
170. if(tmp && uarmh && !uarmh->rustfree &&
171. (int) uarmh->spe >= -1) {
172. pline("Your helmet rusts!");
173. uarmh->spe--;
174. } else
175. if(ctmp && uarm && !uarmh->rustfree &&
176. uarm->otyp < STUDDED_LEATHER_ARMOR &&
177. (int)uarm->spe >= -1) {
178. pline("Your armor rusts!");
179. uarm->spe--;
180. }
181. break;
182. case 'S':
183. if(ctmp && !rn2(8)) {
184. poisoned("snake's bite",mdat->mname);
185. }
186. break;
187. case 's':
188. if(tmp && !rn2(8)) {
189. poisoned("scorpion's sting",mdat->mname);
190. }
191. (void) hitu(mtmp,rnd(8));
192. (void) hitu(mtmp,rnd(8));
193. break;
194. case 'T':
195. (void) hitu(mtmp,rnd(6));
196. (void) hitu(mtmp,rnd(6));
197. break;
198. case 't':
199. if(!rn2(5)) rloc(mtmp);
200. break;
201. case 'u':
202. mtmp->mflee = 1;
203. break;
204. case 'U':
205. (void) hitu(mtmp,d(3,4));
206. (void) hitu(mtmp,d(3,4));
207. break;
208. case 'v':
209. if(ctmp && !u.ustuck) u.ustuck = mtmp;
210. break;
211. case 'V':
212. if(tmp) u.uhp -= 4;
213. if(ctmp && !rn2(3)) losexp();
214. break;
215. case 'W':
216. if(ctmp && !rn2(5)) losexp();
217. break;
218. #ifndef NOWORM
219. case 'w':
220. if(tmp) wormhit(mtmp);
221. #endif NOWORM
222. break;
223. case 'X':
224. (void) hitu(mtmp,rnd(3));
225. (void) hitu(mtmp,rnd(3));
226. (void) hitu(mtmp,rnd(3));
227. break;
228. case 'x':
229. { register int side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
230. pline("%s pricks in your %s leg!",
231. Monnam(mtmp), (side == RIGHT_SIDE) ? "right" : "left");
232. Wounded_legs |= side + rnd(5);
233. losehp_m(2, mtmp);
234. break;
235. }
236. case 'y':
237. if(mtmp->mcan) break;
238. mondead(mtmp);
239. if(!Blind) {
240. pline("You are blinded by a blast of light!");
241. Blind = d(4,12);
242. seeoff(0);
243. }
244. return(1);
245. case 'Y':
246. (void) hitu(mtmp,rnd(6));
247. break;
248. }
249. if(u.uhp < 1) done_in_by(mtmp);
250. return(0);
251. }
[[Category:Hack 1.0 source code|hack.mhitu.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.mhitu.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.mhitu.c#line123|<nowiki>[[Hack 1.0/hack.mhitu.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.mhitu.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]].
-'''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 newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 22:27, 3 March 2008
(No difference)

Source:Hack 1.0/hack.mhitu.c - Revision history

Furey: Delete link-to-particular-source instructions. Source code covers that now. "latest release" -> "newer releases".

Kernigh bot: Hack 1.0/hack.mhitu.c moved to Source:Hack 1.0/hack.mhitu.c: Robot: moved page

Jaytbot: Automated source code upload