home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume16 / nethck31 / part90 < prev    next >
Encoding:
Internet Message Format  |  1993-02-05  |  58.2 KB
  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: v16i098:  nethack31 - display oriented dungeons & dragons (Ver. 3.1), Part90/108
  5. Message-ID: <4463@master.CNA.TEK.COM>
  6. Date: 5 Feb 93 22:02:33 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1958
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1649
  11.  
  12. Submitted-by: izchak@linc.cis.upenn.edu (Izchak Miller)
  13. Posting-number: Volume 16, Issue 98
  14. Archive-name: nethack31/Part90
  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 90 (of 108)."
  27. # Contents:  dat/Barb.des include/winX.h src/mondata.c
  28. #   sys/mac/macmain.c sys/share/termcap
  29. # Wrapped by billr@saab on Wed Jan 27 16:09:23 1993
  30. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  31. if test -f 'dat/Barb.des' -a "${1}" != "-c" ; then 
  32.   echo shar: Will not clobber existing file \"'dat/Barb.des'\"
  33. else
  34. echo shar: Extracting \"'dat/Barb.des'\" \(13280 characters\)
  35. sed "s/^X//" >'dat/Barb.des' <<'END_OF_FILE'
  36. X#    SCCS Id: @(#)Barb.des    3.1    91/12/22
  37. X#    Copyright (c) 1989 by Jean-Christophe Collet
  38. X#    Copyright (c) 1991 by M. Stephenson
  39. X# NetHack may be freely redistributed.  See license for details.
  40. X#
  41. X#    The "start" level for the quest.
  42. X#
  43. X#    Here you meet your (besieged) class leader, Pelias,
  44. X#    and receive your quest assignment.
  45. X#
  46. XMAZE: "B-start",' '
  47. XFLAGS: noteleport,hardfloor
  48. XGEOMETRY:center,center
  49. XMAP
  50. X..................................PP........................................
  51. X...................................PP.......................................
  52. X...................................PP.......................................
  53. X....................................PP......................................
  54. X........--------------......-----....PPP....................................
  55. X........|...S........|......+...|...PPP.....................................
  56. X........|----........|......|...|....PP.....................................
  57. X........|.\..........+......-----...........................................
  58. X........|----........|...............PP.....................................
  59. X........|...S........|...-----.......PPP....................................
  60. X........--------------...+...|......PPPPP...................................
  61. X.........................|...|.......PPP....................................
  62. X...-----......-----......-----........PP....................................
  63. X...|...+......|...+..--+--.............PP...................................
  64. X...|...|......|...|..|...|..............PP..................................
  65. X...-----......-----..|...|.............PPPP.................................
  66. X.....................-----............PP..PP................................
  67. X.....................................PP...PP................................
  68. X....................................PP...PP.................................
  69. X....................................PP....PP................................
  70. XENDMAP
  71. X# Random Monsters
  72. XRANDOM_MONSTERS: 'O', 'T'
  73. X# Dungeon Description
  74. XREGION:(00,00,75,19),lit,"ordinary"
  75. XREGION:(09,05,11,05),unlit,"ordinary"
  76. XREGION:(09,07,11,07),lit,"ordinary"
  77. XREGION:(09,09,11,09),unlit,"ordinary"
  78. XREGION:(13,05,20,09),lit,"ordinary"
  79. XREGION:(29,05,31,06),lit,"ordinary"
  80. XREGION:(26,10,28,11),lit,"ordinary"
  81. XREGION:(04,13,06,14),lit,"ordinary"
  82. XREGION:(15,13,17,14),lit,"ordinary"
  83. XREGION:(22,14,24,15),lit,"ordinary"
  84. X# Stairs
  85. XSTAIR:(09,09),down
  86. X# Portal arrival point
  87. XBRANCH:(62,02,62,02),(0,0,0,0)
  88. X# Doors
  89. XDOOR:locked,(12,05)
  90. XDOOR:locked,(12,09)
  91. XDOOR:closed,(21,07)
  92. XDOOR:open,(07,13)
  93. XDOOR:open,(18,13)
  94. XDOOR:open,(23,13)
  95. XDOOR:open,(25,10)
  96. XDOOR:open,(28,05)
  97. X# Elder
  98. XMONSTER:'@',"Pelias",(10,07)
  99. X# The treasure of Pelias
  100. XOBJECT:'(',"chest",(09,05)
  101. X# chieftain guards for the audience chamber
  102. XMONSTER:'@',"chieftain",(10,05)
  103. XMONSTER:'@',"chieftain",(10,09)
  104. XMONSTER:'@',"chieftain",(11,05)
  105. XMONSTER:'@',"chieftain",(11,09)
  106. XMONSTER:'@',"chieftain",(14,05)
  107. XMONSTER:'@',"chieftain",(14,09)
  108. XMONSTER:'@',"chieftain",(16,05)
  109. XMONSTER:'@',"chieftain",(16,09)
  110. X# Non diggable walls
  111. XNON_DIGGABLE:(00,00,75,19)
  112. X# One trap to keep the ogres at bay.
  113. XTRAP:"spiked pit",(37,07)
  114. X# Eels in the river
  115. XMONSTER:';',"giant eel",(36,01)
  116. XMONSTER:';',"giant eel",(37,09)
  117. XMONSTER:';',"giant eel",(38,15)
  118. X# Monsters on siege duty.
  119. XMONSTER:'O',"ogre",(40,08),hostile
  120. XMONSTER:'O',"ogre",(41,06),hostile
  121. XMONSTER:'O',"ogre",(41,07),hostile
  122. XMONSTER:'O',"ogre",(41,08),hostile
  123. XMONSTER:'O',"ogre",(41,09),hostile
  124. XMONSTER:'O',"ogre",(41,10),hostile
  125. XMONSTER:'O',"ogre",(42,06),hostile
  126. XMONSTER:'O',"ogre",(42,07),hostile
  127. XMONSTER:'O',"ogre",(42,08),hostile
  128. XMONSTER:'O',"ogre",(42,09),hostile
  129. XMONSTER:'O',"ogre",(42,10),hostile
  130. X 
  131. X#
  132. X#    The "locate" level for the quest.
  133. X#
  134. X#    Here you have to infiltrate the Duali Oasis to go
  135. X#    further towards your assigned quest.
  136. X#
  137. X
  138. XMAZE: "B-locate",' '
  139. XFLAGS: hardfloor
  140. XGEOMETRY:center,center
  141. XMAP
  142. X..........PPP.........................................                      
  143. X...........PP..........................................        .......      
  144. X..........PP...........-----..........------------------     ..........     
  145. X...........PP..........+...|..........|....S...........|..  ............    
  146. X..........PPP..........|...|..........|-----...........|...  .............  
  147. X...........PPP.........-----..........+....+...........|...  .............  
  148. X..........PPPPPPPPP...................+....+...........S.................   
  149. X........PPPPPPPPPPPPP.........-----...|-----...........|................    
  150. X......PPPPPPPPPPPPPP..P.......+...|...|....S...........|          ...       
  151. X.....PPPPPPP......P..PPPP.....|...|...------------------..         ...      
  152. X....PPPPPPP.........PPPPPP....-----........................      ........   
  153. X...PPPPPPP..........PPPPPPP..................................   ..........  
  154. X....PPPPPPP........PPPPPPP....................................  ..........  
  155. X.....PPPPP........PPPPPPP.........-----........................   ........  
  156. X......PPP..PPPPPPPPPPPP...........+...|.........................    .....   
  157. X..........PPPPPPPPPPP.............|...|.........................     ....   
  158. X..........PPPPPPPPP...............-----.........................       .    
  159. X..............PPP.................................................          
  160. X...............PP....................................................       
  161. X................PPP...................................................      
  162. XENDMAP
  163. X# Random Monsters
  164. XRANDOM_MONSTERS: 'O', 'T'
  165. X# Dungeon Description
  166. XREGION:(00,00,75,19),lit,"ordinary"
  167. XREGION:(24,03,26,04),unlit,"ordinary"
  168. XREGION:(31,08,33,09),unlit,"ordinary"
  169. XREGION:(35,14,37,15),unlit,"ordinary"
  170. XREGION:(39,03,54,08),lit,"ordinary"
  171. XREGION:(56,00,75,08),unlit,"ordinary"
  172. XREGION:(64,09,75,16),unlit,"ordinary"
  173. X# Doors
  174. XDOOR:open,(23,03)
  175. XDOOR:open,(30,08)
  176. XDOOR:open,(34,14)
  177. XDOOR:locked,(38,05)
  178. XDOOR:locked,(38,06)
  179. XDOOR:closed,(43,03)
  180. XDOOR:closed,(43,05)
  181. XDOOR:closed,(43,06)
  182. XDOOR:closed,(43,08)
  183. XDOOR:locked,(55,06)
  184. X# Stairs
  185. XSTAIR:(05,02),up
  186. XSTAIR:(70,13),down
  187. X# Objects
  188. XOBJECT:random,random,(42,03)
  189. XOBJECT:random,random,(42,03)
  190. XOBJECT:random,random,(42,03)
  191. XOBJECT:random,random,(41,03)
  192. XOBJECT:random,random,(41,03)
  193. XOBJECT:random,random,(41,03)
  194. XOBJECT:random,random,(41,03)
  195. XOBJECT:random,random,(41,08)
  196. XOBJECT:random,random,(41,08)
  197. XOBJECT:random,random,(42,08)
  198. XOBJECT:random,random,(42,08)
  199. XOBJECT:random,random,(42,08)
  200. XOBJECT:random,random,(71,13)
  201. XOBJECT:random,random,(71,13)
  202. XOBJECT:random,random,(71,13)
  203. X# Random traps
  204. XTRAP:"spiked pit",(10,13)
  205. XTRAP:"spiked pit",(21,07)
  206. XTRAP:"spiked pit",(67,08)
  207. XTRAP:"spiked pit",(68,09)
  208. XTRAP:random,random
  209. XTRAP:random,random
  210. XTRAP:random,random
  211. XTRAP:random,random
  212. X# Random monsters.
  213. XMONSTER:'O',"ogre",(12,09),hostile
  214. XMONSTER:'O',"ogre",(18,11),hostile
  215. XMONSTER:'O',"ogre",(45,05),hostile
  216. XMONSTER:'O',"ogre",(45,06),hostile
  217. XMONSTER:'O',"ogre",(47,05),hostile
  218. XMONSTER:'O',"ogre",(46,05),hostile
  219. XMONSTER:'O',"ogre",(56,03),hostile
  220. XMONSTER:'O',"ogre",(56,04),hostile
  221. XMONSTER:'O',"ogre",(56,05),hostile
  222. XMONSTER:'O',"ogre",(56,06),hostile
  223. XMONSTER:'O',"ogre",(57,03),hostile
  224. XMONSTER:'O',"ogre",(57,04),hostile
  225. XMONSTER:'O',"ogre",(57,05),hostile
  226. XMONSTER:'O',"ogre",(57,06),hostile
  227. XMONSTER:'O',"ogre",random,hostile
  228. XMONSTER:'O',"ogre",random,hostile
  229. XMONSTER:'O',"ogre",random,hostile
  230. XMONSTER:'O',random,random,hostile
  231. XMONSTER:'T',random,random,hostile
  232. XMONSTER:'T',"rock troll",(46,06),hostile
  233. XMONSTER:'T',"rock troll",(47,06),hostile
  234. XMONSTER:'T',"rock troll",(56,07),hostile
  235. XMONSTER:'T',"rock troll",(57,07),hostile
  236. XMONSTER:'T',"rock troll",(70,13),hostile
  237. XMONSTER:'T',"rock troll",random,hostile
  238. XMONSTER:'T',"rock troll",random,hostile
  239. XMONSTER:'T',random,random,hostile
  240. X
  241. X#
  242. X#    The "goal" level for the quest.
  243. X#
  244. X#    Here you meet Thoth Amon, your nemesis monster.  You have to
  245. X#    defeat Thoth Amon in combat to gain the artifact you have
  246. X#    been assigned to retrieve.
  247. X#
  248. X
  249. XMAZE: "B-goal", ' '
  250. XGEOMETRY:center,center
  251. XMAP
  252. X                                                                            
  253. X                               .............                                
  254. X                             ..................                             
  255. X        ....              .........................          ....           
  256. X      .......          ..........................           .......         
  257. X      ......             ........................          .......          
  258. X      ..  ......................................             ..             
  259. X       ..                 .....................             ..              
  260. X        ..                 ..................              ..               
  261. X         ..         ..S...S..............   ................                
  262. X          ..                   ........                ...                  
  263. X       .........                                         ..                 
  264. X       ......  ..                                         ...  ....         
  265. X      .. ...    ..                             ......       ........        
  266. X   ....          .. ..................        ........       ......         
  267. X  ......          ......................       ......         ..            
  268. X   ....             ..................              ...........             
  269. X                      ..............                                        
  270. X                        ...........                                         
  271. X                                                                            
  272. XENDMAP
  273. X# Random Monsters
  274. XRANDOM_MONSTERS: 'O', 'T'
  275. X# Dungeon Description
  276. XREGION:(00,00,75,19),unlit,"ordinary"
  277. X# Secret doors
  278. XDOOR:locked,(22,09)
  279. XDOOR:locked,(26,09)
  280. X# Stairs
  281. XSTAIR:(36,05),up
  282. X# The altar.  Unattended.
  283. XALTAR:(63,04),align[2],altar
  284. XNON_DIGGABLE:(00,00,75,19)
  285. X# Objects
  286. XOBJECT:'*',"luckstone",(63,04),blessed,0,"The Heart of Ahriman"
  287. XOBJECT:random,random,random
  288. XOBJECT:random,random,random
  289. XOBJECT:random,random,random
  290. XOBJECT:random,random,random
  291. XOBJECT:random,random,random
  292. XOBJECT:random,random,random
  293. XOBJECT:random,random,random
  294. XOBJECT:random,random,random
  295. XOBJECT:random,random,random
  296. XOBJECT:random,random,random
  297. XOBJECT:random,random,random
  298. XOBJECT:random,random,random
  299. XOBJECT:random,random,random
  300. XOBJECT:random,random,random
  301. X# Random traps
  302. XTRAP:random,random
  303. XTRAP:random,random
  304. XTRAP:random,random
  305. XTRAP:random,random
  306. XTRAP:random,random
  307. XTRAP:random,random
  308. X# Random monsters.
  309. XMONSTER:'@',"Thoth Amon",(63,04),hostile
  310. XMONSTER:'O',"ogre",random,hostile
  311. XMONSTER:'O',"ogre",random,hostile
  312. XMONSTER:'O',"ogre",random,hostile
  313. XMONSTER:'O',"ogre",random,hostile
  314. XMONSTER:'O',"ogre",random,hostile
  315. XMONSTER:'O',"ogre",random,hostile
  316. XMONSTER:'O',"ogre",random,hostile
  317. XMONSTER:'O',"ogre",random,hostile
  318. XMONSTER:'O',"ogre",random,hostile
  319. XMONSTER:'O',"ogre",random,hostile
  320. XMONSTER:'O',"ogre",random,hostile
  321. XMONSTER:'O',"ogre",random,hostile
  322. XMONSTER:'O',"ogre",random,hostile
  323. XMONSTER:'O',"ogre",random,hostile
  324. XMONSTER:'O',"ogre",random,hostile
  325. XMONSTER:'O',"ogre",random,hostile
  326. XMONSTER:'O',random,random,hostile
  327. XMONSTER:'O',random,random,hostile
  328. XMONSTER:'T',"rock troll",random,hostile
  329. XMONSTER:'T',"rock troll",random,hostile
  330. XMONSTER:'T',"rock troll",random,hostile
  331. XMONSTER:'T',"rock troll",random,hostile
  332. XMONSTER:'T',"rock troll",random,hostile
  333. XMONSTER:'T',"rock troll",random,hostile
  334. XMONSTER:'T',"rock troll",random,hostile
  335. XMONSTER:'T',"rock troll",random,hostile
  336. XMONSTER:'T',random,random,hostile
  337. XWALLIFY
  338. X
  339. X#
  340. X#    The "fill" levels for the quest.
  341. X#
  342. X#    These levels are used to fill out any levels not occupied by specific
  343. X#    levels as defined above. "filla" is the upper filler, between the
  344. X#    start and locate levels, and "fillb" the lower between the locate
  345. X#    and goal levels.
  346. X#
  347. X
  348. XMAZE: "B-filla" , ' '
  349. XINIT_MAP: '.' , '.' , true , true , unlit , false
  350. XNOMAP
  351. X# Random Monsters
  352. XRANDOM_MONSTERS: 'O', 'T'
  353. X#
  354. XSTAIR: random, up
  355. XSTAIR: random, down
  356. X#
  357. XOBJECT: random, random, random
  358. XOBJECT: random, random, random
  359. XOBJECT: random, random, random
  360. XOBJECT: random, random, random
  361. XOBJECT: random, random, random
  362. XOBJECT: random, random, random
  363. XOBJECT: random, random, random
  364. XOBJECT: random, random, random
  365. X#
  366. XTRAP: random, random
  367. XTRAP: random, random
  368. XTRAP: random, random
  369. XTRAP: random, random
  370. X#
  371. XMONSTER: 'O', "ogre", random, hostile
  372. XMONSTER: 'O', "ogre", random, hostile
  373. XMONSTER: 'O', random, random, hostile
  374. XMONSTER: 'T', "rock troll", random, hostile
  375. X
  376. XMAZE: "B-fillb" , ' '
  377. XINIT_MAP: '.' , ' ' , true , true , unlit , true
  378. XNOMAP
  379. X# Random Monsters
  380. XRANDOM_MONSTERS: 'O', 'T'
  381. X#
  382. XSTAIR: random, up
  383. XSTAIR: random, down
  384. X#
  385. XOBJECT: random, random, random
  386. XOBJECT: random, random, random
  387. XOBJECT: random, random, random
  388. XOBJECT: random, random, random
  389. XOBJECT: random, random, random
  390. XOBJECT: random, random, random
  391. XOBJECT: random, random, random
  392. XOBJECT: random, random, random
  393. XOBJECT: random, random, random
  394. XOBJECT: random, random, random
  395. XOBJECT: random, random, random
  396. X#
  397. XTRAP: random, random
  398. XTRAP: random, random
  399. XTRAP: random, random
  400. XTRAP: random, random
  401. X#
  402. XMONSTER: 'O', "ogre", random, hostile
  403. XMONSTER: 'O', "ogre", random, hostile
  404. XMONSTER: 'O', "ogre", random, hostile
  405. XMONSTER: 'O', "ogre", random, hostile
  406. XMONSTER: 'O', "ogre", random, hostile
  407. XMONSTER: 'O', "ogre", random, hostile
  408. XMONSTER: 'O', "ogre", random, hostile
  409. XMONSTER: 'O', random , random, hostile
  410. XMONSTER: 'T', "rock troll", random, hostile
  411. XMONSTER: 'T', "rock troll", random, hostile
  412. XMONSTER: 'T', "rock troll", random, hostile
  413. XMONSTER: 'T', random , random, hostile
  414. END_OF_FILE
  415. if test 13280 -ne `wc -c <'dat/Barb.des'`; then
  416.     echo shar: \"'dat/Barb.des'\" unpacked with wrong size!
  417. fi
  418. # end of 'dat/Barb.des'
  419. fi
  420. if test -f 'include/winX.h' -a "${1}" != "-c" ; then 
  421.   echo shar: Will not clobber existing file \"'include/winX.h'\"
  422. else
  423. echo shar: Extracting \"'include/winX.h'\" \(11646 characters\)
  424. sed "s/^X//" >'include/winX.h' <<'END_OF_FILE'
  425. X/*    SCCS Id: @(#)winX.h    3.1    93/01/22          */
  426. X/* Copyright (c) Dean Luick, 1992                  */
  427. X/* NetHack may be freely redistributed.  See license for details. */
  428. X
  429. X/*
  430. X * Definitions for the X11 window-port.  See doc/window.doc for details on
  431. X * the window interface.
  432. X */
  433. X#ifndef WINX_H
  434. X#define WINX_H
  435. X
  436. X#ifndef E
  437. X#define E extern
  438. X#endif
  439. X
  440. X#if defined(BOS) || defined(NHSTDC)
  441. X#define DIMENSION_P int
  442. X#else
  443. X# ifdef WIDENED_PROTOTYPES
  444. X#define DIMENSION_P unsigned int
  445. X# else
  446. X#define DIMENSION_P Dimension
  447. X# endif
  448. X#endif
  449. X
  450. X/*
  451. X * Generic text buffer.
  452. X */
  453. X#define START_SIZE 512    /* starting text buffer size */
  454. Xstruct text_buffer {
  455. X    char *text;
  456. X    int  text_size;
  457. X    int  text_last;
  458. X    int  num_lines;
  459. X};
  460. X
  461. X
  462. X/*
  463. X * Information specific to a map window.
  464. X */
  465. Xstruct map_info_t {
  466. X    unsigned char   text[ROWNO][COLNO],    /* Actual displayed screen. */
  467. X            t_start[ROWNO],    /* Staring column for new info. */
  468. X            t_stop[ROWNO];    /* Ending column for new info. */
  469. X    int            char_width,        /* Saved font information so we can  */
  470. X            char_height,    /*   calculate the correct placement */
  471. X            char_ascent,    /*   of changes.             */
  472. X            char_lbearing;
  473. X    Dimension        viewport_width,    /* Saved viewport size, so we can */
  474. X            viewport_height;    /*   clip to cursor on a resize.  */
  475. X#ifdef TEXTCOLOR
  476. X    unsigned char   colors[ROWNO][COLNO];    /* Color of each character. */
  477. X    GC            color_gcs[MAXCOLORS],    /* GC for each color */
  478. X            inv_color_gcs[MAXCOLORS];    /* GC for each inverse color */
  479. X#define copy_gc     color_gcs[NO_COLOR]
  480. X#define inv_copy_gc inv_color_gcs[NO_COLOR]
  481. X#else
  482. X    GC            copy_gc,            /* Drawing GC */
  483. X            inv_copy_gc;        /* Inverse drawing GC */
  484. X#endif
  485. X};
  486. X
  487. X/*
  488. X * Information specific to a message window.
  489. X */
  490. Xstruct line_element {
  491. X    struct line_element *next;
  492. X    char *line;            /* char buffer */
  493. X    int  buf_length;        /* length of buffer */
  494. X    int  str_length;        /* length of string in buffer */
  495. X};
  496. X
  497. Xstruct mesg_info_t {
  498. X    XFontStruct *fs;        /* Font for the window. */
  499. X    int        num_lines;    /* line count */
  500. X    struct line_element *head;    /* head of circular line queue */
  501. X    struct line_element *last_pause;/* point to the line after the prev */
  502. X                /*    bottom of screen */
  503. X    struct line_element *last_pause_head;/* pointer to head of previous */
  504. X                /* turn                    */
  505. X    GC        gc;        /* GC for text drawing */
  506. X    int         char_width,     /* Saved font information so we can  */
  507. X        char_height,    /*   calculate the correct placement */
  508. X        char_ascent,    /*   of changes.                     */
  509. X        char_lbearing;
  510. X    Dimension    viewport_width,    /* Saved viewport size, so we can adjust */
  511. X        viewport_height;/*   the slider on a resize.         */
  512. X    Boolean    dirty;        /* Lines have been added to the window. */
  513. X};
  514. X
  515. X/*
  516. X * Information specific to a "text" status window.
  517. X */
  518. Xstruct status_info_t {
  519. X    struct text_buffer text;    /* Just a text buffer. */
  520. X};
  521. X
  522. X/*
  523. X * Information specific to a menu window.  First a structure for each
  524. X * menu entry, then the structure for each menu window.
  525. X */
  526. Xstruct menu_item {
  527. X    struct menu_item *next;
  528. X    char selector;        /* Char used to select this entry. */
  529. X    int  attr;            /* Attribute for the line. */
  530. X    char *str;            /* The text of the item. */
  531. X};
  532. X
  533. Xstruct menu_info_t {
  534. X    struct menu_item *base;    /* Starting pointer for item list. */
  535. X    struct menu_item *last;    /* End pointer for item list. */
  536. X    const char    *query;
  537. X    const char    *other_valid;
  538. X    char    other_response;
  539. X    int     count;
  540. X    String  *list_pointer;
  541. X    boolean valid_widgets;
  542. X    boolean is_menu;        /* Has been conformed to being a menu window. */
  543. X};
  544. X
  545. X/*
  546. X * Information specific to a text window.
  547. X */
  548. Xstruct text_info_t {
  549. X    struct text_buffer text;
  550. X    XFontStruct *fs;        /* Font for the text window. */
  551. X    int        max_width;    /* Width of widest line so far. */
  552. X    int        extra_width,    /* Sum of left and right border widths. */
  553. X        extra_height;    /* Sum of top and bottom border widths. */
  554. X    boolean    blocked;    /*  */
  555. X    boolean    destroy_on_ack;    /* Destroy this window when acknowleged. */
  556. X};
  557. X
  558. X
  559. X/*
  560. X * Basic window structure.
  561. X */
  562. Xstruct xwindow {
  563. X    int          type;        /* type of nethack window */
  564. X    Widget    popup;        /* direct parent of widget w or viewport */
  565. X    Widget    w;        /* the widget that does things */
  566. X    Dimension pixel_width;    /* window size, in pixels */
  567. X    Dimension pixel_height;
  568. X    int          prevx, cursx;    /* Cursor position, only used by    */
  569. X    int       prevy, cursy;    /*   map and "plain" status windows.*/
  570. X
  571. X    union {
  572. X    struct map_info_t    *Map_info;        /* map window info */
  573. X    struct mesg_info_t   *Mesg_info;    /* message window info */
  574. X    struct status_info_t *Status_info;  /* status window info */
  575. X    struct menu_info_t   *Menu_info;    /* menu window info */
  576. X    struct text_info_t   *Text_info;    /* menu window info */
  577. X    } Win_info;
  578. X};
  579. X
  580. X/* Defines to use for the window information union. */
  581. X#define map_information    Win_info.Map_info
  582. X#define mesg_information   Win_info.Mesg_info
  583. X#define status_information Win_info.Status_info
  584. X#define menu_information   Win_info.Menu_info
  585. X#define text_information   Win_info.Text_info
  586. X
  587. X
  588. X#define MAX_WINDOWS 20        /* max number of open windows */
  589. X
  590. X#define NHW_NONE 0        /* Unallocated window type.  Must be     */
  591. X                /* different from any other NHW_* type. */
  592. X
  593. X#define NO_CLICK 0        /* No click occured on the map window. Must */
  594. X                /* be different than CLICK_1 and CLICK_2.   */
  595. X
  596. X#define DEFAULT_MESSAGE_WIDTH 60/* width in chars of the message window */
  597. X
  598. X#define DISPLAY_FILE_SIZE 35    /* Max number of lines in the default    */
  599. X                /* file display window.            */
  600. X
  601. X#define MAX_KEY_STRING 64    /* String size for converting a keypress */
  602. X                /* event into a character(s)         */
  603. X
  604. X#define DEFAULT_LINES_DISPLAYED 12 /* # of lines displayed message window */
  605. X#define MAX_HISTORY 60        /* max history saved on message window */
  606. X
  607. X
  608. X/* Window variables (winX.c). */
  609. XE struct xwindow window_list[MAX_WINDOWS];
  610. XE XtAppContext   app_context;        /* context of application */
  611. XE Widget     toplevel;        /* toplevel widget */
  612. XE boolean     exit_x_event;        /* exit condition for event loop */
  613. X#define EXIT_ON_KEY_PRESS        0    /* valid values for exit_x_event */
  614. X#define EXIT_ON_KEY_OR_BUTTON_PRESS 1
  615. X#define EXIT_ON_EXIT            2
  616. X#define EXIT_ON_SENT_EVENT        3
  617. XE int click_x, click_y, click_button;
  618. X
  619. Xtypedef struct {
  620. X    Boolean slow;
  621. X    Boolean autofocus;
  622. X    Boolean message_line;
  623. X    String  icon;    /* name of desired icon */
  624. X} AppResources;
  625. X
  626. XE AppResources appResources;
  627. XE void (*input_func)();
  628. X
  629. Xextern struct window_procs X11_procs;
  630. X
  631. X/* Check for an invalid window id. */
  632. X#define check_winid(window)                    \
  633. X    if ((window) < 0 || (window) >= MAX_WINDOWS) {        \
  634. X        panic("illegal windid [%d] in %s at line %d",    \
  635. X        window, __FILE__, __LINE__);            \
  636. X    }
  637. X
  638. X
  639. X/* ### dialogs.c ### */
  640. XE Widget FDECL(CreateDialog, (Widget, String, XtCallbackProc, XtCallbackProc));
  641. XE void FDECL(SetDialogPrompt,(Widget, String));
  642. XE String FDECL(GetDialogResponse,(Widget));
  643. XE void FDECL(SetDialogResponse,(Widget, String));
  644. XE void FDECL(positionpopup,(Widget));
  645. X
  646. X/* ### winX.c ### */
  647. XE struct xwindow *FDECL(find_widget,(Widget));
  648. XE char FDECL(key_event_to_char,(XKeyEvent*));
  649. XE void FDECL(msgkey, (Widget, XtPointer, XEvent*));
  650. XE void FDECL(nh_XtPopup, (Widget, int, Widget));
  651. XE void FDECL(nh_XtPopdown, (Widget));
  652. XE void NDECL(win_X11_init);
  653. X
  654. X/* ### winmesg.c ### */
  655. XE void FDECL(set_message_height, (struct xwindow*, DIMENSION_P));
  656. XE void FDECL(set_message_slider, (struct xwindow*));
  657. XE void FDECL(create_message_window,(struct xwindow*, BOOLEAN_P, Widget));
  658. XE void FDECL(destroy_message_window,(struct xwindow*));
  659. XE void FDECL(display_message_window, (struct xwindow*));
  660. XE void FDECL(append_message,(struct xwindow*, const char*));
  661. XE void FDECL(set_last_pause, (struct xwindow*));
  662. X
  663. X/* ### winmap.c ### */
  664. XE void FDECL(check_cursor_visibility,(struct xwindow*));
  665. XE void FDECL(display_map_window,(struct xwindow*));
  666. XE void FDECL(clear_map_window,(struct xwindow*));
  667. XE void FDECL(extern_map_input,(XEvent*));
  668. XE void FDECL(set_map_size,(struct xwindow*, DIMENSION_P, DIMENSION_P));
  669. XE void FDECL(create_map_window,(struct xwindow*, BOOLEAN_P, Widget));
  670. XE void FDECL(destroy_map_window,(struct xwindow*));
  671. XE int  FDECL(x_event,(int));
  672. X
  673. X/* ### winmenu.c ### */
  674. XE void FDECL(menu_key,(Widget, XEvent*, String*, Cardinal*));
  675. XE void FDECL(create_menu_window,(struct xwindow*));
  676. XE void FDECL(destroy_menu_window,(struct xwindow*));
  677. X
  678. X/* ### winmisc.c ### */
  679. XE void FDECL(ps_key,(Widget, XEvent*, String*, Cardinal*)); /* player selection action */
  680. XE void FDECL(ec_key,(Widget, XEvent*, String*, Cardinal*)); /* extended command action */
  681. XE void NDECL(init_extended_commands_popup);
  682. X
  683. X/* ### winstatus.c ### */
  684. XE void FDECL(create_status_window,(struct xwindow*, BOOLEAN_P, Widget));
  685. XE void FDECL(destroy_status_window,(struct xwindow*));
  686. XE void FDECL(adjust_status,(struct xwindow*, const char*));
  687. XE void NDECL(null_out_status);
  688. XE void NDECL(check_turn_events);
  689. X
  690. X/* ### wintext.c ### */
  691. XE void FDECL(dismiss_text,(Widget, XEvent*, String*, Cardinal*));
  692. XE void FDECL(key_dismiss_text,(Widget, XEvent*, String*, Cardinal*));
  693. XE void FDECL(add_to_text_window,(struct xwindow*, int, const char*));
  694. XE void FDECL(display_text_window,(struct xwindow*, BOOLEAN_P));
  695. XE void FDECL(create_text_window,(struct xwindow*));
  696. XE void FDECL(destroy_text_window,(struct xwindow*));
  697. XE void FDECL(append_text_buffer,(struct text_buffer*, const char*, BOOLEAN_P));    /* text buffer routines */
  698. XE void FDECL(init_text_buffer,(struct text_buffer*));
  699. XE void FDECL(clear_text_buffer,(struct text_buffer*));
  700. XE void FDECL(free_text_buffer,(struct text_buffer*));
  701. X
  702. X/* ### winval.c ### */
  703. XE Widget FDECL(create_value,(Widget, const char*));
  704. XE void   FDECL(set_name,(Widget, char*));
  705. XE void   FDECL(set_name_width,(Widget, int));
  706. XE int    FDECL(get_name_width,(Widget));
  707. XE void   FDECL(set_value,(Widget, const char*));
  708. XE void   FDECL(set_value_width,(Widget, int));
  709. XE int    FDECL(get_value_width,(Widget));
  710. XE void   FDECL(hilight_value,(Widget));
  711. X
  712. X/* external declarations */
  713. XE void NDECL(X11_init_nhwindows);
  714. XE void NDECL(X11_player_selection);
  715. XE void NDECL(X11_askname);
  716. XE void NDECL(X11_get_nh_event) ;
  717. XE void FDECL(X11_exit_nhwindows, (const char *));
  718. XE void FDECL(X11_suspend_nhwindows, (const char *));
  719. XE void NDECL(X11_resume_nhwindows);
  720. XE winid FDECL(X11_create_nhwindow, (int));
  721. XE void FDECL(X11_clear_nhwindow, (winid));
  722. XE void FDECL(X11_display_nhwindow, (winid, BOOLEAN_P));
  723. XE void FDECL(X11_destroy_nhwindow, (winid));
  724. XE void FDECL(X11_curs, (winid,int,int));
  725. XE void FDECL(X11_putstr, (winid, int, const char *));
  726. XE void FDECL(X11_display_file, (const char *, BOOLEAN_P));
  727. XE void FDECL(X11_start_menu, (winid));
  728. XE void FDECL(X11_add_menu, (winid, CHAR_P, int, const char *));
  729. XE void FDECL(X11_end_menu, (winid, CHAR_P, const char *, const char *));
  730. XE char FDECL(X11_select_menu, (winid));
  731. XE void NDECL(X11_update_inventory);
  732. XE void NDECL(X11_mark_synch);
  733. XE void NDECL(X11_wait_synch);
  734. X#ifdef CLIPPING
  735. XE void FDECL(X11_cliparound, (int, int));
  736. X#endif
  737. XE void FDECL(X11_print_glyph, (winid,XCHAR_P,XCHAR_P,int));
  738. XE void FDECL(X11_raw_print, (const char *));
  739. XE void FDECL(X11_raw_print_bold, (const char *));
  740. XE int NDECL(X11_nhgetch);
  741. XE int FDECL(X11_nh_poskey, (int *, int *, int *));
  742. XE void NDECL(X11_nhbell);
  743. XE int NDECL(X11_doprev_message);
  744. XE char FDECL(X11_yn_function, (const char *, const char *, CHAR_P));
  745. XE void FDECL(X11_getlin, (const char *,char *));
  746. X#ifdef COM_COMPL
  747. XE void FDECL(X11_get_ext_cmd, (char *));
  748. X#endif /* COM_COMPL */
  749. XE void FDECL(X11_number_pad, (int));
  750. XE void NDECL(X11_delay_output);
  751. X
  752. X/* other defs that really should go away (they're tty specific) */
  753. XE void NDECL(X11_start_screen);
  754. XE void NDECL(X11_end_screen);
  755. X
  756. X#endif /* WINX_H */
  757. END_OF_FILE
  758. if test 11646 -ne `wc -c <'include/winX.h'`; then
  759.     echo shar: \"'include/winX.h'\" unpacked with wrong size!
  760. fi
  761. # end of 'include/winX.h'
  762. fi
  763. if test -f 'src/mondata.c' -a "${1}" != "-c" ; then 
  764.   echo shar: Will not clobber existing file \"'src/mondata.c'\"
  765. else
  766. echo shar: Extracting \"'src/mondata.c'\" \(10482 characters\)
  767. sed "s/^X//" >'src/mondata.c' <<'END_OF_FILE'
  768. X/*    SCCS Id: @(#)mondata.c    3.1    92/11/24    */
  769. X/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  770. X/* NetHack may be freely redistributed.  See license for details. */
  771. X
  772. X#include "hack.h"
  773. X#include "eshk.h"
  774. X#include "epri.h"
  775. X
  776. X/*    These routines provide basic data for any type of monster. */
  777. X
  778. X#ifdef OVL0
  779. X
  780. Xboolean
  781. Xattacktype(ptr, atyp)
  782. X    register struct    permonst    *ptr;
  783. X    register int atyp;
  784. X{
  785. X    int    i;
  786. X
  787. X    for(i = 0; i < NATTK; i++)
  788. X        if(ptr->mattk[i].aatyp == atyp) return(TRUE);
  789. X
  790. X    return(FALSE);
  791. X}
  792. X
  793. X#endif /* OVL0 */
  794. X#ifdef OVLB
  795. X
  796. Xboolean
  797. Xpoly_when_stoned(ptr)
  798. X    struct permonst *ptr;
  799. X{
  800. X    return (is_golem(ptr) && ptr != &mons[PM_STONE_GOLEM] &&
  801. X        !(mons[PM_STONE_GOLEM].geno & G_GENOD));    /* allow G_EXTINCT */
  802. X}
  803. X
  804. Xboolean
  805. Xresists_drli(ptr)    /* returns TRUE if monster is drain-life resistant */
  806. X
  807. X    register struct permonst *ptr;
  808. X{
  809. X    return(is_undead(ptr) || is_demon(ptr) || is_were(ptr));
  810. X}
  811. X
  812. X#endif /* OVLB */
  813. X#ifdef OVL0
  814. X
  815. Xboolean
  816. Xranged_attk(ptr)    /* returns TRUE if monster can attack at range */
  817. X    register struct permonst *ptr;
  818. X{
  819. X    register int    i, j;
  820. X    register int atk_mask = (1<<AT_BREA) | (1<<AT_SPIT) | (1<<AT_GAZE);
  821. X
  822. X    /* was: (attacktype(ptr, AT_BREA) || attacktype(ptr, AT_WEAP) ||
  823. X        attacktype(ptr, AT_SPIT) || attacktype(ptr, AT_GAZE) ||
  824. X        attacktype(ptr, AT_MAGC));
  825. X       but that's too slow -dlc
  826. X     */
  827. X    for(i = 0; i < NATTK; i++) {
  828. X        if((j=ptr->mattk[i].aatyp) >= AT_WEAP || (atk_mask & (1<<j)))
  829. X        return TRUE;
  830. X    }
  831. X
  832. X    return(FALSE);
  833. X}
  834. X
  835. Xboolean
  836. Xhates_silver(ptr)
  837. Xregister struct permonst *ptr;
  838. X/* returns TRUE if monster is especially affected by silver weapons */
  839. X{
  840. X    return (is_were(ptr) || ptr->mlet==S_VAMPIRE || is_demon(ptr) ||
  841. X        ptr == &mons[PM_SHADE] ||
  842. X        (ptr->mlet==S_IMP && ptr != &mons[PM_TENGU]));
  843. X}
  844. X
  845. X#endif /* OVL0 */
  846. X#ifdef OVL1
  847. X
  848. Xboolean
  849. Xcan_track(ptr)        /* returns TRUE if monster can track well */
  850. X    register struct permonst *ptr;
  851. X{
  852. X    if (uwep && uwep->oartifact == ART_EXCALIBUR)
  853. X        return TRUE;
  854. X    else
  855. X        return(haseyes(ptr));
  856. X}
  857. X
  858. X#endif /* OVL1 */
  859. X#ifdef OVLB
  860. X
  861. X#if defined(POLYSELF) || defined(MUSE)
  862. Xboolean
  863. Xsliparm(ptr)    /* creature will slide out of armor */
  864. X    register struct permonst *ptr;
  865. X{
  866. X    return is_whirly(ptr) || ptr->msize <= MZ_SMALL ||
  867. X        ptr == &mons[PM_GHOST];
  868. X}
  869. X
  870. Xboolean
  871. Xbreakarm(ptr)    /* creature will break out of armor */
  872. X    register struct permonst *ptr;
  873. X{
  874. X    return((bigmonst(ptr) || (ptr->msize > MZ_SMALL && !humanoid(ptr))
  875. X                    || ptr == &mons[PM_MARILITH]) && !sliparm(ptr));
  876. X    /* Marilith is about the only case of a monster which is otherwise
  877. X     * humanoid but cannot wear armor (too many arms).  Centaurs would
  878. X     * be another except that they are already accounted for by
  879. X     * bigmonst.
  880. X     */
  881. X}
  882. X#endif
  883. X#endif /* OVLB */
  884. X#ifdef OVL1
  885. X
  886. Xboolean
  887. Xsticks(ptr)    /* creature sticks other creatures it hits */
  888. X    register struct permonst *ptr;
  889. X{
  890. X    return(dmgtype(ptr,AD_STCK) || dmgtype(ptr,AD_WRAP) ||
  891. X        attacktype(ptr,AT_HUGS));
  892. X}
  893. X
  894. Xboolean
  895. Xdmgtype(ptr, dtyp)
  896. X    register struct    permonst    *ptr;
  897. X    register int dtyp;
  898. X{
  899. X    int    i;
  900. X
  901. X    for(i = 0; i < NATTK; i++)
  902. X        if(ptr->mattk[i].adtyp == dtyp) return TRUE;
  903. X
  904. X    return FALSE;
  905. X}
  906. X
  907. X/* returns the maximum damage a defender can do to the attacker via
  908. X * a passive defense */
  909. Xint
  910. Xmax_passive_dmg(mdef, magr)
  911. X    register struct monst *mdef, *magr;
  912. X{
  913. X    int    i, dmg = 0;
  914. X    uchar adtyp;
  915. X
  916. X    for(i = 0; i < NATTK; i++)
  917. X    if(mdef->data->mattk[i].aatyp == AT_NONE) {
  918. X        adtyp = mdef->data->mattk[i].adtyp;
  919. X        if((adtyp == AD_ACID && !resists_acid(magr->data)) ||
  920. X            (adtyp == AD_COLD && !resists_cold(magr->data)) ||
  921. X            (adtyp == AD_FIRE && !resists_fire(magr->data)) ||
  922. X            (adtyp == AD_ELEC && !resists_elec(magr->data))) {
  923. X        dmg = mdef->data->mattk[i].damn;
  924. X        if(!dmg) dmg = mdef->data->mlevel+1;
  925. X        dmg *= mdef->data->mattk[i].damd;
  926. X        } else dmg = 0;
  927. X
  928. X        return dmg;
  929. X    }
  930. X    return 0;
  931. X}
  932. X
  933. X#endif /* OVL1 */
  934. X#ifdef OVL0
  935. X
  936. Xint
  937. Xmonsndx(ptr)        /* return an index into the mons array */
  938. X    struct    permonst    *ptr;
  939. X{
  940. X    register int    i;
  941. X
  942. X    if(ptr == &playermon) return(-1);
  943. X
  944. X    i = (int)(ptr - &mons[0]);
  945. X    if(i < 0 || i >= NUMMONS) {    
  946. X        panic("monsndx - could not index monster (%lx)", (long)ptr);
  947. X        return FALSE;        /* will not get here */
  948. X    }
  949. X
  950. X    return(i);
  951. X}
  952. X
  953. X#endif /* OVL0 */
  954. X#ifdef OVL1
  955. X
  956. X
  957. Xint
  958. Xname_to_mon(str)
  959. Xchar *str;
  960. X{
  961. X    /* Be careful.  We must check the entire string in case it was
  962. X     * something such as "ettin zombie corpse".  The calling routine
  963. X     * doesn't know about the "corpse" until the monster name has
  964. X     * already been taken off the front, so we have to be able to
  965. X     * read the name with extraneous stuff such as "corpse" stuck on
  966. X     * the end.
  967. X     * This causes a problem for names which prefix other names such
  968. X     * as "ettin" on "ettin zombie".  In this case we want the _longest_
  969. X     * name which exists.
  970. X     * This also permits plurals created by adding suffixes such as 's'
  971. X     * or 'es'.  Other plurals must still be handled explicitly.
  972. X     */
  973. X    register int i;
  974. X    register int mntmp = -1;
  975. X    register char *s;
  976. X    char buf[BUFSZ];
  977. X    int len, slen;
  978. X
  979. X    Strcpy(buf, str);
  980. X    str = buf;
  981. X    if (!strncmp(str, "a ", 2)) str += 2;
  982. X    else if (!strncmp(str, "an ", 3)) str += 3;
  983. X
  984. X    /* Some irregular plurals */
  985. X    if (!strncmpi(str, "incubi", 6)) return PM_INCUBUS;
  986. X    if (!strncmpi(str, "succubi", 7)) return PM_SUCCUBUS;
  987. X    if (!strncmpi(str, "violet fungi", 12)) return PM_VIOLET_FUNGUS;
  988. X    if (!strncmpi(str, "homunculi", 9)) return PM_HOMUNCULUS;
  989. X    if (!strncmpi(str, "baluchitheria", 13)) return PM_BALUCHITHERIUM;
  990. X    if (!strncmpi(str, "lurkers above", 13)) return PM_LURKER_ABOVE;
  991. X    if (!strncmpi(str, "cavemen", 7)) return PM_CAVEMAN;
  992. X    if (!strncmpi(str, "cavewomen", 9)) return PM_CAVEWOMAN;
  993. X    if (!strncmpi(str, "zruties", 7)) return PM_ZRUTY;
  994. X    if (!strncmpi(str, "djinn", 5)) return PM_DJINNI;
  995. X    if (!strncmpi(str, "mumakil", 7)) return PM_MUMAK;
  996. X    if ((s = strstri(str, "vortices")) != 0)
  997. X        Strcpy(s+4, "ex");
  998. X    /* be careful with "ies"; "priest", "zombies" */
  999. X    else if ((s = strstri(str, "jellies")) != 0 ||
  1000. X         (s = strstri(str, "mummies")) != 0)
  1001. X        Strcpy(s+4, "y");
  1002. X    /* luckily no monster names end in fe or ve with ves plurals */
  1003. X    else if ((s = strstri(str, "ves")) != 0)
  1004. X        Strcpy(s, "f");
  1005. X
  1006. X    slen = strlen(str);
  1007. X    for (len = 0, i = 0; i < NUMMONS; i++) {
  1008. X        register int m_i_len = strlen(mons[i].mname);
  1009. X        if (m_i_len > len && !strncmpi(mons[i].mname, str, m_i_len)) {
  1010. X        if (m_i_len == slen) return i;    /* exact match */
  1011. X        else if (slen > m_i_len &&
  1012. X            (str[m_i_len] == ' ' ||
  1013. X             !strcmpi(&str[m_i_len], "s") ||
  1014. X             !strncmpi(&str[m_i_len], "s ", 2) ||
  1015. X             !strcmpi(&str[m_i_len], "es") ||
  1016. X             !strncmpi(&str[m_i_len], "es ", 3))) {
  1017. X            mntmp = i;
  1018. X            len = m_i_len;
  1019. X        }
  1020. X        }
  1021. X    }
  1022. X    if (mntmp == -1) mntmp = title_to_mon(str, (int *)0, (int *)0);
  1023. X    return mntmp;
  1024. X}
  1025. X
  1026. X#endif /* OVL1 */
  1027. X#ifdef OVLB
  1028. X
  1029. X#ifdef POLYSELF
  1030. Xboolean
  1031. Xwebmaker(ptr)   /* creature can spin a web */
  1032. X    register struct permonst *ptr;
  1033. X{
  1034. X    return (ptr->mlet == S_SPIDER && ptr != &mons[PM_SCORPION]);
  1035. X}
  1036. X#endif
  1037. X
  1038. X#endif /* OVLB */
  1039. X#ifdef OVL2
  1040. X
  1041. X/* returns 3 values (0=male, 1=female, 2=none) */
  1042. Xint
  1043. Xgender(mtmp)
  1044. X    register struct monst *mtmp;
  1045. X{
  1046. X    if (is_neuter(mtmp->data)) return 2;
  1047. X    return mtmp->female;
  1048. X}
  1049. X
  1050. X#endif /* OVL2 */
  1051. X#ifdef OVLB
  1052. X
  1053. Xboolean
  1054. Xlevl_follower(mtmp)
  1055. Xregister struct monst *mtmp;
  1056. X{
  1057. X    return (mtmp->mtame || (mtmp->data->mflags2 & M2_STALK) || is_fshk(mtmp)
  1058. X        || (mtmp->iswiz && !mon_has_amulet(mtmp)));
  1059. X}
  1060. X
  1061. Xstruct permonst *
  1062. Xplayer_mon()
  1063. X{
  1064. X    switch (pl_character[0]) {
  1065. X        case 'A': return &mons[PM_ARCHEOLOGIST];
  1066. X        case 'B': return &mons[PM_BARBARIAN];
  1067. X        case 'C': if (flags.female) return &mons[PM_CAVEWOMAN];
  1068. X            else return &mons[PM_CAVEMAN];
  1069. X        case 'E': return &mons[PM_ELF];
  1070. X        case 'H': return &mons[PM_HEALER];
  1071. X        case 'K': return &mons[PM_KNIGHT];
  1072. X        case 'P': if (flags.female) return &mons[PM_PRIESTESS];
  1073. X            else return &mons[PM_PRIEST];
  1074. X        case 'R': return &mons[PM_ROGUE];
  1075. X        case 'S': return &mons[PM_SAMURAI];
  1076. X#ifdef TOURIST
  1077. X        case 'T': return &mons[PM_TOURIST];
  1078. X#endif
  1079. X        case 'V': return &mons[PM_VALKYRIE];
  1080. X        case 'W': return &mons[PM_WIZARD];
  1081. X        default: impossible("what are you?");
  1082. X            return &mons[PM_HUMAN];
  1083. X    }
  1084. X}
  1085. X
  1086. Xconst int grownups[][2] = { {PM_LITTLE_DOG, PM_DOG}, {PM_DOG, PM_LARGE_DOG},
  1087. X    {PM_HELL_HOUND_PUP, PM_HELL_HOUND}, {PM_KITTEN, PM_HOUSECAT},
  1088. X    {PM_HOUSECAT, PM_LARGE_CAT}, {PM_BABY_GRAY_DRAGON, PM_GRAY_DRAGON},
  1089. X    {PM_KOBOLD, PM_LARGE_KOBOLD}, {PM_LARGE_KOBOLD, PM_KOBOLD_LORD},
  1090. X    {PM_GNOME, PM_GNOME_LORD}, {PM_GNOME_LORD, PM_GNOME_KING},
  1091. X    {PM_DWARF, PM_DWARF_LORD}, {PM_DWARF_LORD, PM_DWARF_KING},
  1092. X    {PM_SMALL_MIMIC, PM_LARGE_MIMIC}, {PM_LARGE_MIMIC, PM_GIANT_MIMIC},
  1093. X    {PM_BAT, PM_GIANT_BAT},
  1094. X    {PM_LICH, PM_DEMILICH}, {PM_DEMILICH, PM_MASTER_LICH},
  1095. X    {PM_OGRE, PM_OGRE_LORD}, {PM_OGRE_LORD, PM_OGRE_KING},
  1096. X    {PM_VAMPIRE, PM_VAMPIRE_LORD},
  1097. X    {PM_BABY_RED_DRAGON, PM_RED_DRAGON},
  1098. X    {PM_BABY_WHITE_DRAGON, PM_WHITE_DRAGON},
  1099. X    {PM_BABY_BLUE_DRAGON, PM_BLUE_DRAGON},
  1100. X    {PM_BABY_GREEN_DRAGON, PM_GREEN_DRAGON},
  1101. X    {PM_BABY_ORANGE_DRAGON, PM_ORANGE_DRAGON},
  1102. X    {PM_BABY_BLACK_DRAGON, PM_BLACK_DRAGON},
  1103. X    {PM_BABY_YELLOW_DRAGON, PM_YELLOW_DRAGON},
  1104. X    {PM_RED_NAGA_HATCHLING, PM_RED_NAGA},
  1105. X    {PM_BLACK_NAGA_HATCHLING, PM_BLACK_NAGA},
  1106. X    {PM_GOLDEN_NAGA_HATCHLING, PM_GOLDEN_NAGA},
  1107. X    {PM_GUARDIAN_NAGA_HATCHLING, PM_GUARDIAN_NAGA},
  1108. X    {PM_BABY_PURPLE_WORM, PM_PURPLE_WORM},
  1109. X    {PM_BABY_LONG_WORM, PM_LONG_WORM},
  1110. X#ifdef ARMY
  1111. X    {PM_SOLDIER, PM_SERGEANT},
  1112. X    {PM_SERGEANT, PM_LIEUTENANT},
  1113. X    {PM_LIEUTENANT, PM_CAPTAIN},
  1114. X#endif
  1115. X    {PM_WATCHMAN, PM_WATCH_CAPTAIN},
  1116. X    {PM_BABY_CROCODILE, PM_CROCODILE},
  1117. X    {-1,-1}
  1118. X};
  1119. X
  1120. Xint
  1121. Xlittle_to_big(montype)
  1122. Xint montype;
  1123. X{
  1124. X#ifndef AIXPS2_BUG
  1125. X    register int i;
  1126. X    
  1127. X    for(i=0; grownups[i][0] >= 0; i++)
  1128. X        if(montype == grownups[i][0]) return grownups[i][1];
  1129. X    return montype;
  1130. X#else
  1131. X/* AIX PS/2 C-compiler 1.1.1 optimizer does not like the above for loop,
  1132. X * and causes segmentation faults at runtime.  (The problem does not
  1133. X * occur if -O is not used.)
  1134. X * lehtonen@cs.Helsinki.FI (Tapio Lehtonen) 28031990
  1135. X */
  1136. X    int i;
  1137. X    int monvalue;
  1138. X
  1139. X    monvalue = montype;
  1140. X    for(i=0; grownups[i][0] >= 0; i++)
  1141. X        if(montype == grownups[i][0]) monvalue = grownups[i][1];
  1142. X    
  1143. X    return monvalue;
  1144. X#endif
  1145. X}
  1146. X
  1147. Xint
  1148. Xbig_to_little(montype)
  1149. Xint montype;
  1150. X{
  1151. X    register int i;
  1152. X    
  1153. X    for(i=0; grownups[i][0] >= 0; i++)
  1154. X        if(montype == grownups[i][1]) return grownups[i][0];
  1155. X    return montype;
  1156. X}
  1157. X
  1158. X
  1159. Xconst char *
  1160. Xlocomotion(ptr, def)
  1161. Xconst struct permonst *ptr;
  1162. Xconst char *def;
  1163. X{
  1164. X    return (
  1165. X        is_floater(ptr) ? (const char *)"float" :
  1166. X        is_flyer(ptr)   ? (const char *)"fly" :
  1167. X        slithy(ptr)     ? (const char *)"slither" :
  1168. X        amorphous(ptr)  ? (const char *)"ooze" :
  1169. X        nolimbs(ptr)    ? (const char *)"crawl" :
  1170. X        def
  1171. X           );
  1172. X
  1173. X}
  1174. X
  1175. X#endif /* OVLB */
  1176. X
  1177. X/*mondata.c*/
  1178. END_OF_FILE
  1179. if test 10482 -ne `wc -c <'src/mondata.c'`; then
  1180.     echo shar: \"'src/mondata.c'\" unpacked with wrong size!
  1181. fi
  1182. # end of 'src/mondata.c'
  1183. fi
  1184. if test -f 'sys/mac/macmain.c' -a "${1}" != "-c" ; then 
  1185.   echo shar: Will not clobber existing file \"'sys/mac/macmain.c'\"
  1186. else
  1187. echo shar: Extracting \"'sys/mac/macmain.c'\" \(12965 characters\)
  1188. sed "s/^X//" >'sys/mac/macmain.c' <<'END_OF_FILE'
  1189. X/*    SCCS Id: @(#)macmain.c    3.1    92/12/04    */
  1190. X/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1191. X/* NetHack may be freely redistributed.  See license for details. */
  1192. X
  1193. X/* main.c - Mac NetHack */
  1194. X
  1195. X#include "hack.h"
  1196. X
  1197. X#include <OSUtils.h>
  1198. X#include <files.h>
  1199. X#include <Types.h>
  1200. X#ifdef MAC_MPW32
  1201. X#include <String.h>
  1202. X#include <Strings.h>
  1203. X#endif
  1204. X#ifdef MAC_THINKC5
  1205. X#include <pascal.h>
  1206. X#endif
  1207. X#include <Dialogs.h>
  1208. X#include <Packages.h>
  1209. X#include <ToolUtils.h>
  1210. X#include <Resources.h>
  1211. X#include <SysEqu.h>
  1212. X#include <Errors.h>
  1213. X
  1214. X#ifndef O_RDONLY
  1215. X#include <fcntl.h>
  1216. X#endif
  1217. X
  1218. Xint NDECL(main);
  1219. Xvoid NDECL(ListGUnloads);
  1220. X
  1221. Xstatic void NDECL(process_options);
  1222. Xstatic void NDECL(whoami);
  1223. X
  1224. Xextern char * PtoCstr ( unsigned char * ) ;
  1225. Xextern unsigned char * CtoPstr ( char * ) ;
  1226. Xvoid SetFrameItem ( DialogPtr , short , short ) ;
  1227. X
  1228. Xextern void NDECL ( finder_file_request ) ;
  1229. X// void NDECL( askname ) ;
  1230. X
  1231. Xextern void NDECL ( InitMac ) ;
  1232. X
  1233. Xint
  1234. Xmain ( void )
  1235. X{
  1236. X    register int fd;
  1237. X
  1238. X    windowprocs = mac_procs ;
  1239. X    InitMac ( ) ;
  1240. X
  1241. X    hname = "Mac Hack" ;
  1242. X    hackpid = getpid();
  1243. X
  1244. X    initoptions();
  1245. X    init_nhwindows();
  1246. X    whoami();
  1247. X
  1248. X    /*
  1249. X     * It seems you really want to play.
  1250. X     */
  1251. X    setrandom();
  1252. X    u.uhp = 1;    /* prevent RIP on early quits */
  1253. X
  1254. X    process_options ( ) ;    /* emulate command line options */
  1255. X    finder_file_request ( ) ;
  1256. X
  1257. X#ifdef WIZARD
  1258. X    if (wizard)
  1259. X        Strcpy(plname, "wizard");
  1260. X    else
  1261. X#endif
  1262. X    if(!*plname || !strncmp(plname, "player", 4)
  1263. X            || !strncmp(plname, "games", 4))
  1264. X        askname();
  1265. X    plnamesuffix();        /* strip suffix from name; calls askname() */
  1266. X                /* again if suffix was whole name */
  1267. X                /* accepts any suffix */
  1268. X
  1269. X    Sprintf ( lock , "%d%s" , getuid ( ) , plname ) ;
  1270. X    getlock ( ) ;
  1271. X
  1272. X    /*
  1273. X     * Initialisation of the boundaries of the mazes
  1274. X     * Both boundaries have to be even.
  1275. X     */
  1276. X
  1277. X    x_maze_max = COLNO-1;
  1278. X    if (x_maze_max % 2)
  1279. X        x_maze_max--;
  1280. X    y_maze_max = ROWNO-1;
  1281. X    if (y_maze_max % 2)
  1282. X        y_maze_max--;
  1283. X
  1284. X    /*
  1285. X     *  Initialize the vision system.  This must be before mklev() on a
  1286. X     *  new game or before a level restore on a saved game.
  1287. X     */
  1288. X    vision_init();
  1289. X
  1290. X    display_gamewindows();
  1291. X
  1292. X    set_savefile_name();
  1293. X    uncompress(SAVEF);
  1294. X
  1295. X    if((fd = open_savefile()) >= 0 &&
  1296. X       /* if not up-to-date, quietly delete file via false condition */
  1297. X       (uptodate(fd) || delete_savefile())) {
  1298. X#ifdef WIZARD
  1299. X        /* Since wizard is actually flags.debug, restoring might
  1300. X         * overwrite it.
  1301. X         */
  1302. X        boolean remember_wiz_mode = wizard;
  1303. X#endif
  1304. X#ifdef NEWS
  1305. X        if(flags.news) display_file(NEWS, FALSE);
  1306. X#endif
  1307. X        pline("Restoring save file...");
  1308. X        mark_synch();    /* flush output */
  1309. X        if(!dorecover(fd))
  1310. X            goto not_recovered;
  1311. X#ifdef WIZARD
  1312. X        if(!wizard && remember_wiz_mode) wizard = TRUE;
  1313. X#endif
  1314. X        pline("Hello %s, welcome back to NetHack!", plname);
  1315. X        check_special_room(FALSE);
  1316. X
  1317. X#ifdef EXPLORE_MODE
  1318. X        if (discover)
  1319. X            You("are in non-scoring discovery mode.");
  1320. X#endif
  1321. X#if defined(EXPLORE_MODE) || defined(WIZARD)
  1322. X        if (discover || wizard) {
  1323. X            if(yn("Do you want to keep the save file?") == 'n')
  1324. X                (void) delete_savefile();
  1325. X            else {
  1326. X                compress(SAVEF);
  1327. X            }
  1328. X        }
  1329. X#endif
  1330. X        flags.move = 0;
  1331. X    } else {
  1332. Xnot_recovered:
  1333. X        player_selection();
  1334. X        newgame();
  1335. X        /* give welcome message before pickup messages */
  1336. X        pline("Hello %s, welcome to NetHack!", plname);
  1337. X#ifdef EXPLORE_MODE
  1338. X        if (discover)
  1339. X            You("are in non-scoring discovery mode.");
  1340. X#endif
  1341. X        flags.move = 0;
  1342. X        set_wear();
  1343. X        pickup(1);
  1344. X    }
  1345. X
  1346. X    flags.moonphase = phase_of_the_moon();
  1347. X    if(flags.moonphase == FULL_MOON) {
  1348. X        You("are lucky!  Full moon tonight.");
  1349. X        change_luck(1);
  1350. X    } else if(flags.moonphase == NEW_MOON) {
  1351. X        pline("Be careful!  New moon tonight.");
  1352. X    }
  1353. X    if(flags.friday13 = friday_13th()) {
  1354. X        pline("Watch out!  Bad things can happen on Friday the 13th.");
  1355. X        change_luck(-1);
  1356. X    }
  1357. X
  1358. X    initrack();
  1359. X
  1360. X    UndimMenuBar ( ) ; /* Yes, this is the place for it (!) */
  1361. X    
  1362. X    attemptingto("proceed");
  1363. X#if defined(MAC_MPW32) && !defined(MODEL_FAR)
  1364. X    UnloadAllSegments();                        /* Do this before naming residents */
  1365. X    IsResident( (Ptr) display_nhwindow );        /* Sample resident segments */
  1366. X    IsResident( (Ptr) rhack );
  1367. X    IsResident( (Ptr) engr_at );
  1368. X    IsResident( (Ptr) movemon );
  1369. X    IsResident( (Ptr) attacktype ) ;
  1370. X    IsResident( (Ptr) mac_get_nh_event ) ;
  1371. X#endif
  1372. X    moveloop();
  1373. X    /*NOTREACHED*/
  1374. X    return 0;
  1375. X}
  1376. X
  1377. X
  1378. X/*
  1379. X * This filter handles the movable-modal dialog
  1380. X *
  1381. X */
  1382. Xstatic pascal Boolean
  1383. XDragFilter ( DialogPtr dp , EventRecord * event , short * item )
  1384. X{
  1385. X    WindowPtr wp ;
  1386. X    short code ;
  1387. X    Rect r ;
  1388. X
  1389. X/*
  1390. X *    Handle shortcut keys
  1391. X *    enter, return -> OK
  1392. X *    clear, escape, period -> Cancel
  1393. X *    all others are handled default
  1394. X *
  1395. X */
  1396. X
  1397. X    if ( event -> what == keyDown ) {
  1398. X
  1399. X        char c = event -> message & 0xff ;
  1400. X        unsigned char b = ( event -> message >> 8 ) & 0xff ;
  1401. X
  1402. X        switch ( c ) {
  1403. X
  1404. X        case 3 :    /* 3 == Enter */
  1405. X        case 10 :    /* Newline */
  1406. X        case 13 :    /* Return */
  1407. X            * item = 1 ;
  1408. X            return 1 ;
  1409. X
  1410. X        case '.' :    /* Cmd-period - we allow only period */
  1411. X        case 27 :    /* Escape */
  1412. X            * item = 2 ;
  1413. X            return 1 ;
  1414. X        }
  1415. X
  1416. X        switch ( b ) {
  1417. X
  1418. X        case 0x4c :    /* Enter */
  1419. X        case 0x24 :    /* Return */
  1420. X            * item = 1 ;
  1421. X            return 1 ;
  1422. X
  1423. X        case 0x35 :    /* Escape */
  1424. X        case 0x47 :    /* Clear */
  1425. X            * item = 2 ;
  1426. X            return 1 ;
  1427. X        }
  1428. X
  1429. X        return 0 ;
  1430. X    }
  1431. X
  1432. X/*
  1433. X *    OK, don't handle others
  1434. X *
  1435. X */
  1436. X
  1437. X    if ( event -> what != mouseDown ) {
  1438. X
  1439. X        return 0 ;
  1440. X    }
  1441. X    code = FindWindow ( event -> where , & wp ) ;
  1442. X    if ( wp != dp || code != inDrag ) {
  1443. X
  1444. X        return 0 ;
  1445. X    }
  1446. X    r = ( * GetGrayRgn ( ) ) -> rgnBBox ;
  1447. X    InsetRect ( & r , 3 , 3 ) ;
  1448. X
  1449. X    DragWindow ( wp , event -> where , & r ) ;
  1450. X    SaveWindowPos ( wp ) ;
  1451. X
  1452. X    event -> what = nullEvent ;
  1453. X    return 1 ;
  1454. X}
  1455. X
  1456. X
  1457. X/*
  1458. X * plname is filled either by an option (-u Player  or  -uPlayer) or
  1459. X * explicitly (by being the wizard) or by askname.
  1460. X * It may still contain a suffix denoting pl_character.
  1461. X */
  1462. Xvoid
  1463. Xmac_askname(void) /* Code taken from getlin */
  1464. X{
  1465. X    ControlHandle    ctrl ;
  1466. X    DialogPtr        promptDialog ;
  1467. X    short            itemHit , type ;
  1468. X    Rect            box ;
  1469. X    Str255            pasStr ;
  1470. X
  1471. X    /*
  1472. X    ** Set the query line as parameter text.
  1473. X    */
  1474. X
  1475. X    ParamText ( "\PWho are you?" , "\p" , "\p" , "\p" ) ;
  1476. X
  1477. X    promptDialog = GetNewDialog ( 130 , ( Ptr ) NULL , ( WindowPtr ) -1 ) ;
  1478. X    ShowWindow ( promptDialog ) ;
  1479. X
  1480. X    InitCursor ( ) ;
  1481. X    SetFrameItem ( promptDialog , 6 , 1 ) ;
  1482. X    do {
  1483. X
  1484. X        ModalDialog ( ( ModalFilterProcPtr ) DragFilter , & itemHit ) ;
  1485. X
  1486. X    } while ( ( itemHit != 1 ) && ( itemHit != 2 ) ) ;
  1487. X
  1488. X    if ( itemHit == 1 ) {
  1489. X
  1490. X        /*
  1491. X        ** Get the text from the text edit item.
  1492. X        */
  1493. X
  1494. X        GetDItem ( promptDialog , 4 , & type , ( Handle * ) & ctrl , & box ) ;
  1495. X        GetIText ( ( Handle ) ctrl , pasStr ) ;
  1496. X
  1497. X        /*
  1498. X        ** Convert it to a 'C' string and copy it into the return value.
  1499. X        */
  1500. X
  1501. X        PtoCstr ( pasStr ) ;
  1502. X        strcpy ( plname , ( char * ) pasStr ) ;
  1503. X
  1504. X    /*
  1505. X     * Special check for debugging here
  1506. X     *
  1507. X     */
  1508. X#ifdef WIZARD
  1509. X        if ( ! strcmp ( plname , WIZARD ) ) {
  1510. X
  1511. X            flags . debug = 1 ;
  1512. X        }
  1513. X#endif
  1514. X
  1515. X    } else {
  1516. X
  1517. X        /*
  1518. X        ** Okay, we didn't want to run
  1519. X        */
  1520. X
  1521. X    /*    * ( short * ) DSErrCode = dsBadLaunch ; */
  1522. X        ExitToShell ( ) ;
  1523. X    }
  1524. X
  1525. X    DisposDialog ( promptDialog ) ;
  1526. X}
  1527. X
  1528. X
  1529. Xstatic void
  1530. Xprocess_options(void)
  1531. X{
  1532. X    int argc = 0 ;
  1533. X    char * foo [ ] = { "Mac Hack" , NULL } ;
  1534. X    char * * argv = foo ;
  1535. X    /*
  1536. X     * Process options.
  1537. X     */
  1538. X    while(argc > 1 && argv[1][0] == '-'){
  1539. X        argv++;
  1540. X        argc--;
  1541. X        switch(argv[0][1]){
  1542. X#if defined(WIZARD) || defined(EXPLORE_MODE)
  1543. X# ifndef EXPLORE_MODE
  1544. X        case 'X':
  1545. X# endif
  1546. X        case 'D':
  1547. X# ifdef WIZARD
  1548. X            wizard = TRUE ;
  1549. X            break ;
  1550. X# endif
  1551. X# ifdef EXPLORE_MODE
  1552. X        case 'X':
  1553. X            discover = TRUE;
  1554. X# endif
  1555. X            break;
  1556. X#endif
  1557. X#ifdef NEWS
  1558. X        case 'n':
  1559. X            flags.news = FALSE;
  1560. X            break;
  1561. X#endif
  1562. X        case 'u':
  1563. X            if(argv[0][2])
  1564. X              (void) strncpy(plname, argv[0]+2, sizeof(plname)-1);
  1565. X            else if(argc > 1) {
  1566. X              argc--;
  1567. X              argv++;
  1568. X              (void) strncpy(plname, argv[0], sizeof(plname)-1);
  1569. X            } else
  1570. X                raw_print("Player name expected after -u");
  1571. X            break;
  1572. X        case 'I':
  1573. X        case 'i':
  1574. X            if (!strncmpi(argv[0]+1, "IBM", 3))
  1575. X                switch_graphics(IBM_GRAPHICS);
  1576. X            break;
  1577. X        /*  case 'D': */
  1578. X        case 'd':
  1579. X            if (!strncmpi(argv[0]+1, "DEC", 3))
  1580. X                switch_graphics(DEC_GRAPHICS);
  1581. X            break;
  1582. X        default:
  1583. X            /* allow -T for Tourist, etc. */
  1584. X            (void) strncpy(pl_character, argv[0]+1,
  1585. X                sizeof(pl_character)-1);
  1586. X
  1587. X            /* raw_print("Unknown option: %s", *argv); */
  1588. X        }
  1589. X    }
  1590. X}
  1591. X
  1592. X
  1593. Xstatic void
  1594. Xwhoami ( void )
  1595. X{
  1596. X    /*TODO*/
  1597. X    donull ( ) ;
  1598. X}
  1599. X
  1600. X
  1601. X/*------------------- UnloadAllSegments and support stuff --------------------------*/
  1602. X/* Derived from MacApp source */
  1603. X
  1604. Xtypedef Handle **HandleListHandle;
  1605. Xtypedef Boolean **BoolListHandle;
  1606. Xtypedef short *ShortPtr, **ShortHandle;
  1607. X
  1608. Xshort FDECL(GetSegNumber,(ShortPtr));
  1609. Xvoid FDECL(InitSegMgmt,(void *));
  1610. Xpascal long NDECL(GetA5);
  1611. Xpascal short NDECL(GetCurJTOffset);
  1612. Xvoid NDECL(UnloadAllSegments);
  1613. Xvoid FDECL(IsResident,(void *));
  1614. Xvoid FDECL(NotResident, (void *));
  1615. X
  1616. Xshort              pMaxSegNum = 0,        /* Highest segment number */
  1617. X                   gCodeRefNum;            /* rsrc refnum of the application */
  1618. XHandleListHandle gCodeSegs;                /* List of code seg handles */
  1619. XBoolListHandle   gIsResidentSeg;        /* Resident flags */
  1620. X
  1621. X#define kLoaded   0x4EF9                /* if loaded then a JMP instruction */
  1622. X#define    kUnLoaded 0x3F3C                /* if unloaded then a LoadSeg trap */
  1623. X                                        /* Note: probably incorrect for -model far! */
  1624. X
  1625. X/* #define TRACKSEGS /* Utility to print a trace of segment load frequencies. Add
  1626. X   a call to ListGUnloads into terminate() in end.c to use it */
  1627. X
  1628. X#ifdef TRACKSEGS
  1629. X
  1630. Xlong      gUnloads[120];
  1631. Xchar      gSegNames[120][16];
  1632. X
  1633. Xvoid ListGUnloads(void)
  1634. X{
  1635. X  int i;
  1636. X  FILE *f;
  1637. X  
  1638. X  f = fopen("unloads","r+");
  1639. X  fprintf(f,"%d calls to UnloadAllSegments\n\n",gUnloads[0]);
  1640. X  for (i=1; i<=pMaxSegNum; i++) {
  1641. X     fprintf(f,"Unloaded %10s, segment %2d, %6d times\n",gSegNames[i],i,gUnloads[i]);
  1642. X  }
  1643. X  fclose(f);
  1644. X}
  1645. X
  1646. X#endif
  1647. X
  1648. Xshort GetSegNumber(ShortPtr aProc)
  1649. X/* Derives seg number from a procedure ptr */
  1650. X
  1651. X{
  1652. X    if (*aProc == kLoaded)                 /* loaded segment */
  1653. X        return(*--aProc);
  1654. X    else if (*aProc == kUnLoaded)          /* unloaded segment */
  1655. X        return(*++aProc);
  1656. X    else {
  1657. X        progerror("GetSegNumber was not passed an jump table address");
  1658. X        return(1);
  1659. X    }
  1660. X}
  1661. X
  1662. Xvoid InitSegMgmt(void * mainSeg)
  1663. X/* Initialise a list of handles to all the CODE segments and mark the mainseg as resident */
  1664. X{
  1665. X    short     i,
  1666. X            lastRsrc,
  1667. X            rsrcID,
  1668. X            oldResFile;
  1669. X    Handle  seg;
  1670. X    ResType rsrcType;
  1671. X    Str255  rsrcName;
  1672. X     
  1673. X    gCodeRefNum = HomeResFile(GetResource('CODE', 1));    
  1674. X    oldResFile = CurResFile();
  1675. X    UseResFile(gCodeRefNum);
  1676. X    
  1677. X    /* Discover the highest CODE rsrc ID: be ready for noncontiguous IDs */
  1678. X    lastRsrc = Count1Resources('CODE');    
  1679. X    SetResLoad(false);
  1680. X    for (i=1; i<=lastRsrc; i++) 
  1681. X        if (seg = Get1IndResource('CODE', i)) {
  1682. X            GetResInfo(seg, &rsrcID, &rsrcType, rsrcName);
  1683. X            if (rsrcID > pMaxSegNum) pMaxSegNum = rsrcID;
  1684. X        }
  1685. X        
  1686. X    /* Make handles of appropriate size to keep flags/segment handles */
  1687. X    SetResLoad(true);  /* In case we fail */
  1688. X    gCodeSegs = (HandleListHandle) NewHandle((pMaxSegNum+1) * sizeof(Handle));    
  1689. X    mustwork(MemError());
  1690. X    gIsResidentSeg = (BoolListHandle) NewHandle((pMaxSegNum+1) * sizeof(Boolean));
  1691. X    mustwork(MemError());
  1692. X    SetResLoad(false);    
  1693. X
  1694. X    #ifdef TRACKSEGS
  1695. X    gUnloads[0]=0;
  1696. X    #endif
  1697. X    for (i=1; i<=pMaxSegNum; i++) {
  1698. X       (*gIsResidentSeg)[i] = false;
  1699. X       (*gCodeSegs)[i] = Get1Resource('CODE',i);   /* Will be NIL if it doesn't exist */
  1700. X       #ifdef TRACKSEGS
  1701. X       {  /* Go get the segment name and save it */
  1702. X          short id;
  1703. X          ResType rType;
  1704. X          Str255 name;
  1705. X          char *cptr;
  1706. X          
  1707. X          GetResInfo((*gCodeSegs)[i],&id,&rType,&name);
  1708. X          if (name[0]>15) name[0]=15;
  1709. X          cptr = p2cstr(&name);
  1710. X          cptr = strcpy(&gSegNames[i], &name);
  1711. X          gUnloads[i] = 0;
  1712. X       }
  1713. X       #endif
  1714. X    }
  1715. X    SetResLoad(true);    
  1716. X    (*gIsResidentSeg)[GetSegNumber((ShortPtr)mainSeg)] = true;    
  1717. X    UseResFile(oldResFile);
  1718. X}
  1719. X
  1720. X#ifdef MAC_MPW32
  1721. Xpascal long GetA5(void) = { 0x2E8D };                    /* MOVE.L A5,(A7) */
  1722. Xpascal short GetCurJTOffset(void) = { 0x3EB8, 0x934 };   /* MOVE.W CurJTOffset,(SP) */
  1723. X#endif
  1724. X#ifdef MAC_THINKC5
  1725. Xpascal long GetA5(void) = { 0x2E8D };                    /* MOVE.L A5,(A7) */
  1726. Xpascal short GetCurJTOffset(void) = { 0x3EB8, 0x934 };   /* MOVE.W CurJTOffset,(SP) */
  1727. X#endif
  1728. X
  1729. Xvoid UnloadAllSegments(void)
  1730. X{
  1731. X  short     i,
  1732. X         oldResFile;
  1733. X  Handle seg;
  1734. X  long     jumpTablePtr;
  1735. X
  1736. X  jumpTablePtr = GetA5() + GetCurJTOffset();
  1737. X  oldResFile = CurResFile();
  1738. X  UseResFile(gCodeRefNum);
  1739. X#ifdef TRACKSEGS
  1740. X  gUnloads[0]++;
  1741. X#endif
  1742. X  for (i=1; i<=pMaxSegNum; i++)
  1743. X      if (!(*gIsResidentSeg)[i]) {
  1744. X          seg = (*gCodeSegs)[i];
  1745. X          if ((seg != (Handle) nil) && (*seg != (Ptr) nil))  /* Check it exists and hasn't been purged */
  1746. X              if (HGetState(seg) & 0x80)  {   /* Is it locked? => loaded */
  1747. X#ifdef TRACKSEGS
  1748. X                 gUnloads[i]++;
  1749. X#endif
  1750. X                 UnloadSeg( (void *) (jumpTablePtr + **(ShortHandle)seg + 2) );
  1751. X              }
  1752. X      }
  1753. X
  1754. X  UseResFile(oldResFile);
  1755. X}
  1756. X
  1757. Xvoid IsResident( void * routineaddr )
  1758. X/* We want to move this high up in the heap as it won't be shifted again, so... */
  1759. X{
  1760. X    int    segnum;
  1761. X    Handle theseg;
  1762. X    
  1763. X    segnum = GetSegNumber((ShortPtr)routineaddr);
  1764. X    theseg = (*gCodeSegs)[segnum];
  1765. X    UnloadSeg( routineaddr );
  1766. X    if (*theseg != nil) {
  1767. X       MoveHHi( theseg );  /* If it has been purged we can't do this */
  1768. X       HLock( theseg );
  1769. X    }
  1770. X    (*gIsResidentSeg)[segnum] = true;    
  1771. X}
  1772. X
  1773. Xvoid NotResident( void * routineaddr )
  1774. X{
  1775. X    (*gIsResidentSeg)[GetSegNumber((ShortPtr)routineaddr)] = false;    
  1776. X}
  1777. X
  1778. X/*macmain.c*/
  1779. END_OF_FILE
  1780. if test 12965 -ne `wc -c <'sys/mac/macmain.c'`; then
  1781.     echo shar: \"'sys/mac/macmain.c'\" unpacked with wrong size!
  1782. fi
  1783. # end of 'sys/mac/macmain.c'
  1784. fi
  1785. if test -f 'sys/share/termcap' -a "${1}" != "-c" ; then 
  1786.   echo shar: Will not clobber existing file \"'sys/share/termcap'\"
  1787. else
  1788. echo shar: Extracting \"'sys/share/termcap'\" \(5404 characters\)
  1789. sed "s/^X//" >'sys/share/termcap' <<'END_OF_FILE'
  1790. X#
  1791. X#    MS/PC-DOS ANSI.SYS termcap
  1792. X#
  1793. Xansi|color|ansi-color|ibm|ibmpc|ANSI.SYS color:\
  1794. X    :co#80:li#24:bs:pt:bl=^G:le=^H:do=^J:\
  1795. X    :cl=\E[H\E[2J:ce=\E[K:\
  1796. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  1797. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1798. X    :ti=\E[0;44m:te=\E[0m:\
  1799. X    :so=\E[1;35;44m:se=\E[0;44m:\
  1800. X    :us=\E[1;31;44m:ue=\E[0;44m:\
  1801. X    :mb=\E[5m:md=\E[1m:me=\E[0;44m:
  1802. Xmono|ansi-mono|ANSI.SYS:\
  1803. X    :co#80:li#24:bs:pt:bl=^G:le=^H:do=^J:\
  1804. X    :cl=\E[H\E[2J:ce=\E[K:\
  1805. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  1806. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1807. X    :so=\E[1m:se=\E[m:us=\E[4m:ue=\E[m:\
  1808. X    :mb=\E[5m:md=\E[1m:me=\E[m:
  1809. X#
  1810. X#    This is a termcap for NNANSI.SYS (New & Improved NANSI.SYS),
  1811. X#    a faster and more complete public domain replacement for
  1812. X#    ANSI.SYS, and two other ANSI.SYS replacements, NANSI.SYS and
  1813. X#    ZANSI.SYS.
  1814. X#
  1815. X#    NANSI and ZANSI support line insert (al) and delete (dl)
  1816. X#    and character insert (ic) and delete (dc) where ANSI.SYS
  1817. X#    does not.  NNANSI.SYS also supports clear to end of display
  1818. X#    (cd), does reverse video (mr) properly, and emulates SGR
  1819. X#    more fully, allowing correct end sequences for standout (se)
  1820. X#    and end of underline (ue).
  1821. X#
  1822. Xnnansi-mono|NNANSI.SYS:\
  1823. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  1824. X    :cl=\E[2J:cd=\E[J:ce=\E[K:\
  1825. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  1826. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1827. X    :so=\E[1m:se=\E[2m:\
  1828. X    :us=\E[4m:ue=\E[24m:\
  1829. X    :mb=\E[5m:md=\E[1m:mh=\E[2m:mr=\E[7m:me=\E[m:\
  1830. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  1831. Xnnansi|NNANSI.SYS color:\
  1832. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  1833. X    :cl=\E[2J:cd=\E[J:ce=\E[K:\
  1834. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  1835. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1836. X    :ti=\E[0;44m:te=\E[0m:\
  1837. X    :so=\E[1;35;44m:se=\E[2;37m:\
  1838. X    :us=\E[4m:ue=\E[24m:\
  1839. X    :mb=\E[5m:md=\E[1m:mh=\E[2m:mr=\E[7m:me=\E[0;44m:\
  1840. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  1841. Xnansi-mono|zansi-mono|N/ZANSI.SYS:\
  1842. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  1843. X    :cl=\E[2J:ce=\E[K:\
  1844. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  1845. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1846. X    :ti=\E[0m:te=\E[0m:\
  1847. X    :so=\E[1;35m:se=\E[0m:\
  1848. X    :us=\E[1;31m:ue=\E[0m:\
  1849. X    :mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[m:\
  1850. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  1851. Xnansi|zansi|N/ZANSI.SYS color:\
  1852. X    :co#80:li#25:bs:pt:bl=^G:le=^H:do=^J:\
  1853. X    :cl=\E[2J:ce=\E[K:\
  1854. X    :ho=\E[H:cm=\E[%i%d;%dH:\
  1855. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1856. X    :ti=\E[0;44m:te=\E[0m:\
  1857. X    :so=\E[1;35;44m:se=\E[0;44m:\
  1858. X    :us=\E[1;31;44m:ue=\E[0;44m:\
  1859. X    :mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[0;44m:\
  1860. X    :al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:
  1861. X#
  1862. X# For ST NetHack:
  1863. X#       for VT100/200/&c in VT52 mode, add :ti=\E[?2l:
  1864. Xvt52|atari|DEC VT52:\
  1865. X    :co#80:li#24:bs:pt:bl=^G:le=^H:do=^J:\
  1866. X    :cl=\EH\EJ:ce=\EK:cd=\EJ:\
  1867. X    :ho=\EH:cm=\EY%+ %+ :\
  1868. X    :up=\EA:do=\EB:le=\EC:ri=\ED:nd=\EC:\
  1869. X    :ku=\EA:kd=\EB:kl=\EC:kr=\ED:kb=^H:\
  1870. X    :sr=\EI:as=\EF:ae=\EG:
  1871. X#
  1872. X# For Amiga or VMS NetHack:
  1873. X#       VT100 or clone without the advanced video option installed
  1874. Xvt100|amiga|vt100-80|vt100-noavo|DEC VT100:\
  1875. X    :co#80:li#24:bs:pt:am:mi:bl=^G:le=^H:do=^J:xo:vt#3:\
  1876. X    :cl=50\E[H\E[J:ce=3\E[K:cd=50\E[J:\
  1877. X    :ho=\E[H:cm=5\E[%i%d;%dH:cs=\E[%i%d;%dr:\
  1878. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1879. X    :UP=\E[%dA:DO=\E[%dB:LE=\E[%dC:RI=\E[%dD:\
  1880. X    :so=2\E[7m:se=2\E[m:us=2\E[4m:ue=2\E[m:\
  1881. X    :mb=2\E[5m:md=2\E[1m:mr=2\E[7m:me=2\E[m:\
  1882. X    :ti=4\E<\E(B\E)0:as=^N:ae=^O:\
  1883. X    :ks=\E[?1h\E=:ke=\E[?1l\E>:ku=\E[A:kd=\E[B:kl=\E[C:kr=\E[D:kb=^H:\
  1884. X    :kn#4:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:\
  1885. X    :sc=\E7:ec=\E8:sr=5\EM:
  1886. X#
  1887. X# VT102 and up:
  1888. X#       includes VT100 with advanced video option
  1889. Xvt102|vt102-80|vt100-avo|DEC VT102:\
  1890. X    :im=\E[4h:ei=\E[4l:al=5\E[L:dl=5\E[M:dc=5\E[P:\
  1891. X    :AL=9\E[%dL:DL=9\E[%dM:tc=vt100:
  1892. Xvt200|vt200-80|vt220|vt240|vt241|VT200_Series:\
  1893. X    :ic=5\E[@:tc=vt102:
  1894. Xvt300|vt300-80|vt320|vt330|vt340|VT300_Series:\
  1895. X    :tc=vt200:
  1896. Xvt400|vt400-80|vt420|VT400_Series:\
  1897. X    :tc=vt300:
  1898. X# VAXstations (should have full entries with no delays and 8-bit CSI's)
  1899. XVWS|UIS:tc=vt200:
  1900. XDECterm:tc=vt300:
  1901. X#
  1902. X# Wide screen (magnifying glass not included;-)
  1903. X#       note: vt100 w/o AVO only supports 14 lines when in 132-column mode
  1904. Xvt132|vt100-132:vt102-132:\
  1905. X    :co#132:ti=9\E<\E(B\E)0\E[?3h:tc=vt102:
  1906. Xvt200-132|vt300-132:\
  1907. X    :co#132:ti=9\E<\E(B\E)0\E[?3h:tc=vt200:
  1908. X#
  1909. X#
  1910. X# For really complete ANSI emulations (FANSI-CONSOLE?):
  1911. X#
  1912. XAX|ANSI X3.64|full ANSI X3.64 (1977) standard:\
  1913. X    :co#80:li#24:bs:pt:am:mi:bl=^G:le=^H:\
  1914. X    :cl=\E[2J:ce=\E[K:cd=\E[J:\
  1915. X    :ho=\E[H:cm=\E[%i%d;%dH:cs=\E[%i%d;%dr:\
  1916. X    :up=\E[A:do=\E[B:le=\E[C:ri=\E[D:nd=\E[C:\
  1917. X    :UP=\E[%dA:DO=\E[%dB:LE=\E[%dC:RI=\E[%dD:\
  1918. X    :so=\E[7m:se=\E[m:us=\E[4m:ue=\E[m:\
  1919. X    :mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[m:as=^N:ae=^O:\
  1920. X    :ku=\E[A:kd=\E[B:kl=\E[C:kr=\E[D:kb=^H:\
  1921. X    :kn#4:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:\
  1922. X    :im=\E[4h:ei=\E[4l:al=\E[L:dl=\E[M:ic=\E[@:dc=\E[P:sf=\ED:sr=\EM:
  1923. X#
  1924. X# Display hacker's tool
  1925. X#
  1926. Xdebug|debugging entry:\
  1927. X    :ae=<ae>:AL=<AL%d>:al=<al>:am:as=<as>:bl=<bl>:bs:bt=<bt>:bw:CC=<CC>:\
  1928. X    :cd=<cd>:ce=<ce>:ch=<ch%d>:cl=<cl>:cm=<cm%d,%d>:co#80:cr=<cr>:\
  1929. X    :cs=<cs%d,%d>:ct=<ct>:cv=<cv%d>:da:db:DC=<DC%d>:dc=<dc>:DL=<DL%d>:\
  1930. X    :dl=<dl>:dm=<dm>:DO=<DO%d>:do=<do>:ds=<ds>:ec=<ec%d>:ed=<ed>:ei=<ei>:\
  1931. X    :es:fs=<fs>:ho=<ho>:hs:IC=<IC%d>:ic=<ic>:im=<im>:ip=<ip>:is=<is>:\
  1932. X    :it#8:ke=<ke>:LE=<LE%d>:le=<le>:li#24:ll=<ll>:mb=<mb>:md=<md>:me=<me>:\
  1933. X    :mh=<mh>:mi:mk=<mk>:mm=<mm>:mo=<mo>:mp=<mp>:mr=<mr>:ms=<ms>:nd=<nd>:\
  1934. X    :nw=<nw>:pc=<pc>:pf=<pf>:pO=<pO%d>:po=<po>:ps=<ps>:rc=<rc>:RI=<RI%d>:\
  1935. X    :rp=<rp%.%d>:rs=<rs>:sc=<sc>:se=<se>:SF=<SF%d>:sf=<sf>:so=<so>:\
  1936. X    :SR=<SR%d>:sr=<sr>:st=<st>:ta=<ta>:te=<te>:ti=<ti>:uc=<uc>:ue=<ue>:\
  1937. X    :UP=<UP%d>:up=<up>:us=<us>:vb=<vb>:ve=<ve>:vi=<vi>:vs=<vs>:
  1938. X#
  1939. Xdumb:\
  1940. X    :am:bl=^G:co#80:do=^J:nl=^M^J:
  1941. END_OF_FILE
  1942. if test 5404 -ne `wc -c <'sys/share/termcap'`; then
  1943.     echo shar: \"'sys/share/termcap'\" unpacked with wrong size!
  1944. fi
  1945. # end of 'sys/share/termcap'
  1946. fi
  1947. echo shar: End of archive 90 \(of 108\).
  1948. cp /dev/null ark90isdone
  1949. MISSING=""
  1950. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  1951. 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 \
  1952. 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 \
  1953. 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 \
  1954. 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 \
  1955. 101 102 103 104 105 106 107 108 ; do
  1956.     if test ! -f ark${I}isdone ; then
  1957.     MISSING="${MISSING} ${I}"
  1958.     fi
  1959. done
  1960. if test "${MISSING}" = "" ; then
  1961.     echo You have unpacked all 108 archives.
  1962.     echo "Now execute 'rebuild.sh'"
  1963.     rm -f ark10[0-8]isdone ark[1-9]isdone ark[1-9][0-9]isdone
  1964. else
  1965.     echo You still need to unpack the following archives:
  1966.     echo "        " ${MISSING}
  1967. fi
  1968. ##  End of shell archive.
  1969. exit 0
  1970.