home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume10 / gb3 / part12 < prev    next >
Internet Message Format  |  1990-06-08  |  59KB
  1. Path: uunet!zephyr.ens.tek.com!tekred!saab!billr
  2. From: billr@saab.CNA.TEK.COM (Bill Randle)
  3. Newsgroups: comp.sources.games
  4. Subject: v10i012:  gb3 - Galactic Bloodshed, an empire-like war game [Ver. 2.0], Part12/14
  5. Message-ID: <5703@tekred.CNA.TEK.COM>
  6. Date: 1 Jun 90 19:09:42 GMT
  7. Sender: news@tekred.CNA.TEK.COM
  8. Lines: 1956
  9. Approved: billr@saab.CNA.TEK.COM
  10.  
  11. Submitted-by: VANCLEEF@mps.ohio-state.edu
  12. Posting-number: Volume 10, Issue 12
  13. Archive-name: gb3/Part12
  14. Supersedes: GB2: Volume 7, Issue 44-51
  15.  
  16.  
  17.  
  18. #! /bin/sh
  19. # This is a shell archive.  Remove anything before this line, then unpack
  20. # it by saving it into a file and typing "sh file".  To overwrite existing
  21. # files, type "sh file -c".  You can also feed this as standard input via
  22. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  23. # will see the following message at the end:
  24. #        "End of archive 12 (of 14)."
  25. # Contents:  Docs/assault.doc Docs/blocks.doc Docs/enslave.doc
  26. #   Docs/help.doc Docs/message.doc Docs/news.doc Docs/oldnews.doc
  27. #   Docs/orbit.doc Docs/survey.doc client/orbit.c server/autoreport.c
  28. #   server/capitol.c server/daemon.c server/examine.c server/max.c
  29. #   server/mobiliz.c server/more.c server/moveplanet.c server/races.h
  30. #   server/relation.c server/tech.c server/toggle.c
  31. # Wrapped by billr@saab on Fri Jun  1 11:53:45 1990
  32. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  33. if test -f 'Docs/assault.doc' -a "${1}" != "-c" ; then 
  34.   echo shar: Will not clobber existing file \"'Docs/assault.doc'\"
  35. else
  36. echo shar: Extracting \"'Docs/assault.doc'\" \(2606 characters\)
  37. sed "s/^X//" >'Docs/assault.doc' <<'END_OF_FILE'
  38. XASSAULT            Galactic Bloodshed        ASSAULT
  39. X
  40. X
  41. XNAME
  42. X  [1] assault -- attempt capture of ship/planet
  43. X 
  44. XSYNTAX
  45. X      assault #<shipnumber> <where> <number of boarders>
  46. X
  47. XDESCRIPTION
  48. X  This command may be used when a player wishes to capture a ship or planet
  49. Xintact instead of laying waste to it.  To perform an assault, the ship involved
  50. Xmust be 10 units of distance to the enemy or closer (much like ``land''.)  
  51. X
  52. X
  53. XCAPTURING A PLANET
  54. X
  55. X  The player will receive a combat readiness bonus of 100 on the disputed 
  56. Xplanet only if he does not already have extensive colonies there.  Combat
  57. Xreadiness represents how ready and willing the inhabitants are to fight.  
  58. XOver time, this combat readiness will tend towards the average mobilization 
  59. Xof the sectors each player owns.  The mobilization of the assaulted sector
  60. Xwill be set to 100, as will the mobilization quota (see ``mobilize'').
  61. X
  62. X  Each turn sectors bordered by two opposing players will be contested, both
  63. Xraces will receive casualties in disputed sectors and the winner, if there is
  64. Xone, will move in.  Being possibly outnumbered by the planet's original 
  65. Xinhabitants, the assaulting player may have to resort to orbital bombardment
  66. Xbefore the natives wise up and surrender.  (see the section on ``slavery'').
  67. XThis, however, carries it's own price -- sectors may be rendered uninhabitable
  68. Xfor some time and of no use to anyone.
  69. X
  70. X
  71. XCAPTURING A SHIP
  72. X
  73. X  You will be prompted for how many boarders you wish to risk in this
  74. Xendeavor.  This must be at least one and at most the entire ship's crew.
  75. XYou cannot assault with more crew than the maximum crew capacity of the 
  76. Xother ship.  Your total boarding strength is calculated, and compared with
  77. Xthe other ship's, and casualties are taken.  If you win, you capture the ship;
  78. Xif you lose, the ships are not docked and you will have to try again.  It
  79. Xmay take several tries to capture a ship, especially if there are a lot of
  80. Xenemy crew.  Some structural damage to both ships is unavoidable, and may
  81. Xresult in the destruction of one or the other (or both).
  82. X
  83. X  The boarding strength of the attacking ship is proportional to the
  84. Xlogarithms of the following: the number of boarders, the tech of their race,
  85. Xand their fighting ability.  The defending strength of the other ship depends
  86. Xon these same factors and the armor class of the defending ship.  Note that
  87. Xin attacking, any ship is as good as any other; it only depends on the 
  88. Xsoldiers.  Smaller groups of boarders can actually be more effective than
  89. Xlarger groups, but the attacker will need AP's and patience for several
  90. Xassaults.
  91. X
  92. XSEE ALSO
  93. X  enslave, land, fire
  94. X
  95. END_OF_FILE
  96. if test 2606 -ne `wc -c <'Docs/assault.doc'`; then
  97.     echo shar: \"'Docs/assault.doc'\" unpacked with wrong size!
  98. fi
  99. # end of 'Docs/assault.doc'
  100. fi
  101. if test -f 'Docs/blocks.doc' -a "${1}" != "-c" ; then 
  102.   echo shar: Will not clobber existing file \"'Docs/blocks.doc'\"
  103. else
  104. echo shar: Extracting \"'Docs/blocks.doc'\" \(1023 characters\)
  105. sed "s/^X//" >'Docs/blocks.doc' <<'END_OF_FILE'
  106. XBLOCKS            Galactic Bloodshed            BLOCKS
  107. X
  108. X
  109. XNAME
  110. X  [0] block -- list empires and their approximate influence
  111. X
  112. XSYNTAX
  113. X       block <leader or block number>
  114. X
  115. XDESCRIPTION
  116. X  
  117. X   This command will list the relative power of each alliance
  118. Xblock, or a specific alliance block if specified. Each player
  119. Xmay lead one alliance block only. In order to get people to
  120. Xinto the group you must use the 'invite <player>' to request
  121. Xmembership. The other player may join the alliance block by
  122. Xusing 'pledge <leader or block number>'. A player may quit
  123. Xor blackball another for his group by doing 'uninvite <player>'
  124. Xor 'unpledge <leader or block number>'. Alliance blocks
  125. Xdo not force alliances among its members. In fact, it solely
  126. Xis used for political purposes. However, an alliance block
  127. Xcan win the game by accumulating the required number of
  128. Xvictory points. This is the sum of all VPs accumulated
  129. Xby its current members (not programmed in yet).
  130. X
  131. X   You can name your alliance block with 'name block <your block's
  132. Xname>'.
  133. X
  134. X SEE ALSO
  135. X    power
  136. END_OF_FILE
  137. if test 1023 -ne `wc -c <'Docs/blocks.doc'`; then
  138.     echo shar: \"'Docs/blocks.doc'\" unpacked with wrong size!
  139. fi
  140. # end of 'Docs/blocks.doc'
  141. fi
  142. if test -f 'Docs/enslave.doc' -a "${1}" != "-c" ; then 
  143.   echo shar: Will not clobber existing file \"'Docs/enslave.doc'\"
  144. else
  145. echo shar: Extracting \"'Docs/enslave.doc'\" \(2049 characters\)
  146. sed "s/^X//" >'Docs/enslave.doc' <<'END_OF_FILE'
  147. XENSLAVE            Galactic Bloodshed        ENSLAVE
  148. X
  149. X
  150. XNAME
  151. X  [1] enslave -- enslave a world
  152. X 
  153. XSYNTAX
  154. X      enslave <shipnumber>
  155. X
  156. XDESCRIPTION
  157. X  This command is used to convert entire planets to a condition of slavery.
  158. XWhen invoked the ship specified must be an Orbital Assault Platform, which
  159. Xis the only ship type sufficiently impressive to convince the planetary
  160. Xpopulation of the futility of resistance.  The platform must be orbiting
  161. Xthe planet to be enslaved.
  162. X
  163. X  To commence a proper enslavement, the forces bearing (the platform itself
  164. Xplus the other ships which might be orbiting the planet) against the
  165. Xplanet must be more than twice the defending strength (weapons under the
  166. Xcontrol of the inhabitants plus the weapons on board any ships they own in
  167. Xorbit around the planet).  The enslaving player must have a garrison (at
  168. Xleast one population) on the planet.  
  169. X
  170. X  The enslaving player is not told how much strength the other players might
  171. Xhave, but he is told whether the planet was enslaved or not.  Telegram
  172. Xmessages are sent to any players affected by the command.
  173. X
  174. X  To keep the planet the enslaving player must maintain a garrison of at
  175. Xleast 0.1% of the total population on the planet.  (The garrison need not be
  176. Xthat large to initiate slavery, but must be that large to maintain it.)
  177. XIf the garrison falls below this threshold, and the OASP is no longer in
  178. Xorbit around the planet, a revolution is immediate and devastating:
  179. Xall sectors belonging to the former slave holder are destroyed in the
  180. Xinhabitants' fury of revolution.  If the OASP is still there, there is a
  181. Xchance (50%) that a revolution will not occur, and some occupying sectors
  182. Xmay not be destroyed (without it overhead, they will be).  Other random
  183. Xsectors will be damaged as well in the fight.
  184. X
  185. X  When a planet is under enslavement, everything produced there will be
  186. Xcredited to the slave-holding player's stockpiles.  Races enslaved on a
  187. Xplanet can still survey, map, build, and otherwise observe things happening
  188. Xthere (there is an active resistance).
  189. X
  190. X
  191. X  SEE ALSO
  192. X  survey, map
  193. END_OF_FILE
  194. if test 2049 -ne `wc -c <'Docs/enslave.doc'`; then
  195.     echo shar: \"'Docs/enslave.doc'\" unpacked with wrong size!
  196. fi
  197. # end of 'Docs/enslave.doc'
  198. fi
  199. if test -f 'Docs/help.doc' -a "${1}" != "-c" ; then 
  200.   echo shar: Will not clobber existing file \"'Docs/help.doc'\"
  201. else
  202. echo shar: Extracting \"'Docs/help.doc'\" \(2598 characters\)
  203. sed "s/^X//" >'Docs/help.doc' <<'END_OF_FILE'
  204. XGalactic.Bloodshed commands:
  205. X
  206. X
  207. X () or none -required arguments. []-optional arguments.
  208. X xlow:xhi,ylow:yhi-means a range of sectors from xlow to xhi, and ylow to
  209. X    yhi.  also legal: x,y xlow:xhi,y x,ylow:yhi
  210. X path : a scope path; separated by '/'. ex: /sol/Earth means system sol, planet
  211. X     Earth; ../Mars means the scope above you, planet (or star for that 
  212. X     matter) Mars.  these may be abbreviated.  Substitute ':' for the
  213. X     current scope you are in for any command. 'path' can be substituted 
  214. X     with '#(shipno)' for many commands.
  215. X
  216. X
  217. Xsurvey [xlow:xhi,ylow:yhi] -- look at survey on range of sectors or planet
  218. X        or star.
  219. X
  220. Xbuild [shiptypeletter] [x,y] -- build a ship/object.
  221. X
  222. Xcs ([#(shipnumber)|[:]|[/]|[..]|[planetname]|[starname]|[/] etc.) -- 
  223. X        change scope.  ( ".." = up one;
  224. X        ':' = current scope; 
  225. X        <name> = down to planet or star,
  226. X        #(shipnumber) = that ship number.)
  227. X
  228. Xdeclare -- state relations (alliance, neutrality, war) to other players.
  229. X
  230. Xfire  -- fire from ship or planet, to ship or planet 
  231. X
  232. Xload [#shipnum] -- load/unload commodities from ship.
  233. X
  234. Xlaunch [#shipnum] -- launch a ship from a planet or the ship it is docked with.
  235. X
  236. Xland [#shipnum] [x,y] -- land a ship on a planet, sector x,y.
  237. X
  238. Xmobilize -- build up military readiness in sectors.
  239. X
  240. Xmap [path] -- look at sector map if [path] is a planet; use orbit otherwise.
  241. X
  242. Xname -- rename an object (star or planet).
  243. X
  244. Xorbit [options] [path] -- graphic representation of ship and planet positions.
  245. X
  246. Xorder [ #shipnum ] -- send orders to ships: turn them on/off, 
  247. X        navigation, speed setting, various other things dependent
  248. X        on the type of ship.
  249. X
  250. Xprofile -- racial profile.
  251. X
  252. Xpower -- report of all races and their approximate influence in the game.
  253. X
  254. Xscrap [#shipnum] -- turn a ship/object into scrap.
  255. X
  256. Xstock [#shipnumber] -- ship report.
  257. X
  258. Xread -- read telegram messages.
  259. X
  260. Xrelation -- report on the relations between your player and the other players
  261. X    in the game; also translation modifiers.
  262. X
  263. Xreport [#shipnumber] -- navigational ship report.
  264. X
  265. Xtactical [#shipnumber] -- tactical report of enemy ships within range of yours.
  266. X
  267. Xtechnology -- invest production into technological development.
  268. X
  269. Xtelegram [ path | playername | player# ] -- send a message to another player,
  270. X    or to whomever resides in (path): if ship, the owner of the ship,
  271. X                      if planet, anyone inhabiting it,
  272. X                      if star, anyone with colonies/ships 
  273. X                        there.
  274. X
  275. Xtoxicity -- Set a threshold to build toxic waste canisters when toxicity gets
  276. X    too high.
  277. X
  278. Xzoom (amount) | (numerator/denominator) [x,y] -- zoom in/out for orbit display.
  279. X
  280. Xquit -- quit.
  281. X
  282. Xhelp -- this file.
  283. X
  284. END_OF_FILE
  285. if test 2598 -ne `wc -c <'Docs/help.doc'`; then
  286.     echo shar: \"'Docs/help.doc'\" unpacked with wrong size!
  287. fi
  288. # end of 'Docs/help.doc'
  289. fi
  290. if test -f 'Docs/message.doc' -a "${1}" != "-c" ; then 
  291.   echo shar: Will not clobber existing file \"'Docs/message.doc'\"
  292. else
  293. echo shar: Extracting \"'Docs/message.doc'\" \(1921 characters\)
  294. sed "s/^X//" >'Docs/message.doc' <<'END_OF_FILE'
  295. X********************************************************************
  296. X
  297. X12/14/89 - 4 hour updates have started (we changed our minds).
  298. X    12, 4, 8 am/pm PST. There may also be unscheduled
  299. X    updates in case of anything unusual that may crop up
  300. X    (hopefully nothing).
  301. X
  302. X12/13/89 - Looks like we got major problems ironed out now.
  303. X    Production is fixed, planets now orbit stars by Keppler's
  304. X    Law, and a few other technical stuff to improve reliability.
  305. X    You can go ahead and enroll again. 
  306. X
  307. X    Also, if you have never played before, when the program
  308. X    asks you for your password, type the password by which
  309. X    you expect to be referred to of by GB. This *is* your
  310. X    password. Please do not enroll more than once, we have a
  311. X    limited number of openings.
  312. X
  313. X12/12/89 - WELL I LOST THE DATA BASE!! (accidentally used 'rm' 
  314. X    instead of 'cp' when I was trying to back it up. GRR!!!)
  315. X    Production was messed up anyway (unknown, some pointer is
  316. X    mislabeled). I want to make sure this is working tonight 
  317. X    before we start again. Sorry folks!
  318. X    -Garrett
  319. X
  320. X12/8/89 - Make sure that your combat ships ('d', 'C', 'B', 'D', '$')
  321. X    have resources on board to repair damage! (When these
  322. X    ships are built they begin with a 50% damage level).
  323. X    During battle, resources are required to be on board to repair
  324. X    ships. Also, make sure you load destruct on ships so your guns
  325. X    have ammo to fire. The game automatically loads fuel and crew to
  326. X    the max available in a sector. If you don't want that
  327. X    unload the crew with 'load' or 'unload' (same thing). Keep
  328. X    in mind that the efficiency of the ship depends on the
  329. X    amount of crew available (max crew is best!)
  330. X
  331. X12/5/89 - Check out the new options 'aliens', 'geography' and
  332. X    'inverse'. Do 'help map' to find out about what they
  333. X    do.
  334. X     --> I compiled these options into one command 'toggle',
  335. X         in anticipation of adding tons more later on.  -Rob
  336. X
  337. X********************************************************************
  338. END_OF_FILE
  339. if test 1921 -ne `wc -c <'Docs/message.doc'`; then
  340.     echo shar: \"'Docs/message.doc'\" unpacked with wrong size!
  341. fi
  342. # end of 'Docs/message.doc'
  343. fi
  344. if test -f 'Docs/news.doc' -a "${1}" != "-c" ; then 
  345.   echo shar: Will not clobber existing file \"'Docs/news.doc'\"
  346. else
  347. echo shar: Extracting \"'Docs/news.doc'\" \(2767 characters\)
  348. sed "s/^X//" >'Docs/news.doc' <<'END_OF_FILE'
  349. X*************************************************************
  350. X
  351. X10/24/89 ********** FIRE --- IMPORTANT *********************
  352. X
  353. X     In case you have been upset with the randomness in
  354. X     the fire routine, I tried to implement as change.
  355. X     I will do this in several stages. For the moment
  356. X     everything is completely deterministic, so look at
  357. X     the damages you do (and get) and see if you like them.
  358. X     Comments are appreciated. I will ad dthe random factors 
  359. X     later, I think they are neccessary but hard for
  360. X     debugging. To save you a lot of experimenting, here is how
  361. X     it works:
  362. X
  363. X     SHIPS to SHIPS:
  364. X               effstr = (your strenght) * FAC / (1+dist/DIST)
  365. X                currently FAC = 2, DIST = 300
  366. X
  367. X               damage = (effstr-3*armor)/2
  368. X
  369. X           Thats it !! Simple enough ??
  370. X
  371. X         PLANETS on PLANETS: (proposed!). There will be no
  372. X           more firing from planets on planets, if you want
  373. X           to attack a planet you should build ships.
  374. X           This will eliminate the common trick of
  375. X           wasing one sector, landing and letting the
  376. X           planet destroy itsself.
  377. X
  378. X         PLANETS on SHIPS: I think I will inclease the planet guns 
  379. X           back to 40 (or 60 ???), a planet should be able to 
  380. X           vaporize anything that attacks it. Note that 
  381. X           The damage on the ship will be calculated as above. 
  382. X           These two changes, for the first time, might make
  383. X           planetary defense logical. 
  384. X
  385. X         SHIPS on PLANETS: Same as before, except, you have to be 
  386. X           there to attack. Only ORBITING ships will be
  387. X           able to attack planets. This should disallow 
  388. X           somebody entering your system to wipe out your 
  389. X           planets instantaneously.
  390. X
  391. X
  392. X         
  393. X
  394. X6/29/89 - For those of you who haven't noticed, you can tell 'map'
  395. X    or 'orbit' to omit the names of ships, stars, or planets
  396. X    to get a look at objects that may be overprinting others
  397. X    so you can see them. do `help map' or `help orbit' to
  398. X    see how to do this.
  399. X
  400. X6/26/89 - When you order ships to go to other systems, do not 
  401. X    specify planet designations until your ships arrive at
  402. X    the star.
  403. X
  404. X6/23/89 - Just a reminder, don't build ships/objects with a `*'
  405. X    designation in front of them. They haven't been programmed
  406. X    and will just be a waste of resources.
  407. X
  408. X6/22/89 - You must load fuel and crew onto an atmospheric processor `A'
  409. X    to get them to work. See help in `build' for details.
  410. X
  411. X6/22/89 - Cargo ships, shuttle, stations, orbital assualt platforms,
  412. X    and habitats can be used to construct other ships.
  413. X
  414. X6/21/89 - Teletransporter devices '[' are now working.
  415. X
  416. X6/9/89  - We have installed the new version of Galactic Bloodshed 1.0(osu). 
  417. X    This has superior addressing and whatnot from the previous bug-ridden
  418. X    version. It has several new features. Good luck with this one.
  419. END_OF_FILE
  420. if test 2767 -ne `wc -c <'Docs/news.doc'`; then
  421.     echo shar: \"'Docs/news.doc'\" unpacked with wrong size!
  422. fi
  423. # end of 'Docs/news.doc'
  424. fi
  425. if test -f 'Docs/oldnews.doc' -a "${1}" != "-c" ; then 
  426.   echo shar: Will not clobber existing file \"'Docs/oldnews.doc'\"
  427. else
  428. echo shar: Extracting \"'Docs/oldnews.doc'\" \(2767 characters\)
  429. sed "s/^X//" >'Docs/oldnews.doc' <<'END_OF_FILE'
  430. X*************************************************************
  431. X
  432. X10/24/89 ********** FIRE --- IMPORTANT *********************
  433. X
  434. X     In case you have been upset with the randomness in
  435. X     the fire routine, I tried to implement as change.
  436. X     I will do this in several stages. For the moment
  437. X     everything is completely deterministic, so look at
  438. X     the damages you do (and get) and see if you like them.
  439. X     Comments are appreciated. I will ad dthe random factors 
  440. X     later, I think they are neccessary but hard for
  441. X     debugging. To save you a lot of experimenting, here is how
  442. X     it works:
  443. X
  444. X     SHIPS to SHIPS:
  445. X               effstr = (your strenght) * FAC / (1+dist/DIST)
  446. X                currently FAC = 2, DIST = 300
  447. X
  448. X               damage = (effstr-3*armor)/2
  449. X
  450. X           Thats it !! Simple enough ??
  451. X
  452. X         PLANETS on PLANETS: (proposed!). There will be no
  453. X           more firing from planets on planets, if you want
  454. X           to attack a planet you should build ships.
  455. X           This will eliminate the common trick of
  456. X           wasing one sector, landing and letting the
  457. X           planet destroy itsself.
  458. X
  459. X         PLANETS on SHIPS: I think I will inclease the planet guns 
  460. X           back to 40 (or 60 ???), a planet should be able to 
  461. X           vaporize anything that attacks it. Note that 
  462. X           The damage on the ship will be calculated as above. 
  463. X           These two changes, for the first time, might make
  464. X           planetary defense logical. 
  465. X
  466. X         SHIPS on PLANETS: Same as before, except, you have to be 
  467. X           there to attack. Only ORBITING ships will be
  468. X           able to attack planets. This should disallow 
  469. X           somebody entering your system to wipe out your 
  470. X           planets instantaneously.
  471. X
  472. X
  473. X         
  474. X
  475. X6/29/89 - For those of you who haven't noticed, you can tell 'map'
  476. X    or 'orbit' to omit the names of ships, stars, or planets
  477. X    to get a look at objects that may be overprinting others
  478. X    so you can see them. do `help map' or `help orbit' to
  479. X    see how to do this.
  480. X
  481. X6/26/89 - When you order ships to go to other systems, do not 
  482. X    specify planet designations until your ships arrive at
  483. X    the star.
  484. X
  485. X6/23/89 - Just a reminder, don't build ships/objects with a `*'
  486. X    designation in front of them. They haven't been programmed
  487. X    and will just be a waste of resources.
  488. X
  489. X6/22/89 - You must load fuel and crew onto an atmospheric processor `A'
  490. X    to get them to work. See help in `build' for details.
  491. X
  492. X6/22/89 - Cargo ships, shuttle, stations, orbital assualt platforms,
  493. X    and habitats can be used to construct other ships.
  494. X
  495. X6/21/89 - Teletransporter devices '[' are now working.
  496. X
  497. X6/9/89  - We have installed the new version of Galactic Bloodshed 1.0(osu). 
  498. X    This has superior addressing and whatnot from the previous bug-ridden
  499. X    version. It has several new features. Good luck with this one.
  500. END_OF_FILE
  501. if test 2767 -ne `wc -c <'Docs/oldnews.doc'`; then
  502.     echo shar: \"'Docs/oldnews.doc'\" unpacked with wrong size!
  503. fi
  504. # end of 'Docs/oldnews.doc'
  505. fi
  506. if test -f 'Docs/orbit.doc' -a "${1}" != "-c" ; then 
  507.   echo shar: Will not clobber existing file \"'Docs/orbit.doc'\"
  508. else
  509. echo shar: Extracting \"'Docs/orbit.doc'\" \(2156 characters\)
  510. sed "s/^X//" >'Docs/orbit.doc' <<'END_OF_FILE'
  511. X
  512. XORBIT            Galactic Bloodshed            ORBIT
  513. X
  514. X
  515. XNAME
  516. X  [0] orbit -- Graphic representation of objects in current scope
  517. X
  518. XSYNOPSIS
  519. X       orbit <[-n] [-S] [-p] [-s] [-ship/planet number]> <path>
  520. X
  521. XDESCRIPTION
  522. X
  523. X  Orbit gives a visual map of all stars, planets, and ships in the scope
  524. Xof ``path'' or the current scope if none is specified.  You cannot map an
  525. Xarea that has not been visited by one of your ships.
  526. X
  527. X  If ``path'' is the root, ``orbit'' will show all the stars in the game,
  528. Xand all ships travelling in interstellar space that belong to the player.
  529. X
  530. X  If ``path'' is a star, orbit will display the solar system there
  531. Xwith its star in the center and orbiting planets around it, plus all ships
  532. Xthat are the player's (or can be detected).
  533. X
  534. X  If ``path'' is a planet orbit will display that planet and orbiting
  535. Xships.
  536. X
  537. X  If ``path'' is in the form ``#shipnum'' orbit will display a map of 
  538. Xwhichever system or planet the ship is at.
  539. X
  540. X  If no path has been specified, the current scope is used, and display will
  541. Xbe centered around the current ``lastx,lasty'' coordinates.  These coordinates
  542. Xrepresent the x,y location of the last scope the player was in.  For instance,
  543. Xif a player types the following:
  544. X
  545. X [xx] / >cs #5/..
  546. X [yy] / Sol / Sol-III >orbit
  547. X
  548. X  The orbit display will be centered around the location of ship #5.
  549. X
  550. X  When no path is specified, the zoom factor comes into play as well.  Display
  551. Xwill appear larger or smaller according to the zoom factor (1.0 being normal).
  552. XIf there is a specified path argument to orbit, zoom and last coordinates are
  553. Xnot dealt with.  (It is as if they are 0,0 and 1.0, respectively.)
  554. X
  555. X
  556. X  OPTIONS
  557. X
  558. X  when invoking ``orbit'' the options given (except for ``-(number)'') can be 
  559. Xeither in the form "-pSs" or spread out as in "-p -S -s -3".
  560. X
  561. X
  562. X  -p : If this option is set, ``orbit'' will not display planet names.
  563. X
  564. X  -S : Do not display star names.
  565. X
  566. X  -s : Do not display ships.
  567. X
  568. X  -(number) : Do not display that #'d ship or planet (should it obstruct
  569. X        the view of another object).  Stars or planets are numbered
  570. X        sequentially from 1, while ships can be referenced by their
  571. X        ship number.
  572. X
  573. X
  574. XSEE ALSO
  575. X  map, cs, scope, zoom
  576. X
  577. END_OF_FILE
  578. if test 2156 -ne `wc -c <'Docs/orbit.doc'`; then
  579.     echo shar: \"'Docs/orbit.doc'\" unpacked with wrong size!
  580. fi
  581. # end of 'Docs/orbit.doc'
  582. fi
  583. if test -f 'Docs/survey.doc' -a "${1}" != "-c" ; then 
  584.   echo shar: Will not clobber existing file \"'Docs/survey.doc'\"
  585. else
  586. echo shar: Extracting \"'Docs/survey.doc'\" \(2504 characters\)
  587. sed "s/^X//" >'Docs/survey.doc' <<'END_OF_FILE'
  588. XSURVEY            Galactic Bloodshed            SURVEY
  589. X
  590. X
  591. XNAME
  592. X  [0] survey -- more detailed survey of planet, sector, ship, star
  593. X
  594. XSYNOPSIS
  595. X    survey <xlow:xhi,ylow:yhi or x,y>
  596. X
  597. XDESCRIPTION
  598. X  survey gives a different report depending on what scope it is used on.
  599. XThe possible scopes are ship, planet, and star.
  600. X
  601. XCensus on sector
  602. X
  603. X   x,y des eff mob frt res popn ^popn
  604. X   5,7  x   20  50  45  25  80   196
  605. X
  606. X  x,y: map coordinates on sector
  607. X  des: designation of sector (land, water, etc)
  608. X  eff: efficiency (%age it is built up) of the sector
  609. X  mob: % mobilization of the citizens in that sector
  610. X  frt: fertility of the sector (supports people)
  611. X  res: resource deposits in the sector
  612. X  popn: population of the sector
  613. X  ^popn: maximum population the sector can support
  614. X
  615. XCensus on planet
  616. X
  617. X   gravity   x,y absolute     x,y relative to Sol
  618. X    1.00     -24222,5424           -324,755
  619. X
  620. X  gravity: gravity of the planet (relative to Earth normal)
  621. X  x,y absolute: coordinates relative to the Center of the Universe
  622. X  x,y relative..: coordinates relative to the planet's primary
  623. X
  624. X      ======== planetary conditions: ========
  625. X  Gives the atmospheric concentrations of certain key elements in the
  626. X    planet's atmosphere: Oxygen, CO2, Methane, Hydrogen, Nitrogen, Helium,
  627. X    Sulfur, surface temperature, normal temperature (without artificial
  628. X    influencing factors like space mirrors), and 'Other'.  The 'Total 
  629. X    planetary compatibility' is the difference between the weighted sum 
  630. X    of each of these characteristics and the preferences of the player 
  631. X    (expressed in parentheses after each characteristic).
  632. X
  633. X  fuel_stock  resource_stock dest_pot.   popltn    ^popltn
  634. X      173             92       101       1158       2901
  635. X
  636. X  x,y: the x,y coordinates of the planet relative to its star
  637. X  fuel_stock: fuel the player has managed to stockpile on the planet
  638. X  resource_stock: stockpiled resources on the planet
  639. X  dest_pot: stockpiled destructive potential on the planet (weapons)
  640. X  popltn: total population of living beings
  641. X  ^popltn: maximum number of living beings the planet can support
  642. X    (inhabited sectors only)
  643. X
  644. XCensus on star
  645. X
  646. X  Locn: x,y coordinates of the star from the Center of the Universe
  647. X  gravity: gravitational influence
  648. X  stability: Stability of the star.  As stability approaches 100, the star
  649. X    will become more and more unstable.  The player must have a technology
  650. X    of 3 or more to determine the stability.
  651. X
  652. X
  653. XCensus on ship #n
  654. X
  655. X   Same as the command 'ship #n'
  656. X
  657. XSEE ALSO
  658. X   ship, report, map, weapons, mobilize
  659. END_OF_FILE
  660. if test 2504 -ne `wc -c <'Docs/survey.doc'`; then
  661.     echo shar: \"'Docs/survey.doc'\" unpacked with wrong size!
  662. fi
  663. # end of 'Docs/survey.doc'
  664. fi
  665. if test -f 'client/orbit.c' -a "${1}" != "-c" ; then 
  666.   echo shar: Will not clobber existing file \"'client/orbit.c'\"
  667. else
  668. echo shar: Extracting \"'client/orbit.c'\" \(2728 characters\)
  669. sed "s/^X//" >'client/orbit.c' <<'END_OF_FILE'
  670. X/*
  671. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky,
  672. X * smq@ucscb.ucsc.edu 
  673. X *
  674. X * orbit.c -- display orbits of planets (graphic representation) 
  675. X *
  676. X * OPTIONS
  677. X * -p : If this option is set, ``orbit'' will not display planet names. 
  678. X *
  679. X * -S : Do not display star names. 
  680. X *
  681. X * -s : Do not display ships. 
  682. X *
  683. X * -(number) : Do not display that #'d ship or planet (in case it obstructs
  684. X * the view of another object) 
  685. X */
  686. X
  687. X#include "GB_copyright.h"
  688. X#define NAMESIZE 18
  689. X
  690. X#define SCALE 100.0
  691. X#define S_X  (stdscr->_maxx - NAMESIZE)
  692. X#define S_Y  (stdscr->_maxy - 1)
  693. X#define Midx (0.5*(S_X - NAMESIZE)/SCALE)
  694. X#define Midy (0.5*S_Y /SCALE)
  695. X
  696. X#include <curses.h>
  697. X#include <stdio.h>
  698. X#include "arrays.h"
  699. X#include "client.h"
  700. Xextern char    *index(), *malloc();
  701. Xextern hugestr    current_output;
  702. Xextern int    have_inv;
  703. X
  704. Xfloat           Lastx, Lasty, Zoom;
  705. X
  706. Xplot_orbit(t)
  707. X    char           *t;
  708. X{
  709. X    int             x, y, array;
  710. X    int             stand1, stand2;
  711. X    char           *u, *v;
  712. X    char            temp[1024], symbol;
  713. X    int        more_data = 1;
  714. X    string        blob;
  715. X
  716. X
  717. X    clear();
  718. X
  719. X    u = t + 1;
  720. X    while (more_data) {
  721. X        while ((v = index(u, ';')) != NULL) {
  722. X        *v = 0;
  723. X        sscanf(u, "%d %d %d %d %1s %d %s", &stand1, &x, &y, &array,
  724. X               &symbol, &stand2, temp);
  725. X        x = (int) x * Midx;
  726. X        y = (int) y * Midy;
  727. X        if (x <= S_X && y <= S_Y) {
  728. X
  729. X            if (symbol == 'm') {    /* space mirror */
  730. X                DispArray(x, y, 9, 5, Mirror[array], 1.0);
  731. X            } else if (symbol == '*' && array > 0) {    /* nova */
  732. X                DispArray(x, y, 11, 7, Novae[array - 1], 1.0);
  733. X            }
  734. X            if (stand1 * have_inv)
  735. X                standout();
  736. X            mvaddch(y, x, symbol);
  737. X            if (stand1 * have_inv)
  738. X                standend();
  739. X            if (symbol == '@' || symbol == '*') {
  740. X                addstr(" ");
  741. X            }
  742. X            if (stand2 * have_inv)
  743. X                standout();
  744. X            addstr(temp);
  745. X            if (stand2 * have_inv)
  746. X                standend();
  747. X        }
  748. X        u = v + 1;
  749. X        }
  750. X
  751. X        move(S_Y - 1, 0);
  752. X        if (strlen(u) == 0) {
  753. X        refresh();
  754. X        return;
  755. X        }
  756. X        if (index(u, '\n') != NULL) {
  757. X        print_with_wrap(u);
  758. X        more_data = 0;
  759. X        } else {
  760. X        receive(blob);
  761. X        strcpy(current_output, u);
  762. X        strcat(current_output, blob);
  763. X        u = current_output;
  764. X        }
  765. X    }
  766. X
  767. X    refresh();
  768. X    return;
  769. X}
  770. X
  771. X/*
  772. X * display array on screen.  at the moment magnification is not implemented. 
  773. X */
  774. XDispArray(x, y, maxx, maxy, array, mag)
  775. X    int             x, y;
  776. X    int             maxx, maxy;
  777. X    char           *array[];
  778. X    float           mag;
  779. X{
  780. X    register int    x2, y2, curx, cury;
  781. X
  782. X    for (cury = y - maxy / 2, y2 = 0; y2 < maxy; cury++) {
  783. X        if (cury >= 0 && cury <= S_Y) {
  784. X            move(cury, curx = x - maxx / 2);
  785. X            for (x2 = 0; x2 < maxx; curx++) {
  786. X                if (curx >= 0 && curx <= S_X)
  787. X                    if (inch() == ' ')
  788. X                        addch(array[y2][x2]);
  789. X                    else
  790. X                        move(cury, curx);
  791. X                        /* one to right */
  792. X                x2++;
  793. X            }
  794. X        }
  795. X        y2++;
  796. X    }
  797. X
  798. X}
  799. END_OF_FILE
  800. if test 2728 -ne `wc -c <'client/orbit.c'`; then
  801.     echo shar: \"'client/orbit.c'\" unpacked with wrong size!
  802. fi
  803. # end of 'client/orbit.c'
  804. fi
  805. if test -f 'server/autoreport.c' -a "${1}" != "-c" ; then 
  806.   echo shar: Will not clobber existing file \"'server/autoreport.c'\"
  807. else
  808. echo shar: Extracting \"'server/autoreport.c'\" \(2211 characters\)
  809. sed "s/^X//" >'server/autoreport.c' <<'END_OF_FILE'
  810. X/*
  811. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  812. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.c.
  813. X * Restrictions in GB_copyright.h.c.
  814. X * autoreport.c -- tell server to generate a report for each planet
  815. X */
  816. X
  817. X#include "GB_copyright.h"
  818. X#define EXTERN extern
  819. X#include "vars.h"
  820. X#include "ships.h"
  821. X#include "buffers.h"
  822. X
  823. Xautoreport(Playernum,APcount, argn,args)
  824. Xint Playernum;
  825. Xint APcount;
  826. Xint argn;
  827. Xchar args[MAXARGS][COMMANDSIZE];
  828. X{
  829. Xplanettype *p;
  830. Xplacetype place;
  831. Xint autoreport_pdata,autoreport_sectdata;
  832. X
  833. Xif (argn==1) {   /* no args */
  834. X if (Dir[Playernum-1].level==LEVEL_PLAN) {
  835. X  openpdata(&autoreport_pdata);
  836. X  getplanet(autoreport_pdata,&p,
  837. X    Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  838. X  if (p->info[Playernum-1].autorep)
  839. X    p->info[Playernum-1].autorep = 0;
  840. X  else
  841. X    p->info[Playernum-1].autorep = TELEG_MAX_AUTO;
  842. X
  843. X  putplanet(autoreport_pdata, p, 
  844. X    Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  845. X  close_file(autoreport_pdata);
  846. X
  847. X  sprintf(buf,"Autoreport on %s has been %s.\n",
  848. X    Stars[Dir[Playernum-1].snum]->pnames[Dir[Playernum-1].pnum],
  849. X    p->info[Playernum-1].autorep ? "set" : "unset");
  850. X      notify(Playernum, buf);
  851. X
  852. Xfree(p);
  853. X } else {
  854. X      sprintf(buf,"Scope must be a planet or ship.\n");
  855. X     notify(Playernum, buf);
  856. X      return(1);
  857. X       }
  858. X} else if (argn==2) {     /* argn==2, place specified */
  859. X  place = Getplace(Playernum,args[1], 0);
  860. X  if (place.level==LEVEL_PLAN) {
  861. X     openpdata(&autoreport_pdata);
  862. X     getplanet(autoreport_pdata,&p,
  863. X    Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  864. X
  865. X     sprintf(buf,"Autoreport on %s has been %s.\n",
  866. X      Stars[Dir[Playernum-1].snum]->pnames[Dir[Playernum-1].pnum],
  867. X      p->info[Playernum-1].autorep ? "set" : "unset");
  868. X    notify(Playernum, buf);
  869. X
  870. X     p->info[Playernum-1].autorep = !p->info[Playernum-1].autorep;
  871. X     putplanet(autoreport_pdata, p,
  872. X        Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  873. X     close_file(autoreport_pdata);
  874. X
  875. X     free(p);
  876. X } else {
  877. X      sprintf(buf,"Scope must be a planet or ship.\n");
  878. X    notify(Playernum, buf);
  879. X      return(1);
  880. X       }
  881. X } else if (argn>2) {
  882. X     sprintf(buf,"Autoreport: error in args.\n");
  883. X    notify(Playernum, buf);
  884. X    return(1);
  885. X   }
  886. X
  887. X}
  888. END_OF_FILE
  889. if test 2211 -ne `wc -c <'server/autoreport.c'`; then
  890.     echo shar: \"'server/autoreport.c'\" unpacked with wrong size!
  891. fi
  892. # end of 'server/autoreport.c'
  893. fi
  894. if test -f 'server/capitol.c' -a "${1}" != "-c" ; then 
  895.   echo shar: Will not clobber existing file \"'server/capitol.c'\"
  896. else
  897. echo shar: Extracting \"'server/capitol.c'\" \(1824 characters\)
  898. sed "s/^X//" >'server/capitol.c' <<'END_OF_FILE'
  899. X/*
  900. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  901. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  902. X * Restrictions in GB_copyright.h.
  903. X *
  904. X * capitol.c -- designate a capitol
  905. X */
  906. X
  907. X#include "GB_copyright.h"
  908. X#define EXTERN extern
  909. X#include "vars.h"
  910. X#include "ships.h"
  911. X#include "races.h"
  912. X#include "buffers.h"
  913. X#include <signal.h>
  914. X
  915. Xint capitol_racedata;
  916. X
  917. Xcapitol(Playernum,APcount, argn,args)
  918. Xint Playernum;
  919. Xint APcount;
  920. Xint argn;
  921. Xchar args[MAXARGS][COMMANDSIZE];
  922. X{
  923. Xint shipno,stat;
  924. Xint shdata;
  925. Xshiptype *s;
  926. X
  927. Xfree(Race);
  928. Xopenracedata(&capitol_racedata);
  929. Xgetrace(capitol_racedata, &Race, Playernum);
  930. Xclose_file(capitol_racedata);
  931. X
  932. X  if (argn!=2) {
  933. X
  934. X     shipno = Race->Gov_ship;
  935. X
  936. X  } else {
  937. X
  938. X     shipno = atoi(args[1]+(args[1][0]=='#'));
  939. X
  940. X     if (Dir[Playernum-1].level==LEVEL_UNIV) {
  941. X     if (!enufAP(Playernum,Sdata.AP[Playernum-1],APcount))
  942. X        return;
  943. X     } else {
  944. X     if (!enufAP(Playernum,Stars[Dir[Playernum-1].snum]->AP[Playernum-1],APcount))
  945. X        return;
  946. X     }
  947. X  }
  948. X
  949. Xif(shipno <= 0) {
  950. X    notify(Playernum, "Change the capitol to be what ship?\n");
  951. X    return;
  952. X    }
  953. X
  954. X  openshdata(&shdata);
  955. X  stat = getship(shdata, &s, shipno);
  956. X  close_file(shdata);
  957. X
  958. X  if (argn==2) {
  959. X    if (!stat || testship(Playernum,s, shipno))
  960. X    return;
  961. X
  962. X    if (s->type!=OTYPE_GOV) {
  963. X    sprintf(buf,"That ship is not a %s.\n",Shipnames[OTYPE_GOV]);
  964. X    notify(Playernum, buf);
  965. X    return;
  966. X    }
  967. X
  968. X    if (Dir[Playernum-1].level==LEVEL_UNIV)
  969. X      deductAPs(Playernum, APcount, 0, 1);
  970. X    else
  971. X      deductAPs(Playernum, APcount, Dir[Playernum-1].snum, 0);
  972. X
  973. X    Race->Gov_ship = shipno;
  974. Xopenracedata(&capitol_racedata);
  975. X    putrace(capitol_racedata, Race);
  976. Xclose_file(capitol_racedata);
  977. X
  978. X  }
  979. X  sprintf(buf,"Efficiency of governmental center: %.0f%%.\n", 
  980. X    ((float)s->popn/Max_crew(s)) *
  981. X    (100 - (float)s->damage) );
  982. X  notify(Playernum, buf);
  983. X
  984. X  free(s);
  985. X
  986. X}
  987. END_OF_FILE
  988. if test 1824 -ne `wc -c <'server/capitol.c'`; then
  989.     echo shar: \"'server/capitol.c'\" unpacked with wrong size!
  990. fi
  991. # end of 'server/capitol.c'
  992. fi
  993. if test -f 'server/daemon.c' -a "${1}" != "-c" ; then 
  994.   echo shar: Will not clobber existing file \"'server/daemon.c'\"
  995. else
  996. echo shar: Extracting \"'server/daemon.c'\" \(1853 characters\)
  997. sed "s/^X//" >'server/daemon.c' <<'END_OF_FILE'
  998. X/*
  999. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1000. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1001. X * Restrictions in GB_copyright.h.
  1002. X * daemon.c -- sleep for awhile, then do a turn
  1003. X */
  1004. X
  1005. X#include "GB_copyright.h"
  1006. X#include "config.h"
  1007. X#include "tweakables.h"
  1008. X#include "files.h"
  1009. X#include <stdio.h>
  1010. X#include <signal.h>
  1011. X#include <time.h>
  1012. X#include <sys/types.h>
  1013. X#include <sys/timeb.h>
  1014. X#include <sys/file.h>
  1015. X#include <sys/ioctl.h>
  1016. X
  1017. Xmain(argc,argv)
  1018. Xint argc;
  1019. Xchar *argv[];
  1020. X{
  1021. X struct tm *t;
  1022. X long clk;
  1023. X int updtime,exstat,turn=0,update=0,fd2;
  1024. X FILE *fd;
  1025. Xchar buf[128];
  1026. X
  1027. X if (fork()) exit();        /* detach from shell */
  1028. X
  1029. X sigblock(SIGHUP|SIGQUIT);  /* ignore signal from owner logging out */
  1030. X
  1031. X
  1032. X  fd2 = open("/dev/tty", O_RDWR);    /* disassociate from tty */
  1033. X  ioctl(fd2, TIOCNOTTY, 0);
  1034. X  close(fd2);
  1035. X
  1036. X  if (argc>1)
  1037. X    updtime = atoi(argv[1]);
  1038. X  else
  1039. X    updtime = DEFAULT_UPDATE_TIME;
  1040. X
  1041. X  /* initialize the data file to feed telnet */
  1042. X  if ((fd = fopen(DAEMONFL, "w")) == NULL)
  1043. X    perror("GB_daemon open of daemon.dat failed");
  1044. X  else
  1045. X    fprintf(fd, "%s\n%s\n", DAEMON_PASSWORD, QUIT_COMMAND);
  1046. X  fclose(fd);
  1047. X
  1048. X while (1) {
  1049. X
  1050. X   clk = time(0);
  1051. X   t = localtime(&clk);
  1052. X
  1053. X   printf("day %d,hour %d,min %d,sec %d\n",
  1054. X        t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec);
  1055. X
  1056. X   if ( (t->tm_hour % updtime)==0 && update!=t->tm_hour ) {
  1057. X       update = t->tm_hour;
  1058. X    printf("Requesting update\n");
  1059. X    /* this will trigger the update */
  1060. X    /*
  1061. X    exstat = system("telnet pooh 2010 < daemon.dat");
  1062. X     */
  1063. X    sprintf(buf,"telnet %s %d < %s", GB_HOST, GB_PORT, DAEMONFL);
  1064. X    exstat = system(buf);
  1065. X
  1066. X    fd = fopen(PROFDATAFL, "a");
  1067. X       clk = time(0);
  1068. X       t = localtime(&clk);
  1069. X    fprintf(fd,"turn %d @ day %d,hour %d,min %d,sec %d, time=%d secs, exit %d\n",
  1070. X        turn++, t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec, 
  1071. X        t->tm_min * 60 + t->tm_sec, exstat);
  1072. X    fclose(fd);
  1073. X   } else 
  1074. X    sleep(600);
  1075. X }
  1076. X
  1077. X}
  1078. END_OF_FILE
  1079. if test 1853 -ne `wc -c <'server/daemon.c'`; then
  1080.     echo shar: \"'server/daemon.c'\" unpacked with wrong size!
  1081. fi
  1082. # end of 'server/daemon.c'
  1083. fi
  1084. if test -f 'server/examine.c' -a "${1}" != "-c" ; then 
  1085.   echo shar: Will not clobber existing file \"'server/examine.c'\"
  1086. else
  1087. echo shar: Extracting \"'server/examine.c'\" \(2114 characters\)
  1088. sed "s/^X//" >'server/examine.c' <<'END_OF_FILE'
  1089. X/*
  1090. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1091. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1092. X * Restrictions in GB_copyright.h.
  1093. X *  examine -- check out an object
  1094. X */
  1095. X
  1096. X#include "GB_copyright.h"
  1097. X#define EXTERN extern
  1098. X#include "vars.h"
  1099. X#include "ships.h"
  1100. X#include "buffers.h"
  1101. Xextern int Shipdata[NUMSTYPES][NUMABILS];
  1102. Xextern char *Shipnames[];
  1103. X
  1104. Xexamine(Playernum,APcount, argn,args)
  1105. Xint Playernum;
  1106. Xint APcount;
  1107. Xint argn;
  1108. Xchar args[MAXARGS][COMMANDSIZE];
  1109. X{
  1110. X shiptype *ship;
  1111. X int c,t,shdata,shipno;
  1112. X FILE *fd;
  1113. Xchar ch, temp[128];
  1114. X
  1115. X        sscanf(args[1] + ((*args[1]=='#') ? 1 : 0),"%d",&shipno);
  1116. X
  1117. X    openshdata(&shdata);
  1118. X    if (!getship(shdata,&ship,shipno)) {
  1119. X    close_file(shdata);
  1120. X    return;
  1121. X    }
  1122. X close_file(shdata);
  1123. X    if (!ship->is_alive) {
  1124. X    sprintf(buf,"that ship is dead.\n");
  1125. X        notify(Playernum, buf);
  1126. X    free(ship);
  1127. X    return;
  1128. X    }
  1129. X    if (ship->whatorbits==LEVEL_UNIV || isclr(Stars[ship->storbits]->inhabited, Playernum)) {
  1130. X    sprintf(buf,"That ship it not visible to you.\n");
  1131. X        notify(Playernum, buf);
  1132. X    return;
  1133. X    }
  1134. X
  1135. X    if ((fd=fopen(EXAM_FL, "r"))==NULL) {
  1136. X    perror(EXAM_FL);
  1137. X    return;
  1138. X    }
  1139. X
  1140. X   /* look through ship data file */
  1141. X    for (t=0; t<=ship->type; t++)
  1142. X       while (fgetc(fd) != '~') ;
  1143. X    
  1144. X             /* look through ship data file */
  1145. X    sprintf(buf, "\n");
  1146. X            /* give report */
  1147. X              while ((ch=fgetc(fd)) != '~') {
  1148. X        sprintf(temp, "%c", ch);
  1149. X        strcat(buf, temp);
  1150. X        }
  1151. X    notify(Playernum, buf);
  1152. X              fclose(fd) ;
  1153. X
  1154. X    if (!ship->is_examined) {
  1155. X     if (ship->whatorbits==LEVEL_UNIV)
  1156. X         deductAPs(Playernum,APcount, 0, 1);    /* ded from sdata */
  1157. X     else
  1158. X         deductAPs(Playernum,APcount, ship->storbits, 0);
  1159. X
  1160. X     ship->is_examined = 1;
  1161. X     openshdata(&shdata);
  1162. X     putship(shdata,ship,shipno);
  1163. X    close_file(shdata);
  1164. X
  1165. X    }
  1166. X
  1167. X    if (has_switch(ship)) {
  1168. X    sprintf(buf,"This device has an on/off switch that can be set with order.\n");
  1169. X        notify(Playernum, buf);
  1170. X        }
  1171. X    if (!ship->active) {
  1172. X    sprintf(buf,"This device has been irradiated;\nit's crew is dying and it cannot move for the time being.\n");
  1173. X        notify(Playernum, buf);
  1174. X    }
  1175. X
  1176. X    free(ship);
  1177. X
  1178. X}
  1179. END_OF_FILE
  1180. if test 2114 -ne `wc -c <'server/examine.c'`; then
  1181.     echo shar: \"'server/examine.c'\" unpacked with wrong size!
  1182. fi
  1183. # end of 'server/examine.c'
  1184. fi
  1185. if test -f 'server/max.c' -a "${1}" != "-c" ; then 
  1186.   echo shar: Will not clobber existing file \"'server/max.c'\"
  1187. else
  1188. echo shar: Extracting \"'server/max.c'\" \(2305 characters\)
  1189. sed "s/^X//" >'server/max.c' <<'END_OF_FILE'
  1190. X/*
  1191. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1192. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1193. X * Restrictions in GB_copyright.h.
  1194. X *
  1195. X * maxsupport() -- return how many people one sector can support
  1196. X * Distmap() -- map-oriented distance that does not look square
  1197. X * compatibility() -- return how much race is compatible with planet
  1198. X * gravity() -- return gravity for planet
  1199. X * prin_ship_orbits() -- prints place ship orbits
  1200. X */
  1201. X
  1202. X#include "GB_copyright.h"
  1203. X#define EXTERN extern
  1204. X#include "vars.h"
  1205. X#include "races.h"
  1206. X#include "ships.h"
  1207. X#include <math.h>
  1208. X
  1209. X/* max this sector can support of specified race.
  1210. X */
  1211. Xint maxsupport(r,p,c,toxic)
  1212. Xreg racetype *r;
  1213. Xreg sectortype *p;
  1214. Xfloat c;    /* (compatibility of race sector) */
  1215. Xint toxic;
  1216. X{
  1217. Xint val;
  1218. Xfloat a,b;
  1219. Xa=FACTOR_FERT_SUPPORT * (log1p((double)1.*p->eff)  * log1p((double)p->fert)+1.0);
  1220. Xb=.01 * ((r==NULL) ? 0.0 : r->likes[p->des])
  1221. X    * (MAX(0.0, MIN(100.0, c+20.0*(r->number_sexes-2)))); 
  1222. X
  1223. X
  1224. Xval = (int)( a * b * .01 * (100.0 - (float)toxic) );
  1225. X
  1226. Xreturn val;
  1227. X}
  1228. X
  1229. X
  1230. X
  1231. Xint Distmap(x,y,x2,y2)
  1232. Xreg int x,y,x2,y2;
  1233. X{
  1234. X return( round_rand(fabs((double)x-x2) + fabs( (double)y-y2)*(RATIOXY*0.5) ) );
  1235. X}
  1236. X
  1237. X
  1238. Xfloat compatibility(planet, race)
  1239. Xreg planettype *planet;
  1240. Xreg racetype *race;
  1241. X{
  1242. X reg int i,add;
  1243. X float sum=1.0;
  1244. X
  1245. X    /* make an adjustment for planetary temperature */
  1246. X    add = 0.1*((float)planet->conditions[TEMP]-race->conditions[TEMP]);
  1247. X    sum *= 1.0 -(abs(add)/100.0);
  1248. X
  1249. X    /* step through and report compatibility of each planetary gas */
  1250. X  for (i=TEMP+1; i<=OTHER; i++) {
  1251. X    add = ((float)planet->conditions[i] - race->conditions[i]);
  1252. X    sum *= 1.0 - (abs((float)add)/100.0);
  1253. X  }
  1254. X  if(sum < 0.0) sum = 0.0;
  1255. X    sum *= 100.0 - planet->conditions[TOXIC];
  1256. X
  1257. X  return (sum);
  1258. X
  1259. X}
  1260. X
  1261. X
  1262. X
  1263. Xfloat gravity(p)
  1264. Xplanettype *p;
  1265. X{
  1266. X return (float)p->Maxx * p->Maxy * GRAV_FACTOR;
  1267. X}
  1268. X
  1269. X
  1270. X
  1271. Xchar Dispshiporbits_buf[PLACENAMESIZE+13];
  1272. X
  1273. Xchar *prin_ship_orbits(s)
  1274. Xshiptype *s;
  1275. X{
  1276. X
  1277. X  switch (s->whatorbits) {
  1278. X    case LEVEL_UNIV:
  1279. X        sprintf(Dispshiporbits_buf,"/(%.0f,%.0f)",s->xpos,s->ypos);
  1280. X        break;
  1281. X    case LEVEL_STAR:
  1282. X        sprintf(Dispshiporbits_buf,"/%s", Stars[s->storbits]->name);
  1283. X        break;
  1284. X    case LEVEL_PLAN:
  1285. X        sprintf(Dispshiporbits_buf,"/%s/%s", 
  1286. X            Stars[s->storbits]->name,
  1287. X            Stars[s->storbits]->pnames[s->pnumorbits]);
  1288. X        break;
  1289. X    default:
  1290. X        break;
  1291. X  }
  1292. X  return Dispshiporbits_buf;
  1293. X}
  1294. END_OF_FILE
  1295. if test 2305 -ne `wc -c <'server/max.c'`; then
  1296.     echo shar: \"'server/max.c'\" unpacked with wrong size!
  1297. fi
  1298. # end of 'server/max.c'
  1299. fi
  1300. if test -f 'server/mobiliz.c' -a "${1}" != "-c" ; then 
  1301.   echo shar: Will not clobber existing file \"'server/mobiliz.c'\"
  1302. else
  1303. echo shar: Extracting \"'server/mobiliz.c'\" \(1820 characters\)
  1304. sed "s/^X//" >'server/mobiliz.c' <<'END_OF_FILE'
  1305. X/*
  1306. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1307. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1308. X * Restrictions in GB_copyright.h.
  1309. X *
  1310. X * mobilize.c -- persuade people to build military stuff.
  1311. X *    Sectors that are mobilized produce Destructive Potential in
  1312. X *    proportion to the % they are mobilized.  they are also more
  1313. X *    damage-resistant.
  1314. X */
  1315. X
  1316. X#include "GB_copyright.h"
  1317. X#define EXTERN extern
  1318. X#include "vars.h"
  1319. X#include "buffers.h"
  1320. X#include <signal.h>
  1321. X#include <ctype.h>
  1322. Xint mobilize_sectdata,mobilize_pdata;
  1323. X
  1324. Xmobilize(Playernum,APcount, argn, args)
  1325. Xint Playernum;
  1326. Xint APcount, argn;
  1327. Xchar args[MAXARGS][COMMANDSIZE];
  1328. X{
  1329. Xint owned=0,x,y,sum_mob=0;
  1330. Xsectortype *s;
  1331. Xplanettype *p;
  1332. X
  1333. Xmobilize_pdata = mobilize_sectdata = NEUTRAL_FD;
  1334. X
  1335. Xif (Dir[Playernum-1].level!=LEVEL_PLAN) {
  1336. X    sprintf(buf,"scope must be a planet.\n");
  1337. X        notify(Playernum, buf);
  1338. X    return;
  1339. X}
  1340. Xif (!enufAP(Playernum,Stars[Dir[Playernum-1].snum]->AP[Playernum-1], APcount)) {
  1341. X    return;
  1342. X    }
  1343. X
  1344. X openpdata(&mobilize_pdata);
  1345. X getplanet(mobilize_pdata,&p,Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  1346. Xclose_file(mobilize_pdata);
  1347. X
  1348. X opensectdata(&mobilize_sectdata);
  1349. X getsmap(mobilize_sectdata,Smap,p);
  1350. X close_file(mobilize_sectdata);
  1351. X
  1352. Xif(argn < 2) {
  1353. X    sprintf(buf, "Current mobilization: %d    Quota: %d\n", 
  1354. X            p->info[Playernum-1].comread, p->info[Playernum-1].mob_set);
  1355. X    notify(Playernum, buf);
  1356. X        return;
  1357. X        }
  1358. X
  1359. X
  1360. X
  1361. X    sum_mob = atoi(args[1]);
  1362. X
  1363. X    if (sum_mob > 100 || sum_mob < 0) {
  1364. X        sprintf(buf,"Illegal value.\n");
  1365. X            notify(Playernum, buf);
  1366. X        return;
  1367. X    }
  1368. X
  1369. X
  1370. X    p->info[Playernum-1].mob_set = sum_mob;
  1371. Xopenpdata(&mobilize_pdata);
  1372. Xputplanet(mobilize_pdata,p,Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  1373. X     close_file(mobilize_pdata);
  1374. X
  1375. X    deductAPs(Playernum,APcount, Dir[Playernum-1].snum, 0);
  1376. X
  1377. X free(p);
  1378. X
  1379. X}
  1380. X
  1381. END_OF_FILE
  1382. if test 1820 -ne `wc -c <'server/mobiliz.c'`; then
  1383.     echo shar: \"'server/mobiliz.c'\" unpacked with wrong size!
  1384. fi
  1385. # end of 'server/mobiliz.c'
  1386. fi
  1387. if test -f 'server/more.c' -a "${1}" != "-c" ; then 
  1388.   echo shar: Will not clobber existing file \"'server/more.c'\"
  1389. else
  1390. echo shar: Extracting \"'server/more.c'\" \(1833 characters\)
  1391. sed "s/^X//" >'server/more.c' <<'END_OF_FILE'
  1392. X/* more program by therat@ucscb.ucsc.edu */
  1393. X
  1394. X#include <stdio.h>
  1395. X#include <sys/file.h>
  1396. X#include <sgtty.h>
  1397. X
  1398. X#define ZMORE 0
  1399. X
  1400. X
  1401. Xmain(argc, argv)
  1402. Xint argc;
  1403. Xchar **argv;
  1404. X{
  1405. X int c=1;
  1406. X
  1407. X    while (c < argc)
  1408. X        doc(argv[c++]);
  1409. X}
  1410. X
  1411. Xdoc(s)
  1412. Xchar *s;
  1413. X{
  1414. X    char filename[128], tmpfile[128];
  1415. X    int fd, pid;
  1416. X    long t;
  1417. X
  1418. X    sprintf(filename, "%s", s);
  1419. X    /* could stat the file here to make sure it's there */
  1420. X
  1421. X    time(&t);
  1422. X    sprintf(tmpfile, "/usr/tmp/#GBtrash%05d", (t >> 4) & 0x7fff);
  1423. X    fd = open(tmpfile, O_CREAT | O_WRONLY | O_TRUNC, 0600);
  1424. X    if (fd < 0) {
  1425. X        fprintf(stderr, "doc(): %s: ", filename);
  1426. X        perror("open failed");
  1427. X        return;
  1428. X    }
  1429. X
  1430. X    switch (pid = fork()) {
  1431. X        case -1 :
  1432. X            perror("doc(): fork for zcat failed");
  1433. X            break;
  1434. X
  1435. X        case 0 :
  1436. X            dup2(fd, 1);
  1437. X#            if (ZMORE)
  1438. X              execl("/usr/ucb/zcat", "zcat", filename, 0);
  1439. X              perror("doc(): execl for zcat failed");
  1440. X#            else
  1441. X              execl("/bin/cat", "cat", filename, 0);
  1442. X#            endif
  1443. X
  1444. X        default :
  1445. X            while (wait(0) != pid)
  1446. X                ;
  1447. X    }
  1448. X
  1449. X    close(fd);
  1450. X    page(tmpfile);
  1451. X    unlink(tmpfile);
  1452. X}
  1453. X
  1454. Xpage(file)
  1455. Xchar *file;
  1456. X{
  1457. X    char buf[4096];
  1458. X    FILE *fp;
  1459. X    int line;
  1460. X
  1461. X    fp = fopen(file, "r");
  1462. X    if (!fp) {
  1463. X        fprintf(stderr, "page(): %s: ", file);
  1464. X        perror("open failed");
  1465. X        return;
  1466. X    }
  1467. X
  1468. X    while (fgets(buf, sizeof(buf), fp)) {
  1469. X        ++line;
  1470. X        fputs(buf, stdout);
  1471. X        if (line == 23) {
  1472. X            char ch;
  1473. X
  1474. X            fputs(" -- more -- ", stdout);
  1475. X            fflush(stdout);
  1476. X            do
  1477. X                ch = get_a_char();
  1478. X            while (ch != ' ' && ch!='q');
  1479. X            fputs("\b\b\b\b\b\b\b\b\b\b\b\b            \b\b\b\b\b\b\b\b\b\b\b\b", stdout);
  1480. X            if (ch=='q') {
  1481. X                 fclose (fp);
  1482. X                return;
  1483. X            }
  1484. X            line = 0;
  1485. X        }
  1486. X    }
  1487. X    fclose(fp);
  1488. X}
  1489. X
  1490. Xget_a_char()
  1491. X{
  1492. X    struct sgttyb foo, bar;
  1493. X    char c;
  1494. X
  1495. X    ioctl(0, TIOCGETP, &foo);
  1496. X    bar = foo;
  1497. X    foo.sg_flags |= CBREAK;
  1498. X    foo.sg_flags &= ~ECHO;
  1499. X    ioctl(0, TIOCSETN, &foo);
  1500. X
  1501. X    c = getchar();
  1502. X/*     while (!read(0, &c, 1)) */
  1503. X/*         ; */
  1504. X
  1505. X
  1506. X    ioctl(0, TIOCSETN, &bar);
  1507. X
  1508. X    return c;
  1509. X}
  1510. END_OF_FILE
  1511. if test 1833 -ne `wc -c <'server/more.c'`; then
  1512.     echo shar: \"'server/more.c'\" unpacked with wrong size!
  1513. fi
  1514. # end of 'server/more.c'
  1515. fi
  1516. if test -f 'server/moveplanet.c' -a "${1}" != "-c" ; then 
  1517.   echo shar: Will not clobber existing file \"'server/moveplanet.c'\"
  1518. else
  1519. echo shar: Extracting \"'server/moveplanet.c'\" \(2104 characters\)
  1520. sed "s/^X//" >'server/moveplanet.c' <<'END_OF_FILE'
  1521. X/* 
  1522. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1523. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1524. X * Restrictions in GB_copyright.h.
  1525. X *
  1526. X * moveplanet.c -- move the planet in orbit around its star.
  1527. X */
  1528. X
  1529. X#include "GB_copyright.h"
  1530. X#define EXTERN extern
  1531. X#include "vars.h"
  1532. X#include "ships.h"
  1533. X#include "races.h"    /* (needed only for races in doturn.h */
  1534. X#include "doturn.h"
  1535. X#include <math.h>
  1536. X
  1537. X
  1538. Xmoveplanet(starnum, planet, planetnum)
  1539. Xint starnum;
  1540. Xplanettype *planet;
  1541. Xint planetnum;
  1542. X{
  1543. Xfloat dist;
  1544. Xfloat t,xadd,yadd,phase,period;
  1545. Xint sh;
  1546. Xreg int i;
  1547. Xshiptype *ship;
  1548. X
  1549. X/* return; */
  1550. X
  1551. X    StarsInhab[starnum] |= Stars[starnum]->inhabited;
  1552. X    Stars[starnum]->inhabited = 0;
  1553. X
  1554. X  if (planet->popn)
  1555. X    Stinfo[starnum][planetnum].inhab = 1;
  1556. X
  1557. X if (!StarsInhab[starnum])
  1558. X    return;        /* no one's explored the star yet */
  1559. X
  1560. X  dist = hypot((double)planet->ypos, (double)planet->xpos);
  1561. X
  1562. Xphase = atan2((double)planet->ypos, (double)planet->xpos);
  1563. Xperiod = dist * sqrt((double)dist /
  1564. X             (SYSTEMGRAVCONST * Stars[starnum]->gravity));
  1565. X      /* keppler's law */
  1566. X
  1567. X  xadd =  dist * cos((double)(-1./period+phase)) - planet->xpos;
  1568. X  yadd =  dist * sin((double)(-1./period+phase)) - planet->ypos; 
  1569. X         /* one update time unit - planets orbit counter-clockwise */
  1570. X
  1571. X/* printf("st %d pl %d xadd %g yadd %g \n", starnum, planetnum, xadd, yadd); 
  1572. Xprintf("(%s) \n",Stars[starnum]->name); */
  1573. X
  1574. X       /* adjust ships in orbit around the planet */
  1575. X
  1576. X  sh = planet->ships;
  1577. X
  1578. X  while (sh && sh<=Num_ships) {    /* just in case... */
  1579. X    ship=ships[sh];
  1580. X        /* don't do landed ships */
  1581. X       if (ship->is_alive && !(ship->is_docked && ship->whatdest==LEVEL_PLAN)) {
  1582. X        ship->xpos += xadd;
  1583. X        ship->ypos += yadd;
  1584. X       }
  1585. Xif(sh == ship->nextship)  /* shouldn't happen, but it did */
  1586. X    sh = 0;
  1587. Xelse
  1588. X    sh = ship->nextship;
  1589. X
  1590. X  }
  1591. X/*  printf("**** \n"); */
  1592. X
  1593. X  planet->xpos += xadd;
  1594. X  planet->ypos += yadd;
  1595. X
  1596. X/* well, maybe : */
  1597. X  if (planet->xpos>SYSTEMSIZE) planet->xpos *= .5;
  1598. X    else if (planet->xpos< -SYSTEMSIZE) planet->xpos *= .5;
  1599. X  if (planet->ypos>SYSTEMSIZE) planet->ypos *= .5;
  1600. X    else if (planet->ypos< -SYSTEMSIZE) planet->ypos *= .5;
  1601. X
  1602. X}
  1603. END_OF_FILE
  1604. if test 2104 -ne `wc -c <'server/moveplanet.c'`; then
  1605.     echo shar: \"'server/moveplanet.c'\" unpacked with wrong size!
  1606. fi
  1607. # end of 'server/moveplanet.c'
  1608. fi
  1609. if test -f 'server/races.h' -a "${1}" != "-c" ; then 
  1610.   echo shar: Will not clobber existing file \"'server/races.h'\"
  1611. else
  1612. echo shar: Extracting \"'server/races.h'\" \(2054 characters\)
  1613. sed "s/^X//" >'server/races.h' <<'END_OF_FILE'
  1614. X/*
  1615. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1616. X * smq@ucscb.ucsc.edu, mods by people in GB.c, enroll.dat.
  1617. X * Restrictions in GB.c.
  1618. X */
  1619. X
  1620. X
  1621. Xstruct race {
  1622. X    int Playernum;
  1623. X    char name[RNAMESIZE];
  1624. X    float tech;        /* technology */
  1625. X    float birthrate;
  1626. X    float overbirthrate;
  1627. X    percent fighters;
  1628. X    percent IQ;
  1629. X    percent number_sexes;
  1630. X    float mass;
  1631. X    float metabolism;
  1632. X    float adventurism;
  1633. X    short conditions[OTHER+1];    /* planetary conditions you like */
  1634. X    char deflevel;
  1635. X    char defsystem;
  1636. X    char defplanetnum;    /* current default */
  1637. X    char homelevel;
  1638. X    char homesystem;
  1639. X    char homeplanetnum;    /* home place */
  1640. X    float likes[DES_PLATED+1];        /* what territories they like */
  1641. X    char likesbest;
  1642. X    percent translate[MAXPLAYERS];    /* translation mod for each player */
  1643. X    percent captured_prisoners[MAXPLAYERS]; /* goes up with planetary contact */
  1644. X    unsigned int atwar;        /* war 32 bits*/
  1645. X    unsigned int allied;    /* allies 32 bits*/
  1646. X    unsigned short Gov_ship;
  1647. X    int double_digits;        /* options for 'toggle' */
  1648. X    int inverse;
  1649. X    int geography;
  1650. X    int autoload;
  1651. X    int C_C;            /* berserker control code */
  1652. X    short God;        /* whether or not the race has God status */
  1653. X    unsigned Thing : 1;            /* your race is like "The Thing" */
  1654. X};
  1655. X
  1656. Xstruct block {
  1657. X    int Playernum;
  1658. X    char name[RNAMESIZE];
  1659. X    unsigned int invite;
  1660. X    unsigned int pledge;
  1661. X    unsigned int atwar;
  1662. X    unsigned int allied;
  1663. X    unsigned VPs;
  1664. X};
  1665. X
  1666. Xstruct power_blocks {
  1667. X    char time[128];
  1668. X    unsigned members[MAXPLAYERS];
  1669. X    ul popn[MAXPLAYERS];    /* total population */
  1670. X    ul resource[MAXPLAYERS];    /* total resource in stock */
  1671. X    ul fuel[MAXPLAYERS];
  1672. X    ul destruct[MAXPLAYERS];    /* total dest in stock */
  1673. X    us ships_owned[MAXPLAYERS];    /* # of ships owned */
  1674. X    us planets_owned[MAXPLAYERS];
  1675. X    ul sectors_owned[MAXPLAYERS];
  1676. X    us VPs[MAXPLAYERS];
  1677. X};
  1678. X
  1679. Xtypedef struct race racetype;
  1680. Xtypedef struct block blocktype;
  1681. XEXTERN struct block Blocks[MAXPLAYERS];
  1682. XEXTERN struct power_blocks Power_blocks;
  1683. X
  1684. XEXTERN racetype *Race;
  1685. XEXTERN racetype *races[MAXPLAYERS];
  1686. END_OF_FILE
  1687. if test 2054 -ne `wc -c <'server/races.h'`; then
  1688.     echo shar: \"'server/races.h'\" unpacked with wrong size!
  1689. fi
  1690. # end of 'server/races.h'
  1691. fi
  1692. if test -f 'server/relation.c' -a "${1}" != "-c" ; then 
  1693.   echo shar: Will not clobber existing file \"'server/relation.c'\"
  1694. else
  1695. echo shar: Extracting \"'server/relation.c'\" \(2071 characters\)
  1696. sed "s/^X//" >'server/relation.c' <<'END_OF_FILE'
  1697. X/* 
  1698. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1699. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1700. X * Restrictions in GB_copyright.h.
  1701. X *
  1702. X * relation.c -- state relations among players 
  1703. X */
  1704. X
  1705. X#include "GB_copyright.h"
  1706. X#define EXTERN extern
  1707. X#include "vars.h"
  1708. X#include "races.h"
  1709. X#include "ships.h"
  1710. X#include "buffers.h"
  1711. X
  1712. Xextern char *Desnames[];
  1713. Xchar *allied();
  1714. Xint relation_racedata;
  1715. X
  1716. Xrelation(Playernum,APcount, argn, args)
  1717. Xint Playernum;
  1718. Xint APcount, argn;
  1719. Xchar args[MAXARGS][COMMANDSIZE];
  1720. X{
  1721. Xint numraces;
  1722. Xint p;
  1723. Xracetype *r;
  1724. X
  1725. Xfree(Race);
  1726. Xopenracedata(&relation_racedata);
  1727. Xgetrace(relation_racedata, &Race, Playernum);
  1728. X     numraces = Numraces();
  1729. X
  1730. X    sprintf(buf,"\n              Racial Relations Report for %s\n\n",Race->name);
  1731. X        notify(Playernum, buf);
  1732. X    sprintf(buf," #      know             Race name       Yours        Theirs \n");
  1733. X        notify(Playernum, buf);
  1734. X    sprintf(buf," -      ----             ---------       -----        ------ \n");
  1735. X        notify(Playernum, buf);
  1736. Xif(argn==1) {
  1737. Xfor (p=1; p<=numraces; p++)
  1738. X        if (p != Race->Playernum) {
  1739. X            getrace(relation_racedata, &r, p);
  1740. X            sprintf(buf,"%2d %s (%3d%%) %20.20s : %10s   %10s\n", p, 
  1741. X                  ((Race->God || Race->translate[p-1] > 30) && r->Thing) ? 
  1742. X                "Meso" : "    ", Race->translate[p-1], r->name,
  1743. X                allied(Race, p, 100, Race->God), 
  1744. X                    allied(r, Playernum,Race->translate[p-1], Race->God) );
  1745. X        notify(Playernum, buf);
  1746. X            free(r);
  1747. X            }
  1748. X        } else {
  1749. XGetPlayer(args[1], &p, &r);
  1750. Xif(p==-1) {
  1751. Xnotify(Playernum, "No such player.\n");
  1752. Xreturn;
  1753. X}
  1754. X            sprintf(buf,"%2d %s (%3d%%) %20.20s : %10s   %10s\n", p, 
  1755. X                  ((Race->God || Race->translate[p-1] > 30) && r->Thing) ? 
  1756. X                "Meso" : "    ", Race->translate[p-1], r->name,
  1757. X                allied(Race, p, 100, Race->God), 
  1758. X                    allied(r, Playernum,Race->translate[p-1], Race->God) );
  1759. X        notify(Playernum, buf);
  1760. X            free(r);
  1761. X}
  1762. Xclose_file(relation_racedata);
  1763. X
  1764. X
  1765. X}
  1766. X
  1767. X
  1768. X
  1769. Xchar *allied(r, p, q, God)
  1770. Xracetype *r;
  1771. Xint p,q,God;
  1772. X{
  1773. X     if (isset( r->atwar, p)) return "WAR";
  1774. X     else if (isset( r->allied, p)) return "ALLIED";
  1775. X     else return "neutral";
  1776. X}
  1777. X
  1778. X
  1779. X
  1780. X
  1781. END_OF_FILE
  1782. if test 2071 -ne `wc -c <'server/relation.c'`; then
  1783.     echo shar: \"'server/relation.c'\" unpacked with wrong size!
  1784. fi
  1785. # end of 'server/relation.c'
  1786. fi
  1787. if test -f 'server/tech.c' -a "${1}" != "-c" ; then 
  1788.   echo shar: Will not clobber existing file \"'server/tech.c'\"
  1789. else
  1790. echo shar: Extracting \"'server/tech.c'\" \(1761 characters\)
  1791. sed "s/^X//" >'server/tech.c' <<'END_OF_FILE'
  1792. X/*
  1793. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1794. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1795. X * Restrictions in GB_copyright.h.
  1796. X *
  1797. X * tech.c -- increase investment in technological development.
  1798. X */
  1799. X
  1800. X#include "GB_copyright.h"
  1801. X#define EXTERN extern
  1802. X#include "vars.h"
  1803. X#include "races.h"
  1804. X#include "buffers.h"
  1805. X#include <math.h>
  1806. X#include <signal.h>
  1807. X#include <ctype.h>
  1808. Xint tech_pdata;
  1809. X
  1810. Xtechnology(Playernum,APcount, argn, args)
  1811. Xint Playernum;
  1812. Xint APcount, argn;
  1813. Xchar args[MAXARGS][COMMANDSIZE];
  1814. X{
  1815. Xint c,invest;
  1816. Xplanettype *p;
  1817. X
  1818. Xtech_pdata = NEUTRAL_FD;
  1819. X
  1820. Xif (Dir[Playernum-1].level != LEVEL_PLAN) {
  1821. X    sprintf(buf,"scope must be a planet (%d).\n", Dir[Playernum-1].level);
  1822. X        notify(Playernum, buf);
  1823. X    return;
  1824. X}
  1825. Xif (!enufAP(Playernum,Stars[Dir[Playernum-1].snum]->AP[Playernum-1], APcount)) {
  1826. X    return;
  1827. X    }
  1828. X
  1829. X openpdata(&tech_pdata);
  1830. X getplanet(tech_pdata,&p,Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  1831. Xclose_file(tech_pdata);
  1832. X
  1833. Xif(argn < 2) {
  1834. X    sprintf(buf, "Current investment : %d    Technology production/update: %.2f\n",
  1835. X        p->info[Playernum-1].tech_invest,
  1836. X        log10(1.0+(double)p->info[Playernum-1].tech_invest)*TECH_INVEST);
  1837. X    notify(Playernum, buf);
  1838. X    return;
  1839. X        }
  1840. X
  1841. X     invest=atoi(args[1]);
  1842. X
  1843. X    if (invest > 100 || invest < 0) {
  1844. X        sprintf(buf,"Illegal value.\n");
  1845. X            notify(Playernum, buf);
  1846. X        return;
  1847. X    }
  1848. X    p->info[Playernum-1].tech_invest = invest;
  1849. Xopenpdata(&tech_pdata);
  1850. Xputplanet(tech_pdata,p,Stars[Dir[Playernum-1].snum]->planetpos[Dir[Playernum-1].pnum]);
  1851. X close_file(tech_pdata);
  1852. X
  1853. X    deductAPs(Playernum,APcount, Dir[Playernum-1].snum, 0);
  1854. X
  1855. X    sprintf(buf,"   New (ideal) tech production: %.2f (this planet)\n", 
  1856. X        log10(1.0+(double)p->info[Playernum-1].tech_invest) * TECH_INVEST );
  1857. X    notify(Playernum, buf);
  1858. X
  1859. X
  1860. X free(p);
  1861. X
  1862. X}
  1863. X
  1864. END_OF_FILE
  1865. if test 1761 -ne `wc -c <'server/tech.c'`; then
  1866.     echo shar: \"'server/tech.c'\" unpacked with wrong size!
  1867. fi
  1868. # end of 'server/tech.c'
  1869. fi
  1870. if test -f 'server/toggle.c' -a "${1}" != "-c" ; then 
  1871.   echo shar: Will not clobber existing file \"'server/toggle.c'\"
  1872. else
  1873. echo shar: Extracting \"'server/toggle.c'\" \(1738 characters\)
  1874. sed "s/^X//" >'server/toggle.c' <<'END_OF_FILE'
  1875. X/*
  1876. X * Galactic Bloodshed, copyright (c) 1989 by Robert P. Chansky, 
  1877. X * smq@ucscb.ucsc.edu, mods by people in GB_copyright.h.
  1878. X * Restrictions in GB_copyright.h.
  1879. X *
  1880. X *  toggle.c -- toggles some options
  1881. X */
  1882. X
  1883. X#include "GB_copyright.h"
  1884. X#define EXTERN extern
  1885. X#include "vars.h"
  1886. X#include "races.h"
  1887. X#include "buffers.h"
  1888. X#include <strings.h>
  1889. Xint toggle_racedata;
  1890. X
  1891. Xtoggle(Playernum,APcount, argn, args)
  1892. Xint Playernum;
  1893. Xint APcount;
  1894. Xint argn;
  1895. Xchar args[MAXARGS][COMMANDSIZE];
  1896. X{
  1897. Xint i;
  1898. X
  1899. X
  1900. X   if (argn>1) {
  1901. X    i = strlen(args[1]);
  1902. X    free(Race);
  1903. X    openracedata(&toggle_racedata);
  1904. X    getrace(toggle_racedata, &Race, Playernum);
  1905. X    close_file(toggle_racedata);
  1906. X
  1907. X    if (!strncmp(args[1],"inverse",i)) tog(Playernum,&Race->inverse,"inverse");
  1908. X    else if (!strncmp(args[1],"double_digits",i)) tog(Playernum,&Race->double_digits,
  1909. X                "double_digits");
  1910. X    else if (!strncmp(args[1],"geography",i)) tog(Playernum,&Race->geography,"geography");
  1911. X    else if (!strncmp(args[1],"autoload",i)) tog(Playernum,&Race->autoload,"autoload");
  1912. X    else {
  1913. X        sprintf(buf,"No such option '%s'\n", args[1]);
  1914. X            notify(Playernum, buf);
  1915. X        }
  1916. Xopenracedata(&toggle_racedata);
  1917. Xputrace(toggle_racedata, Race);
  1918. Xclose_file(toggle_racedata);
  1919. X
  1920. X   } else {
  1921. X    sprintf(buf,"inverse is %s\n", Race->inverse ? "ON" : "OFF");
  1922. X            notify(Playernum, buf);
  1923. X    sprintf(buf,"double_digits is %s\n", Race->double_digits ? "ON" : "OFF");
  1924. X            notify(Playernum, buf);
  1925. X    sprintf(buf,"geography is %s\n", Race->geography ? "ON" : "OFF");
  1926. X            notify(Playernum, buf);
  1927. X    sprintf(buf,"autoload is %s\n", Race->autoload ? "ON": "OFF");
  1928. X            notify(Playernum, buf);
  1929. X   }
  1930. X
  1931. X}
  1932. X
  1933. X
  1934. Xtog(Playernum,op, name)
  1935. Xint Playernum;
  1936. Xint *op;
  1937. Xchar *name;
  1938. X{
  1939. X *op = !(*op);
  1940. X sprintf(buf, "%s is now %s\n", name, *op ? "on" : "off" );
  1941. X            notify(Playernum, buf);
  1942. X}
  1943. X
  1944. END_OF_FILE
  1945. if test 1738 -ne `wc -c <'server/toggle.c'`; then
  1946.     echo shar: \"'server/toggle.c'\" unpacked with wrong size!
  1947. fi
  1948. # end of 'server/toggle.c'
  1949. fi
  1950. echo shar: End of archive 12 \(of 14\).
  1951. cp /dev/null ark12isdone
  1952. MISSING=""
  1953. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ; do
  1954.     if test ! -f ark${I}isdone ; then
  1955.     MISSING="${MISSING} ${I}"
  1956.     fi
  1957. done
  1958. if test "${MISSING}" = "" ; then
  1959.     echo You have unpacked all 14 archives.
  1960.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1961. else
  1962.     echo You still need to unpack the following archives:
  1963.     echo "        " ${MISSING}
  1964. fi
  1965. ##  End of shell archive.
  1966. exit 0
  1967.