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

2024-07-01T23:34:30Z

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

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

2008-03-04T00:53:05Z

NetHack 1.4f/dog.c moved to Source:NetHack 1.4f/dog.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-31T15:22:27Z

Automated source code upload

New page

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

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

{{CWI}}
1. /* SCCS Id: @(#)dog.c 1.4 87/08/08
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* dog.c - version 1.0.3 */
4. 
5. #include "hack.h"
6. extern struct monst *makemon();
7. #include "edog.h"
8. #include "mkroom.h"
9. 
10. #ifdef DOGNAME
11. char dogname[63];
12. #endif /* DOGNAME */
13. 
14. struct permonst li_dog =
15. { "little dog", 'd',2,18,6,0,1,6,sizeof(struct edog) };
16. struct permonst dog =
17. { "dog", 'd',4,16,5,0,1,6,sizeof(struct edog) };
18. struct permonst la_dog =
19. { "large dog", 'd',6,15,4,0,2,4,sizeof(struct edog) };
20. 
21. struct monst *
22. makedog(){
23. register struct monst *mtmp = makemon(&li_dog,u.ux,u.uy);
24. if(!mtmp) return((struct monst *) 0); /* dogs were genocided */
25. #ifdef DOGNAME
26. if (dogname[0]) {
27. register struct monst *mtmp2;
28. mtmp->mnamelth = strlen(dogname);
29. mtmp2 = newmonst(sizeof(struct edog) + mtmp->mnamelth);
30. *mtmp2 = *mtmp;
31. strcpy(NAME(mtmp2), dogname);
32. replmon(mtmp, mtmp2);
33. mtmp = mtmp2;
34. }
35. #endif /* DOGNAME */
36. initedog(mtmp);
37. return(mtmp);
38. }
39. 
40. initedog(mtmp) register struct monst *mtmp; {
41. mtmp->mtame = mtmp->mpeaceful = 1;
42. #ifdef WALKIES
43. mtmp->mleashed = 0;
44. #endif
45. EDOG(mtmp)->hungrytime = 1000 + moves;
46. EDOG(mtmp)->eattime = 0;
47. EDOG(mtmp)->droptime = 0;
48. EDOG(mtmp)->dropdist = 10000;
49. EDOG(mtmp)->apport = 10;
50. EDOG(mtmp)->whistletime = 0;
51. }
52. 
53. /* attach the monsters that went down (or up) together with @ */
54. struct monst *mydogs = 0;
55. struct monst *fallen_down = 0; /* monsters that fell through a trapdoor */
56. /* they will appear on the next level @ goes to, even if he goes up! */
57. 
58. losedogs(){
59. register struct monst *mtmp;
60. while(mtmp = mydogs){
61. mydogs = mtmp->nmon;
62. mtmp->nmon = fmon;
63. fmon = mtmp;
64. mnexto(mtmp);
65. }
66. while(mtmp = fallen_down){
67. fallen_down = mtmp->nmon;
68. mtmp->nmon = fmon;
69. #ifdef WALKIES
70. mtmp->mleashed = 0;
71. #endif
72. fmon = mtmp;
73. rloc(mtmp);
74. }
75. }
76. 
77. keepdogs(){
78. register struct monst *mtmp;
79. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
80. if(dist(mtmp->mx,mtmp->my) < 3 && follower(mtmp)
81. && !mtmp->msleep && !mtmp->mfroz) {
82. #ifdef DGKMOD
83. /* Bug "fix" for worm changing levels collapsing dungeon
84. */
85. if (mtmp->data->mlet == 'w') {
86. if (canseemon(mtmp) || (Blind && Telepat))
87. pline("The worm can't fit down the stairwell!");
88. #ifdef WALKIES
89. pline("The leash slides off the slimy worm!");
90. mtmp->mleashed = 0;
91. #endif
92. continue;
93. }
94. #endif
95. relmon(mtmp);
96. mtmp->nmon = mydogs;
97. mydogs = mtmp;
98. unpmon(mtmp);
99. keepdogs(); /* we destroyed the link, so use recursion */
100. return; /* (admittedly somewhat primitive) */
101. }
102. }
103. 
104. fall_down(mtmp) register struct monst *mtmp; {
105. relmon(mtmp);
106. mtmp->nmon = fallen_down;
107. fallen_down = mtmp;
108. #ifdef WALKIES
109. if (mtmp->mleashed) {
110. 
111. pline("The leash comes off!");
112. mtmp->mleashed = 0;
113. }
114. #endif
115. unpmon(mtmp);
116. mtmp->mtame = 0;
117. }
118. 
119. /* return quality of food; the lower the better */
120. dogfood(obj) register struct obj *obj; {
121. switch(obj->olet) {
122. case FOOD_SYM:
123. return(
124. (obj->otyp == TRIPE_RATION) ? DOGFOOD :
125. (obj->otyp < CARROT) ? ACCFOOD :
126. (obj->otyp < CORPSE) ? MANFOOD :
127. (poisonous(obj) || obj->age + 50 <= moves ||
128. obj->otyp == DEAD_COCKATRICE)
129. ? POISON : CADAVER
130. );
131. default:
132. if(!obj->cursed) return(APPORT);
133. /* fall into next case */
134. case BALL_SYM:
135. case CHAIN_SYM:
136. case ROCK_SYM:
137. return(UNDEF);
138. }
139. }
140. 
141. /* return roomnumber or -1 */
142. inroom(x,y) xchar x,y; {
143. #ifndef QUEST
144. register struct mkroom *croom = &rooms[0];
145. while(croom->hx >= 0){
146. if(croom->hx >= x-1 && croom->lx <= x+1 &&
147. croom->hy >= y-1 && croom->ly <= y+1)
148. return(croom - rooms);
149. croom++;
150. }
151. #endif
152. return(-1); /* not in room or on door */
153. }
154. 
155. tamedog(mtmp, obj)
156. register struct monst *mtmp;
157. register struct obj *obj;
158. {
159. register struct monst *mtmp2;
160. 
161. /* worst case, at least he'll be peaceful. */
162. mtmp->mpeaceful = 1;
163. if(flags.moonphase == FULL_MOON && night() && rn2(6))
164. return(0);
165. 
166. /* If we cannot tame him, at least he's no longer afraid. */
167. mtmp->mflee = 0;
168. mtmp->mfleetim = 0;
169. if(mtmp->mtame || mtmp->mfroz ||
170. #ifndef NOWORM
171. mtmp->wormno ||
172. #endif
173. mtmp->isshk || mtmp->isgd || index(" @12", mtmp->data->mlet))
174. return(0); /* no tame long worms? */
175. if(obj) {
176. if(dogfood(obj) >= MANFOOD) return(0);
177. if(cansee(mtmp->mx,mtmp->my)){
178. pline("%s devours the %s.", Monnam(mtmp),
179. objects[obj->otyp].oc_name);
180. }
181. obfree(obj, (struct obj *) 0);
182. }
183. mtmp2 = newmonst(sizeof(struct edog) + mtmp->mnamelth);
184. *mtmp2 = *mtmp;
185. mtmp2->mxlth = sizeof(struct edog);
186. if(mtmp->mnamelth) (void) strcpy(NAME(mtmp2), NAME(mtmp));
187. initedog(mtmp2);
188. replmon(mtmp,mtmp2);
189. return(1);
190. }
[[Category:NetHack 1.4f source code|dog.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''dog.c''' from the [[NetHack 1.4f source code|source code]] of [[NetHack 1.4f]]. To link to a particular line, write [[NetHack 1.4f/dog.c#line123|<nowiki>[[NetHack 1.4f/dog.c#line123]]</nowiki>]], for example.
+Below is the full text to '''dog.c''' from the [[NetHack 1.4f source code|source code]] of [[NetHack 1.4f]].
-'''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 00:53, 4 March 2008
(No difference)

Source:NetHack 1.4f/dog.c - Revision history

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

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

Jaytbot: Automated source code upload