home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume16 / nethack31 / part31 < prev    next >
Internet Message Format  |  1993-02-01  |  58KB
  1. Path: uunet!news.tek.com!master!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v16i031:  nethack31 - display oriented dungeons & dragons (Ver. 3.1), Part31/108
  5. Message-ID: <4319@master.CNA.TEK.COM>
  6. Date: 29 Jan 93 20:46:17 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1960
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1588
  11.  
  12. Submitted-by: izchak@linc.cis.upenn.edu (Izchak Miller)
  13. Posting-number: Volume 16, Issue 31
  14. Archive-name: nethack31/Part31
  15. Supersedes: nethack3p9: Volume 10, Issue 46-102
  16. Environment: Amiga, Atari, Mac, MS-DOS, OS2, Unix, VMS, X11
  17.  
  18.  
  19.  
  20. #! /bin/sh
  21. # This is a shell archive.  Remove anything before this line, then unpack
  22. # it by saving it into a file and typing "sh file".  To overwrite existing
  23. # files, type "sh file -c".  You can also feed this as standard input via
  24. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  25. # will see the following message at the end:
  26. #        "End of archive 31 (of 108)."
  27. # Contents:  dat/Elf.des src/makemon.c
  28. # Wrapped by billr@saab on Wed Jan 27 16:08:58 1993
  29. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  30. if test -f 'dat/Elf.des' -a "${1}" != "-c" ; then 
  31.   echo shar: Will not clobber existing file \"'dat/Elf.des'\"
  32. else
  33. echo shar: Extracting \"'dat/Elf.des'\" \(12738 characters\)
  34. sed "s/^X//" >'dat/Elf.des' <<'END_OF_FILE'
  35. X#    SCCS Id: @(#)Elf.des    3.1    91/12/24
  36. X#    Copyright (c) 1989 by Jean-Christophe Collet
  37. X#    Copyright (c) 1991 by M. Stephenson
  38. X# NetHack may be freely redistributed.  See license for details.
  39. X#
  40. X#    The "start" level for the quest.
  41. X#
  42. X#    Here you meet your (besieged) class leader, Earendil/Elwing
  43. X#    and receive your quest assignment.
  44. X#
  45. XMAZE: "E-start",' '
  46. XFLAGS: noteleport,hardfloor
  47. XGEOMETRY:center,center
  48. XMAP
  49. X.................................... . .....................................
  50. X................................... ... ....................................
  51. X.................................... . .....................................
  52. X................................... ... ....................................
  53. X.................................... . .....................................
  54. X..............................}}}}}}}.}}}}}}}...............................
  55. X............................}}}|----...----|}}}.............................
  56. X...........................}}|--...........--|}}............................
  57. X.................... . . . }|-...............-|} . . . .....................
  58. X................... . . . .}|.................|}. . . . ....................
  59. X............................................................................
  60. X................... . . . .}|.................|}. . . . ....................
  61. X.................... . . . }|-...............-|} . . . .....................
  62. X...........................}}|--...........--|}}............................
  63. X............................}}}|----...----|}}}.............................
  64. X..............................}}}}}}}.}}}}}}}...............................
  65. X.................................... . .....................................
  66. X................................... ... ....................................
  67. X.................................... . .....................................
  68. X................................... ... ....................................
  69. XENDMAP
  70. X# Random Monsters
  71. XRANDOM_MONSTERS: 'o', 'O'
  72. X# Dungeon Description
  73. XREGION:(00,00,75,19),lit,"ordinary"
  74. X# Stairs
  75. XSTAIR:(40,13),down
  76. X# Portal arrival point
  77. XBRANCH:(00,14,00,14),(0,0,0,0)
  78. X# Altar
  79. XALTAR:(37,10),chaos,altar
  80. X# Earendil/Elwing
  81. XMONSTER:'@',"Earendil",(37,10)
  82. X# The treasure of Earendil/Elwing
  83. XOBJECT:'(',"chest",(37,10)
  84. X# elf guards for the audience chamber
  85. XMONSTER:'@',"High-elf",(38,09)
  86. XMONSTER:'@',"High-elf",(38,10)
  87. XMONSTER:'@',"High-elf",(38,11)
  88. XMONSTER:'@',"High-elf",(36,09)
  89. XMONSTER:'@',"High-elf",(36,10)
  90. XMONSTER:'@',"High-elf",(36,11)
  91. XMONSTER:'@',"High-elf",(37,09)
  92. XMONSTER:'@',"High-elf",(37,11)
  93. X# Non diggable walls
  94. XNON_DIGGABLE:(00,00,75,19)
  95. X# traps
  96. X# One pit at each cardinal point.
  97. XTRAP:"pit",(37,05)
  98. XTRAP:"pit",(46,10)
  99. XTRAP:"pit",(37,15)
  100. XTRAP:"pit",(28,10)
  101. XTRAP:random,random
  102. XTRAP:random,random
  103. X# Monsters on siege duty.
  104. XMONSTER: 'o',"Uruk-hai",(35,04),hostile
  105. XMONSTER: 'o',"Uruk-hai",(36,03),hostile
  106. XMONSTER: 'o',"goblin",(37,03),hostile
  107. XMONSTER: 'o',"goblin",(38,03),hostile
  108. XMONSTER: 'o',"goblin",(39,04),hostile
  109. XMONSTER: 'o',"Uruk-hai",(48,09),hostile
  110. XMONSTER: 'o',"goblin",(48,10),hostile
  111. XMONSTER: 'o',"goblin",(48,11),hostile
  112. XMONSTER: 'o',"Uruk-hai",(35,16),hostile
  113. XMONSTER: 'o',"Uruk-hai",(36,17),hostile
  114. XMONSTER: 'o',"goblin",(37,17),hostile
  115. XMONSTER: 'o',"goblin",(38,17),hostile
  116. XMONSTER: 'o',"goblin",(39,16),hostile
  117. XMONSTER: 'o',"Uruk-hai",(26,09),hostile
  118. XMONSTER: 'o',"goblin",(26,10),hostile
  119. XMONSTER: 'o',"goblin",(26,11),hostile
  120. X 
  121. X#
  122. X#    The "locate" level for the quest.
  123. X#
  124. X#    Here you have to infiltrate the Goblins' Cave to go
  125. X#    further towards your assigned quest.
  126. X#
  127. X
  128. XMAZE: "E-locate",' '
  129. XFLAGS: hardfloor
  130. XGEOMETRY:center,center
  131. XMAP
  132. X                                                                            
  133. X ..       ....            ......            ...        .......         ..   
  134. X  ..     ......S...     ..........         .....       ........       ....  
  135. X   ..    .. ...   .    ......... ..          .           .....       ....   
  136. X    ..  ..        .      .....    ..         .             ..       .....   
  137. X     ....         .         ..     ..        S               ..        ..   
  138. X    ....          S        ..       ..      ....               ..      ..   
  139. X    .....        ...      ..         ..    ........              ..    ..   
  140. X   ......      ......   ...           ..  ............           ...  ...   
  141. X    ....      .. ....   ....       ........................S....S......     
  142. X       ..    ..   ..     ...     ........................         ..        
  143. X        ..  ..          ..       ........................          ..       
  144. X  ....   ....          ..         ........................         ..       
  145. X ......   ..          ..    ...    ....................           ..        
  146. X  ....   ....        ..    .....    ............                 ..         
  147. X   ..   ..  ..      ..       ...  .S    ............          ....     ...  
  148. X   .. ..     ..............    ....      ............      ....  ..   ..... 
  149. X    ...                   ..            ..     ....    .....      ..   .... 
  150. X                           ..............         ......           .....    
  151. X                                                                            
  152. XENDMAP
  153. X# Random Monsters
  154. XRANDOM_MONSTERS: 'o', 'O'
  155. X# Dungeon Description
  156. XREGION:(00,00,75,19),unlit,"ordinary"
  157. X# Doors
  158. XDOOR:closed,(15,02)
  159. XDOOR:closed,(18,06)
  160. XDOOR:closed,(35,15)
  161. XDOOR:closed,(45,05)
  162. XDOOR:closed,(59,09)
  163. XDOOR:closed,(64,09)
  164. X# Stairs
  165. XSTAIR:(01,01),up
  166. XSTAIR:(45,01),down
  167. X# Non diggable walls
  168. XNON_DIGGABLE:(00,00,75,19)
  169. X# Objects
  170. XOBJECT:random,random,random
  171. XOBJECT:random,random,random
  172. XOBJECT:random,random,random
  173. XOBJECT:random,random,random
  174. XOBJECT:random,random,random
  175. XOBJECT:random,random,random
  176. XOBJECT:random,random,random
  177. XOBJECT:random,random,random
  178. XOBJECT:random,random,random
  179. XOBJECT:random,random,random
  180. XOBJECT:random,random,random
  181. XOBJECT:random,random,random
  182. XOBJECT:random,random,random
  183. XOBJECT:random,random,random
  184. XOBJECT:random,random,random
  185. X# Random traps
  186. XTRAP:"pit",(13,10)
  187. XTRAP:"spiked pit",(45,03)
  188. XTRAP:"board",(41,16)
  189. XTRAP:"magic",(60,09)
  190. XTRAP:random,random
  191. XTRAP:random,random
  192. X# Random monsters.
  193. XMONSTER:'o',"Uruk-hai",(40,10),hostile
  194. XMONSTER:'o',"Uruk-hai",(41,10),hostile
  195. XMONSTER:'o',"Uruk-hai",(42,10),hostile
  196. XMONSTER:'o',"Uruk-hai",(43,10),hostile
  197. XMONSTER:'o',"goblin",(44,10),hostile
  198. XMONSTER:'o',"goblin",(45,10),hostile
  199. XMONSTER:'o',"goblin",(40,11),hostile
  200. XMONSTER:'o',"goblin",(41,11),hostile
  201. XMONSTER:'o',"goblin",(42,11),hostile
  202. XMONSTER:'o',"goblin",(43,11),hostile
  203. XMONSTER:'o',"goblin",(44,11),hostile
  204. XMONSTER:'o',"goblin",(45,11),hostile
  205. XMONSTER:'o',"goblin",(41,12),hostile
  206. XMONSTER:'o',"goblin",(42,12),hostile
  207. XMONSTER:'o',"goblin",(43,12),hostile
  208. XMONSTER:'o',"goblin",(44,12),hostile
  209. XMONSTER:'o',"goblin",random,hostile
  210. XMONSTER:'o',random,random,hostile
  211. XMONSTER:'O',random,random,hostile
  212. XMONSTER:'O',"ogre",(42,13),hostile
  213. XMONSTER:'O',"ogre",(43,13),hostile
  214. XMONSTER:'O',"ogre",(44,13),hostile
  215. XMONSTER:'O',"ogre",random,hostile
  216. X
  217. XWALLIFY
  218. X
  219. X#
  220. X#    The "goal" level for the quest.
  221. X#
  222. X#    Here you meet The Goblin King your nemesis monster.  You have to
  223. X#    defeat The Goblin King in combat to gain the artifact you have
  224. X#    been assigned to retrieve.
  225. X#
  226. X
  227. XMAZE: "E-goal", ' '
  228. XGEOMETRY:center,center
  229. XMAP
  230. X                                                                            
  231. X  ...                                                                  ...  
  232. X .......................................................................... 
  233. X  ...                                +                                 ...  
  234. X   .     ............     .......    .                   .......        .   
  235. X   .  .............................  .       ........   .........S..    .   
  236. X   .   ............    .  ......     .       .      .    .......   ..   .   
  237. X   .     .........     .   ....      +       . ...  .               ..  .   
  238. X   .        S          .         .........   .S.    .S...............   .   
  239. X   .  ...   .     ...  .         .........          .                   .   
  240. X   . ........    .....S.+.......+....\....+........+.                   .   
  241. X   .  ...         ...    S       .........           ..      .....      .   
  242. X   .                    ..       .........            ..      ......    .   
  243. X   .      .......     ...            +       ....    ....    .......... .   
  244. X   . ..............  ..              .      ......  ..  .............   .   
  245. X   .     .............               .     ..........          ......   .   
  246. X  ...                                +                                 ...  
  247. X .......................................................................... 
  248. X  ...                                                                  ...  
  249. X                                                                            
  250. XENDMAP
  251. X# Random Monsters
  252. XRANDOM_MONSTERS: 'o', 'O'
  253. X# Dungeon Description
  254. XREGION:(00,00,75,19),lit,"ordinary"
  255. X# Stairs
  256. XSTAIR:(19,10),up
  257. X# Non diggable walls
  258. XNON_DIGGABLE:(00,00,75,19)
  259. X# Objects
  260. XOBJECT:'(',"crystal ball",(37,10),blessed,0,"The Palantir of Westernesse"
  261. XOBJECT:'(',"chest",(37,10)
  262. XOBJECT:random,random,(36,09)
  263. XOBJECT:random,random,(36,10)
  264. XOBJECT:random,random,(36,11)
  265. XOBJECT:random,random,(37,09)
  266. XOBJECT:random,random,(37,11)
  267. XOBJECT:random,random,(38,09)
  268. XOBJECT:random,random,(38,10)
  269. XOBJECT:random,random,(38,11)
  270. XOBJECT:random,random,random
  271. XOBJECT:random,random,random
  272. XOBJECT:random,random,random
  273. XOBJECT:random,random,random
  274. XOBJECT:random,random,random
  275. X# Random traps
  276. XTRAP:random,random
  277. XTRAP:random,random
  278. XTRAP:random,random
  279. XTRAP:random,random
  280. XTRAP:random,random
  281. XTRAP:random,random
  282. X# doors
  283. XDOOR:locked,(12,08)
  284. XDOOR:closed,(22,10)
  285. XDOOR:locked,(24,10)
  286. XDOOR:closed,(25,11)
  287. XDOOR:closed,(32,10)
  288. XDOOR:closed,(37,03)
  289. XDOOR:closed,(37,07)
  290. XDOOR:closed,(37,13)
  291. XDOOR:closed,(37,16)
  292. XDOOR:closed,(42,10)
  293. XDOOR:locked,(46,08)
  294. XDOOR:closed,(51,10)
  295. XDOOR:locked,(53,08)
  296. XDOOR:closed,(65,05)
  297. X# Random monsters.
  298. XMONSTER:'o',"Goblin King",(37,10),hostile
  299. XMONSTER:'o',"Uruk-hai",(36,09),hostile
  300. XMONSTER:'o',"Uruk-hai",(36,10),hostile
  301. XMONSTER:'o',"Uruk-hai",(36,11),hostile
  302. XMONSTER:'o',"Uruk-hai",(37,09),hostile
  303. XMONSTER:'o',"Uruk-hai",(37,11),hostile
  304. XMONSTER:'o',"Uruk-hai",(38,09),hostile
  305. XMONSTER:'o',"goblin",(38,10),hostile
  306. XMONSTER:'o',"goblin",(38,11),hostile
  307. XMONSTER:'o',"goblin",(02,02),hostile
  308. XMONSTER:'o',"goblin",(71,02),hostile
  309. XMONSTER:'o',"goblin",(02,16),hostile
  310. XMONSTER:'o',"goblin",(71,16),hostile
  311. XMONSTER:'o',"Uruk-hai",random,hostile
  312. XMONSTER:'o',"Uruk-hai",random,hostile
  313. XMONSTER:'o',"goblin",random,hostile
  314. XMONSTER:'o',"goblin",random,hostile
  315. XMONSTER:'o',random,random,hostile
  316. XMONSTER:'o',random,random,hostile
  317. XMONSTER:'O',"ogre",(03,02),hostile
  318. XMONSTER:'O',"ogre",(72,02),hostile
  319. XMONSTER:'O',"ogre",(03,17),hostile
  320. XMONSTER:'O',"ogre",(72,17),hostile
  321. XMONSTER:'O',"ogre",(41,10),hostile
  322. XMONSTER:'O',"ogre",(33,09),hostile
  323. XMONSTER:'O',"ogre",random,hostile
  324. XMONSTER:'O',"ogre",random,hostile
  325. XMONSTER:'O',random,random,hostile
  326. X
  327. XWALLIFY
  328. X
  329. X#
  330. X#    The "fill" levels for the quest.
  331. X#
  332. X#    These levels are used to fill out any levels not occupied by specific
  333. X#    levels as defined above. "filla" is the upper filler, between the
  334. X#    start and locate levels, and "fillb" the lower between the locate
  335. X#    and goal levels.
  336. X#
  337. X
  338. XMAZE: "E-filla" , ' '
  339. XINIT_MAP: '.' , ' ', true, true, random, true
  340. XNOMAP
  341. X# Random Monsters
  342. XRANDOM_MONSTERS: 'o', 'O'
  343. X#
  344. XSTAIR: random, up
  345. XSTAIR: random, down
  346. X#
  347. XOBJECT: random, random, random
  348. XOBJECT: random, random, random
  349. XOBJECT: random, random, random
  350. XOBJECT: random, random, random
  351. XOBJECT: random, random, random
  352. XOBJECT: random, random, random
  353. XOBJECT: random, random, random
  354. X#
  355. XTRAP: random, random
  356. XTRAP: random, random
  357. XTRAP: random, random
  358. XTRAP: random, random
  359. X#
  360. XMONSTER: 'o', "goblin", random, hostile
  361. XMONSTER: 'o', "goblin", random, hostile
  362. XMONSTER: 'o', "goblin", random, hostile
  363. XMONSTER: 'o', "goblin", random, hostile
  364. XMONSTER: 'o', "Uruk-hai", random, hostile
  365. XMONSTER: 'o', random, random, hostile
  366. XMONSTER: 'O', "ogre", random, hostile
  367. X
  368. XMAZE: "E-fillb" , ' '
  369. XINIT_MAP: '.' , ' ', true, true, random, true
  370. XNOMAP
  371. X# Random Monsters
  372. XRANDOM_MONSTERS: 'o', 'O'
  373. X#
  374. XSTAIR: random, up
  375. XSTAIR: random, down
  376. X#
  377. XOBJECT: random, random, random
  378. XOBJECT: random, random, random
  379. XOBJECT: random, random, random
  380. XOBJECT: random, random, random
  381. XOBJECT: random, random, random
  382. XOBJECT: random, random, random
  383. XOBJECT: random, random, random
  384. XOBJECT: random, random, random
  385. XOBJECT: random, random, random
  386. XOBJECT: random, random, random
  387. XOBJECT: random, random, random
  388. X#
  389. XTRAP: random, random
  390. XTRAP: random, random
  391. XTRAP: random, random
  392. XTRAP: random, random
  393. X#
  394. XMONSTER: 'o', "goblin", random, hostile
  395. XMONSTER: 'o', "Uruk-hai", random, hostile
  396. XMONSTER: 'o', "Uruk-hai", random, hostile
  397. XMONSTER: 'o', "Uruk-hai", random, hostile
  398. XMONSTER: 'o', random, random, hostile
  399. XMONSTER: 'O', "ogre", random, hostile
  400. XMONSTER: 'O', "ogre", random, hostile
  401. END_OF_FILE
  402. if test 12738 -ne `wc -c <'dat/Elf.des'`; then
  403.     echo shar: \"'dat/Elf.des'\" unpacked with wrong size!
  404. fi
  405. # end of 'dat/Elf.des'
  406. fi
  407. if test -f 'src/makemon.c' -a "${1}" != "-c" ; then 
  408.   echo shar: Will not clobber existing file \"'src/makemon.c'\"
  409. else
  410. echo shar: Extracting \"'src/makemon.c'\" \(40817 characters\)
  411. sed "s/^X//" >'src/makemon.c' <<'END_OF_FILE'
  412. X/*    SCCS Id: @(#)makemon.c    3.1    92/11/01    */
  413. X/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  414. X/* NetHack may be freely redistributed.  See license for details. */
  415. X
  416. X#include "hack.h"
  417. X#include "epri.h"
  418. X#include "emin.h"
  419. X#ifdef REINCARNATION
  420. X# include <ctype.h>
  421. X#endif
  422. X
  423. XSTATIC_VAR struct monst NEARDATA zeromonst;
  424. X
  425. X#define uncommon(ptr) \
  426. X    (((ptr)->geno & (G_GENOD | G_EXTINCT | G_NOGEN | G_UNIQ)) || \
  427. X     (!Inhell ? ((ptr)->geno & G_HELL) : ((ptr)->maligntyp > A_NEUTRAL)))
  428. X
  429. X#ifdef OVL0
  430. Xstatic boolean NDECL(cmavail);
  431. Xstatic int FDECL(align_shift, (struct permonst *));
  432. X#endif /* OVL0 */
  433. XSTATIC_DCL boolean FDECL(is_home_elemental,(struct permonst *));
  434. XSTATIC_DCL boolean FDECL(wrong_elem_type, (struct permonst *));
  435. XSTATIC_DCL void FDECL(m_initgrp,(struct monst *,int,int,int));
  436. XSTATIC_DCL void FDECL(m_initthrow,(struct monst *,int,int));
  437. XSTATIC_DCL void FDECL(m_initweap,(struct monst *));
  438. X#ifdef OVL1
  439. Xstatic void FDECL(m_initinv,(struct monst *));
  440. X#endif /* OVL1 */
  441. X
  442. Xextern int monstr[];
  443. X
  444. X#define m_initsgrp(mtmp, x, y)    m_initgrp(mtmp, x, y, 3)
  445. X#define m_initlgrp(mtmp, x, y)    m_initgrp(mtmp, x, y, 10)
  446. X#define toostrong(monindx, lev) (monstr[monindx] > lev)
  447. X#define tooweak(monindx, lev)    (monstr[monindx] < lev)
  448. X
  449. X#ifdef OVLB
  450. XSTATIC_OVL boolean
  451. Xis_home_elemental(ptr)
  452. Xregister struct permonst *ptr;
  453. X{
  454. X    if (ptr->mlet != S_ELEMENTAL) return FALSE;
  455. X    if (!In_endgame(&u.uz)) return FALSE;
  456. X    switch(monsndx(ptr)) {
  457. X        case PM_AIR_ELEMENTAL: return Is_airlevel(&u.uz);
  458. X        case PM_FIRE_ELEMENTAL: return Is_firelevel(&u.uz);
  459. X        case PM_EARTH_ELEMENTAL: return Is_earthlevel(&u.uz);
  460. X        case PM_WATER_ELEMENTAL: return Is_waterlevel(&u.uz);
  461. X    }
  462. X    return FALSE;    /* shouldn't be reached */
  463. X}
  464. X
  465. X/*
  466. X * Return true if the given monster cannot exist on this elemental level.
  467. X */
  468. XSTATIC_OVL boolean
  469. Xwrong_elem_type(ptr)
  470. X    register struct permonst *ptr;
  471. X{
  472. X    if (Is_earthlevel(&u.uz)) {
  473. X    /* no restrictions? */
  474. X    } else if (Is_waterlevel(&u.uz)) {
  475. X    /* just monsters that can swim */
  476. X    if(!is_swimmer(ptr)) return TRUE;
  477. X    } else if (Is_firelevel(&u.uz)) {
  478. X    if(!resists_fire(ptr)) return TRUE;
  479. X    } else if (Is_airlevel(&u.uz)) {
  480. X    if(!(is_flyer(ptr) && ptr->mlet != S_TRAPPER) && !is_floater(ptr)
  481. X       && !amorphous(ptr) && !noncorporeal(ptr) && !is_whirly(ptr))
  482. X        return TRUE;
  483. X    }
  484. X    return FALSE;
  485. X}
  486. X
  487. XSTATIC_OVL void
  488. Xm_initgrp(mtmp, x, y, n)    /* make a group just like mtmp */
  489. Xregister struct monst *mtmp;
  490. Xregister int x, y, n;
  491. X{
  492. X    coord mm;
  493. X    register int cnt = rnd(n);
  494. X    struct monst *mon;
  495. X
  496. X/*
  497. X *    Temporary kludge to cut down on swarming at lower character levels
  498. X *    till we can get this game a little more balanced. [mrs]
  499. X */
  500. X    cnt /= (u.ulevel < 3) ? 4 : (u.ulevel < 5) ? 2 : 1;
  501. X    if(!cnt) cnt++;
  502. X
  503. X    mm.x = x;
  504. X    mm.y = y;
  505. X    while(cnt--) {
  506. X        if (peace_minded(mtmp->data)) continue;
  507. X        /* Don't create groups of peaceful monsters since they'll get
  508. X         * in our way.  If the monster has a percentage chance so some
  509. X         * are peaceful and some are not, the result will just be a
  510. X         * smaller group.
  511. X         */
  512. X        if (enexto(&mm, mm.x, mm.y, mtmp->data)) {
  513. X            mon = makemon(mtmp->data, mm.x, mm.y);
  514. X            mon->mpeaceful = FALSE;
  515. X            set_malign(mon);
  516. X            /* Undo the second peace_minded() check in makemon(); if the
  517. X             * monster turned out to be peaceful the first time we
  518. X             * didn't create it at all; we don't want a second check.
  519. X             */
  520. X        }
  521. X    }
  522. X}
  523. X
  524. XSTATIC_OVL
  525. Xvoid
  526. Xm_initthrow(mtmp,otyp,oquan)
  527. Xstruct monst *mtmp;
  528. Xint otyp,oquan;
  529. X{
  530. X    register struct obj *otmp;
  531. X
  532. X    otmp = mksobj(otyp, TRUE, FALSE);
  533. X    otmp->quan = (long) rn1(oquan, 3);
  534. X    otmp->owt = weight(otmp);
  535. X    if (otyp == ORCISH_ARROW) otmp->opoisoned = TRUE;
  536. X    mpickobj(mtmp, otmp);
  537. X}
  538. X
  539. X#endif /* OVLB */
  540. X#ifdef OVL2
  541. X
  542. XSTATIC_OVL void
  543. Xm_initweap(mtmp)
  544. Xregister struct monst *mtmp;
  545. X{
  546. X    register struct permonst *ptr = mtmp->data;
  547. X    register int mm = monsndx(ptr);
  548. X#ifdef REINCARNATION
  549. X    if (Is_rogue_level(&u.uz)) return;
  550. X#endif
  551. X/*
  552. X *    first a few special cases:
  553. X *
  554. X *        giants get a boulder to throw sometimes.
  555. X *        ettins get clubs
  556. X *        kobolds get darts to throw
  557. X *        centaurs get some sort of bow & arrows or bolts
  558. X *        soldiers get all sorts of things.
  559. X *        kops get clubs & cream pies.
  560. X */
  561. X    switch (mtmp->data->mlet) {
  562. X        case S_GIANT:
  563. X        if (rn2(2)) (void)mongets(mtmp, (ptr != &mons[PM_ETTIN]) ?
  564. X                    BOULDER : CLUB);
  565. X        break;
  566. X        case S_HUMAN:
  567. X        if(is_mercenary(ptr)) {
  568. X            int w1 = 0, w2 = 0;
  569. X            switch (mm) {
  570. X
  571. X            case PM_WATCHMAN:
  572. X#ifdef ARMY
  573. X            case PM_SOLDIER:
  574. X#endif
  575. X              if (!rn2(3)) {
  576. X                  w1 = rn1(BEC_DE_CORBIN - PARTISAN + 1, PARTISAN);
  577. X                  w2 = rn2(2) ? DAGGER : KNIFE;
  578. X              } else w1 = rn2(2) ? SPEAR : SHORT_SWORD;
  579. X              break;
  580. X#ifdef ARMY
  581. X            case PM_SERGEANT:
  582. X              w1 = rn2(2) ? FLAIL : MACE;
  583. X              break;
  584. X            case PM_LIEUTENANT:
  585. X              w1 = rn2(2) ? BROADSWORD : LONG_SWORD;
  586. X              break;
  587. X            case PM_CAPTAIN:
  588. X#endif
  589. X            case PM_WATCH_CAPTAIN:
  590. X              w1 = rn2(2) ? LONG_SWORD : SILVER_SABER;
  591. X              break;
  592. X            default:
  593. X              if (!rn2(4)) w1 = DAGGER;
  594. X              if (!rn2(7)) w2 = SPEAR;
  595. X              break;
  596. X            }
  597. X            if (w1) (void)mongets(mtmp, w1);
  598. X            if (!w2 && w1 != DAGGER && !rn2(4)) w2 = KNIFE;
  599. X            if (w2) (void)mongets(mtmp, w2);
  600. X        } else if (is_elf(ptr)) {
  601. X            if (rn2(2))
  602. X            (void) mongets(mtmp,
  603. X                   rn2(2) ? ELVEN_MITHRIL_COAT : ELVEN_CLOAK);
  604. X            if (rn2(2)) (void)mongets(mtmp, ELVEN_LEATHER_HELM);
  605. X            else if (!rn2(4)) (void)mongets(mtmp, ELVEN_BOOTS);
  606. X            if (rn2(2)) (void)mongets(mtmp, ELVEN_DAGGER);
  607. X            switch (rn2(3)) {
  608. X            case 0:
  609. X                if (!rn2(4)) (void)mongets(mtmp, ELVEN_SHIELD);
  610. X                if (rn2(3)) (void)mongets(mtmp, ELVEN_SHORT_SWORD);
  611. X                (void)mongets(mtmp, ELVEN_BOW);
  612. X                m_initthrow(mtmp, ELVEN_ARROW, 12);
  613. X                break;
  614. X            case 1:
  615. X                (void)mongets(mtmp, ELVEN_BROADSWORD);
  616. X                if (rn2(2)) (void)mongets(mtmp, ELVEN_SHIELD);
  617. X                break;
  618. X            case 2:
  619. X                if (rn2(2)) {
  620. X                (void)mongets(mtmp, ELVEN_SPEAR);
  621. X                (void)mongets(mtmp, ELVEN_SHIELD);
  622. X                }
  623. X                break;
  624. X            }
  625. X            if(mtmp->data == &mons[PM_ELVENKING])
  626. X            (void)mongets(mtmp, PICK_AXE);
  627. X        }
  628. X        break;
  629. X
  630. X        case S_ANGEL:
  631. X        {
  632. X            int spe2;
  633. X            /* create minion stuff; can't use mongets */
  634. X            struct obj *otmp = mksobj(LONG_SWORD, FALSE, FALSE);
  635. X
  636. X            /* maybe make it special */
  637. X            if(!rn2(20) || is_lord(mtmp->data))
  638. X            otmp = oname(otmp, artiname(
  639. X                rn2(2) ? ART_DEMONBANE : ART_SUNSWORD), 0);
  640. X            bless(otmp);
  641. X            otmp->oerodeproof = TRUE;
  642. X            spe2 = rn2(4);
  643. X            otmp->spe = max(otmp->spe, spe2);
  644. X            mpickobj(mtmp, otmp);
  645. X
  646. X            otmp = mksobj(!rn2(4) || is_lord(mtmp->data) ?
  647. X                  SHIELD_OF_REFLECTION : LARGE_SHIELD,
  648. X                  FALSE, FALSE);
  649. X            otmp->cursed = FALSE;
  650. X            otmp->oerodeproof = TRUE;
  651. X            otmp->spe = 0;
  652. X            mpickobj(mtmp, otmp);
  653. X        }
  654. X        break;
  655. X
  656. X        case S_HUMANOID:
  657. X        if (mm == PM_HOBBIT) {
  658. X            switch (rn2(3)) {
  659. X            case 0:
  660. X                (void)mongets(mtmp, DAGGER);
  661. X                break;
  662. X            case 1:
  663. X                (void)mongets(mtmp, ELVEN_DAGGER);
  664. X                break;
  665. X            case 2:
  666. X                (void)mongets(mtmp, SLING);
  667. X                break;
  668. X              }
  669. X            if (!rn2(10)) (void)mongets(mtmp, ELVEN_MITHRIL_COAT);
  670. X            if (!rn2(10)) (void)mongets(mtmp, DWARVISH_CLOAK);
  671. X        } else if (is_dwarf(ptr)) {
  672. X            if (rn2(7)) (void)mongets(mtmp, DWARVISH_CLOAK);
  673. X            if (rn2(7)) (void)mongets(mtmp, IRON_SHOES);
  674. X            if (!rn2(4)) {
  675. X            (void)mongets(mtmp, DWARVISH_SHORT_SWORD);
  676. X            /* note: you can't use a mattock with a shield */
  677. X            if (rn2(2)) (void)mongets(mtmp, DWARVISH_MATTOCK);
  678. X            else {
  679. X                (void)mongets(mtmp, AXE);
  680. X                (void)mongets(mtmp, DWARVISH_ROUNDSHIELD);
  681. X            }
  682. X            (void)mongets(mtmp, DWARVISH_IRON_HELM);
  683. X            if (!rn2(3))
  684. X                (void)mongets(mtmp, DWARVISH_MITHRIL_COAT);
  685. X            } else {
  686. X            (void)mongets(mtmp, !rn2(3) ? PICK_AXE : DAGGER);
  687. X            }
  688. X        }
  689. X        break;
  690. X# ifdef KOPS
  691. X        case S_KOP:        /* create Keystone Kops with cream pies to
  692. X                 * throw. As suggested by KAA.       [MRS]
  693. X                 */
  694. X        if (!rn2(4)) m_initthrow(mtmp, CREAM_PIE, 2);
  695. X        if (!rn2(3)) (void)mongets(mtmp,(rn2(2)) ? CLUB : RUBBER_HOSE);
  696. X        break;
  697. X# endif
  698. X        case S_ORC:
  699. X        if(rn2(2)) (void)mongets(mtmp, ORCISH_HELM);
  700. X        switch (mm != PM_ORC_CAPTAIN ? mm :
  701. X            rn2(2) ? PM_MORDOR_ORC : PM_URUK_HAI) {
  702. X            case PM_MORDOR_ORC:
  703. X            if(!rn2(3)) (void)mongets(mtmp, SCIMITAR);
  704. X            if(!rn2(3)) (void)mongets(mtmp, ORCISH_SHIELD);
  705. X            if(!rn2(3)) (void)mongets(mtmp, KNIFE);
  706. X            if(!rn2(3)) (void)mongets(mtmp, ORCISH_CHAIN_MAIL);
  707. X            break;
  708. X            case PM_URUK_HAI:
  709. X            if(!rn2(3)) (void)mongets(mtmp, ORCISH_CLOAK);
  710. X            if(!rn2(3)) (void)mongets(mtmp, ORCISH_SHORT_SWORD);
  711. X            if(!rn2(3)) (void)mongets(mtmp, IRON_SHOES);
  712. X            if(!rn2(3)) {
  713. X                (void)mongets(mtmp, ORCISH_BOW);
  714. X                m_initthrow(mtmp, ORCISH_ARROW, 12);
  715. X            }
  716. X            if(!rn2(3)) (void)mongets(mtmp, URUK_HAI_SHIELD);
  717. X            break;
  718. X            default:
  719. X            if (mm != PM_ORC_SHAMAN && rn2(2))
  720. X              (void)mongets(mtmp, (mm == PM_GOBLIN || rn2(2) == 0)
  721. X                           ? ORCISH_DAGGER : SCIMITAR);
  722. X        }
  723. X        break;
  724. X        case S_OGRE:
  725. X        if (!rn2(mm == PM_OGRE_KING ? 3 : mm == PM_OGRE_LORD ? 6 : 12))
  726. X            (void) mongets(mtmp, BATTLE_AXE);
  727. X        break;
  728. X        case S_KOBOLD:
  729. X        if (!rn2(4)) m_initthrow(mtmp, DART, 12);
  730. X        break;
  731. X
  732. X        case S_CENTAUR:
  733. X        if (rn2(2)) {
  734. X            if(ptr == &mons[PM_FOREST_CENTAUR]) {
  735. X            (void)mongets(mtmp, BOW);
  736. X            m_initthrow(mtmp, ARROW, 12);
  737. X            } else {
  738. X            (void)mongets(mtmp, CROSSBOW);
  739. X            m_initthrow(mtmp, CROSSBOW_BOLT, 12);
  740. X            }
  741. X        }
  742. X        break;
  743. X        case S_WRAITH:
  744. X        (void)mongets(mtmp, KNIFE);
  745. X        (void)mongets(mtmp, LONG_SWORD);
  746. X        break;
  747. X        case S_DEMON:
  748. X        switch (mm) {
  749. X            case PM_BALROG:
  750. X            (void)mongets(mtmp, BULLWHIP);
  751. X            (void)mongets(mtmp, BROADSWORD);
  752. X            break;
  753. X            case PM_ORCUS:
  754. X            (void)mongets(mtmp, WAN_DEATH); /* the Wand of Orcus */
  755. X            break;
  756. X            case PM_HORNED_DEVIL:
  757. X            (void)mongets(mtmp, rn2(4) ? TRIDENT : BULLWHIP);
  758. X            break;
  759. X            case PM_ICE_DEVIL:
  760. X            if (!rn2(4)) (void)mongets(mtmp, SPEAR);
  761. X            break;
  762. X            case PM_ASMODEUS:
  763. X            (void)mongets(mtmp, WAN_COLD);
  764. X            break;
  765. X            case PM_DISPATER:
  766. X            (void)mongets(mtmp, WAN_STRIKING);
  767. X            break;
  768. X            case PM_YEENOGHU:
  769. X            (void)mongets(mtmp, FLAIL);
  770. X            break;
  771. X        }
  772. X        /* prevent djinnis and mail daemons from leaving objects when
  773. X         * they vanish
  774. X         */
  775. X        if (!is_demon(ptr)) break;
  776. X        /* fall thru */
  777. X/*
  778. X *    Now the general case, ~40% chance of getting some type
  779. X *    of weapon. TODO: Add more weapons types (use bigmonst());
  780. X */
  781. X        default:
  782. X        switch(rnd(12)) {
  783. X            case 1:
  784. X            m_initthrow(mtmp, DART, 12);
  785. X            break;
  786. X            case 2:
  787. X            (void) mongets(mtmp, CROSSBOW);
  788. X            m_initthrow(mtmp, CROSSBOW_BOLT, 12);
  789. X            break;
  790. X            case 3:
  791. X            (void) mongets(mtmp, BOW);
  792. X            m_initthrow(mtmp, ARROW, 12);
  793. X            break;
  794. X            case 4:
  795. X            m_initthrow(mtmp, DAGGER, 3);
  796. X            break;
  797. X            case 5:
  798. X            (void) mongets(mtmp, AKLYS);
  799. X            break;
  800. X            default:
  801. X            break;
  802. X        }
  803. X        break;
  804. X    }
  805. X#ifdef MUSE
  806. X    if ((int) mtmp->m_lev > rn2(70))
  807. X        (void) mongets(mtmp, rnd_offensive_item(mtmp));
  808. X#endif
  809. X}
  810. X
  811. X#endif /* OVL2 */
  812. X#ifdef OVL1
  813. X
  814. Xstatic void
  815. Xm_initinv(mtmp)
  816. Xregister struct    monst    *mtmp;
  817. X{
  818. X    register int cnt;
  819. X    register struct obj *otmp;
  820. X    register struct permonst *ptr = mtmp->data;
  821. X#ifdef REINCARNATION
  822. X    if (Is_rogue_level(&u.uz)) return;
  823. X#endif
  824. X/*
  825. X *    Soldiers get armour & rations - armour approximates their ac.
  826. X *    Nymphs may get mirror or potion of object detection.
  827. X */
  828. X    switch(ptr->mlet) {
  829. X
  830. X        case S_HUMAN:
  831. X        if(is_mercenary(ptr)) {
  832. X            register int mac;
  833. X#ifdef MUSE
  834. X            switch(monsndx(ptr)) {
  835. X            case PM_GUARD: mac = -1; break;
  836. X# ifdef ARMY
  837. X            case PM_SOLDIER: mac = 3; break;
  838. X            case PM_SERGEANT: mac = 0; break;
  839. X            case PM_LIEUTENANT: mac = -2; break;
  840. X            case PM_CAPTAIN: mac = -3; break;
  841. X# endif
  842. X            case PM_WATCHMAN: mac = 3; break;
  843. X            case PM_WATCH_CAPTAIN: mac = -2; break;
  844. X            default: impossible("odd mercenary %d?", monsndx(ptr));
  845. X                mac = 0;
  846. X                break;
  847. X            }
  848. X#else
  849. X            mac = ptr->ac;
  850. X#endif
  851. X
  852. X            if (mac < -1 && rn2(5))
  853. X            mac += 7 + mongets(mtmp, (rn2(5)) ?
  854. X                       PLATE_MAIL : CRYSTAL_PLATE_MAIL);
  855. X            else if (mac < 3 && rn2(5))
  856. X            mac += 6 + mongets(mtmp, (rn2(3)) ?
  857. X                       SPLINT_MAIL : BANDED_MAIL);
  858. X            else if (rn2(5))
  859. X            mac += 3 + mongets(mtmp, (rn2(3)) ?
  860. X                       RING_MAIL : STUDDED_LEATHER_ARMOR);
  861. X            else
  862. X            mac += 2 + mongets(mtmp, LEATHER_ARMOR);
  863. X
  864. X            if (mac < 10 && rn2(3))
  865. X            mac += 1 + mongets(mtmp, HELMET);
  866. X            else if (mac < 10 && rn2(2))
  867. X            mac += 1 + mongets(mtmp, DENTED_POT);
  868. X            if (mac < 10 && rn2(3))
  869. X            mac += 1 + mongets(mtmp, SMALL_SHIELD);
  870. X            else if (mac < 10 && rn2(2))
  871. X            mac += 2 + mongets(mtmp, LARGE_SHIELD);
  872. X            if (mac < 10 && rn2(3))
  873. X            mac += 1 + mongets(mtmp, LOW_BOOTS);
  874. X            else if (mac < 10 && rn2(2))
  875. X            mac += 2 + mongets(mtmp, HIGH_BOOTS);
  876. X            if (mac < 10 && rn2(3))
  877. X            mac += 1 + mongets(mtmp, LEATHER_GLOVES);
  878. X            else if (mac < 10 && rn2(2))
  879. X            mac += 1 + mongets(mtmp, ELVEN_CLOAK);
  880. X
  881. X#ifndef MUSE
  882. X            if (mac != 10 && rn2(5)) {    /* make up the difference */
  883. X            otmp = mksobj(RIN_PROTECTION, FALSE, FALSE);
  884. X            otmp->spe = (10 - mac + rn2(3) - rn2(3));
  885. X            if(otmp->spe < 0) curse(otmp);
  886. X            mpickobj(mtmp, otmp);
  887. X            }
  888. X#endif
  889. X#ifdef ARMY
  890. X            if(ptr != &mons[PM_GUARD] &&
  891. X            ptr != &mons[PM_WATCHMAN] &&
  892. X            ptr != &mons[PM_WATCH_CAPTAIN]) {
  893. X            if (!rn2(3)) (void) mongets(mtmp, K_RATION);
  894. X            if (!rn2(2)) (void) mongets(mtmp, C_RATION);
  895. X# ifdef MUSE
  896. X            if (ptr != &mons[PM_SOLDIER] && !rn2(3))
  897. X                (void) mongets(mtmp, BUGLE);
  898. X# endif
  899. X            } else
  900. X#endif
  901. X               if (ptr == &mons[PM_WATCHMAN] && rn2(3))
  902. X                (void) mongets(mtmp, TIN_WHISTLE);
  903. X        } else if (ptr == &mons[PM_SHOPKEEPER]) {
  904. X            (void) mongets(mtmp,SKELETON_KEY);
  905. X        }
  906. X        break;
  907. X
  908. X        case S_NYMPH:
  909. X        if(!rn2(2)) (void) mongets(mtmp, MIRROR);
  910. X        if(!rn2(2)) (void) mongets(mtmp, POT_OBJECT_DETECTION);
  911. X        break;
  912. X
  913. X        case S_GIANT:
  914. X        if (ptr == &mons[PM_MINOTAUR])
  915. X            (void) mongets(mtmp, WAN_DIGGING);
  916. X        else if (is_giant(ptr)) {
  917. X            for(cnt = rn2((int)(mtmp->m_lev / 2)); cnt; cnt--) {
  918. X                otmp = mksobj(rnd_class(DILITHIUM_CRYSTAL,LUCKSTONE-1),FALSE,FALSE);
  919. X                otmp->quan = (long) rn1(2, 3);
  920. X                otmp->owt = weight(otmp);
  921. X                mpickobj(mtmp, otmp);
  922. X            }
  923. X        }
  924. X        break;
  925. X        case S_WRAITH:
  926. X        if (ptr == &mons[PM_NAZGUL]) {
  927. X            otmp = mksobj(RIN_INVISIBILITY, FALSE, FALSE);
  928. X            curse(otmp);
  929. X            mpickobj(mtmp, otmp);
  930. X        }
  931. X        break;
  932. X        case S_QUANTMECH:
  933. X        if (!rn2(20)) {
  934. X            struct obj *cat;
  935. X
  936. X            otmp = mksobj(LARGE_BOX, FALSE, FALSE);
  937. X    /* actually, whether this is a corpse or a live cat shouldn't
  938. X       really be decided until the box is opened... */
  939. X            cat = mksobj(CORPSE, FALSE, FALSE);
  940. X            cat->corpsenm = PM_HOUSECAT;
  941. X            cat->owt = weight(cat);
  942. X            cat = oname(cat, "Schroedinger's Cat", FALSE);
  943. X            cat->nobj = otmp->cobj;
  944. X            otmp->cobj = cat;
  945. X            otmp->owt = weight(otmp);
  946. X            mpickobj(mtmp, otmp);
  947. X        }
  948. X        break;
  949. X        case S_LEPRECHAUN:
  950. X        mtmp->mgold = (long) d(level_difficulty(), 30);
  951. X        break;
  952. X        default:
  953. X        break;
  954. X    }
  955. X
  956. X#ifdef ARMY    /* ordinary soldiers rarely have access to magic (or gold :-) */
  957. X    if (ptr == &mons[PM_SOLDIER] && rn2(13)) return;
  958. X#endif
  959. X#ifdef MUSE
  960. X    if ((int) mtmp->m_lev > rn2(30))
  961. X        (void) mongets(mtmp, rnd_defensive_item(mtmp));
  962. X    if ((int) mtmp->m_lev > rn2(100))
  963. X        (void) mongets(mtmp, rnd_misc_item(mtmp));
  964. X#endif
  965. X    if (likes_gold(ptr) && !mtmp->mgold && !rn2(5))
  966. X        mtmp->mgold =
  967. X              (long) d(level_difficulty(), mtmp->minvent ? 5 : 10);
  968. X}
  969. X
  970. X/*
  971. X * called with [x,y] = coordinates;
  972. X *    [0,0] means anyplace
  973. X *    [u.ux,u.uy] means: near player (if !in_mklev)
  974. X *
  975. X *    In case we make a monster group, only return the one at [x,y].
  976. X */
  977. Xstruct monst *
  978. Xmakemon(ptr, x, y)
  979. Xregister struct permonst *ptr;
  980. Xregister int    x, y;
  981. X{
  982. X    register struct monst *mtmp;
  983. X    register int    ct;
  984. X    boolean anything = (!ptr);
  985. X    boolean byyou = (x == u.ux && y == u.uy);
  986. X
  987. X    /* if caller wants random location, do it here */
  988. X    if(x == 0 && y == 0) {
  989. X        int tryct = 0;    /* careful with bigrooms */
  990. X        do {
  991. X            x = rn1(COLNO-3,2);
  992. X            y = rn2(ROWNO);
  993. X        } while(!goodpos(x, y, (struct monst *)0, ptr) ||
  994. X            (!in_mklev && tryct++ < 50 && cansee(x, y)));
  995. X    } else if (byyou && !in_mklev) {
  996. X        coord bypos;
  997. X
  998. X        if(enexto(&bypos, u.ux, u.uy, ptr)) {
  999. X            x = bypos.x;
  1000. X            y = bypos.y;
  1001. X        } else
  1002. X            return((struct monst *)0);
  1003. X    }
  1004. X
  1005. X    /* if a monster already exists at the position, return */
  1006. X    if(MON_AT(x, y))
  1007. X        return((struct monst *) 0);
  1008. X
  1009. X    if(ptr){
  1010. X        /* if you are to make a specific monster and it has
  1011. X           already been genocided, return */
  1012. X        if(ptr->geno & G_GENOD) return((struct monst *) 0);
  1013. X    } else {
  1014. X        /* make a random (common) monster that can survive here.
  1015. X         * (the special levels ask for random monsters at specific
  1016. X         * positions, causing mass drowning on the medusa level,
  1017. X         * for instance.)
  1018. X         */
  1019. X        int tryct = 0;    /* maybe there are no good choices */
  1020. X        do {
  1021. X            if(!(ptr = rndmonst())) {
  1022. X#ifdef DEBUG
  1023. X                pline("Warning: no monster.");
  1024. X#endif
  1025. X                return((struct monst *) 0);    /* no more monsters! */
  1026. X            }
  1027. X        } while(!goodpos(x, y, (struct monst *)0, ptr) && tryct++ < 50);
  1028. X    }
  1029. X    /* if it's unique, don't ever make it again */
  1030. X    if (ptr->geno & G_UNIQ) ptr->geno |= G_EXTINCT;
  1031. X
  1032. X    mtmp = newmonst(ptr->pxlth);
  1033. X    *mtmp = zeromonst;        /* clear all entries in structure */
  1034. X    for(ct = 0; ct < ptr->pxlth; ct++)
  1035. X        ((char *) &(mtmp->mextra[0]))[ct] = 0;
  1036. X    mtmp->nmon = fmon;
  1037. X    fmon = mtmp;
  1038. X    mtmp->m_id = flags.ident++;
  1039. X    mtmp->data = ptr;
  1040. X    mtmp->mxlth = ptr->pxlth;
  1041. X
  1042. X    mtmp->m_lev = adj_lev(ptr);
  1043. X    if (is_golem(ptr))
  1044. X        mtmp->mhpmax = mtmp->mhp = golemhp(monsndx(ptr));
  1045. X    else if (is_rider(ptr)) {
  1046. X        /* We want low HP, but a high mlevel so they can attack well */
  1047. X        mtmp->mhpmax = mtmp->mhp = d(10,8);
  1048. X    } else if(ptr->mlevel > 49) {
  1049. X        /* "special" fixed hp monster
  1050. X         * the hit points are encoded in the mlevel in a somewhat strange
  1051. X         * way to fit in the 50..127 positive range of a signed character
  1052. X         * above the 1..49 that indicate "normal" monster levels */
  1053. X        mtmp->mhpmax = mtmp->mhp = 2*(ptr->mlevel - 6);
  1054. X        mtmp->m_lev = mtmp->mhp / 4;    /* approximation */
  1055. X    } else if((ptr->mlet == S_DRAGON) && (ptr >= &mons[PM_GRAY_DRAGON]))
  1056. X        mtmp->mhpmax = mtmp->mhp = mtmp->m_lev*8;
  1057. X    else if(!mtmp->m_lev) mtmp->mhpmax = mtmp->mhp = rnd(4);
  1058. X    else if(is_home_elemental(ptr))
  1059. X        mtmp->mhpmax = mtmp->mhp = 3 * d((int)mtmp->m_lev, 8);
  1060. X    else mtmp->mhpmax = mtmp->mhp = d((int)mtmp->m_lev, 8);
  1061. X
  1062. X    if (is_female(ptr)) mtmp->female = TRUE;
  1063. X    else if (is_male(ptr)) mtmp->female = FALSE;
  1064. X    else mtmp->female = rn2(2);    /* ignored for neuters */
  1065. X
  1066. X    place_monster(mtmp, x, y);
  1067. X    mtmp->mcansee = mtmp->mcanmove = TRUE;
  1068. X    mtmp->mpeaceful = peace_minded(ptr);
  1069. X
  1070. X    switch(ptr->mlet) {
  1071. X        case S_MIMIC:
  1072. X            set_mimic_sym(mtmp);
  1073. X            break;
  1074. X        case S_SPIDER:
  1075. X        case S_SNAKE:
  1076. X            if(in_mklev)
  1077. X                if(x && y)
  1078. X                (void) mkobj_at(0, x, y, TRUE);
  1079. X            if(hides_under(ptr) && OBJ_AT(x, y))
  1080. X                mtmp->mundetected = TRUE;
  1081. X            break;
  1082. X        case S_STALKER:
  1083. X        case S_EEL:
  1084. X            mtmp->minvis = TRUE;
  1085. X            break;
  1086. X        case S_LEPRECHAUN:
  1087. X            mtmp->msleep = TRUE;
  1088. X            break;
  1089. X        case S_JABBERWOCK:
  1090. X        case S_NYMPH:
  1091. X            if(rn2(5) && !u.uhave.amulet) mtmp->msleep = TRUE;
  1092. X            break;
  1093. X        case S_ORC:
  1094. X            if(pl_character[0] == 'E') mtmp->mpeaceful = FALSE;
  1095. X            break;
  1096. X        case S_UNICORN:
  1097. X            if (sgn(u.ualign.type) == sgn(ptr->maligntyp))
  1098. X                mtmp->mpeaceful = TRUE;
  1099. X            break;
  1100. X    }
  1101. X    if (ptr == &mons[PM_CHAMELEON]) {
  1102. X        /* If you're protected with a ring, don't create
  1103. X         * any shape-changing chameleons -dgk
  1104. X         */
  1105. X        if (Protection_from_shape_changers)
  1106. X            mtmp->cham = FALSE;
  1107. X        else {
  1108. X            mtmp->cham = TRUE;
  1109. X            (void) newcham(mtmp, rndmonst());
  1110. X        }
  1111. X    } else if (ptr == &mons[PM_WIZARD_OF_YENDOR]) {
  1112. X        mtmp->iswiz = TRUE;
  1113. X        flags.no_of_wizards++;
  1114. X    } else if (ptr == &mons[PM_VLAD_THE_IMPALER])
  1115. X        (void) mongets(mtmp, CANDELABRUM_OF_INVOCATION);
  1116. X#ifdef MULDGN
  1117. X    else if (ptr->msound == MS_NEMESIS)
  1118. X        (void) mongets(mtmp, BELL_OF_OPENING);
  1119. X#else
  1120. X    else if (ptr == &mons[PM_MEDUSA])
  1121. X        (void) mongets(mtmp, BELL_OF_OPENING);
  1122. X#endif
  1123. X
  1124. X    if(in_mklev) {
  1125. X        if(((is_ndemon(ptr)) ||
  1126. X            (ptr == &mons[PM_WUMPUS]) ||
  1127. X            (ptr == &mons[PM_LONG_WORM]) ||
  1128. X            (ptr == &mons[PM_GIANT_EEL])) && !u.uhave.amulet && rn2(5))
  1129. X            mtmp->msleep = TRUE;
  1130. X    } else {
  1131. X        if(byyou) {
  1132. X            newsym(mtmp->mx,mtmp->my);
  1133. X            set_apparxy(mtmp);
  1134. X        }
  1135. X    }
  1136. X    if(is_dprince(ptr)) {
  1137. X        mtmp->mpeaceful = mtmp->minvis = TRUE;
  1138. X        if (uwep && uwep->oartifact == ART_EXCALIBUR)
  1139. X        mtmp->mpeaceful = mtmp->mtame = FALSE;
  1140. X    }
  1141. X    if ( (ptr == &mons[PM_LONG_WORM]) && (mtmp->wormno = get_wormno()) ) {
  1142. X        /* we can now create worms with tails - 11/91 */
  1143. X        initworm(mtmp, rn2(5));
  1144. X        if (count_wsegs(mtmp)) place_worm_tail_randomly(mtmp, x, y);
  1145. X    }
  1146. X    set_malign(mtmp);        /* having finished peaceful changes */
  1147. X    if(anything) {
  1148. X        if((ptr->geno & G_SGROUP) && rn2(2))
  1149. X        m_initsgrp(mtmp, mtmp->mx, mtmp->my);
  1150. X        else if(ptr->geno & G_LGROUP) {
  1151. X            if(rn2(3))  m_initlgrp(mtmp, mtmp->mx, mtmp->my);
  1152. X            else        m_initsgrp(mtmp, mtmp->mx, mtmp->my);
  1153. X        }
  1154. X    }
  1155. X
  1156. X    if(is_armed(ptr))
  1157. X        m_initweap(mtmp);    /* equip with weapons / armor */
  1158. X    m_initinv(mtmp);    /* add on a few special items incl. more armor */
  1159. X#ifdef MUSE
  1160. X    m_dowear(mtmp, TRUE);
  1161. X#endif
  1162. X
  1163. X    if (!in_mklev)
  1164. X        newsym(mtmp->mx,mtmp->my);    /* make sure the mon shows up */
  1165. X
  1166. X    return(mtmp);
  1167. X}
  1168. X
  1169. Xboolean
  1170. Xenexto(cc, xx, yy, mdat)
  1171. Xcoord *cc;
  1172. Xregister xchar xx, yy;
  1173. Xstruct permonst *mdat;
  1174. X{
  1175. X    register xchar x,y;
  1176. X    coord foo[15], *tfoo;
  1177. X    int range, i;
  1178. X    int xmin, xmax, ymin, ymax;
  1179. X
  1180. X    tfoo = foo;
  1181. X    range = 1;
  1182. X    do {    /* full kludge action. */
  1183. X        xmin = max(1, xx-range);
  1184. X        xmax = min(COLNO-1, xx+range);
  1185. X        ymin = max(0, yy-range);
  1186. X        ymax = min(ROWNO-1, yy+range);
  1187. X
  1188. X        for(x = xmin; x <= xmax; x++)
  1189. X            if(goodpos(x, ymin, (struct monst *)0, mdat)) {
  1190. X                tfoo->x = x;
  1191. X#ifdef MAC_MPW32
  1192. X                ( tfoo ) -> y = ymin ;
  1193. X                tfoo ++ ;
  1194. X#else
  1195. X                (tfoo++)->y = ymin;
  1196. X#endif
  1197. X                if(tfoo == &foo[15]) goto foofull;
  1198. X            }
  1199. X        for(x = xmin; x <= xmax; x++)
  1200. X            if(goodpos(x, ymax, (struct monst *)0, mdat)) {
  1201. X                tfoo->x = x;
  1202. X#ifdef MAC_MPW32
  1203. X                ( tfoo ) -> y = ymax ;
  1204. X                tfoo ++ ;
  1205. X#else
  1206. X                (tfoo++)->y = ymax;
  1207. X#endif
  1208. X                if(tfoo == &foo[15]) goto foofull;
  1209. X            }
  1210. X        for(y = ymin+1; y < ymax; y++)
  1211. X            if(goodpos(xmin, y, (struct monst *)0, mdat)) {
  1212. X                tfoo->x = xmin;
  1213. X#ifdef MAC_MPW32
  1214. X                ( tfoo ) -> y = y ;
  1215. X                tfoo ++ ;
  1216. X#else
  1217. X                (tfoo++)->y = y;
  1218. X#endif
  1219. X                if(tfoo == &foo[15]) goto foofull;
  1220. X            }
  1221. X        for(y = ymin+1; y < ymax; y++)
  1222. X            if(goodpos(xmax, y, (struct monst *)0, mdat)) {
  1223. X                tfoo->x = xmax;
  1224. X#ifdef MAC_MPW32
  1225. X                ( tfoo ) -> y = y ;
  1226. X                tfoo ++ ;
  1227. X#else
  1228. X                (tfoo++)->y = y;
  1229. X#endif
  1230. X                if(tfoo == &foo[15]) goto foofull;
  1231. X            }
  1232. X        range++;
  1233. X        if(range > ROWNO && range > COLNO) return FALSE;
  1234. X    } while(tfoo == foo);
  1235. Xfoofull:
  1236. X    i = rn2((int)(tfoo - foo));
  1237. X    cc->x = foo[i].x;
  1238. X    cc->y = foo[i].y;
  1239. X    return TRUE;
  1240. X}
  1241. X
  1242. Xint
  1243. Xgoodpos(x, y, mtmp, mdat)
  1244. Xint x,y;
  1245. Xstruct monst *mtmp;    /* existing monster being moved, if any */
  1246. Xstruct permonst *mdat;
  1247. X{
  1248. X    struct monst *mtmp2;
  1249. X
  1250. X    if (x < 1 || x > COLNO-2 || y < 1 || y > ROWNO-2 || MON_AT(x, y))
  1251. X        return 0;
  1252. X
  1253. X    /* in many cases, we're trying to create a new monster, which
  1254. X     * can't go on top of the player or any existing monster.
  1255. X     * however, occasionally we are relocating engravings or objects,
  1256. X     * which could be colocated and thus get restricted a bit too much.
  1257. X     * oh well.
  1258. X     */
  1259. X    if (x == u.ux && y == u.uy) return 0;
  1260. X    if ((mtmp2 = m_at(x, y)) && mtmp != mtmp2) return 0;
  1261. X
  1262. X    if (mdat) {
  1263. X        if (IS_POOL(levl[x][y].typ))
  1264. X        if (mdat == &playermon &&
  1265. X            (HLevitation || Wwalking || Magical_breathing))
  1266. X            return 1;
  1267. X        else    return (is_flyer(mdat) || is_swimmer(mdat));
  1268. X        if (levl[x][y].typ == LAVAPOOL)
  1269. X        if (mdat == &playermon && (HLevitation))
  1270. X            return 1;
  1271. X        else return
  1272. X            (is_flyer(mdat) || (mdat == &mons[PM_FIRE_ELEMENTAL]));
  1273. X        if (passes_walls(mdat)) return 1;
  1274. X    }
  1275. X    if (!ACCESSIBLE(levl[x][y].typ)) return 0;
  1276. X    if (closed_door(x, y) && (!mdat || !amorphous(mdat)))
  1277. X        return 0;
  1278. X    if (sobj_at(BOULDER, x, y) && (!mdat || !throws_rocks(mdat)))
  1279. X        return 0;
  1280. X    return 1;
  1281. X}
  1282. X
  1283. X#endif /* OVL1 */
  1284. X#ifdef OVLB
  1285. X
  1286. X/*
  1287. X * rloc_to()
  1288. X *
  1289. X * Pulls a monster from its current position and places a monster at
  1290. X * a new x and y.  If oldx is 0, then the monster was not in the levels.monsters
  1291. X * array.  However, if oldx is 0, oldy may still have a value because mtmp is a
  1292. X * migrating_mon.  Worm tails are always placed randomly around the head of
  1293. X * the worm.
  1294. X */
  1295. X
  1296. Xvoid
  1297. Xrloc_to(mtmp, x, y)
  1298. X    struct monst *mtmp;
  1299. X    register int x, y;
  1300. X{
  1301. X    register int oldx = mtmp->mx, oldy = mtmp->my;
  1302. X
  1303. X    if(x == mtmp->mx && y == mtmp->my) /* that was easy */
  1304. X        return;
  1305. X
  1306. X    if (oldx) {                /* "pick up" monster */
  1307. X        if(mtmp->wormno)
  1308. X        remove_worm(mtmp);
  1309. X        else {
  1310. X        remove_monster(oldx, oldy);
  1311. X        newsym(oldx, oldy);        /* update old location */
  1312. X        }
  1313. X    }
  1314. X
  1315. X    place_monster(mtmp, x, y);        /* put monster down */
  1316. X
  1317. X    if(mtmp->wormno)            /* now put down tail */
  1318. X        place_worm_tail_randomly(mtmp, x, y);
  1319. X
  1320. X    if(u.ustuck == mtmp){
  1321. X        if(u.uswallow) {
  1322. X            u.ux = x;
  1323. X            u.uy = y;
  1324. X            docrt();
  1325. X        } else    u.ustuck = 0;
  1326. X    }
  1327. X
  1328. X    newsym(x, y);                /* update new location */
  1329. X    set_apparxy(mtmp);            /* orient monster */
  1330. X}
  1331. X
  1332. X#endif /* OVLB */
  1333. X#ifdef OVL2
  1334. X
  1335. Xvoid
  1336. Xrloc(mtmp)
  1337. X    struct monst *mtmp;
  1338. X{
  1339. X    register int x = xupstair, y = yupstair, trycount;
  1340. X
  1341. X    /* if the wiz teleports away to heal, try the up staircase,
  1342. X       to block the player's escaping before he's healed */
  1343. X    if (!mtmp->iswiz || !goodpos(x, y, mtmp, mtmp->data)) {
  1344. X        trycount = 0;
  1345. X        do {
  1346. X        x = rn1(COLNO-3,2);
  1347. X        y = rn2(ROWNO);
  1348. X        } while(!goodpos(x,y,mtmp,mtmp->data) && ++trycount < 1000);
  1349. X        /* last ditch attempt to find a good place */
  1350. X        if (trycount >= 1000) {
  1351. X        for (x = 2; x < COLNO - 1; x++)
  1352. X            for (y = 0; y < ROWNO; y++)
  1353. X            if (goodpos(x,y,mtmp,mtmp->data))
  1354. X                goto found_atlast;
  1355. X        /* level either full of monsters or somehow faulty */
  1356. X        impossible("rloc(): couldn't relocate monster");
  1357. X        return;
  1358. X        }
  1359. X    }
  1360. Xfound_atlast:;
  1361. X    rloc_to(mtmp, x, y);
  1362. X}
  1363. X
  1364. Xvoid
  1365. Xrloc_shk(mtmp)   /* to be used when teleporting a shopkeeper */
  1366. Xstruct monst *mtmp;
  1367. X{
  1368. X    register int x, y, ox, oy, trycount;
  1369. X
  1370. X    if(!mtmp->isshk) return;
  1371. X    trycount = 0;
  1372. X    do {
  1373. X        x = rn1(COLNO-3,2);
  1374. X        y = rn2(ROWNO);
  1375. X    } while(!goodpos(x,y,mtmp,mtmp->data) && ++trycount < 1000);
  1376. X    /* last ditch attempt to find a good place */
  1377. X    if (trycount >= 1000) {
  1378. X        for (x = 2; x < COLNO - 1; x++)
  1379. X            for (y = 0; y < ROWNO; y++)
  1380. X            if (goodpos(x,y,mtmp,mtmp->data))
  1381. X                goto found_ok;
  1382. X        /* this really shouldn't happen - after all, shopkeeper's
  1383. X           original position should always be available */
  1384. X        impossible("rloc_shk(): couldn't relocate shopkeeper");
  1385. X        return;
  1386. X    }
  1387. Xfound_ok:;
  1388. X    ox = mtmp->mx;
  1389. X    oy = mtmp->my;
  1390. X    rloc_to(mtmp, x, y);
  1391. X    make_angry_shk(mtmp, ox, oy);
  1392. X}
  1393. X
  1394. X#endif /* OVL2 */
  1395. X#ifdef OVLB
  1396. X
  1397. Xvoid
  1398. Xvloc(mtmp)
  1399. Xstruct monst *mtmp;
  1400. X{
  1401. X    register struct mkroom *croom = search_special(VAULT);
  1402. X    coord c;
  1403. X
  1404. X    if(croom && somexy(croom, &c) && goodpos(c.x, c.y, mtmp, mtmp->data)) {
  1405. X        rloc_to(mtmp, c.x, c.y);
  1406. X        return;
  1407. X    }
  1408. X    rloc(mtmp);
  1409. X}
  1410. X
  1411. X#endif /* OVLB */
  1412. X#ifdef OVL0
  1413. X
  1414. Xstatic boolean
  1415. Xcmavail()    /* return TRUE if "common" monsters can be generated */
  1416. X{
  1417. X    struct permonst *ptr;
  1418. X
  1419. X    for(ptr = &mons[0]; ptr != &mons[NUMMONS]; ptr++)
  1420. X       if(!uncommon(ptr))  return TRUE;
  1421. X
  1422. X    return FALSE;
  1423. X}
  1424. X
  1425. X/*
  1426. X *    shift the probability of a monster's generation by
  1427. X *    comparing the dungeon alignment and monster alignment.
  1428. X *    return an integer in the range of 0-5.
  1429. X */
  1430. Xstatic int
  1431. Xalign_shift(ptr)
  1432. Xregister struct permonst *ptr;
  1433. X{
  1434. X    static long NEARDATA oldmoves = 0L;    /* != 1, starting value of moves */
  1435. X    static s_level NEARDATA *lev;
  1436. X    register int alshift;
  1437. X
  1438. X    if(oldmoves != moves) {
  1439. X    lev = Is_special(&u.uz);
  1440. X    oldmoves = moves;
  1441. X    }
  1442. X    switch((lev) ? lev->flags.align : dungeons[u.uz.dnum].flags.align) {
  1443. X    default:    /* just in case */
  1444. X    case AM_NONE:    alshift = 0;
  1445. X            break;
  1446. X    case AM_LAWFUL:    alshift = (ptr->maligntyp+20)/(2*ALIGNWEIGHT);
  1447. X            break;
  1448. X    case AM_NEUTRAL:    alshift = (20 - abs(ptr->maligntyp))/ALIGNWEIGHT;
  1449. X            break;
  1450. X    case AM_CHAOTIC:    alshift = (-(ptr->maligntyp-20))/(2*ALIGNWEIGHT);
  1451. X            break;
  1452. X    }
  1453. X    return alshift;
  1454. X}
  1455. X
  1456. Xstruct    permonst *
  1457. Xrndmonst()        /* select a random monster */
  1458. X{
  1459. X    register struct permonst *ptr;
  1460. X    register int i, ct;
  1461. X    register int zlevel;
  1462. X    static int NEARDATA minmlev, NEARDATA maxmlev, NEARDATA accept;
  1463. X    static long NEARDATA oldmoves = 0L;    /* != 1, starting value of moves */
  1464. X#ifdef REINCARNATION
  1465. X    static boolean NEARDATA upper;
  1466. X#endif
  1467. X    static boolean NEARDATA elemlevel;
  1468. X
  1469. X#ifdef MULDGN
  1470. X    if(u.uz.dnum == quest_dnum && (ptr = qt_montype())) return(ptr);
  1471. X#endif
  1472. X    if(oldmoves != moves) {        /* must recalculate accept */
  1473. X        oldmoves = moves;
  1474. X        zlevel = level_difficulty();
  1475. X        if(!cmavail()) {
  1476. X#ifdef DEBUG
  1477. X        pline("cmavail() fails!");
  1478. X#endif
  1479. X        return((struct permonst *) 0);
  1480. X        }
  1481. X
  1482. X        /* determine the level of the weakest monster to make. */
  1483. X        minmlev = zlevel/6;
  1484. X        /* determine the level of the strongest monster to make. */
  1485. X        maxmlev = (zlevel + u.ulevel)>>1;
  1486. X#ifdef REINCARNATION
  1487. X        upper = Is_rogue_level(&u.uz);
  1488. X#endif
  1489. X        elemlevel = In_endgame(&u.uz) && !Is_astralevel(&u.uz);
  1490. X/*
  1491. X *    Find out how many monsters exist in the range we have selected.
  1492. X */
  1493. X        accept = 0;
  1494. X        for(ct = 0, ptr = &mons[0] ; ptr != &mons[NUMMONS]; ct++, ptr++) {
  1495. X        if(tooweak(ct, minmlev) || toostrong(ct, maxmlev))
  1496. X            continue;
  1497. X#ifdef REINCARNATION
  1498. X        if(upper && !isupper(def_monsyms[ptr->mlet])) continue;
  1499. X#endif
  1500. X        if(elemlevel && wrong_elem_type(ptr)) continue;
  1501. X        if(uncommon(ptr)) continue;
  1502. X        accept += (ptr->geno & G_FREQ);
  1503. X        accept += align_shift(ptr);
  1504. X        }
  1505. X    }
  1506. X
  1507. X    if(!accept) {
  1508. X#ifdef DEBUG
  1509. X        pline("no accept!");
  1510. X#endif
  1511. X        return((struct permonst *) 0);
  1512. X    }
  1513. X/*
  1514. X *    Now, select a monster at random.
  1515. X */
  1516. X    ct = rnd(accept);
  1517. X    for(i = 0,ptr = &mons[0]; ptr != &mons[NUMMONS] && ct > 0; i++,ptr++) {
  1518. X        if(tooweak(i, minmlev) || toostrong(i, maxmlev))
  1519. X            continue;
  1520. X#ifdef REINCARNATION
  1521. X        if(upper & !isupper(def_monsyms[ptr->mlet])) continue;
  1522. X#endif
  1523. X        if(elemlevel && wrong_elem_type(ptr)) continue;
  1524. X        if(uncommon(ptr)) continue;
  1525. X        ct -= (ptr->geno & G_FREQ);
  1526. X        ct -= align_shift(ptr);
  1527. X    }
  1528. X    if(ct > 0) {
  1529. X#ifdef DEBUG
  1530. X        pline("no count!");
  1531. X#endif
  1532. X        return((struct permonst *) 0);
  1533. X    }
  1534. X    return(--ptr);    /* subtract extra increment */
  1535. X}
  1536. X
  1537. X#endif /* OVL0 */
  1538. X#ifdef OVL1
  1539. X
  1540. X/*    The routine below is used to make one of the multiple types
  1541. X *    of a given monster class.  The second parameter specifies a
  1542. X *    special casing bit mask to allow any of the normal genesis
  1543. X *    masks to be deactivated.  Returns 0 if no monsters
  1544. X *    in that class can be made.
  1545. X */
  1546. X
  1547. Xstruct permonst *
  1548. Xmkclass(class,spc)
  1549. Xchar    class;
  1550. Xint    spc;
  1551. X{
  1552. X    register int    first, last, num = 0;
  1553. X    int maxmlev, mask = (G_GENOD | G_EXTINCT | G_NOGEN | G_UNIQ) & ~spc;
  1554. X
  1555. X    maxmlev = level_difficulty() >> 1;
  1556. X    if(class < 1 || class >= MAXMCLASSES) {
  1557. X        impossible("mkclass called with bad class!");
  1558. X        return((struct permonst *) 0);
  1559. X    }
  1560. X/*    Assumption #1:    monsters of a given class are contiguous in the
  1561. X *            mons[] array.
  1562. X */
  1563. X    for(first = 0; first < NUMMONS; first++)
  1564. X        if (mons[first].mlet == class) break;
  1565. X    if (first == NUMMONS) return((struct permonst *) 0);
  1566. X
  1567. X    for(last = first; last < NUMMONS && mons[last].mlet == class; last++)
  1568. X        if(!(mons[last].geno & mask)) {
  1569. X        /* consider it */
  1570. X        if(num && toostrong(last, maxmlev) && rn2(2)) break;
  1571. X        num += mons[last].geno & G_FREQ;
  1572. X        }
  1573. X
  1574. X    if(!num) return((struct permonst *) 0);
  1575. X
  1576. X/*    Assumption #2:    monsters of a given class are presented in ascending
  1577. X *            order of strength.
  1578. X */
  1579. X    for(num = rnd(num); num > 0; first++)
  1580. X        if(!(mons[first].geno & mask)) {
  1581. X        /* skew towards lower value monsters at lower exp. levels */
  1582. X        if(adj_lev(&mons[first]) > (u.ulevel*2)) num--;
  1583. X        num -= mons[first].geno & G_FREQ;
  1584. X        }
  1585. X    first--; /* correct an off-by-one error */
  1586. X
  1587. X    return(&mons[first]);
  1588. X}
  1589. X
  1590. Xint
  1591. Xadj_lev(ptr)    /* adjust strength of monsters based on u.uz and u.ulevel */
  1592. Xregister struct permonst *ptr;
  1593. X{
  1594. X    int    tmp, tmp2;
  1595. X
  1596. X    if((tmp = ptr->mlevel) > 49) return(50); /* "special" demons/devils */
  1597. X    tmp2 = (level_difficulty() - tmp);
  1598. X    if(tmp2 < 0) tmp--;        /* if mlevel > u.uz decrement tmp */
  1599. X    else tmp += (tmp2 / 5);        /* else increment 1 per five diff */
  1600. X
  1601. X    tmp2 = (u.ulevel - ptr->mlevel);    /* adjust vs. the player */
  1602. X    if(tmp2 > 0) tmp += (tmp2 / 4);        /* level as well */
  1603. X
  1604. X    tmp2 = (3 * ((int) ptr->mlevel))/ 2;    /* crude upper limit */
  1605. X    return((tmp > tmp2) ? tmp2 : (tmp > 0 ? tmp : 0)); /* 0 lower limit */
  1606. X}
  1607. X
  1608. X#endif /* OVL1 */
  1609. X#ifdef OVLB
  1610. X
  1611. Xstruct permonst *
  1612. Xgrow_up(mtmp,victim)        /* mon mtmp "grows up" to a bigger version. */
  1613. Xregister struct monst *mtmp;
  1614. Xregister struct monst *victim;
  1615. X{
  1616. X    register int newtype;
  1617. X    register struct permonst *ptr = mtmp->data;
  1618. X
  1619. X    if (ptr->mlevel >= 50 || is_golem(ptr) || is_home_elemental(ptr)
  1620. X        || is_mplayer(ptr))
  1621. X        /* doesn't grow up, has strange hp calculation so might be
  1622. X         * weakened by tests below */
  1623. X        return ptr;
  1624. X
  1625. X    if (victim) {
  1626. X        mtmp->mhpmax = mtmp->mhpmax + (1 + rn2((int)victim->m_lev+1));
  1627. X        if (mtmp->mhpmax <= (8 * (int)mtmp->m_lev)
  1628. X            || (mtmp->m_lev == 0 && mtmp->mhpmax <= 4))
  1629. X        /* not ready to grow up */
  1630. X        return ptr;
  1631. X    }
  1632. X#ifdef MUSE
  1633. X    /* else it's a gain level potion; always go up a level */
  1634. X    else {
  1635. X        int foo=rnd(8);
  1636. X
  1637. X        mtmp->mhp += foo;
  1638. X        mtmp->mhpmax += foo;
  1639. X    }
  1640. X#endif
  1641. X
  1642. X    newtype = little_to_big(monsndx(ptr));
  1643. X    if ((int) (++mtmp->m_lev) >= mons[newtype].mlevel
  1644. X                    && newtype != monsndx(ptr)) {
  1645. X        if (mons[newtype].geno & G_GENOD) { /* allow G_EXTINCT */
  1646. X            pline("As %s grows up into %s, %s dies!",
  1647. X                mon_nam(mtmp),
  1648. X                an(mons[newtype].mname),
  1649. X                mon_nam(mtmp));
  1650. X            mondied(mtmp);
  1651. X            return (struct permonst *)0;
  1652. X        }
  1653. X        mtmp->data = &mons[newtype];
  1654. X        mtmp->m_lev = mons[newtype].mlevel;
  1655. X    }
  1656. X    if (newtype == monsndx(ptr) && victim &&
  1657. X        (int) mtmp->m_lev > (3*(int)mtmp->data->mlevel) / 2)
  1658. X        mtmp->m_lev = (3*(int)mtmp->data->mlevel) / 2;
  1659. X    if (mtmp->m_lev > 0) {
  1660. X        if (mtmp->mhp > (int) mtmp->m_lev * 8)
  1661. X        mtmp->mhp = mtmp->m_lev * 8;
  1662. X        if (mtmp->mhpmax > (int) mtmp->m_lev * 8)
  1663. X        mtmp->mhpmax = mtmp->m_lev * 8;
  1664. X    }
  1665. X    return(mtmp->data);
  1666. X}
  1667. X
  1668. X#endif /* OVLB */
  1669. X#ifdef OVL1
  1670. X
  1671. Xint
  1672. Xmongets(mtmp, otyp)
  1673. Xregister struct monst *mtmp;
  1674. Xregister int otyp;
  1675. X{
  1676. X    register struct obj *otmp;
  1677. X
  1678. X#ifdef MUSE
  1679. X    if (!otyp) return 0;
  1680. X#endif
  1681. X    if((otmp = (otyp) ? mksobj(otyp,TRUE,FALSE) : mkobj((char)otyp,FALSE))) {
  1682. X        if (mtmp->data->mlet == S_DEMON) {
  1683. X        /* demons always get cursed objects */
  1684. X        curse(otmp);
  1685. X        } else if(is_lminion(mtmp->data)) {
  1686. X        /* lawful minions don't get cursed, bad, or rusting objects */
  1687. X        otmp->cursed = FALSE;
  1688. X        if(otmp->spe < 0) otmp->spe = 0;
  1689. X        otmp->oerodeproof = TRUE;
  1690. X        } else if(is_mplayer(mtmp->data) && is_sword(otmp))
  1691. X            otmp->spe = (3 + rn2(4));
  1692. X        if(otmp->otyp == CANDELABRUM_OF_INVOCATION) {
  1693. X        otmp->spe = 0;
  1694. X        otmp->age = 0L;
  1695. X        otmp->lamplit = FALSE;
  1696. X        otmp->blessed = otmp->cursed = FALSE;
  1697. X        }
  1698. X        mpickobj(mtmp, otmp);
  1699. X        return(otmp->spe);
  1700. X    } else return(0);
  1701. X}
  1702. X
  1703. X#endif /* OVL1 */
  1704. X#ifdef OVLB
  1705. X
  1706. Xint
  1707. Xgolemhp(type)
  1708. Xint type;
  1709. X{
  1710. X    switch(type) {
  1711. X        case PM_STRAW_GOLEM: return 20;
  1712. X        case PM_ROPE_GOLEM: return 30;
  1713. X        case PM_LEATHER_GOLEM: return 40;
  1714. X        case PM_WOOD_GOLEM: return 50;
  1715. X        case PM_FLESH_GOLEM: return 40;
  1716. X        case PM_CLAY_GOLEM: return 50;
  1717. X        case PM_STONE_GOLEM: return 60;
  1718. X        case PM_IRON_GOLEM: return 80;
  1719. X        default: return 0;
  1720. X    }
  1721. X}
  1722. X
  1723. X#endif /* OVLB */
  1724. X#ifdef OVL1
  1725. X
  1726. X/*
  1727. X *    Alignment vs. yours determines monster's attitude to you.
  1728. X *    ( some "animal" types are co-aligned, but also hungry )
  1729. X */
  1730. Xboolean
  1731. Xpeace_minded(ptr)
  1732. Xregister struct permonst *ptr;
  1733. X{
  1734. X    aligntyp mal = ptr->maligntyp, ual = u.ualign.type;
  1735. X
  1736. X    if (always_peaceful(ptr)) return TRUE;
  1737. X    if (always_hostile(ptr)) return FALSE;
  1738. X#ifdef MULDGN
  1739. X    if (ptr->msound == MS_LEADER || ptr->msound == MS_GUARDIAN)
  1740. X        return TRUE;
  1741. X    if (ptr->msound == MS_NEMESIS)    return FALSE;
  1742. X#endif
  1743. X
  1744. X    /* the monster is hostile if its alignment is different from the
  1745. X     * player's */
  1746. X    if (sgn(mal) != sgn(ual)) return FALSE;
  1747. X
  1748. X    /* Negative monster hostile to player with Amulet. */
  1749. X    if (mal < A_NEUTRAL && u.uhave.amulet) return FALSE;
  1750. X
  1751. X    /* minions are hostile to players that have strayed at all */
  1752. X    if (is_minion(ptr)) return(u.ualign.record >= 0);
  1753. X
  1754. X    /* Last case:  a chance of a co-aligned monster being
  1755. X     * hostile.  This chance is greater if the player has strayed
  1756. X     * (u.ualign.record negative) or the monster is not strongly aligned.
  1757. X     */
  1758. X    return !!rn2(16 + (u.ualign.record < -15 ? -15 : u.ualign.record)) &&
  1759. X        !!rn2(2 + abs(mal));
  1760. X}
  1761. X
  1762. X/* Set malign to have the proper effect on player alignment if monster is
  1763. X * killed.  Negative numbers mean it's bad to kill this monster; positive
  1764. X * numbers mean it's good.  Since there are more hostile monsters than
  1765. X * peaceful monsters, the penalty for killing a peaceful monster should be
  1766. X * greater than the bonus for killing a hostile monster to maintain balance.
  1767. X * Rules:
  1768. X *   it's bad to kill peaceful monsters, potentially worse to kill always-
  1769. X *    peaceful monsters
  1770. X *   it's never bad to kill a hostile monster, although it may not be good
  1771. X */
  1772. Xvoid
  1773. Xset_malign(mtmp)
  1774. Xstruct monst *mtmp;
  1775. X{
  1776. X    schar mal = mtmp->data->maligntyp;
  1777. X    boolean coaligned;
  1778. X
  1779. X    if (mtmp->ispriest || mtmp->isminion) {
  1780. X        /* some monsters have individual alignments; check them */
  1781. X        if (mtmp->ispriest)
  1782. X            mal = EPRI(mtmp)->shralign;
  1783. X        else if (mtmp->isminion)
  1784. X            mal = EMIN(mtmp)->min_align;
  1785. X        /* unless alignment is none, set mal to -5,0,5 */
  1786. X        /* (see align.h for valid aligntyp values)     */
  1787. X        if(mal != A_NONE)
  1788. X            mal *= 5;
  1789. X    }
  1790. X
  1791. X    coaligned = (sgn(mal) == sgn(u.ualign.type));
  1792. X#ifdef MULDGN
  1793. X    if (mtmp->data->msound == MS_LEADER) {
  1794. X        mtmp->malign = -20;
  1795. X    } else
  1796. X#endif
  1797. X          if (mal == A_NONE) {
  1798. X        if (mtmp->mpeaceful)
  1799. X            mtmp->malign = 0;
  1800. X        else
  1801. X            mtmp->malign = 20;    /* really hostile */
  1802. X    } else if (always_peaceful(mtmp->data)) {
  1803. X        if (mtmp->mpeaceful)
  1804. X            mtmp->malign = -3*max(5,abs(mal));
  1805. X        else
  1806. X            mtmp->malign = 3*max(5,abs(mal)); /* renegade */
  1807. X    } else if (always_hostile(mtmp->data)) {
  1808. X        if (coaligned)
  1809. X            mtmp->malign = 0;
  1810. X        else
  1811. X            mtmp->malign = max(5,abs(mal));
  1812. X    } else if (coaligned) {
  1813. X        if (mtmp->mpeaceful)
  1814. X            mtmp->malign = -3*max(3,abs(mal));
  1815. X        else    /* renegade */
  1816. X            mtmp->malign = max(3,abs(mal));
  1817. X    } else    /* not coaligned and therefore hostile */
  1818. X        mtmp->malign = abs(mal);
  1819. X}
  1820. X
  1821. X#endif /* OVL1 */
  1822. X#ifdef OVLB
  1823. X
  1824. Xstatic char NEARDATA syms[] = {
  1825. X    MAXOCLASSES, MAXOCLASSES+1, RING_CLASS, WAND_CLASS, WEAPON_CLASS,
  1826. X    FOOD_CLASS, GOLD_CLASS, SCROLL_CLASS, POTION_CLASS, ARMOR_CLASS,
  1827. X    AMULET_CLASS, TOOL_CLASS, ROCK_CLASS, GEM_CLASS, SPBOOK_CLASS,
  1828. X    S_MIMIC_DEF, S_MIMIC_DEF, S_MIMIC_DEF,
  1829. X};
  1830. X
  1831. Xvoid
  1832. Xset_mimic_sym(mtmp)        /* KAA, modified by ERS */
  1833. Xregister struct monst *mtmp;
  1834. X{
  1835. X    int typ, roomno, rt;
  1836. X    unsigned appear, ap_type;
  1837. X    int s_sym;
  1838. X    struct obj *otmp;
  1839. X    int mx, my;
  1840. X
  1841. X    if (!mtmp) return;
  1842. X    mx = mtmp->mx; my = mtmp->my;
  1843. X    typ = levl[mx][my].typ;
  1844. X                    /* only valid for INSIDE of room */
  1845. X    roomno = levl[mx][my].roomno - ROOMOFFSET;
  1846. X    if (roomno >= 0)
  1847. X        rt = rooms[roomno].rtype;
  1848. X#ifdef SPECIALIZATION
  1849. X    else if (IS_ROOM(typ))
  1850. X        rt = OROOM,  roomno = 0;
  1851. X#endif
  1852. X    else    rt = 0;    /* roomno < 0 case for GCC_WARN */
  1853. X
  1854. X    if (OBJ_AT(mx, my)) {
  1855. X        ap_type = M_AP_OBJECT;
  1856. X        appear = level.objects[mx][my]->otyp;
  1857. X    } else if (IS_DOOR(typ) || IS_WALL(typ) ||
  1858. X           typ == SDOOR || typ == SCORR) {
  1859. X        ap_type = M_AP_FURNITURE;
  1860. X        /*
  1861. X         *  If there is a wall to the left that connects to this
  1862. X         *  location, then the mimic mimics a horizontal closed door.
  1863. X         *  This does not allow doors to be in corners of rooms.
  1864. X         */
  1865. X        if (mx != 0 &&
  1866. X            (levl[mx-1][my].typ == HWALL    ||
  1867. X             levl[mx-1][my].typ == TLCORNER ||
  1868. X             levl[mx-1][my].typ == TRWALL   ||
  1869. X             levl[mx-1][my].typ == BLCORNER ||
  1870. X             levl[mx-1][my].typ == TDWALL   ||
  1871. X             levl[mx-1][my].typ == CROSSWALL||
  1872. X             levl[mx-1][my].typ == TUWALL    ))
  1873. X            appear = S_hcdoor;
  1874. X        else
  1875. X            appear = S_vcdoor;
  1876. X
  1877. X        if(!mtmp->minvis || See_invisible)
  1878. X            block_point(mx,my);    /* vision */
  1879. X    } else if (level.flags.is_maze_lev && rn2(2)) {
  1880. X        ap_type = M_AP_OBJECT;
  1881. X        appear = STATUE;
  1882. X    } else if (roomno < 0) {
  1883. X        ap_type = M_AP_OBJECT;
  1884. X        appear = BOULDER;
  1885. X        if(!mtmp->minvis || See_invisible)
  1886. X            block_point(mx,my);    /* vision */
  1887. X    } else if (rt == ZOO || rt == VAULT) {
  1888. X        ap_type = M_AP_OBJECT;
  1889. X        appear = GOLD_PIECE;
  1890. X    } else if (rt == DELPHI) {
  1891. X        if (rn2(2)) {
  1892. X            ap_type = M_AP_OBJECT;
  1893. X            appear = STATUE;
  1894. X        } else {
  1895. X            ap_type = M_AP_FURNITURE;
  1896. X            appear = S_fountain;
  1897. X        }
  1898. X    } else if (rt == TEMPLE) {
  1899. X        ap_type = M_AP_FURNITURE;
  1900. X        appear = S_altar;
  1901. X    /*
  1902. X     * We won't bother with beehives, morgues, barracks, throne rooms
  1903. X     * since they shouldn't contain too many mimics anyway...
  1904. X     */
  1905. X    } else if (rt >= SHOPBASE) {
  1906. X        s_sym = get_shop_item(rt - SHOPBASE);
  1907. X        if (s_sym < 0) {
  1908. X            ap_type = M_AP_OBJECT;
  1909. X            appear = -s_sym;
  1910. X        } else {
  1911. X            if (s_sym == RANDOM_CLASS)
  1912. X                s_sym = syms[rn2((int)sizeof(syms)-2) + 2];
  1913. X            goto assign_sym;
  1914. X        }
  1915. X    } else {
  1916. X        s_sym = syms[rn2((int)sizeof(syms))];
  1917. Xassign_sym:
  1918. X        if (s_sym >= MAXOCLASSES) {
  1919. X            ap_type = M_AP_FURNITURE;
  1920. X            appear = s_sym == MAXOCLASSES ? S_upstair : S_dnstair;
  1921. X        } else if (s_sym == GOLD_CLASS) {
  1922. X            ap_type = M_AP_OBJECT;
  1923. X            appear = GOLD_PIECE;
  1924. X        } else {
  1925. X            ap_type = M_AP_OBJECT;
  1926. X            if (s_sym == S_MIMIC_DEF) {
  1927. X                appear = STRANGE_OBJECT;
  1928. X            } else {
  1929. X                otmp = mkobj( (char) s_sym, FALSE );
  1930. X                appear = otmp->otyp;
  1931. X                /* make sure container contents are free'ed */
  1932. X                obfree(otmp, (struct obj *) 0);
  1933. X            }
  1934. X        }
  1935. X    }
  1936. X    mtmp->m_ap_type = ap_type;
  1937. X    mtmp->mappearance = appear;
  1938. X}
  1939. X
  1940. X#endif /* OVLB */
  1941. X
  1942. X/*makemon.c*/
  1943. END_OF_FILE
  1944. if test 40817 -ne `wc -c <'src/makemon.c'`; then
  1945.     echo shar: \"'src/makemon.c'\" unpacked with wrong size!
  1946. fi
  1947. # end of 'src/makemon.c'
  1948. fi
  1949. echo shar: End of archive 31 \(of 108\).
  1950. cp /dev/null ark31isdone
  1951. MISSING=""
  1952. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  1953. 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 \
  1954. 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 \
  1955. 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 \
  1956. 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 \
  1957. 101 102 103 104 105 106 107 108 ; do
  1958.     if test ! -f ark${I}isdone ; then
  1959.     MISSING="${MISSING} ${I}"
  1960.     fi
  1961. done
  1962. if test "${MISSING}" = "" ; then
  1963.     echo You have unpacked all 108 archives.
  1964.     echo "Now execute 'rebuild.sh'"
  1965.     rm -f ark10[0-8]isdone ark[1-9]isdone ark[1-9][0-9]isdone
  1966. else
  1967.     echo You still need to unpack the following archives:
  1968.     echo "        " ${MISSING}
  1969. fi
  1970. ##  End of shell archive.
  1971. exit 0
  1972.