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

2024-07-05T00:53:11Z

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

217.253.210.43: undo SPAM

2011-06-23T11:21:50Z

undo SPAM

121.54.58.130 at 07:38, 23 June 2011

2011-06-23T07:38:07Z

Kernigh bot: NetHack 3.0.0/dog.c moved to Source:NetHack 3.0.0/dog.c: Robot: moved page

2008-03-04T04:29:29Z

NetHack 3.0.0/dog.c moved to Source:NetHack 3.0.0/dog.c: Robot: moved page

Jaytbot: Automated source code upload

2006-09-24T21:14:24Z

Automated source code upload

New page

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

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

{{NGPL}}
1. /* SCCS Id: @(#)dog.c 3.0 89/06/12
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* NetHack may be freely redistributed. See license for details. */
4. 
5. #include "hack.h"
6. #include "edog.h"
7. 
8. char dogname[63] = DUMMY;
9. char catname[63] = DUMMY;
10. 
11. #define domestic(mtmp) (mtmp->data->msound == MS_BARK || mtmp->data->msound == MS_MEW)
12. 
13. void
14. initedog(mtmp)
15. register struct monst *mtmp;
16. {
17. mtmp->mtame = domestic(mtmp) ? 10 : 5;
18. mtmp->mpeaceful = 1;
19. mtmp->mleashed = 0;
20. mtmp->meating = 0;
21. EDOG(mtmp)->droptime = 0;
22. EDOG(mtmp)->dropdist = 10000;
23. EDOG(mtmp)->apport = 10;
24. EDOG(mtmp)->whistletime = 0;
25. EDOG(mtmp)->hungrytime = 1000 + moves;
26. }
27. 
28. void
29. make_familiar(otmp)
30. register struct obj *otmp;
31. {
32. register struct monst *mtmp;
33. register struct permonst *pm;
34. 
35. top:
36. if (otmp) pm = &mons[otmp->corpsenm]; /* Figurine; otherwise spell */
37. else if (rn2(3)) {
38. if (!(pm = rndmonst())) {
39. pline("There seems to be nothing available for a familiar.");
40. return;
41. }
42. }
43. else if ((pl_character[0]=='W' || rn2(2)) && pl_character[0]!='C')
44. pm = &mons[PM_KITTEN];
45. else pm = &mons[PM_LITTLE_DOG];
46. 
47. pm->pxlth += sizeof(struct edog);
48. mtmp = makemon(pm, u.ux, u.uy);
49. pm->pxlth -= sizeof(struct edog);
50. if (!mtmp) { /* monster was genocided */
51. if (otmp)
52. pline("The figurine writhes and then shatters into pieces!");
53. else goto top;
54. /* rndmonst() returns something not genocided always, so this
55. * means it was a cat or dog; loop back to try again until
56. * either rndmonst() is called, or if only one of cat/dog
57. * was genocided, they get the other.
58. */
59. return;
60. }
61. initedog(mtmp);
62. if (otmp && otmp->cursed) { /* cursed figurine */
63. You("get a bad feeling about this.");
64. mtmp->mtame = mtmp->mpeaceful = 0;
65. }
66. }
67. 
68. struct monst *
69. makedog() {
70. register struct monst *mtmp;
71. register char *petname;
72. 
73. if (pl_character[0]=='C' || (pl_character[0] != 'W' && rn2(2))) {
74. mons[PM_LITTLE_DOG].pxlth = sizeof(struct edog);
75. mtmp = makemon(&mons[PM_LITTLE_DOG], u.ux, u.uy);
76. mons[PM_LITTLE_DOG].pxlth = 0;
77. petname = dogname;
78. } else {
79. mons[PM_KITTEN].pxlth = sizeof(struct edog);
80. mtmp = makemon(&mons[PM_KITTEN], u.ux, u.uy);
81. mons[PM_KITTEN].pxlth = 0;
82. petname = catname;
83. }
84. 
85. if(!mtmp) return((struct monst *) 0); /* dogs were genocided */
86. 
87. if (petname[0]) {
88. register struct monst *mtmp2;
89. 
90. mtmp->mnamelth = strlen(petname) + 1;
91. mtmp2 = newmonst(sizeof(struct edog) + mtmp->mnamelth);
92. *mtmp2 = *mtmp;
93. 
94. replmon(mtmp, mtmp2);
95. mtmp = mtmp2;
96. Strcpy(NAME(mtmp), petname);
97. petname[0] = '\0'; /* name first only; actually unnecessary */
98. }
99. initedog(mtmp);
100. return(mtmp);
101. }
102. 
103. /* attach the monsters that went down (or up) together with @ */
104. struct monst *mydogs = 0;
105. /* monsters that fell through a trapdoor or stepped on a tele-trap. */
106. /* 'down' is now true only of trapdooor falling, not for tele-trap. */
107. struct monst *fallen_down = 0;
108. 
109. void
110. losedogs(){
111. register struct monst *mtmp,*mtmp0,*mtmp2;
112. 
113. while(mtmp = mydogs){
114. mydogs = mtmp->nmon;
115. mtmp->nmon = fmon;
116. fmon = mtmp;
117. mnexto(mtmp);
118. }
119. #ifdef LINT
120. mtmp0 = (struct monst *)0;
121. #endif
122. for(mtmp = fallen_down; mtmp; mtmp = mtmp2) {
123. mtmp2 = mtmp->nmon;
124. if(mtmp->mx == dlevel) {
125. mtmp->mx = 0;
126. if(mtmp == fallen_down)
127. fallen_down = mtmp->nmon;
128. else
129. mtmp0->nmon = mtmp->nmon;
130. mtmp->nmon = fmon;
131. fmon = mtmp;
132. if (mtmp->isshk)
133. home_shk(mtmp);
134. else
135. rloc(mtmp);
136. } else
137. mtmp0 = mtmp;
138. }
139. }
140. 
141. void
142. keepdogs(){
143. register struct monst *mtmp;
144. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
145. if(((dist(mtmp->mx,mtmp->my) < 3 && levl_follower(mtmp)) ||
146. /* the wiz will level t-port from anywhere to chase
147. the amulet; if you don't have it, will chase you
148. only if in range. -3. */
149. (u.uhave_amulet && mtmp->iswiz))
150. && !mtmp->msleep && !mtmp->mfroz) {
151. #ifdef WORM
152. /* Bug "fix" for worm changing levels collapsing dungeon
153. */
154. if (mtmp->data == &mons[PM_LONG_WORM]) {
155. if (canseemon(mtmp) || (Blind && Telepat))
156. pline("The worm can't fit down the stairwell.");
157. # ifdef WALKIES
158. if (mtmp->mleashed) {
159. pline("The leash slides off the slimy worm.");
160. m_unleash(mtmp);
161. }
162. # endif
163. continue;
164. }
165. #endif
166. if (mon_has_amulet(mtmp)) {
167. pline("%s seems very disoriented for a moment.",
168. Monnam(mtmp));
169. #ifdef WALKIES
170. if (mtmp->mleashed) {
171. pline("%s leash suddenly comes loose.",
172. is_female(mtmp) ? "Her" :
173. humanoid(mtmp->data) ? "His" : "Its");
174. m_unleash(mtmp);
175. }
176. #endif
177. continue;
178. }
179. relmon(mtmp);
180. mtmp->mx = mtmp->my = 0; /* to avoid mnexto()/mmask problem */
181. mtmp->nmon = mydogs;
182. mydogs = mtmp;
183. unpmon(mtmp);
184. keepdogs(); /* we destroyed the link, so use recursion */
185. return; /* (admittedly somewhat primitive) */
186. }
187. }
188. 
189. void
190. fall_down(mtmp, tolev) 
191. register struct monst *mtmp; 
192. register int tolev;
193. {
194. relmon(mtmp);
195. mtmp->nmon = fallen_down;
196. fallen_down = mtmp;
197. #ifdef WALKIES
198. if (mtmp->mleashed) {
199. pline("The leash comes off!");
200. m_unleash(mtmp);
201. }
202. #endif
203. unpmon(mtmp);
204. mtmp->mtame = 0;
205. mtmp->mx = tolev; 
206. mtmp->my = 0;
207. /* make sure to reset mtmp->mx to 0 when releasing, */
208. /* so rloc() on next level doesn't affect mmask */
209. }
210. 
211. /* return quality of food; the lower the better */
212. /* fungi will eat even tainted food */
213. int
214. dogfood(mon,obj)
215. struct monst *mon;
216. register struct obj *obj;
217. {
218. boolean carn = carnivorous(mon->data);
219. 
220. switch(obj->olet) {
221. case FOOD_SYM:
222. if (obj->otyp == CORPSE && obj->corpsenm == PM_COCKATRICE &&
223. !resists_ston(mon->data))
224. return TABU;
225. 
226. if (!carn && !herbivorous(mon->data))
227. return (obj->cursed ? UNDEF : APPORT);
228. 
229. switch (obj->otyp) {
230. case TRIPE_RATION:
231. return (carn ? DOGFOOD : MANFOOD);
232. case CORPSE:
233. case EGG:
234. if ((obj->age + 50 <= moves && mon->data->mlet != S_FUNGUS) ||
235. (poisonous(&mons[obj->corpsenm]) && !resists_poison(mon->data)) ||
236. (obj->corpsenm == PM_COCKATRICE && !resists_ston(mon->data)))
237. return POISON;
238. else return (carn ? CADAVER : MANFOOD);
239. case DEAD_LIZARD:
240. return (carn ? ACCFOOD : MANFOOD);
241. default:
242. return (obj->otyp < CARROT ? ACCFOOD : MANFOOD);
243. }
244. default:
245. if(!obj->cursed) return(APPORT);
246. /* fall into next case */
247. case BALL_SYM:
248. case CHAIN_SYM:
249. case ROCK_SYM:
250. return(UNDEF);
251. }
252. }
253. 
254. /* return roomnumber or -1 */
255. int
256. inroom(x,y) xchar x,y; {
257. register struct mkroom *croom = &rooms[0];
258. while(croom->hx >= 0){
259. if(croom->hx >= x-1 && croom->lx <= x+1 &&
260. croom->hy >= y-1 && croom->ly <= y+1)
261. return(croom - rooms);
262. croom++;
263. }
264. return(-1); /* not in room or on door */
265. }
266. 
267. int
268. tamedog(mtmp, obj)
269. register struct monst *mtmp;
270. register struct obj *obj;
271. {
272. register struct monst *mtmp2;
273. 
274. /* worst case, at least he'll be peaceful. */
275. mtmp->mpeaceful = 1;
276. if(flags.moonphase == FULL_MOON && night() && rn2(6) && obj
277. && mtmp->data->mlet == S_DOG)
278. return(0);
279. 
280. /* If we cannot tame him, at least he's no longer afraid. */
281. mtmp->mflee = 0;
282. mtmp->mfleetim = 0;
283. if(mtmp->mtame || mtmp->mfroz ||
284. #ifdef WORM
285. mtmp->wormno ||
286. #endif
287. mtmp->isshk || mtmp->isgd ||
288. #if defined(ALTARS) && defined(THEOLOGY)
289. mtmp->ispriest ||
290. #endif
291. #ifdef POLYSELF
292. is_human(mtmp->data) || (is_demon(mtmp->data) && !is_demon(uasmon)))
293. #else
294. is_human(mtmp->data) || is_demon(mtmp->data))
295. #endif
296. return(0);
297. /* no tame long worms so they don't try to follow you down stairs
298. or get in your way */
299. if(obj) {
300. if(dogfood(mtmp, obj) >= MANFOOD) return(0);
301. if(cansee(mtmp->mx,mtmp->my)){
302. pline("%s devours the %s.", Monnam(mtmp),
303. objects[obj->otyp].oc_name);
304. }
305. obfree(obj, (struct obj *)0);
306. }
307. mtmp2 = newmonst(sizeof(struct edog) + mtmp->mnamelth);
308. *mtmp2 = *mtmp;
309. mtmp2->mxlth = sizeof(struct edog);
310. if(mtmp->mnamelth) Strcpy(NAME(mtmp2), NAME(mtmp));
311. initedog(mtmp2);
312. replmon(mtmp,mtmp2);
313. return(1);
314. }
[[Category:NetHack 3.0.0 source code|dog.c]]

