home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / volume17 / gbp / part16 < prev    next >
Encoding:
Internet Message Format  |  1993-03-20  |  55.5 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: v17i028:  gbp - Galactic Bloodshed+, an empire-like war game, Part16/21
  5. Message-ID: <4556@master.CNA.TEK.COM>
  6. Date: 12 Feb 93 17:32:38 GMT
  7. Sender: news@master.CNA.TEK.COM
  8. Lines: 1598
  9. Approved: billr@saab.CNA.TEK.COM
  10. Xref: uunet comp.sources.games:1707
  11.  
  12. Submitted-by: deragon@harpo.cs.nyu.edu (Seeker)
  13. Posting-number: Volume 17, Issue 28
  14. Archive-name: gbp/Part16
  15. Supersedes: gb3: Volume 10, Issue 1-14
  16. Environment: sockets, curses
  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 16 (of 21)."
  27. # Contents:  hdrs/csp.h hdrs/shipdata.h hdrs/ships.h hdrs/vars.h
  28. #   user/cs.c user/declare.c
  29. # Wrapped by billr@saab on Fri Feb 12 09:14:29 1993
  30. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  31. if test -f 'hdrs/csp.h' -a "${1}" != "-c" ; then 
  32.   echo shar: Will not clobber existing file \"'hdrs/csp.h'\"
  33. else
  34. echo shar: Extracting \"'hdrs/csp.h'\" \(1748 characters\)
  35. sed "s/^X//" >'hdrs/csp.h' <<'END_OF_FILE'
  36. X/*
  37. X * csp.h: Contains the defines for all the Client-Server Protocol (CSP)
  38. X *        numbers.
  39. X *
  40. X * Version 1.2
  41. X *
  42. X * Please send any modifications of this file to:
  43. X *    ekoffler@darkwing.uoregon.edu 
  44. X *    deragon@jethro.nyu.edu
  45. X *
  46. X */
  47. X
  48. X
  49. X/* character to be found in column 0 of a CSP output line */
  50. X# define CSP_CLIENT            '|'
  51. X
  52. X/* identifier sent by client to server when sending a command/request */
  53. X# define CSP_SERVER            "CSP"
  54. X
  55. X/* VERSION */
  56. X# define CSP_VERSION_INFO               10      /* version XX */
  57. X# define CSP_VERSION_OPTIONS            11      /* options set YY */
  58. X
  59. X/* LOGIN */
  60. X# define CSP_CLIENT_ON            30    /* client mode on      */
  61. X# define CSP_CLIENT_OFF            31    /* client mode off     */
  62. X
  63. X/* UPDATE/SEGMENT/RESET */
  64. X
  65. X/* update/segment info */            
  66. X# define CSP_UPDATE_START        50    /* update started */
  67. X# define CSP_UPDATE_END            51    /* update finshed */
  68. X# define CSP_SEGMENT_START        52    /* segment started */
  69. X# define CSP_SEGMENT_END        53    /* segment finished */
  70. X# define CSP_RESET_START        54    /* reset started */
  71. X# define CSP_RESET_END            55    /* reset finished */
  72. X
  73. X/* SURVEY */
  74. X
  75. X/* client_survey command */
  76. X# define CSP_SURVEY_INTRO               101     /* planet info */
  77. X# define CSP_SURVEY_SECTOR              102     /* sector info */
  78. X# define CSP_SURVEY_END                 103     /* end of command(EOC) */
  79. X
  80. X/* COMMANDS */
  81. X
  82. X# define CSP_LOGIN_COMMAND        1101    /* login command   */
  83. X# define CSP_VERSION_COMMAND        1102    /* version command */
  84. X# define CSP_SURVEY_COMMAND        1103    /* imap command    */
  85. X
  86. X/* ERRORS */
  87. X
  88. X# define CSP_ERR            9900    /* error           */
  89. X# define CSP_ERR_TOO_MANY_ARGS        9901    /* too many args   */
  90. X# define CSP_ERR_TOO_FEW_ARGS        9902    /* too few args    */
  91. X# define CSP_ERR_UNKNOWN_COMMAND    9903    /* unknown command */
  92. X
  93. X
  94. END_OF_FILE
  95. if test 1748 -ne `wc -c <'hdrs/csp.h'`; then
  96.     echo shar: \"'hdrs/csp.h'\" unpacked with wrong size!
  97. fi
  98. # end of 'hdrs/csp.h'
  99. fi
  100. if test -f 'hdrs/shipdata.h' -a "${1}" != "-c" ; then 
  101.   echo shar: Will not clobber existing file \"'hdrs/shipdata.h'\"
  102. else
  103. echo shar: Extracting \"'hdrs/shipdata.h'\" \(9773 characters\)
  104. sed "s/^X//" >'hdrs/shipdata.h' <<'END_OF_FILE'
  105. X#ident  "@(#)shipdata.h    1.7 2/1/93 "
  106. X
  107. X#include "config.h"
  108. X/*
  109. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  110. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  111. X * Restrictions in GB.c.
  112. X */
  113. X
  114. Xchar Shipltrs[]={ 'p','s','X','D','B','I','C','d','f','e','H','S','O','c',
  115. X    't','+','M','=','E','-','a','g','h','@','l','w',':','G','F',
  116. X    'T','[','^','P', 'q', 'K', 'Y', 'W', 'J', '&', 'R', 'b', 'L', 'm' };
  117. X
  118. X/* table for [ABIL_BUILD]. (bd). sum the numbers to get the correct value.
  119. X/*      1 To allow it to be built on a planet.
  120. X/*      2 For building by warships (d, B, C,..). Currently only for Space Probe.
  121. X/*      Mines used to be this way too. Built in hanger of building ship.
  122. X/*      4 For building by Shuttles, Cargo ship, Habitats, etc.
  123. X/*        Also forces construction on the outside of the ship. Not in hanger.
  124. X/*      8 For building in Factories. Built on planet, or in hanger of carrying
  125. X/*        ship (Habitat).
  126. X/*     16 For building in Habitats. Used by Pods for instance. Also used by
  127. X/*        Factories. Built inside Habitat. */
  128. X
  129. X/* table for [ABIL_CONSTRUCT]. (cn). sum the numbers to get the correct value.
  130. X/*      1 To allow it to build like a planet.
  131. X/*      2 For building like warships (d, B, C,..).
  132. X/*      4 For building like Shuttles, Cargo ship, Habitats, etc.
  133. X/*      8 For building like Factories.
  134. X/*     16 For building like Habitats. */
  135. X
  136. X/* Changes here to use the new build routine using above tables.  Maarten
  137. X/* Also changed:
  138. X/*   - Pods, Factories, Weapons Plants, Terraforming Devices,
  139. X/*     Orbital Mind Control Lasers and Government Centers can 
  140. X/*     be built inside Habitats.
  141. X/*   - Probes, and other type 2 ships (currently none), are now built inside
  142. X/*     ships, requiring hanger space. This gives more incentive to keep some
  143. X/*     hanger space in the big warships.
  144. X/*   - The big space stations (Habitats, Stations, and Orbital Assault
  145. X/*     Platforms) can now build Probes as well.
  146. X
  147. X /*   - Habitats and Stations had their ability to use a crystal mount removed.
  148. X/*     Since they cannot use it in any way, it was rather useless. It only
  149. X/*     confused the required resources to build the ship, though this has been
  150. X/*     taken care of too.
  151. X/*   - Orbital Mind Control Lasers having 10 guns of caliber 0 seemed strange.
  152. X/*     Now 0 guns. Also removed the 100 destruct carrying capacity. Added 25
  153. X/*     cargo space so it can repair itself. */
  154. X
  155. X
  156. Xlong Shipdata[NUMSTYPES][NUMABILS] = {
  157. X   /*  tech  carg  bay  dest guns prim sec fuelcap  crw arm  cst mt jp ld sw sp dm  bd   cn mod las cew clk god prg port rep pay dock*/
  158. X#ifdef SUPER_PODS
  159. X/*SPd*/   0,   0,    0,   0,   0,   0,  0,    20,    1,  0,   9,  0, 0, 1, 0, 3,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 1,
  160. X#else
  161. X/*SPd*/   0,   0,    0,   0,   0,   0,  0,    20,    1,  0,   1,  0, 0, 1, 0, 2,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 1,
  162. X#endif
  163. X/*Shu*/  10,  25,    2,   2,   1,   1,  0,    20,   10,  0,   2,  0, 0, 1, 0, 4,  0,  8,  4, 1,  0,  0,  0,  0,   1,  0,  0,  1, 1,
  164. X/*Car*/ 250, 600,  200, 800,  30,   3,  2,  1000,   30,  5,  30,  1, 1, 0, 0, 4, 50, 20,  2, 1,  1,  1,  0,  0,   1,  0,  1,  1, 1,
  165. X/*Drn*/ 300, 500,   10, 500,  60,   3,  2,   500,   60, 10,  40,  1, 1, 1, 0, 6, 50,  8,  2, 1,  1,  1,  0,  0,   1,  0,  0,  1, 1,
  166. X/*BB */ 200, 235,   10, 400,  30,   3,  2,   200,   30,  7,  20,  1, 1, 1, 0, 6, 50,  8,  2, 1,  1,  1,  0,  0,   1,  0,  0,  1, 1,
  167. X/*Int*/ 150, 110,    5, 120,  20,   2,  2,   200,   20,  3,  15,  1, 1, 1, 0, 6, 50,  8,  2, 1,  1,  1,  0,  0,   1,  0,  0,  1, 1,
  168. X/*CA */ 150, 165,    5, 300,  20,   3,  2,   120,   20,  5,  10,  1, 1, 1, 0, 6, 50,  8,  2, 1,  1,  1,  0,  0,   1,  0,  0,  1, 1,
  169. X/*DD */ 100, 110,    5, 120,  15,   2,  2,    80,   15,  3,   5,  1, 1, 1, 0, 6, 50,  8,  2, 1,  1,  1,  0,  0,   1,  0,  0,  1, 1,
  170. X/*FF */ 100,   0,    0,  40,  20,   2,  1,    10,    1,  2,   1,  1, 1, 1, 0, 9,  0,  8,  2, 1,  1,  1,  0,  0,   1,  0,  1,  1, 1,
  171. X/*Exp*/  40,  10,    0,  15,   5,   2,  0,    35,    5,  1,   2,  1, 1, 1, 0, 6,  0,  8,  0, 1,  1,  0,  0,  0,   1,  0,  0,  1, 1,
  172. X/*Hab*/ 100,5000,   10, 500,  20,   2,  1,  2000,  2000, 3,  50,  0, 0, 0, 1, 4, 75, 20, 18, 1,  0,  0,  0,  0,   1,  1,  1,  1, 1,
  173. X/*Stn*/ 100,5000,   10, 250,  20,   2,  0,  2000,   50,  1,  10,  0, 0, 0, 0, 4, 75, 20,  6, 1,  0,  0,  0,  0,   1,  1,  1,  1, 1,
  174. X/*OSP*/ 200,1400,   20,1000,  50,   3,  2,  2000,  200,  5,  40,  1, 1, 0, 0, 4, 75, 20,  6, 1,  1,  1,  0,  0,   1,  0,  1,  1, 1,
  175. X/*Crg*/ 100,1000,    5,1000,  10,   1,  0,  1000,  100,  2,  10,  1, 1, 1, 0, 4,  0,  8,  4, 1,  0,  0,  0,  0,   1,  0,  0,  1, 1,
  176. X/*Tnk*/ 100, 200,    5, 200,  10,   1,  0,  5000,   10,  2,  10,  1, 1, 1, 0, 4,  0,  8,  2, 1,  0,  0,  0,  0,   1,  0,  0,  1, 1,
  177. X/*SMn*/  50,   0,    0,  25,   0,   0,  0,    20,    0,  1,  30,  0, 0, 1, 1, 2,  0,  8,  0, 1,  0,  0,  0,  0,   1,  0,  0,  0, 1,
  178. X   /*  tech  carg  bay  dest guns prim sec fuelcap  crw arm  cst mt jp ld sw sp dm  bd  cn mod las cew clk god prg port rep pay dock*/
  179. X/*mir*/ 100, 200,    0,  10,   1,   1,  0,    20,    5,  0, 100,  0, 0, 0, 0, 2, 75, 20,  0, 0,  0,  0,  0,  0,   1,  0,  1,  1, 1,
  180. X/*Stc*/  50,   0,    0,   0,   0,   0,  0,    20,    2,  0,  20,  1, 1, 1, 0, 4,  0,  8,  0, 1,  0,  0,  0,  0,   1,  0,  0,  1, 1,
  181. X/*Tsc*/   5,   0,    0,   0,   0,   0,  0,     0,    2,  0,   2,  0, 0, 1, 0, 0,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 0,
  182. X/*T-R*/ 200,   0,    0,   0,   0,   0,  0,  1000,    5,  0,  20,  1, 0, 1, 1, 2,  0,  1,  0, 0,  0,  0,  0,  0,   0,  0,  1,  0, 1,
  183. X/*APr*/  80,   0,    0,   0,   0,   0,  0,   200,   10,  1,  20,  0, 0, 1, 1, 0,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 0,
  184. X/* CD*/  40,   0,    0,   0,   0,   0,  0,     1,    0,  0,  10,  0, 0, 1, 1, 1,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 1,
  185. X/*Grn*/  40,   0,    0,   0,   0,   0,  0,     1,    0,  0,  10,  0, 0, 1, 0, 1,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 1,
  186. X/*Gov*/   0, 500,    0, 100,  10,   1,  0,  1000,   10, 20, 500,  0, 0, 1, 0, 0, 75, 17,  0, 0,  0,  0,  0,  0,   1,  1,  1,  0, 0,
  187. X/*OMCL*/350,  25,    0,   0,   0,   0,  0,   100,    2,  1,  50,  0, 0, 1, 1, 4,  0, 17,  0, 0,  0,  0,  0,  0,   0,  0,  0,  0, 1,
  188. X/*TWC*/   0,   0,    0,   0,   0,   0,  0,    20,    0,  0,   5,  0, 0, 1, 0, 4,  0,  1,  0, 0,  0,  0,  0,  0,   1,  0,  0,  0, 1,
  189. X/*Prb*/ 150,   0,    0,   0,   0,   0,  0,    20,    0,  0,  10,  0, 0, 1, 0, 9,  0, 19,  0, 0,  0,  0,  0,  0,   1,  0,  0,  0, 1,
  190. X   /*  tech  carg  bay  dest guns prim sec fuelcap  crw arm  cst mt jp ld sw sp dm  bd  cn mod las cew clk god prg port rep pay dock*/
  191. X/*GRL */100,  50,    0, 120,  20,   1,  0,     0,   40,  3,  30,  0, 0, 1, 1, 0, 75,  1,  0, 1,  0,  1,  0,  0,   1,  0,  1,  1, 1,
  192. X/*Fac*/   0,  50,    0,   0,   0,   0,  0,     0,   20,  0,  20,  0, 0, 1, 1, 0, 75, 17,  8, 0,  0,  0,  0,  0,   1,  0,  1,  1, 0,
  193. X/*TFD*/  50,  40,    5,   0,   0,   0,  0,   200,   20,  1,  20,  1, 0, 1, 1, 4,  0, 17,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 1,
  194. X/*TD */ 200,1000,    0,1000,   0,   0,  0,  1000,   100,  0, 300, 0, 0, 1, 1, 0, 50,  1,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 0,
  195. X/*Mis*/  50,   0,    0,  10,   0,   0,  0,     5,     0,  0,   5, 0, 0, 0, 1, 6,  0,  8,  0, 1,  0,  0,  0,  0,   1,  0,  0,  0, 1,
  196. X/*PDN*/ 200,  50,    0, 500,  20,   3,  0,     0,    50, 10, 100, 0, 0, 1, 1, 0, 75,  1,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 0,
  197. X   /*  tech  carg  bay  dest guns prim sec fuelcap  crw arm  cst mt jp ld sw sp dm  bd  cn mod las cew clk god prg port rep pay dock*/
  198. X/*Qua*/   0,   0,    0,   0,  0,   0,  0,   200,    50,  1,  10,  0, 0, 1, 1, 0,  0,  1,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 0,
  199. X/*Plo*/   5,   0,    0,   0,  0,   0,  0,   200,    10,  1,  10,  0, 0, 1, 1, 0,  0,  1,  0, 1,  0,  0,  0,  0,   1,  0,  0,  0, 1,
  200. X/*Dom*/  10, 100,    0,   0,  0,   0,  0,     0,    20,  1,  10,  0, 0, 1, 1, 0,  0,  1,  0, 1,  0,  0,  0,  0,   1,  0,  1,  0, 1,
  201. X/*Wea*/   0, 500,    0,   0,  0,   0,  0,   500,    20,  5,  20,  0, 0, 1, 0, 0, 75, 17,  0, 0,  0,  0,  0,  0,   1,  0,  1,  0, 1,
  202. X/*Port*/  0,   0,    0,   0,  0,   0,  0,     0,   100,  3,  50,  0, 0, 1, 0, 0, 75,  1,  0, 1,  0,  0,  0,  0,   1,  1,  1,  1, 1,
  203. X/*ABM*/ 100,   5,    0,  50,  5,   1,  0,     0,     5,  5,  50,  0, 0, 1, 1, 0, 50,  1,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 0,
  204. X   /*  tech  carg  bay  dest guns prim sec fuelcap  crw arm  cst mt jp ld sw sp dm  bd  cn mod las cew clk god prg port rep pay dock*/
  205. X/*AFV*/  50,   5,    0,  20,  2,   1,  0,    20,     1,  2,  20,  0, 0, 0, 0, 0,  0,  8,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 1,
  206. X/*Bun*/  10, 100,   20, 100,  0,   0,  0,   100,   100, 15, 100,  0, 0, 0, 0, 0, 50,  1,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 0,
  207. X/*Lnd*/ 150, 100,   10, 200, 10,   3,  0,   100,   500,  7,  50,  1, 1, 1, 0, 2, 50,  8,  0, 1,  0,  0,  0,  0,   1,  0,  1,  1, 0, 
  208. X/*Swp*/ 100,  25,    2,  80,  8,   1,  1,    80,     8,  3,  23,  1, 1, 1, 0, 5, 50,  8,  2, 1,  1,  1,  1,  0,   1,  0,  0,  0, 1
  209. X};
  210. X
  211. Xchar *Shipnames[NUMSTYPES] = {
  212. X   "Spore pod",
  213. X   "Shuttle",
  214. X   "Carrier",
  215. X   "Dreadnaught",
  216. X   "Battleship",
  217. X   "Interceptor",
  218. X   "Cruiser",
  219. X   "Destroyer",
  220. X   "Fighter Group",
  221. X   "Explorer",
  222. X   "Habitat",
  223. X   "Station",
  224. X   "Ob Asst Pltfrm",
  225. X   "Cargo Ship",
  226. X   "Tanker",
  227. X   "Space Mine",
  228. X   "Space Mirror",
  229. X   "Space Telescope",
  230. X   "Ground Telescope",
  231. X   "* T-R beam",
  232. X   "Atmosph Processor",
  233. X   "Dust Canister",
  234. X   "Greenhouse Gases",
  235. X   "Govrnmnt. Center",
  236. X   "Mind Control Lsr",
  237. X   "Tox Waste Canistr",
  238. X   "Space Probe",
  239. X   "Gamma Ray Laser",
  240. X   "Factory",
  241. X   "Terraform Device",
  242. X   "AVPM Transporter",
  243. X   "Missile",
  244. X   "Planet Def Net",
  245. X   "Quarry",
  246. X   "Space Plow",
  247. X   "Dome",
  248. X   "Weapons Plant",
  249. X   "Space Port",
  250. X   "ABM Battery",
  251. X   "Mech",
  252. X   "Bunker",
  253. X   "Lander",
  254. X   "Mine Sweeper"
  255. X   };
  256. END_OF_FILE
  257. if test 9773 -ne `wc -c <'hdrs/shipdata.h'`; then
  258.     echo shar: \"'hdrs/shipdata.h'\" unpacked with wrong size!
  259. fi
  260. # end of 'hdrs/shipdata.h'
  261. fi
  262. if test -f 'hdrs/ships.h' -a "${1}" != "-c" ; then 
  263.   echo shar: Will not clobber existing file \"'hdrs/ships.h'\"
  264. else
  265. echo shar: Extracting \"'hdrs/ships.h'\" \(10183 characters\)
  266. sed "s/^X//" >'hdrs/ships.h' <<'END_OF_FILE'
  267. X#ident  "@(#)ships.h    1.4 1/19/93 "
  268. X
  269. X#include "config.h"
  270. X
  271. X/*
  272. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  273. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  274. X * Restrictions in GB.c.
  275. X */
  276. X#define LIGHT        1
  277. X#define MEDIUM        2
  278. X#define HEAVY        3
  279. X#define NONE        0
  280. X#define PRIMARY        1
  281. X#define SECONDARY    2
  282. X
  283. X#define STYPE_POD    0
  284. X#define STYPE_SHUTTLE     1
  285. X#define STYPE_CARRIER   2
  286. X#define STYPE_DREADNT    3
  287. X#define STYPE_BATTLE     4
  288. X#define STYPE_INTCPT    5
  289. X#define STYPE_CRUISER    6
  290. X#define STYPE_DESTROYER 7
  291. X#define STYPE_FIGHTER     8
  292. X#define STYPE_EXPLORER     9
  293. X#define STYPE_HABITAT     10
  294. X#define STYPE_STATION    11
  295. X#define STYPE_OAP    12
  296. X#define STYPE_CARGO     13
  297. X#define STYPE_TANKER     14
  298. X#define STYPE_MINE    15
  299. X#define STYPE_MIRROR    16
  300. X#define OTYPE_STELE    17
  301. X#define OTYPE_GTELE    18
  302. X#define OTYPE_TRACT 19    
  303. X#define OTYPE_AP    20
  304. X#define OTYPE_CANIST    21
  305. X#define OTYPE_GREEN    22
  306. X#define OTYPE_GOV    23
  307. X#define OTYPE_OMCL    24
  308. X#define OTYPE_TOXWC    25
  309. X#define OTYPE_PROBE    26
  310. X#define OTYPE_GR    27
  311. X#define OTYPE_FACTORY    28
  312. X#define OTYPE_TERRA    29
  313. X#define OTYPE_TRANSDEV    30
  314. X#define STYPE_MISSILE    31
  315. X#define OTYPE_PLANDEF    32
  316. X#define OTYPE_QUARRY    33
  317. X#define OTYPE_PLOW    34
  318. X#define OTYPE_DOME        35
  319. X#define OTYPE_WPLANT    36
  320. X#define OTYPE_PORT    37
  321. X#define OTYPE_ABM    38
  322. X#define OTYPE_AFV    39
  323. X#define OTYPE_BUNKER    40
  324. X#define STYPE_LANDER    41
  325. X#define STYPE_SWEEPER   42
  326. X
  327. X#define ABIL_TECH     0
  328. X#define ABIL_CARGO    1
  329. X#define ABIL_HANGER    2
  330. X#define ABIL_DESTCAP     3
  331. X#define ABIL_GUNS     4
  332. X#define ABIL_PRIMARY    5
  333. X#define ABIL_SECONDARY    6
  334. X#define ABIL_FUELCAP     7
  335. X#define ABIL_MAXCREW     8
  336. X#define ABIL_ARMOR     9
  337. X#define ABIL_COST     10
  338. X#define ABIL_MOUNT    11
  339. X#define ABIL_JUMP    12
  340. X#define ABIL_CANLAND    13
  341. X#define ABIL_HASSWITCH    14
  342. X#define ABIL_SPEED    15
  343. X#define ABIL_DAMAGE    16
  344. X#define ABIL_BUILD    17
  345. X#define ABIL_CONSTRUCT    18
  346. X#define ABIL_MOD    19
  347. X#define ABIL_LASER    20
  348. X#define ABIL_CEW    21
  349. X#define ABIL_CLOAK    22
  350. X#define ABIL_GOD    23    /* only diety can build these objects */
  351. X#define ABIL_PROGRAMMED 24
  352. X#define ABIL_PORT    25
  353. X#define ABIL_REPAIR    26
  354. X#define ABIL_MAINTAIN    27
  355. X#define ABIL_CANDOCK    28  /* allows ship to be docked with another -jpd- */
  356. X
  357. X#define NUMSTYPES     (STYPE_SWEEPER+1)
  358. X#define NUMABILS     (ABIL_CANDOCK+1)
  359. X
  360. X#define SHIP_NAMESIZE    18
  361. X
  362. X
  363. X
  364. Xtypedef struct ship shiptype;
  365. Xtypedef struct place placetype;
  366. X
  367. X
  368. Xstruct ship {
  369. X    unsigned short number;    /* ship knows its own number */
  370. X    unsigned char owner;      /* owner of ship */
  371. X    unsigned char governor;     /* subordinate that controls the ship */
  372. X    char name[SHIP_NAMESIZE];        /* name of ship (optional) */
  373. X    char class[SHIP_NAMESIZE];        /* class of ship - designated by players */
  374. X
  375. X    unsigned char race;        /* race type - used when you gain alien
  376. X                   ships during revolts and whatnot - usually
  377. X                   equal to owner */
  378. X    double xpos;
  379. X    double ypos;
  380. X    double fuel;
  381. X    double mass;
  382. X    unsigned char land_x, land_y;
  383. X
  384. X    unsigned short destshipno;        /* destination ship # */
  385. X    unsigned short nextship;        /* next ship in linked list */
  386. X    unsigned short ships;        /* ships landed on it */
  387. X
  388. X    unsigned char armor;
  389. X    unsigned short size;
  390. X
  391. X    unsigned short max_crew;
  392. X    unsigned short max_resource;
  393. X    unsigned short max_destruct;
  394. X    unsigned short max_fuel;
  395. X    unsigned short max_speed;
  396. X    unsigned short build_type;    /* for factories - type of ship it makes */
  397. X    unsigned short build_cost;
  398. X
  399. X    double base_mass;
  400. X    double tech;        /* engineering technology rating */
  401. X    double complexity;    /* complexity rating */
  402. X    
  403. X    unsigned short destruct;         /* stuff it's carrying */
  404. X    unsigned short resource;
  405. X    unsigned short popn;            /* crew */
  406. X    unsigned short troops;            /* marines */
  407. X    unsigned short crystals;
  408. X
  409. X    /* special ship functions (10 bytes) */
  410. X    union {
  411. X        struct {        /* if the ship is a Space Mirror */
  412. X        unsigned short shipno;    /* aimed at what ship */
  413. X        unsigned char snum;        /* aimed at what star */
  414. X        char intensity;        /* intensity of aiming */
  415. X        unsigned char pnum;      /* aimed at what planet */
  416. X        unsigned char level;    /* aimed at what level */
  417. X        unsigned char dummy[4];     /* unused bytes */
  418. X    } aimed_at;
  419. X    struct {    /* spore pods */
  420. X        unsigned char decay;
  421. X        unsigned char temperature;
  422. X        unsigned char dummy[8];
  423. X    } pod;
  424. X    struct {    /* dust canisters, greenhouse gases */
  425. X        unsigned char count;
  426. X        unsigned char dummy[9];
  427. X    } timer;
  428. X    struct {    /* missiles */
  429. X        unsigned char x;
  430. X        unsigned char y;
  431. X        unsigned char scatter;
  432. X        unsigned char dummy[7];
  433. X    } impact;
  434. X    struct {    /* mines */
  435. X        unsigned short radius;
  436. X        unsigned char dummy[8];
  437. X    } trigger;
  438. X    struct {    /* terraformers */
  439. X        unsigned char index;
  440. X        unsigned char dummy[9];
  441. X    } terraform;
  442. X    struct {    /* AVPM */
  443. X        unsigned short target;
  444. X        unsigned char dummy[8];
  445. X    } transport;
  446. X    struct {    /* toxic waste containers */
  447. X        unsigned char toxic;
  448. X        unsigned char dummy[9];
  449. X    } waste;
  450. X    } special;
  451. X    
  452. X    short who_killed;    /* who killed the ship */
  453. X
  454. X    struct {
  455. X    unsigned on : 1;    /* toggles navigate mode */
  456. X    unsigned speed : 4; /* speed for navigate command */
  457. X    unsigned turns : 15;/* number turns left in maneuver */
  458. X    unsigned bearing : 9; /* course */
  459. X    unsigned dummy : 3;
  460. X    } navigate;
  461. X    
  462. X    struct {
  463. X    double maxrng;           /* maximum range for autoshoot */
  464. X    unsigned on     :  1; /* toggle on/off */
  465. X    unsigned planet  :  1; /* planet defender */
  466. X    unsigned self     :  1; /* retaliate if attacked */
  467. X    unsigned evade     :  1; /* evasive action */
  468. X    unsigned ship     : 14; /* ship it is protecting */
  469. X    unsigned dummy     :  6;
  470. X    } protect;
  471. X
  472. X
  473. X/* special systems */
  474. X    unsigned char mount;      /* has a crystal mount */
  475. X    struct {
  476. X    unsigned char charge;
  477. X    unsigned ready : 1;
  478. X    unsigned on : 1;
  479. X    unsigned has : 1;
  480. X    unsigned dummy : 5;
  481. X    } hyper_drive;
  482. X    unsigned char cew;              /* CEW strength */
  483. X    unsigned short cew_range;    /* CEW (confined-energy-weapon) range */
  484. X    unsigned char cloak;           /* has cloaking device */
  485. X    unsigned char laser;    /* has a laser */
  486. X    unsigned char focus;    /* focused laser mode */
  487. X    unsigned char fire_laser;    /* retaliation strength for lasers */
  488. X    
  489. X    unsigned char storbits;    /* what star # orbits */
  490. X    unsigned char deststar;    /* destination star */
  491. X    unsigned char destpnum;    /* destination planet */
  492. X    unsigned char pnumorbits;    /* # of planet if orbiting */
  493. X    unsigned char whatdest;    /* where going (same as Dir) */
  494. X    unsigned char whatorbits;    /* where orbited (same as Dir) */
  495. X
  496. X    unsigned char damage;    /* amt of damage */
  497. X    unsigned char rad;        /* radiation level */
  498. X    unsigned char retaliate;
  499. X    unsigned short target;
  500. X    
  501. X    unsigned char type;        /* what type ship is */
  502. X    unsigned char speed;           /* what speed to travel at 0-9 */
  503. X
  504. X    unsigned active: 1;               /* tells whether the ship is active */
  505. X    unsigned alive : 1;        /* ship is alive */
  506. X    unsigned mode : 1;
  507. X    unsigned bombard : 1;    /* bombard planet we're orbiting */
  508. X    unsigned mounted : 1;    /* has a crystal mounted */
  509. X    unsigned cloaked : 1;    /* is cloaked ship */
  510. X    unsigned sheep : 1;        /* is under influence of mind control */
  511. X    unsigned docked : 1;    /* is landed on a planet or docked */
  512. X    unsigned notified : 1;     /* has been notified of something */
  513. X    unsigned examined : 1;    /* has been examined */
  514. X    unsigned on : 1;        /* on or off */
  515. X    unsigned autoscrap : 1; /* Domes and quarries autoscrap when done */
  516. X    unsigned nodock : 1;    /* can be docked/loaded on another ship */
  517. X    unsigned dummy3 : 3;
  518. X
  519. X
  520. X    unsigned int threshload[TH_CRYSTALS+1]; /* autoload r, d, f, x */
  521. X
  522. X    unsigned char merchant;    /* this contains the route number */
  523. X    unsigned char guns;        /* current gun system which is active */
  524. X    unsigned char primary;    /* describe primary gun system */
  525. X    unsigned char primtype;
  526. X    unsigned char secondary;    /* describe secondary guns */
  527. X    unsigned char sectype;
  528. X
  529. X    unsigned short hanger;    /* amount of hanger space used */
  530. X    unsigned short max_hanger;  /* total hanger space */
  531. X};
  532. X
  533. Xstruct place {        /* used in function return for finding place */
  534. X    unsigned char snum;
  535. X    unsigned char pnum;
  536. X    unsigned short shipno;
  537. X    shiptype *shipptr;
  538. X    unsigned char level;    /* .level: same as Dir */
  539. X    unsigned char err;        /* if error */
  540. X};
  541. X
  542. X
  543. X /* can takeoff & land, is mobile, etc. */
  544. X#define speed_rating(s) ((s)->max_speed)
  545. X
  546. X /* has an on/off switch */
  547. X#define has_switch(s) (Shipdata[(s)->type][ABIL_HASSWITCH])
  548. X
  549. X /* can bombard planets */
  550. X#define can_bombard(s) \
  551. X    (Shipdata[(s)->type][ABIL_GUNS] && ((s)->type != STYPE_MINE))
  552. X
  553. X/* can navigate */
  554. X#define can_navigate(s) (Shipdata[(s)->type][ABIL_SPEED] > 0 && (s)->type != OTYPE_TERRA)
  555. X
  556. X /* can aim at things. */
  557. X#define can_aim(s) ((s)->type>=STYPE_MIRROR && (s)->type<=OTYPE_TRACT)
  558. X
  559. X/* macros to get ship stats */
  560. X#define Armor(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_ARMOR] : (s)->armor*(100-(s)->damage)/100)
  561. X#define Guns(s) ( ((s)->guns==NONE) ? 0 : ((s)->guns==PRIMARY ? (s)->primary : (s)->secondary))
  562. X#define Max_crew(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_MAXCREW] - (s)->troops : (s)->max_crew - (s)->troops)
  563. X#define Max_mil(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_MAXCREW] - (s)->popn : (s)->max_crew - (s)->popn)
  564. X#define Max_resource(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_CARGO] : (s)->max_resource)
  565. X#define Max_crystals(s) (127)
  566. X#define Max_fuel(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_FUELCAP] : (s)->max_fuel)
  567. X#define Max_destruct(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_DESTCAP] : (s)->max_destruct)
  568. X#define Max_speed(s) ( ((s)->type==OTYPE_FACTORY) ? Shipdata[(s)->type][ABIL_SPEED] : (s)->max_speed)
  569. X#define Cost(s) ( ((s)->type==OTYPE_FACTORY) ? 2*(s)->build_cost*(s)->on + Shipdata[(s)->type][ABIL_COST ] : (s)->build_cost)
  570. X#define Mass(s) ((s)->mass)
  571. X#define Sight(s) ( ((s)->type==OTYPE_PROBE) || (s)->popn)
  572. X#define Retaliate(s) ( (s)->retaliate)
  573. X#define Size(s) ((s)->size)
  574. X#define Body(s) ((s)->size-(s)->max_hanger)
  575. X#define Hanger(s) ((s)->max_hanger - (s)->hanger)
  576. X#define Repair(s) ( ((s)->type==OTYPE_FACTORY) ? (s)->on : Max_crew(s))
  577. X
  578. Xextern long Shipdata[NUMSTYPES][NUMABILS];
  579. Xextern char Shipltrs[];
  580. Xextern char *Shipnames[];
  581. X
  582. XEXTERN shiptype **ships;
  583. X
  584. X
  585. END_OF_FILE
  586. if test 10183 -ne `wc -c <'hdrs/ships.h'`; then
  587.     echo shar: \"'hdrs/ships.h'\" unpacked with wrong size!
  588. fi
  589. # end of 'hdrs/ships.h'
  590. fi
  591. if test -f 'hdrs/vars.h' -a "${1}" != "-c" ; then 
  592.   echo shar: Will not clobber existing file \"'hdrs/vars.h'\"
  593. else
  594. echo shar: Extracting \"'hdrs/vars.h'\" \(10522 characters\)
  595. sed "s/^X//" >'hdrs/vars.h' <<'END_OF_FILE'
  596. X#ident  "@(#)vars.h    1.4 1/6/93 "
  597. X/*
  598. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  599. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  600. X * Restrictions in GB.c.
  601. X * vars.h --
  602. X *  main bunch of variables 
  603. X */
  604. X
  605. X#include "files.h"
  606. X#include "tweakables.h"
  607. X#include "config.h"
  608. X#include <sys/types.h>
  609. X#include <sys/file.h>
  610. X#include <stdio.h>
  611. X
  612. Xunsigned long segments;    /* number of movement segments (global variable) */
  613. X 
  614. X#define MAX_ROUTES 4    /* Shipping routes - DON'T change this */
  615. X                        /* unless you know what you are doing */
  616. X
  617. X#define TH_RESOURCE 0   /* THRESHLOADING STUFF */
  618. X#define TH_DESTRUCT 1
  619. X#define TH_FUEL 2
  620. X#define TH_CRYSTALS 3
  621. X
  622. X
  623. X#define LEVEL_UNIV 0
  624. X#define LEVEL_STAR 1
  625. X#define LEVEL_PLAN 2
  626. X#define LEVEL_SHIP 3
  627. X
  628. X#define MAXPLAYERS 64
  629. X#define MAXSTRLEN 2047
  630. X#define HUGESTRLEN (2*MAXSTRLEN+1)
  631. X#define SMALLSTR 31
  632. X
  633. X#define ANN        0
  634. X#define BROADCAST    1
  635. X#define SHOUT        2
  636. X#define THINK        3
  637. X
  638. X#define COMM_CHANNEL1     1
  639. X#define COMM_CHANNEL2     2
  640. X#define COMM_CHANNEL3     3
  641. X
  642. X#define DEFAULT_CHANNEL_MASK 10
  643. X#define COMM_DEF_CHANNEL1     11
  644. X#define COMM_DEF_CHANNEL2     12
  645. X#define COMM_DEF_CHANNEL3     13
  646. X
  647. X/* Used for the log() function.  Determine if we look at errno
  648. X * or just use the default errno which is "log"
  649. X */
  650. X#define NOERRNO        0  
  651. X#define WANTERRNO   1
  652. X
  653. X#define ERRORLOG    0
  654. X#define USERLOG     1
  655. X#define UPDATELOG   2
  656. X
  657. X#define UPDATE_START     1
  658. X#define UPDATE_END         2
  659. X#define SEGMENT_START    3
  660. X#define SEGMENT_END     4
  661. X#define RESET_START        5
  662. X#define RESET_END          6
  663. X
  664. X
  665. Xtypedef char hugestr[HUGESTRLEN];
  666. X
  667. Xlong random();
  668. X
  669. Xtypedef struct sector sectortype;
  670. Xtypedef struct planet planettype;
  671. Xtypedef struct star startype;
  672. Xtypedef struct commod commodtype;
  673. X
  674. Xstruct plinfo {                /* planetary stockpiles */
  675. X      unsigned short fuel;        /* fuel for powering things */
  676. X      unsigned short destruct;       /* destructive potential */
  677. X      unsigned short resource;        /* resources in storage */
  678. X      unsigned long popn;
  679. X      unsigned long troops;
  680. X      unsigned short crystals;
  681. X
  682. X      unsigned short prod_res;    /* shows last update production */
  683. X      unsigned short prod_fuel;
  684. X      unsigned short prod_dest;
  685. X      unsigned short prod_crystals;
  686. X      unsigned long prod_money;
  687. X      double prod_tech;
  688. X
  689. X      unsigned short tech_invest;
  690. X      unsigned short numsectsowned;
  691. X
  692. X      unsigned char comread;        /* combat readiness (mobilization)*/
  693. X      unsigned char mob_set;        /* mobilization target */
  694. X      unsigned char tox_thresh;        /* min to build a waste can */
  695. X
  696. X      unsigned char explored;
  697. X      unsigned char autorep;
  698. X      unsigned char tax;    /* tax rate */
  699. X      unsigned char newtax;    /* new tax rate (after update) */
  700. X      unsigned char guns;    /* number of planet guns (mob/5) */
  701. X
  702. X      /* merchant shipping parameters */
  703. X      struct {
  704. X      unsigned char set;    /* does the planet have orders? */
  705. X      unsigned char dest_star;    /* star that ship has to go to next */
  706. X      unsigned char dest_planet;    /* planet destination */
  707. X      unsigned char load;    /* bit-field commodities to be loaded there */
  708. X      unsigned char unload;    /* unloaded commodities */
  709. X      unsigned char x,y;    /* location that ship has to land on */
  710. X      } route[MAX_ROUTES];  /* i am allowing up to four routes per planet */
  711. X
  712. X      unsigned long mob_points;
  713. X      double est_production;    /* estimated production */
  714. X      unsigned long dummy[3];
  715. X};
  716. X
  717. X#define M_FUEL        0x1
  718. X#define M_DESTRUCT     0x2
  719. X#define M_RESOURCES    0x4
  720. X#define M_CRYSTALS    0x8
  721. X#define Fuel(x)        ((x) & M_FUEL)
  722. X#define Destruct(x)    ((x) & M_DESTRUCT)
  723. X#define Resources(x)    ((x) & M_RESOURCES)
  724. X#define Crystals(x)    ((x) & M_CRYSTALS)
  725. X
  726. Xstruct commod {
  727. X    char owner;
  728. X    char governor;
  729. X    char type;
  730. X    unsigned short amount;
  731. X    unsigned char dummy;
  732. X    unsigned char deliver; /* whether the lot is ready for shipping or not */
  733. X    unsigned long bid;
  734. X    unsigned char bidder;
  735. X    unsigned char bidder_gov;
  736. X    unsigned char star_from;    /* where the stuff originated from */
  737. X    unsigned char planet_from;
  738. X    unsigned char star_to;    /* where it goes to */
  739. X    unsigned char planet_to;
  740. X};
  741. X
  742. Xstruct sector {
  743. X    unsigned char eff;        /* efficiency (0-100) */
  744. X    unsigned char fert;        /* max popn is proportional to this */
  745. X    unsigned char mobilization;    /* percent popn is mobilized for war */
  746. X    unsigned char crystals;
  747. X    unsigned short resource;
  748. X    
  749. X    unsigned short popn;
  750. X    unsigned short troops;    /* troops (additional combat value) */
  751. X
  752. X    unsigned char owner;    /* owner of place */
  753. X    unsigned char race;        /* race type occupying sector
  754. X                   (usually==owner) - makes things more
  755. X                   realistic when alien races revolt and
  756. X                   you gain control of them! */
  757. X    unsigned char type;        /* underlying sector geology */
  758. X    unsigned char condition;    /* environmental effects */
  759. X    unsigned long dummy2;
  760. X};
  761. X
  762. X
  763. Xstruct planet {
  764. X    int sectormappos;        /* file posn for sector map */
  765. X
  766. X    double xpos, ypos;        /* x,y relative to orbit */
  767. X    unsigned short ships;       /* first ship in orbit (to be changed) */
  768. X    unsigned char Maxx, Maxy;        /* size of map */
  769. X
  770. X    struct plinfo info[MAXPLAYERS];     /* player info */
  771. X    short conditions[TOXIC+1];  /* atmospheric conditions for terraforming */
  772. X
  773. X    unsigned long popn;
  774. X    unsigned long troops;
  775. X    unsigned long maxpopn;            /* maximum population */
  776. X    unsigned long total_resources;
  777. X    
  778. X    unsigned char slaved_to;
  779. X    unsigned char type;        /* what type planet is */
  780. X    unsigned char expltimer;    /* timer for explorations */
  781. X
  782. X    unsigned char explored;
  783. X
  784. X    unsigned long dummy[2];
  785. X};
  786. X
  787. Xstruct star {
  788. X    unsigned short ships;    /* 1st ship in orbit */
  789. X    char name[NAMESIZE];    /* name of star */
  790. X    char governor[MAXPLAYERS];    /* which subordinate maintains the system */
  791. X    unsigned char AP[MAXPLAYERS];    /* action pts alotted */
  792. X    unsigned long explored[2];     /* who's been here 64 bits*/
  793. X    unsigned long inhabited[2];    /* who lives here now 64 bits*/
  794. X    double xpos,ypos;
  795. X
  796. X    unsigned char numplanets;        /* # of planets in star system */
  797. X    char pnames[MAXPLANETS][NAMESIZE];     /* names of planets */
  798. X    unsigned long planetpos[MAXPLANETS];/* file posns of planets */
  799. X
  800. X    unsigned char stability;    /* how close to nova it is */
  801. X    unsigned char nova_stage;    /* stage of nova */
  802. X    unsigned char temperature;  /* factor which expresses how hot the star is*/
  803. X    double gravity;        /* attraction of star in "Standards". */
  804. X
  805. X    long dummy[2];        /* dummy bits for development */
  806. X};
  807. X
  808. X
  809. X
  810. X    /* this data will all be read at once */
  811. Xstruct stardata {
  812. X    unsigned short numstars;        /* # of stars */
  813. X    unsigned short ships;        /* 1st ship in orbit */
  814. X    unsigned char  AP[MAXPLAYERS];    /* Action pts for each player */
  815. X    unsigned long dummy[2];
  816. X};
  817. X
  818. XEXTERN struct stardata Sdata;
  819. X
  820. Xstruct directory {
  821. X    unsigned char level;    /* what directory level */
  822. X    unsigned char snum;        /* what star system obj # (level=0) */
  823. X    unsigned char pnum;        /* number of planet */
  824. X    unsigned short shipno;    /* # of ship */
  825. X    char prompt[3*NAMESIZE+5];    /* just to be safe */
  826. X    double lastx[2], lasty[2], zoom[2];    /* last coords for zoom */
  827. X};
  828. X
  829. Xstruct vic {
  830. X  unsigned char racenum;
  831. X  char   name[RNAMESIZE];
  832. X  unsigned long no_count;
  833. X  char    sleep;
  834. X  double tech;
  835. X  int Thing;
  836. X  int IQ;
  837. X  long rawscore;
  838. X  long login;
  839. X};
  840. X
  841. Xstruct text_block {
  842. X    int      nchars;
  843. X    struct text_block  *nxt;
  844. X    char      *start;
  845. X    char      *buf;
  846. X};
  847. X
  848. Xstruct text_queue {
  849. X    struct text_block *head;
  850. X    struct text_block **tail;
  851. X};
  852. X
  853. X
  854. Xstruct descriptor_data {
  855. X    int descriptor;
  856. X    int connected;
  857. X    int God;        /* deity status */
  858. X    int Playernum;  /* race */
  859. X    int Governor;       /* governor/subcommander */
  860. X    char *output_prefix;
  861. X    char *output_suffix;
  862. X    int output_size;
  863. X    struct text_queue output;
  864. X    struct text_queue input;
  865. X    char *raw_input;
  866. X    char *raw_input_at;
  867. X    long last_time;
  868. X    int quota;
  869. X    struct descriptor_data *next;
  870. X    struct descriptor_data **prev;
  871. X};
  872. X
  873. Xstruct descriptor_data *descriptor_list;
  874. X
  875. X
  876. X
  877. XEXTERN struct directory Dir[MAXPLAYERS][MAXGOVERNORS+1];
  878. X
  879. XEXTERN sectortype Smap[(MAX_X+1)*(MAX_Y+1) + 1];
  880. X
  881. Xextern char *malloc();
  882. X
  883. XEXTERN unsigned char Nuked[MAXPLAYERS];
  884. XEXTERN unsigned long StarsInhab[NUMSTARS];
  885. XEXTERN unsigned long StarsExpl[NUMSTARS];
  886. XEXTERN startype *Stars[NUMSTARS];
  887. XEXTERN unsigned short Sdatanumships[MAXPLAYERS];
  888. XEXTERN unsigned long Sdatapopns[MAXPLAYERS];
  889. XEXTERN unsigned short starnumships[NUMSTARS][MAXPLAYERS];
  890. XEXTERN unsigned long starpopns[NUMSTARS][MAXPLAYERS];
  891. X
  892. XEXTERN unsigned long tot_resdep, prod_eff, prod_res[MAXPLAYERS];
  893. XEXTERN unsigned long prod_fuel[MAXPLAYERS], prod_destruct[MAXPLAYERS];
  894. XEXTERN unsigned long prod_crystals[MAXPLAYERS], prod_money[MAXPLAYERS];
  895. XEXTERN unsigned long tot_captured, prod_mob;
  896. XEXTERN unsigned long avg_mob[MAXPLAYERS];
  897. XEXTERN unsigned char sects_gained[MAXPLAYERS], sects_lost[MAXPLAYERS];
  898. XEXTERN unsigned char Claims;
  899. XEXTERN unsigned char adr;
  900. XEXTERN char junk[2][256];
  901. X
  902. XEXTERN planettype *planets[NUMSTARS][MAXPLANETS];
  903. XEXTERN unsigned char ground_assaults[MAXPLAYERS][MAXPLAYERS][NUMSTARS];
  904. XEXTERN unsigned long inhabited[NUMSTARS][2];
  905. XEXTERN double Compat[MAXPLAYERS];
  906. XEXTERN unsigned long Num_races, Num_ships, Num_commods;
  907. XEXTERN unsigned long Planet_count;
  908. XEXTERN unsigned long newslength[4];
  909. XEXTERN char args[MAXARGS][COMMANDSIZE];
  910. XEXTERN int argn;
  911. X
  912. XEXTERN long    next_update_time;   /* When will next update be... approximately */
  913. XEXTERN long    next_segment_time;  /* When will next segment be... approximately */
  914. XEXTERN long    last_update_time;
  915. XEXTERN long    last_segment_time;
  916. XEXTERN int     update_time;        /* Interval between updates */
  917. X
  918. XEXTERN int nsegments_done;     /* How many movements have we done so far? */
  919. XEXTERN int nupdates_done;          /* number of updates so far */
  920. X
  921. XEXTERN long clk;
  922. X
  923. X
  924. X
  925. X/* bit routines stolen from UNIX <sys/param.h> */
  926. X#define setbit(a, i)    ((a)[(i)/32] |= ((i)<32 ? 1<<(i) : 1<<(i)-32))
  927. X#define clrbit(a, i)    ((a)[(i)/32] &= ~((i)<32 ? 1<<(i) : 1<<(i)-32))
  928. X#define isset(a, i)    ((a)[(i)/32] & ((i)<32 ? 1<<(i) : 1<<(i)-32))
  929. X#define isclr(a, i)    (!isset((a), (i)))
  930. X
  931. X#ifdef DEBUG        /* for debugging option */
  932. X#define malloc(s)    DEBUGmalloc(s, __FILE__, __LINE__)
  933. X#define free(s)        DEBUGfree(s)
  934. X#define realloc(p,s)    DEBUGrealloc(p, s, __FILE__, __LINE__)
  935. X
  936. X#define getrace(a,b,c)    DEBUGgetrace(a,b,c,__FILE__,__LINE__)
  937. X#define getstar(a,b,c)    DEBUGgetstar(a,b,c,__FILE__,__LINE__)
  938. X#define getplanet(a,b,c)    DEBUGgetplanet(a,b,c,__FILE__,__LINE__)
  939. X#define getship(a,b,c)    DEBUGgetship(a,b,c,__FILE__,__LINE__)
  940. X#define getcommod(a,b,c)    DEBUGgetcommod(a,b,c,__FILE__,__LINE__)
  941. X#endif
  942. X
  943. X#define success(x) (int_rand(1,100) <= (x))
  944. END_OF_FILE
  945. if test 10522 -ne `wc -c <'hdrs/vars.h'`; then
  946.     echo shar: \"'hdrs/vars.h'\" unpacked with wrong size!
  947. fi
  948. # end of 'hdrs/vars.h'
  949. fi
  950. if test -f 'user/cs.c' -a "${1}" != "-c" ; then 
  951.   echo shar: Will not clobber existing file \"'user/cs.c'\"
  952. else
  953. echo shar: Extracting \"'user/cs.c'\" \(9593 characters\)
  954. sed "s/^X//" >'user/cs.c' <<'END_OF_FILE'
  955. X/*
  956. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky,
  957. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h. Restrictions in
  958. X * GB_copyright.h. cs.c -- change scope (directory)
  959. X */
  960. X
  961. X#include "GB_copyright.h"
  962. X#define EXTERN extern
  963. X#include "vars.h"
  964. X#include "ships.h"
  965. X#include "races.h"
  966. X#include "power.h"
  967. X#include "buffers.h"
  968. X
  969. Xvoid            center(int, int, int);
  970. Xvoid            do_prompt(int, int);
  971. Xvoid            cs(int, int, int);
  972. X#include "proto.h"
  973. X
  974. Xvoid 
  975. Xcenter(int Playernum, int Governor, int APcount)
  976. X{
  977. X    placetype       where;
  978. X
  979. X    where = Getplace(Playernum, Governor, args[1], 1);
  980. X
  981. X    if (where.err) {
  982. X        sprintf(buf, "cs: bad scope.\n");
  983. X        notify(Playernum, Governor, buf);
  984. X        return;
  985. X    } else if (where.level == LEVEL_SHIP) {
  986. X        notify(Playernum, Governor, "CHEATER!!!\n");
  987. X        return;
  988. X    }
  989. X    Dir[Playernum - 1][Governor].lastx[1] = Stars[where.snum]->xpos;
  990. X    Dir[Playernum - 1][Governor].lasty[1] = Stars[where.snum]->ypos;
  991. X}
  992. X
  993. Xvoid 
  994. Xdo_prompt(int Playernum, int Governor)
  995. X{
  996. X    shiptype       *s, *s2;
  997. X
  998. X    if (Dir[Playernum - 1][Governor].level == LEVEL_UNIV) {
  999. X        sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] / )\n", Sdata.AP[Playernum - 1]);
  1000. X    } else if (Dir[Playernum - 1][Governor].level == LEVEL_STAR) {
  1001. X        sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s )\n",
  1002. X        Stars[Dir[Playernum - 1][Governor].snum]->AP[Playernum - 1],
  1003. X            Stars[Dir[Playernum - 1][Governor].snum]->name);
  1004. X    } else if (Dir[Playernum - 1][Governor].level == LEVEL_PLAN) {
  1005. X        sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/%s )\n",
  1006. X        Stars[Dir[Playernum - 1][Governor].snum]->AP[Playernum - 1],
  1007. X            Stars[Dir[Playernum - 1][Governor].snum]->name,
  1008. X            Stars[Dir[Playernum - 1][Governor].snum]->pnames[Dir[Playernum - 1][Governor].pnum]);
  1009. X    } else if (Dir[Playernum - 1][Governor].level == LEVEL_SHIP) {
  1010. X        (void) getship(&s, Dir[Playernum - 1][Governor].shipno);
  1011. X        switch (s->whatorbits) {
  1012. X        case LEVEL_UNIV:
  1013. X            sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /#%d )\n",
  1014. X                Sdata.AP[Playernum - 1], Dir[Playernum - 1][Governor].shipno);
  1015. X            break;
  1016. X        case LEVEL_STAR:
  1017. X            sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/#%d )\n",
  1018. X                Stars[s->storbits]->AP[Playernum - 1],
  1019. X                Stars[s->storbits]->name,
  1020. X                Dir[Playernum - 1][Governor].shipno);
  1021. X            break;
  1022. X        case LEVEL_PLAN:
  1023. X            sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/%s/#%d )\n",
  1024. X                Stars[s->storbits]->AP[Playernum - 1],
  1025. X                Stars[s->storbits]->name,
  1026. X                Stars[s->storbits]->pnames[Dir[Playernum - 1][Governor].pnum],
  1027. X                Dir[Playernum - 1][Governor].shipno);
  1028. X            break;
  1029. X            /*
  1030. X             * I put this mess in because of non-functioning
  1031. X             * prompts when you are in a ship within a ship, or
  1032. X             * deeper. I am certain this can be done more
  1033. X             * elegantly (a lot more) but I don't feel like
  1034. X             * trying that right now. right now I want it to
  1035. X             * function. Maarten
  1036. X             */
  1037. X        case LEVEL_SHIP:
  1038. X            (void) getship(&s2, (int) s->destshipno);
  1039. X            switch (s2->whatorbits) {
  1040. X            case LEVEL_UNIV:
  1041. X                sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /#%d/#%d )\n",
  1042. X                    Sdata.AP[Playernum - 1], s->destshipno, Dir[Playernum - 1][Governor].shipno);
  1043. X                break;
  1044. X            case LEVEL_STAR:
  1045. X                sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/#%d/#%d )\n",
  1046. X                      Stars[s->storbits]->AP[Playernum - 1],
  1047. X                    Stars[s->storbits]->name,
  1048. X                    s->destshipno,
  1049. X                    Dir[Playernum - 1][Governor].shipno);
  1050. X                break;
  1051. X            case LEVEL_PLAN:
  1052. X                sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/%s/#%d/#%d )\n",
  1053. X                      Stars[s->storbits]->AP[Playernum - 1],
  1054. X                    Stars[s->storbits]->name,
  1055. X                    Stars[s->storbits]->pnames[Dir[Playernum - 1][Governor].pnum],
  1056. X                    s->destshipno,
  1057. X                    Dir[Playernum - 1][Governor].shipno);
  1058. X                break;
  1059. X            case LEVEL_SHIP:
  1060. X                while (s2->whatorbits == LEVEL_SHIP) {
  1061. X                    free(s2);
  1062. X                    (void) getship(&s2, (int) s2->destshipno);
  1063. X                }
  1064. X                switch (s2->whatorbits) {
  1065. X                case LEVEL_UNIV:
  1066. X                    sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] / /../#%d/#%d )\n",
  1067. X                        Sdata.AP[Playernum - 1], s->destshipno, Dir[Playernum - 1][Governor].shipno);
  1068. X                    break;
  1069. X                case LEVEL_STAR:
  1070. X                    sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/ /../#%d/#%d )\n",
  1071. X                        Stars[s->storbits]->AP[Playernum - 1],
  1072. X                        Stars[s->storbits]->name,
  1073. X                        s->destshipno,
  1074. X                    Dir[Playernum - 1][Governor].shipno);
  1075. X                    break;
  1076. X                case LEVEL_PLAN:
  1077. X                    sprintf(Dir[Playernum - 1][Governor].prompt, " ( [%d] /%s/%s/ /../#%d/#%d )\n",
  1078. X                        Stars[s->storbits]->AP[Playernum - 1],
  1079. X                        Stars[s->storbits]->name,
  1080. X                        Stars[s->storbits]->pnames[Dir[Playernum - 1][Governor].pnum],
  1081. X                        s->destshipno,
  1082. X                    Dir[Playernum - 1][Governor].shipno);
  1083. X                    break;
  1084. X                default:
  1085. X                    break;
  1086. X                }
  1087. X                free(s2);
  1088. X                break;
  1089. X            default:
  1090. X                break;
  1091. X            }
  1092. X        }
  1093. X        free(s);
  1094. X    }
  1095. X}
  1096. X
  1097. Xvoid 
  1098. Xcs(int Playernum, int Governor, int APcount)
  1099. X{
  1100. X    placetype       where;
  1101. X    planettype     *planet;
  1102. X    shiptype       *s;
  1103. X    racetype       *Race;
  1104. X
  1105. X    Race = races[Playernum - 1];
  1106. X
  1107. X    if (argn == 1) {
  1108. X        /* chdir to def scope */
  1109. X        Dir[Playernum - 1][Governor].level = Race->governor[Governor].deflevel;
  1110. X        if ((Dir[Playernum - 1][Governor].snum = Race->governor[Governor].defsystem)
  1111. X            >= Sdata.numstars)
  1112. X            Dir[Playernum - 1][Governor].snum = Sdata.numstars - 1;
  1113. X        if ((Dir[Playernum - 1][Governor].pnum = Race->governor[Governor].defplanetnum) >= Stars[Dir[Playernum - 1][Governor].snum]->numplanets)
  1114. X            Dir[Playernum - 1][Governor].pnum = Stars[Dir[Playernum - 1][Governor].snum]->numplanets - 1;
  1115. X        Dir[Playernum - 1][Governor].shipno = 0;
  1116. X        Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1117. X        Dir[Playernum - 1][Governor].lastx[1] = Stars[Dir[Playernum - 1][Governor].snum]->xpos;
  1118. X        Dir[Playernum - 1][Governor].lasty[1] = Stars[Dir[Playernum - 1][Governor].snum]->ypos;
  1119. X        return;
  1120. X    } else if (argn == 2) {
  1121. X        /* chdir to specified scope */
  1122. X
  1123. X        where = Getplace(Playernum, Governor, args[1], 0);
  1124. X
  1125. X        if (where.err) {
  1126. X            sprintf(buf, "cs: bad scope.\n");
  1127. X            notify(Playernum, Governor, buf);
  1128. X            Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1129. X            return;
  1130. X        }
  1131. X        /* fix lastx, lasty coordinates */
  1132. X
  1133. X        switch (Dir[Playernum - 1][Governor].level) {
  1134. X        case LEVEL_UNIV:
  1135. X            Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1136. X            break;
  1137. X        case LEVEL_STAR:
  1138. X            if (where.level == LEVEL_UNIV) {
  1139. X                Dir[Playernum - 1][Governor].lastx[1] = Stars[Dir[Playernum - 1][Governor].snum]->xpos;
  1140. X                Dir[Playernum - 1][Governor].lasty[1] = Stars[Dir[Playernum - 1][Governor].snum]->ypos;
  1141. X            } else
  1142. X                Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1143. X            break;
  1144. X        case LEVEL_PLAN:
  1145. X            getplanet(&planet, Dir[Playernum - 1][Governor].snum, Dir[Playernum - 1][Governor].pnum);
  1146. X            if (where.level == LEVEL_STAR && where.snum == Dir[Playernum - 1][Governor].snum) {
  1147. X                Dir[Playernum - 1][Governor].lastx[0] = planet->xpos;
  1148. X                Dir[Playernum - 1][Governor].lasty[0] = planet->ypos;
  1149. X            } else if (where.level == LEVEL_UNIV) {
  1150. X                Dir[Playernum - 1][Governor].lastx[1] = Stars[Dir[Playernum - 1][Governor].snum]->xpos + planet->xpos;
  1151. X                Dir[Playernum - 1][Governor].lasty[1] = Stars[Dir[Playernum - 1][Governor].snum]->ypos + planet->ypos;
  1152. X            } else
  1153. X                Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1154. X            free(planet);
  1155. X            break;
  1156. X        case LEVEL_SHIP:
  1157. X            (void) getship(&s, Dir[Playernum - 1][Governor].shipno);
  1158. X            if (!s->docked) {
  1159. X                switch (where.level) {
  1160. X                case LEVEL_UNIV:
  1161. X                    Dir[Playernum - 1][Governor].lastx[1] = s->xpos;
  1162. X                    Dir[Playernum - 1][Governor].lasty[1] = s->ypos;
  1163. X                    break;
  1164. X                case LEVEL_STAR:
  1165. X                    if (s->whatorbits >= LEVEL_STAR && s->storbits == where.snum) {
  1166. X                        /*
  1167. X                         * we are going UP from the
  1168. X                         * ship.. change last
  1169. X                         */
  1170. X                        Dir[Playernum - 1][Governor].lastx[0] = s->xpos - Stars[s->storbits]->xpos;
  1171. X                        Dir[Playernum - 1][Governor].lasty[0] = s->ypos - Stars[s->storbits]->ypos;
  1172. X                    } else
  1173. X                        Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1174. X                    break;
  1175. X                case LEVEL_PLAN:
  1176. X                    if (s->whatorbits == LEVEL_PLAN && s->storbits == where.snum
  1177. X                        && s->pnumorbits == where.pnum) {
  1178. X                        /* same */
  1179. X                        getplanet(&planet, (int) s->storbits, (int) s->pnumorbits);
  1180. X                        Dir[Playernum - 1][Governor].lastx[0] = s->xpos - Stars[s->storbits]->xpos - planet->xpos;
  1181. X                        Dir[Playernum - 1][Governor].lasty[0] = s->ypos - Stars[s->storbits]->ypos - planet->ypos;
  1182. X                        free(planet);
  1183. X                    } else
  1184. X                        Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1185. X                    break;
  1186. X                case LEVEL_SHIP:
  1187. X                    Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1188. X                    break;
  1189. X                default:
  1190. X                    break;
  1191. X                }
  1192. X            } else
  1193. X                Dir[Playernum - 1][Governor].lastx[0] = Dir[Playernum - 1][Governor].lasty[0] = 0.0;
  1194. X            free(s);
  1195. X            break;
  1196. X        default:
  1197. X            break;
  1198. X        }
  1199. X        Dir[Playernum - 1][Governor].level = where.level;
  1200. X        Dir[Playernum - 1][Governor].snum = where.snum;
  1201. X        Dir[Playernum - 1][Governor].pnum = where.pnum;
  1202. X        Dir[Playernum - 1][Governor].shipno = where.shipno;
  1203. X    } else if (argn == 3 && args[1][1] == 'd') {
  1204. X        /* make new def scope */
  1205. X        where = Getplace(Playernum, Governor, args[2], 0);
  1206. X
  1207. X        if (!where.err && where.level != LEVEL_SHIP) {
  1208. X            Race->governor[Governor].deflevel = where.level;
  1209. X            Race->governor[Governor].defsystem = where.snum;
  1210. X            Race->governor[Governor].defplanetnum = where.pnum;
  1211. X            putrace(Race);
  1212. X
  1213. X            sprintf(buf, "New home system is %s\n", Dispplace(Playernum, Governor, &where));
  1214. X        } else {
  1215. X            sprintf(buf, "cs: bad home system.\n");
  1216. X        }
  1217. X    }
  1218. X}
  1219. END_OF_FILE
  1220. if test 9593 -ne `wc -c <'user/cs.c'`; then
  1221.     echo shar: \"'user/cs.c'\" unpacked with wrong size!
  1222. fi
  1223. # end of 'user/cs.c'
  1224. fi
  1225. if test -f 'user/declare.c' -a "${1}" != "-c" ; then 
  1226.   echo shar: Will not clobber existing file \"'user/declare.c'\"
  1227. else
  1228. echo shar: Extracting \"'user/declare.c'\" \(9628 characters\)
  1229. sed "s/^X//" >'user/declare.c' <<'END_OF_FILE'
  1230. X/*
  1231. X * * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, *
  1232. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h. * Restrictions in
  1233. X * GB_copyright.h. * declare.c -- declare alliance, neutrality, war, the
  1234. X * basic thing.
  1235. X */
  1236. X
  1237. X#include "GB_copyright.h"
  1238. X#define EXTERN extern
  1239. X#include "vars.h"
  1240. X#include "ships.h"
  1241. X#include "races.h"
  1242. X#include "power.h"
  1243. X#include "buffers.h"
  1244. X#include <signal.h>
  1245. X#include <ctype.h>
  1246. X
  1247. Xvoid            invite(int, int, int, int);
  1248. Xvoid            declare(int, int, int);
  1249. Xvoid            vote(int, int, int);
  1250. Xvoid            show_votes(int, int);
  1251. Xvoid            pledge(int, int, int, int);
  1252. X
  1253. X#include "proto.h"
  1254. X
  1255. X/* invite people to join your alliance block */
  1256. Xvoid 
  1257. Xinvite(int Playernum, int Governor, int APcount, int mode)
  1258. X{
  1259. X    int             n;
  1260. X    racetype       *Race, *alien;
  1261. X
  1262. X    if (Governor) {
  1263. X        notify(Playernum, Governor, "Only leaders may invite.\n");
  1264. X        return;
  1265. X    }
  1266. X    if (!(n = GetPlayer(args[1]))) {
  1267. X        sprintf(buf, "No such player.\n");
  1268. X        notify(Playernum, Governor, buf);
  1269. X        return;
  1270. X    }
  1271. X    if (n == Playernum) {
  1272. X        notify(Playernum, Governor, "Not needed, you are the leader.\n");
  1273. X        return;
  1274. X    }
  1275. X    Race = races[Playernum - 1];
  1276. X    alien = races[n - 1];
  1277. X    if (mode) {
  1278. X        setbit(Blocks[Playernum - 1].invite, n);
  1279. X        sprintf(buf, "%s [%d] has invited you to join %s\n", Race->name,
  1280. X            Playernum, Blocks[Playernum - 1].name);
  1281. X        warn_race(n, buf);
  1282. X        sprintf(buf, "%s [%d] has been invited to join %s [%d]\n",
  1283. X             alien->name, n, Blocks[Playernum - 1].name, Playernum);
  1284. X        warn_race(Playernum, buf);
  1285. X    } else {
  1286. X        clrbit(Blocks[Playernum - 1].invite, n);
  1287. X        sprintf(buf, "You have been blackballed from %s [%d]\n",
  1288. X            Blocks[Playernum - 1].name, Playernum);
  1289. X        warn_race(n, buf);
  1290. X        sprintf(buf, "%s [%d] has been blackballed from %s [%d]\n",
  1291. X             alien->name, n, Blocks[Playernum - 1].name, Playernum);
  1292. X        warn_race(Playernum, buf);
  1293. X    }
  1294. X    post(buf, DECLARATION);
  1295. X
  1296. X    Putblock(Blocks);
  1297. X}
  1298. X
  1299. X/* declare that you wish to be included in the alliance block */
  1300. Xvoid 
  1301. Xpledge(int Playernum, int Governor, int APcount, int mode)
  1302. X{
  1303. X    int             n;
  1304. X    racetype       *alien, *Race;
  1305. X
  1306. X    if (Governor) {
  1307. X        notify(Playernum, Governor, "Only leaders may pledge.\n");
  1308. X        return;
  1309. X    }
  1310. X    if (!(n = GetPlayer(args[1]))) {
  1311. X        sprintf(buf, "No such player.\n");
  1312. X        notify(Playernum, Governor, buf);
  1313. X        return;
  1314. X    }
  1315. X    if (n == Playernum) {
  1316. X        notify(Playernum, Governor, "Not needed, you are the leader.\n");
  1317. X        return;
  1318. X    }
  1319. X    Race = races[Playernum - 1];
  1320. X    alien = races[n - 1];
  1321. X    if (mode) {
  1322. X        setbit(Blocks[n - 1].pledge, Playernum);
  1323. X        sprintf(buf, "%s [%d] has pledged %s.\n", Race->name,
  1324. X            Playernum, Blocks[n - 1].name);
  1325. X        warn_race(n, buf);
  1326. X        sprintf(buf, "You have pledged allegiance to %s.\n",
  1327. X            Blocks[n - 1].name);
  1328. X        warn_race(Playernum, buf);
  1329. X
  1330. X        switch (int_rand(1, 20)) {
  1331. X        case 1:
  1332. X            sprintf(buf, "%s [%d] joins the band wagon and pledges allegiance to %s [%d]!\n",
  1333. X                  Race->name, Playernum, Blocks[n - 1].name, n);
  1334. X            break;
  1335. X        default:
  1336. X            sprintf(buf, "%s [%d] pledges allegiance to %s [%d].\n",
  1337. X                  Race->name, Playernum, Blocks[n - 1].name, n);
  1338. X            break;
  1339. X        }
  1340. X    } else {
  1341. X        clrbit(Blocks[n - 1].pledge, Playernum);
  1342. X        sprintf(buf, "%s [%d] has quit %s [%d].\n", Race->name,
  1343. X            Playernum, Blocks[n - 1].name, n);
  1344. X        warn_race(n, buf);
  1345. X        sprintf(buf, "You have quit %s\n", Blocks[n - 1].name);
  1346. X        warn_race(Playernum, buf);
  1347. X
  1348. X        switch (int_rand(1, 20)) {
  1349. X        case 1:
  1350. X            sprintf(buf, "%s [%d] calls %s [%d] a bunch of geeks and QUITS!\n",
  1351. X                  Race->name, Playernum, Blocks[n - 1].name, n);
  1352. X        default:
  1353. X            sprintf(buf, "%s [%d] has QUIT %s [%d]!\n",
  1354. X                  Race->name, Playernum, Blocks[n - 1].name, n);
  1355. X            break;
  1356. X        }
  1357. X    }
  1358. X
  1359. X    post(buf, DECLARATION);
  1360. X
  1361. X    compute_power_blocks();
  1362. X    Putblock(Blocks);
  1363. X}
  1364. X
  1365. Xvoid 
  1366. Xdeclare(int Playernum, int Governor, int APcount)
  1367. X{
  1368. X    int             n, d_mod;
  1369. X    racetype       *Race, *alien;
  1370. X
  1371. X    if (Governor) {
  1372. X        notify(Playernum, Governor, "Only leaders may declare.\n");
  1373. X        return;
  1374. X    }
  1375. X    if (!(n = GetPlayer(args[1]))) {
  1376. X        sprintf(buf, "No such player.\n");
  1377. X        notify(Playernum, Governor, buf);
  1378. X        return;
  1379. X    }
  1380. X    /* look in sdata for APs first */
  1381. X    /* enufAPs would print something */
  1382. X    if ((int) Sdata.AP[Playernum - 1] >= APcount) {
  1383. X        deductAPs(Playernum, Governor, APcount, 0, 1);
  1384. X        /* otherwise use current star */
  1385. X    } else if ((Dir[Playernum - 1][Governor].level == LEVEL_STAR ||
  1386. X            Dir[Playernum - 1][Governor].level == LEVEL_PLAN) &&
  1387. X           enufAP(Playernum, Governor, Stars[Dir[Playernum - 1][Governor].snum]->AP[Playernum - 1], APcount)) {
  1388. X        deductAPs(Playernum, Governor, APcount, Dir[Playernum - 1][Governor].snum, 0);
  1389. X    } else {
  1390. X        sprintf(buf, "You don't have enough AP's (%d)\n", APcount);
  1391. X        notify(Playernum, Governor, buf);
  1392. X        return;
  1393. X    }
  1394. X
  1395. X    Race = races[Playernum - 1];
  1396. X    alien = races[n - 1];
  1397. X
  1398. X    switch (*args[2]) {
  1399. X    case 'a':
  1400. X        setbit(Race->allied, n);
  1401. X        clrbit(Race->atwar, n);
  1402. X        if (success(5)) {
  1403. X            sprintf(buf, "But would you want your sister to marry one?\n");
  1404. X            notify(Playernum, Governor, buf);
  1405. X        } else {
  1406. X            sprintf(buf, "Good for you.\n");
  1407. X            notify(Playernum, Governor, buf);
  1408. X        }
  1409. X        sprintf(buf, " Player #%d (%s) has declared an alliance with you!\n",
  1410. X            Playernum, Race->name);
  1411. X        warn_race(n, buf);
  1412. X        sprintf(buf, "%s [%d] declares ALLIANCE with %s [%d].\n",
  1413. X            Race->name, Playernum, alien->name, n);
  1414. X        d_mod = 30;
  1415. X        if (argn > 3)
  1416. X            sscanf(args[3], "%d", &d_mod);
  1417. X        d_mod = MAX(d_mod, 30);
  1418. X        break;
  1419. X    case 'n':
  1420. X        clrbit(Race->allied, n);
  1421. X        clrbit(Race->atwar, n);
  1422. X        sprintf(buf, "Done.\n");
  1423. X        notify(Playernum, Governor, buf);
  1424. X
  1425. X        sprintf(buf, " Player #%d (%s) has declared neutrality with you!\n", Playernum, Race->name);
  1426. X        warn_race(n, buf);
  1427. X        sprintf(buf, "%s [%d] declares a state of neutrality with %s [%d].\n",
  1428. X            Race->name, Playernum, alien->name, n);
  1429. X        d_mod = 30;
  1430. X        break;
  1431. X    case 'w':
  1432. X        setbit(Race->atwar, n);
  1433. X        clrbit(Race->allied, n);
  1434. X        if (success(4)) {
  1435. X            sprintf(buf, "Your enemies flaunt their secondary male reproductive glands in your\ngeneral direction.\n");
  1436. X            notify(Playernum, Governor, buf);
  1437. X        } else {
  1438. X            sprintf(buf, "Give 'em hell!\n");
  1439. X            notify(Playernum, Governor, buf);
  1440. X        }
  1441. X        sprintf(buf, " Player #%d (%s) has declared war against you!\n", Playernum, Race->name);
  1442. X        warn_race(n, buf);
  1443. X        switch (int_rand(1, 5)) {
  1444. X        case 1:
  1445. X            sprintf(buf, "%s [%d] declares WAR on %s [%d].\n",
  1446. X                Race->name, Playernum, alien->name, n);
  1447. X            break;
  1448. X        case 2:
  1449. X            sprintf(buf, "%s [%d] has had enough of %s [%d] and declares WAR!\n",
  1450. X                Race->name, Playernum, alien->name, n);
  1451. X            break;
  1452. X        case 3:
  1453. X            sprintf(buf, "%s [%d] decided that it is time to declare WAR on %s [%d]!\n",
  1454. X                Race->name, Playernum, alien->name, n);
  1455. X            break;
  1456. X        case 4:
  1457. X            sprintf(buf, "%s [%d] had no choice but to declare WAR against %s [%d]!\n",
  1458. X                Race->name, Playernum, alien->name, n);
  1459. X            break;
  1460. X        case 5:
  1461. X            sprintf(buf, "%s [%d] says 'screw it!' and declares WAR on %s [%d]!\n",
  1462. X                Race->name, Playernum, alien->name, n);
  1463. X            break;
  1464. X        default:
  1465. X            break;
  1466. X        }
  1467. X        d_mod = 30;
  1468. X        break;
  1469. X    default:
  1470. X        notify(Playernum, Governor, "I don't understand.\n");
  1471. X        return;
  1472. X    }
  1473. X
  1474. X    post(buf, DECLARATION);
  1475. X    warn_race(Playernum, buf);
  1476. X
  1477. X    /* They, of course, learn more about you */
  1478. X    alien->translate[Playernum - 1] = MIN(alien->translate[Playernum - 1] + d_mod, 100);
  1479. X
  1480. X    putrace(alien);
  1481. X    putrace(Race);
  1482. X}
  1483. X
  1484. X#ifdef VOTING
  1485. Xvoid 
  1486. Xvote(int Playernum, int Governor, int APcount)
  1487. X{
  1488. X    int             i;
  1489. X    racetype       *Race;
  1490. X    int             check, nvotes, nays, yays;
  1491. X
  1492. X    Race = races[Playernum - 1];
  1493. X
  1494. X    if (Race->God) {
  1495. X        sprintf(buf, "Your vote doesn't count, however, here is the count.\n");
  1496. X        notify(Playernum, Governor, buf);
  1497. X        show_votes(Playernum, Governor);
  1498. X        return;
  1499. X    }
  1500. X    if (Race->Guest) {
  1501. X        sprintf(buf, "You are not allowed to vote, but, here is the count.\n");
  1502. X        notify(Playernum, Governor, buf);
  1503. X        show_votes(Playernum, Governor);
  1504. X        return;
  1505. X    }
  1506. X    if (argn > 2) {
  1507. X        check = 0;
  1508. X        if (match(args[1], "update")) {
  1509. X            i = strlen(args[2]);
  1510. X            if (match(args[2], "go")) {
  1511. X                Race->votes |= VOTE_UPDATE_GO;
  1512. X                check = 1;
  1513. X            } else if (match(args[2], "wait"))
  1514. X                Race->votes &= ~VOTE_UPDATE_GO;
  1515. X            else {
  1516. X                sprintf(buf, "No such update choice '%s'\n", args[2]);
  1517. X                notify(Playernum, Governor, buf);
  1518. X                return;
  1519. X            }
  1520. X        } else {
  1521. X            sprintf(buf, "No such vote '%s'\n", args[1]);
  1522. X            notify(Playernum, Governor, buf);
  1523. X            return;
  1524. X        }
  1525. X        putrace(Race);
  1526. X
  1527. X        if (check) {
  1528. X            /*
  1529. X             * Ok...someone voted yes.  Tally them all up and see
  1530. X             * if
  1531. X             */
  1532. X            /* we should do something. */
  1533. X            nays = 0;
  1534. X            yays = 0;
  1535. X            nvotes = 0;
  1536. X            for (Playernum = 1; Playernum <= Num_races; Playernum++) {
  1537. X                Race = races[Playernum - 1];
  1538. X                if (Race->God || Race->Guest)
  1539. X                    continue;
  1540. X                nvotes++;
  1541. X                if (Race->votes & VOTE_UPDATE_GO)
  1542. X                    yays++;
  1543. X                else
  1544. X                    nays++;
  1545. X            }
  1546. X            /* Is Update/Movement vote unanimous now? */
  1547. X            if (nvotes > 0 && nvotes == yays && nays == 0) {
  1548. X                /* Do it... */
  1549. X                do_next_thing();
  1550. X            }
  1551. X        }
  1552. X    } else {
  1553. X        sprintf(buf, "Your vote on updates is %s\n",
  1554. X            (Race->votes & VOTE_UPDATE_GO) ? "go" : "wait");
  1555. X        notify(Playernum, Governor, buf);
  1556. X        show_votes(Playernum, Governor);
  1557. X    }
  1558. X}
  1559. X
  1560. Xvoid 
  1561. Xshow_votes(int Playernum, int Governor)
  1562. X{
  1563. X    int             nvotes, nays, yays, pnum;
  1564. X    racetype       *Race;
  1565. X
  1566. X    nays = yays = nvotes = 0;
  1567. X    for (pnum = 1; pnum <= Num_races; pnum++) {
  1568. X        Race = races[pnum - 1];
  1569. X        if (Race->God || Race->Guest)
  1570. X            continue;
  1571. X        nvotes++;
  1572. X        if (Race->votes & VOTE_UPDATE_GO) {
  1573. X            yays++;
  1574. X            sprintf(buf, "  %s voted go.\n", Race->name);
  1575. X        } else {
  1576. X            nays++;
  1577. X            sprintf(buf, "  %s voted wait.\n", Race->name);
  1578. X        }
  1579. X        if (races[Playernum - 1]->God)
  1580. X            notify(Playernum, Governor, buf);
  1581. X    }
  1582. X    sprintf(buf, "  Total votes = %d, Go = %d, Wait = %d.\n", nvotes, yays, nays);
  1583. X    notify(Playernum, Governor, buf);
  1584. X}
  1585. X#endif
  1586. END_OF_FILE
  1587. if test 9628 -ne `wc -c <'user/declare.c'`; then
  1588.     echo shar: \"'user/declare.c'\" unpacked with wrong size!
  1589. fi
  1590. # end of 'user/declare.c'
  1591. fi
  1592. echo shar: End of archive 16 \(of 21\).
  1593. cp /dev/null ark16isdone
  1594. MISSING=""
  1595. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ; do
  1596.     if test ! -f ark${I}isdone ; then
  1597.     MISSING="${MISSING} ${I}"
  1598.     fi
  1599. done
  1600. if test "${MISSING}" = "" ; then
  1601.     echo You have unpacked all 21 archives.
  1602.     echo "Now type './buildfiles.sh'"
  1603.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1604. else
  1605.     echo You still need to unpack the following archives:
  1606.     echo "        " ${MISSING}
  1607. fi
  1608. ##  End of shell archive.
  1609. exit 0
  1610.