home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume16 / nethck31 / part87 < prev    next >
Encoding:
Internet Message Format  |  1993-02-05  |  57.4 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: v16i095:  nethack31 - display oriented dungeons & dragons (Ver. 3.1), Part87/108
  5. Message-ID: <4458@master.CNA.TEK.COM>
  6. Date: 5 Feb 93 19:22:05 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1783
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1646
  11.  
  12. Submitted-by: izchak@linc.cis.upenn.edu (Izchak Miller)
  13. Posting-number: Volume 16, Issue 95
  14. Archive-name: nethack31/Part87
  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 87 (of 108)."
  27. # Contents:  dat/Wizard.des src/quest.c sys/vms/vmsmail.c
  28. #   sys/vms/vmstty.c
  29. # Wrapped by billr@saab on Wed Jan 27 16:09:21 1993
  30. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  31. if test -f 'dat/Wizard.des' -a "${1}" != "-c" ; then 
  32.   echo shar: Will not clobber existing file \"'dat/Wizard.des'\"
  33. else
  34. echo shar: Extracting \"'dat/Wizard.des'\" \(14707 characters\)
  35. sed "s/^X//" >'dat/Wizard.des' <<'END_OF_FILE'
  36. X#    SCCS Id: @(#)Wizard.des    3.1    92/07/11
  37. X#    Copyright (c) 1992 by David Cohrs
  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, the Wizard of Balance
  43. X#    and receive your quest assignment.
  44. X#
  45. XMAZE: "W-start",' '
  46. XFLAGS: noteleport,hardfloor
  47. XGEOMETRY:center,center
  48. XMAP
  49. X............................................................................
  50. X.....................C....CC.C........................C.....................
  51. X..........CCC.....................CCC.......................................
  52. X........CC........-----------.......C.C...C...C....C........................
  53. X.......C.....---------------------...C..C..C..C.............................
  54. X......C..C...------....\....------....C.....C...............................
  55. X........C...||....|.........|....||.........................................
  56. X.......C....||....|.........+....||.........................................
  57. X.......C...||---+--.........|....|||........................................
  58. X......C....||...............|--S--||........................................
  59. X...........||--+--|++----|---|..|.SS..........C......C......................
  60. X........C..||.....|..|...|...|--|.||..CC..C.....C..........C................
  61. X.......C...||.....|..|.--|.|.|....||.................C..C...................
  62. X.....C......||....|..|.....|.|.--||..C..C..........C...........}}}..........
  63. X......C.C...||....|..-----.|.....||...C.C.C..............C....}}}}}}........
  64. X.........C...------........|------....C..C.....C..CC.C......}}}}}}}}}}}.....
  65. X.........CC..---------------------...C.C..C.....CCCCC.C.......}}}}}}}}......
  66. X.........C........-----------..........C.C.......CCC.........}}}}}}}}}......
  67. X..........C.C.........................C............C...........}}}}}........
  68. X......................CCC.C.................................................
  69. XENDMAP
  70. X# Random Monsters
  71. XRANDOM_MONSTERS: 'B', 'i'
  72. X# Dungeon Description
  73. XREGION:(00,00,75,19),lit,"ordinary"
  74. XREGION:(35,00,49,03),unlit,"ordinary"
  75. XREGION:(43,12,49,16),unlit,"ordinary"
  76. XREGION:(19,11,33,15),unlit,"ordinary",unfilled,true
  77. XREGION:(30,10,31,10),unlit,"ordinary"
  78. X# Stairs
  79. XSTAIR:(30,10),down
  80. X# Portal arrival point
  81. XBRANCH:(63,06,63,06),(0,0,0,0)
  82. X# Doors
  83. XDOOR:closed,(31,09)
  84. XDOOR:closed,(16,08)
  85. XDOOR:closed,(28,07)
  86. XDOOR:locked,(34,10)
  87. XDOOR:locked,(35,10)
  88. XDOOR:closed,(15,10)
  89. XDOOR:locked,(19,10)
  90. XDOOR:locked,(20,10)
  91. X# Wizard of Balance
  92. XMONSTER:'@',"Wizard of Balance",(23,05)
  93. X# The treasure of Wizard of Balance
  94. XOBJECT:'(',"chest",(24,05)
  95. X# apprentice guards for the audience chamber
  96. XMONSTER:'@',"apprentice",(30,07)
  97. XMONSTER:'@',"apprentice",(24,06)
  98. XMONSTER:'@',"apprentice",(15,06)
  99. XMONSTER:'@',"apprentice",(15,12)
  100. XMONSTER:'@',"apprentice",(26,11)
  101. XMONSTER:'@',"apprentice",(27,11)
  102. XMONSTER:'@',"apprentice",(19,09)
  103. XMONSTER:'@',"apprentice",(20,09)
  104. X# Eels in the pond
  105. XMONSTER:';',"giant eel",(62,14)
  106. XMONSTER:';',"giant eel",(69,15)
  107. XMONSTER:';',"giant eel",(67,17)
  108. X# Non diggable walls
  109. XNON_DIGGABLE:(00,00,75,19)
  110. X# Random traps
  111. XTRAP:random,random
  112. XTRAP:random,random
  113. XTRAP:random,random
  114. XTRAP:random,random
  115. XTRAP:random,random
  116. XTRAP:random,random
  117. X# Monsters on siege duty.
  118. XMONSTER: 'B',random,(60,09),hostile
  119. XMONSTER: 'W',random,(60,10),hostile
  120. XMONSTER: 'B',random,(60,11),hostile
  121. XMONSTER: 'B',random,(60,12),hostile
  122. XMONSTER: 'i',random,(60,13),hostile
  123. XMONSTER: 'B',random,(61,10),hostile
  124. XMONSTER: 'B',random,(61,11),hostile
  125. XMONSTER: 'B',random,(61,12),hostile
  126. XMONSTER: 'B',random,(35,03),hostile
  127. XMONSTER: 'i',random,(35,17),hostile
  128. XMONSTER: 'B',random,(36,17),hostile
  129. XMONSTER: 'B',random,(34,16),hostile
  130. XMONSTER: 'i',random,(34,17),hostile
  131. XMONSTER: 'W',random,(67,02),hostile
  132. XMONSTER: 'B',random,(10,19),hostile
  133. X 
  134. X#
  135. X#    The "locate" level for the quest.
  136. X#
  137. X#    Here you have to find the Entrance to the Tower of Darkness to go
  138. X#    further towards your assigned quest.
  139. X#
  140. X
  141. XMAZE: "W-locate",' '
  142. XFLAGS: hardfloor
  143. XGEOMETRY:center,center
  144. XMAP
  145. X.............        .......................................................
  146. X..............       .............}}}}}}}.}}}}}}}}}}}}}}}}}}}.}}}}}}}.......
  147. X..............      ..............}.................................}.......
  148. X..............      ..............}.---------S---------------------.}.......
  149. X...............     .........C....}.|.............................|.}.......
  150. X...............    ..........C....}.|.---------------------------.|.}.......
  151. X...............    .........CCC.....|.|.........................|.|.........
  152. X................   ....C....CCC...}.|.|.---S-------------------.|.|.}.......
  153. X.......C..C.....  .....C....CCC...}.|.|.|......+.......+......|.|.|.}.......
  154. X.............C..CC.....C....CCC...}.|.|.|......|-------|......|.|.|.}.......
  155. X................   ....C....CCC...}.|.|.|......|.......S......|.|.|.}.......
  156. X......C..C.....    ....C....CCC...}.|.|.|......|-------|......|.|.|.}.......
  157. X............C..     ...C....CCC...}.|.|.|......+.......+......|.|.|.}.......
  158. X........C......    ....C....CCC...}.|.|.-----------------------.|.|.}.......
  159. X....C......C...     ........CCC.....|.|.........................|.|.........
  160. X......C..C....      .........C....}.|.--------------------S------.|.}.......
  161. X..............      .........C....}.|.............................|.}.......
  162. X.............       ..............}.-------------------------------.}.......
  163. X.............        .............}.................................}.......
  164. X.............        .............}}}}}}}.}}}}}}}}}}}}}}}}}}}.}}}}}}}.......
  165. X.............        .......................................................
  166. XENDMAP
  167. X# Random Monsters
  168. XRANDOM_MONSTERS: 'B', 'X'
  169. X# Dungeon Description
  170. XREGION:(00,00,75,20),lit,"ordinary"
  171. XREGION:(37,04,65,16),unlit,"ordinary"
  172. XREGION:(41,08,46,12),lit,"ordinary"
  173. XREGION:(56,08,61,12),lit,"ordinary"
  174. XREGION:(48,08,54,08),unlit,"ordinary"
  175. XREGION:(48,12,54,12),unlit,"ordinary"
  176. XREGION:(48,10,54,10),unlit,"ordinary"
  177. X
  178. X# Doors
  179. XDOOR:locked,(45,03)
  180. XDOOR:locked,(43,07)
  181. XDOOR:locked,(58,15)
  182. XDOOR:locked,(55,10)
  183. XDOOR:locked,(55,08)
  184. XDOOR:locked,(55,12)
  185. XDOOR:locked,(47,08)
  186. XDOOR:locked,(47,12)
  187. X# Stairs
  188. XSTAIR:(03,17),up
  189. XSTAIR:(48,10),down
  190. X# Non diggable walls
  191. XNON_DIGGABLE:(00,00,75,20)
  192. X# Objects
  193. XOBJECT:random,random,random
  194. XOBJECT:random,random,random
  195. XOBJECT:random,random,random
  196. XOBJECT:random,random,random
  197. XOBJECT:random,random,random
  198. XOBJECT:random,random,random
  199. XOBJECT:random,random,random
  200. XOBJECT:random,random,random
  201. XOBJECT:random,random,random
  202. XOBJECT:random,random,random
  203. XOBJECT:random,random,random
  204. XOBJECT:random,random,random
  205. XOBJECT:random,random,random
  206. XOBJECT:random,random,random
  207. XOBJECT:random,random,random
  208. X# Random traps
  209. XTRAP:"spiked pit",(24,02)
  210. XTRAP:"spiked pit",(07,10)
  211. XTRAP:"spiked pit",(23,05)
  212. XTRAP:"spiked pit",(26,19)
  213. XTRAP:"spiked pit",(72,02)
  214. XTRAP:"spiked pit",(72,12)
  215. XTRAP:"falling rock",(45,16)
  216. XTRAP:"falling rock",(65,13)
  217. XTRAP:"falling rock",(55,06)
  218. XTRAP:"falling rock",(39,11)
  219. XTRAP:"falling rock",(57,09)
  220. XTRAP:"magic",random
  221. XTRAP:"statue",random
  222. XTRAP:"statue",random
  223. XTRAP:"polymorph",random
  224. XTRAP:"anti magic",(53,10)
  225. XTRAP:"sleep gas",random
  226. XTRAP:"sleep gas",random
  227. XTRAP:"dart",random
  228. XTRAP:"dart",random
  229. XTRAP:"dart",random
  230. X# Random monsters.
  231. XMONSTER:'B',random,random,hostile
  232. XMONSTER:'B',random,random,hostile
  233. XMONSTER:'B',random,random,hostile
  234. XMONSTER:'B',random,random,hostile
  235. XMONSTER:'B',random,random,hostile
  236. XMONSTER:'B',random,random,hostile
  237. XMONSTER:'B',random,random,hostile
  238. XMONSTER:'B',random,random,hostile
  239. XMONSTER:'B',random,random,hostile
  240. XMONSTER:'B',random,random,hostile
  241. XMONSTER:'B',random,random,hostile
  242. XMONSTER:'B',random,random,hostile
  243. XMONSTER:'i',random,random,hostile
  244. XMONSTER:'i',random,random,hostile
  245. XMONSTER:'i',random,random,hostile
  246. XMONSTER:'i',random,random,hostile
  247. XMONSTER:'i',random,random,hostile
  248. XMONSTER:'i',random,random,hostile
  249. XMONSTER:'i',random,random,hostile
  250. XMONSTER:'B',"vampire bat",random
  251. XMONSTER:'B',"vampire bat",random
  252. XMONSTER:'B',"vampire bat",random
  253. XMONSTER:'B',"vampire bat",random
  254. XMONSTER:'B',"vampire bat",random
  255. XMONSTER:'B',"vampire bat",random
  256. XMONSTER:'B',"vampire bat",random
  257. XMONSTER:'i',random,random,hostile
  258. X
  259. X#
  260. X#    The "goal" level for the quest.
  261. X#
  262. X#    Here you meet the Dark One, your nemesis monster.  You have to
  263. X#    defeat the Dark One in combat to gain the artifact you have
  264. X#    been assigned to retrieve.
  265. X#
  266. X
  267. XMAZE: "W-goal", ' '
  268. XGEOMETRY:center,center
  269. XMAP
  270. X                                                                            
  271. X
  272. X
  273. X                   -------------                 -------------
  274. X                   |...........|                 |...........|
  275. X            -------|...........-------------------...........|
  276. X            |......S...........|..|..|..|..|..|..|...........|
  277. X            |......|...........|..|..|..|..|..|..|...........|
  278. X            |......|...........--+--+--+--+--+--+-...........|
  279. X            --S----|...........S.................+...........|
  280. X            |......|...........--+--+--+--+--+--+-...........|
  281. X            |......|...........|..|..|..|..|..|..|...........|
  282. X            |......|...........|..|..|..|..|..|..|...........|
  283. X            -------|...........-------------------...........|
  284. X                   |...........|                 |...........|
  285. X                   -------------                 -------------
  286. X
  287. X
  288. X
  289. X                                                                            
  290. XENDMAP
  291. X# Random Monsters
  292. XRANDOM_MONSTERS: 'B', 'X'
  293. X# Dungeon Description
  294. XREGION:(13,10,18,12),unlit,"temple"
  295. XREGION:(13,06,18,08),lit,"ordinary"
  296. XREGION:(20,04,30,14),unlit,"ordinary"
  297. XREGION:(32,06,33,07),unlit,"ordinary"
  298. XREGION:(35,06,36,07),unlit,"ordinary"
  299. XREGION:(38,06,39,07),unlit,"ordinary"
  300. XREGION:(41,06,42,07),unlit,"ordinary"
  301. XREGION:(44,06,45,07),unlit,"ordinary"
  302. XREGION:(47,06,48,07),unlit,"ordinary"
  303. XREGION:(32,09,48,09),unlit,"ordinary"
  304. XREGION:(32,11,33,12),unlit,"ordinary"
  305. XREGION:(35,11,36,12),unlit,"ordinary"
  306. XREGION:(38,11,39,12),unlit,"ordinary"
  307. XREGION:(41,11,42,12),unlit,"ordinary"
  308. XREGION:(44,11,45,12),unlit,"ordinary"
  309. XREGION:(47,11,48,12),unlit,"ordinary"
  310. XREGION:(50,04,60,14),lit,"ordinary"
  311. X# Doors
  312. XDOOR:locked,(19,06)
  313. XDOOR:locked,(14,09)
  314. XDOOR:locked,(31,09)
  315. XDOOR:locked,(33,08)
  316. XDOOR:locked,(36,08)
  317. XDOOR:locked,(39,08)
  318. XDOOR:locked,(42,08)
  319. XDOOR:locked,(45,08)
  320. XDOOR:locked,(48,08)
  321. XDOOR:locked,(33,10)
  322. XDOOR:locked,(36,10)
  323. XDOOR:locked,(39,10)
  324. XDOOR:locked,(42,10)
  325. XDOOR:locked,(45,10)
  326. XDOOR:locked,(48,10)
  327. XDOOR:locked,(49,09)
  328. X# Stairs
  329. XSTAIR:(55,05),up
  330. X# Non diggable walls
  331. XNON_DIGGABLE:(00,00,75,19)
  332. X# The altar of Anhur.  This is not a shrine.
  333. XALTAR:(16,11),chaos,altar
  334. X# Objects
  335. XOBJECT:'"',"amulet of ESP",(16,11),blessed,0,"The Eye of the Aethiopica"
  336. XOBJECT:random,random,random
  337. XOBJECT:random,random,random
  338. XOBJECT:random,random,random
  339. XOBJECT:random,random,random
  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. XOBJECT:random,random,random
  349. XOBJECT:random,random,random
  350. X# Random traps
  351. XTRAP:random,random
  352. XTRAP:random,random
  353. XTRAP:random,random
  354. XTRAP:random,random
  355. XTRAP:random,random
  356. XTRAP:random,random
  357. X# Random monsters.
  358. XMONSTER:'@',"Dark One",(16,11)
  359. XMONSTER:'B',random,random,hostile
  360. XMONSTER:'B',random,random,hostile
  361. XMONSTER:'B',random,random,hostile
  362. XMONSTER:'B',random,random,hostile
  363. XMONSTER:'B',random,random,hostile
  364. XMONSTER:'B',random,random,hostile
  365. XMONSTER:'B',random,random,hostile
  366. XMONSTER:'B',random,random,hostile
  367. XMONSTER:'B',random,random,hostile
  368. XMONSTER:'B',random,random,hostile
  369. XMONSTER:'B',random,random,hostile
  370. XMONSTER:'i',random,random,hostile
  371. XMONSTER:'i',random,random,hostile
  372. XMONSTER:'i',random,random,hostile
  373. XMONSTER:'i',random,random,hostile
  374. XMONSTER:'i',random,random,hostile
  375. XMONSTER:'i',random,random,hostile
  376. XMONSTER:'i',random,random,hostile
  377. XMONSTER:'B',"vampire bat",random
  378. XMONSTER:'B',"vampire bat",random
  379. XMONSTER:'B',"vampire bat",random
  380. XMONSTER:'B',"vampire bat",random
  381. XMONSTER:'B',"vampire bat",random
  382. XMONSTER:'B',"vampire bat",random
  383. XMONSTER:'B',"vampire bat",random
  384. XMONSTER:'B',"vampire bat",random
  385. XMONSTER:'i',random,random,hostile
  386. X# Captive Monsters in the dungeon
  387. XMONSTER:'@',"rogue",(35,06),peaceful,"Pug"
  388. XMONSTER:'Y',"owlbear",(47,06),peaceful,asleep
  389. XMONSTER:'@',"wizard",(32,11),peaceful,asleep,"Newt"
  390. XMONSTER:'@',"Grey-elf",(44,11),peaceful
  391. XMONSTER:'H',"hill giant",(47,11),peaceful,asleep
  392. XMONSTER:'G',"gnomish wizard",(38,06),peaceful
  393. X
  394. X#
  395. X#    The "fill" levels for the quest.
  396. X#
  397. X#    These levels are used to fill out any levels not occupied by specific
  398. X#    levels as defined above. "filla" is the upper filler, between the
  399. X#    start and locate levels, and "fillb" the lower between the locate
  400. X#    and goal levels.
  401. X#
  402. X
  403. XLEVEL: "W-filla"
  404. X# Random Monsters
  405. XRANDOM_MONSTERS: 'B', 'X'
  406. X#
  407. XROOM: "ordinary" , random, random, random, random
  408. XSTAIR: random, up
  409. XOBJECT: random,random,random
  410. XMONSTER: 'i', random, random, hostile
  411. X
  412. XROOM: "ordinary" , random, random, random, random
  413. XOBJECT: random, random, random
  414. XOBJECT: random,random,random
  415. XMONSTER: 'i', random, random, hostile
  416. X
  417. XROOM: "ordinary" , random, random, random, random
  418. XOBJECT: random, random, random
  419. XTRAP: random, random
  420. XOBJECT: random,random,random
  421. XMONSTER: 'B', "vampire bat", random
  422. XMONSTER: 'B', "vampire bat", random
  423. X
  424. XROOM: "ordinary" , random, random, random, random
  425. XSTAIR: random, down
  426. XOBJECT: random, random, random
  427. XTRAP: random, random
  428. XMONSTER: 'i', random, random, hostile
  429. XMONSTER: 'B', "vampire bat", random
  430. X
  431. XROOM: "ordinary" , random, random, random, random
  432. XOBJECT: random, random, random
  433. XOBJECT: random, random, random
  434. XTRAP: random, random
  435. XMONSTER: 'i', random, random, hostile
  436. X
  437. XROOM: "ordinary" , random, random, random, random
  438. XOBJECT: random, random, random
  439. XTRAP: random, random
  440. XMONSTER: 'B', "vampire bat", random
  441. X
  442. XRANDOM_CORRIDORS
  443. X
  444. XLEVEL: "W-fillb"
  445. X# Random Monsters
  446. XRANDOM_MONSTERS: 'B', 'X'
  447. X#
  448. XROOM: "ordinary" , random, random, random, random
  449. XSTAIR: random, up
  450. XOBJECT: random,random,random
  451. XMONSTER: 'X', random, random, hostile
  452. X
  453. XROOM: "ordinary" , random, random, random, random
  454. XOBJECT: random, random, random
  455. XOBJECT: random,random,random
  456. XMONSTER: 'i', random, random, hostile
  457. X
  458. XROOM: "ordinary" , random, random, random, random
  459. XOBJECT: random, random, random
  460. XTRAP: random, random
  461. XOBJECT: random,random,random
  462. XMONSTER: 'X', random, random, hostile
  463. X
  464. XROOM: "ordinary" , random, random, random, random
  465. XSTAIR: random, down
  466. XOBJECT: random, random, random
  467. XTRAP: random, random
  468. XMONSTER: 'i', random, random, hostile
  469. XMONSTER: 'B', "vampire bat", random
  470. X
  471. XROOM: "ordinary" , random, random, random, random
  472. XOBJECT: random, random, random
  473. XOBJECT: random, random, random
  474. XTRAP: random, random
  475. XMONSTER: 'i', random, random, hostile
  476. X
  477. XROOM: "ordinary" , random, random, random, random
  478. XOBJECT: random, random, random
  479. XTRAP: random, random
  480. XMONSTER: 'B', "vampire bat", random
  481. X
  482. XRANDOM_CORRIDORS
  483. END_OF_FILE
  484. if test 14707 -ne `wc -c <'dat/Wizard.des'`; then
  485.     echo shar: \"'dat/Wizard.des'\" unpacked with wrong size!
  486. fi
  487. # end of 'dat/Wizard.des'
  488. fi
  489. if test -f 'src/quest.c' -a "${1}" != "-c" ; then 
  490.   echo shar: Will not clobber existing file \"'src/quest.c'\"
  491. else
  492. echo shar: Extracting \"'src/quest.c'\" \(8083 characters\)
  493. sed "s/^X//" >'src/quest.c' <<'END_OF_FILE'
  494. X/*    SCCS Id: @(#)quest.c    3.1    92/11/13    */
  495. X/*    Copyright 1991, M. Stephenson          */
  496. X/* NetHack may be freely redistributed.  See license for details. */
  497. X
  498. X#include "hack.h"
  499. X
  500. X#ifdef MULDGN
  501. X/*  quest dungeon branch routines. */
  502. X
  503. X#include "quest.h"
  504. X#include "qtext.h"
  505. X
  506. X#define Not_firsttime    (on_level(&u.uz0, &u.uz))
  507. X#define Qstat(x)    (quest_status.x)
  508. X
  509. Xstatic void NDECL(on_start);
  510. Xstatic void NDECL(on_locate);
  511. Xstatic void NDECL(on_goal);
  512. Xstatic boolean NDECL(not_capable);
  513. Xstatic boolean NDECL(not_pure);
  514. Xstatic void FDECL(expulsion, (BOOLEAN_P));
  515. Xstatic void NDECL(chat_with_leader);
  516. Xstatic void NDECL(chat_with_nemesis);
  517. Xstatic void NDECL(chat_with_guardian);
  518. X
  519. Xstatic void
  520. Xon_start() {
  521. X  if(!Qstat(first_start)) {
  522. X    qt_pager(QT_FIRSTTIME);
  523. X    Qstat(first_start) = TRUE;
  524. X  } else if((u.uz0.dnum != u.uz.dnum) || (u.uz0.dlevel < u.uz.dlevel)) {
  525. X    if(Qstat(not_ready) <= 2) qt_pager(QT_NEXTTIME);
  526. X    else    qt_pager(QT_OTHERTIME);
  527. X  }
  528. X}
  529. X
  530. Xstatic void
  531. Xon_locate() {
  532. X  if(!Qstat(first_locate)) {
  533. X    qt_pager(QT_FIRSTLOCATE);
  534. X    Qstat(first_locate) = TRUE;
  535. X  } else if(u.uz0.dlevel < u.uz.dlevel)
  536. X    qt_pager(QT_NEXTLOCATE);
  537. X}
  538. X
  539. Xstatic void
  540. Xon_goal() {
  541. X  if(!Qstat(made_goal)) {
  542. X    qt_pager(QT_FIRSTGOAL);
  543. X    Qstat(made_goal) = 1;
  544. X  } else {
  545. X    qt_pager(QT_NEXTGOAL);
  546. X    if(Qstat(made_goal) < 7) Qstat(made_goal)++;
  547. X  }
  548. X}
  549. X
  550. Xvoid
  551. Xquest_init() {
  552. X/*
  553. X *    Special setup modifications here:
  554. X *
  555. X *    Unfortunately, this is going to have to be done on each level,
  556. X *    on start-up, and on entry, since you lose the permonst mods
  557. X *    across a save/restore :-)
  558. X *
  559. X *    1 - The Rogue Leader is the Tourist Nemesis.
  560. X *    1 - Elves can have one of two different leaders, work it out here.
  561. X *    2 - Priests start with a random alignment - convert the leader and
  562. X *        guardians here.
  563. X */
  564. X#ifdef TOURIST
  565. X    if(pl_character[0] == 'T' && Is_nemesis(&u.uz)) {
  566. X    register struct monst *mtmp;
  567. X    mons[PM_MASTER_OF_THIEVES].msound = MS_NEMESIS;
  568. X    mons[PM_MASTER_OF_THIEVES].mflags2 &= ~(M2_PEACEFUL);
  569. X    mons[PM_MASTER_OF_THIEVES].mflags2 |= (M2_NASTY|M2_STALK|M2_HOSTILE);
  570. X    mons[PM_MASTER_OF_THIEVES].mflags3 = M3_WANTSARTI | M3_WAITFORU;
  571. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) /* find the leader... */
  572. X        if(mtmp->data->msound == MS_NEMESIS) {
  573. X        set_malign(mtmp); /* changed M2_PEACEFUL */
  574. X        break;
  575. X        }
  576. X    } else
  577. X#endif
  578. X    if(pl_character[0] == 'E' && flags.female && Is_qstart(&u.uz)) {
  579. X    register struct monst *mtmp;
  580. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) /* find the leader... */
  581. X        if(mtmp->data->msound == MS_LEADER) {
  582. X        mtmp->data = &mons[PM_ELWING]; /* sex-change */
  583. X        break;
  584. X        }
  585. X    } else if(pl_character[0] == 'P' && Is_qstart(&u.uz)) {
  586. X
  587. X    register struct monst *mtmp;
  588. X    for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) /* find leader & guards */
  589. X       if(mtmp->data->msound == MS_LEADER ||
  590. X          mtmp->data->msound == MS_GUARDIAN) {
  591. X           /* use game-start alignment for reference */
  592. X        mtmp->data->maligntyp = u.ualignbase[1]*3;
  593. X        mtmp->mpeaceful = TRUE;
  594. X        set_malign(mtmp); /* mpeaceful may have changed */
  595. X       }
  596. X    }
  597. X}
  598. X
  599. Xvoid
  600. Xonquest() {
  601. X
  602. X    if(Not_firsttime)    return;
  603. X    if(!Is_special(&u.uz)) return;
  604. X
  605. X    if(Is_qstart(&u.uz)) on_start();
  606. X    else if(Is_qlocate(&u.uz) && u.uz.dlevel > u.uz0.dlevel) on_locate();
  607. X    else if(Is_nemesis(&u.uz)) on_goal();
  608. X    return;
  609. X}
  610. X
  611. Xvoid
  612. Xnemdead() {
  613. X    if(!Qstat(killed_nemesis)) {
  614. X        Qstat(killed_nemesis) = TRUE;
  615. X        qt_pager(QT_KILLEDNEM);
  616. X    }
  617. X}
  618. X
  619. Xvoid
  620. Xartitouch() {
  621. X    if(!Qstat(touched_artifact)) {
  622. X        Qstat(touched_artifact) = TRUE;
  623. X        qt_pager(QT_GOTIT);
  624. X        exercise(A_WIS, TRUE);
  625. X    }
  626. X}
  627. X
  628. X/* external hook for do.c (level change check) */
  629. Xboolean
  630. Xok_to_quest() {
  631. X
  632. X    return(Qstat(got_quest));
  633. X}
  634. X
  635. Xstatic boolean
  636. Xnot_capable() {
  637. X  return(u.ulevel < MIN_QUEST_LEVEL);
  638. X}
  639. X
  640. X/* TODO:    This one needs tuning. */
  641. Xstatic boolean
  642. Xnot_pure() {
  643. X#ifdef WIZARD
  644. X    if(wizard && (u.ualign.record < MIN_QUEST_ALIGN)) {
  645. X
  646. X       You("are currently %d and require %d.",
  647. X         u.ualign.record, MIN_QUEST_ALIGN);
  648. X       if(yn_function("adjust?", NULL, 'y') == 'y')
  649. X        u.ualign.record = MIN_QUEST_ALIGN;
  650. X    }
  651. X#endif
  652. X  return(u.ualign.record < MIN_QUEST_ALIGN);
  653. X}
  654. X
  655. X/*
  656. X * Expell the player to the stairs on the parent of the quest dungeon.
  657. X *
  658. X * This assumes that the hero is currently _in_ the quest dungeon and that
  659. X * there is a single branch to and from it.
  660. X */
  661. Xstatic void
  662. Xexpulsion(seal)
  663. Xboolean seal;
  664. X{
  665. X  branch *br;
  666. X  d_level *dest;
  667. X
  668. X  br = dungeon_branch("The Quest");
  669. X  dest = (br->end1.dnum == u.uz.dnum) ? &br->end2 : &br->end1;
  670. X  assign_level(&u.utolev, dest);
  671. X  u.utotype = 1; /* portal */
  672. X  if (seal) {    /* remove the portal to the quest - sealing it off */
  673. X    u.utotype |= 0200;
  674. X    u.uevent.qexpelled = 1;
  675. X  }
  676. X}
  677. X
  678. Xstatic void
  679. Xchat_with_leader()
  680. X{
  681. X/*    Rule 0:    Cheater checks.                    */
  682. X    if(u.uhave.questart && !Qstat(met_nemesis))
  683. X        Qstat(cheater) = TRUE;
  684. X
  685. X/*    It is possible for you to get the amulet without completing
  686. X *    the quest.  If so, try to induce the player to quest.
  687. X */
  688. X    if(Qstat(got_thanks)) {
  689. X/*    Rule 1:    You've gone back with/whithout the amulet.    */
  690. X            if(u.uhave.amulet)    qt_pager(QT_HASAMULET);
  691. X
  692. X/*    Rule 2:    You've gone back before going for the amulet.    */
  693. X        else        qt_pager(QT_POSTHANKS);
  694. X    }
  695. X
  696. X/*    Rule 3: You've got the artifact and are back to return it. */
  697. X      else if(u.uhave.questart) {
  698. X        if(u.uhave.amulet)    qt_pager(QT_HASAMULET);
  699. X        else        qt_pager(QT_OFFEREDIT);
  700. X        Qstat(got_thanks) = TRUE;
  701. X        u.uevent.qcompleted = 1;    /* you did it! */
  702. X
  703. X/*    Rule 4: You haven't got the artifact yet.    */
  704. X    } else if(Qstat(got_quest)) qt_pager(rn1(10, QT_ENCOURAGE));
  705. X
  706. X/*    Rule 5: You aren't yet acceptable - or are you? */
  707. X    else {
  708. X      if(!Qstat(met_leader)) {
  709. X        qt_pager(QT_FIRSTLEADER);
  710. X        Qstat(met_leader) = TRUE;
  711. X        Qstat(not_ready) = 0;
  712. X      } else qt_pager(QT_NEXTLEADER);
  713. X
  714. X      if(not_capable()) {
  715. X        qt_pager(QT_BADLEVEL);
  716. X        exercise(A_WIS, TRUE);
  717. X        expulsion(FALSE);
  718. X      } else if(not_pure()) {
  719. X        qt_pager(QT_BADALIGN);
  720. X        if(Qstat(not_ready) == MAX_QUEST_TRIES) {
  721. X          qt_pager(QT_LASTLEADER);
  722. X          expulsion(TRUE);
  723. X        } else {
  724. X          Qstat(not_ready)++;
  725. X          exercise(A_WIS, TRUE);
  726. X          expulsion(FALSE);
  727. X        }
  728. X      } else {    /* You are worthy! */
  729. X        qt_pager(QT_ASSIGNQUEST);
  730. X        exercise(A_WIS, TRUE);
  731. X        Qstat(got_quest) = TRUE;
  732. X      }
  733. X    }
  734. X}
  735. X
  736. Xvoid
  737. Xleader_speaks(mtmp)
  738. X
  739. X    register struct monst *mtmp;
  740. X{
  741. X    /* maybe you attacked leader? */
  742. X    if(!mtmp->mpeaceful) {
  743. X        Qstat(pissed_off) = TRUE;
  744. X        mtmp->data->mflags3 = 0;    /* end the inaction */
  745. X    }
  746. X
  747. X        if(Qstat(pissed_off)) {
  748. X      qt_pager(QT_LASTLEADER);
  749. X      expulsion(TRUE);
  750. X    } else chat_with_leader();
  751. X
  752. X}
  753. X
  754. Xstatic void
  755. Xchat_with_nemesis()
  756. X{
  757. X/*    The nemesis will do most of the talking, but... */
  758. X        qt_pager(rn1(10, QT_DISCOURAGE));
  759. X    if(!Qstat(met_nemesis)) Qstat(met_nemesis++);
  760. X}
  761. X
  762. Xvoid
  763. Xnemesis_speaks()
  764. X{
  765. X    if(!Qstat(in_battle)) {
  766. X      if(u.uhave.questart) qt_pager(QT_NEMWANTSIT);
  767. X      else if(!Qstat(made_goal)) qt_pager(QT_FIRSTNEMESIS);
  768. X      else if(Qstat(made_goal) < 3) qt_pager(QT_NEXTNEMESIS);
  769. X      else if(Qstat(made_goal) < 7) qt_pager(QT_OTHERNEMESIS);
  770. X      else if(!rn2(5))    qt_pager(rn1(10, QT_DISCOURAGE));
  771. X      if(Qstat(made_goal) < 7) Qstat(made_goal)++;
  772. X       Qstat(met_nemesis) = TRUE;
  773. X    } else /* he will spit out random maledictions */
  774. X      if(!rn2(5))    qt_pager(rn1(10, QT_DISCOURAGE));
  775. X}
  776. X
  777. Xstatic void
  778. Xchat_with_guardian()
  779. X{
  780. X/*    These guys/gals really don't have much to say... */
  781. X        qt_pager(rn1(5, QT_GUARDTALK));
  782. X}
  783. X
  784. Xvoid
  785. Xquest_chat(mtmp)
  786. X
  787. X    register struct monst *mtmp;
  788. X{
  789. X
  790. X    switch(mtmp->data->msound) {
  791. X        case MS_LEADER:    chat_with_leader(); break;
  792. X        case MS_NEMESIS:    chat_with_nemesis(); break;
  793. X        case MS_GUARDIAN:    chat_with_guardian(); break;
  794. X        default:    impossible("quest_chat: Unknown quest character %s.",
  795. X                   mon_nam(mtmp));
  796. X    }
  797. X}
  798. X
  799. Xvoid
  800. Xquest_talk(mtmp)
  801. X
  802. X    register struct monst *mtmp;
  803. X{
  804. X    switch(mtmp->data->msound) {
  805. X        case MS_LEADER:    leader_speaks(mtmp); break;
  806. X        case MS_NEMESIS:    nemesis_speaks(); break;
  807. X        default:        break;
  808. X    }
  809. X}
  810. X
  811. Xvoid
  812. Xquest_stat_check(mtmp)
  813. X
  814. X    struct monst *mtmp;
  815. X{
  816. X    if(mtmp->data->msound == MS_NEMESIS)
  817. X    Qstat(in_battle) = 
  818. X        (mtmp->mcanmove && !mtmp->msleep && monnear(mtmp, u.ux, u.uy));
  819. X}
  820. X
  821. X#endif /* MULDGN */
  822. X
  823. X/*quest.c*/
  824. END_OF_FILE
  825. if test 8083 -ne `wc -c <'src/quest.c'`; then
  826.     echo shar: \"'src/quest.c'\" unpacked with wrong size!
  827. fi
  828. # end of 'src/quest.c'
  829. fi
  830. if test -f 'sys/vms/vmsmail.c' -a "${1}" != "-c" ; then 
  831.   echo shar: Will not clobber existing file \"'sys/vms/vmsmail.c'\"
  832. else
  833. echo shar: Extracting \"'sys/vms/vmsmail.c'\" \(16224 characters\)
  834. sed "s/^X//" >'sys/vms/vmsmail.c' <<'END_OF_FILE'
  835. X/*    SCCS Id: @(#)vmsmail.c    3.1    92/12/16    */
  836. X/* Copyright (c) Robert Patrick Rankin, 1991.              */
  837. X/* NetHack may be freely redistributed.  See license for details. */
  838. X
  839. X#define EXTERN_H    /* don't need all those prototypes */
  840. X#include "config.h"
  841. X
  842. X#ifdef MAIL
  843. X#include "winprocs.h"
  844. X#include "mail.h"
  845. X#include <ctype.h>
  846. X#include <descrip.h>
  847. X#include <errno.h>
  848. X# ifndef __GNUC__
  849. X#include <msgdef.h>
  850. X# else
  851. X#  define MSG$_TRMHANGUP  6
  852. X#  define MSG$_TRMBRDCST 83
  853. X# endif /*__GNUC__*/
  854. X#include <signal.h>
  855. X/* #include <string.h> */
  856. X# define vms_ok(sts) ((sts)&1)
  857. X
  858. Xstatic struct mail_info *FDECL(parse_brdcst, (char *));
  859. Xstatic void FDECL(filter_brdcst, (char *));
  860. Xstatic void NDECL(flush_broadcasts);
  861. Xstatic void FDECL(broadcast_ast, (int));
  862. Xextern char *strcpy(), *strcat(), *strrchr(), *strstri(), *eos();
  863. Xextern int strspn(), strncmpi();
  864. X#ifndef __DECC
  865. Xextern int VDECL(sscanf, (const char *,const char *,...));
  866. X#endif
  867. Xextern unsigned long
  868. X    SMG$CREATE_PASTEBOARD(),
  869. X    SMG$GET_BROADCAST_MESSAGE(),
  870. X    SMG$SET_BROADCAST_TRAPPING(),
  871. X    SMG$DISABLE_BROADCAST_TRAPPING();
  872. X
  873. Xextern volatile int broadcasts;        /* defining declaration in mail.c */
  874. X
  875. Xstatic long pasteboard_id = 0;        /* SMG's magic cookie */
  876. X
  877. X/*
  878. X * Mail (et al) overview:
  879. X *
  880. X *    When a broadcast is asynchronously captured, a volatile counter
  881. X * ('broadcasts') is incremented.  Each player turn, ckmailstatus() polls
  882. X * the counter and calls parse_next_broadcast() if it's positive; this
  883. X * returns some display text, object name, and response command, which is
  884. X * passed to newmail().  Routine newmail() generates a mail-daemon monster
  885. X * who approaches the character, "speaks" the display text, and delivers
  886. X * a scroll of mail pre-named to the object name; the response command is
  887. X * initially appended to the name, so that the object is tagged with both
  888. X * of them; a NUL is inserted to terminate the ordinary name and hide the
  889. X * command.  (If the player renames such a scroll, the hidden command will
  890. X * be lost; who cares?)  Unrecognized broadcasts result in the mail-daemon
  891. X * arriving and announcing the display text, but no scroll being created.
  892. X * If SHELL is undefined, then all broadcasts are treated as 'other'; since
  893. X * no subproceses are allowed, there'd be no way to respond to the scroll.
  894. X *
  895. X *    When a scroll of mail is read by the character, readmail() extracts
  896. X * the hidden command string and uses it for the default when prompting the
  897. X * player for a system command to spawn.  The player may enter any command
  898. X * he or she chooses, or just <return> to accept the default or <escape> to
  899. X * avoid executing any command.  If the command is "SPAWN", a regular shell
  900. X * escape to DCL is performed; otherwise, the indicated single command is
  901. X * spawned.  Either way, NetHack resumes play when the subprocess terminates
  902. X * or explicitly reattaches to its parent.
  903. X *
  904. X * Broadcast parsing:
  905. X *
  906. X *    The following broadcast messages are [attempted to be] recognized:
  907. X *    text fragment          name for scroll          default command
  908. X *    New mail        VMSmail            MAIL
  909. X *    New ALL-IN-1 MAIL    A1mail            A1M
  910. X *    Software Tools mail    STmail            MSG [+folder]
  911. X *    MM mail            MMmail            MM
  912. X *    WPmail: New mail    WPmail            OFFICE/MAIL
  913. X *    **M400 mail        M400mail        M400
  914. X *    " mail", ^"mail "    unknown mail        SPAWN
  915. X *    " phoning"        Phone call        PHONE ANSWER
  916. X *    talk-daemon...by...foo    Talk request        TALK[/OLD] foo@bar
  917. X *    (node)user -        Bitnet noise        XYZZY user@node
  918. X * Anything else results in just the message text being passed along, no
  919. X * scroll of mail so consequently no command to execute when scroll read.
  920. X * The user can set up ``$ XYZZY :== SEND'' prior to invoking NetHack if
  921. X * vanilla JNET responses to Bitnet messages are prefered.
  922. X *
  923. X *    Static return buffers are used because only one broadcast gets
  924. X * processed at a time, and the essential information in each one is
  925. X * either displayed and discarded or copied into a scroll-of-mail object.
  926. X *
  927. X *    The test driver code below can be used to check out potential new
  928. X * entries without rebuilding NetHack itself.  CC/DEFINE="TEST_DRIVER"
  929. X * Link it with hacklib.obj or nethack.olb/incl=hacklib (not nethack/lib).
  930. X */
  931. X
  932. Xstatic struct mail_info msg;    /* parse_*()'s return buffer */
  933. Xstatic char nam_cmd_buf[63],    /* maximum onamelth, size of ONAME(object) */
  934. X        txt_buf[255+1];    /* same size as used for message buf[] */
  935. X
  936. X/* try to decipher and categorize broadcast message text
  937. X*/
  938. Xstatic struct mail_info *
  939. Xparse_brdcst(buf)        /* called by parse_next_broadcast() */
  940. Xchar *buf;            /* input: filtered broadcast text */
  941. X{
  942. X    int typ;
  943. X    char *txt, *nam, *cmd;
  944. X# ifdef SHELL        /* only parse if spawned commands are enabled */
  945. X    register char *p, *q;
  946. X    boolean is_jnet_send;
  947. X    char cmd_buf[127+1], user[127+1], node[127+1], sentinel;
  948. X
  949. X    /* Check these first; otherwise, their arbitrary text would enable
  950. X    easy spoofing of some other message patterns.  Unfortunately,
  951. X    any home-grown broadcast delivery program poses a similar risk. */
  952. X    if (!strncmpi(buf, "reply received", 14)) goto other;
  953. X    is_jnet_send = (sscanf(buf, "(%[^)])%s -%c", node, user, &sentinel) == 3);
  954. X    if (is_jnet_send) goto jnet_send;
  955. X
  956. X    /* scan the text more or less by brute force */
  957. X    if ((q = strstri(buf, " mail")) != 0 ||    /* all known mail broadcasts */
  958. X    !strncmpi(q = buf, "mail ", 5)) {    /* unexpected alternative */
  959. X    typ = MSG_MAIL;
  960. X    p = strstri(q, " from");
  961. X    txt = p ? strcat(strcpy(txt_buf, "Mail for you"), p) : (char *) 0;
  962. X
  963. X    if (!strncmpi(buf, "new mail", 8)) {
  964. X/*
  965. XNew mail [on node FOO] from [SPAM::]BAR [\"personal_name\"] [\(HH:MM:SS\)]
  966. X*/
  967. X        nam = "VMSmail";        /* assume VMSmail */
  968. X        cmd = "MAIL";
  969. X        if (txt && (p = strrchr(txt, '(')) > txt && /* discard time */
  970. X        (--p, strspn(p, "0123456789( :.)") == strlen(p))) *p = '\0';
  971. X    } else if (!strncmpi(buf, "new all-in-1", 12)) {
  972. X        int i;
  973. X/*
  974. XNew ALL-IN-1 MAIL message [on node FOO] from Personal Name \(BAR@SPAM\) [\(DD-MMM-YYYY HH:MM:SS\)]
  975. X*/
  976. X        nam = "A1mail";
  977. X        cmd = "A1M";
  978. X        if (txt && (p = strrchr(txt, '(')) > txt && /* discard date+time */
  979. X        sscanf(p-1," (%*d-%*[^-]-%*d %*d:%*d:%d) %c",&i,&sentinel) == 1)
  980. X        *--p = '\0';
  981. X    } else if (!strncmpi(buf, "software tools", 14)) {
  982. X/*
  983. XSoftware Tools mail has arrived on FOO from \'BAR\' [in SPAM]
  984. X*/
  985. X        nam = "STmail";
  986. X        cmd = "MSG";
  987. X        if (txt && (p = strstri(p, " in ")) != 0)    /* specific folder */
  988. X        cmd = strcat(strcpy(cmd_buf, "MSG +"), p + 4);
  989. X    } else if (q - 2 >= buf && !strncmpi(q - 2, "mm", 2)) {
  990. X/*
  991. X{MultiNet\ |PMDF\/}MM mail has arrived on FOO from BAR\n
  992. X[Subject: subject_text] (PMDF only)
  993. X*/
  994. X        nam = "MMmail";        /* MultiNet's version of MM */
  995. X        cmd = "MM";            /*{ perhaps "MM READ"? }*/
  996. X    } else if (!strncmpi(buf, "wpmail:", 7)) {
  997. X/*
  998. XWPmail: New mail from BAR.  subject_text
  999. X*/
  1000. X        nam = "WPmail";        /* WordPerfect [sic] Office */
  1001. X        cmd = "OFFICE/MAIL";
  1002. X    } else if (!strncmpi(buf, "**m400 mail", 7)) {
  1003. X/*
  1004. X**M400 mail waiting**
  1005. X*/
  1006. X        nam = "M400mail";        /* Messenger 400 [not seen] */
  1007. X        cmd = "M400";
  1008. X    } else {
  1009. X        /* not recognized, but presumed to be mail */
  1010. X        nam = "unknown mail";
  1011. X        cmd = "SPAWN";        /* generic escape back to DCL */
  1012. X        txt = (char *) 0;        /* don't rely on "from" info here */
  1013. X    }
  1014. X
  1015. X    if (!txt) txt = strcat(strcpy(txt_buf, "Mail for you: "), buf);
  1016. X    /*
  1017. X     :    end of mail recognition; now check for call-type interruptions...
  1018. X     */
  1019. X    } else if ((q = strstri(buf, " phoning")) != 0) {
  1020. X/*
  1021. XBAR is phoning you [on FOO] \(HH:MM:SS\)
  1022. X*/
  1023. X    typ = MSG_CALL;
  1024. X    nam = "Phone call";
  1025. X    cmd = "PHONE ANSWER";
  1026. X    if (!strncmpi(q + 8, " you", 4)) q += (8 + 4), *q = '\0';
  1027. X    txt = strcat(strcpy(txt_buf, "Do you hear ringing?  "), buf);
  1028. X    } else if ((q = strstri(buf, " talk-daemon")) != 0 ||
  1029. X           (q = strstri(buf, " talk_daemon")) != 0) {
  1030. X/*
  1031. XMessage from TALK-DAEMON@FOO at HH:MM:SS\n
  1032. XConnection request by BAR@SPAM\n
  1033. X\[Respond with: TALK[/OLD] BAR@SPAM\]
  1034. X*/
  1035. X    typ = MSG_CALL;
  1036. X    nam = "Talk request";        /* MultiNet's TALK and/or TALK/OLD */
  1037. X    cmd = "TALK";
  1038. X    if ((p = strstri(q, " by ")) != 0) {
  1039. X        txt = strcat(strcpy(txt_buf, "Talk request from"), p + 3);
  1040. X        if ((p = strstri(p, "respond with")) != 0) {
  1041. X        if (*(p-1) == '[') *(p-1) = '\0'; else *p = '\0'; /* terminate */
  1042. X        p += (sizeof "respond with" - sizeof "");
  1043. X        if (*p == ':') p++;
  1044. X        if (*p == ' ') p++;
  1045. X        cmd = strcpy(cmd_buf, p);    /* "TALK[/OLD] bar@spam" */
  1046. X        p = eos(cmd);
  1047. X        if (*--p == ']') *p = '\0';
  1048. X        }
  1049. X    } else
  1050. X        txt = strcat(strcpy(txt_buf, "Pardon the interruption: "), buf);
  1051. X    } else if (is_jnet_send) {    /* sscanf(,"(%[^)])%s -%c",,,)==3 */
  1052. Xjnet_send:
  1053. X/*
  1054. X\(SPAM\)BAR - arbitrary_message_text (from BAR@SPAM)
  1055. X*/
  1056. X    typ = MSG_CALL;
  1057. X    nam = "Bitnet noise";        /* RSCS/NJE message received via JNET */
  1058. X    Sprintf(cmd = cmd_buf, "XYZZY %s@%s", user, node);
  1059. X    /*{ perhaps just vanilla SEND instead of XYZZY? }*/
  1060. X    Sprintf(txt = txt_buf, "Message from %s@%s:%s", user, node,
  1061. X        &buf[1+strlen(node)+1+strlen(user)+2-1]);  /* "(node)user -" */
  1062. X    /*
  1063. X     :    end of call recognition; anything else is none-of-the-above...
  1064. X     */
  1065. X    } else {
  1066. Xother:
  1067. X# endif /* SHELL */
  1068. X/* arbitrary broadcast: batch job completed, system shutdown imminent, &c */
  1069. X    typ = MSG_OTHER;
  1070. X    nam = (char *) 0; /*"captured broadcast message"*/
  1071. X    cmd = (char *) 0;
  1072. X    txt = strcat(strcpy(txt_buf, "Message for you: "), buf);
  1073. X# ifdef SHELL
  1074. X    }
  1075. X    /* Daemon in newmail() will append period when the text is displayed */
  1076. X    if ((p = eos(txt)) > txt && *--p == '.') *p = '\0';
  1077. X
  1078. X    /* newmail() and readmail() assume that nam and cmd are concatenated */
  1079. X    if (nam) {        /* object name to attach to scroll of mail */
  1080. X    nam = strcpy(nam_cmd_buf, nam);
  1081. X    if (cmd) {    /* append command to name; readmail() requires it */
  1082. X        int len = sizeof nam_cmd_buf - sizeof "" - (strlen(nam) + 1);
  1083. X        cmd_buf[len] = '\0';    /* possibly truncate */
  1084. X        (void) strcat(nam, " ");
  1085. X        cmd = strcpy(eos(nam), cmd);
  1086. X    }
  1087. X    }
  1088. X# endif /* SHELL */
  1089. X    msg.message_typ  = typ;    /* simple index */
  1090. X    msg.display_txt  = txt;    /* text for daemon to pline() */
  1091. X    msg.object_nam   = nam;    /* 'name' for mail scroll */
  1092. X    msg.response_cmd = cmd;    /* command to spawn when scroll read */
  1093. X    return &msg;
  1094. X}
  1095. X
  1096. X/* filter out non-printable characters and redundant noise
  1097. X*/
  1098. Xstatic void
  1099. Xfilter_brdcst(buf)        /* called by parse_next_broadcast() */
  1100. Xregister char *buf;        /* in: original text; out: filtered text */
  1101. X{
  1102. X    register char c, *p, *buf_p;
  1103. X
  1104. X    /* filter the text; restrict consecutive spaces or dots to just two */
  1105. X    for (p = buf_p = buf; *buf_p; buf_p++) {
  1106. X    c = *buf_p & '\177';
  1107. X    if (c == ' ' || c == '\t' || c == '\n')
  1108. X        if (p == buf ||        /* ignore leading whitespace */
  1109. X        (p >= buf+2 && *(p-1) == ' ' && *(p-2) == ' ')) continue;
  1110. X        else c = ' ';
  1111. X    else if (c == '.' || c < ' ' || c == '\177')
  1112. X        if (p == buf ||        /* skip leading beeps & such */
  1113. X        (p >= buf+2 && *(p-1) == '.' && *(p-2) == '.')) continue;
  1114. X        else c = '.';
  1115. X    else if (c == '%' &&        /* trim %%% OPCOM verbosity %%% */
  1116. X        p >= buf+2 && *(p-1) == '%' && *(p-2) == '%') continue;
  1117. X    *p++ = c;
  1118. X    }
  1119. X    *p = '\0';            /* terminate, then strip trailing junk */
  1120. X    while (p > buf && (*--p == ' ' || *p == '.')) *p = '\0';
  1121. X    return;
  1122. X}
  1123. X
  1124. X/* fetch the text of a captured broadcast, then mangle and decipher it
  1125. X*/
  1126. Xstruct mail_info *
  1127. Xparse_next_broadcast()        /* called by ckmailstatus(mail.c) */
  1128. X{
  1129. X    short length, msg_type;
  1130. X    $DESCRIPTOR(message, "");    /* string descriptor for buf[] */
  1131. X    struct mail_info *result = 0;
  1132. X    /* messages could actually be longer; let long ones be truncated */
  1133. X    char buf[255+1];
  1134. X
  1135. X    message.dsc$a_pointer = buf,  message.dsc$w_length = sizeof buf - 1;
  1136. X    msg_type = length = 0;
  1137. X    SMG$GET_BROADCAST_MESSAGE(&pasteboard_id, &message, &length, &msg_type);
  1138. X    if (msg_type == MSG$_TRMBRDCST) {
  1139. X    buf[length] = '\0';
  1140. X    filter_brdcst(buf);        /* mask non-printable characters */
  1141. X    result = parse_brdcst(buf);    /* do the real work */
  1142. X    } else if (msg_type == MSG$_TRMHANGUP) {
  1143. X    (void) gsignal(SIGHUP);
  1144. X    }
  1145. X    return result;
  1146. X}
  1147. X
  1148. X/* spit out any pending broadcast messages whenever we leave
  1149. X*/
  1150. Xstatic void
  1151. Xflush_broadcasts()    /* called from disable_broadcast_trapping() */
  1152. X{
  1153. X    if (broadcasts > 0) {
  1154. X    short len, typ;
  1155. X    $DESCRIPTOR(msg, "");
  1156. X    char buf[512+1];
  1157. X
  1158. X    msg.dsc$a_pointer = buf,  msg.dsc$w_length = sizeof buf - 1;
  1159. X    raw_print("");        /* print at least one line for wait_synch() */
  1160. X    do {
  1161. X        typ = len = 0;
  1162. X        SMG$GET_BROADCAST_MESSAGE(&pasteboard_id, &msg, &len, &typ);
  1163. X        if (typ == MSG$_TRMBRDCST) buf[len] = '\0',  raw_print(buf);
  1164. X    } while (--broadcasts);
  1165. X    wait_synch();        /* prompt with "Hit return to continue: " */
  1166. X    }
  1167. X}
  1168. X
  1169. X/* AST routine called when the terminal's associated mailbox receives a message
  1170. X*/
  1171. Xstatic void
  1172. Xbroadcast_ast(dummy)        /* called asynchronously by terminal driver */
  1173. Xint dummy;    /* not used */
  1174. X{
  1175. X    broadcasts++;
  1176. X}
  1177. X
  1178. X/* initialize the broadcast manipulation code; SMG makes this easy
  1179. X*/
  1180. Xunsigned long init_broadcast_trapping()   /* called by setftty() [once only] */
  1181. X{
  1182. X    unsigned long sts, preserve_screen_flag = 1;
  1183. X
  1184. X    /* we need a pasteboard to pass to the broadcast setup/teardown routines */
  1185. X    sts = SMG$CREATE_PASTEBOARD(&pasteboard_id, 0, 0, 0, &preserve_screen_flag);
  1186. X    if (!vms_ok(sts)) {
  1187. X    errno = EVMSERR,  vaxc$errno = sts;
  1188. X    raw_print("");
  1189. X    perror("?can't create SMG pasteboard for broadcast trapping");
  1190. X    wait_synch();
  1191. X    broadcasts = -1;    /* flag that trapping is currently broken */
  1192. X    }
  1193. X    return sts;
  1194. X}
  1195. X
  1196. X/* set up the terminal driver to deliver $brkthru data to a mailbox device
  1197. X*/
  1198. Xunsigned long enable_broadcast_trapping()    /* called by setftty() */
  1199. X{
  1200. X    unsigned long sts = 1;
  1201. X
  1202. X    if (broadcasts >= 0) {    /* (-1 => no pasteboard, so don't even try) */
  1203. X    /* register callback routine to be triggered when broadcasts arrive */
  1204. X    /* Note side effect:  also intercepts hangup notification. */
  1205. X    /* Another note:  TMPMBX privilege is required. */
  1206. X    sts = SMG$SET_BROADCAST_TRAPPING(&pasteboard_id, broadcast_ast, 0);
  1207. X    if (!vms_ok(sts)) {
  1208. X        errno = EVMSERR,  vaxc$errno = sts;
  1209. X        raw_print("");
  1210. X        perror("?can't enable broadcast trapping");
  1211. X        wait_synch();
  1212. X    }
  1213. X    }
  1214. X    return sts;
  1215. X}
  1216. X
  1217. X/* return to 'normal'; $brkthru data goes straight to the terminal
  1218. X*/
  1219. Xunsigned long disable_broadcast_trapping()    /* called by settty() */
  1220. X{
  1221. X    unsigned long sts = 1;
  1222. X
  1223. X    if (broadcasts >= 0) {
  1224. X    /* disable trapping; releases associated MBX so that SPAWN can work */
  1225. X    sts = SMG$DISABLE_BROADCAST_TRAPPING(&pasteboard_id);
  1226. X    if (!vms_ok(sts)) errno = EVMSERR,  vaxc$errno = sts;
  1227. X    flush_broadcasts();    /* don't hold on to any buffered ones */
  1228. X    }
  1229. X    return sts;
  1230. X}
  1231. X#else    /* MAIL */
  1232. X    /* simple stubs for non-mail configuration */
  1233. Xunsigned long init_broadcast_trapping() { return 1; }
  1234. Xunsigned long enable_broadcast_trapping() { return 1; }
  1235. Xunsigned long disable_broadcast_trapping() { return 1; }
  1236. X#endif    /* MAIL */
  1237. X
  1238. X/*----------------------------------------------------------------------*/
  1239. X
  1240. X#ifdef TEST_DRIVER
  1241. X    /* (Take parse_next_broadcast for a spin. :-) */
  1242. X
  1243. Xvolatile int broadcasts = 0;
  1244. X
  1245. Xvoid newmail(foo)
  1246. Xstruct mail_info *foo;
  1247. X{
  1248. X# define STRING(s) ((s) ? (s) : "<null>")
  1249. X    printf("\n\
  1250. X  message type = %d\n\
  1251. X  display text = \"%s\"\n\
  1252. X  object name  = \"%.*s\"\n\
  1253. X  response cmd = \"%s\"\n\
  1254. X",      foo->message_typ, STRING(foo->display_txt),
  1255. X    (foo->object_nam && foo->response_cmd) ?
  1256. X        (foo->response_cmd - foo->object_nam - 1) :
  1257. X        strlen(STRING(foo->object_nam)),
  1258. X    STRING(foo->object_nam), STRING(foo->response_cmd));
  1259. X# undef STRING
  1260. X}
  1261. X
  1262. Xvoid ckmailstatus()
  1263. X{
  1264. X    struct mail_info *brdcst, *parse_next_broadcast();
  1265. X
  1266. X    while (broadcasts > 0) {    /* process all trapped broadcasts [until] */
  1267. X    broadcasts--;
  1268. X    if ((brdcst = parse_next_broadcast()) != 0) {
  1269. X        newmail(brdcst);
  1270. X        break;        /* only handle one real message at a time */
  1271. X    } else
  1272. X        printf("\n--< non-broadcast encountered >--\n");
  1273. X    }
  1274. X}
  1275. X
  1276. Xint main()
  1277. X{
  1278. X    char dummy[BUFSIZ];
  1279. X
  1280. X    init_broadcast_trapping();
  1281. X    enable_broadcast_trapping();
  1282. X    for (;;) {
  1283. X    ckmailstatus();
  1284. X    printf("> "), fflush(stdout);    /* issue a prompt */
  1285. X    if (!gets(dummy)) break;    /* wait for a response */
  1286. X    }
  1287. X    disable_broadcast_trapping();
  1288. X    return 1;
  1289. X}
  1290. X
  1291. Xvoid panic(s) char *s; { raw_print(s); exit(1); }
  1292. X
  1293. Xvoid raw_print(s) char *s; { puts(s); fflush(stdout); }
  1294. X
  1295. Xvoid wait_synch() { char dummy[BUFSIZ];
  1296. X  printf("\nPress <return> to continue: "); fflush(stdout); (void) gets(dummy);
  1297. X}
  1298. X#endif    /* TEST_DRIVER */
  1299. X
  1300. X/*vmsmail.c*/
  1301. END_OF_FILE
  1302. if test 16224 -ne `wc -c <'sys/vms/vmsmail.c'`; then
  1303.     echo shar: \"'sys/vms/vmsmail.c'\" unpacked with wrong size!
  1304. fi
  1305. # end of 'sys/vms/vmsmail.c'
  1306. fi
  1307. if test -f 'sys/vms/vmstty.c' -a "${1}" != "-c" ; then 
  1308.   echo shar: Will not clobber existing file \"'sys/vms/vmstty.c'\"
  1309. else
  1310. echo shar: Extracting \"'sys/vms/vmstty.c'\" \(14490 characters\)
  1311. sed "s/^X//" >'sys/vms/vmstty.c' <<'END_OF_FILE'
  1312. X/*    SCCS Id: @(#)vmstty.c    3.1    92/11/24    */
  1313. X/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1314. X/* NetHack may be freely redistributed.  See license for details. */
  1315. X/* tty.c - (VMS) version */
  1316. X
  1317. X#define NEED_VARARGS
  1318. X#include "hack.h"
  1319. X#include "wintty.h"
  1320. X#include "termcap.h"
  1321. X
  1322. X#include <descrip.h>
  1323. X#include <iodef.h>
  1324. X#ifndef __GNUC__
  1325. X#include <smgdef.h>
  1326. X#include <ttdef.h>
  1327. X#include <tt2def.h>
  1328. X#else    /* values needed from missing include files */
  1329. X# define SMG$K_TRM_UP     274
  1330. X# define SMG$K_TRM_DOWN  275
  1331. X# define SMG$K_TRM_LEFT  276
  1332. X# define SMG$K_TRM_RIGHT 277
  1333. X# define TT$M_MECHTAB     0x00000100    /* hardware tab support */
  1334. X# define TT$M_MECHFORM     0x00080000    /* hardware form-feed support */
  1335. X# define TT$M_NOBRDCST     0x00020000    /* disable broadcast messages, but  */
  1336. X# define TT2$M_BRDCSTMBX 0x00000010    /* catch them in associated mailbox */
  1337. X#endif /* __GNUC__ */
  1338. X#ifdef USE_QIO_INPUT
  1339. X#include <ssdef.h>
  1340. X#endif
  1341. X#include <errno.h>
  1342. X#include <signal.h>
  1343. X
  1344. Xunsigned long LIB$DISABLE_CTRL(), LIB$ENABLE_CTRL();
  1345. Xunsigned long SYS$ASSIGN(), SYS$DASSGN(), SYS$QIOW();
  1346. X#ifndef USE_QIO_INPUT
  1347. Xunsigned long SMG$CREATE_VIRTUAL_KEYBOARD(), SMG$DELETE_VIRTUAL_KEYBOARD(),
  1348. X          SMG$READ_KEYSTROKE(), SMG$CANCEL_INPUT();
  1349. X#else
  1350. Xstatic short FDECL(parse_function_key, (int));
  1351. X#endif
  1352. Xstatic void NDECL(setctty);
  1353. Xstatic void NDECL(resettty);
  1354. X
  1355. X#define vms_ok(sts) ((sts)&1)
  1356. X#define META(c)  ((c)|0x80)    /* 8th bit */
  1357. X#define CTRL(c)  ((c)&0x1F)
  1358. X#define CMASK(c) (1<<CTRL(c))
  1359. X#define LIB$M_CLI_CTRLT CMASK('T')    /* 0x00100000 */
  1360. X#define LIB$M_CLI_CTRLY CMASK('Y')    /* 0x02000000 */
  1361. X#define ESC '\033'
  1362. X#define CSI META(ESC)        /* '\233' */
  1363. X#define SS3 META(CTRL('O'))    /* '\217' */
  1364. X
  1365. Xextern short ospeed;
  1366. Xchar erase_char, intr_char, kill_char;
  1367. Xstatic boolean settty_needed = FALSE,  bombing = FALSE;
  1368. Xstatic unsigned long kb = 0;
  1369. X#ifdef USE_QIO_INPUT
  1370. Xstatic char inputbuf[15+1], *inp = 0;
  1371. Xstatic int  inc = 0;
  1372. X#endif
  1373. X
  1374. X#define QIO_FUNC    IO$_TTYREADALL|IO$M_NOECHO|IO$M_TRMNOECHO
  1375. X#ifdef MAIL
  1376. X#define TT_SPECIAL_HANDLING  (TT$M_MECHTAB|TT$M_MECHFORM|TT$M_NOBRDCST)
  1377. X#define TT2_SPECIAL_HANDLING (TT2$M_BRDCSTMBX)
  1378. X#else
  1379. X#define TT_SPECIAL_HANDLING  (TT$M_MECHTAB|TT$M_MECHFORM)
  1380. X#define TT2_SPECIAL_HANDLING (0)
  1381. X#endif
  1382. X#define Uword unsigned short
  1383. X#define Ubyte unsigned char
  1384. Xstruct _rd_iosb {        /* i/o status block for read */
  1385. X    Uword    status,  trm_offset;
  1386. X    Uword    terminator,  trm_siz;
  1387. X};
  1388. Xstruct _wr_iosb {        /* i/o status block for write */
  1389. X    Uword    status,  byte_cnt;
  1390. X    unsigned   : 32;
  1391. X};
  1392. Xstruct _sm_iosb {        /* i/o status block for sense-mode qio */
  1393. X    Uword      status;
  1394. X    Ubyte      xmt_speed,  rcv_speed;
  1395. X    Ubyte      cr_fill,  lf_fill,  parity;
  1396. X    unsigned   : 8;
  1397. X};
  1398. Xstruct _sm_bufr {        /* sense-mode characteristics buffer */
  1399. X    Ubyte      class,  type;        /* class==DC$_TERM, type==(various) */
  1400. X    Uword      buf_siz;        /* aka page width */
  1401. X#define page_width buf_siz        /* number of columns */
  1402. X          unsigned  tt_char    : 24;    /* primary characteristics */
  1403. X          unsigned  page_length    :  8;    /* number of lines */
  1404. X          unsigned  tt2_char    : 32;    /* secondary characteristics */
  1405. X};
  1406. Xstatic struct {
  1407. X    struct _sm_iosb io;
  1408. X    struct _sm_bufr sm;
  1409. X} sg = {{0},{0}};
  1410. Xstatic unsigned short tt_chan = 0;
  1411. Xstatic unsigned long  tt_char_restore = 0, tt_char_active = 0,
  1412. X              tt2_char_restore = 0, tt2_char_active = 0;
  1413. Xstatic unsigned long  ctrl_mask = 0;
  1414. X
  1415. Xint
  1416. Xvms_getchar()
  1417. X{
  1418. X    short key;
  1419. X
  1420. X#ifdef USE_QIO_INPUT
  1421. X    struct _rd_iosb iosb;
  1422. X    unsigned long sts;
  1423. X    unsigned char kb_buf;
  1424. X
  1425. X    if (inc > 0) {
  1426. X    /* we have buffered character(s) from previous read */
  1427. X    kb_buf = *inp++;
  1428. X    --inc;
  1429. X    sts = SS$_NORMAL;
  1430. X    } else {
  1431. X    sts = SYS$QIOW(0, tt_chan, QIO_FUNC, &iosb, (void(*)())0, 0,
  1432. X               &kb_buf, sizeof kb_buf, 0, 0, 0, 0);
  1433. X    }
  1434. X    if (vms_ok(sts)) {
  1435. X    if (kb_buf == CTRL('C')) {
  1436. X        if (intr_char) gsignal(SIGINT);
  1437. X        key = (short)kb_buf;
  1438. X    } else if (kb_buf == '\r') {    /* <return> */
  1439. X        key = (short)'\n';
  1440. X    } else if (kb_buf == ESC || kb_buf == CSI || kb_buf == SS3) {
  1441. X        switch(parse_function_key((int)kb_buf)) {
  1442. X          case SMG$K_TRM_UP:    key = flags.num_pad ? '8' : 'k';  break;
  1443. X          case SMG$K_TRM_DOWN:  key = flags.num_pad ? '2' : 'j';  break;
  1444. X          case SMG$K_TRM_LEFT:  key = flags.num_pad ? '4' : 'h';  break;
  1445. X          case SMG$K_TRM_RIGHT: key = flags.num_pad ? '6' : 'l';  break;
  1446. X          default:            key = ESC;    break;
  1447. X        }
  1448. X    } else {
  1449. X        key = (short)kb_buf;
  1450. X    }
  1451. X    } else if (sts == SS$_HANGUP || iosb.status == SS$_HANGUP) {
  1452. X    gsignal(SIGHUP);
  1453. X    key = ESC;
  1454. X    } else            /*(this should never happen)*/
  1455. X    key = getchar();
  1456. X
  1457. X#else   /*!USE_QIO_INPUT*/
  1458. X    static volatile int recurse = 0;    /* SMG is not AST re-entrant! */
  1459. X
  1460. X    if (recurse++ == 0 && kb != 0) {
  1461. X    SMG$READ_KEYSTROKE(&kb, &key);
  1462. X    switch (key) {
  1463. X      case SMG$K_TRM_UP:    flags.num_pad ? '8' : key = 'k';  break;
  1464. X      case SMG$K_TRM_DOWN:    flags.num_pad ? '2' : key = 'j';  break;
  1465. X      case SMG$K_TRM_LEFT:    flags.num_pad ? '4' : key = 'h';  break;
  1466. X      case SMG$K_TRM_RIGHT: flags.num_pad ? '6' : key = 'l';  break;
  1467. X      case '\r':        key = '\n'; break;
  1468. X      default:        if (key > 255)    key = ESC;
  1469. X                break;
  1470. X    }
  1471. X    } else {
  1472. X    /* abnormal input--either SMG didn't initialize properly or
  1473. X       vms_getchar() has been called recursively (via SIGINT handler).
  1474. X     */
  1475. X    if (kb != 0)            /* must have been a recursive call */
  1476. X        SMG$CANCEL_INPUT(&kb);    /*  from an interrupt handler       */
  1477. X    key = getchar();
  1478. X    }
  1479. X    --recurse;
  1480. X#endif    /* USE_QIO_INPUT */
  1481. X
  1482. X    return (int)key;
  1483. X}
  1484. X
  1485. X#ifdef USE_QIO_INPUT
  1486. X       /*
  1487. X    * We've just gotten an <escape> character.  Do a timed read to
  1488. X    * get any other characters, then try to parse them as an escape
  1489. X    * sequence.  This isn't perfect, since there's no guarantee
  1490. X    * that a full escape sequence will be available, or even if one
  1491. X    * is, it might actually by regular input from a fast typist or
  1492. X    * a stalled input connection.  {For packetized environments,
  1493. X    * cross plural(body_part(FINGER)) and hope for best. :-}
  1494. X    *
  1495. X    * This is needed to preserve compatability with SMG interface
  1496. X    * for two reasons:
  1497. X    *    1) retain support for arrow keys, and
  1498. X    *    2) treat other VTxxx function keys as <esc> for aborting
  1499. X    *    various NetHack prompts.
  1500. X    * The second reason is compelling; otherwise remaining chars of
  1501. X    * an escape sequence get treated as inappropriate user commands.
  1502. X    *
  1503. X    * SMG code values for these key sequences fall in the range of
  1504. X    * 256 thru 3xx.  The assignments are not particularly intuitive.
  1505. X    */
  1506. X/*=
  1507. X     -- Summary of VTxxx-style keyboards and transmitted escape sequences. --
  1508. XKeypad codes are prefixed by 7 bit (\033 O) or 8 bit SS3:
  1509. X    keypad:  PF1 PF2 PF3 PF4       codes:    P   Q    R   S
  1510. X          7   8   9   -            w   x    y   m
  1511. X          4   5   6   .            t   u    v   n
  1512. X          1   2   3  :en-:        q   r    s  : :
  1513. X         ...0...  ,  :ter:           ...p...    l  :M:
  1514. XArrows are prefixed by either SS3 or CSI (either 7 or 8 bit), depending on
  1515. Xwhether the terminal is in application or numeric mode (ditto for PF keys):
  1516. X    arrows: <up> <dwn> <lft> <rgt>        A   B    D   C
  1517. XAdditional function keys (vk201/vk401) generate CSI nn ~ (nn is 1 or 2 digits):
  1518. X    vk201 keys:  F6 F7 F8 F9 F10   F11 F12 F13 F14  Help Do   F17 F18 F19 F20
  1519. X   'nn' digits:  17 18 19 20 21    23  24  25  26    28  29   31  32  33  34
  1520. X     alternate:  ^C           ^[  ^H  ^J        (when in VT100 mode)
  1521. X   edit keypad: <fnd> <ins> <rmv>     digits:    1   2    3
  1522. X        <sel> <prv> <nxt>        4   5    6
  1523. XVT52 mode:  arrows and PF keys send ESCx where x is in A-D or P-S.
  1524. X=*/
  1525. X
  1526. Xstatic const char *arrow_or_PF = "ABCDPQRS",    /* suffix char */
  1527. X          *smg_keypad_codes = "PQRSpqrstuvwxyMmlnABDC";
  1528. X    /* PF1..PF4,KP0..KP9,enter,dash,comma,dot,up-arrow,down,left,right */
  1529. X    /* Ultimate return value is (index into smg_keypad_codes[] + 256). */
  1530. X
  1531. Xstatic short
  1532. Xparse_function_key(c)
  1533. Xregister int c;
  1534. X{
  1535. X    struct _rd_iosb iosb;
  1536. X    unsigned long sts;
  1537. X    char seq_buf[15+1];        /* plenty room for escape sequence + slop */
  1538. X    short result = ESC;        /* translate to <escape> by default */
  1539. X
  1540. X    /*
  1541. X     * Read whatever we can from type-ahead buffer (1 second timeout).
  1542. X     * If the user typed an actual <escape> to deliberately abort
  1543. X     * something, he or she should be able to tolerate the necessary
  1544. X     * restriction of a negligible pause before typing anything else.
  1545. X     * We might already have [at least some of] an escape sequence from a
  1546. X     * previous read, particularly if user holds down the arrow keys...
  1547. X     */
  1548. X    if (inc > 0) strncpy(seq_buf, inp, inc);
  1549. X    if (inc < sizeof seq_buf - 1) {
  1550. X    sts = SYS$QIOW(0, tt_chan, QIO_FUNC|IO$M_TIMED, &iosb, (void(*)())0, 0,
  1551. X               seq_buf + inc, sizeof seq_buf - 1 - inc, 1, 0, 0, 0);
  1552. X    if (vms_ok(sts))  sts = iosb.status;
  1553. X    } else
  1554. X    sts = SS$_NORMAL;
  1555. X    if (vms_ok(sts) || sts == SS$_TIMEOUT) {
  1556. X    register int cnt = iosb.trm_offset + iosb.trm_siz + inc;
  1557. X    register char *p = seq_buf;
  1558. X    if (c == ESC)    /* check for 7-bit vt100/ANSI, or vt52 */
  1559. X        if (*p == '[' || *p == 'O') c = META(CTRL(*p++)),  cnt--;
  1560. X        else if (strchr(arrow_or_PF, *p)) c = SS3; /*CSI*/
  1561. X    if (cnt > 0 && (c == SS3 || (c == CSI && strchr(arrow_or_PF, *p)))) {
  1562. X        register char *q = strchr(smg_keypad_codes, *p);
  1563. X        if (q) result = 256 + (q - smg_keypad_codes);
  1564. X        p++,  --cnt;    /* one more char consumed */
  1565. X    } else if (cnt > 1 && c == CSI) {
  1566. X        static short    /* "CSI nn ~" -> F_keys[nn] */
  1567. X        F_keys[35] = {    ESC,                /*(filler)*/
  1568. X                311, 312, 313, 314, 315, 316,    /* E1-E6 */
  1569. X                ESC, ESC, ESC, ESC,       /*(more filler)*/
  1570. X                281, 282, 283, 284, 285, ESC,    /* F1-F5 */
  1571. X                286, 287, 288, 289, 290, ESC,    /* F6-F10*/
  1572. X                291, 292, 293, 294, ESC,    /*F11-F14*/
  1573. X                295, 296, ESC, /*<help>,<do>, aka F15,F16*/
  1574. X                297, 298, 299, 300        /*F17-F20*/
  1575. X        };  /* note: there are several missing nn in CSI nn ~ values */
  1576. X        int nn;  char *q;
  1577. X        *(p + cnt) = '\0';    /* terminate string */
  1578. X        q = strchr(p, '~');
  1579. X        if (q && sscanf(p, "%d~", &nn) == 1) {
  1580. X        if (nn > 0 && nn < SIZE(F_keys)) result = F_keys[nn];
  1581. X        cnt -= (++q - p);
  1582. X        p = q;
  1583. X        }
  1584. X    }
  1585. X    if (cnt > 0) strncpy((inp = inputbuf), p, (inc = cnt));
  1586. X    else         inc = 0,  inp = 0;
  1587. X    }
  1588. X    return result;
  1589. X}
  1590. X#endif    /* USE_QIO_INPUT */
  1591. X
  1592. Xstatic void
  1593. Xsetctty()
  1594. X{
  1595. X    struct _sm_iosb iosb;
  1596. X    unsigned long status;
  1597. X
  1598. X    status = SYS$QIOW(0, tt_chan, IO$_SETMODE, &iosb, (void(*)())0, 0,
  1599. X              &sg.sm, sizeof sg.sm, 0, 0, 0, 0);
  1600. X    if (vms_ok(status))  status = iosb.status;
  1601. X    if (!vms_ok(status)) {
  1602. X    raw_print("");
  1603. X    errno = EVMSERR,  vaxc$errno = status;
  1604. X    perror("NetHack(setctty: setmode)");
  1605. X    wait_synch();
  1606. X    }
  1607. X}
  1608. X
  1609. Xstatic void
  1610. Xresettty(){            /* atexit() routine */
  1611. X    if (settty_needed) {
  1612. X    bombing = TRUE;     /* don't clear screen; preserve traceback info */
  1613. X    settty((char *)NULL);
  1614. X    }
  1615. X    (void) SYS$DASSGN(tt_chan),  tt_chan = 0;
  1616. X}
  1617. X
  1618. X/*
  1619. X * Get initial state of terminal, set ospeed (for termcap routines)
  1620. X * and switch off tab expansion if necessary.
  1621. X * Called by init_nhwindows() and resume_nhwindows() in wintty.c
  1622. X * (for initial startup and for returning from '!' or ^Z).
  1623. X */
  1624. Xvoid
  1625. Xgettty()
  1626. X{
  1627. X    static $DESCRIPTOR(tty_dsc, "TT:");
  1628. X    int err = 0;
  1629. X    unsigned long status, zero = 0;
  1630. X
  1631. X    if (tt_chan == 0) {        /* do this stuff once only */
  1632. X    flags.cbreak = OFF,  flags.echo = ON;    /* until setup is complete */
  1633. X    status = SYS$ASSIGN(&tty_dsc, &tt_chan, 0, 0);
  1634. X    if (!vms_ok(status)) {
  1635. X        raw_print(""),  err++;
  1636. X        errno = EVMSERR,  vaxc$errno = status;
  1637. X        perror("NetHack(gettty: $assign)");
  1638. X    }
  1639. X    atexit(resettty);   /* register an exit handler to reset things */
  1640. X    }
  1641. X    status = SYS$QIOW(0, tt_chan, IO$_SENSEMODE, &sg.io, (void(*)())0, 0,
  1642. X              &sg.sm, sizeof sg.sm, 0, 0, 0, 0);
  1643. X    if (vms_ok(status))  status = sg.io.status;
  1644. X    if (!vms_ok(status)) {
  1645. X    raw_print(""),  err++;
  1646. X    errno = EVMSERR,  vaxc$errno = status;
  1647. X    perror("NetHack(gettty: sensemode)");
  1648. X    }
  1649. X    ospeed = sg.io.xmt_speed;
  1650. X    erase_char = '\177';    /* <rubout>, aka <delete> */
  1651. X    kill_char = CTRL('U');
  1652. X    intr_char = CTRL('C');
  1653. X    (void) LIB$ENABLE_CTRL(&zero, &ctrl_mask);
  1654. X    /* Use the systems's values for lines and columns if it has any idea. */
  1655. X    if (sg.sm.page_length)
  1656. X    LI = sg.sm.page_length;
  1657. X    if (sg.sm.page_width)
  1658. X    CO = sg.sm.page_width;
  1659. X    /* Determine whether TTDRIVER is doing tab and/or form-feed expansion;
  1660. X       if so, we want to suppress that but also restore it at final exit. */
  1661. X    if ((sg.sm.tt_char & TT_SPECIAL_HANDLING) != TT_SPECIAL_HANDLING
  1662. X     && (sg.sm.tt2_char & TT2_SPECIAL_HANDLING) != TT2_SPECIAL_HANDLING) {
  1663. X    tt_char_restore  = sg.sm.tt_char;
  1664. X    tt_char_active     = sg.sm.tt_char |= TT_SPECIAL_HANDLING;
  1665. X    tt2_char_restore = sg.sm.tt2_char;
  1666. X    tt2_char_active  = sg.sm.tt2_char |= TT2_SPECIAL_HANDLING;
  1667. X#if 0        /*[ defer until setftty() ]*/
  1668. X    setctty();
  1669. X#endif
  1670. X    } else    /* no need to take any action */
  1671. X    tt_char_restore = tt_char_active = 0,
  1672. X    tt2_char_restore = tt2_char_active = 0;
  1673. X    if (err) wait_synch();
  1674. X}
  1675. X
  1676. X/* reset terminal to original state */
  1677. Xvoid
  1678. Xsettty(s)
  1679. Xconst char *s;
  1680. X{
  1681. X    if (!bombing) {
  1682. X        end_screen();
  1683. X        if (s) raw_print(s);
  1684. X    }
  1685. X    disable_broadcast_trapping();
  1686. X#if 0        /* let SMG's exit handler do the cleanup (as per doc) */
  1687. X/* #ifndef USE_QIO_INPUT */
  1688. X    if (kb)  SMG$DELETE_VIRTUAL_KEYBOARD(&kb),  kb = 0;
  1689. X#endif    /* 0 (!USE_QIO_INPUT) */
  1690. X    if (ctrl_mask)
  1691. X        (void) LIB$ENABLE_CTRL(&ctrl_mask, 0);
  1692. X    flags.echo = ON;
  1693. X    flags.cbreak = OFF;
  1694. X    if (tt_char_restore != 0 || tt2_char_restore != 0) {
  1695. X        sg.sm.tt_char  = tt_char_restore;
  1696. X        sg.sm.tt2_char = tt2_char_restore;
  1697. X        setctty();
  1698. X    }
  1699. X    settty_needed = FALSE;
  1700. X}
  1701. X
  1702. X/* same as settty, with no clearing of the screen */
  1703. Xvoid
  1704. Xshuttty(s)
  1705. Xconst char *s;
  1706. X{
  1707. X    if(s) raw_print(s);
  1708. X    bombing = TRUE;
  1709. X    settty(s);
  1710. X    bombing = FALSE;
  1711. X}
  1712. X
  1713. Xvoid
  1714. Xsetftty()
  1715. X{
  1716. X    unsigned long mask = LIB$M_CLI_CTRLT | LIB$M_CLI_CTRLY;
  1717. X
  1718. X    (void) LIB$DISABLE_CTRL(&mask, 0);
  1719. X    if (kb == 0) {        /* do this stuff once only */
  1720. X#ifdef USE_QIO_INPUT
  1721. X        kb = tt_chan;
  1722. X#else   /*!USE_QIO_INPUT*/
  1723. X        SMG$CREATE_VIRTUAL_KEYBOARD(&kb);
  1724. X#endif  /*USE_QIO_INPUT*/
  1725. X        init_broadcast_trapping();
  1726. X    }
  1727. X    enable_broadcast_trapping();    /* no-op if !defined(MAIL) */
  1728. X    flags.cbreak = (kb != 0) ? ON : OFF;
  1729. X    flags.echo   = (kb != 0) ? OFF : ON;
  1730. X    /* disable tab & form-feed expansion */
  1731. X    if (tt_char_active != 0 || tt2_char_active != 0) {
  1732. X        sg.sm.tt_char  = tt_char_active;
  1733. X        sg.sm.tt2_char = tt2_char_active;
  1734. X        setctty();
  1735. X    }
  1736. X    start_screen();
  1737. X    settty_needed = TRUE;
  1738. X}
  1739. X
  1740. Xvoid
  1741. Xintron()        /* enable kbd interupts if enabled when game started */
  1742. X{
  1743. X    intr_char = CTRL('C');
  1744. X}
  1745. X
  1746. Xvoid
  1747. Xintroff()        /* disable kbd interrupts if required*/
  1748. X{
  1749. X    intr_char = 0;
  1750. X}
  1751. X
  1752. X
  1753. X/* fatal error */
  1754. X/*VARARGS1*/
  1755. Xvoid
  1756. Xerror VA_DECL(const char *,s)
  1757. X    VA_START(s);
  1758. X    VA_INIT(s, const char *);
  1759. X    if(settty_needed)
  1760. X        settty(NULL);
  1761. X    Vprintf(s,VA_ARGS);
  1762. X    (void) putchar('\n');
  1763. X    VA_END();
  1764. X    exit(1);
  1765. X}
  1766. END_OF_FILE
  1767. if test 14490 -ne `wc -c <'sys/vms/vmstty.c'`; then
  1768.     echo shar: \"'sys/vms/vmstty.c'\" unpacked with wrong size!
  1769. fi
  1770. # end of 'sys/vms/vmstty.c'
  1771. fi
  1772. echo shar: End of archive 87 \(of 108\).
  1773. cp /dev/null ark87isdone
  1774. MISSING=""
  1775. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 \
  1776. 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 \
  1777. 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 \
  1778. 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 \
  1779. 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 \
  1780. 101 102 103 104 105 106 107 108 ; do
  1781.     if test ! -f ark${I}isdone ; then
  1782.     MISSING="${MISSING} ${I}"
  1783.     fi
  1784. done
  1785. if test "${MISSING}" = "" ; then
  1786.     echo You have unpacked all 108 archives.
  1787.     echo "Now execute 'rebuild.sh'"
  1788.     rm -f ark10[0-8]isdone ark[1-9]isdone ark[1-9][0-9]isdone
  1789. else
  1790.     echo You still need to unpack the following archives:
  1791.     echo "        " ${MISSING}
  1792. fi
  1793. ##  End of shell archive.
  1794. exit 0
  1795.