home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume7 / nethack3 / patch4h / patches04h
Text File  |  1989-10-02  |  57KB  |  2,025 lines
  1. *** auxil/Old/help    Wed Sep 27 10:17:39 1989
  2. --- auxil/help    Thu Sep 14 13:20:36 1989
  3. ***************
  4. *** 139,149 ****
  5.           the commands you can use with "#" type "#?".  The extended
  6.           commands you can use depends upon what options the game was
  7.           compiled with, along with your class and what type of monster
  8. !         you most closely resemble at a given moment. If your keyboard
  9. !         has a meta key (that is, one which when pressed in combination
  10. !         with another key modified it by turning on the 'meta' or 0x80
  11. !         bit) these extended commands can be invoked by meta-ing the
  12. !         first letter of the command.
  13.   
  14.       If the "number_pad" option is on, some additional letter commands
  15.       are available:
  16. --- 139,149 ----
  17.           the commands you can use with "#" type "#?".  The extended
  18.           commands you can use depends upon what options the game was
  19.           compiled with, along with your class and what type of monster
  20. !         you most closely resemble at a given moment.  If your keyboard
  21. !         has a meta key (which, when pressed in combination with another
  22. !         key, modifies it by setting the 'meta' (8th, or 'high') bit),
  23. !         these extended commands can be invoked by meta-ing the first
  24. !         letter of the command.
  25.   
  26.       If the "number_pad" option is on, some additional letter commands
  27.       are available:
  28. *** auxil/Old/hh    Wed Sep 27 10:17:53 1989
  29. --- auxil/hh    Thu Sep 14 13:20:41 1989
  30. ***************
  31. *** 7,59 ****
  32.               G<dir>,   same, except a branching corridor isn't
  33.               ^<dir>:     considered interesting
  34.               m<dir>:   move without picking up objects
  35. !         If the numberpad option is set, the number keys move instead.
  36.   
  37. ! Meta commands:
  38. ! ?    help    print one of several informative texts
  39.   Q    quit    end the game
  40.   S    save    save the game (to be continued later)
  41.   !    sh    escape to some SHELL (if allowed)
  42.   ^Z    suspend suspend the game (independent of your current suspend char)
  43.   O    options set options
  44. ! /    whatis    give name (and sometimes more info) of specified monster
  45. ! \    known    print list of what's been discovered
  46. ! v    version    print version number
  47. ! V    history    print game history
  48. ! ^A    again    redo the previous command
  49. ! ^R    redraw    redraw the screen (^R denotes the symbol CTRL/R)
  50. ! ^P    print    repeat last message  (subsequent ^P's repeat earlier messages)
  51. ! #        introduces a long command (# ? for list of long commands)
  52.   
  53.   Game commands:
  54. - ^T    'port    teleport (if you can)
  55.   ^D    kick    kick (a door, or something else)
  56.   a    apply    apply or use a tool (pick-axe, key, camera, etc.)
  57. ! A    remove    take off all armor
  58.   c    close    close a door
  59. ! C    name    name an individual monster (e.g., baptize your dog)
  60.   d    drop    drop an object.  d7a:  drop seven items of object 'a'
  61. ! D    drop    drop several things
  62.   e    eat    eat something
  63.   E    engrave write a message in the dust on the floor  (E-  use fingers)
  64. ! i    invent    list the inventory (all objects you are carrying)
  65. ! I    invent    list selected parts of the inventory
  66.           Iu: list unpaid objects
  67.           Ix: list unpaid but used up items
  68.           I$: count your money
  69.   o    open    open a door
  70. ! p    pay    pay your bill
  71. ! P    wear    put on a ring
  72.   q    quaff    drink a potion
  73.   r    read    read a scroll or spell book
  74.   R    remove    remove a ring
  75.   s    search    search for secret doors, hidden traps and monsters
  76.   t    throw    throw or shoot a weapon
  77. ! T    remove    take off some armor
  78.   w    wield    wield a weapon    (w-  wield nothing)
  79.   W    wear    put on some armor
  80.   z    zap    zap a wand
  81. ! Z    cast    cast a spell
  82.   <    up    go up the stairs
  83.   >    down    go down the stairs
  84.   ^    trap_id identify a previously found trap
  85. --- 7,59 ----
  86.               G<dir>,   same, except a branching corridor isn't
  87.               ^<dir>:     considered interesting
  88.               m<dir>:   move without picking up objects
  89. !         If the number_pad option is set, the number keys move instead.
  90.   
  91. ! General commands:
  92. ! ?    help    display one of several informative texts
  93.   Q    quit    end the game
  94.   S    save    save the game (to be continued later)
  95.   !    sh    escape to some SHELL (if allowed)
  96.   ^Z    suspend suspend the game (independent of your current suspend char)
  97.   O    options set options
  98. ! /    whatis    tell what a map symbol represents
  99. ! \    known    display list of what's been discovered
  100. ! v    version    display version number
  101. ! V    history    display game history
  102. ! ^A    again    redo the previous command (^A denotes the keystroke CTRL-A)
  103. ! ^R    redraw    redraw the screen
  104. ! ^P    prevmsg    repeat previous message (subsequent ^P's repeat earlier ones)
  105. ! #        introduces an extended command (#? for a list of them)
  106.   
  107.   Game commands:
  108.   ^D    kick    kick (a door, or something else)
  109. + ^T    'port    teleport (if you can)
  110.   a    apply    apply or use a tool (pick-axe, key, camera, etc.)
  111. ! A    armor    take off all armor
  112.   c    close    close a door
  113. ! C    call    name an individual monster (ex. baptize your dog)
  114.   d    drop    drop an object.  d7a:  drop seven items of object 'a'
  115. ! D    Drop    drop selected types of objects
  116.   e    eat    eat something
  117.   E    engrave write a message in the dust on the floor  (E-  use fingers)
  118. ! i    invent    list your inventory (all objects you are carrying)
  119. ! I    Invent    list selected parts of your inventory
  120.           Iu: list unpaid objects
  121.           Ix: list unpaid but used up items
  122.           I$: count your money
  123.   o    open    open a door
  124. ! p    pay    pay your bill (in a shop)
  125. ! P    puton    put on a ring
  126.   q    quaff    drink a potion
  127.   r    read    read a scroll or spell book
  128.   R    remove    remove a ring
  129.   s    search    search for secret doors, hidden traps and monsters
  130.   t    throw    throw or shoot a weapon
  131. ! T    takeoff    take off some armor
  132.   w    wield    wield a weapon    (w-  wield nothing)
  133.   W    wear    put on some armor
  134.   z    zap    zap a wand
  135. ! Z    Zap    cast a spell
  136.   <    up    go up the stairs
  137.   >    down    go down the stairs
  138.   ^    trap_id identify a previously found trap
  139. ***************
  140. *** 62,78 ****
  141.   +    spells    list the spells you know
  142.   .    rest    wait a moment
  143.   ,    pickup    pick up all you can carry
  144. ! @        turn "autopickup" on and off
  145.   :    look    look at what is here
  146.   
  147. ! And if the "number_pad" option is on, these additional commands:
  148.   
  149.   n        followed by number of times to repeat the next command
  150. ! j    jump    jump to a location
  151. ! k    kick    kick a door
  152.   l    loot    loot a box on the floor
  153. ! N    name    name an object or type of object
  154. ! u    untrap    untrap a trapped object
  155. ! 
  156. ! If your keyboard has a meta key, 'jump' 'loot', 'name' and 'untrap' are
  157. ! available as M-j, M-l, M-N or M-u respectively.
  158. --- 62,92 ----
  159.   +    spells    list the spells you know
  160.   .    rest    wait a moment
  161.   ,    pickup    pick up all you can carry
  162. ! @        toggle "pickup" (auto pickup) option on and off
  163.   :    look    look at what is here
  164.   
  165. ! Keyboards that have a meta key can also use these extended commands:
  166. ! 
  167. ! M-c    chat    talk to someone
  168. ! M-d    dip    dip an object into something
  169. ! M-f    force    force a lock
  170. ! M-j    jump    jump to another location
  171. ! M-l    loot    loot a box on the floor
  172. ! M-m    monster    use a monster's special ability (only if defined)
  173. ! M-N    name    name an item or type of object
  174. ! M-o    offer    offer a sacrifice to the gods (only if defined)
  175. ! M-p    pray    pray to the gods for help (only if defined)
  176. ! M-r    rub    rub a lamp
  177. ! M-s    sit    sit down
  178. ! M-t    turn    turn undead
  179. ! M-u    untrap    untrap something (usually a trapped object)
  180. ! M-w    wipe    wipe off your face
  181.   
  182. + If the "number_pad" option is on, these additional commands are available:
  183. + 
  184.   n        followed by number of times to repeat the next command
  185. ! j    jump    jump to another location
  186. ! k    kick    kick something (usually a door)
  187.   l    loot    loot a box on the floor
  188. ! N    name    name an item or type of object
  189. ! u    untrap    untrap something (usually a trapped object)
  190. *** auxil/Old/history    Wed Sep 27 10:18:08 1989
  191. --- auxil/history    Sat Sep 16 17:54:33 1989
  192. ***************
  193. *** 29,34 ****
  194. --- 29,35 ----
  195.   
  196.   Timo Hakulinen ported NetHack 3.0 to OS/2.
  197.   
  198. + David Gentzel ported NetHack 3.0 to VMS.
  199.    
  200.   From time to time, some depraved individual out there in netland sends a
  201.   particularly intriguing modification to help out with the game.  The Gods of
  202. *** auxil/Old/nethack.6    Wed Sep 27 10:18:41 1989
  203. --- auxil/nethack.6    Sun Sep 17 12:29:03 1989
  204. ***************
  205. *** 99,106 ****
  206.   .B \-D
  207.   or
  208.   .B \-X
  209. ! option will start the game in a special non-scoring discovery mode
  210. ! (or in debugging (wizard) mode if the player is the game administrator).
  211.   .PP
  212.   The
  213.   .B \-d
  214. --- 99,108 ----
  215.   .B \-D
  216.   or
  217.   .B \-X
  218. ! option will start the game in a special non-scoring discovery mode.
  219. ! .B \-D
  220. ! will, if the player is the game administrator, start in debugging (wizard)
  221. ! mode instead.
  222.   .PP
  223.   The
  224.   .B \-d
  225. *** auxil/Old/opthelp    Wed Sep 27 10:19:01 1989
  226. --- auxil/opthelp    Thu Sep 14 14:46:43 1989
  227. ***************
  228. *** 34,43 ****
  229.   null        allow nulls to be sent to your terminal  [TRUE]
  230.   standout    use standout mode for --More-- on messages  [FALSE]
  231.   
  232. ! Any Boolean option can be negated by prefixing it with a '!' or 'no'.
  233. ! 
  234.   
  235. ! 
  236.   
  237.   
  238.   
  239. --- 34,43 ----
  240.   null        allow nulls to be sent to your terminal  [TRUE]
  241.   standout    use standout mode for --More-- on messages  [FALSE]
  242.   
  243. ! Boolean option if TEXTCOLOR was set at compile time:
  244. ! color        use different colors for objects on screen  [TRUE]
  245.   
  246. ! Any Boolean option can be negated by prefixing it with a '!' or 'no'.
  247.   
  248.   
  249.   
  250. *** include/Old/amiconf.h    Wed Sep 27 13:08:56 1989
  251. --- include/amiconf.h    Thu Sep 14 23:31:24 1989
  252. ***************
  253. *** 1,4 ****
  254. ! /*      SCCS Id: @(#)amiconf.h  3.0     89/04/28
  255.   /* NetHack may be freely redistributed.  See license for details. */
  256.   
  257.   #ifndef AMICONF_H
  258. --- 1,4 ----
  259. ! /*    SCCS Id: @(#)amiconf.h  3.0     89/09/04
  260.   /* NetHack may be freely redistributed.  See license for details. */
  261.   
  262.   #ifndef AMICONF_H
  263. ***************
  264. *** 22,27 ****
  265. --- 22,30 ----
  266.   
  267.   #undef  index
  268.   #undef  rindex
  269. + extern char  *index P((const char *,int));
  270. + extern char  *rindex P((const char *,int));
  271. + #define memcpy(dest, source, size)  movmem(source, dest, size)
  272.   
  273.   /*
  274.    *  Configurable Amiga options:
  275. *** include/Old/artifact.h    Wed Sep 27 13:09:09 1989
  276. --- include/artifact.h    Mon Sep 25 20:58:06 1989
  277. ***************
  278. *** 6,32 ****
  279.   #ifndef ARTIFACT_H
  280.   #define ARTIFACT_H
  281.   
  282. ! #define SPFX_NONE   0x00    /* no special effects, just a bonus */
  283. ! #define SPFX_NOGEN  0x01    /* item is special, bequeathed by gods */
  284. ! #define SPFX_RESTR  0x02    /* item is restricted - can't be named */
  285. ! #define    SPFX_INTEL  0x04    /* item is self-willed - intelligent */
  286. ! #define SPFX_SPEEK  0x08    /* item can speak */
  287. ! #define SPFX_SEEK   0x10    /* item helps you search for things */
  288. ! #define SPFX_WARN   0x20    /* item warns you of danger */
  289. ! #define SPFX_ATTK   0x40    /* item has a special attack (attk) */
  290. ! #define SPFX_DEFN   0x80    /* item has a special defence (defn) */
  291. ! #define SPFX_DMONS  0x100    /* attack bonus on one type of monster */
  292. ! #define    SPFX_DCLAS  0x200    /* attack bonus on one class of monster */
  293. ! #define SPFX_DRLI   0x400    /* drains a level from monsters */
  294. ! #define SPFX_SEARCH 0x800    /* helps searching */
  295.   
  296.   struct artifact {
  297.       unsigned    otyp;
  298.       char        *name;
  299.       unsigned    spfx;
  300. !     unsigned    mtype;
  301.       struct attack attk, defn;
  302. !     unsigned    align;
  303.   };
  304.   
  305.   #endif /* ARTIFACT_H /* */
  306. --- 6,37 ----
  307.   #ifndef ARTIFACT_H
  308.   #define ARTIFACT_H
  309.   
  310. ! #define SPFX_NONE   0x0000    /* no special effects, just a bonus */
  311. ! #define SPFX_NOGEN  0x0001    /* item is special, bequeathed by gods */
  312. ! #define SPFX_RESTR  0x0002    /* item is restricted - can't be named */
  313. ! #define    SPFX_INTEL  0x0004    /* item is self-willed - intelligent */
  314. ! #define SPFX_SPEEK  0x0008    /* item can speak */
  315. ! #define SPFX_SEEK   0x0010    /* item helps you search for things */
  316. ! #define SPFX_WARN   0x0020    /* item warns you of danger */
  317. ! #define SPFX_ATTK   0x0040    /* item has a special attack (attk) */
  318. ! #define SPFX_DEFN   0x0080    /* item has a special defence (defn) */
  319. ! #define SPFX_DRLI   0x0100    /* drains a level from monsters */
  320. ! #define SPFX_SEARCH 0x0200    /* helps searching */
  321. ! #define SPFX_DMONS  0x1000    /* attack bonus on one monster type */
  322. ! #define    SPFX_DCLAS  0x2000    /* attack bonus on monsters w/ symbol mtype */
  323. ! #define    SPFX_DFLAG1 0x4000    /* attack bonus on monsters w/ mflags1 flag */
  324. ! #define    SPFX_DFLAG2 0x8000    /* attack bonus on monsters w/ mflags2 flag */
  325.   
  326. + #define SPFX_DBONUS 0xF000    /* attack bonus mask */
  327. + 
  328.   struct artifact {
  329.       unsigned    otyp;
  330.       char        *name;
  331.       unsigned    spfx;
  332. !     unsigned long mtype;    /* monster type, symbol, or flag */
  333.       struct attack attk, defn;
  334. !     uchar        align;    /* alignment of bequeathing gods */
  335. !     char        class;    /* character class associated with */
  336.   };
  337.   
  338.   #endif /* ARTIFACT_H /* */
  339. *** include/Old/config.h    Wed Sep 27 13:09:29 1989
  340. --- include/config.h    Mon Sep 25 20:55:44 1989
  341. ***************
  342. *** 9,15 ****
  343.   /*
  344.    * Section 1:    OS selection.
  345.    *        Select the version of the OS you are using.
  346. !  *        For "UNIX" select either SYSV or BSD in unixconf.h
  347.    */
  348.   
  349.   #define    UNIX        /* delete if no fork(), exec() available */
  350. --- 9,17 ----
  351.   /*
  352.    * Section 1:    OS selection.
  353.    *        Select the version of the OS you are using.
  354. !  *        For "UNIX" select either SYSV or BSD in unixconf.h.
  355. !  *        A "VMS" option is not needed since the VMS C-compiler
  356. !  *        provides it (comment out the default OS option here).
  357.    */
  358.   
  359.   #define    UNIX        /* delete if no fork(), exec() available */
  360. *** include/Old/decl.h    Wed Sep 27 13:09:52 1989
  361. --- include/decl.h    Tue Sep 26 12:59:11 1989
  362. ***************
  363. *** 13,24 ****
  364.   E int nroom;
  365.   E int multi;
  366.   E int hackpid;
  367. ! #ifdef UNIX
  368.   E int locknum;
  369.   #ifdef DEF_PAGER
  370.   E char *catmore;
  371.   #endif    /* DEF_PAGER */
  372. - #endif    /* UNIX */
  373.   E char SAVEF[];
  374.   E char *hname;
  375.   E const char *hu_stat[];    /* defined in eat.c */
  376. --- 13,24 ----
  377.   E int nroom;
  378.   E int multi;
  379.   E int hackpid;
  380. ! #if defined(UNIX) || defined(VMS)
  381.   E int locknum;
  382. + #endif
  383.   #ifdef DEF_PAGER
  384.   E char *catmore;
  385.   #endif    /* DEF_PAGER */
  386.   E char SAVEF[];
  387.   E char *hname;
  388.   E const char *hu_stat[];    /* defined in eat.c */
  389. ***************
  390. *** 97,103 ****
  391.   E coord dig_pos;
  392.   E boolean dig_down;
  393.   
  394. ! E long moves;
  395.   E long wailmsg;
  396.   
  397.   E boolean in_mklev;
  398. --- 97,103 ----
  399.   E coord dig_pos;
  400.   E boolean dig_down;
  401.   
  402. ! E long moves, monstermoves;
  403.   E long wailmsg;
  404.   
  405.   E boolean in_mklev;
  406. ***************
  407. *** 121,134 ****
  408.   #endif
  409.   
  410.   #ifdef TEXTCOLOR
  411.   #define RED        1
  412.   #define GREEN        2
  413. ! #define YELLOW        3
  414.   #define BLUE        4
  415.   #define MAGENTA     5
  416.   #define CYAN        6
  417.   #define WHITE        7
  418. ! E char *HI_COLOR[8];    /* termcap.c */
  419.   #endif
  420.   
  421.   #ifndef OBJ_H
  422. --- 121,158 ----
  423.   #endif
  424.   
  425.   #ifdef TEXTCOLOR
  426. + 
  427. + #define BLACK        0
  428.   #define RED        1
  429.   #define GREEN        2
  430. ! #define BROWN        3    /* on IBM, lo-intensity yellow is brown */
  431.   #define BLUE        4
  432.   #define MAGENTA     5
  433.   #define CYAN        6
  434.   #define WHITE        7
  435. ! #define GRAY        7    /* lo-intensity white */
  436. ! #define BRIGHT        8
  437. ! #define ORANGE_COLORED    9
  438. ! #define YELLOW        11
  439. ! #define MAXCOLORS    16    /* 8 basic + 8 bright */
  440. ! 
  441. ! /* these can be configured */
  442. ! #  define HI_MON    RED + BRIGHT        /* red slaps! */
  443. ! #  define HI_OBJ    MAGENTA
  444. ! #  define HI_METAL    CYAN
  445. ! #  define HI_COPPER    YELLOW
  446. ! #  define HI_SILVER    GRAY
  447. ! #  define HI_GOLD    YELLOW
  448. ! #  define HI_LEATHER    BROWN
  449. ! #  define HI_CLOTH    BROWN
  450. ! #  define HI_ORGANIC    GREEN
  451. ! #  define HI_WOOD    BROWN
  452. ! #  define HI_PAPER    BROWN
  453. ! #  define HI_GLASS    CYAN + BRIGHT
  454. ! #  define HI_MINERAL    GRAY
  455. ! #  define HI_ZAP    BLUE + BRIGHT        /* blue zaps! */
  456. ! 
  457. ! E char *hilites[MAXCOLORS];
  458.   #endif
  459.   
  460.   #ifndef OBJ_H
  461. *** include/Old/extern.h    Wed Sep 27 13:10:43 1989
  462. --- include/extern.h    Tue Sep 26 19:11:23 1989
  463. ***************
  464. *** 5,11 ****
  465.   #ifndef EXTERN_H
  466.   #define EXTERN_H
  467.   
  468. ! #if defined(MSDOS) && !defined(__TURBOC__)
  469.   /* MSC include files do not contain "extern" keyword */
  470.   #define E
  471.   #else
  472. --- 5,11 ----
  473.   #ifndef EXTERN_H
  474.   #define EXTERN_H
  475.   
  476. ! #if defined(MSDOS) && defined(MSC)
  477.   /* MSC include files do not contain "extern" keyword */
  478.   #define E
  479.   #else
  480. ***************
  481. *** 12,17 ****
  482. --- 12,25 ----
  483.   #define E extern
  484.   #endif
  485.   
  486. + /* ### allmain.c ### */
  487. + 
  488. + E int (*occupation)();
  489. + E int (*afternmv)();
  490. + E void moveloop();
  491. + E void stop_occupation();
  492. + E void newgame();
  493. + 
  494.   /* ### alloc.c ### */
  495.   
  496.   #ifndef __TURBOC__
  497. ***************
  498. *** 341,348 ****
  499.   E void delobj P((struct obj *));
  500.   E void freeobj P((struct obj *));
  501.   E void freegold P((struct gold *));
  502. - E struct monst *m_at P((int,int));
  503. - E struct obj *o_at P((int,int));
  504.   E struct obj *sobj_at P((int,int,int));
  505.   E int carried P((struct obj *));
  506.   E struct obj *carrying P((int));
  507. --- 349,354 ----
  508. ***************
  509. *** 404,410 ****
  510.   E void enexto P((coord *,XCHAR_P,XCHAR_P,struct permonst *));
  511.   E int goodpos P((int,int, struct permonst *));
  512.   E void rloc P((struct monst *));
  513. - E struct monst *mkmon_at P((char *,int,int));
  514.   E void init_monstr();
  515.   E struct permonst *rndmonst();
  516.   E struct permonst *mkclass P((CHAR_P));
  517. --- 410,415 ----
  518. ***************
  519. *** 490,496 ****
  520.   E boolean is_rustprone P((struct obj *));
  521.   E boolean is_corrodeable P((struct obj *));
  522.   #endif
  523. - E boolean OBJ_AT P((int,int));
  524.   E void place_object P((struct obj *,int,int));
  525.   E void move_object P((struct obj *,int,int));
  526.   E void remove_object P((struct obj *));
  527. --- 495,500 ----
  528. ***************
  529. *** 528,534 ****
  530.   E void unstuck P((struct monst *));
  531.   E void killed P((struct monst *));
  532.   E void xkilled P((struct monst *,int));
  533. - E void kludge V((char *,char *,...));
  534.   E void rescham();
  535.   E void restartcham();
  536.   E int newcham P((struct monst *,struct permonst *));
  537. --- 532,537 ----
  538. ***************
  539. *** 578,583 ****
  540. --- 581,592 ----
  541.   E int m_move P((struct monst *,int));
  542.   E void set_apparxy P((struct monst *));
  543.   E boolean mdig_tunnel P((struct monst *));
  544. + #ifdef STUPID_CPP
  545. + E void place_monster P((struct monst *, int, int));
  546. + E void place_worm_seg P((struct monst *, int, int));
  547. + E void remove_monster P((int, int));
  548. + E struct monst *m_at P((int, int));
  549. + #endif
  550.   
  551.   /* ### monst.c ### */
  552.   
  553. ***************
  554. *** 617,627 ****
  555.   #ifdef TOS
  556.   E int _copyfile P((char *, char *));
  557.   E int kbhit();
  558.   #endif /* TOS */
  559.   
  560.   /* ### mthrowu.c ### */
  561.   
  562. ! E int thitu P((int,int,char *));
  563.   E int thrwmu P((struct monst *));
  564.   E int spitmu P((struct monst *));
  565.   E int breamu P((struct monst *,struct attack *));
  566. --- 626,638 ----
  567.   #ifdef TOS
  568.   E int _copyfile P((char *, char *));
  569.   E int kbhit();
  570. + E void restore_colors();
  571. + E void set_colors();
  572.   #endif /* TOS */
  573.   
  574.   /* ### mthrowu.c ### */
  575.   
  576. ! E int thitu P((int,int,struct obj *,char *));
  577.   E int thrwmu P((struct monst *));
  578.   E int spitmu P((struct monst *));
  579.   E int breamu P((struct monst *,struct attack *));
  580. ***************
  581. *** 657,663 ****
  582.   E void lcase P((char *));
  583.   E char *makeplural P((char *));
  584.   E struct obj *readobjnam P((char *));
  585. - E boolean uses_known P((struct obj *));
  586.   
  587.   /* ### options.c ### */
  588.   
  589. --- 668,673 ----
  590. ***************
  591. *** 689,708 ****
  592.   #ifdef SHELL
  593.   E int dosh();
  594.   #endif /* SHELL */
  595.   E int child P((int));
  596.   #endif /* UNIX */
  597.   
  598.   /* ### pcmain.c ### */
  599.   
  600.   #ifdef MSDOS
  601. - E int (*occupation)();
  602. - E int (*afternmv)();
  603.   E void askname();
  604. - E void impossible V((char *,...));
  605.   #ifdef CHDIR
  606.   E void chdirx P((char *,BOOLEAN_P));
  607.   #endif /* CHDIR */
  608. - E void stop_occupation();
  609.   #endif /* MSDOS */
  610.   
  611.   /* ### pctty.c ### */
  612. --- 699,716 ----
  613.   #ifdef SHELL
  614.   E int dosh();
  615.   #endif /* SHELL */
  616. + #if defined(SHELL) || defined(DEF_PAGER) || defined(DEF_MAILREADER)
  617.   E int child P((int));
  618. + #endif
  619.   #endif /* UNIX */
  620.   
  621.   /* ### pcmain.c ### */
  622.   
  623.   #ifdef MSDOS
  624.   E void askname();
  625.   #ifdef CHDIR
  626.   E void chdirx P((char *,BOOLEAN_P));
  627.   #endif /* CHDIR */
  628.   #endif /* MSDOS */
  629.   
  630.   /* ### pctty.c ### */
  631. ***************
  632. *** 957,963 ****
  633.   E void pay_for_door P((int,int,char *));
  634.   E void addtobill P((struct obj *,BOOLEAN_P));
  635.   E void splitbill P((struct obj *,struct obj *));
  636. ! E void subfrombill P((struct obj *));
  637.   E int doinvbill P((int));
  638.   E int shkcatch P((struct obj *));
  639.   E int shk_move P((struct monst *));
  640. --- 965,971 ----
  641.   E void pay_for_door P((int,int,char *));
  642.   E void addtobill P((struct obj *,BOOLEAN_P));
  643.   E void splitbill P((struct obj *,struct obj *));
  644. ! E void sellobj P((struct obj *));
  645.   E int doinvbill P((int));
  646.   E int shkcatch P((struct obj *));
  647.   E int shk_move P((struct monst *));
  648. ***************
  649. *** 1060,1072 ****
  650. --- 1068,1087 ----
  651.   E void more();
  652.   E void cmore P((char *));
  653.   E void clrlin();
  654. + #ifdef NEED_VARARGS
  655. + #if defined(USE_STDARG) || defined(USE_VARARGS)
  656. + E void vpline P((const char *, va_list));
  657. + #endif
  658. + #endif
  659.   E void pline V((const char *,...));
  660.   E void Norep V((const char *,...));
  661.   E void You V((const char *,...));
  662.   E void Your V((const char *,...));
  663. + E void kludge V((char *,char *,...));
  664.   E void putsym P((CHAR_P));
  665.   E void putstr P((char *));
  666.   E char yn_function P((char *,CHAR_P));
  667. + E void impossible V((char *,...));
  668.   
  669.   /* ### topten.c ### */
  670.   
  671. ***************
  672. *** 1129,1140 ****
  673.   /* ### unixmain.c ### */
  674.   
  675.   #ifdef UNIX
  676. - E int (*occupation)();
  677. - E int (*afternmv)();
  678.   E void glo P((int));
  679.   E void askname();
  680. - E void impossible V((char *,...));
  681. - E void stop_occupation();
  682.   #endif /* UNIX */
  683.   
  684.   /* ### unixtty.c ### */
  685. --- 1144,1151 ----
  686. ***************
  687. *** 1175,1180 ****
  688. --- 1186,1241 ----
  689.   /* ### version.c ### */
  690.   
  691.   E int doversion();
  692. + 
  693. + /* ### vmsmain.c ### */
  694. + 
  695. + #ifdef VMS
  696. + #ifdef CHDIR
  697. + E void chdirx P((char *,char));
  698. + #endif /* CHDIR */
  699. + E void glo P((int));
  700. + E void askname();
  701. + #endif /* VMS */
  702. + 
  703. + /* ### vmsmisc.c ### */
  704. + 
  705. + #ifdef VMS
  706. + E void vms_abort();
  707. + E void vms_exit();
  708. + #endif /* VMS */
  709. + 
  710. + /* ### vmstty.c ### */
  711. + 
  712. + #ifdef VMS
  713. + E void gettty();
  714. + E void settty P((char *));
  715. + E void setftty();
  716. + E void intron();
  717. + E void introff();
  718. + E void error V((char *,...));
  719. + #endif /* VMS */
  720. + 
  721. + /* ### vmsunix.c ### */
  722. + 
  723. + #ifdef VMS
  724. + E void setrandom();
  725. + E int getyear();
  726. + E char *getdate();
  727. + E int phase_of_the_moon();
  728. + E int night();
  729. + E int midnight();
  730. + E void gethdate P((char *));
  731. + E int uptodate P((int));
  732. + E void getlock();
  733. + E void regularize P((char *));
  734. + E int vms_creat P((char *,unsigned int));
  735. + E int vms_getuid();
  736. + E void privoff();
  737. + E void privon();
  738. + # ifdef SHELL
  739. + E int dosh();
  740. + # endif
  741. + #endif /* VMS */
  742.   
  743.   /* ### weapon.c ### */
  744.   
  745. *** include/Old/flag.h    Wed Sep 27 13:11:28 1989
  746. --- include/flag.h    Thu Sep 14 14:46:21 1989
  747. ***************
  748. *** 51,56 ****
  749. --- 51,59 ----
  750.       boolean  silent;    /* whether the bell rings or not */
  751.       boolean  pickup;    /* whether you pickup or move and look */
  752.       boolean  num_pad;    /* use numbers for movement commands */
  753. + #ifdef TEXTCOLOR
  754. +     boolean  use_color;    /* use color grapics */
  755. + #endif
  756.   #ifdef DGK
  757.       boolean  IBMBIOS;    /* whether we can use a BIOS call for
  758.                    * redrawing the screen and character input */
  759. *** include/Old/global.h    Wed Sep 27 13:11:49 1989
  760. --- include/global.h    Mon Sep 25 20:55:26 1989
  761. ***************
  762. *** 9,15 ****
  763.   
  764.   
  765.   /* #define BETA        /* if a beta-test copy  [MRS] */
  766. ! #define VERSION    "3.0f"    /* version number. */
  767.   
  768.   /*
  769.    * Files expected to exist in the playground directory.
  770. --- 9,15 ----
  771.   
  772.   
  773.   /* #define BETA        /* if a beta-test copy  [MRS] */
  774. ! #define VERSION    "3.0g"    /* version number. */
  775.   
  776.   /*
  777.    * Files expected to exist in the playground directory.
  778. ***************
  779. *** 117,122 ****
  780. --- 117,127 ----
  781.   #ifndef COORD_H
  782.   #include "coord.h"
  783.   #endif
  784. + 
  785. + #if defined(VMS) && !defined(VMSCONF_H)
  786. + # include "vmsconf.h"
  787. + #endif
  788. + 
  789.   #if defined(UNIX) && !defined(UNIXCONF_H)
  790.   # include "unixconf.h"
  791.   #endif
  792. *** include/Old/monst.h    Wed Sep 27 13:13:23 1989
  793. --- include/monst.h    Thu Sep 14 14:24:49 1989
  794. ***************
  795. *** 68,74 ****
  796.   
  797.   #define newmonst(xl)    (struct monst *) alloc((unsigned)(xl) + sizeof(struct monst))
  798.   
  799. - extern struct monst *fmon;
  800.   extern struct monst *mydogs, *fallen_down;
  801.   
  802.   /* these are in mspeed */
  803. --- 68,73 ----
  804. *** include/Old/obj.h    Wed Sep 27 13:13:52 1989
  805. --- include/obj.h    Sat Sep 23 01:27:18 1989
  806. ***************
  807. *** 7,12 ****
  808. --- 7,13 ----
  809.   
  810.   struct obj {
  811.       struct obj *nobj;
  812. +     struct obj *nexthere;        /* for location lists */
  813.       struct obj *cobj;        /* id of container object is in */
  814.   /*    unsigned o_cwt;            /* container weight capacity */
  815.       unsigned o_id;
  816. ***************
  817. *** 45,54 ****
  818.       Bitfield(onamelth,6);
  819.       long age;        /* creation date */
  820.       long owornmask;
  821.   
  822.   /* note that TIMEOUT in you.h is defined as 07777L; no bits for items that
  823. !  * confer properties may overlap that mask, or timeout.c will happily rearrange
  824. !  * the bits behind the back of the property code
  825.    * shirts, balls, and chains are currently safe
  826.    */
  827.   #define    W_BALL    02000L
  828. --- 46,56 ----
  829.       Bitfield(onamelth,6);
  830.       long age;        /* creation date */
  831.       long owornmask;
  832. + #define oeaten        rustfree
  833.   
  834.   /* note that TIMEOUT in you.h is defined as 07777L; no bits for items that
  835. !  * confer properties may overlap that mask, or timeout.c will happily 
  836. !  * rearrange the bits behind the back of the property code
  837.    * shirts, balls, and chains are currently safe
  838.    */
  839.   #define    W_BALL    02000L
  840. ***************
  841. *** 75,88 ****
  842.                      is flexible; amount for tmp gold objects */
  843.   };
  844.   
  845. - extern struct obj *fobj;
  846. - 
  847.   #define newobj(xl)    (struct obj *) alloc((unsigned)(xl) + sizeof(struct obj))
  848.   #define    ONAME(otmp)    ((char *) otmp->oextra)
  849.   #define    OGOLD(otmp)    (otmp->oextra[0])
  850.   
  851.   # ifndef STUPID_CPP    /* otherwise these macros are functions */
  852. - /* #define OBJ_AT(x,y)    (levl[x][y].omask) */
  853.   
  854.   #define Is_container(otmp)    (otmp->otyp >= ICE_BOX && otmp->otyp <= BAG_OF_TRICKS)
  855.   #define Is_box(otmp)    (otmp->otyp == LARGE_BOX || otmp->otyp == CHEST)
  856. --- 77,88 ----
  857.                      is flexible; amount for tmp gold objects */
  858.   };
  859.   
  860.   #define newobj(xl)    (struct obj *) alloc((unsigned)(xl) + sizeof(struct obj))
  861.   #define    ONAME(otmp)    ((char *) otmp->oextra)
  862.   #define    OGOLD(otmp)    (otmp->oextra[0])
  863. + #define    OEATEN(otmp)    (otmp->oeaten)
  864.   
  865.   # ifndef STUPID_CPP    /* otherwise these macros are functions */
  866.   
  867.   #define Is_container(otmp)    (otmp->otyp >= ICE_BOX && otmp->otyp <= BAG_OF_TRICKS)
  868.   #define Is_box(otmp)    (otmp->otyp == LARGE_BOX || otmp->otyp == CHEST)
  869. *** include/Old/objclass.h    Wed Sep 27 13:14:06 1989
  870. --- include/objclass.h    Thu Sep 14 14:53:21 1989
  871. ***************
  872. *** 13,18 ****
  873. --- 13,22 ----
  874.       char *oc_uname;        /* called by user */
  875.       Bitfield(oc_name_known,1);
  876.       Bitfield(oc_merge,1);    /* merge otherwise equal objects */
  877. +     Bitfield(oc_uses_known,1); /* obj->known affects full decription */
  878. +                 /* otherwise, obj->dknown and obj->bknown */
  879. +                 /* tell all, and obj->known should always */
  880. +                 /* be set for proper merging behavior */
  881.       Bitfield(oc_bool,1);
  882.   #define oc_bimanual    oc_bool    /* for weapons */
  883.   #define oc_bulky    oc_bool    /* for armor */
  884. ***************
  885. *** 35,40 ****
  886. --- 39,47 ----
  887.       int oc_cost;        /* base cost in shops */
  888.       schar oc_oc1, oc_oc2;
  889.       int oc_oi;
  890. + #ifdef TEXTCOLOR
  891. +     uchar oc_color;        /* color of the object */
  892. + #endif /* TEXTCOLOR */
  893.   #define    nutrition    oc_oi    /* for foods */
  894.   #define w_propellor    oc_oi    /* for weapons */
  895.   #define WP_BOW        1
  896. *** include/Old/patchlevel.h    Wed Sep 27 13:14:18 1989
  897. --- include/patchlevel.h    Wed Sep 27 13:08:27 1989
  898. ***************
  899. *** 17,27 ****
  900. --- 17,29 ----
  901.    *  add better screen-size sensing
  902.    *  expand color use for PCs and introduce it for SVR3 UNIX machines
  903.    *  extend '/' to multiple identifications
  904. +  *  allow meta key to be used to invoke extended commands
  905.    *  fix various minor bugs, and do further code cleaning
  906.    */
  907.   
  908.   /*
  909.    *  Patch 3, September 6, 1989
  910. +  *  add war hammers and revise object prices
  911.    *  extend prototypes to ANSI compilers in addition to the previous MSDOS ones
  912.    *  move object-on-floor references into functions in preparation for planned
  913.    *    data structures to allow faster access and better colors
  914. ***************
  915. *** 29,32 ****
  916.    *    patches
  917.    */
  918.   
  919. ! #define PATCHLEVEL    3
  920. --- 31,46 ----
  921.    *    patches
  922.    */
  923.   
  924. ! /*
  925. !  *  Patch 4, September 27, 1989
  926. !  *  add support for VMS (courtesy David Gentzel)
  927. !  *  move monster-on-floor references into functions and implement the new
  928. !  *    lookup structure for both objects and monsters
  929. !  *  extend the definitions of objects and monsters to provide "living color"
  930. !  *    in the dungeon, instead of a single monster color
  931. !  *  ifdef varargs usage to satisfy ANSI compilers
  932. !  *  standardize on the color 'gray'
  933. !  *  assorted bug fixes
  934. !  */
  935. ! 
  936. ! #define PATCHLEVEL    4
  937. *** include/Old/pcconf.h    Wed Sep  6 23:46:25 1989
  938. --- include/pcconf.h    Tue Sep 19 01:14:13 1989
  939. ***************
  940. *** 93,107
  941.   #  define TEXTCOLOR /* */
  942.   #endif
  943.   
  944. ! #ifdef TEXTCOLOR
  945. ! /* configurable colors */
  946. ! #  define HI_MON    RED    /* red slaps! */
  947. ! #  define HI_OBJ    MAGENTA
  948. ! #  define HI_METAL    CYAN
  949. ! #  define HI_ORGANIC    GREEN
  950. ! #  define HI_GOLD    YELLOW
  951. ! #  define HI_ZAP    BLUE    /* blue zaps! */
  952. ! #endif
  953. ! 
  954. ! #endif
  955.   #endif /* MSDOS /* */
  956.  
  957. --- 93,97 -----
  958.   #  define TEXTCOLOR /* */
  959.   #endif
  960.   
  961. ! #endif /* PCCONF_H /* */
  962.   #endif /* MSDOS /* */
  963. *** include/Old/permonst.h    Wed Sep 27 13:14:41 1989
  964. --- include/permonst.h    Thu Sep 14 14:49:22 1989
  965. ***************
  966. *** 46,51 ****
  967. --- 46,54 ----
  968.       uchar        msound;            /* noise it makes */
  969.       long        mflags1,        /* boolean bitflags */
  970.               mflags2;        /* more boolean bitflags */
  971. + # ifdef TEXTCOLOR
  972. +     uchar        mcolor;            /* color to use */
  973. + # endif
  974.   };
  975.   
  976.   extern struct permonst mons[];        /* the master list of monster types */
  977. *** include/Old/rm.h    Wed Sep 27 13:15:00 1989
  978. --- include/rm.h    Fri Sep 15 11:45:15 1989
  979. ***************
  980. *** 206,213 ****
  981.       Bitfield(seen,1);
  982.       Bitfield(lit,1);
  983.       Bitfield(doormask,5);
  984. -     Bitfield(mmask,1);
  985. -     Bitfield(omask,1);
  986.       Bitfield(gmask,1);
  987.   };
  988.   
  989. --- 206,211 ----
  990. ***************
  991. *** 216,222 ****
  992.   #define ladder        doormask
  993.   #define drawbridgemask    doormask
  994.   
  995. ! extern struct rm levl[COLNO][ROWNO];
  996.   
  997.   #if defined(DGK) && !defined(OLD_TOS)
  998.   #define ACTIVE    1
  999. --- 214,249 ----
  1000.   #define ladder        doormask
  1001.   #define drawbridgemask    doormask
  1002.   
  1003. ! typedef struct
  1004. ! {
  1005. !     struct rm        locations[COLNO][ROWNO];
  1006. !     struct obj        *objects[COLNO][ROWNO];
  1007. !     struct monst    *monsters[COLNO][ROWNO];
  1008. !     struct obj        *objlist;
  1009. !     struct monst    *monlist;
  1010. ! }
  1011. ! level_t;
  1012. ! 
  1013. ! extern level_t    level;    /* structure describing the current level */
  1014. ! 
  1015. ! /*
  1016. !  * Macros for compatibility with old code. Someday these will go away.
  1017. !  */
  1018. ! #define OBJ_AT(x, y)    (level.objects[x][y] != (struct obj *)0)
  1019. ! #define MON_AT(x, y)    (level.monsters[x][y] != (struct monst *)0)
  1020. ! #define levl        level.locations
  1021. ! #define fobj        level.objlist
  1022. ! #define fmon        level.monlist
  1023. ! 
  1024. ! #ifndef STUPID_CPP    /* otherwise these macros are functions in monmove.c */
  1025. ! /*
  1026. !  * Macros for encapsulation of level.monsters references.
  1027. !  */
  1028. ! #define place_monster(m, x, y)    level.monsters[m->mx=x][m->my=y] = m
  1029. ! #define place_worm_seg(m, x, y) level.monsters[x][y] = m
  1030. ! #define remove_monster(x, y)    level.monsters[x][y] = (struct monst *)0
  1031. ! #define m_at(x, y)        level.monsters[x][y]
  1032. ! #endif    /* STUPID_CPP */
  1033.   
  1034.   #if defined(DGK) && !defined(OLD_TOS)
  1035.   #define ACTIVE    1
  1036. *** include/Old/system.h    Wed Sep 27 13:15:31 1989
  1037. --- include/system.h    Sun Sep 17 14:26:28 1989
  1038. ***************
  1039. *** 37,42 ****
  1040. --- 37,46 ----
  1041.   # endif
  1042.   #endif
  1043.   
  1044. + #ifdef VMS
  1045. + # define off_t long
  1046. + #endif
  1047. + 
  1048.   /* You may want to change this to fit your system, as this is almost
  1049.    * impossible to get right automatically.
  1050.    * This is the type of signal handling functions.
  1051. ***************
  1052. *** 170,179 ****
  1053. --- 174,199 ----
  1054.   #endif
  1055.   #endif
  1056.   
  1057. + #ifdef NEED_VARARGS
  1058. + #if defined(USE_STDARG) || defined(USE_VARARGS)
  1059. + E int vsprintf P((char *, const char *, va_list));
  1060. + E int vprintf P((const char *, va_list));
  1061. + #else
  1062. + #   define vprintf        printf
  1063. + #   define vsprintf        sprintf
  1064. + #   define vpline        pline
  1065. + #endif
  1066. + #endif /* NEED_VARARGS */
  1067. + 
  1068.   #define Sprintf    (void) sprintf
  1069.   #define Strcat    (void) strcat
  1070.   #define Strcpy    (void) strcpy
  1071.   #define Printf  (void) printf
  1072. + 
  1073. + #ifdef NEED_VARARGS
  1074. + #define Vprintf (void) vprintf
  1075. + #define Vsprintf (void) vsprintf
  1076. + #endif
  1077.   
  1078.   E int tgetent P((char *,char *));
  1079.   E int tgetnum P((char *));
  1080. *** include/Old/tosconf.h    Wed Sep 27 13:15:45 1989
  1081. --- include/tosconf.h    Thu Sep 14 14:46:25 1989
  1082. ***************
  1083. *** 33,41 ****
  1084. --- 33,43 ----
  1085.   #define Srand() srand()
  1086.   #endif
  1087.   
  1088. + /* configurable options */
  1089.   #define DGK
  1090.   #define RANDOM
  1091.   #define SHELL
  1092. + #define TEXTCOLOR
  1093.   
  1094.   #ifndef MSDOS_H
  1095.   #include "msdos.h"
  1096. *** include/Old/tradstdc.h    Wed Sep 27 13:15:56 1989
  1097. --- include/tradstdc.h    Sun Sep 17 14:26:33 1989
  1098. ***************
  1099. *** 15,20 ****
  1100. --- 15,76 ----
  1101.    * Makes substitutes for compatibility with the old C standard.
  1102.    */
  1103.   
  1104. + /* Decide how to handle variable parameter lists:
  1105. +  * USE_STDARG means use the ANSI <stdarg.h> facilities (only ANSI compilers
  1106. +  * should do this, and only if the library supports it).
  1107. +  * USE_VARARGS means use the <varargs.h> facilities. Again, this should only
  1108. +  * be done if the library supports it. ANSI is *not* required for this.
  1109. +  * Otherwise, the kludgy old methods are used.
  1110. +  * The defaults are USE_STDARG for ANSI compilers, and USE_OLDARGS for
  1111. +  * others.
  1112. +  */
  1113. + 
  1114. + /* #define USE_VARARGS        /* use <varargs.h> instead of <stdarg.h> */
  1115. + /* #define USE_OLDARGS        /* don't use any variable argument facilites */
  1116. + 
  1117. + #ifdef __STDC__
  1118. + # if !(defined(AMIGA) || defined(USE_VARARGS) || defined(USE_OLDARGS))
  1119. + #   define USE_STDARG
  1120. + # endif
  1121. + #endif
  1122. + 
  1123. + #ifdef NEED_VARARGS        /* only define these if necessary */
  1124. + #ifdef USE_STDARG
  1125. + # include <stdarg.h>
  1126. + # define VA_DECL(typ1,var1)    (typ1 var1, ...) { va_list the_args;
  1127. + # define VA_DECL2(typ1,var1,typ2,var2)    \
  1128. +     (typ1 var1, typ2 var2, ...) { va_list the_args;
  1129. + # define VA_INIT(var1,typ1)
  1130. + # define VA_NEXT(var1,typ1)    var1 = va_arg(the_args, typ1)
  1131. + # define VA_ARGS        the_args
  1132. + # define VA_START(x)        va_start(the_args, x)
  1133. + # define VA_END()        va_end(the_args)
  1134. + #else
  1135. + # ifdef USE_VARARGS
  1136. + #  include <varargs.h>
  1137. + #  define VA_DECL(typ1,var1)    (va_alist) va_dcl {\
  1138. +         va_list the_args; typ1 var1;
  1139. + #  define VA_DECL2(typ1,var1,typ2,var2)    (va_alist) va_dcl {\
  1140. +         va_list the_args; typ1 var1; typ2 var2;
  1141. + #  define VA_ARGS        the_args
  1142. + #  define VA_START(x)        va_start(the_args)
  1143. + #  define VA_INIT(var1,typ1)     va_arg(var1, typ1)
  1144. + #  define VA_NEXT(var1,typ1)    var1 = va_arg(the_args,typ1)
  1145. + #  define VA_END()        va_end(the_args)
  1146. + # else
  1147. + #   define VA_ARGS    arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9
  1148. + #   define VA_DECL(typ1,var1)  (var1,VA_ARGS) typ1 var1; \
  1149. +     char *arg1,*arg2,*arg3,*arg4,*arg5,*arg6,*arg7,*arg8,*arg9; {
  1150. + #   define VA_DECL2(typ1,var1,typ2,var2)  (var1,var2,VA_ARGS) \
  1151. +     typ1 var1; typ2 var2;\
  1152. +     char *arg1,*arg2,*arg3,*arg4,*arg5,*arg6,*arg7,*arg8,*arg9; {
  1153. + #   define VA_START(x)
  1154. + #   define VA_INIT(var1,typ1)
  1155. + #   define VA_END()
  1156. + # endif
  1157. + #endif
  1158. + #endif /* NEED_VARARGS */
  1159. + 
  1160.   #if (defined(__STDC__) || defined(MSDOS)) && !defined(AMIGA)
  1161.   
  1162.   /* Used for robust ANSI parameter forward declarations:
  1163. ***************
  1164. *** 27,33 ****
  1165.    */
  1166.   
  1167.   # define P(s)        s
  1168. ! # ifdef MSDOS
  1169.   #  define V(s)        s
  1170.   # else
  1171.   #  define V(s)        ()
  1172. --- 83,89 ----
  1173.    */
  1174.   
  1175.   # define P(s)        s
  1176. ! # if defined(MSDOS) || defined(USE_STDARG)
  1177.   #  define V(s)        s
  1178.   # else
  1179.   #  define V(s)        ()
  1180. *** include/Old/unixconf.h    Wed Sep  6 23:47:19 1989
  1181. --- include/unixconf.h    Sat Sep 16 23:12:56 1989
  1182. ***************
  1183. *** 73,80
  1184.    * A stat system call is done on the mailbox every MAILCKFREQ moves.
  1185.    */
  1186.   
  1187. ! #define    MAIL
  1188. ! #if defined(BSD) || defined(ULTRIX)
  1189.   #define    DEF_MAILREADER    "/usr/ucb/Mail"
  1190.   #else
  1191.   # ifdef SYSV
  1192.  
  1193. --- 73,82 -----
  1194.    * A stat system call is done on the mailbox every MAILCKFREQ moves.
  1195.    */
  1196.   
  1197. ! #define    MAIL        /* Deliver mail during the game */
  1198. ! #ifdef MAIL
  1199. ! 
  1200. ! # if defined(BSD) || defined(ULTRIX)
  1201.   #define    DEF_MAILREADER    "/usr/ucb/Mail"
  1202.   # else
  1203.   #  if defined(SYSV) || defined(DGUX)
  1204. ***************
  1205. *** 76,84
  1206.   #define    MAIL
  1207.   #if defined(BSD) || defined(ULTRIX)
  1208.   #define    DEF_MAILREADER    "/usr/ucb/Mail"
  1209. - #else
  1210. - # ifdef SYSV
  1211. - #define    DEF_MAILREADER    "/usr/bin/mailx"
  1212.   # else
  1213.   #define    DEF_MAILREADER    "/bin/mail"
  1214.   # endif
  1215.  
  1216. --- 78,83 -----
  1217.   
  1218.   # if defined(BSD) || defined(ULTRIX)
  1219.   #define    DEF_MAILREADER    "/usr/ucb/Mail"
  1220.   # else
  1221.   #  if defined(SYSV) || defined(DGUX)
  1222.   #   ifdef M_XENIX
  1223. ***************
  1224. *** 80,85
  1225.   # ifdef SYSV
  1226.   #define    DEF_MAILREADER    "/usr/bin/mailx"
  1227.   # else
  1228.   #define    DEF_MAILREADER    "/bin/mail"
  1229.   # endif
  1230.   #endif
  1231.  
  1232. --- 79,91 -----
  1233.   # if defined(BSD) || defined(ULTRIX)
  1234.   #define    DEF_MAILREADER    "/usr/ucb/Mail"
  1235.   # else
  1236. + #  if defined(SYSV) || defined(DGUX)
  1237. + #   ifdef M_XENIX
  1238. + #define    DEF_MAILREADER    "/usr/bin/mail"
  1239. + #   else
  1240. + #define    DEF_MAILREADER    "/usr/bin/mailx"
  1241. + #   endif
  1242. + #  else
  1243.   #define    DEF_MAILREADER    "/bin/mail"
  1244.   #  endif
  1245.   # endif
  1246. ***************
  1247. *** 81,86
  1248.   #define    DEF_MAILREADER    "/usr/bin/mailx"
  1249.   # else
  1250.   #define    DEF_MAILREADER    "/bin/mail"
  1251.   # endif
  1252.   #endif
  1253.   #define    MAILCKFREQ    50
  1254.  
  1255. --- 87,93 -----
  1256.   #   endif
  1257.   #  else
  1258.   #define    DEF_MAILREADER    "/bin/mail"
  1259. + #  endif
  1260.   # endif
  1261.   
  1262.   #define    MAILCKFREQ    50
  1263. ***************
  1264. *** 82,88
  1265.   # else
  1266.   #define    DEF_MAILREADER    "/bin/mail"
  1267.   # endif
  1268. ! #endif
  1269.   #define    MAILCKFREQ    50
  1270.   
  1271.   #ifdef COMPRESS
  1272.  
  1273. --- 89,95 -----
  1274.   #define    DEF_MAILREADER    "/bin/mail"
  1275.   #  endif
  1276.   # endif
  1277. ! 
  1278.   #define    MAILCKFREQ    50
  1279.   #endif    /* MAIL */
  1280.   
  1281. ***************
  1282. *** 84,89
  1283.   # endif
  1284.   #endif
  1285.   #define    MAILCKFREQ    50
  1286.   
  1287.   #ifdef COMPRESS
  1288.   /* Some implementations of compress need a 'quiet' option.
  1289.  
  1290. --- 91,97 -----
  1291.   # endif
  1292.   
  1293.   #define    MAILCKFREQ    50
  1294. + #endif    /* MAIL */
  1295.   
  1296.   #ifdef COMPRESS
  1297.   /* Some implementations of compress need a 'quiet' option.
  1298. ***************
  1299. *** 146,160
  1300.   # undef hc
  1301.   #endif
  1302.   
  1303. ! #ifdef TEXTCOLOR
  1304. ! /* configurable colors */
  1305. ! #  define HI_MON    RED    /* red slaps! */
  1306. ! #  define HI_OBJ    MAGENTA
  1307. ! #  define HI_METAL    CYAN
  1308. ! #  define HI_ORGANIC    GREEN
  1309. ! #  define HI_GOLD    YELLOW
  1310. ! #  define HI_ZAP    BLUE    /* blue zaps! */
  1311. ! #endif
  1312. ! 
  1313. ! #endif
  1314.   #endif /* UNIX /* */
  1315.  
  1316. --- 154,158 -----
  1317.   # undef hc
  1318.   #endif
  1319.   
  1320. ! #endif /* UNIXCONF_H /* */
  1321.   #endif /* UNIX /* */
  1322. *** ./Old/Install.unix    Wed Sep 27 10:11:25 1989
  1323. --- ./Install.unix    Sat Sep 23 00:47:12 1989
  1324. ***************
  1325. *** 49,64 ****
  1326.   
  1327.   Notes:
  1328.   
  1329. ! 1.  No, your old save files and bones files will not work with NetHack 3.0.
  1330.       Don't bother trying to keep them.  The old score list will work fine; the
  1331.       only problem is that you may have trouble beating your old scores in this
  1332.       version.
  1333.   
  1334. ! 2.  If you insisted on doing the final installation by hand, you probably
  1335.       forgot to make a save directory.  If you don't go back and do this, you
  1336.       won't be able to save games.
  1337.   
  1338. ! 3.  To install an update of this version of NetHack after changing something,
  1339.       type 'make update' from the main directory.  If you created the new
  1340.       version yourself, it should be safe to use 'make update' as long as you
  1341.       did not add, delete, or reorder monsters or objects and you did not change
  1342. --- 49,70 ----
  1343.   
  1344.   Notes:
  1345.   
  1346. ! 1.  A number of systems, such as Xenix, support both the termcap and terminfo
  1347. !     terminal capability libraries.  Make sure that the TERMINFO definition in
  1348. !     unixconf.h and TERMLIB in the source Makefile correspond.
  1349. !     If spurious characters appear on the screen while kicking, zapping, etc.
  1350. !     it is likely that you have linked the source to the wrong library.
  1351. ! 
  1352. ! 2.  No, your old save files and bones files will not work with NetHack 3.0.
  1353.       Don't bother trying to keep them.  The old score list will work fine; the
  1354.       only problem is that you may have trouble beating your old scores in this
  1355.       version.
  1356.   
  1357. ! 3.  If you insisted on doing the final installation by hand, you probably
  1358.       forgot to make a save directory.  If you don't go back and do this, you
  1359.       won't be able to save games.
  1360.   
  1361. ! 4.  To install an update of this version of NetHack after changing something,
  1362.       type 'make update' from the main directory.  If you created the new
  1363.       version yourself, it should be safe to use 'make update' as long as you
  1364.       did not add, delete, or reorder monsters or objects and you did not change
  1365. ***************
  1366. *** 65,67 ****
  1367. --- 71,81 ----
  1368.       the format of saved level files.  If you did any of these things, you
  1369.       should also remove any saved games and bones levels.  (Trying to use such
  1370.       files often produces amusing but useless confusions on the game's part.)
  1371. + 
  1372. + 5.  Xenix/286's lex generates a faulty lexical analyser from lev_comp.l.
  1373. +     The beta-release of flex 2.1 (avaliable from uunet, osu-cis,
  1374. +     prep.ai.mit.edu, etc.) can be used to generate the lexer.
  1375. +     The only change to flex is to change "#define yyleng (yy_cp - yy_bp)"
  1376. +     to "#define yyleng (int)(yy_cp - yy_bp)" in flex.skel.
  1377. +     Flex is not needed with Xenix/386, as its lex generates a proper lexical
  1378. +     analyser.  [Xenix instructions by J.T. Conklin]
  1379. *** ./Old/Makefile.top    Wed Sep 27 10:11:38 1989
  1380. --- ./Makefile.top    Tue Sep 19 18:52:15 1989
  1381. ***************
  1382. *** 1,6 ****
  1383. --- 1,18 ----
  1384.   #    Hack Makefile.
  1385.   #    SCCS Id: @(#)Makefile.top    3.0    89/03/23
  1386.   
  1387. + # newer makes predefine $(MAKE) to 'make' and do smarter processing of
  1388. + # recursive make calls if $(MAKE) is used
  1389. + # these makes allow $(MAKE) to be overridden by the environment if someone
  1390. + # wants to (or has to) use something other than the standard make, so we do
  1391. + # not want to unconditionally set $(MAKE) here
  1392. + #
  1393. + # unfortunately, some older makes do not predefine $(MAKE); if you have one of
  1394. + # these, uncomment the following line
  1395. + # (you will know that you have one if you get complaints about unable to
  1396. + # execute things like 'data' and 'rumors')
  1397. + # MAKE = make
  1398. + 
  1399.   # make NetHack
  1400.   GAME     = nethack
  1401.   GAMEUID  = games
  1402. ***************
  1403. *** 55,60 ****
  1404. --- 67,73 ----
  1405.   #    (don't yank the old version out from under people who're playing it)
  1406.       mv $(GAMEDIR)/$(GAME) $(GAMEDIR)/$(GAME).old
  1407.       cp src/$(GAME) $(GAMEDIR)
  1408. +     -rm -f $(SHELLDIR)/$(GAME)
  1409.       sed -e 's;/usr/games/lib/nethackdir;$(GAMEDIR);' \
  1410.           -e 's;HACKDIR/nethack;HACKDIR/$(GAME);' \
  1411.           < auxil/nethack.sh \
  1412. ***************
  1413. *** 82,87 ****
  1414. --- 95,101 ----
  1415.   # copy over the game files
  1416.       ( cd auxil ; cp $(AUX) $(GAMEDIR) )
  1417.       cp src/$(GAME) $(GAMEDIR)
  1418. +     -rm -f $(SHELLDIR)/$(GAME)
  1419.       sed -e 's;/usr/games/lib/nethackdir;$(GAMEDIR);' \
  1420.           -e 's;HACKDIR/nethack;HACKDIR/$(GAME);' \
  1421.           < auxil/nethack.sh \
  1422. *** ./Old/Files    Wed Sep 27 10:11:03 1989
  1423. --- ./Files    Tue Sep 26 23:04:12 1989
  1424. ***************
  1425. *** 1,7 ****
  1426. ! This is a listing of all files in a full NetHack 3.0 distribution, organized in
  1427. ! their standard manner on a UNIX system.  It indicates which files are necessary
  1428. ! for which versions, so that you can tell which files may be deleted from or not
  1429. ! transferred to your system if you wish.
  1430.   
  1431.   
  1432.   (files in top directory)
  1433. --- 1,7 ----
  1434. ! This is a listing of all files in a full NetHack 3.0 distribution, organized
  1435. ! in their standard manner on a UNIX system.  It indicates which files are 
  1436. ! necessary for which versions, so that you can tell which files may be deleted
  1437. ! from or not transferred to your system if you wish.
  1438.   
  1439.   
  1440.   (files in top directory)
  1441. ***************
  1442. *** 27,34 ****
  1443.   
  1444.   others:
  1445.   (files for MSDOS version)
  1446. ! Make.ini        Makefile.msc    Makefile.os2    Makefile.tcc    Maketcc.ini
  1447. ! NetHack.cnf     termcap         termcap.uu
  1448.   (files for MSDOS, Amiga, and Atari versions)
  1449.   pcmain.c        pctty.c         pcunix.c
  1450.   (file for MSDOS and new Atari versions)
  1451. --- 27,34 ----
  1452.   
  1453.   others:
  1454.   (files for MSDOS version)
  1455. ! Make.ini        Makefile.msc    Makefile.pc     Makefile.os2    Makefile.tcc
  1456. ! Maketcc.ini     NetHack.cnf     termcap         termcap.uu
  1457.   (files for MSDOS, Amiga, and Atari versions)
  1458.   pcmain.c        pctty.c         pcunix.c
  1459.   (file for MSDOS and new Atari versions)
  1460. ***************
  1461. *** 37,43 ****
  1462.   Makefile.st
  1463.   (file for old Atari version)
  1464.   oldtos.c
  1465. ! (file with random number routines, which may be included in any version)
  1466.   random.c
  1467.   
  1468.   
  1469. --- 37,43 ----
  1470.   Makefile.st
  1471.   (file for old Atari version)
  1472.   oldtos.c
  1473. ! (Berkeley random number file, which may be included in any version)
  1474.   random.c
  1475.   
  1476.   
  1477. ***************
  1478. *** 51,57 ****
  1479.   obj.h           objclass.h      patchlevel.h    pcconf.h        permonst.h
  1480.   prop.h          rm.h            sp_lev.h        spell.h         system.h
  1481.   tosconf.h       tradstdc.h      trap.h          trapname.h      unixconf.h
  1482. ! vault.h         wseg.h          you.h           youprop.h
  1483.   (file for special level compiler (STRONGHOLD option))
  1484.   lev_comp.h
  1485.   
  1486. --- 51,57 ----
  1487.   obj.h           objclass.h      patchlevel.h    pcconf.h        permonst.h
  1488.   prop.h          rm.h            sp_lev.h        spell.h         system.h
  1489.   tosconf.h       tradstdc.h      trap.h          trapname.h      unixconf.h
  1490. ! vault.h         vmsconf.h       wseg.h          you.h           youprop.h
  1491.   (file for special level compiler (STRONGHOLD option))
  1492.   lev_comp.h
  1493.   
  1494. ***************
  1495. *** 79,81 ****
  1496. --- 79,88 ----
  1497.   lev_comp.c      lev_comp.l      lev_comp.y      lev_lex.c       lev_main.c
  1498.   (files for UNIX versions)
  1499.   Makefile.src    unixmain.c      unixtty.c       unixunix.c
  1500. + 
  1501. + vms:
  1502. + (files for VMS version)
  1503. + Install.vms     spec_lev.com    vmsbuild.com    vmsmain.c       vmsmisc.c
  1504. + vmstty.c        vmsunix.c
  1505. + (GNU termcap files that support VMS version)
  1506. + vmstermcap.c    vmstparam.c
  1507. *** ./Old/README    Wed Sep 27 10:11:59 1989
  1508. --- ./README    Sun Sep 17 13:12:06 1989
  1509. ***************
  1510. *** 37,43 ****
  1511.       directory as the 'Top' directory.  It makes no difference what you
  1512.       call it.
  1513.   
  1514. ! 2.  If there is no flaw in the packaging, FIVE sub-directories will be
  1515.       automatically created, and files will be deposited in them: 
  1516.   
  1517.       a.  A 'src' directory, which will contain general *.c files.
  1518. --- 37,43 ----
  1519.       directory as the 'Top' directory.  It makes no difference what you
  1520.       call it.
  1521.   
  1522. ! 2.  If there is no flaw in the packaging, SIX sub-directories will be
  1523.       automatically created, and files will be deposited in them: 
  1524.   
  1525.       a.  A 'src' directory, which will contain general *.c files.
  1526. ***************
  1527. *** 45,50 ****
  1528. --- 45,51 ----
  1529.       c.  An 'auxil' directory, which will contain a variety of data files.
  1530.       d.  An 'amiga' directory, which will contain the Amiga-specific files.
  1531.       e.  An 'others' directory, which will contain MSDOS and TOS files.
  1532. +     f.  A 'vms' directory, which will contain VMS files.
  1533.   
  1534.       The names of these directories should not be changed, unless you are
  1535.       ready to go through the makefiles and the makedefs program and change
  1536. ***************
  1537. *** 86,91 ****
  1538. --- 87,94 ----
  1539.       Commodore Amiga (probably -- there have been some changes since
  1540.           the Amiga port was done, but we believe it should still work)
  1541.       Atari 1040ST under TOS
  1542. +     DEC vaxen running VMS (probably still requires tweaking) 
  1543. +     Data General AViiON systems under DG/UX
  1544.   
  1545.               - - - - - - - - - - -
  1546.   
  1547. *** /dev/null    Thu Sep 28 00:44:19 1989
  1548. --- include/vmsconf.h    Thu Sep 28 00:44:04 1989
  1549. ***************
  1550. *** 0
  1551.  
  1552. --- 1,69 -----
  1553. + /*    SCCS Id: @(#)vmsconf.h    3.0    88/07/21
  1554. + /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1555. + /* NetHack may be freely redistributed.  See license for details. */
  1556. + 
  1557. + #ifdef VMS
  1558. + #ifndef VMSCONF_H
  1559. + #define VMSCONF_H
  1560. + 
  1561. + #undef UNIX
  1562. + #undef HACKDIR
  1563. + #define HACKDIR    "USR$ROOT0:[GENTZEL.NHDIR]"
  1564. + #undef RECORD
  1565. + #define RECORD "record;1"
  1566. + 
  1567. + #undef COMPRESS
  1568. + #undef ZEROCOMP
  1569. + 
  1570. + /*
  1571. +  * If you define MAIL, then the player will be notified of new broadcasts
  1572. +  * when they arrive.
  1573. +  */
  1574. + #define    MAIL
  1575. + 
  1576. + #define RANDOM        /* if neither random/srandom nor lrand48/srand48
  1577. +                is available from your system */
  1578. + 
  1579. + #define    FCMASK    0660    /* file creation mask */
  1580. + 
  1581. + 
  1582. + /*
  1583. +  * The remainder of the file should not need to be changed.
  1584. +  */
  1585. + 
  1586. + #include <time.h>
  1587. + #include <file.h>
  1588. + 
  1589. + #define    HLOCK    "perm;1"    /* an empty file used for locking purposes */
  1590. + #define LLOCK    "safelock;1"    /* link to previous */
  1591. + 
  1592. + #ifndef REDO
  1593. + # define Getchar vms_getchar
  1594. + #else
  1595. + # define tgetch vms_getchar
  1596. + #endif
  1597. + 
  1598. + #define SHELL        /* do not delete the '!' command */
  1599. + 
  1600. + #include "system.h"
  1601. + 
  1602. + #define index    strchr
  1603. + #define rindex    strrchr
  1604. + 
  1605. + /* Use the high quality random number routines. */
  1606. + #if defined(RANDOM)
  1607. + #define Rand()    random()
  1608. + #define Srand(seed) srandom(seed)
  1609. + #else
  1610. + #define Rand()    rand()
  1611. + #define Srand(seed) srand(seed)
  1612. + #endif
  1613. + 
  1614. + #define unlink(x) delete(x)
  1615. + #define exit(x) vms_exit(x)
  1616. + #define getuid() vms_getuid()
  1617. + #define abort() vms_abort()
  1618. + #define creat(f,m) vms_creat(f,m)
  1619. + 
  1620. + #endif
  1621. + #endif /* VMS /* */
  1622. *** /dev/null    Wed Sep 27 12:48:12 1989
  1623. --- vms/vmsunix.c    Tue Sep 26 18:51:29 1989
  1624. ***************
  1625. *** 0 ****
  1626. --- 1,397 ----
  1627. + /*    SCCS Id: @(#)vmsunix.c    3.0    88/04/13
  1628. + /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  1629. + /* NetHack may be freely redistributed.  See license for details. */
  1630. + 
  1631. + /* This file collects some Unix dependencies; pager.c contains some more */
  1632. + 
  1633. + /*
  1634. +  * The time is used for:
  1635. +  *    - seed for rand()
  1636. +  *    - year on tombstone and yymmdd in record file
  1637. +  *    - phase of the moon (various monsters react to NEW_MOON or FULL_MOON)
  1638. +  *    - night and midnight (the undead are dangerous at midnight)
  1639. +  *    - determination of what files are "very old"
  1640. +  */
  1641. + 
  1642. + #include "hack.h"
  1643. + 
  1644. + #include <rms.h>
  1645. + #include <jpidef.h>
  1646. + #include <ssdef.h>
  1647. + #include <errno.h>
  1648. + #include <signal.h>
  1649. + #undef off_t
  1650. + #include <sys/stat.h>
  1651. + 
  1652. + void
  1653. + setrandom()
  1654. + {
  1655. +     (void) Srand((long) time ((time_t *) 0));
  1656. + }
  1657. + 
  1658. + static struct tm *
  1659. + getlt()
  1660. + {
  1661. +     time_t date;
  1662. + 
  1663. +     (void) time(&date);
  1664. +     return(localtime(&date));
  1665. + }
  1666. + 
  1667. + int
  1668. + getyear()
  1669. + {
  1670. +     return(1900 + getlt()->tm_year);
  1671. + }
  1672. + 
  1673. + char *
  1674. + getdate()
  1675. + {
  1676. +     static char datestr[7];
  1677. +     register struct tm *lt = getlt();
  1678. + 
  1679. +     Sprintf(datestr, "%2d%2d%2d",
  1680. +         lt->tm_year, lt->tm_mon + 1, lt->tm_mday);
  1681. +     if(datestr[2] == ' ') datestr[2] = '0';
  1682. +     if(datestr[4] == ' ') datestr[4] = '0';
  1683. +     return(datestr);
  1684. + }
  1685. + 
  1686. + int
  1687. + phase_of_the_moon()            /* 0-7, with 0: new, 4: full */
  1688. + {                    /* moon period: 29.5306 days */
  1689. +                     /* year: 365.2422 days */
  1690. +     register struct tm *lt = getlt();
  1691. +     register int epact, diy, goldn;
  1692. + 
  1693. +     diy = lt->tm_yday;
  1694. +     goldn = (lt->tm_year % 19) + 1;
  1695. +     epact = (11 * goldn + 18) % 30;
  1696. +     if ((epact == 25 && goldn > 11) || epact == 24)
  1697. +         epact++;
  1698. + 
  1699. +     return( (((((diy + epact) * 6) + 11) % 177) / 22) & 7 );
  1700. + }
  1701. + 
  1702. + int
  1703. + night()
  1704. + {
  1705. +     register int hour = getlt()->tm_hour;
  1706. + 
  1707. +     return(hour < 6 || hour > 21);
  1708. + }
  1709. + 
  1710. + int
  1711. + midnight()
  1712. + {
  1713. +     return(getlt()->tm_hour == 0);
  1714. + }
  1715. + 
  1716. + static struct stat buf, hbuf;
  1717. + 
  1718. + void
  1719. + gethdate(name) char *name; {
  1720. +     register char *np;
  1721. + 
  1722. +     if(stat(name, &hbuf))
  1723. +         error("Cannot get status of %s.",
  1724. +             (np = rindex(name, ']')) ? np+1 : name);
  1725. + }
  1726. + 
  1727. + int
  1728. + uptodate(fd)
  1729. + int fd;
  1730. + {
  1731. +     if(fstat(fd, &buf)) {
  1732. +         pline("Cannot get status of saved level? ");
  1733. +         return(0);
  1734. +     }
  1735. +     if(buf.st_mtime < hbuf.st_mtime) {
  1736. +         pline("Saved level is out of date. ");
  1737. +         return(0);
  1738. +     }
  1739. +     return(1);
  1740. + }
  1741. + 
  1742. + static int
  1743. + veryold(fd)
  1744. + int fd;
  1745. + {
  1746. +     register int i;
  1747. +     time_t date;
  1748. + 
  1749. +     if(fstat(fd, &buf)) return(0);            /* cannot get status */
  1750. +     if(buf.st_size != sizeof(int)) return(0);    /* not an xlock file */
  1751. +     (void) time(&date);
  1752. +     if(date - buf.st_mtime < 3L*24L*60L*60L) {    /* recent */
  1753. +         int lockedpid;    /* should be the same size as hackpid */
  1754. +         int status, dummy, code = JPI$_PID;
  1755. + 
  1756. +         if(read(fd, (char *)&lockedpid, sizeof(lockedpid)) !=
  1757. +             sizeof(lockedpid))
  1758. +             /* strange ... */
  1759. +             return(0);
  1760. +           if(!(!((status = LIB$GETJPI(&code, &lockedpid, 0, &dummy)) & 1)
  1761. +              && status == SS$_NONEXPR))
  1762. +             return(0);
  1763. +     }
  1764. +     (void) close(fd);
  1765. +     for(i = 1; i <= MAXLEVEL+1; i++) {        /* try to remove all */
  1766. +         glo(i);
  1767. +         (void) delete(lock);
  1768. +     }
  1769. +     glo(0);
  1770. +     if(delete(lock)) return(0);            /* cannot remove it */
  1771. +     return(1);                    /* success! */
  1772. + }
  1773. + 
  1774. + void
  1775. + getlock()
  1776. + {
  1777. +     register int i = 0, fd;
  1778. + 
  1779. + #ifdef HARD
  1780. +     /* idea from rpick%ucqais@uccba.uc.edu
  1781. +      * prevent automated rerolling of characters
  1782. +      * test input (fd0) so that tee'ing output to get a screen dump still
  1783. +      * works
  1784. +      * also incidentally prevents development of any hack-o-matic programs
  1785. +      */
  1786. +     if (!isatty(0))
  1787. +         error("You must play from a terminal.");
  1788. + #endif
  1789. + 
  1790. +     (void) fflush(stdout);
  1791. + 
  1792. +     /* we ignore QUIT and INT at this point */
  1793. +     if (link(HLOCK, LLOCK) == -1) {
  1794. +         register int errnosv = errno;
  1795. + 
  1796. +         perror(HLOCK);
  1797. +         Printf("Cannot link %s to %s\n", LLOCK, HLOCK);
  1798. +         switch(errnosv) {
  1799. +         case ENOENT:
  1800. +             Printf("Perhaps there is no (empty) file %s ?\n", HLOCK);
  1801. +             break;
  1802. +         case EACCES:
  1803. +             Printf("It seems you don't have write permission here.\n");
  1804. +             break;
  1805. +         case EEXIST:
  1806. +             Printf("(Try again or rm %s.)\n", LLOCK);
  1807. +             break;
  1808. +         default:
  1809. +             Printf("I don't know what is wrong.");
  1810. +         }
  1811. +         getret();
  1812. +         error("");
  1813. +         /*NOTREACHED*/
  1814. +     }
  1815. + 
  1816. +     regularize(lock);
  1817. +     glo(0);
  1818. +     if(locknum > 25) locknum = 25;
  1819. + 
  1820. +     do {
  1821. +         if(locknum) lock[0] = 'a' + i++;
  1822. + 
  1823. +         if((fd = open(lock, 0)) == -1) {
  1824. +             if(errno == ENOENT) goto gotlock;    /* no such file */
  1825. +             perror(lock);
  1826. +             (void) delete(LLOCK);
  1827. +             error("Cannot open %s", lock);
  1828. +         }
  1829. + 
  1830. +         if(veryold(fd))    /* if true, this closes fd and unlinks lock */
  1831. +             goto gotlock;
  1832. +         (void) close(fd);
  1833. +     } while(i < locknum);
  1834. + 
  1835. +     (void) delete(LLOCK);
  1836. +     error(locknum ? "Too many hacks running now."
  1837. +               : "There is a game in progress under your name.");
  1838. + gotlock:
  1839. +     fd = creat(lock, FCMASK);
  1840. +     if(delete(LLOCK) == -1)
  1841. +         error("Cannot delete %s.", LLOCK);
  1842. +     if(fd == -1) {
  1843. +         error("cannot creat lock file.");
  1844. +     } else {
  1845. +         if(write(fd, (char *) &hackpid, sizeof(hackpid))
  1846. +             != sizeof(hackpid)){
  1847. +             error("cannot write lock");
  1848. +         }
  1849. +         if(close(fd) == -1) {
  1850. +             error("cannot close lock");
  1851. +         }
  1852. +     }
  1853. + }    
  1854. + 
  1855. + void
  1856. + regularize(s)    /* normalize file name */
  1857. + register char *s;
  1858. + {
  1859. +     register char *lp;
  1860. + 
  1861. +     for (lp = s; *lp; lp++)
  1862. +         if (!((*lp >= 'A' && *lp <= 'Z')
  1863. +               || (*lp >= 'a' && *lp <= 'z')
  1864. +               || (*lp >= '0' && *lp <= '9')
  1865. +               || *lp == '$' || *lp == '_'
  1866. +               || (lp > s && *lp == '-')))
  1867. +             *lp = '_';
  1868. + }
  1869. + 
  1870. + int link(file, new)
  1871. + char *file, *new;
  1872. + {
  1873. +     int status;
  1874. +     struct FAB fab;
  1875. +     struct NAM nam;
  1876. +     unsigned short fid[3];
  1877. +     char esa[NAM$C_MAXRSS];
  1878. + 
  1879. +     fab = cc$rms_fab;
  1880. +     fab.fab$l_fop = FAB$M_OFP;
  1881. +     fab.fab$l_fna = file;
  1882. +     fab.fab$b_fns = strlen(file);
  1883. +     fab.fab$l_nam = &nam;
  1884. + 
  1885. +     nam = cc$rms_nam;
  1886. +     nam.nam$l_esa = esa;
  1887. +     nam.nam$b_ess = NAM$C_MAXRSS;
  1888. + 
  1889. +     if (!((status = SYS$PARSE(&fab)) & 1)
  1890. +     || !((status = SYS$SEARCH(&fab)) & 1))
  1891. +     {
  1892. +     C$$TRANSLATE(status);
  1893. +     return -1;
  1894. +     }
  1895. + 
  1896. +     fid[0] = nam.nam$w_fid[0];
  1897. +     fid[1] = nam.nam$w_fid[1];
  1898. +     fid[2] = nam.nam$w_fid[2];
  1899. + 
  1900. +     fab.fab$l_fna = new;
  1901. +     fab.fab$b_fns = strlen(new);
  1902. + 
  1903. +     if (!((status = SYS$PARSE(&fab)) & 1))
  1904. +     {
  1905. +     C$$TRANSLATE(status);
  1906. +     return -1;
  1907. +     }
  1908. + 
  1909. +     nam.nam$w_fid[0] = fid[0];
  1910. +     nam.nam$w_fid[1] = fid[1];
  1911. +     nam.nam$w_fid[2] = fid[2];
  1912. + 
  1913. +     nam.nam$l_esa = nam.nam$l_name;
  1914. +     nam.nam$b_esl = nam.nam$b_name + nam.nam$b_type + nam.nam$b_ver;
  1915. + 
  1916. +     if (!((status = SYS$ENTER(&fab)) & 1))
  1917. +     {
  1918. +     C$$TRANSLATE(status);
  1919. +     return -1;
  1920. +     }
  1921. + 
  1922. +     return 0;
  1923. + }
  1924. + 
  1925. + #undef unlink
  1926. + int unlink(file)
  1927. + char *file;
  1928. + {
  1929. +     int status;
  1930. +     struct FAB fab = cc$rms_fab;
  1931. +     struct NAM nam = cc$rms_nam;
  1932. +     char esa[NAM$C_MAXRSS];
  1933. + 
  1934. +     fab.fab$l_fop = FAB$M_DLT;
  1935. +     fab.fab$l_fna = file;
  1936. +     fab.fab$b_fns = strlen(file);
  1937. +     fab.fab$l_nam = &nam;
  1938. +     nam.nam$l_esa = esa;
  1939. +     nam.nam$b_ess = NAM$C_MAXRSS;
  1940. + 
  1941. +     if (!((status = SYS$PARSE(&fab)) & 1)
  1942. +     || !((status = SYS$REMOVE(&fab)) & 1))
  1943. +     {
  1944. +     C$$TRANSLATE(status);
  1945. +     return -1;
  1946. +     }
  1947. + 
  1948. +     return 0;
  1949. + }
  1950. + 
  1951. + #undef creat
  1952. + int vms_creat(file, mode)
  1953. + char *file;
  1954. + unsigned int mode;
  1955. + {
  1956. +     if (index(file, ';'))
  1957. +     (void) delete(file);
  1958. +     return creat(file, mode);
  1959. + }
  1960. + 
  1961. + #undef getuid
  1962. + int
  1963. + vms_getuid()
  1964. + {
  1965. +     return (getgid() << 16) | getuid();
  1966. + }
  1967. + 
  1968. + #ifdef CHDIR
  1969. + unsigned int oprv[2];
  1970. + 
  1971. + void
  1972. + privoff()
  1973. + {
  1974. +     unsigned int prv[2] = { -1, -1 }, code = JPI$_PROCPRIV;
  1975. + 
  1976. +     (void) SYS$SETPRV(0, prv, 0, oprv);
  1977. +     (void) LIB$GETJPI(&code, 0, 0, prv);
  1978. +     (void) SYS$SETPRV(1, prv, 0, 0);
  1979. + }
  1980. + 
  1981. + void
  1982. + privon()
  1983. + {
  1984. +     (void) SYS$SETPRV(1, oprv, 0, 0);
  1985. + }
  1986. + #endif
  1987. + 
  1988. + #ifdef SHELL
  1989. + unsigned int dosh_pid = 0;
  1990. + 
  1991. + int
  1992. + dosh()
  1993. + {
  1994. +     int status;
  1995. + 
  1996. +     settty((char *) NULL);    /* also calls end_screen() */
  1997. +     (void) signal(SIGINT,SIG_IGN);
  1998. +     (void) signal(SIGQUIT,SIG_IGN);
  1999. +     if (!dosh_pid || !((status = LIB$ATTACH(&dosh_pid)) & 1))
  2000. +     {
  2001. + #ifdef CHDIR
  2002. +         (void) chdir(getenv("PATH"));
  2003. +         privoff();
  2004. + #endif
  2005. +         dosh_pid = 0;
  2006. +         status = LIB$SPAWN(0, 0, 0, 0, 0, &dosh_pid);
  2007. + #ifdef CHDIR
  2008. +         privon();
  2009. +         chdirx((char *) 0, 0);
  2010. + #endif
  2011. +     }
  2012. +     gettty();
  2013. +     setftty();
  2014. +     (void) signal(SIGINT, (SIG_RET_TYPE) done1);
  2015. + #ifdef WIZARD
  2016. +     if(wizard) (void) signal(SIGQUIT,SIG_DFL);
  2017. + #endif
  2018. +     docrt();
  2019. +     if (!(status & 1))
  2020. +         pline("Spawn failed.  Try again.");
  2021. +     return 0;
  2022. + }
  2023. + #endif
  2024.  
  2025.