home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / games / volume16 / nethack31 / part21 < prev    next >
Internet Message Format  |  1993-02-01  |  59KB
  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: v16i021:  nethack31 - display oriented dungeons & dragons (Ver. 3.1), Part21/108
  5. Message-ID: <4309@master.CNA.TEK.COM>
  6. Date: 29 Jan 93 20:43:59 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 2094
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1578
  11.  
  12. Submitted-by: izchak@linc.cis.upenn.edu (Izchak Miller)
  13. Posting-number: Volume 16, Issue 21
  14. Archive-name: nethack31/Part21
  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 21 (of 108)."
  27. # Contents:  dat/Healer.des src/mon.c
  28. # Wrapped by billr@saab on Wed Jan 27 16:08:54 1993
  29. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  30. if test -f 'dat/Healer.des' -a "${1}" != "-c" ; then 
  31.   echo shar: Will not clobber existing file \"'dat/Healer.des'\"
  32. else
  33. echo shar: Extracting \"'dat/Healer.des'\" \(11204 characters\)
  34. sed "s/^X//" >'dat/Healer.des' <<'END_OF_FILE'
  35. X#    SCCS Id: @(#)Healer.des    3.1    93/01/23
  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, Hippocrates
  43. X#    and receive your quest assignment.
  44. X#
  45. XMAZE: "H-start",' '
  46. XFLAGS: noteleport,hardfloor
  47. XGEOMETRY:center,center
  48. XMAP
  49. XPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
  50. XPPPP........PPPP.....PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP.P..PPPPP......PPPPPPPP
  51. XPPP..........PPPP...PPPPP.........................PPPP..PPPPP........PPPPPPP
  52. XPP............PPPPPPPP..............................PPP...PPPP......PPPPPPPP
  53. XP.....PPPPPPPPPPPPPPP................................PPPPPPPPPPPPPPPPPPPPPPP
  54. XPPPP....PPPPPPPPPPPP...................................PPPPP.PPPPPPPPPPPPPPP
  55. XPPPP........PPPPP.........-----------------------........PP...PPPPPPP.....PP
  56. XPPP............PPPPP....--|.|......S..........S.|--.....PPPP.PPPPPPP.......P
  57. XPPPP..........PPPPP.....|.S.|......-----------|S|.|......PPPPPP.PPP.......PP
  58. XPPPPPP......PPPPPP......|.|.|......|...|......|.|.|.....PPPPPP...PP.......PP
  59. XPPPPPPPPPPPPPPPPPPP.....+.|.|......S.\.S......|.|.+......PPPPPP.PPPP.......P
  60. XPPP...PPPPP...PPPP......|.|.|......|...|......|.|.|.......PPPPPPPPPPP.....PP
  61. XPP.....PPP.....PPP......|.|S|-----------......|.S.|......PPPPPPPPPPPPPPPPPPP
  62. XPPP..PPPPP...PPPP.......--|.S..........S......|.|--.....PPPPPPPPP....PPPPPPP
  63. XPPPPPPPPPPPPPPPP..........-----------------------..........PPPPP..........PP
  64. XPPPPPPPPPPPPPPPPP........................................PPPPPP............P
  65. XPPP.............PPPP...................................PPP..PPPP..........PP
  66. XPP...............PPPPP................................PPPP...PPPP........PPP
  67. XPPP.............PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP....PPPPPP
  68. XPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
  69. XENDMAP
  70. X# Random Monsters
  71. XRANDOM_MONSTERS: 'r', ';', 'D'
  72. X# Dungeon Description
  73. XREGION:(00,00,75,19),lit,"ordinary"
  74. X# Stairs
  75. XSTAIR:(37,9),down
  76. X# Portal arrival point
  77. XBRANCH:(04,12,04,12),(0,0,0,0)
  78. X# Doors
  79. XDOOR:locked,(24,10)
  80. XDOOR:closed,(26,08)
  81. XDOOR:closed,(27,12)
  82. XDOOR:locked,(28,13)
  83. XDOOR:closed,(35,07)
  84. XDOOR:locked,(35,10)
  85. XDOOR:locked,(39,10)
  86. XDOOR:closed,(39,13)
  87. XDOOR:locked,(46,07)
  88. XDOOR:closed,(47,08)
  89. XDOOR:closed,(48,12)
  90. XDOOR:locked,(50,10)
  91. X# Hippocrates
  92. XMONSTER:'@',"Hippocrates",(37,10)
  93. X# The treasure of Hippocrates
  94. XOBJECT:'(',"chest",(37,10)
  95. X# intern guards for the audience chamber
  96. XMONSTER:'@',"intern",(29,08)
  97. XMONSTER:'@',"intern",(29,09)
  98. XMONSTER:'@',"intern",(29,10)
  99. XMONSTER:'@',"intern",(29,11)
  100. XMONSTER:'@',"intern",(40,09)
  101. XMONSTER:'@',"intern",(40,10)
  102. XMONSTER:'@',"intern",(40,11)
  103. XMONSTER:'@',"intern",(40,13)
  104. X# Non diggable walls
  105. XNON_DIGGABLE:(00,00,75,19)
  106. X# Random traps
  107. XTRAP:random,random
  108. XTRAP:random,random
  109. XTRAP:random,random
  110. XTRAP:random,random
  111. XTRAP:random,random
  112. XTRAP:random,random
  113. X# Monsters on siege duty.
  114. XMONSTER: 'r',"rabid rat",random
  115. XMONSTER: 'r',"rabid rat",random
  116. XMONSTER: 'r',"rabid rat",random
  117. XMONSTER: 'r',"rabid rat",random
  118. XMONSTER: 'r',"rabid rat",random
  119. XMONSTER: 'r',"rabid rat",random
  120. XMONSTER: 'r',"rabid rat",random
  121. XMONSTER: 'r',"rabid rat",random
  122. XMONSTER: 'r',"rabid rat",random
  123. XMONSTER: 'r',"rabid rat",random
  124. XMONSTER: ';',"giant eel",random
  125. XMONSTER: ';', random, random
  126. XMONSTER: 'D',random,random,hostile
  127. XMONSTER: 'D',random,random,hostile
  128. XMONSTER: 'D',random,random,hostile
  129. XMONSTER: 'D',random,random,hostile
  130. XMONSTER: 'D',random,random,hostile
  131. X 
  132. X#
  133. X#    The "locate" level for the quest.
  134. X#
  135. X#    Here you have to find the Temple of Coeus to go
  136. X#    further towards your assigned quest.
  137. X#
  138. X
  139. XMAZE: "H-locate",' '
  140. XFLAGS: hardfloor
  141. X#
  142. XINIT_MAP: '.' , 'P', true , true , lit , false
  143. XGEOMETRY:center,center
  144. XMAP
  145. XPPPPPPPPPPPPP.......PPPPPPPPPPP
  146. XPPPPPPPP...............PPPPPPPP
  147. XPPPP.....-------------...PPPPPP
  148. XPPPPP....|.S.........|....PPPPP
  149. XPPP......+.|.........|...PPPPPP
  150. XPPP......+.|.........|..PPPPPPP
  151. XPPPP.....|.S.........|..PPPPPPP
  152. XPPPPP....-------------....PPPPP
  153. XPPPPPPPP...............PPPPPPPP
  154. XPPPPPPPPPPP........PPPPPPPPPPPP
  155. XENDMAP
  156. X# Dungeon Description
  157. XREGION:(03,00,26,09),lit,"ordinary"
  158. XREGION:(12,03,20,06),lit,"temple"
  159. X# Doors
  160. XDOOR:closed,(09,04)
  161. XDOOR:closed,(09,05)
  162. XDOOR:locked,(11,03)
  163. XDOOR:locked,(11,06)
  164. X# Stairs
  165. XSTAIR:(04,04),up
  166. XSTAIR:(20,06),down
  167. X# Non diggable walls
  168. XNON_DIGGABLE:(11,02,21,07)
  169. X# Altar in the temple.
  170. XALTAR:(13,05), chaos, shrine
  171. X# Objects
  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. XOBJECT:random,random,random
  186. XOBJECT:random,random,random
  187. X# Random traps
  188. XTRAP:random,random
  189. XTRAP:random,random
  190. XTRAP:random,random
  191. XTRAP:random,random
  192. XTRAP:random,random
  193. XTRAP:random,random
  194. X# Random monsters.
  195. XMONSTER:'r',"rabid rat",random
  196. XMONSTER:'r',"rabid rat",random
  197. XMONSTER:'r',"rabid rat",random
  198. XMONSTER:'r',"rabid rat",random
  199. XMONSTER:'r',"rabid rat",random
  200. XMONSTER:'r',"rabid rat",random
  201. XMONSTER:'r',"rabid rat",random
  202. XMONSTER:'r',"rabid rat",random
  203. XMONSTER:'r',"rabid rat",random
  204. XMONSTER:'r',"rabid rat",random
  205. XMONSTER:'r',"rabid rat",random
  206. XMONSTER:'r',"rabid rat",random
  207. XMONSTER:'r',"rabid rat",random
  208. XMONSTER:'r',"rabid rat",random
  209. XMONSTER:'r',"rabid rat",random
  210. XMONSTER:'r',"rabid rat",random
  211. XMONSTER:'r',"rabid rat",random
  212. XMONSTER:'r',random,random,hostile
  213. XMONSTER:';',"giant eel",random
  214. XMONSTER:';',"giant eel",random
  215. XMONSTER:';',"giant eel",random
  216. XMONSTER:';',"giant eel",random
  217. XMONSTER:';',"giant eel",random
  218. XMONSTER:';',"electric eel",random
  219. XMONSTER:';',"electric eel",random
  220. XMONSTER:';',"kraken",random
  221. XMONSTER:';',random, random,hostile
  222. XMONSTER:';',random, random,hostile
  223. XMONSTER: 'D',random,random,hostile
  224. XMONSTER: 'D',random,random,hostile
  225. XMONSTER: 'D',random,random,hostile
  226. XMONSTER: 'D',random,random,hostile
  227. XMONSTER: 'D',random,random,hostile
  228. X
  229. X#
  230. X#    The "goal" level for the quest.
  231. X#
  232. X#    Here you meet Cyclops your nemesis monster.  You have to
  233. X#    defeat Cyclops in combat to gain the artifact you have
  234. X#    been assigned to retrieve.
  235. X#
  236. X
  237. XMAZE: "H-goal", 'P'
  238. X#
  239. XINIT_MAP: '.' , 'P' , false , true , lit , false
  240. XGEOMETRY:center,center
  241. XMAP
  242. X.P....................................PP.
  243. XPP.......PPPPPPP....PPPPPPP....PPPP...PP.
  244. X...PPPPPPP....PPPPPPP.....PPPPPP..PPP...P
  245. X...PP..............................PPP...
  246. X..PP..............................PP.....
  247. X..PP..............................PPP....
  248. X..PPP..............................PP....
  249. X.PPP..............................PPPP...
  250. X...PP............................PPP...PP
  251. X..PPPP...PPPPP..PPPP...PPPPP.....PP...PP.
  252. XP....PPPPP...PPPP..PPPPP...PPPPPPP...PP..
  253. XPPP..................................PPP.
  254. XENDMAP
  255. X# Random Monsters
  256. XRANDOM_MONSTERS: 'r', ';', 'D'
  257. X# Dungeon Description
  258. XREGION:(00,00,40,11),lit,"ordinary"
  259. X# Stairs
  260. XSTAIR:(38,10),up
  261. X# Non diggable walls
  262. XNON_DIGGABLE:(00,00,40,11)
  263. X# Objects
  264. XOBJECT:')',"quarterstaff",(20,06),blessed,0,"The Staff of Aesculapius"
  265. XOBJECT:'/',"lightning",(20,06)
  266. XOBJECT:random,random,random
  267. XOBJECT:random,random,random
  268. XOBJECT:random,random,random
  269. XOBJECT:random,random,random
  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. XOBJECT:random,random,random
  276. XOBJECT:random,random,random
  277. XOBJECT:random,random,random
  278. XOBJECT:random,random,random
  279. XOBJECT:random,random,random
  280. X# Random traps
  281. XTRAP:random,random
  282. XTRAP:random,random
  283. XTRAP:random,random
  284. XTRAP:random,random
  285. XTRAP:random,random
  286. XTRAP:random,random
  287. X# Random monsters.
  288. XMONSTER:'H',"Cyclops",(20,06),hostile
  289. XMONSTER:'r',"rabid rat",random
  290. XMONSTER:'r',"rabid rat",random
  291. XMONSTER:'r',"rabid rat",random
  292. XMONSTER:'r',"rabid rat",random
  293. XMONSTER:'r',"rabid rat",random
  294. XMONSTER:'r',"rabid rat",random
  295. XMONSTER:'r',"rabid rat",random
  296. XMONSTER:'r',"rabid rat",random
  297. XMONSTER:'r',"rabid rat",random
  298. XMONSTER:'r',"rabid rat",random
  299. XMONSTER:'r',"rabid rat",random
  300. XMONSTER:'r',"rabid rat",random
  301. XMONSTER:'r',"rabid rat",random
  302. XMONSTER:'r',"rabid rat",random
  303. XMONSTER:'r',"rabid rat",random
  304. XMONSTER:'r',"rabid rat",random
  305. XMONSTER:'r',random,random,hostile
  306. XMONSTER:'r',random,random,hostile
  307. XMONSTER:';',"giant eel",random
  308. XMONSTER:';',"giant eel",random
  309. XMONSTER:';',"giant eel",random
  310. XMONSTER:';',"giant eel",random
  311. XMONSTER:';',"giant eel",random
  312. XMONSTER:';',"giant eel",random
  313. XMONSTER:';',"electric eel",random
  314. XMONSTER:';',"electric eel",random
  315. XMONSTER:';',random,random,hostile
  316. XMONSTER: 'D',random,random,hostile
  317. XMONSTER: 'D',random,random,hostile
  318. XMONSTER: 'D',random,random,hostile
  319. XMONSTER: 'D',random,random,hostile
  320. XMONSTER: 'D',random,random,hostile
  321. X
  322. X#
  323. X#    The "fill" levels for the quest.
  324. X#
  325. X#    These levels are used to fill out any levels not occupied by specific
  326. X#    levels as defined above. "filla" is the upper filler, between the
  327. X#    start and locate levels, and "fillb" the lower between the locate
  328. X#    and goal levels.
  329. X#
  330. X
  331. XMAZE: "H-filla" , 'P'
  332. XINIT_MAP: '.' , 'P' , false , true , lit , false
  333. XNOMAP
  334. X# Random Monsters
  335. XRANDOM_MONSTERS: 'r', ';', 'D'
  336. X#
  337. XSTAIR: random, up
  338. XSTAIR: random, down
  339. X#
  340. XOBJECT: random, random, random
  341. XOBJECT: random, random, random
  342. XOBJECT: random, random, random
  343. XOBJECT: random, random, random
  344. XOBJECT: random, random, random
  345. XOBJECT: random, random, random
  346. XOBJECT: random, random, random
  347. XOBJECT: random, random, random
  348. X#
  349. XMONSTER: 'r', "rabid rat", random
  350. XMONSTER: 'r', "rabid rat", random
  351. XMONSTER: 'r', "rabid rat", random
  352. XMONSTER: 'r', "rabid rat", random
  353. XMONSTER: 'r', random, random,hostile
  354. XMONSTER: 'r', random, random,hostile
  355. XMONSTER: ';', "giant eel", random
  356. XMONSTER: ';', "giant eel", random
  357. XMONSTER: ';', "electric eel", random
  358. XMONSTER: 'D',random,random,hostile
  359. XMONSTER: 'D',random,random,hostile
  360. XMONSTER: 'D',random,random,hostile
  361. XMONSTER: 'D',random,random,hostile
  362. X#
  363. XTRAP: random, random
  364. XTRAP: random, random
  365. XTRAP: random, random
  366. XTRAP: random, random
  367. X
  368. XMAZE: "H-fillb" , 'P'
  369. XINIT_MAP: '.' , 'P' , false , true , lit , false
  370. XNOMAP
  371. X# Random Monsters
  372. XRANDOM_MONSTERS: 'r', ';', 'D'
  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. XMONSTER: 'r', "rabid rat", random
  390. XMONSTER: 'r', "rabid rat", random
  391. XMONSTER: 'r', "rabid rat", random
  392. XMONSTER: 'r', "rabid rat", random
  393. XMONSTER: 'r', "rabid rat", random
  394. XMONSTER: 'r', random, random,hostile
  395. XMONSTER: 'r', random, random,hostile
  396. XMONSTER: ';', "giant eel", random
  397. XMONSTER: ';', "giant eel", random
  398. XMONSTER: ';', "giant eel", random
  399. XMONSTER: ';', "giant eel", random
  400. XMONSTER: ';', "giant eel", random
  401. XMONSTER: ';', "electric eel", random
  402. XMONSTER: ';', "electric eel", random
  403. XMONSTER: 'D',random,random,hostile
  404. XMONSTER: 'D',random,random,hostile
  405. XMONSTER: 'D',random,random,hostile
  406. XMONSTER: 'D',random,random,hostile
  407. X#
  408. XTRAP: random, random
  409. XTRAP: random, random
  410. XTRAP: random, random
  411. XTRAP: random, random
  412. END_OF_FILE
  413. if test 11204 -ne `wc -c <'dat/Healer.des'`; then
  414.     echo shar: \"'dat/Healer.des'\" unpacked with wrong size!
  415. fi
  416. # end of 'dat/Healer.des'
  417. fi
  418. if test -f 'src/mon.c' -a "${1}" != "-c" ; then 
  419.   echo shar: Will not clobber existing file \"'src/mon.c'\"
  420. else
  421. echo shar: Extracting \"'src/mon.c'\" \(42736 characters\)
  422. sed "s/^X//" >'src/mon.c' <<'END_OF_FILE'
  423. X/*    SCCS Id: @(#)mon.c    3.1    93/01/19    */
  424. X/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  425. X/* NetHack may be freely redistributed.  See license for details. */
  426. X
  427. X/* If you're using precompiled headers, you don't want this either */
  428. X#ifdef MICROPORT_BUG
  429. X#define MKROOM_H
  430. X#endif
  431. X
  432. X#include "hack.h"
  433. X#include "mfndpos.h"
  434. X#include "edog.h"
  435. X#include <ctype.h>
  436. X
  437. XSTATIC_DCL boolean FDECL(restrap,(struct monst *));
  438. XSTATIC_DCL void NDECL(dmonsfree);
  439. X
  440. X#ifdef OVL1
  441. X#define warnDelay 10
  442. Xlong lastwarntime;
  443. Xint lastwarnlev;
  444. Xconst char *warnings[] = {
  445. X    "white", "pink", "red", "ruby", "purple", "black" };
  446. X
  447. Xstatic void NDECL(warn_effects);
  448. X
  449. X#endif /* OVL1 */
  450. X
  451. X#ifdef OVLB
  452. Xstatic struct obj *FDECL(make_corpse,(struct monst *));
  453. Xstatic void FDECL(m_detach,(struct monst *));
  454. X
  455. Xstruct monst *fdmon;    /* chain of dead monsters, need not be saved */
  456. X            /* otherwise used only in priest.c */
  457. X
  458. X/* Creates a monster corpse, a "special" corpse, or nothing if it doesn't
  459. X * leave corpses.  Monsters which leave "special" corpses should have
  460. X * G_NOCORPSE set in order to prevent wishing for one, finding tins of one,
  461. X * etc....
  462. X */
  463. Xstatic struct obj *
  464. Xmake_corpse(mtmp)
  465. Xregister struct monst *mtmp;
  466. X{
  467. X    register struct permonst *mdat = mtmp->data;
  468. X    int num;
  469. X    struct obj *obj = (struct obj *)0;
  470. X    int x = mtmp->mx, y = mtmp->my;
  471. X    int mndx = monsndx(mdat);
  472. X
  473. X    switch(mndx) {
  474. X        case PM_GRAY_DRAGON:
  475. X        case PM_RED_DRAGON:
  476. X        case PM_ORANGE_DRAGON:
  477. X        case PM_WHITE_DRAGON:
  478. X        case PM_BLACK_DRAGON:
  479. X        case PM_BLUE_DRAGON:
  480. X        case PM_GREEN_DRAGON:
  481. X        case PM_YELLOW_DRAGON:
  482. X        /* Make dragon scales.  This assumes that the order of the */
  483. X        /* dragons is the same as the order of the scales.       */
  484. X        if (!rn2(3)) {
  485. X            obj = mksobj_at(GRAY_DRAGON_SCALES +
  486. X                    monsndx(mdat)-PM_GRAY_DRAGON, x, y, FALSE);
  487. X            obj->spe = 0;
  488. X            obj->cursed = obj->blessed = FALSE;
  489. X        }
  490. X        goto default_1;
  491. X
  492. X        case PM_WHITE_UNICORN:
  493. X        case PM_GRAY_UNICORN:
  494. X        case PM_BLACK_UNICORN:
  495. X        (void) mksobj_at(UNICORN_HORN, x, y, TRUE);
  496. X        goto default_1;
  497. X        case PM_LONG_WORM:
  498. X        (void) mksobj_at(WORM_TOOTH, x, y, TRUE);
  499. X        goto default_1;
  500. X        case PM_KOBOLD_MUMMY:
  501. X        case PM_GNOME_MUMMY:
  502. X        case PM_ORC_MUMMY:
  503. X        case PM_ELF_MUMMY:
  504. X        case PM_HUMAN_MUMMY:
  505. X        case PM_GIANT_MUMMY:
  506. X        case PM_ETTIN_MUMMY:
  507. X        (void) mksobj_at(MUMMY_WRAPPING, x, y, TRUE); /* and fall through */
  508. X        case PM_KOBOLD_ZOMBIE:
  509. X        case PM_GNOME_ZOMBIE:
  510. X        case PM_ORC_ZOMBIE:
  511. X        case PM_ELF_ZOMBIE:
  512. X        case PM_HUMAN_ZOMBIE:
  513. X        case PM_GIANT_ZOMBIE:
  514. X        case PM_ETTIN_ZOMBIE:
  515. X        switch (mndx) {
  516. X            case PM_KOBOLD_ZOMBIE:
  517. X            case PM_KOBOLD_MUMMY:
  518. X            num = PM_KOBOLD; break;
  519. X            case PM_GNOME_MUMMY:
  520. X            case PM_GNOME_ZOMBIE:
  521. X            num = PM_GNOME; break;
  522. X            case PM_ORC_MUMMY:
  523. X            case PM_ORC_ZOMBIE:
  524. X            num = PM_ORC; break;
  525. X            case PM_ELF_MUMMY:
  526. X            case PM_ELF_ZOMBIE:
  527. X            num = PM_ELF; break;
  528. X            case PM_HUMAN_MUMMY:
  529. X            case PM_HUMAN_ZOMBIE:
  530. X            num = PM_HUMAN; break;
  531. X            case PM_GIANT_MUMMY:
  532. X            case PM_GIANT_ZOMBIE:
  533. X            num = PM_GIANT; break;
  534. X            case PM_ETTIN_MUMMY:
  535. X            case PM_ETTIN_ZOMBIE:
  536. X#ifdef GCC_WARN
  537. X            default:
  538. X#endif
  539. X            num = PM_ETTIN; break;
  540. X        }
  541. X        obj = mkcorpstat(CORPSE, &mons[num], x, y, TRUE);
  542. X        obj->age -= 100;        /* this is an *OLD* corpse */
  543. X        break;
  544. X        case PM_IRON_GOLEM:
  545. X        num = d(2,6);
  546. X        while (num--)
  547. X            obj = mksobj_at(IRON_CHAIN, x, y, TRUE);
  548. X        mtmp->mnamelth = 0;
  549. X        break;
  550. X        case PM_CLAY_GOLEM:
  551. X        obj = mksobj_at(ROCK, x, y, FALSE);
  552. X        obj->quan = (long)(rn2(20) + 50);
  553. X        obj->owt = weight(obj);
  554. X        mtmp->mnamelth = 0;
  555. X        break;
  556. X        case PM_STONE_GOLEM:
  557. X        obj = mkcorpstat(STATUE, mdat, x, y, FALSE);
  558. X        break;
  559. X        case PM_WOOD_GOLEM:
  560. X        num = d(2,4);
  561. X        while(num--) {
  562. X            obj = mksobj_at(QUARTERSTAFF, x, y, TRUE);
  563. X            if (obj && obj->oartifact) {    /* don't allow this */
  564. X                artifact_exists(obj, ONAME(obj), FALSE);
  565. X                Strcpy(ONAME(obj), "");  obj->onamelth = 0;
  566. X            }
  567. X        }
  568. X        mtmp->mnamelth = 0;
  569. X        break;
  570. X        case PM_LEATHER_GOLEM:
  571. X        num = d(2,4);
  572. X        while(num--)
  573. X            obj = mksobj_at(LEATHER_ARMOR, x, y, TRUE);
  574. X        mtmp->mnamelth = 0;
  575. X        break;
  576. X        default_1:
  577. X        default:
  578. X        if (mdat->geno & G_NOCORPSE)
  579. X            return (struct obj *)0;
  580. X        else obj = mkcorpstat(CORPSE, mdat, x, y, TRUE);
  581. X        break;
  582. X    }
  583. X    /* All special cases should precede the G_NOCORPSE check */
  584. X
  585. X    /* Note: oname() cannot be used generically for non-inventory objects
  586. X     * unless you fix the link from the previous object in the chains.
  587. X     * (Here we know it's the first one, so there was no link.)
  588. X     */
  589. X    if (mtmp->mnamelth) {
  590. X        obj = oname(obj, NAME(mtmp), 0);
  591. X        fobj = obj;
  592. X        level.objects[x][y] = obj;
  593. X    }
  594. X    stackobj(fobj);
  595. X    newsym(x, y);
  596. X    return obj;
  597. X}
  598. X
  599. X#endif /* OVLB */
  600. X#ifdef OVL1
  601. X
  602. Xstatic void
  603. Xwarn_effects()
  604. X{
  605. X    if (warnlevel == 100) {
  606. X    if(!Blind &&
  607. X        (warnlevel > lastwarnlev || moves > lastwarntime + warnDelay)) {
  608. X        Your("%s %s!", aobjnam(uwep, "glow"),
  609. X         Hallucination ? hcolor() : light_blue);
  610. X        lastwarnlev = warnlevel;
  611. X        lastwarntime = moves;
  612. X    }
  613. X    warnlevel = 0;
  614. X    return;
  615. X    }
  616. X
  617. X    if(warnlevel >= SIZE(warnings))
  618. X    warnlevel = SIZE(warnings)-1;
  619. X    if(!Blind && warnlevel >= 0)
  620. X    if(warnlevel > lastwarnlev || moves > lastwarntime + warnDelay) {
  621. X        register const char *rr;
  622. X
  623. X        lastwarntime = moves;
  624. X        lastwarnlev = warnlevel;
  625. X        switch((int) (Warning & (LEFT_RING | RIGHT_RING))) {
  626. X        case LEFT_RING:
  627. X        rr = Hallucination ? "left mood ring glows" : "left ring glows";
  628. X        break;
  629. X        case RIGHT_RING:
  630. X        rr = Hallucination ? "right mood ring glows"
  631. X            : "right ring glows";
  632. X        break;
  633. X        case LEFT_RING | RIGHT_RING:
  634. X        rr = Hallucination ? "mood rings glow" : "rings both glow";
  635. X        break;
  636. X        default:
  637. X        if (Hallucination)
  638. X            Your("spider-sense is tingling....");
  639. X        else
  640. X            You("feel apprehensive as you sense a %s flash.",
  641. X            warnings[warnlevel]);
  642. X        return;
  643. X        }
  644. X        Your("%s %s!", rr, Hallucination ? hcolor() : warnings[warnlevel]);
  645. X    }
  646. X}
  647. X
  648. X/* check mtmp and water for compatibility, 0 (survived), 1 (drowned) */
  649. Xint
  650. Xminwater(mtmp)
  651. Xregister struct monst *mtmp;
  652. X{
  653. X    boolean inpool, infountain;
  654. X
  655. X    inpool = is_pool(mtmp->mx,mtmp->my);
  656. X    infountain = IS_FOUNTAIN(levl[mtmp->mx][mtmp->my].typ);
  657. X
  658. X    /* Gremlin multiplying won't go on forever since the hit points
  659. X     * keep going down, and when it gets to 1 hit point the clone
  660. X     * function will fail.
  661. X     */
  662. X    if(mtmp->data->mlet == S_GREMLIN && (inpool || infountain) && rn2(3)) {
  663. X    struct monst *mtmp2 = clone_mon(mtmp);
  664. X
  665. X    if (mtmp2) {
  666. X        mtmp2->mhpmax = (mtmp->mhpmax /= 2);
  667. X        if(cansee(mtmp->mx,mtmp->my))
  668. X        pline("%s multiplies.", Monnam(mtmp));
  669. X        dryup(mtmp->mx,mtmp->my);
  670. X    }
  671. X    return (0);
  672. X    }
  673. X    if (inpool) {
  674. X    /* most monsters drown in pools */
  675. X    if (!is_flyer(mtmp->data) && !is_clinger(mtmp->data)
  676. X        && !is_swimmer(mtmp->data) && !magic_breathing(mtmp->data)) {
  677. X        if (cansee(mtmp->mx,mtmp->my))
  678. X        pline("%s drowns.", Monnam(mtmp));
  679. X        mondead(mtmp);
  680. X        return (1);
  681. X    }
  682. X    } else {
  683. X    /* but eels have a difficult time outside */
  684. X    if (mtmp->data->mlet == S_EEL) {
  685. X        if(mtmp->mhp > 1) mtmp->mhp--;
  686. X        mtmp->mflee = 1;
  687. X        mtmp->mfleetim += 2;
  688. X    }
  689. X    }
  690. X    return (0);
  691. X}
  692. X
  693. Xvoid
  694. Xmovemon()
  695. X{
  696. X    register struct monst *mtmp;
  697. X    register boolean tametype = TRUE;
  698. X
  699. X    warnlevel = 0;
  700. X
  701. X    while(1) {
  702. X    /* Find a monster that we have not treated yet.
  703. X     * Note that mtmp or mtmp->nmon might get killed
  704. X     * while mtmp moves, so we cannot just walk down the
  705. X     * chain (even new monsters might get created!)
  706. X     *
  707. X     * Do tame monsters first.  Necessary so that when the tame
  708. X     * monster attacks something, the something gets a chance to
  709. X     * attack the tame monster back (which it's permitted to do
  710. X     * only if it hasn't made its move yet).
  711. X     */
  712. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
  713. X        if(mtmp->mlstmv < monstermoves &&
  714. X           ((mtmp->mtame>0) == tametype)) goto next_mon;
  715. X    if(tametype) {
  716. X        /* checked all tame monsters, now do other ones */
  717. X        tametype = FALSE;
  718. X        continue;
  719. X    }
  720. X    /* treated all monsters */
  721. X    break;
  722. X
  723. X    next_mon:
  724. X    mtmp->mlstmv = monstermoves;
  725. X
  726. X    if(mtmp->mhp <= 0) {
  727. X        impossible("Monster with zero hp?");
  728. X        mtmp->mhp = mtmp->mhpmax = 1; /* repair */
  729. X    }
  730. X    if (minwater(mtmp)) continue;
  731. X
  732. X    if(mtmp->mblinded && !--mtmp->mblinded)
  733. X        mtmp->mcansee = 1;
  734. X    if(mtmp->mfrozen && !--mtmp->mfrozen)
  735. X        mtmp->mcanmove = 1;
  736. X    if(mtmp->mfleetim && !--mtmp->mfleetim)
  737. X        mtmp->mflee = 0;
  738. X    if (is_hider(mtmp->data)) {
  739. X        /* unwatched mimics and piercers may hide again  [MRS] */
  740. X        if(restrap(mtmp))   continue;
  741. X        if(mtmp->m_ap_type == M_AP_FURNITURE ||
  742. X                    mtmp->m_ap_type == M_AP_OBJECT)
  743. X            continue;
  744. X        if(mtmp->mundetected) continue;
  745. X    }
  746. X    if(mtmp->mspeed != MSLOW || !(moves%2)) {
  747. X        /* continue if the monster died fighting */
  748. X        if (Conflict && !mtmp->iswiz && mtmp->mcansee) {
  749. X        /* Note:
  750. X         *  Conflict does not take effect in the first round.
  751. X         *  Therefore, A monster when stepping into the area will
  752. X         *  get to swing at you.
  753. X         *
  754. X         *  The call to fightm() must be _last_.  The monster might
  755. X         *  have died if it returns 1.
  756. X         */
  757. X        if (couldsee(mtmp->mx,mtmp->my) &&
  758. X            (distu(mtmp->mx,mtmp->my) <= BOLT_LIM*BOLT_LIM) &&
  759. X                                fightm(mtmp))
  760. X             continue;    /* mon might have died */
  761. X        }
  762. X        if(dochugw(mtmp))
  763. X        /* otherwise just move the monster */
  764. X        continue;
  765. X    }
  766. X    if(mtmp->mspeed == MFAST && dochugw(mtmp))
  767. X        continue;
  768. X    }
  769. X    if(warnlevel > 0)
  770. X    warn_effects();
  771. X
  772. X    dmonsfree(); /* remove all dead monsters */
  773. X}
  774. X
  775. X#endif /* OVL1 */
  776. X#ifdef OVLB
  777. X
  778. Xvoid
  779. Xmeatgold(mtmp)
  780. X    register struct monst *mtmp;
  781. X{
  782. X    register struct obj *otmp;
  783. X
  784. X    /* If a pet, eating is handled separately, in dog.c */
  785. X    if (mtmp->mtame) return;
  786. X
  787. X    /* Eats topmost metal object if it is there */
  788. X    for (otmp = level.objects[mtmp->mx][mtmp->my];
  789. X                            otmp; otmp = otmp->nexthere)
  790. X        if (is_metallic(otmp) && touch_artifact(otmp,mtmp)) {
  791. X            if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
  792. X            pline("%s eats %s!", Monnam(mtmp),
  793. X                distant_name(otmp,doname));
  794. X            else if (flags.soundok && flags.verbose)
  795. X            You("hear a crunching sound.");
  796. X            mtmp->meating = otmp->owt/2 + 1;
  797. X            /* Heal up to the object's weight in hp */
  798. X            if (mtmp->mhp < mtmp->mhpmax) {
  799. X            mtmp->mhp += objects[otmp->otyp].oc_weight;
  800. X            if (mtmp->mhp > mtmp->mhpmax) mtmp->mhp = mtmp->mhpmax;
  801. X            }
  802. X            if(otmp == uball) {
  803. X            unpunish();
  804. X            delobj(otmp);
  805. X            } else if(otmp == uchain)
  806. X            unpunish();    /* frees uchain */
  807. X            else
  808. X            delobj(otmp);
  809. X            /* Left behind a pile? */
  810. X            if(rnd(25) < 3) (void) mksobj_at(ROCK, mtmp->mx, mtmp->my, TRUE);
  811. X            newsym(mtmp->mx, mtmp->my);
  812. X            break;
  813. X        }
  814. X}
  815. X
  816. Xvoid
  817. Xmeatobj(mtmp)        /* for gelatinous cubes */
  818. X    register struct monst *mtmp;
  819. X{
  820. X    register struct obj *otmp, *otmp2;
  821. X
  822. X    /* If a pet, eating is handled separately, in dog.c */
  823. X    if (mtmp->mtame) return;
  824. X
  825. X    /* Eats organic objects, including cloth and wood, if there */
  826. X    /* Engulfs others, except huge rocks and metal attached to player */
  827. X    for (otmp = level.objects[mtmp->mx][mtmp->my]; otmp; otmp = otmp2) {
  828. X        otmp2 = otmp->nexthere;
  829. X        if(is_organic(otmp) && touch_artifact(otmp,mtmp)) {
  830. X        if (otmp->otyp == CORPSE && otmp->corpsenm == PM_COCKATRICE
  831. X                        && !resists_ston(mtmp->data))
  832. X            continue;
  833. X        if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
  834. X            pline("%s eats %s!", Monnam(mtmp),
  835. X                distant_name(otmp, doname));
  836. X        else if (flags.soundok && flags.verbose)
  837. X            You("hear a slurping sound.");
  838. X        /* Heal up to the object's weight in hp */
  839. X        if (mtmp->mhp < mtmp->mhpmax) {
  840. X            mtmp->mhp += objects[otmp->otyp].oc_weight;
  841. X            if (mtmp->mhp > mtmp->mhpmax) mtmp->mhp = mtmp->mhpmax;
  842. X        }
  843. X        delobj(otmp);        /* munch */
  844. X        } else if (otmp->oclass != ROCK_CLASS &&
  845. X                    otmp != uball && otmp != uchain) {
  846. X        if (cansee(mtmp->mx, mtmp->my) && flags.verbose)
  847. X            pline("%s engulfs %s.", Monnam(mtmp),
  848. X                distant_name(otmp,doname));
  849. X        freeobj(otmp);
  850. X        mpickobj(mtmp, otmp);    /* slurp */
  851. X        }
  852. X        /* Engulf & devour is instant, so don't set meating */
  853. X        newsym(mtmp->mx, mtmp->my);
  854. X    }
  855. X}
  856. X
  857. Xvoid
  858. Xmpickgold(mtmp)
  859. X    register struct monst *mtmp;
  860. X{
  861. X    register struct obj *gold;
  862. X
  863. X    if ((gold = g_at(mtmp->mx, mtmp->my)) != 0) {
  864. X    mtmp->mgold += gold->quan;
  865. X    delobj(gold);
  866. X    if (cansee(mtmp->mx, mtmp->my) ) {
  867. X        if (flags.verbose && !mtmp->isgd)
  868. X        pline("%s picks up some gold.", Monnam(mtmp));
  869. X        newsym(mtmp->mx, mtmp->my);
  870. X    }
  871. X    }
  872. X}
  873. X
  874. X/* Now includes giants which pick up enormous rocks.  KAA */
  875. Xvoid
  876. Xmpickgems(mtmp)
  877. X    register struct monst *mtmp;
  878. X{
  879. X    register struct obj *otmp;
  880. X
  881. X    for(otmp = level.objects[mtmp->mx][mtmp->my]; otmp; otmp=otmp->nexthere)
  882. X        if(throws_rocks(mtmp->data) ? otmp->otyp == BOULDER :
  883. X        (otmp->oclass == GEM_CLASS &&
  884. X         objects[otmp->otyp].oc_material != MINERAL))
  885. X        if (touch_artifact(otmp,mtmp))
  886. X        if(mtmp->data->mlet != S_UNICORN
  887. X            || objects[otmp->otyp].oc_material == GEMSTONE){
  888. X            if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
  889. X            pline("%s picks up %s.", Monnam(mtmp),
  890. X                distant_name(otmp, doname));
  891. X            freeobj(otmp);
  892. X            mpickobj(mtmp, otmp);
  893. X            if (otmp->otyp == BOULDER)
  894. X            unblock_point(otmp->ox,otmp->oy);    /* vision */
  895. X            newsym(mtmp->mx, mtmp->my);
  896. X            return;    /* pick only one object */
  897. X        }
  898. X}
  899. X
  900. X#endif /* OVLB */
  901. X#ifdef OVL2
  902. X
  903. Xvoid
  904. Xmpickstuff(mtmp, str)
  905. X    register struct monst *mtmp;
  906. X    register const char *str;
  907. X{
  908. X    register struct obj *otmp;
  909. X
  910. X/*    prevent shopkeepers from leaving the door of their shop */
  911. X    if(mtmp->isshk && inhishop(mtmp)) return;
  912. X
  913. X    for(otmp = level.objects[mtmp->mx][mtmp->my]; otmp; otmp=otmp->nexthere)
  914. X/*    Nymphs take everything.  Most monsters don't pick up corpses. */
  915. X        if (
  916. X#ifdef MUSE
  917. X        !str ? searches_for_item(mtmp,otmp) :
  918. X#endif
  919. X          (index(str, otmp->oclass)
  920. X           && (otmp->otyp != CORPSE || mtmp->data->mlet == S_NYMPH))) {
  921. X        if (!touch_artifact(otmp,mtmp)) return;
  922. X        if (!can_carry(mtmp,otmp)) return;
  923. X        if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
  924. X            pline("%s picks up %s.", Monnam(mtmp), doname(otmp));
  925. X        freeobj(otmp);
  926. X        mpickobj(mtmp, otmp);
  927. X#ifdef MUSE
  928. X        m_dowear(mtmp, FALSE);
  929. X#endif
  930. X        newsym(mtmp->mx, mtmp->my);
  931. X        return;            /* pick only one object */
  932. X        }
  933. X}
  934. X
  935. X#endif /* OVL2 */
  936. X#ifdef OVL0
  937. X
  938. Xint
  939. Xcurr_mon_load(mtmp)
  940. Xregister struct monst *mtmp;
  941. X{
  942. X    register int curload = 0;
  943. X    register struct obj *obj;
  944. X
  945. X    for(obj = mtmp->minvent; obj; obj = obj->nobj) {
  946. X        if(obj->otyp != BOULDER || !throws_rocks(mtmp->data))
  947. X            curload += obj->owt;
  948. X    }
  949. X
  950. X    return curload;
  951. X}
  952. X
  953. Xint
  954. Xmax_mon_load(mtmp)
  955. Xregister struct monst *mtmp;
  956. X{
  957. X    register long maxload;
  958. X
  959. X    /* Base monster carrying capacity is equal to human maximum
  960. X     * carrying capacity, or half human maximum if not strong.
  961. X     * (for a polymorphed player, the value used would be the
  962. X     * non-polymorphed carrying capacity instead of max/half max).
  963. X     * This is then modified by the ratio between the monster weights
  964. X     * and human weights.  Corpseless monsters are given a capacity
  965. X     * proportional to their size instead of weight.
  966. X     */
  967. X    if (!mtmp->data->cwt)
  968. X        maxload = (MAX_CARR_CAP * (long)mtmp->data->msize) / MZ_HUMAN;
  969. X    else if (!strongmonst(mtmp->data)
  970. X        || (strongmonst(mtmp->data) && (mtmp->data->cwt > WT_HUMAN)))
  971. X        maxload = (MAX_CARR_CAP * (long)mtmp->data->cwt) / WT_HUMAN;
  972. X    else    maxload = MAX_CARR_CAP; /*strong monsters w/cwt <= WT_HUMAN*/
  973. X
  974. X    if (!strongmonst(mtmp->data)) maxload /= 2;
  975. X
  976. X    if (maxload < 1) maxload = 1;
  977. X
  978. X    return (int) maxload;
  979. X}
  980. X
  981. X/* for restricting monsters' object-pickup */
  982. Xboolean
  983. Xcan_carry(mtmp,otmp)
  984. Xstruct monst *mtmp;
  985. Xstruct obj *otmp;
  986. X{
  987. X    register int newload = otmp->owt;
  988. X
  989. X    if (otmp->otyp == CORPSE && otmp->corpsenm == PM_COCKATRICE
  990. X                        && !resists_ston(mtmp->data))
  991. X        return(FALSE);
  992. X    if (mtmp->isshk) return(TRUE); /* no limit */
  993. X    if (mtmp->mpeaceful && !mtmp->mtame) return(FALSE);
  994. X    /* otherwise players might find themselves obligated to violate
  995. X     * their alignment if the monster takes something they need
  996. X     */
  997. X
  998. X    /* special--boulder throwers carry unlimited amounts of boulders */
  999. X    if (throws_rocks(mtmp->data) && otmp->otyp == BOULDER)
  1000. X        return(TRUE);
  1001. X
  1002. X    /* nymphs deal in stolen merchandise, but not boulders or statues */
  1003. X    if (mtmp->data->mlet == S_NYMPH)
  1004. X        return !(otmp->oclass == ROCK_CLASS);
  1005. X
  1006. X    if(curr_mon_load(mtmp) + newload > max_mon_load(mtmp)) return(FALSE);
  1007. X
  1008. X    return(TRUE);
  1009. X}
  1010. X
  1011. X/* return number of acceptable neighbour positions */
  1012. Xint
  1013. Xmfndpos(mon, poss, info, flag)
  1014. X    register struct monst *mon;
  1015. X    coord *poss;    /* coord poss[9] */
  1016. X    long *info;    /* long info[9] */
  1017. X    long flag;
  1018. X{
  1019. X    register xchar x,y,nx,ny;
  1020. X    register int cnt = 0;
  1021. X    register uchar ntyp;
  1022. X    uchar nowtyp;
  1023. X    boolean wantpool,poolok,lavaok,nodiag;
  1024. X    int maxx, maxy;
  1025. X
  1026. X    x = mon->mx;
  1027. X    y = mon->my;
  1028. X    nowtyp = levl[x][y].typ;
  1029. X
  1030. X    nodiag = (mon->data == &mons[PM_GRID_BUG]);
  1031. X    wantpool = mon->data->mlet == S_EEL;
  1032. X    poolok = is_flyer(mon->data) || is_clinger(mon->data) ||
  1033. X         (is_swimmer(mon->data) && !wantpool);
  1034. X    lavaok = is_flyer(mon->data) || is_clinger(mon->data) ||
  1035. X         (mon->data == &mons[PM_FIRE_ELEMENTAL]);
  1036. Xnexttry:    /* eels prefer the water, but if there is no water nearby,
  1037. X           they will crawl over land */
  1038. X    if(mon->mconf) {
  1039. X        flag |= ALLOW_ALL;
  1040. X        flag &= ~NOTONL;
  1041. X    }
  1042. X    if(!mon->mcansee)
  1043. X        flag |= ALLOW_SSM;
  1044. X    maxx = min(x+1,COLNO-1);
  1045. X    maxy = min(y+1,ROWNO-1);
  1046. X    for(nx = max(1,x-1); nx <= maxx; nx++)
  1047. X      for(ny = max(0,y-1); ny <= maxy; ny++) {
  1048. X        if(nx == x && ny == y) continue;
  1049. X        if(IS_ROCK(ntyp = levl[nx][ny].typ) && !(flag & ALLOW_WALL) &&
  1050. X        !((flag & ALLOW_DIG) && may_dig(nx,ny))) continue;
  1051. X        if(IS_DOOR(ntyp) && !amorphous(mon->data) &&
  1052. X           ((levl[nx][ny].doormask & D_CLOSED && !(flag & OPENDOOR)) ||
  1053. X        (levl[nx][ny].doormask & D_LOCKED && !(flag & UNLOCKDOOR))
  1054. X           ) && !(flag & (ALLOW_WALL|ALLOW_DIG|BUSTDOOR))) continue;
  1055. X        if(nx != x && ny != y && (nodiag ||
  1056. X#ifdef REINCARNATION
  1057. X           ((IS_DOOR(nowtyp) &&
  1058. X         ((levl[x][y].doormask & ~D_BROKEN) || Is_rogue_level(&u.uz))) ||
  1059. X        (IS_DOOR(ntyp) &&
  1060. X         ((levl[nx][ny].doormask & ~D_BROKEN) || Is_rogue_level(&u.uz))))
  1061. X#else
  1062. X           ((IS_DOOR(nowtyp) && (levl[x][y].doormask & ~D_BROKEN)) ||
  1063. X        (IS_DOOR(ntyp) && (levl[nx][ny].doormask & ~D_BROKEN)))
  1064. X#endif
  1065. X           ))
  1066. X        continue;
  1067. X        if((is_pool(nx,ny) == wantpool || poolok) &&
  1068. X           (lavaok || !is_lava(nx,ny))) {
  1069. X        int dispx, dispy;
  1070. X        boolean monseeu = (!Invis || perceives(mon->data));
  1071. X        boolean checkobj = OBJ_AT(nx,ny);
  1072. X
  1073. X        /* Displacement also displaces the Elbereth/scare monster,
  1074. X         * as long as you are visible.
  1075. X         */
  1076. X        if(Displaced && monseeu && (mon->mux==nx) && (mon->muy==ny)) {
  1077. X            dispx = u.ux;
  1078. X            dispy = u.uy;
  1079. X        } else {
  1080. X            dispx = nx;
  1081. X            dispy = ny;
  1082. X        }
  1083. X
  1084. X        info[cnt] = 0;
  1085. X        if(((checkobj || Displaced) &&
  1086. X            sobj_at(SCR_SCARE_MONSTER, dispx, dispy))
  1087. X#ifdef ELBERETH
  1088. X               || sengr_at("Elbereth", dispx, dispy)
  1089. X#endif
  1090. X               ) {
  1091. X            if(!(flag & ALLOW_SSM)) continue;
  1092. X            info[cnt] |= ALLOW_SSM;
  1093. X        }
  1094. X        if((nx == u.ux && ny == u.uy) ||
  1095. X           (nx == mon->mux && ny == mon->muy)) {
  1096. X            if (nx == u.ux && ny == u.uy) {
  1097. X                /* If it's right next to you, it found you,
  1098. X                 * displaced or no.  We must set mux and muy
  1099. X                 * right now, so when we return we can tell
  1100. X                 * that the ALLOW_U means to attack _you_ and
  1101. X                 * not the image.
  1102. X                 */
  1103. X                mon->mux = u.ux;
  1104. X                mon->muy = u.uy;
  1105. X            }
  1106. X            if(!(flag & ALLOW_U)) continue;
  1107. X            info[cnt] |= ALLOW_U;
  1108. X        } else {
  1109. X            if(MON_AT(nx, ny)) {
  1110. X                if(!(flag & ALLOW_M)) continue;
  1111. X                info[cnt] |= ALLOW_M;
  1112. X                if((m_at(nx,ny))->mtame) {
  1113. X                    if(!(flag & ALLOW_TM)) continue;
  1114. X                    info[cnt] |= ALLOW_TM;
  1115. X                }
  1116. X            }
  1117. X            /* Note: ALLOW_SANCT only prevents movement, not */
  1118. X            /* attack, into a temple. */
  1119. X            if(level.flags.has_temple &&
  1120. X               *in_rooms(nx, ny, TEMPLE) &&
  1121. X               !*in_rooms(x, y, TEMPLE) &&
  1122. X               in_your_sanctuary(nx, ny)){
  1123. X                if(!(flag & ALLOW_SANCT)) continue;
  1124. X                info[cnt] |= ALLOW_SANCT;
  1125. X            }
  1126. X        }
  1127. X        if(checkobj && sobj_at(CLOVE_OF_GARLIC, nx, ny)) {
  1128. X            if(flag & NOGARLIC) continue;
  1129. X            info[cnt] |= NOGARLIC;
  1130. X        }
  1131. X        if(checkobj && sobj_at(BOULDER, nx, ny)) {
  1132. X            if(!(flag & ALLOW_ROCK)) continue;
  1133. X            info[cnt] |= ALLOW_ROCK;
  1134. X        }
  1135. X        if (monseeu && onlineu(nx,ny)) {
  1136. X            if(flag & NOTONL) continue;
  1137. X            info[cnt] |= NOTONL;
  1138. X        }
  1139. X        /* we cannot avoid traps of an unknown kind */
  1140. X        { register struct trap *ttmp = t_at(nx, ny);
  1141. X          register long tt;
  1142. X            if(ttmp) {
  1143. X                if(ttmp->ttyp >= TRAPNUM || ttmp->ttyp == 0)  {
  1144. Ximpossible("A monster looked at a very strange trap of type %d.", ttmp->ttyp);
  1145. X                    continue;
  1146. X                }
  1147. X                tt = 1L << ttmp->ttyp;
  1148. X                if(mon->mtrapseen & tt) {
  1149. X
  1150. X                    if(!(flag & tt)) continue;
  1151. X                    info[cnt] |= tt;
  1152. X                }
  1153. X            }
  1154. X        }
  1155. X        poss[cnt].x = nx;
  1156. X        poss[cnt].y = ny;
  1157. X        cnt++;
  1158. X        }
  1159. X    }
  1160. X    if(!cnt && wantpool && !is_pool(x,y)) {
  1161. X        wantpool = FALSE;
  1162. X        goto nexttry;
  1163. X    }
  1164. X    return(cnt);
  1165. X}
  1166. X
  1167. X#endif /* OVL0 */
  1168. X#ifdef OVL1
  1169. X
  1170. Xboolean
  1171. Xmonnear(mon, x, y)
  1172. Xregister struct monst *mon;
  1173. Xregister int x,y;
  1174. X/* Is the square close enough for the monster to move or attack into? */
  1175. X{
  1176. X    register int distance = dist2(mon->mx, mon->my, x, y);
  1177. X    if (distance==2 && mon->data==&mons[PM_GRID_BUG]) return 0;
  1178. X    return (distance < 3);
  1179. X}
  1180. X
  1181. X#endif /* OVL1 */
  1182. X#ifdef OVL2
  1183. X
  1184. XSTATIC_OVL void
  1185. Xdmonsfree()
  1186. X{
  1187. Xregister struct monst *mtmp;
  1188. X    while ((mtmp = fdmon) != 0) {
  1189. X        fdmon = mtmp->nmon;
  1190. X        dealloc_monst(mtmp);
  1191. X    }
  1192. X}
  1193. X
  1194. X#endif /* OVL2 */
  1195. X#ifdef OVLB
  1196. X/* we do not free monsters immediately, in order to have their name
  1197. X   available shortly after their demise */
  1198. Xvoid
  1199. Xmonfree(mtmp)
  1200. Xregister struct monst *mtmp;
  1201. X{
  1202. X    mtmp->nmon = fdmon;
  1203. X    fdmon = mtmp;
  1204. X}
  1205. X
  1206. X/* called when monster is moved to larger structure */
  1207. Xvoid
  1208. Xreplmon(mtmp, mtmp2)
  1209. Xregister struct monst *mtmp, *mtmp2;
  1210. X{
  1211. X    relmon(mtmp);
  1212. X    monfree(mtmp);
  1213. X    place_monster(mtmp2, mtmp2->mx, mtmp2->my);
  1214. X    if (mtmp2->wormno)        /* update level.monsters[wseg->wx][wseg->wy] */
  1215. X    place_wsegs(mtmp2); /* locations to mtmp2 not mtmp. */
  1216. X    mtmp2->nmon = fmon;
  1217. X    fmon = mtmp2;
  1218. X    if (u.ustuck == mtmp) u.ustuck = mtmp2;
  1219. X    if (mtmp2->isshk) replshk(mtmp,mtmp2);
  1220. X}
  1221. X
  1222. X/* release mon from display and monster list */
  1223. Xvoid
  1224. Xrelmon(mon)
  1225. Xregister struct monst *mon;
  1226. X{
  1227. X    register struct monst *mtmp;
  1228. X
  1229. X    if (fmon == (struct monst *)0)  panic ("relmon: no fmon available.");
  1230. X
  1231. X    remove_monster(mon->mx, mon->my);
  1232. X
  1233. X    if(mon == fmon) fmon = fmon->nmon;
  1234. X    else {
  1235. X        for(mtmp = fmon; mtmp && mtmp->nmon != mon; mtmp = mtmp->nmon) ;
  1236. X        if(mtmp)    mtmp->nmon = mon->nmon;
  1237. X        else        panic("relmon: mon not in list.");
  1238. X    }
  1239. X}
  1240. X
  1241. X/* remove effects of mtmp from other data structures */
  1242. Xstatic void
  1243. Xm_detach(mtmp)
  1244. Xregister struct monst *mtmp;
  1245. X{
  1246. X#ifdef WALKIES
  1247. X    if(mtmp->mleashed) m_unleash(mtmp);
  1248. X#endif
  1249. X        /* to prevent an infinite relobj-flooreffects-hmon-killed loop */
  1250. X    mtmp->mtrapped = 0;
  1251. X    mtmp->mhp = 0; /* simplify some tests: force mhp to 0 */
  1252. X    relobj(mtmp, 0, FALSE);
  1253. X    relmon(mtmp);
  1254. X    newsym(mtmp->mx,mtmp->my);
  1255. X    unstuck(mtmp);
  1256. X    fill_pit(mtmp->mx, mtmp->my);
  1257. X
  1258. X    if(mtmp->isshk) shkgone(mtmp);
  1259. X    if(mtmp->wormno) wormgone(mtmp);
  1260. X}
  1261. X
  1262. Xvoid
  1263. Xmondead(mtmp)
  1264. Xregister struct monst *mtmp;
  1265. X{
  1266. X    int tmp, nk;
  1267. X
  1268. X    if(mtmp->isgd) {
  1269. X        /* if we're going to abort the death, it *must* be before
  1270. X         * the m_detach or there will be relmon problems later */
  1271. X        if(!grddead(mtmp)) return;
  1272. X    }
  1273. X
  1274. X    /* restore chameleon, lycanthropes to true form at death */
  1275. X    if(mtmp->cham) mtmp->data = &mons[PM_CHAMELEON];
  1276. X    if(mtmp->data == &mons[PM_WEREJACKAL])
  1277. X        mtmp->data = &mons[PM_HUMAN_WEREJACKAL];
  1278. X    if(mtmp->data == &mons[PM_WEREWOLF])
  1279. X        mtmp->data = &mons[PM_HUMAN_WEREWOLF];
  1280. X    if(mtmp->data == &mons[PM_WERERAT])
  1281. X        mtmp->data = &mons[PM_HUMAN_WERERAT];
  1282. X
  1283. X    /* if MAXMONNO monsters of a given type have died, and it
  1284. X     * can be done, extinguish that monster.
  1285. X     *
  1286. X     * u.nr_killed does double duty as total number of dead monsters
  1287. X     * and as experience factor for the player killing more monsters.
  1288. X     * this means that a dragon dying by other means reduces the
  1289. X     * experience the player gets for killing a dragon directly; this
  1290. X     * is probably not too bad, since the player likely finagled the
  1291. X     * first dead dragon via ring of conflict or pets, and extinguishing
  1292. X     * based on only player kills probably opens more avenues of abuse
  1293. X     * for rings of conflict and such.
  1294. X     */
  1295. X    tmp = monsndx(mtmp->data);
  1296. X    u.nr_killed[tmp]++;
  1297. X    nk = u.nr_killed[tmp];
  1298. X    if(nk > (tmp == PM_NAZGUL ? 9 : tmp == PM_ERINYES ? 3 : MAXMONNO) &&
  1299. X                !(mons[tmp].geno & (G_NOGEN | G_EXTINCT))) {
  1300. X#ifdef DEBUG
  1301. X        pline("Automatically extinguished %s.", makeplural(mons[tmp].mname));
  1302. X#endif
  1303. X        mons[tmp].geno |= G_EXTINCT;
  1304. X    }
  1305. X#ifdef MAIL
  1306. X    /* if the mail daemon dies, no more mail delivery.  -3. */
  1307. X    else if(tmp==PM_MAIL_DAEMON) mons[tmp].geno |= G_GENOD;
  1308. X#endif
  1309. X
  1310. X#ifdef KOPS
  1311. X    if(mtmp->data->mlet == S_KOP && allow_kops) {
  1312. X        /* Dead Kops may come back. */
  1313. X        switch(rnd(5)) {
  1314. X        case 1:         /* returns near the stairs */
  1315. X            (void) makemon(mtmp->data,xdnstair,ydnstair);
  1316. X            break;
  1317. X        case 2:         /* randomly */
  1318. X            (void) makemon(mtmp->data,0,0);
  1319. X            break;
  1320. X        default:
  1321. X            break;
  1322. X        }
  1323. X    }
  1324. X#endif
  1325. X    if(mtmp->iswiz) wizdead(mtmp);
  1326. X#ifdef MULDGN
  1327. X    if(mtmp->data->msound == MS_NEMESIS) nemdead();
  1328. X#endif
  1329. X    m_detach(mtmp);
  1330. X    monfree(mtmp);
  1331. X}
  1332. X
  1333. X/* drop (perhaps) a cadaver and remove monster */
  1334. Xvoid
  1335. Xmondied(mdef)
  1336. Xregister struct monst *mdef;
  1337. X{
  1338. X    mondead(mdef);
  1339. X    if(rn2(3)
  1340. X#ifdef REINCARNATION
  1341. X       && !Is_rogue_level(&u.uz)
  1342. X#endif
  1343. X                    )
  1344. X        (void) make_corpse(mdef);
  1345. X}
  1346. X
  1347. X/* monster disappears, not dies */
  1348. Xvoid
  1349. Xmongone(mdef)
  1350. Xregister struct monst *mdef;
  1351. X{
  1352. X    register struct obj *otmp, *otmp2;
  1353. X
  1354. X    /* release monster's inventory */
  1355. X    for (otmp = mdef->minvent; otmp; otmp = otmp2) {
  1356. X        otmp2 = otmp->nobj;
  1357. X        obfree(otmp, (struct obj *)0);
  1358. X    }
  1359. X    mdef->minvent = 0;
  1360. X    mdef->mgold = 0;
  1361. X    m_detach(mdef);
  1362. X    monfree(mdef);
  1363. X}
  1364. X
  1365. X/* drop a statue or rock and remove monster */
  1366. Xvoid
  1367. Xmonstone(mdef)
  1368. Xregister struct monst *mdef;
  1369. X{
  1370. X    struct obj *otmp, *contents;
  1371. X    xchar x = mdef->mx, y = mdef->my;
  1372. X
  1373. X    if((int)mdef->data->msize > MZ_TINY ||
  1374. X       !rn2(2 + ((mdef->data->geno & G_FREQ) > 2))) {
  1375. X        otmp = mk_named_object(STATUE, mdef->data, x, y,
  1376. X            NAME(mdef), (int)mdef->mnamelth);
  1377. X        contents = otmp->cobj = mdef->minvent;
  1378. X        while(contents) {
  1379. X            contents->owornmask = 0L;
  1380. X            contents = contents->nobj;
  1381. X        }
  1382. X        mdef->minvent = (struct obj *)0;
  1383. X        if (mdef->mgold) {
  1384. X            struct obj *au;
  1385. X            au = mksobj(GOLD_PIECE, FALSE, FALSE);
  1386. X            au->quan = mdef->mgold;
  1387. X            au->owt = weight(au);
  1388. X            mdef->mgold = 0;
  1389. X            au->nobj = otmp->cobj;
  1390. X            otmp->cobj = au;
  1391. X        }
  1392. X        otmp->owt = weight(otmp);
  1393. X    } else
  1394. X        otmp = mksobj_at(ROCK, x, y, TRUE);
  1395. X
  1396. X    mondead(mdef);
  1397. X
  1398. X    stackobj(otmp);
  1399. X    if (cansee(x, y)) newsym(x,y);
  1400. X}
  1401. X
  1402. X/* another monster has killed the monster mdef */
  1403. Xvoid
  1404. Xmonkilled(mdef, fltxt, how)
  1405. Xregister struct monst *mdef;
  1406. Xconst char *fltxt;
  1407. Xuchar how;
  1408. X{
  1409. X    if (cansee(mdef->mx, mdef->my) && fltxt)
  1410. X        pline("%s is %s%s%s!", Monnam(mdef),
  1411. X            (is_demon(mdef->data) || is_undead(mdef->data)) ?
  1412. X             "destroyed" : "killed",
  1413. X            *fltxt ? " by the " : "",
  1414. X            fltxt
  1415. X         );
  1416. X    else if(mdef->mtame)
  1417. X        You("have a sad feeling for a moment, then it passes.");
  1418. X
  1419. X    /* no corpses if digested */
  1420. X    if(how == AD_DGST)
  1421. X        mondead(mdef);
  1422. X    else
  1423. X        mondied(mdef);
  1424. X}
  1425. X
  1426. Xvoid
  1427. Xunstuck(mtmp)
  1428. Xregister struct monst *mtmp;
  1429. X{
  1430. X    if(u.ustuck == mtmp) {
  1431. X        if(u.uswallow){
  1432. X            u.ux = mtmp->mx;
  1433. X            u.uy = mtmp->my;
  1434. X            u.uswallow = 0;
  1435. X            u.uswldtim = 0;
  1436. X            if (Punished) placebc();
  1437. X            vision_full_recalc = 1;
  1438. X            docrt();
  1439. X        }
  1440. X        u.ustuck = 0;
  1441. X    }
  1442. X}
  1443. X
  1444. Xvoid
  1445. Xkilled(mtmp)
  1446. Xregister struct monst *mtmp;
  1447. X{
  1448. X    xkilled(mtmp, 1);
  1449. X}
  1450. X
  1451. X/* the player has killed the monster mtmp */
  1452. Xvoid
  1453. Xxkilled(mtmp, dest)
  1454. X    register struct monst *mtmp;
  1455. X/*
  1456. X * Dest=1, normal; dest=0, don't print message; dest=2, don't drop corpse
  1457. X * either; dest=3, message but no corpse
  1458. X */
  1459. X    int    dest;
  1460. X{
  1461. X    register int tmp, x = mtmp->mx, y = mtmp->my;
  1462. X    register struct permonst *mdat;
  1463. X    register struct obj *otmp;
  1464. X    register struct trap *t;
  1465. X    boolean chance, redisp = FALSE;
  1466. X    boolean wasinside = u.uswallow && (u.ustuck == mtmp);
  1467. X
  1468. X    if (dest & 1) {
  1469. X        if(!canseemon(mtmp) && !sensemon(mtmp)) You("destroy it!");
  1470. X        else {
  1471. X        You("destroy %s!",
  1472. X            mtmp->mtame ? x_monnam(mtmp, 0, "poor", 0)
  1473. X            : mon_nam(mtmp));
  1474. X        }
  1475. X    }
  1476. X
  1477. X    if (mtmp->mtrapped &&
  1478. X        ((t = t_at(x, y)) && (t->ttyp == PIT || t->ttyp == SPIKED_PIT)) &&
  1479. X        sobj_at(BOULDER, x, y))
  1480. X        dest ^= 2; /*
  1481. X                * Prevent corpses/treasure being created "on top"
  1482. X                * of the boulder that is about to fall in. This is
  1483. X                * out of order, but cannot be helped unless this
  1484. X                * whole routine is rearranged.
  1485. X                */
  1486. X
  1487. X    /* dispose of monster and make cadaver */
  1488. X    if(stoned) monstone(mtmp);
  1489. X    else mondead(mtmp);
  1490. X
  1491. X    mdat = mtmp->data; /* note: mondead can change mtmp->data */
  1492. X
  1493. X    if (stoned) {
  1494. X        stoned = FALSE;
  1495. X        goto cleanup;
  1496. X    }
  1497. X
  1498. X    if((dest & 2)
  1499. X#ifdef REINCARNATION
  1500. X         || Is_rogue_level(&u.uz)
  1501. X#endif
  1502. X       || (mdat == &mons[PM_WRAITH] && Is_valley(&u.uz) && rn2(5)))
  1503. X        goto cleanup;
  1504. X
  1505. X#ifdef MAIL
  1506. X    if(mdat == &mons[PM_MAIL_DAEMON]) {
  1507. X        (void) mksobj_at(SCR_MAIL, x, y, FALSE);
  1508. X        stackobj(fobj);
  1509. X        redisp = TRUE;
  1510. X    }
  1511. X#endif
  1512. X    if(!accessible(x, y)) {
  1513. X        /* might be mimic in wall or dead eel or in a pool or lava */
  1514. X        redisp = TRUE;
  1515. X        if(wasinside) spoteffects();
  1516. X    } else if(x != u.ux || y != u.uy) {
  1517. X        /* might be here after swallowed */
  1518. X        if (!rn2(6) && !(mdat->geno & G_NOCORPSE)
  1519. X#ifdef KOPS
  1520. X                    && mdat->mlet != S_KOP
  1521. X#endif
  1522. X                            ) {
  1523. X            int typ;
  1524. X
  1525. X            otmp = mkobj_at(RANDOM_CLASS, x, y, TRUE);
  1526. X            /* Don't create large objects from small monsters */
  1527. X            typ = otmp->otyp;
  1528. X            if (mdat->msize < MZ_HUMAN && typ != FOOD_RATION
  1529. X#ifdef WALKIES
  1530. X                && typ != LEASH
  1531. X#endif
  1532. X                && typ != FIGURINE
  1533. X                && (otmp->owt > 3 ||
  1534. X                (typ >= SPEAR && typ <= LANCE) ||
  1535. X                (typ >= SCIMITAR && typ <= KATANA) ||
  1536. X                (typ == MORNING_STAR || typ == QUARTERSTAFF) ||
  1537. X                (typ >= BARDICHE && typ <= VOULGE) ||
  1538. X                (typ >= PLATE_MAIL &&
  1539. X                        typ <= YELLOW_DRAGON_SCALE_MAIL) ||
  1540. X                (typ == LARGE_SHIELD))) {
  1541. X                delobj(otmp);
  1542. X            } else redisp = TRUE;
  1543. X        }
  1544. X        /* Whether or not it always makes a corpse is, in theory,
  1545. X         * different from whether or not the corpse is "special";
  1546. X         * if we want both, we have to specify it explicitly.
  1547. X         */
  1548. X        if (bigmonst(mdat) || mdat == &mons[PM_LIZARD]
  1549. X               || is_golem(mdat)
  1550. X               || is_mplayer(mdat)
  1551. X               || is_rider(mdat))
  1552. X            chance = 1;
  1553. X        else chance = !rn2((int)
  1554. X            (2 + ((mdat->geno & G_FREQ)<2) + verysmall(mdat)));
  1555. X        if (chance)
  1556. X            (void) make_corpse(mtmp);
  1557. X    }
  1558. X    if(redisp) newsym(x,y);
  1559. Xcleanup:
  1560. X    /* punish bad behaviour */
  1561. X    if(is_human(mdat) && !always_hostile(mdat) &&
  1562. X       (monsndx(mdat) < PM_ARCHEOLOGIST || monsndx(mdat) > PM_WIZARD) &&
  1563. X       u.ualign.type != A_CHAOTIC) {
  1564. X        HTelepat &= ~INTRINSIC;
  1565. X        change_luck(-2);
  1566. X        if (Blind && !Telepat)
  1567. X            see_monsters(); /* Can't sense monsters any more. */
  1568. X    }
  1569. X    if((mtmp->mpeaceful && !rn2(2)) || mtmp->mtame)    change_luck(-1);
  1570. X    if (mdat->mlet == S_UNICORN &&
  1571. X                sgn(u.ualign.type) == sgn(mdat->maligntyp))
  1572. X        change_luck(-5);
  1573. X
  1574. X    /* give experience points */
  1575. X    tmp = experience(mtmp, u.nr_killed[monsndx(mdat)] + 1);
  1576. X    more_experienced(tmp, 0);
  1577. X    newexplevel();        /* will decide if you go up */
  1578. X
  1579. X    /* adjust alignment points */
  1580. X#ifdef MULDGN
  1581. X    if(mdat->msound == MS_LEADER)        /* REAL BAD! */
  1582. X        adjalign(-(u.ualign.record+(int)ALIGNLIM/2));
  1583. X    else if(mdat->msound == MS_NEMESIS)    /* Real good! */
  1584. X        adjalign((int)(ALIGNLIM/4));
  1585. X    else if(mdat->msound == MS_GUARDIAN)    /* Bad */
  1586. X        adjalign(-(int)(ALIGNLIM/8));
  1587. X    else
  1588. X#endif
  1589. X        if (mtmp->ispriest) {
  1590. X        adjalign((p_coaligned(mtmp)) ? -2 : 2);
  1591. X        if(mdat->maligntyp == A_NONE)
  1592. X            adjalign((int)(ALIGNLIM / 4));        /* BIG bonus */
  1593. X    } else if(mtmp->mtame)
  1594. X        adjalign(-15);    /* bad!! */
  1595. X    else if (mtmp->mpeaceful)
  1596. X        adjalign(-5);
  1597. X
  1598. X    /* malign was already adjusted for u.ualign.type and randomization */
  1599. X    adjalign(mtmp->malign);
  1600. X}
  1601. X
  1602. X/* changes the monster into a stone monster of the same type */
  1603. X/* this should only be called when poly_when_stoned() is true */
  1604. Xvoid
  1605. Xmon_to_stone(mtmp)
  1606. X    register struct monst *mtmp;
  1607. X{
  1608. X    if(mtmp->data->mlet == S_GOLEM) {
  1609. X    /* it's a golem, and not a stone golem */
  1610. X    if(canseemon(mtmp))
  1611. X        pline("%s solidifies...", Monnam(mtmp));
  1612. X    (void) newcham(mtmp, &mons[PM_STONE_GOLEM]);
  1613. X    if(canseemon(mtmp))
  1614. X        pline("Now it's %s", a_monnam(mtmp));
  1615. X    } else
  1616. X    impossible("Can't polystone %s", a_monnam(mtmp));
  1617. X}
  1618. X
  1619. Xvoid
  1620. Xmnexto(mtmp)    /* Make monster mtmp next to you (if possible) */
  1621. X    struct monst *mtmp;
  1622. X{
  1623. X    coord mm;
  1624. X
  1625. X    if(!enexto(&mm, u.ux, u.uy, mtmp->data)) return;
  1626. X
  1627. X    rloc_to(mtmp, mm.x, mm.y);
  1628. X}
  1629. X
  1630. X/* mnearto()
  1631. X * Put monster near (or at) location if possible.
  1632. X * Returns:
  1633. X *    1 - if a monster was moved from x, y to put mtmp at x, y.
  1634. X *    0 - in most cases.
  1635. X */
  1636. Xboolean
  1637. Xmnearto(mtmp,x,y,move_other)
  1638. Xregister struct monst *mtmp;
  1639. Xxchar x, y;
  1640. Xboolean move_other;    /* make sure mtmp gets to x, y! so move m_at(x, y) */
  1641. X{
  1642. X    struct monst *othermon = (struct monst *)0;
  1643. X    xchar newx, newy;
  1644. X    coord mm;
  1645. X
  1646. X    if ((mtmp->mx == x) && (mtmp->my == y)) return(FALSE);
  1647. X
  1648. X    if (move_other && (othermon = m_at(x, y))) {
  1649. X        if (othermon->wormno)
  1650. X            remove_worm(othermon);
  1651. X        else
  1652. X            remove_monster(x, y);
  1653. X    }
  1654. X
  1655. X    newx = x;
  1656. X    newy = y;
  1657. X
  1658. X    if (!goodpos(newx, newy, mtmp, mtmp->data)) {
  1659. X        /* actually we have real problems if enexto ever fails.
  1660. X         * migrating_mons that need to be placed will cause
  1661. X         * no end of trouble.
  1662. X         */
  1663. X        if (!enexto(&mm, newx, newy, mtmp->data)) return(FALSE);
  1664. X        newx = mm.x; newy = mm.y;
  1665. X    }
  1666. X
  1667. X    rloc_to(mtmp, newx, newy);
  1668. X
  1669. X    if (move_other && othermon) {
  1670. X        othermon->mx = othermon->my = 0;
  1671. X        (void) mnearto(othermon, x, y, FALSE);
  1672. X        if ((othermon->mx != x) || (othermon->my != y))
  1673. X        return(TRUE);
  1674. X    }
  1675. X
  1676. X    return(FALSE);
  1677. X}
  1678. X
  1679. X
  1680. Xstatic const char *poiseff[] = {
  1681. X
  1682. X    " feel very weak", "r brain is on fire",
  1683. X    "r judgement is impaired", "r muscles won't obey you",
  1684. X    " feel very sick", " break out in hives"
  1685. X};
  1686. X
  1687. Xvoid
  1688. Xpoisontell(typ)
  1689. X
  1690. X    int    typ;
  1691. X{
  1692. X    pline("You%s.", poiseff[typ]);
  1693. X}
  1694. X
  1695. Xvoid
  1696. Xpoisoned(string, typ, pname, fatal)
  1697. Xregister const char *string, *pname;
  1698. Xregister int  typ, fatal;
  1699. X{
  1700. X    register int i, plural;
  1701. X    boolean thrown_weapon = !strncmp(string, "poison", 6);
  1702. X        /* admittedly a kludge... */
  1703. X
  1704. X    if(strcmp(string, "blast") && !thrown_weapon) {
  1705. X        /* 'blast' has already given a 'poison gas' message */
  1706. X        /* so have "poison arrow", "poison dart", etc... */
  1707. X        plural = (string[strlen(string) - 1] == 's')? 1 : 0;
  1708. X        /* avoid "The" Orcus's sting was poisoned... */
  1709. X        pline("%s%s %s poisoned!", isupper(*string) ? "" : "The ",
  1710. X            string, plural ? "were" : "was");
  1711. X    }
  1712. X
  1713. X    if(Poison_resistance) {
  1714. X        if(!strcmp(string, "blast")) shieldeff(u.ux, u.uy);
  1715. X        pline("The poison doesn't seem to affect you.");
  1716. X        return;
  1717. X    }
  1718. X    i = rn2(fatal + 20*thrown_weapon);
  1719. X    if(i == 0 && typ != A_CHA) {
  1720. X        u.uhp = -1;
  1721. X        pline("The poison was deadly...");
  1722. X    } else if(i <= 5) {
  1723. X        pline("You%s!", poiseff[typ]);
  1724. X        (void) adjattrib(typ, thrown_weapon ? -1 : -rn1(3,3), TRUE);
  1725. X    } else {
  1726. X        i = thrown_weapon ? rnd(6) : rn1(10,6);
  1727. X        if(Half_physical_damage) i = (i+1) / 2;
  1728. X        losehp(i, pname, KILLED_BY_AN);
  1729. X    }
  1730. X    if(u.uhp < 1) {
  1731. X        killer_format = KILLED_BY_AN;
  1732. X        killer = pname;
  1733. X        done(POISONING);
  1734. X    }
  1735. X}
  1736. X
  1737. X/* monster responds to player action; not the same as a passive attack */
  1738. X/* assumes reason for response has been tested, and response _must_ be made */
  1739. Xvoid
  1740. Xm_respond(mtmp)
  1741. Xregister struct monst *mtmp;
  1742. X{
  1743. X    if(mtmp->data->msound == MS_SHRIEK) {
  1744. X    if(flags.soundok)
  1745. X        pline("%s shrieks.", Monnam(mtmp));
  1746. X    aggravate();
  1747. X    }
  1748. X}
  1749. X
  1750. X#endif /* OVLB */
  1751. X#ifdef OVL2
  1752. X
  1753. Xvoid
  1754. Xsetmangry(mtmp)
  1755. Xregister struct monst *mtmp;
  1756. X{
  1757. X    mtmp->data->mflags3 &= ~M3_WAITMASK;
  1758. X    if(!mtmp->mpeaceful) return;
  1759. X    if(mtmp->mtame) return;
  1760. X    mtmp->mpeaceful = 0;
  1761. X    if(mtmp->ispriest) {
  1762. X        if(p_coaligned(mtmp)) adjalign(-5); /* very bad */
  1763. X        else adjalign(2);
  1764. X    } else
  1765. X        adjalign(-1);        /* attacking peaceful monsters is bad */
  1766. X    if(humanoid(mtmp->data) || mtmp->isshk || mtmp->isgd)
  1767. X        pline("%s gets angry!", Monnam(mtmp));
  1768. X#ifdef SOUNDS
  1769. X    else if (flags.verbose && flags.soundok) growl(mtmp);
  1770. X#endif
  1771. X}
  1772. X
  1773. Xvoid
  1774. Xwakeup(mtmp)
  1775. Xregister struct monst *mtmp;
  1776. X{
  1777. X    mtmp->msleep = 0;
  1778. X    mtmp->meating = 0;    /* assume there's no salvagable food left */
  1779. X    setmangry(mtmp);
  1780. X    if(mtmp->m_ap_type) seemimic(mtmp);
  1781. X}
  1782. X
  1783. X/* Wake up nearby monsters. */
  1784. Xvoid
  1785. Xwake_nearby()
  1786. X{
  1787. X    register struct monst *mtmp;
  1788. X
  1789. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1790. X        if (distu(mtmp->mx,mtmp->my) < u.ulevel*20) {
  1791. X        if(mtmp->msleep)  mtmp->msleep = 0;
  1792. X        if(mtmp->mtame)   EDOG(mtmp)->whistletime = moves;
  1793. X        }
  1794. X    }
  1795. X}
  1796. X
  1797. X/* NOTE: we must check for mimicry before calling this routine */
  1798. Xvoid
  1799. Xseemimic(mtmp)
  1800. Xregister struct monst *mtmp;
  1801. X{
  1802. X    /*
  1803. X     *  Discovered mimics don't block light.
  1804. X     */
  1805. X    if ((mtmp->m_ap_type == M_AP_FURNITURE &&
  1806. X        (mtmp->mappearance==S_hcdoor || mtmp->mappearance==S_vcdoor))||
  1807. X        (mtmp->m_ap_type == M_AP_OBJECT && mtmp->mappearance == BOULDER))
  1808. X        unblock_point(mtmp->mx,mtmp->my);
  1809. X
  1810. X    mtmp->m_ap_type = M_AP_NOTHING;
  1811. X    mtmp->mappearance = 0;
  1812. X    newsym(mtmp->mx,mtmp->my);
  1813. X}
  1814. X
  1815. X/* force all chameleons to become normal */
  1816. Xvoid
  1817. Xrescham()
  1818. X{
  1819. X    register struct monst *mtmp;
  1820. X
  1821. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1822. X        if(mtmp->cham) {
  1823. X            mtmp->cham = 0;
  1824. X            (void) newcham(mtmp, &mons[PM_CHAMELEON]);
  1825. X        }
  1826. X        if(is_were(mtmp->data) && mtmp->data->mlet != S_HUMAN)
  1827. X            new_were(mtmp);
  1828. X        if(mtmp->m_ap_type && cansee(mtmp->mx, mtmp->my)) {
  1829. X            seemimic(mtmp);
  1830. X            /* we pretend that the mimic doesn't */
  1831. X            /* know that it has been unmasked.   */
  1832. X            mtmp->msleep = 1;
  1833. X        }
  1834. X    }
  1835. X}
  1836. X
  1837. X/* Let the chameleons change again -dgk */
  1838. Xvoid
  1839. Xrestartcham()
  1840. X{
  1841. X    register struct monst *mtmp;
  1842. X
  1843. X    for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  1844. X        if (mtmp->data == &mons[PM_CHAMELEON])
  1845. X            mtmp->cham = 1;
  1846. X        if(mtmp->data->mlet == S_MIMIC && mtmp->msleep &&
  1847. X                cansee(mtmp->mx, mtmp->my)) {
  1848. X            set_mimic_sym(mtmp);
  1849. X            newsym(mtmp->mx,mtmp->my);
  1850. X        }
  1851. X    }
  1852. X}
  1853. X
  1854. X/* unwatched hiders may hide again; if so, a 1 is returned.  */
  1855. XSTATIC_OVL boolean
  1856. Xrestrap(mtmp)
  1857. Xregister struct monst *mtmp;
  1858. X{
  1859. X    if(mtmp->cham || mtmp->mcan || mtmp->m_ap_type ||
  1860. X       cansee(mtmp->mx, mtmp->my) || rn2(3) || (mtmp == u.ustuck))
  1861. X        return(FALSE);
  1862. X
  1863. X    if(mtmp->data->mlet == S_MIMIC) {
  1864. X        set_mimic_sym(mtmp);
  1865. X        return(TRUE);
  1866. X    } else
  1867. X        if(levl[mtmp->mx][mtmp->my].typ == ROOM)  {
  1868. X        mtmp->mundetected = 1;
  1869. X        return(TRUE);
  1870. X        }
  1871. X
  1872. X    return(FALSE);
  1873. X}
  1874. X
  1875. X/* make a chameleon look like a new monster; returns 1 if it actually changed */
  1876. Xint
  1877. Xnewcham(mtmp, mdat)
  1878. Xregister struct monst *mtmp;
  1879. Xregister struct permonst *mdat;
  1880. X{
  1881. X    register int mhp, hpn, hpd;
  1882. X    int tryct;
  1883. X    struct permonst *olddata = mtmp->data;
  1884. X
  1885. X    /* mdat = 0 -> caller wants a random monster shape */
  1886. X    tryct = 0;
  1887. X    if(mdat == 0) {
  1888. X        while (++tryct < 100) {
  1889. X            mdat = &mons[rn2(NUMMONS)];
  1890. X            /* polyok rules out all M2_PNAME and M2_WERE's */
  1891. X            if (!is_human(mdat) && polyok(mdat)
  1892. X                    && !(mdat->geno & G_GENOD))
  1893. X                break;
  1894. X        }
  1895. X        if (tryct >= 100) return(0); /* Should never happen */
  1896. X    }
  1897. X
  1898. X    if(is_male(mdat)) {
  1899. X        if(mtmp->female) mtmp->female = FALSE;
  1900. X    } else if (is_female(mdat)) {
  1901. X        if(!mtmp->female) mtmp->female = TRUE;
  1902. X    } else if (!is_neuter(mdat)) {
  1903. X        if(!rn2(10)) mtmp->female = !mtmp->female;
  1904. X    }
  1905. X
  1906. X    if(mdat == mtmp->data) return(0);    /* still the same monster */
  1907. X
  1908. X    if(mtmp->wormno) {            /* throw tail away */
  1909. X        wormgone(mtmp);
  1910. X        place_monster(mtmp, mtmp->mx, mtmp->my);
  1911. X    }
  1912. X
  1913. X    hpn = mtmp->mhp;
  1914. X    hpd = (mtmp->m_lev < 50) ? ((int)mtmp->m_lev)*8 : mdat->mlevel;
  1915. X    if(!hpd) hpd = 4;
  1916. X
  1917. X    mtmp->m_lev = adj_lev(mdat);        /* new monster level */
  1918. X
  1919. X    mhp = (mtmp->m_lev < 50) ? ((int)mtmp->m_lev)*8 : mdat->mlevel;
  1920. X    if(!mhp) mhp = 4;
  1921. X
  1922. X    /* new hp: same fraction of max as before */
  1923. X#ifndef LINT
  1924. X    mtmp->mhp = (int)(((long)hpn*(long)mhp)/(long)hpd);
  1925. X#endif
  1926. X    if(mtmp->mhp < 0) mtmp->mhp = hpn;    /* overflow */
  1927. X/* Unlikely but not impossible; a 1HD creature with 1HP that changes into a
  1928. X   0HD creature will require this statement */
  1929. X    if (!mtmp->mhp) mtmp->mhp = 1;
  1930. X
  1931. X/* and the same for maximum hit points */
  1932. X    hpn = mtmp->mhpmax;
  1933. X#ifndef LINT
  1934. X    mtmp->mhpmax = (int)(((long)hpn*(long)mhp)/(long)hpd);
  1935. X#endif
  1936. X    if(mtmp->mhpmax < 0) mtmp->mhpmax = hpn;    /* overflow */
  1937. X    if (!mtmp->mhpmax) mtmp->mhpmax = 1;
  1938. X
  1939. X    mtmp->data = mdat;
  1940. X    mtmp->minvis = !!(mdat->mlet == S_STALKER);
  1941. X    if (!hides_under(mdat) || !OBJ_AT(mtmp->mx, mtmp->my))
  1942. X        mtmp->mundetected = 0;
  1943. X    if (u.ustuck == mtmp) {
  1944. X        if(u.uswallow) {
  1945. X            if(!attacktype(mdat,AT_ENGL)) {
  1946. X                /* Does mdat care? */
  1947. X                if (!noncorporeal(mdat) && !amorphous(mdat) &&
  1948. X                    !is_whirly(mdat) &&
  1949. X                    (mdat != &mons[PM_YELLOW_LIGHT])) {
  1950. X                    You("break out of %s%s!", mon_nam(mtmp),
  1951. X                        (is_animal(mdat)?
  1952. X                        "'s stomach" : ""));
  1953. X                    mtmp->mhp = 1;  /* almost dead */
  1954. X                }
  1955. X                expels(mtmp, olddata, FALSE);
  1956. X            }
  1957. X        } else {
  1958. X            if(!sticks(mdat)
  1959. X#ifdef POLYSELF
  1960. X                && !sticks(uasmon)
  1961. X#endif
  1962. X                )
  1963. X                unstuck(mtmp);
  1964. X        }
  1965. X    }
  1966. X
  1967. X    if ( (mdat == &mons[PM_LONG_WORM]) && (mtmp->wormno = get_wormno()) ) {
  1968. X        /* we can now create worms with tails - 11/91 */
  1969. X        initworm(mtmp, rn2(5));
  1970. X        if (count_wsegs(mtmp))
  1971. X        place_worm_tail_randomly(mtmp, mtmp->mx, mtmp->my);
  1972. X    }
  1973. X
  1974. X    newsym(mtmp->mx,mtmp->my);
  1975. X#ifdef MUSE
  1976. X    mon_break_armor(mtmp);
  1977. X    possibly_unwield(mtmp);
  1978. X#endif
  1979. X    return(1);
  1980. X}
  1981. X
  1982. X#endif /* OVL2 */
  1983. X#ifdef OVLB
  1984. X
  1985. Xvoid
  1986. Xgolemeffects(mon, damtype, dam)
  1987. Xregister struct monst *mon;
  1988. Xint damtype, dam;
  1989. X{
  1990. X    int heal=0, slow=0;
  1991. X
  1992. X    if (mon->data != &mons[PM_FLESH_GOLEM]
  1993. X                    && mon->data != &mons[PM_IRON_GOLEM])
  1994. X        return;
  1995. X
  1996. X    if (mon->data == &mons[PM_FLESH_GOLEM]) {
  1997. X        if (damtype == AD_ELEC) heal = dam / 6;
  1998. X        else if (damtype == AD_FIRE || damtype == AD_COLD) slow = 1;
  1999. X    } else {
  2000. X        if (damtype == AD_ELEC) slow = 1;
  2001. X        else if (damtype == AD_FIRE) heal = dam;
  2002. X    }
  2003. X    if (slow) {
  2004. X        if (mon->mspeed != MSLOW) {
  2005. X            if (mon->mspeed == MFAST) mon->mspeed = 0;
  2006. X            else mon->mspeed = MSLOW;
  2007. X            if (cansee(mon->mx, mon->my))
  2008. X                pline("%s seems to be moving slower.",
  2009. X                    Monnam(mon));
  2010. X        }
  2011. X    }
  2012. X    if (heal) {
  2013. X        if (mon->mhp < mon->mhpmax) {
  2014. X            mon->mhp += dam;
  2015. X            if (mon->mhp > mon->mhpmax) mon->mhp = mon->mhpmax;
  2016. X            if (cansee(mon->mx, mon->my))
  2017. X                pline("%s seems healthier.", Monnam(mon));
  2018. X        }
  2019. X    }
  2020. X}
  2021. X
  2022. Xboolean
  2023. Xangry_guards(silent)
  2024. Xregister boolean silent;
  2025. X{
  2026. X    register struct monst *mtmp;
  2027. X    register int ct = 0, nct = 0, sct = 0, slct = 0;
  2028. X
  2029. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  2030. X        if((mtmp->data == &mons[PM_WATCHMAN] ||
  2031. X                   mtmp->data == &mons[PM_WATCH_CAPTAIN])
  2032. X                    && mtmp->mpeaceful) {
  2033. X            ct++;
  2034. X            if(cansee(mtmp->mx, mtmp->my) && mtmp->mcanmove) {
  2035. X                if (distu(mtmp->mx, mtmp->my) == 2) nct++;
  2036. X                else sct++;
  2037. X            }
  2038. X            if(mtmp->msleep || mtmp->mfrozen) {
  2039. X                slct++;
  2040. X                mtmp->msleep = mtmp->mfrozen = 0;
  2041. X            }
  2042. X            mtmp->mpeaceful = 0;
  2043. X        }
  2044. X    }
  2045. X    if(ct) {
  2046. X        if(!silent) { /* do we want pline msgs? */
  2047. X        if(slct) pline("The guard%s wake%s up!",
  2048. X                 slct > 1 ? "s" : "", slct == 1 ? "s" : "");
  2049. X        if(nct || sct) {
  2050. X            if(nct) pline("The guard%s get%s angry!",
  2051. X                nct == 1 ? "" : "s", nct == 1 ? "s" : "");
  2052. X            else if(!Blind)
  2053. X                You("see %sangry guard%s approaching!",
  2054. X                  sct == 1 ? "an " : "", sct > 1 ? "s" : "");
  2055. X        } else if(flags.soundok)
  2056. X            You("hear the shrill sound of a guard's whistle.");
  2057. X        }
  2058. X        return(TRUE);
  2059. X    }
  2060. X    return(FALSE);
  2061. X}
  2062. X
  2063. Xvoid
  2064. Xpacify_guards()
  2065. X{
  2066. X    register struct monst *mtmp;
  2067. X
  2068. X    for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
  2069. X        if (mtmp->data == &mons[PM_WATCHMAN] ||
  2070. X        mtmp->data == &mons[PM_WATCH_CAPTAIN])
  2071. X        mtmp->mpeaceful = 1;
  2072. X    }
  2073. X}
  2074. X#endif /* OVLB */
  2075. X
  2076. X/*mon.c*/
  2077. END_OF_FILE
  2078. if test 42736 -ne `wc -c <'src/mon.c'`; then
  2079.     echo shar: \"'src/mon.c'\" unpacked with wrong size!
  2080. fi
  2081. # end of 'src/mon.c'
  2082. fi
  2083. echo shar: End of archive 21 \(of 108\).
  2084. cp /dev/null ark21isdone
  2085. MISSING=""
  2086. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  2087. 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 \
  2088. 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 \
  2089. 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 \
  2090. 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 \
  2091. 101 102 103 104 105 106 107 108 ; do
  2092.     if test ! -f ark${I}isdone ; then
  2093.     MISSING="${MISSING} ${I}"
  2094.     fi
  2095. done
  2096. if test "${MISSING}" = "" ; then
  2097.     echo You have unpacked all 108 archives.
  2098.     echo "Now execute 'rebuild.sh'"
  2099.     rm -f ark10[0-8]isdone ark[1-9]isdone ark[1-9][0-9]isdone
  2100. else
  2101.     echo You still need to unpack the following archives:
  2102.     echo "        " ${MISSING}
  2103. fi
  2104. ##  End of shell archive.
  2105. exit 0
  2106.