← Older revision		Revision as of 11:21, 23 June 2011
Line 319:		Line 319:
	<span id="line314">314. }</span>		<span id="line314">314. }</span>
	[[Category:NetHack 3.0.0 source code\|dog.c]]		[[Category:NetHack 3.0.0 source code\|dog.c]]
−
−	~~== External Links ==~~
−	*[http://doggroomingboutique.com/pedipaws Pedi Paws]

← Older revision		Revision as of 07:38, 23 June 2011
Line 319:		Line 319:
	<span id="line314">314. }</span>		<span id="line314">314. }</span>
	[[Category:NetHack 3.0.0 source code\|dog.c]]		[[Category:NetHack 3.0.0 source code\|dog.c]]
		+
		+	== External Links ==
		+	*[http://doggroomingboutique.com/pedipaws Pedi Paws]

@@ Line 1: / Line 1: @@
-Below is the full text to '''dog.c''' from the [[NetHack 3.0.0 source code|source code]] of [[NetHack 3.0.0]]. To link to a particular line, write [[NetHack 3.0.0/dog.c#line123|<nowiki>[[NetHack 3.0.0/dog.c#line123]]</nowiki>]], for example.
+Below is the full text to '''dog.c''' from the [[NetHack 3.0.0 source code|source code]] of [[NetHack 3.0.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]]
 {{NGPL}}

← Older revision	Revision as of 04:29, 4 March 2008
(No difference)

Source:NetHack 3.0.0/dog.c - Revision history

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

217.253.210.43: undo SPAM

121.54.58.130 at 07:38, 23 June 2011

Kernigh bot: NetHack 3.0.0/dog.c moved to Source:NetHack 3.0.0/dog.c: Robot: moved page

Jaytbot: Automated source code upload