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

2024-07-03T22:59:45Z

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

Jaytbot: Automated source code upload

2006-09-24T14:54:15Z

Automated source code upload

New page

Below is the full text to '''makemon.c''' from the [[NetHack 2.3e source code|source code]] of [[NetHack 2.3e]]. To link to a particular line, write [[NetHack 2.3e/makemon.c#line123|<nowiki>[[NetHack 2.3e/makemon.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: @(#)makemon.c 2.3 87/12/12
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. 
4. #include "hack.h"
5. extern char fut_geno[];
6. extern char *index();
7. extern struct obj *mkobj_at(), *mksobj(), *mkobj();
8. struct monst zeromonst;
9. extern boolean in_mklev;
10. 
11. #ifdef HARD /* used in hell for bigger, badder demons! */
12. 
13. struct permonst d_lord = { "demon lord", '&',12,13,-5,50,1,5,0 },
14. d_prince = { "demon prince", '&',14,14,-6,70,1,6,0 };
15. #endif
16. #ifdef KJSMODS
17. # ifdef KOPS
18. struct permonst kobold = { "kobold",'K',1,6,7,0,1,4,0 };
19. # endif
20. # ifdef ROCKMOLE
21. struct permonst giant_rat = { "giant rat",'r',0,12,7,0,1,3,0 };
22. # endif
23. #endif /* KJSMODS /**/
24. 
25. struct permonst grey_dragon = { "grey dragon", 'D',10,9,-1,20,3,8,0 };
26. struct permonst red_dragon = { "red dragon", 'D',10,9,-1,20,3,8,0 };
27. struct permonst orange_dragon = { "orange dragon",'D',10,9,-1,20,3,8,0 };
28. struct permonst white_dragon = { "white dragon", 'D',10,9,-1,20,3,8,0 };
29. struct permonst black_dragon = { "black dragon", 'D',10,9,-1,20,3,8,0 };
30. struct permonst blue_dragon = { "blue dragon", 'D',10,9,-1,20,3,8,0 };
31. struct permonst green_dragon = { "green dragon", 'D',10,9,-1,20,3,8,0 };
32. struct permonst yellow_dragon = { "yellow dragon",'D',10,9,-1,20,3,8,0 };
33. extern struct permonst pm_gremlin;
34. 
35. /*
36. * called with [x,y] = coordinates;
37. * [0,0] means anyplace
38. * [u.ux,u.uy] means: call mnexto (if !in_mklev)
39. *
40. * In case we make an Orc or killer bee, we make an entire horde
41. * (swarm); note that in this case we return only one of them
42. * (the one at [x,y]).
43. */
44. struct monst *
45. makemon(ptr,x,y)
46. register struct permonst *ptr;
47. {
48. register struct monst *mtmp;
49. register nleft, deep, ct;
50. boolean anything = (!ptr);
51. int zlevel = dlevel;
52. #ifdef BVH
53. if(has_amulet()) zlevel = MAXLEVEL;
54. #endif
55. /* if a monster already exists at the position, return */
56. if(x != 0 || y != 0) if(m_at(x,y)) return((struct monst *) 0);
57. if(ptr){
58. /* if you are to make a specific monster and it has 
59. already been genocided, return */
60. if(index(fut_geno, ptr->mlet)) return((struct monst *) 0);
61. } else {
62. /* make a random (common) monster. */
63. nleft = CMNUM - strlen(fut_geno);
64. if(index(fut_geno, 'm')) nleft++; /* only 1 minotaur */
65. if(index(fut_geno, '@')) nleft++;
66. if(nleft <= 0)
67. return((struct monst *) 0); /* no more monsters! */
68. 
69. /* determine the strongest monster to make. */
70. #ifdef ROCKMOLE
71. deep = rn2(nleft*zlevel/24 + 6);
72. #else
73. deep = rn2(nleft*zlevel/24 + 7);
74. #endif
75. if(deep < zlevel - 4) deep = rn2(nleft*zlevel/24 + 12);
76. /* if deep is greater than the number of monsters left 
77. to create, set deep to a random number between half 
78. the number left and the number left. */
79. if(deep >= nleft) deep = rn1(nleft - nleft/2, nleft/2);
80. 
81. for(ct = 0 ; ct < CMNUM ; ct++){
82. ptr = &mons[ct];
83. if(index(fut_geno, ptr->mlet)) continue;
84. #ifdef KOPS
85. if(ptr->mlet == 'K') {
86. # ifdef KJSMODS
87. /* since this is a random monster, make 
88. a Kobold instead of a Kop. */
89. ptr = &kobold;
90. # else
91. deep--;
92. # endif
93. continue;
94. }
95. #endif /* KOPS /**/
96. if(deep-- <= 0) goto gotmon;
97. }
98. /* this can happen if you are deep in the dungeon and 
99. mostly weak monsters have been genocided. */
100. return((struct monst *) 0);
101. }
102. gotmon:
103. #if defined(KJSMODS) && defined(ROCKMOLE)
104. /* make a giant rat */
105. if((zlevel < 4 && ptr->mlet == 'r')
106. || (zlevel == 1 && (ptr->mlet == 'h' || ptr->mlet == 'i'))
107. || (zlevel == 2 && (ptr->mlet == 'o' || ptr->mlet == 'y'))
108. ) ptr = &giant_rat;
109. #endif
110. mtmp = newmonst(ptr->pxlth);
111. *mtmp = zeromonst; /* clear all entries in structure */
112. for(ct = 0; ct < ptr->pxlth; ct++)
113. ((char *) &(mtmp->mextra[0]))[ct] = 0;
114. mtmp->nmon = fmon;
115. fmon = mtmp;
116. mtmp->m_id = flags.ident++;
117. mtmp->data = ptr;
118. mtmp->mxlth = ptr->pxlth;
119. if(ptr->mlet == 'D') mtmp->mhpmax = mtmp->mhp = 80;
120. else if(!ptr->mlevel) mtmp->mhpmax = mtmp->mhp = rnd(4);
121. else mtmp->mhpmax = mtmp->mhp = d(ptr->mlevel, 8);
122. mtmp->mx = x;
123. mtmp->my = y;
124. mtmp->mcansee = 1;
125. if(ptr->mlet == 'D') {
126. mtmp->dragon = rn2(8);
127. switch(mtmp->dragon) {
128. case 0: mtmp->data = &grey_dragon; break;
129. case 1: mtmp->data = &red_dragon; break;
130. case 2: mtmp->data = &orange_dragon; break;
131. case 3: mtmp->data = &white_dragon; break;
132. case 4: mtmp->data = &black_dragon; break;
133. case 5: mtmp->data = &blue_dragon; break;
134. case 6: mtmp->data = &green_dragon; break;
135. case 7: mtmp->data = &yellow_dragon; break;
136. }
137. }
138. /* if gnome, make a gremlin or if gremlin make sure it stays gremlin */
139. if((ptr->mlet == 'G' && zlevel >= 10 && rn2(4)) || 
140. !strcmp(ptr->mname, "gremlin")) {
141. ptr = PM_GREMLIN;
142. mtmp->data = PM_GREMLIN;
143. mtmp->isgremlin = 1;
144. }
145. if(ptr->mlet == 'M'){
146. mtmp->mimic = 1;
147. mtmp->mappearance = ']';
148. }
149. if(!in_mklev) {
150. if(x == u.ux && y == u.uy && ptr->mlet != ' ')
151. mnexto(mtmp);
152. if(x == 0 && y == 0)
153. rloc(mtmp);
154. }
155. if(ptr->mlet == 's' || ptr->mlet == 'S') {
156. mtmp->mhide = mtmp->mundetected = 1;
157. if(in_mklev)
158. if(mtmp->mx && mtmp->my)
159. (void) mkobj_at(0, mtmp->mx, mtmp->my);
160. }
161. if(ptr->mlet == ':') {
162. #ifdef DGKMOD
163. /* If you're protected with a ring, don't create
164. * any shape-changing chameleons -dgk
165. */
166. if (Protection_from_shape_changers)
167. mtmp->cham = 0;
168. else {
169. mtmp->cham = 1;
170. (void) newcham(mtmp,
171. # ifndef RPH
172. &mons[zlevel+14+rn2(CMNUM-14-zlevel)]);
173. # else
174. (struct permonst *)0);
175. # endif
176. }
177. #else
178. mtmp->cham = 1;
179. (void) newcham (mtmp,
180. # ifndef RPH
181. &mons[zlevel+14+rn2(CMNUM-14-zlevel)]);
182. # else
183. 0);
184. # endif
185. #endif
186. }
187. if(ptr->mlet == 'I' || ptr->mlet == ';')
188. mtmp->minvis = 1;
189. if(ptr->mlet == 'L' || ptr->mlet == 'N'
190. || (in_mklev && index("&w;", ptr->mlet) && rn2(5))
191. ) mtmp->msleep = 1;
192. #ifdef HARD
193. if(ptr->mlet == '&' && (Inhell || u.udemigod)) {
194. 
195. if(!rn2(3 + !Inhell + !u.udemigod)) {
196. if (rn2(3 + Inhell)) mtmp->data = &d_lord;
197. else {
198. mtmp->data = &d_prince;
199. mtmp->mpeaceful = 1;
200. mtmp->minvis = 1;
201. }
202. }
203. #ifdef RPH
204. if(uwep)
205. if(!strcmp(ONAME(uwep), "Excalibur"))
206. mtmp->mpeaceful = mtmp->mtame = 0;
207. #endif
208. }
209. #endif /* HARD /**/
210. #ifndef NOWORM
211. if(ptr->mlet == 'w' && getwn(mtmp)) initworm(mtmp);
212. #endif
213. 
214. if(anything)
215. if(ptr->mlet == 'O' || ptr->mlet == 'k'
216. #ifdef SAC
217. || ptr->mlet == '3'
218. #endif /* SAC /**/
219. || (ptr->mlet == 'G' && mtmp->isgremlin)
220. ) {
221. 
222. coord mm;
223. register int cnt = rnd(10);
224. mm.x = x;
225. mm.y = y;
226. while(cnt--) {
227. enexto(&mm, mm.x, mm.y);
228. (void) makemon(ptr, mm.x, mm.y);
229. }
230. }
231. #ifdef DGKMOD
232. m_initinv(mtmp);
233. #endif
234. return(mtmp);
235. }
236. 
237. #ifdef DGKMOD
238. /* Give some monsters an initial inventory to use */
239. m_initinv(mtmp)
240. struct monst *mtmp;
241. {
242. struct obj *otmp;
243. 
244. switch (mtmp->data->mlet) {
245. # ifdef KAA
246. case '9':
247. if (rn2(2)) {
248. otmp = mksobj(ENORMOUS_ROCK);
249. mpickobj(mtmp, otmp);
250. }
251. # endif
252. # ifdef SAC
253. case '3': /* Outfit the troops */
254. if (!rn2(5)) {
255. otmp = mksobj(HELMET);
256. mpickobj(mtmp, otmp); }
257. if (!rn2(5)) {
258. otmp = mksobj(CHAIN_MAIL);
259. mpickobj(mtmp, otmp); }
260. if (!rn2(4)) {
261. otmp = mksobj(DAGGER);
262. mpickobj(mtmp, otmp); }
263. if (!rn2(7)) {
264. otmp = mksobj(SPEAR);
265. mpickobj(mtmp, otmp); }
266. if (!rn2(3)) {
267. otmp = mksobj(K_RATION);
268. mpickobj(mtmp, otmp); }
269. if (!rn2(2)) {
270. otmp = mksobj(C_RATION);
271. mpickobj(mtmp, otmp); }
272. # endif /* SAC /**/
273. # ifdef KOPS
274. case 'K': /* create Keystone Kops with cream pies to
275. * throw. As suggested by KAA. [MRS]
276. */
277. if (!rn2(4)
278. # ifdef KJSMODS
279. && !strcmp(mtmp->data->mname, "Keystone Kop")
280. # endif
281. ) {
282. otmp = mksobj(CREAM_PIE);
283. otmp->quan = 2 + rnd(2);
284. otmp->owt = weight(otmp);
285. mpickobj(mtmp, otmp);
286. }
287. break;
288. case 'O':
289. # else
290. case 'K':
291. # endif
292. if (!rn2(4)) {
293. otmp = mksobj(DART);
294. otmp->quan = 2 + rnd(12);
295. otmp->owt = weight(otmp);
296. mpickobj(mtmp, otmp);
297. }
298. break;
299. 
300. case 'C':
301. if (rn2(2)) {
302. otmp = mksobj(CROSSBOW);
303. otmp->cursed = rn2(2);
304. mpickobj(mtmp, otmp);
305. otmp = mksobj(CROSSBOW_BOLT);
306. otmp->quan = 2 + rnd(12);
307. otmp->owt = weight(otmp);
308. mpickobj(mtmp, otmp);
309. }
310. break;
311. default:
312. break;
313. }
314. }
315. #endif
316. 
317. enexto(cc, xx,yy)
318. coord *cc;
319. register xchar xx,yy;
320. {
321. register xchar x,y;
322. coord foo[15], *tfoo;
323. int range, i;
324. 
325. tfoo = foo;
326. range = 1;
327. do { /* full kludge action. */
328. for(x = xx-range; x <= xx+range; x++)
329. if(goodpos(x, yy-range)) {
330. tfoo->x = x;
331. (tfoo++)->y = yy-range;
332. if(tfoo == &foo[15]) goto foofull;
333. }
334. for(x = xx-range; x <= xx+range; x++)
335. if(goodpos(x,yy+range)) {
336. tfoo->x = x;
337. (tfoo++)->y = yy+range;
338. if(tfoo == &foo[15]) goto foofull;
339. }
340. for(y = yy+1-range; y < yy+range; y++)
341. if(goodpos(xx-range,y)) {
342. tfoo->x = xx-range;
343. (tfoo++)->y = y;
344. if(tfoo == &foo[15]) goto foofull;
345. }
346. for(y = yy+1-range; y < yy+range; y++)
347. if(goodpos(xx+range,y)) {
348. tfoo->x = xx+range;
349. (tfoo++)->y = y;
350. if(tfoo == &foo[15]) goto foofull;
351. }
352. range++;
353. } while(tfoo == foo);
354. foofull:
355. i = rn2(tfoo - foo);
356. cc->x = foo[i].x;
357. cc->y = foo[i].y;
358. return(0);
359. }
360. 
361. goodpos(x,y) /* used only in mnexto and rloc */
362. {
363. return(
364. ! (x < 1 || x > COLNO-2 || y < 1 || y > ROWNO-2 ||
365. m_at(x,y) || !ACCESSIBLE(levl[x][y].typ)
366. || (x == u.ux && y == u.uy)
367. || sobj_at(ENORMOUS_ROCK, x, y)
368. ));
369. }
370. 
371. rloc(mtmp)
372. struct monst *mtmp;
373. {
374. register tx,ty;
375. register char ch = mtmp->data->mlet;
376. 
377. #ifndef NOWORM
378. if(ch == 'w' && mtmp->mx) return; /* do not relocate worms */
379. #endif
380. do {
381. tx = rn1(COLNO-3,2);
382. ty = rn2(ROWNO);
383. } while(!goodpos(tx,ty));
384. mtmp->mx = tx;
385. mtmp->my = ty;
386. if(u.ustuck == mtmp){
387. if(u.uswallow) {
388. u.ux = tx;
389. u.uy = ty;
390. docrt();
391. } else u.ustuck = 0;
392. }
393. pmon(mtmp);
394. }
395. 
396. struct monst *
397. mkmon_at(let,x,y)
398. char let;
399. register int x,y;
400. {
401. register int ct;
402. register struct permonst *ptr;
403. 
404. for(ct = 0; ct < CMNUM; ct++) {
405. ptr = &mons[ct];
406. if(ptr->mlet == let)
407. return(makemon(ptr,x,y));
408. }
409. return((struct monst *)0);
410. }
[[Category:NetHack 2.3e source code|makemon.c]]

Source:NetHack 2.3e/makemon.c - Revision history

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

Kernigh bot: NetHack 2.3e/makemon.c moved to Source:NetHack 2.3e/makemon.c: Robot: moved page

Jaytbot: Automated source code upload

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