home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume02 / travel.ler < prev    next >
Encoding:
Internet Message Format  |  1991-08-27  |  42.3 KB
  1. From mipos3!intelca!oliveb!ames!necntc!ncoast!allbery Fri Jan 29 08:03:47 PST 1988
  2. Article 267 of comp.sources.misc:
  3. Path: td2cad!mipos3!intelca!oliveb!ames!necntc!ncoast!allbery
  4. From: everson@compsci.bristol.ac.uk (Phill Everson)
  5. Newsgroups: comp.sources.misc
  6. Subject: v02i020: Traveller (FRP) programs
  7. Message-ID: <7131@ncoast.UUCP>
  8. Date: 26 Jan 88 04:10:58 GMT
  9. Sender: allbery@ncoast.UUCP
  10. Organization: Dept of Computer Science, University of Bristol, UK.
  11. Lines: 1888
  12. Approved: allbery@ncoast.UUCP
  13. X-Archive: comp.sources.misc/8801/20
  14. Comp.sources.misc: Volume 2, Issue 20
  15. Submitted-By: Phill Everson <everson@compsci.bristol.ac.uk>
  16. Archive-Name: traveller
  17.  
  18. Comp.sources.misc: Volume 2, Issue 20
  19. Submitted-By: Phill Everson <everson@compsci.bristol.ac.uk>
  20. Archive-Name: traveller
  21.  
  22. I don't know which newsgroup would be appropriate for the following,
  23. perhaps it should go in comp.sources.misc with some cross-postings?
  24. We are unable to post into rec.games.frp at present, so could you
  25. post it in the most suitable place please?  [Here.  Most non-source
  26. groups frown on sources the way source groups frown on binaries.  ++bsa]
  27.  
  28. # To unbundle, sh this file
  29.  echo README 1>&2
  30. cat >README<<'End of README'
  31. Usage of Traveller Programs
  32. ===========================
  33.  
  34. Create Two subdirectories sysgen & sysprint : Then unbundle the files.
  35. The directories will contain :
  36.  
  37. sysgen:
  38. Makefile const.h glob.c glob.h init.c main.c planets.c print.c rnd.c sats.c st.c
  39. stuff.h sub.c support.c system.c types.h
  40.  
  41. sysprint:
  42. Makefile mass stars.ps tr22 trconv trmult trmult.c ts
  43.  
  44. To generate complete listings of star systems (an allegedly complete
  45. implementation of Single-Star Systems according to the rules in Book 6)
  46. it is necessary to compile the files in sysgen (by typing make) and then
  47. running the program st. Be warned this produces voluminous output.
  48.  
  49. To generate a postscript file representing the star system, run st with
  50. the -m option. This produces a file which lists the major features in the
  51. system.
  52.  
  53. The command trconv file in the sysprint directory will then
  54. produce a postscript file. Trading routes can be added to the system
  55. description file by the DM as required.
  56.  
  57. Multiple systems can be printed using the trmult command. For example
  58.  
  59. trmult 2 2 stars.ps file1 file2 file3 file4
  60.  
  61. will place 4 systems on a piece of paper. But be warned: the order is not
  62. the most obvious imaginable.
  63.  
  64.  
  65. NOTE: the st command takes an argument which is an integer defining the
  66. system. This allows the st program to be run many times with predictable
  67. results.
  68.  
  69. tr22 & mass are historical examples of using trmult.
  70. End of README
  71.  echo sysgen/Makefile 1>&2
  72. cat >sysgen/Makefile <<'End of sysgen/Makefile'
  73. CFLAGS=
  74. PRFLAGS=-l60
  75. OBJS   =rnd.o init.o print.o glob.o st.o system.o support.o planets.o sats.o main.o sub.o
  76. SOURCES=rnd.c init.c print.c glob.c st.c system.c support.c planets.c sats.c main.c sub.c
  77. HDRS=const.h types.h glob.h
  78. PRG=st
  79. LIBS=-lm
  80.  
  81. $(PRG): $(OBJS)
  82.     cc $(CFLAGS) $(OBJS) $(LIBS) -o $(PRG)
  83.  
  84. $(OBJS) : stuff.h
  85.  
  86. stuff.h: $(HDRS)
  87.     @touch stuff.h
  88.  
  89. wc:
  90.     @wc $(SOURCES) $(HDRS)
  91.  
  92. lint:
  93.     @lint $(HDRS) $(SOURCES)
  94.  
  95. pr:
  96.     @pr $(PRFLAGS) $(HDRS) $(SOURCES)
  97.  
  98. objs:
  99.     @echo $(SOURCES)
  100.     @echo $(HDRS)
  101. End of sysgen/Makefile
  102.  echo sysgen/const.h 1>&2
  103. cat >sysgen/const.h <<'End of sysgen/const.h'
  104. #define DIE 6
  105. End of sysgen/const.h
  106.  echo sysgen/glob.c 1>&2
  107. cat >sysgen/glob.c <<'End of sysgen/glob.c'
  108. #include "stuff.h"
  109.  
  110. int orbits[]={ 0.2, 0.4, 0.7, 1.0, 1.6, 2.8, 5.2, 10.0, 19.6, 38.8,
  111.            77.2, 154.0, 307.6, 614.8, 1229.2, 2458.0, 4915.6, 9830.6,
  112.            19661.2, 39322.0 };
  113. char lt[]="aeioubcdfghjklmnpqrstvwxyz";
  114. int freq[]={ 82, 209, 278, 353, 380, 395, 422, 466, 488, 508, 569,
  115.              572, 580, 620, 644, 712, 731, 734, 792, 855, 947, 957,
  116.              980, 981, 1000, 1001 };
  117. int vowel=380;
  118. SYSDATA syst;
  119. char nature[]="SSSSSSSSBBBBTT";
  120. char ptypet[]="BBAMMMMMKGFFFF";
  121. int psizet[]={ 0, 1, 2, 3, 4, 5, 5,
  122.            5, 5, 5, 5, 6, 7, 7 };
  123. char ctypet[]="BBAFFGGKKMMMMM";
  124. int csizet[]={ 0, 1, 2, 3, 4, 7, 7,
  125.            5, 5, 6, 7, 7, 7, 7 };
  126. int natDM= -1;
  127. int typeDM=0;
  128. int sizeDM=0;
  129. char zones[][13][16]={ "--------IIIIIHO",
  130.                        "-------IIIIIHOO",
  131.                        "-------IIIIIHOO",
  132.                        "-------IIIIIHOO",
  133.                        "------IIIIIIHOO",
  134.                        "------IIIIIHOOO",
  135.                        "-------IIIIIHOO",
  136.                        "-------IIIIIHOO",
  137.                        "-------IIIIIHOO",
  138.                        "-------IIIIIHOO",
  139.                        "-------IIIIIHOO",
  140.                        "--------IIIIHOO",
  141.                        "--------IIIIHOO",
  142.  
  143.                        "--------IIIIIHO",
  144.                        "------IIIIIHOOO",
  145.                        "-----IIIIIIHOOO",
  146.                        "-----IIIIIHOOOO",
  147.                        "-----IIIIIHOOOO",
  148.                        "----IIIIIIHOOOO",
  149.                        "----IIIIIIHOOOO",
  150.                        "-----IIIIIHOOOO",
  151.                        "-----IIIIIHOOOO",
  152.                        "------IIIIIHOOO",
  153.                        "------IIIIIHOOO",
  154.                        "-------IIIIIHOO",
  155.                        "--------IIIIHOO",
  156.  
  157.                        "-------IIIIIHOO",
  158.                        "-----IIIIIIHOOO",
  159.                        "---IIIIIIHOOOOO",
  160.                        "--IIIIIIHOOOOOO",
  161.                        "--IIIIIIHOOOOOO",
  162.                        "--IIIIIIHOOOOOO",
  163.                        "--IIIIIIHOOOOOO",
  164.                        "--IIIIIIHOOOOOO",
  165.                        "--IIIIIIIHOOOOO",
  166.                        "---IIIIIIHOOOOO",
  167.                        "----IIIIIIHOOOO",
  168.                        "------IIIIIHOOO",
  169.                        "------IIIIIHOOO",
  170.  
  171.                        "-------IIIIIHOO",
  172.                        "-----IIIIIHOOOO",
  173.                        "-IIIIIIIHOOOOOO",
  174.                        "-IIIIIIHOOOOOOO",
  175.                        "-IIIIIHOOOOOOOO",
  176.                        "-IIIIIHOOOOOOOO",
  177.                        "-IIIIIHOOOOOOOO",
  178.                        "-IIIIIIHOOOOOOO",
  179.                        "-IIIIIIHOOOOOOO",
  180.                        "-IIIIIIIHOOOOOO",
  181.                        "--IIIIIIHOOOOOO",
  182.                        "----IIIIIHOOOOO",
  183.                        "-----IIIIHOOOOO",
  184.  
  185.                        "-------IIIIIHOO",
  186.                        "---IIIIIIHOOOOO",
  187.                        "-IIIIIIHOOOOOOO",
  188.                        "IIIIIIHOOOOOOOO",
  189.                        "IIIIIIHOOOOOOOO",
  190.                        "IIIIIHOOOOOOOOO",
  191.                        "IIIIIHOOOOOOOOO",
  192.                        "IIIIIHOOOOOOOOO",
  193.                        "IIIIHOOOOOOOOOO",
  194.                        "---------------",
  195.                        "---------------",
  196.                        "---------------",
  197.                        "---------------",
  198.  
  199.                        "------IIIIIIHOO",
  200.                        "---IIIIIIHOOOOO",
  201.                        "IIIIIIIHOOOOOOO",
  202.                        "IIIIIIHOOOOOOOO",
  203.                        "IIIIIHOOOOOOOOO",
  204.                        "IIIIHOOOOOOOOOO",
  205.                        "IIIHOOOOOOOOOOO",
  206.                        "IIHOOOOOOOOOOOO",
  207.                        "IIHOOOOOOOOOOOO",
  208.                        "HOOOOOOOOOOOOOO",
  209.                        "HOOOOOOOOOOOOOO",
  210.                        "OOOOOOOOOOOOOOO",
  211.                        "OOOOOOOOOOOOOOO",
  212.  
  213.                        "---------------",
  214.                        "---------------",
  215.                        "---------------",
  216.                        "---------------",
  217.                        "---------------",
  218.                        "IIIHOOOOOOOOOOO",
  219.                        "IIHOOOOOOOOOOOO",
  220.                        "IHOOOOOOOOOOOOO",
  221.                        "IHOOOOOOOOOOOOO",
  222.                        "OOOOOOOOOOOOOOO",
  223.                        "OOOOOOOOOOOOOOO",
  224.                        "OOOOOOOOOOOOOOO",
  225.                        "OOOOOOOOOOOOOOO",
  226.  
  227.                        "HOOOOOOOOOOOOOO",
  228.                        "HOOOOOOOOOOOOOO",
  229.                        "OOOOOOOOOOOOOOO",
  230.                        "OOOOOOOOOOOOOOO",
  231.                        "OOOOOOOOOOOOOOO",
  232.                        "OOOOOOOOOOOOOOO",
  233.                        "OOOOOOOOOOOOOOO",
  234.                        "OOOOOOOOOOOOOOO",
  235.                        "OOOOOOOOOOOOOOO",
  236.                        "OOOOOOOOOOOOOOO",
  237.                        "OOOOOOOOOOOOOOO",
  238.                        "OOOOOOOOOOOOOOO",
  239.                        "OOOOOOOOOOOOOOO" };
  240. int ggno[]={ 0, 1, 1, 1, 2, 2, 3,
  241.              3, 4, 4, 4, 5, 5, 5 };
  242. int plno[]={ 3, 2, 2, 2, 2, 2, 2,
  243.              1, 1, 1, 1, 1, 1, 1 };
  244. int ggDM, plDM;
  245. int ring[]={ 1, 1, 1, 1, 2, 2, 3 };
  246. int clos[]={ 1, 2, 3, 4, 5, 6, 7,
  247.               8, 9, 10, 11, 12, 13 };
  248. int far[]={ 5, 10, 15, 20, 25, 30, 35,
  249.            40, 45, 50, 55, 60, 65 };
  250. int extreme[]={ 75, 100, 125, 150, 175, 200,
  251.                225, 250, 275, 300, 325 };
  252. char starport[]="AAAAABBCCDEEX";
  253. char spaceport[]="YYYHGGF";
  254. int tech[][17]={0,0,0,0,0,0,0,0,0,0,6,4,2,0,0,0,-4,
  255.                 2,2,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0,
  256.                 1,1,1,1,0,0,0,0,0,0,1,1,1,1,1,0,0,
  257.                 0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,0,0,
  258.                 0,1,1,1,1,1,0,0,0,2,4,0,0,0,0,0,0,
  259.                 1,0,0,0,0,1,0,0,0,0,0,0,0,-2,0,0,0 };
  260. int mwatm,mwpop,mwgov,mwlaw,mwtech,mwind,mwpoor;
  261. int base;
  262. SUBDATA *subsect,*css;
  263. int grtab[]={ 0,0,0,0,5,5,10,10,
  264.               15,15,40,50,60,15,10,0 };
  265. int cloud[]={ 0,0,10,10,20,30,40,50,60,70,70 };
  266. double lumtab[][13]={ 560000,204000,107000,81000,61000,51000,67000,89000,
  267.                      97000,107000,117000,129000,141000,
  268.                   270000,46700,15000,11700,7400,5100,6100,8100,11700,
  269.                      20400,46000,89000,117000,
  270.                   170000,18600,2200,850,600,510,560,740,890,2450,4600,
  271.                      14900,16200,
  272.                   107000,6700,280,90,53,43,50,75,95,320,470,2280,2690,
  273.                   81000,2000,156,37,19,12,6.5,4.9,4.67,0,0,0,0,
  274.                   56000,1400,90,16,8.1,3.5,1.21,.67,.42,.08,.04,.007,.001,
  275.                   0,0,0,0,0,.977,.322,.186,.117,.025,.011,.002,.00006,
  276.                   .046,.01,.005,.0009,.0003,.00015,.00006,.00005,.00004,
  277.                      .00004,.00003,.00003,.00003 };
  278. double dtab[]={ .2,.4,.7,1,1.6,2.8,5.2,10,19.6,38.8,77.2,154,307.6,614.8,
  279.                      1229.2,2458,4915.6,9380.8,19661.2,39322 };
  280. char spa[50][50];
  281. int mapflag;
  282. End of sysgen/glob.c
  283.  echo sysgen/glob.h 1>&2
  284. cat >sysgen/glob.h <<'End of sysgen/glob.h'
  285. extern int orbits[];
  286. extern char lt[];
  287. extern int freq[];
  288. extern int vowel;
  289. extern SYSDATA syst;
  290. extern char nature[], ptypet[], ctypet[];
  291. extern int psizet[], csizet[], natDM, typeDM, sizeDM;
  292. extern char zones[][13][16];
  293. extern int ggno[], plno[];
  294. extern int ggDM, plDM;
  295. extern int ring[], clos[], far[], extreme[];
  296. extern char starport[],spaceport[];
  297. extern int tech[][17];
  298. extern int mwatm,mwpop,mwgov,mwlaw,mwtech,mwind,mwpoor;
  299. extern int base;
  300. extern SUBDATA *subsect,*css;
  301. extern int grtab[],cloud[];
  302. extern double lumtab[][13], dtab[];
  303. extern char spa[][50];
  304. extern int mapflag;
  305. End of sysgen/glob.h
  306.  echo sysgen/init.c 1>&2
  307. cat >sysgen/init.c <<'End of sysgen/init.c'
  308. #include "stuff.h"
  309.  
  310. init(argc,argv,maxx,maxy)
  311. char **argv;
  312. int *maxx,*maxy;
  313. {
  314.     subsect=(SUBDATA *)malloc(sizeof(SUBDATA));
  315.     subsect->next=NULL;
  316.     css=subsect;
  317.     if (argc>1 && argv[1][0]=='-')
  318.     {
  319.         if (argv[1][1]=='m')
  320.             mapflag=1;
  321.         argv++;
  322.         argc--;
  323.     }
  324.     switch(argc)
  325.     {
  326.     case 1:
  327.         iseed(42);
  328.         *maxx=8;
  329.         *maxy=10;
  330.         break;
  331.     case 2:
  332.         iseed(atoi(argv[1]));
  333.         *maxx=8;
  334.         *maxy=10;
  335.         break;
  336.     case 3:
  337.         iseed(atoi(argv[1]));
  338.         *maxx=8;
  339.         *maxy=atoi(argv[2]);
  340.         break;
  341.     case 4:
  342.         iseed(atoi(argv[1]));
  343.         *maxx=atoi(argv[3]);
  344.         *maxy=atoi(argv[2]);
  345.         break;
  346.     }
  347. }
  348. End of sysgen/init.c
  349.  echo sysgen/main.c 1>&2
  350. cat >sysgen/main.c <<'End of sysgen/main.c'
  351. #include "stuff.h"
  352.  
  353. mworld(s)
  354. SYSDATA *s;
  355. {
  356. int pop;
  357. PLANDATA *p,*mp;
  358. SATDATA *sat,*ms;
  359.  
  360.     pop=0;
  361.     mp=NULL;
  362.     for (p=s->orb0; p; p=p->next)
  363.     {
  364.         if (p->type=='P' || p->type=='W')
  365.         {
  366.             if (p->pop>pop || p->pop==pop && p->zone=='H')
  367.             {
  368.                 pop=p->pop;
  369.                 mp=p;
  370.                 ms=NULL;
  371.             }
  372.         }
  373.         for (sat=p->sats; sat; sat=sat->next)
  374.              if (sat->pop>pop || sat->pop==pop && p->zone=='H') 
  375.              {
  376.                  pop=sat->pop;
  377.                  mp=p;
  378.                  ms=sat;
  379.              }
  380.     }
  381.     if (mp==NULL)
  382.         return;
  383.     for (p=s->orb0; p && p!=mp; p=p->next)
  384.         ;
  385.     if (ms==NULL)
  386.     {
  387.         p->main=1;
  388.         p->gov=gov(p->pop);
  389.         p->law=law(p->gov);
  390.         if (p->pop>0) p->sport=starport[die(2)]; else p->sport='X';
  391.         p->tech=die(1)+tech[0][p->sport]+tech[1][p->size+1]+tech[2][p->atm]
  392.                        +tech[3][p->hyd]+tech[4][p->pop]+tech[5][p->gov];
  393.         if (p->tech<0) p->tech=0;
  394.         else if (p->tech>15) p->tech=15;
  395.         trade(&p->notes,p->size,p->atm,p->hyd,p->pop,p->gov,p->law,p->tech);
  396.         if (die(2)>7 && (p->sport=='A' || p->sport=='B'))
  397.             addstr(&p->notes,"Naval");
  398.         if (scb(p->sport)) addstr(&p->notes,"Scout");
  399.         mwatm=p->atm;
  400.         mwpop=p->pop;
  401.         mwgov=p->gov;
  402.         mwlaw=p->law;
  403.         mwtech=p->tech;
  404.         return;
  405.     }
  406.     for (sat=p->sats; sat && sat!=ms; sat=sat->next)
  407.         ;
  408.     sat->main=1;
  409.     sat->gov=gov(sat->pop);
  410.     sat->law=law(sat->gov);
  411.     sat->sport=starport[die(2)];
  412.     sat->tech=die(1)+tech[0][sat->size]+tech[1][sat->atm]+tech[2][sat->hyd]
  413.                    +tech[3][sat->pop]+tech[4][sat->gov];
  414.     if (sat->tech<0) sat->tech=0;
  415.     else if (sat->tech>15) sat->tech=15;
  416.     trade(&sat->notes,sat->size,sat->atm,sat->hyd,sat->pop,sat->gov,
  417.             sat->law,sat->tech);
  418.     if (die(2)>7 && (sat->sport=='A' || sat->sport=='B'))
  419.         addstr(&sat->notes,"Naval");
  420.     if (scb(sat->sport)) addstr(&sat->notes,"Scout");
  421.     mwgov=sat->gov;
  422.     mwlaw=sat->law;
  423.     mwtech=sat->tech;
  424. }
  425.  
  426. gov(pop)
  427. {
  428. int g;
  429.  
  430.     g=die(2)-7+pop;
  431.     if (g<0) return 0;
  432.     else if (g>15) return 15;
  433.     else return g;
  434. }
  435.  
  436. law(gov)
  437. {
  438. int l;
  439.  
  440.     l=die(2)-7+gov;
  441.     if (l<0) return 0;
  442.     else if (l>9) return 9;
  443.     else return l;
  444. }
  445.  
  446. scb(sp)
  447. char sp;
  448. {
  449. int DM;
  450.  
  451.    switch(sp)
  452.    {
  453.    case 'C':
  454.        DM= -1;
  455.        break;
  456.    case 'B':
  457.        DM= -2;
  458.        break;
  459.    case 'A':
  460.        DM= -3;
  461.        break;
  462.    }
  463.    if (sp!='E' && sp!='X')
  464.        return (die(2)+DM>6);
  465.    else
  466.        return 0;
  467. }
  468.  
  469. trade(notes,size,atm,hyd,pop,gov,law)
  470. char **notes;
  471. {
  472.     mwind=mwpoor=0;
  473.     if (atm>=4 && atm<=9 && hyd>=4 && hyd<=8 && pop>=5 && pop<=7)
  474.         addstr(notes,"Agr");
  475.     if (atm<=3 && hyd<=3 && pop>=6)
  476.         addstr(notes,"Non-Agr");
  477.     if ((atm>=0 && atm<=2 || atm==4 || atm==7 || atm==9) && pop>=9)
  478.     {
  479.         addstr(notes,"Ind");
  480.         mwind=1;
  481.     }
  482.     if (pop<=6)
  483.         addstr(notes,"Non-Ind");
  484.     if ((atm==6 || atm==9) && gov>=4 && gov<=9 && pop>=6 && pop<=8)
  485.         addstr(notes,"Rich");
  486.     if (atm>=2 && atm<=5 && hyd<=3)
  487.     {
  488.         addstr(notes,"Poor");
  489.         mwpoor=1;
  490.     }
  491.     if (hyd==10)
  492.         addstr(notes,"Water");
  493.     if (atm>=2 && hyd==0)
  494.         addstr(notes,"Desert");
  495.     if (atm==0)
  496.         addstr(notes,"Vacuum");
  497.     if (size==0)
  498.         addstr(notes,"Asteroid");
  499.     if (atm>=0 && atm<=1 && hyd>=1)
  500.         addstr(notes,"Ice-Capped");
  501. }
  502. End of sysgen/main.c
  503.  echo sysgen/planets.c 1>&2
  504. cat >sysgen/planets.c <<'End of sysgen/planets.c'
  505. #include "stuff.h"
  506.  
  507. new_planets(p,n,size,type,dec)
  508. PLANDATA **p;
  509. char type;
  510. {
  511. PLANDATA *q,*r;
  512. int z1,z2;
  513. char *name();
  514.  
  515.     switch(type)
  516.     {
  517.     case 'B':
  518.         z1=0;
  519.     case 'A':
  520.         z1=2;
  521.     case 'F':
  522.         z1=4;
  523.     case 'G':
  524.         z1=6;
  525.     case 'K':
  526.         z1=8;
  527.     case 'M':
  528.         z1=10;
  529.     }
  530.     if (dec>=5)
  531.         z1++;
  532.     if (type=='M' && dec==9)
  533.         z1++;
  534.     z2=size;
  535.     for (r=NULL,n--;n>=0;n--,r=q)
  536.     {
  537.         q=(PLANDATA *)malloc(sizeof(PLANDATA));
  538.         strcpy(q->name,name());
  539.         q->type=' ';
  540.         q->orbit=n;
  541.         q->zone=zones[z2][z1][(n<15)?n:14];
  542.         q->main=0;
  543.         q->sats=NULL;
  544.         q->notes=NULL;
  545.         q->next=r;
  546.     }
  547.     *p=r;
  548. }
  549.  
  550. empty(s)
  551. SYSDATA *s;
  552. {
  553. int n;
  554. PLANDATA *p;
  555.  
  556.     if (die(1)>=5)
  557.     {
  558.         n=die(1);
  559.         switch (n)
  560.         {
  561.         case 1:
  562.         case 2:
  563.             n=1;
  564.             break;
  565.         case 3:
  566.             n=2;
  567.             break;
  568.         default:
  569.             n=3;
  570.             break;
  571.         }
  572.         if (n>s->free)
  573.             n=s->free;
  574.         while (n>0)
  575.             for (p=s->orb0; p!=NULL && n>0; p=p->next)
  576.                 if (die(1)==6)
  577.                 {
  578.                     p->type='E';
  579.                     n--;
  580.                     s->free--;
  581.                 }
  582.     }
  583. }
  584.  
  585. capt(s)
  586. SYSDATA *s;
  587. {
  588. int n;
  589. PLANDATA *p;
  590.  
  591.     if (die(1)>=5)
  592.     {
  593.         n=(die(1)+1)/2;
  594.         if (n>s->orbits)
  595.             n=s->orbits;
  596.         while (n>0)
  597.             for (p=s->orb0; p!=NULL && n>0; p=p->next)
  598.                 if (die(1)==6)
  599.                 {
  600.                     p->capt=die(2)-7;
  601.                     n--;
  602.                 }
  603.     }
  604. }
  605.  
  606. gasgiants(s)
  607. SYSDATA *s;
  608. {
  609. int n;
  610. PLANDATA *p;
  611.  
  612.     if (die(2)<10)
  613.     {
  614.         n=ggno[die(2)+ggDM];
  615.         if (n>s->free)
  616.             n=s->free;
  617.         if (n==0)
  618.         {
  619.             n=1;
  620.             s->orbits++;
  621.             s->free++;
  622.             for (p=s->orb0; p->next; p=p->next)
  623.                 ;
  624.             p->next=(PLANDATA *)malloc(sizeof(PLANDATA));
  625.             if (p->zone=='I')
  626.                 p->next->zone='I';
  627.             else
  628.                 p->next->zone='O';
  629.             strcpy(p->next->name,name());
  630.             p->next->type=' ';
  631.             p->next->orbit=p->orbit+1;
  632.             p->next->main=0;
  633.             p->next->sats=NULL;
  634.             p->next->notes=NULL;
  635.             p->next->next=NULL;
  636.         }
  637.         s->gg=n;
  638.         while (n>0)
  639.             for (p=s->orb0; p && n>0;p=p->next)
  640.                 if (p->type==' ' && die(1)==6)
  641.                 {
  642.                     p->type=(die(1)<4)?'L':'S';
  643.                     n--;
  644.                     s->free--;
  645.                 }
  646.     }
  647. } 
  648.  
  649. planetoids(s)
  650. SYSDATA *s;
  651. {
  652. int n;
  653. PLANDATA *p;
  654.  
  655.     if (die(2)-s->gg<=6)
  656.     {
  657.         n=die(2)-s->gg;
  658.         n=plno[(n<0)?0:n];
  659.         if (n>s->free)
  660.             n=s->free;
  661.         if (n!=0)
  662.         {
  663.             for (p=s->orb0;p && n>0;p=p->next)
  664.                 if (p->type==' ' &&  p->next && (p->next->type=='S' || p->next->type=='L'))
  665.                 {
  666.                     p->type='P';
  667.                     n--;
  668.                     s->free--;
  669.                 }
  670.             while (n>0)
  671.                 for (p=s->orb0;p && n>0; p=p->next)
  672.                     if (p->type==' ' && die(1)==6)
  673.                     {
  674.                         p->type='P';
  675.                         n--;
  676.                         s->free--;
  677.                     }
  678.         }
  679.     }
  680. }
  681.  
  682. wsize(s)
  683. SYSDATA *s;
  684. {
  685. PLANDATA *p;
  686.  
  687.     for (p=s->orb0; p; p=p->next)
  688.     {
  689.         if (p->type=='P')
  690.             p->size=0;
  691.         if (p->type!=' ')
  692.             continue;
  693.         p->type='W';
  694.         p->size=die(2)-2;
  695.         if (p->orbit==0) p->size-=5;
  696.         if (p->orbit==1) p->size-=4;
  697.         if (p->orbit==2) p->size-=2;
  698.         if (s->ptype=='M') p->size-=2;
  699.         if (p->size<=0) p->size= -1;
  700.     }
  701. }
  702.  
  703. watm(s)
  704. SYSDATA *s;
  705. {
  706. PLANDATA *p;
  707.  
  708.     for (p=s->orb0; p; p=p->next)
  709.     {
  710.          if (p->type!='W' && p->type!='P')
  711.              continue;
  712.          p->atm=die(2)-7+p->size;
  713.          if (p->zone=='I') p->atm-=2;
  714.          if (p->zone=='O') p->atm-=4;
  715.          if (p->size==0) p->atm=0;
  716.          if (p->atm<0) p->atm=0;
  717.          if (p->atm>15) p->atm=15;
  718.     }
  719. }
  720.  
  721.  
  722. whyd(s)
  723. SYSDATA *s;
  724. {
  725. PLANDATA *p;
  726.  
  727.     for (p=s->orb0; p; p=p->next)
  728.     {
  729.          if (p->type!='W' && p->type!='P')
  730.              continue;
  731.          p->hyd=die(2)-7+p->size;
  732.          if (p->zone=='I') p->hyd=0;
  733.          if (p->zone=='O') p->hyd-=2;
  734.          if (p->size<2) p->hyd=0;
  735.          if (p->atm<2 || p->atm>9) p->hyd-=4;
  736.          if (p->hyd<0) p->hyd=0;
  737.          if (p->hyd>10) p->hyd=10;
  738.     }
  739. }
  740.  
  741. wpop(s)
  742. SYSDATA *s;
  743. {
  744. PLANDATA *p;
  745.  
  746.     for (p=s->orb0; p; p=p->next)
  747.     {
  748.          if (p->type!='W' && p->type!='P')
  749.              continue;
  750.          p->pop=die(2)-2;
  751.          if (p->zone=='I') p->pop-=5;
  752.          if (p->zone=='O') p->pop-=3;
  753.          if (p->atm!=0 && p->atm!=5 && p->atm!=6 && p->atm!=8) p->pop-=2;
  754.          if (p->pop<0) p->pop=0;
  755.     }
  756. }
  757. End of sysgen/planets.c
  758.  echo sysgen/print.c 1>&2
  759. cat >sysgen/print.c <<'End of sysgen/print.c'
  760. #include "stuff.h"
  761.  
  762. print(s)
  763. SYSDATA *s;
  764. {
  765. PLANDATA *p;
  766. SATDATA *sat;
  767. char *prss();
  768.  
  769.     if (mapflag) return;
  770.     printf("         %-15s   %c%d %-2s\n",s->name,s->ptype,
  771.                  s->pdec,prss(s->psize));
  772.     for (p=s->orb0; p; p=p->next)
  773.     {
  774.         putchar(' ');
  775.         if (p->zone=='H') putchar('*'); else putchar(' ');
  776.         printf(" %2d   ",p->orbit);
  777.         if (p->type=='L')
  778.             printf(" %-15s  Large GG\n",p->name);
  779.         else if (p->type=='S')
  780.             printf(" %-15s  Small GG\n",p->name);
  781.         else if (p->type!='E')
  782.             prpl(p,s);
  783.         else
  784.         {
  785.             printf("  Orbit Empty \n");
  786.             continue;
  787.         }
  788.         for (sat=p->sats; sat; sat=sat->next)
  789.         {
  790.             printf("     %3d", sat->orbit);
  791.             prsat(sat);
  792.         }
  793.     }
  794. }
  795.  
  796. prpl(p,s)
  797. PLANDATA *p;
  798. SYSDATA *s;
  799. {
  800. char hex(),pshex(),sshex();
  801.  
  802.     if (mapflag) return;
  803.     printf(" %-15s ",p->name);
  804.     printf(" %c",p->sport);
  805.     if (p->type=='P') putchar('0'); else putchar(pshex(p->size));
  806.     printf("%c%c%c%c%c  %c  ",hex(p->atm),hex(p->hyd),hex(p->pop),
  807.                 hex(p->gov),hex(p->law),hex(p->tech));
  808.     if (s!=0) plfacts(p,s);
  809.     if (p->notes)
  810.         printf(" %s",p->notes);
  811.     putchar('\n');
  812. }
  813.  
  814. prsat(p)
  815. SATDATA *p;
  816. {
  817. char hex(),pshex(),sshex();
  818.  
  819.     if (mapflag) return;
  820.     printf(" %-15s ",p->name);
  821.     printf(" %c",p->sport);
  822.     putchar(sshex(p->size));
  823.     printf("%c%c%c%c%c  %c  ",hex(p->atm),hex(p->hyd),hex(p->pop),
  824.                 hex(p->gov),hex(p->law),hex(p->tech));
  825.     if (p->notes)
  826.         printf(" %s",p->notes);
  827.     putchar('\n');
  828. }
  829.  
  830. char *prss(n)
  831. {
  832.     switch(n)
  833.     {
  834.     case 0:
  835.         return "Ia";
  836.         break;
  837.     case 1:
  838.         return "Ib";
  839.         break;
  840.     case 2:
  841.         return "II";
  842.         break;
  843.     case 3:
  844.         return "III";
  845.         break;
  846.     case 4:
  847.         return "IV";
  848.         break;
  849.     case 5:
  850.         return "V";
  851.         break;
  852.     case 6:
  853.         return "VI";
  854.         break;
  855.     case 7:
  856.         return "D";
  857.         break;
  858.     }
  859. }
  860.  
  861. char hex(n)
  862. {
  863.     if (n<0) return '0';
  864.     if (n<10) return '0'+n;
  865.     return n-10+'A';
  866. }
  867.  
  868. char pshex(n)
  869. {
  870.     if (n<=0) return 'S';
  871.     else return hex(n);
  872. }
  873.  
  874. char sshex(n)
  875. {
  876.     if (n<0) return 'S'; 
  877.     else if (n==0) return 'R';
  878.     else return hex(n);
  879. }
  880.  
  881. plfacts(p,s)
  882. PLANDATA *p;
  883. SYSDATA *s;
  884. {
  885. FACDATA f;
  886. int w,l,i,cl,z1;
  887. double lum,dist;
  888. double sqrt();
  889.  
  890.     f.green=grtab[p->atm];
  891.     f.cloud=cloud[p->hyd];
  892.     if (p->atm>=10) f.cloud+=4;
  893.     if (p->atm<=3) f.cloud-=2;
  894.     if (p->atm==14) f.cloud=(f.cloud-4)/2;
  895.     w=p->hyd*10;
  896.     l=100-p->hyd;
  897.     i=l/10;
  898.     l-=i/2;
  899.     w-=i/2;
  900.     f.land=l;
  901.     f.water=w;
  902.     f.ice=i;
  903.     cl=100-f.cloud;
  904.     l=l*cl/100;
  905.     w=w*cl/100;
  906.     i=i*cl/100;
  907.     f.albedo=l*15+w*2+f.cloud*60+i*55;
  908.     switch(s->ptype)
  909.     {
  910.     case 'B':
  911.         z1=0;
  912.     case 'A':
  913.         z1=2;
  914.     case 'F':
  915.         z1=4;
  916.     case 'G':
  917.         z1=6;
  918.     case 'K':
  919.         z1=8;
  920.     case 'M':
  921.         z1=10;
  922.     }
  923.     if (s->pdec>=5)
  924.         z1++;
  925.     if (s->ptype=='M' && s->pdec==9)
  926.         z1++;
  927.     lum=lumtab[s->psize][z1];
  928.     dist=dtab[p->orbit];
  929.     f.temp=374.025*f.green*(100-f.albedo)*sqrt(sqrt(lum))/sqrt(dist);
  930. }
  931. End of sysgen/print.c
  932.  echo sysgen/rnd.c 1>&2
  933. cat >sysgen/rnd.c <<'End of sysgen/rnd.c'
  934. #include "stuff.h"
  935.  
  936. static s;
  937.  
  938. rand(n)
  939. {
  940. double rnd();
  941.  
  942.     return (random()%n+1);
  943. }
  944.  
  945. iseed(q)
  946. int q;
  947. {
  948.     srandom(q);
  949. }
  950.  
  951. char *name()
  952. {
  953. static char st[20];
  954. int i,j,l;
  955.  
  956.     l=rand(7)+3;
  957.     st[l+1]='\0';
  958.     i=rand(1000);
  959.     for (j=0;freq[j]<i;j++)
  960.         ;
  961.     st[l--]=lt[j];
  962.     while (l>=0)
  963.     {
  964.         if (i<vowel)
  965.             i=rand(1000-vowel)+vowel;
  966.         else
  967.             i=rand(vowel);
  968.         for (j=0;freq[j]<i;j++)
  969.             ;
  970.         st[l--]=lt[j];
  971.     }
  972.     st[0]=toupper(st[0]);
  973.     return st;
  974. }
  975.  
  976. die(n)
  977. {
  978. int i,j;
  979.  
  980.     j=0;
  981.     for (i=0;i<n;i++)
  982.         j+=rand(DIE);
  983.     return j;
  984. }
  985. End of sysgen/rnd.c
  986.  echo sysgen/sats.c 1>&2
  987. cat >sysgen/sats.c <<'End of sysgen/sats.c'
  988. #include "stuff.h"
  989.  
  990. sats(s)
  991. SYSDATA *s;
  992. {
  993. PLANDATA *p;
  994.  
  995.     for (p=s->orb0; p; p=p->next)
  996.         switch(p->type)
  997.         {
  998.         case 'L':
  999.             new_sats(&p->sats,die(2));
  1000.             break;
  1001.         case 'S':
  1002.             new_sats(&p->sats,die(2)-4);
  1003.             break;
  1004.         case 'W':
  1005.             new_sats(&p->sats,die(1)-3);
  1006.             break;
  1007.         default:
  1008.             p->sats=NULL;
  1009.         }
  1010. }
  1011.  
  1012. new_sats(p,n)
  1013. SATDATA **p;
  1014. {
  1015. SATDATA *r, *q;
  1016. char *name();
  1017.  
  1018.     if (n<=0)
  1019.         *p=NULL;
  1020.     else
  1021.     {
  1022.         for (r=NULL;n;r=q,n--)
  1023.         {
  1024.             q=(SATDATA *)malloc(sizeof(SATDATA));
  1025.             strcpy(q->name,name());
  1026.             q->main=0;
  1027.             q->notes=NULL;
  1028.             q->next=r;
  1029.         }
  1030.         *p=r;
  1031.     }
  1032. }
  1033.  
  1034. satwsize(s)
  1035. SYSDATA *s;
  1036. {
  1037. PLANDATA *p;
  1038.  
  1039.     for (p=s->orb0; p; p=p->next)
  1040.         satsize(p);
  1041. }
  1042.  
  1043. satsize(p)
  1044. PLANDATA *p;
  1045. {
  1046. SATDATA *s;
  1047.  
  1048.     for (s=p->sats; s; s=s->next)
  1049.     {
  1050.         switch(p->type)
  1051.         {
  1052.         case 'L':
  1053.             s->size=die(2)-4;
  1054.             break;
  1055.         case 'S':
  1056.             s->size=die(2)-6;
  1057.             break;
  1058.         case 'W':
  1059.             s->size=p->size-die(1);
  1060.             break;
  1061.         }
  1062.         if (s->size<0) s->size= -1; /*SMALL*/
  1063.         if (s->size>10) s->size= 10;
  1064.     }
  1065. }
  1066.  
  1067. satworbit(s)
  1068. SYSDATA *s;
  1069. {
  1070. PLANDATA *p;
  1071.  
  1072.     for (p=s->orb0; p; p=p->next)
  1073.         satorbit(p);
  1074. }
  1075.  
  1076. satorbit(p)
  1077. PLANDATA *p;
  1078. {
  1079. SATDATA *s,*r;
  1080. int otype,swap;
  1081. int DM;
  1082.  
  1083.     DM=0;
  1084.     for (s=p->sats; s; s=s->next,DM++)
  1085.     {
  1086.         otype=die(2)-DM;
  1087.         if (s->size==0) s->orbit=ring[die(1)];
  1088.         else if (otype<8) s->orbit=clos[die(2)];
  1089.         else if (otype==12 && (p->type=='L' || p->type=='S'))
  1090.             s->orbit=extreme[die(2)];
  1091.         else if (otype>7) s->orbit=far[die(2)];
  1092.     }
  1093.     swap=1;
  1094.     s=p->sats;
  1095.     while (s && s->next && swap)
  1096.     {
  1097.         s=p->sats;
  1098.         swap=0;
  1099.         if (s->orbit>s->next->orbit)
  1100.         {
  1101.             p->sats=s->next;
  1102.             s->next=p->sats->next;
  1103.             p->sats->next=s;
  1104.             swap=1;
  1105.         }
  1106.         for (s=p->sats; s->next->next; s=s->next)
  1107.         {
  1108.             r=s->next;
  1109.             if (r->orbit>r->next->orbit)
  1110.             {
  1111.                 s->next=r->next;
  1112.                 r->next=r->next->next;
  1113.                 s->next->next=r;
  1114.                 swap=1;
  1115.             }
  1116.         }
  1117.     }
  1118.     for (s=p->sats; s && s->next;)
  1119.         if (s->orbit==s->next->orbit)
  1120.         {
  1121.             r=s->next;
  1122.             s->next=r->next;
  1123.             free(r);
  1124.         }
  1125.         else
  1126.             s=s->next;
  1127. }
  1128.  
  1129. satwatm(s)
  1130. SYSDATA *s;
  1131. {
  1132. PLANDATA *p;
  1133.  
  1134.     for (p=s->orb0; p; p=p->next)
  1135.         satatm(p);
  1136. }
  1137.  
  1138. satatm(p)
  1139. PLANDATA *p;
  1140. {
  1141. SATDATA *s;
  1142.  
  1143.     for (s=p->sats; s; s=s->next)
  1144.     {
  1145.          s->atm=die(2)-7+s->size;
  1146.          if (p->zone=='I') s->atm-=4;
  1147.          if (p->zone=='O') s->atm-=4;
  1148.          if (s->size<2) s->atm=0;
  1149.          if (s->atm<0) s->atm=0;
  1150.          if (s->atm>15) s->atm=15;
  1151.     }
  1152. }
  1153.  
  1154. satwhyd(s)
  1155. SYSDATA *s;
  1156. {
  1157. PLANDATA *p;
  1158.  
  1159.     for (p=s->orb0; p; p=p->next)
  1160.         sathyd(p);
  1161. }
  1162.  
  1163. sathyd(p)
  1164. PLANDATA *p;
  1165. {
  1166. SATDATA *s;
  1167.  
  1168.     for (s=p->sats; s; s=s->next)
  1169.     {
  1170.         s->hyd=die(2)-7+s->size;
  1171.         if (p->zone=='I') s->hyd=0;
  1172.         if (p->zone=='O') s->hyd-=4;
  1173.         if (s->size<=0) s->hyd=0;
  1174.         if (s->atm<2 || s->atm>9) s->hyd-=4;
  1175.         if (s->hyd<0) s->hyd=0;
  1176.         if (s->hyd>10) s->hyd=10;
  1177.     }
  1178. }
  1179.  
  1180. satwpop(s)
  1181. SYSDATA *s;
  1182. {
  1183. PLANDATA *p;
  1184.  
  1185.     for (p=s->orb0; p; p=p->next)
  1186.         satpop(p);
  1187. }
  1188.  
  1189. satpop(p)
  1190. PLANDATA *p;
  1191. {
  1192. SATDATA *s;
  1193.  
  1194.     for (s=p->sats; s; s=s->next)
  1195.     {
  1196.         s->pop=die(2)-2;
  1197.         if (p->zone=='I') s->pop-=5;
  1198.         if (p->zone=='O') s->pop-=4;
  1199.         if (s->atm!=5 && s->atm!=6 && s->atm!=8) s->pop-=2;
  1200.         if (s->size<5) s->pop-=2;
  1201.         if (s->size==0) s->pop=0;
  1202.         if (s->pop<0) s->pop=0;
  1203.         if (s->pop>10) s->pop=10;
  1204.     }
  1205. }
  1206. End of sysgen/sats.c
  1207.  echo sysgen/st.c 1>&2
  1208. cat >sysgen/st.c <<'End of sysgen/st.c'
  1209. #include "stuff.h"
  1210.  
  1211. main(argc,argv)
  1212. char **argv;
  1213. {
  1214. int i,j,mxi,mxj;
  1215. char sysnat(), stype();
  1216.  
  1217.     init(argc,argv,&mxi,&mxj);
  1218.     for (i=1;i<=mxi;i++)
  1219.     {
  1220.         for (j=1;j<=mxj;j++)
  1221.         {
  1222.             spa[i][j]=' ';
  1223.             if (syspres(0))
  1224.             {
  1225.                 if (!mapflag) printf("\fSystem At (%02d%02d)\n\n",i,j);
  1226.                 strcpy(syst.name,name());
  1227.                 syst.nature=sysnat();
  1228.                 syst.ptype=stype(0);
  1229.                 syst.psize=ssize(0,syst.ptype);
  1230.                 syst.pdec=rand(10)-1;
  1231.                 if (syst.nature!='S')
  1232.                 {
  1233.                     syst.ctype=stype(1);
  1234.                     syst.csize=ssize(1,syst.ctype);
  1235.                     syst.cdec=rand(10)-1;
  1236.                 }
  1237.                 syst.orbits=nbrorbs(syst.psize,syst.ptype);
  1238.                 syst.free=syst.orbits;
  1239.                 new_planets(&syst.orb0,syst.orbits,syst.psize,syst.ptype,
  1240.                              syst.pdec);
  1241.                 syst.notes=NULL;
  1242.                 empty(&syst);
  1243.                 capt(&syst);
  1244.                 gasgiants(&syst);
  1245.                 planetoids(&syst);
  1246.                 wsize(&syst);
  1247.                 watm(&syst);
  1248.                 whyd(&syst);
  1249.                 wpop(&syst);
  1250.                 sats(&syst);
  1251.                 satwsize(&syst);
  1252.                 satworbit(&syst);
  1253.                 satwatm(&syst);
  1254.                 satwhyd(&syst);
  1255.                 satwpop(&syst);
  1256.                 mworld(&syst);
  1257.                 sub(&syst);
  1258.     
  1259.                 print(&syst);
  1260.                 css->x=i;
  1261.                 css->y=j;
  1262.                 spa[i][j]=freeup(&syst);
  1263.             }
  1264.         }
  1265.     }
  1266.     if (!mapflag)
  1267.     {
  1268.         putchar('\f');
  1269.         for (css=subsect; css->next; css=css->next)
  1270.         {
  1271.             printf("%02d%02d  ",css->x,css->y);
  1272.             if (!css->planet && !css->sat) printf(" %s system UNINHABITED\n",css->name);
  1273.             if (css->planet) prpl(css->planet,0);
  1274.             if (css->sat) prsat(css->sat,0);
  1275.         }
  1276.         printf("\f       ");
  1277.         for (i=1;i<=mxi;i++)
  1278.             printf("%02dxx ",i);
  1279.         putchar('\n');
  1280.         for (j=1;j<=mxj;j++)
  1281.         {
  1282.             printf(" xx%02d ",j);
  1283.             for (i=1;i<=mxi;i+=2)
  1284.                 printf("  %2c      ",spa[i][j]);
  1285.             printf("\n      ");
  1286.             for (i=2;i<=mxi;i+=2)
  1287.                 printf("       %2c ",spa[i][j]);
  1288.             putchar('\n');
  1289.         }
  1290.     }
  1291.     else
  1292.     {
  1293.         for (css=subsect;css->next;css=css->next)
  1294.         {
  1295.             printf("%d %d ",css->x-1,css->y-1);
  1296.             if (!css->planet && !css->sat) printf("%s %c\n",css->name,spa[css->x][css->y]);
  1297.             if (css->planet) printf("%s %c\n",css->planet->name,css->planet->sport);
  1298.             if (css->sat)  printf("%s %c\n",css->sat->name,css->sat->sport);
  1299.         }
  1300.         printf("99\n");
  1301.     }
  1302. }
  1303. End of sysgen/st.c
  1304.  echo sysgen/stuff.h 1>&2
  1305. cat >sysgen/stuff.h <<'End of sysgen/stuff.h'
  1306. #include <stdio.h>
  1307. #include <ctype.h>
  1308. #include "const.h"
  1309. #include "types.h"
  1310. #include "glob.h"
  1311. End of sysgen/stuff.h
  1312.  echo sysgen/sub.c 1>&2
  1313. cat >sysgen/sub.c <<'End of sysgen/sub.c'
  1314. #include "stuff.h"
  1315.  
  1316. sub(s)
  1317. SYSDATA *s;
  1318. {
  1319. PLANDATA *p;
  1320. SATDATA *sat;
  1321. int sp;
  1322.  
  1323.     for (p=s->orb0; p; p=p->next)
  1324.     {
  1325.         if (!p->main && p->type!='L' && p->type!='S')
  1326.         {
  1327.             p->gov=die(1);
  1328.             if (mwgov==6) p->gov=6;
  1329.             if (mwgov>=7) p->gov+=2;
  1330.             if (p->pop==0) p->gov=0;
  1331.             p->law=die(1)-3+mwlaw;
  1332.             if (p->gov==0) p->law=0;
  1333.             p->tech=mwtech-1+facility(&p->notes,p->zone,p->size,p->atm,p->hyd,
  1334.                       p->pop,p->gov,p->law);
  1335.             if (p->pop==0) p->tech=0;
  1336.             sp=die(1);
  1337.             if (p->pop>=6) sp+=2;
  1338.             if (p->pop<2) sp-=2;
  1339.             if (sp<1) sp=1;
  1340.             if (sp>6) sp=6;
  1341.             if (p->pop>0) p->sport=spaceport[sp]; else p->sport='Y';
  1342.         }
  1343.         for (sat=p->sats; sat; sat=sat->next)
  1344.         {
  1345.             if (!sat->main)
  1346.             {
  1347.                 sat->gov=die(1);
  1348.                 if (mwgov==6) sat->gov=6;
  1349.                 if (mwgov>=7) sat->gov+=2;
  1350.                 if (sat->pop==0) sat->gov=0;
  1351.                 sat->law=die(1)-3+mwlaw;
  1352.                 if (sat->gov==0) sat->law=0;
  1353.                 sat->tech=mwtech-1+facility(&sat->notes,p->zone,sat->size,
  1354.                            sat->atm,sat->hyd,sat->pop,sat->gov,sat->law);
  1355.                 if (sat->pop==0) sat->tech=0;
  1356.                 sp=die(1);
  1357.                 if (sat->pop>=6) sp+=2;
  1358.                 if (sat->pop<2) sp-=2;
  1359.                 if (sp<1) sp=1;
  1360.                 if (sp>6) sp=6;
  1361.                 if (sat->pop>0) sat->sport=spaceport[sp]; else sat->sport='Y';
  1362.             }
  1363.         }
  1364.     }
  1365. }
  1366.  
  1367. facility(notes,zone,size,atm,hyd,pop,gov,law)
  1368. char **notes;
  1369. char zone;
  1370. {
  1371. int bonus; /* TL bonus for lab or base */
  1372.  
  1373.     bonus=0;
  1374.     if (zone=='H' && atm>=4 && atm<=9 && hyd>=4 && hyd<=8 && pop>=2)
  1375.         addstr(notes,"Farming");
  1376.     if (mwind && pop>=2)
  1377.         addstr(notes,"Mining");
  1378.     if (gov==6  && pop>=5)
  1379.         addstr(notes,"Colony");
  1380.     if ((die(2)+((mwtech>=10)?2:0)>=11) && mwtech>8 && pop>0)
  1381.     {
  1382.         addstr(notes,"Lab.");
  1383.         bonus=1;
  1384.     }
  1385.     if (die(2)+((mwpop>=8)?1:0)+((atm==mwatm)?2:0)+(base?1:0)>=12 && pop>0 &&
  1386.            !mwpoor)
  1387.     {
  1388.         addstr(notes,"Mil. Base");
  1389.         bonus=1;
  1390.     }
  1391.     return bonus;
  1392. }
  1393. End of sysgen/sub.c
  1394.  echo sysgen/support.c 1>&2
  1395. cat >sysgen/support.c <<'End of sysgen/support.c'
  1396. #include "stuff.h"
  1397. char *malloc(), *realloc(), *strcpy(), *strcat();
  1398.  
  1399. addstr(p,q)
  1400. char **p,*q;
  1401. {
  1402.     if (*p==NULL)
  1403.         *p=strcpy(malloc(strlen(q)+1),q);
  1404.     else
  1405.         *p=strcat(strcat(realloc(*p,strlen(*p)+strlen(q)+2)," "),q);
  1406. }
  1407.  
  1408. freeup(s)
  1409. SYSDATA *s;
  1410. {
  1411. PLANDATA *p;
  1412. SATDATA *sat;
  1413. char sp;
  1414.  
  1415.     sp='X';
  1416.     css->planet=NULL;
  1417.     css->sat=NULL;
  1418.     css->name=strcpy(malloc(strlen(s->name)+1),s->name);
  1419.     for (p=s->orb0; p; p=p->next)
  1420.     {
  1421.         for (sat=p->sats; sat; sat=sat->next)
  1422.             if (sat->main)
  1423.             {
  1424.                 css->sat=sat;
  1425.                 sp=sat->sport;
  1426.             }
  1427.             else
  1428.                 free(sat);
  1429.         if (p->main)
  1430.         {
  1431.             p->sats=NULL;
  1432.             css->planet=p;
  1433.             sp=p->sport;
  1434.         }
  1435.         else
  1436.             free(p);
  1437.     }
  1438.     css->next=(SUBDATA *)malloc(sizeof(SUBDATA));
  1439.     css=css->next;
  1440.     css->planet=NULL;
  1441.     css->sat=NULL;
  1442.     css->next=NULL;
  1443.     return sp;
  1444. }
  1445. End of sysgen/support.c
  1446.  echo sysgen/system.c 1>&2
  1447. cat >sysgen/system.c <<'End of sysgen/system.c'
  1448. #include "stuff.h"
  1449.  
  1450. syspres(fudge)
  1451. {
  1452.     if (die(1)+fudge>=4)
  1453.         return 1;
  1454.     else
  1455.         return 0;
  1456. }
  1457.  
  1458. char sysnat()
  1459. {
  1460.     return nature[die(2)+natDM];
  1461. }
  1462.  
  1463. char stype(f)
  1464. {
  1465.     if (f==0)
  1466.         return ptypet[die(2)+typeDM];
  1467.     else
  1468.         return ctypet[die(2)+typeDM];
  1469. }
  1470.  
  1471. ssize(f,t)
  1472. char t;
  1473. {
  1474. int s;
  1475.  
  1476.     if (f==0)
  1477.         s=psizet[die(2)+sizeDM];
  1478.     else
  1479.         s=csizet[die(2)+sizeDM];
  1480.     if (s==4 && (t=='K' || t=='M'))
  1481.         s=5;
  1482.     if (s==6 && (t=='B' || t=='A' || t=='F'))
  1483.         s=5;
  1484.     return s;
  1485. }
  1486.  
  1487. nbrorbs(s,t)
  1488. char t;
  1489. {
  1490. int o;
  1491.  
  1492.     o=die(2);
  1493.     if (s==3) o+=4;
  1494.     if (s<=2) o+=8;
  1495.     if (t=='M') o-=4;
  1496.     if (t=='K') o-=2;
  1497.     if (o<1) o=1;
  1498.     return o;
  1499. }
  1500. End of sysgen/system.c
  1501.  echo sysgen/types.h 1>&2
  1502. cat >sysgen/types.h <<'End of sysgen/types.h'
  1503. typedef struct factors {
  1504.     int cloud;
  1505.     int albedo;
  1506.     int green;
  1507.     int land;
  1508.     int water;
  1509.     int ice;
  1510.     int temp;
  1511.     int tilt;
  1512.     int ecc;
  1513. } FACDATA;
  1514.  
  1515. typedef struct subsector {
  1516.     int x;
  1517.     int y;
  1518.     struct planet *planet;
  1519.     struct sat *sat;
  1520.     char *name;
  1521.     struct subsector *next;
  1522. } SUBDATA;
  1523.  
  1524. typedef struct system {
  1525.     char name[20];
  1526.     char nature;
  1527.     char ptype;
  1528.     int pdec;
  1529.     int psize;
  1530.     char ctype;
  1531.     int cdec;
  1532.     int csize;
  1533.     int orbits;
  1534.     int free;
  1535.     int gg;
  1536.     char *notes;
  1537.     struct planet *orb0;
  1538. } SYSDATA;
  1539.  
  1540. typedef struct planet {
  1541.     char name[20];
  1542.     int orbit;
  1543.     char zone;
  1544.     char type;
  1545.     int capt;
  1546.     char sport;
  1547.     int size;
  1548.     int atm;
  1549.     int hyd;
  1550.     int pop;
  1551.     int gov;
  1552.     int law;
  1553.     int tech;
  1554.     int main;
  1555.     char *notes;
  1556.     struct sat *sats;
  1557.     struct planet *next;
  1558. } PLANDATA;
  1559.  
  1560. typedef struct sat {
  1561.     char name[20];
  1562.     int orbit;
  1563.     char sport;
  1564.     int size;
  1565.     int atm;
  1566.     int hyd;
  1567.     int pop;
  1568.     int gov;
  1569.     int law;
  1570.     int tech;
  1571.     int main;
  1572.     char *notes;
  1573.     struct sat *next;
  1574. } SATDATA;
  1575. End of sysgen/types.h
  1576.  echo sysprint/Makefile 1>&2
  1577. cat >sysprint/Makefile <<'End of sysprint/Makefile'
  1578. all: trmult
  1579.  
  1580. trmult: trmult.o
  1581.     cc -o trmult trmult.o
  1582. End of sysprint/Makefile
  1583.  echo sysprint/mass 1>&2
  1584. cat >sysprint/mass <<'End of sysprint/mass'
  1585. trmult 4 4 stars.ps m1[3456]00 m900 m1[012]00 m[5678]00 m[1234]00
  1586. End of sysprint/mass
  1587.  echo sysprint/stars.ps 1>&2
  1588. cat >sysprint/stars.ps <<'End of sysprint/stars.ps'
  1589. /incx { 126 } def
  1590. /incy {  72 } def
  1591. /offset { 15 } def
  1592. /coffset { 35 } def
  1593. /stdfont { /Times-Roman findfont } def
  1594. /add36 { 36 sub } def
  1595. /setgrey { setgray } def
  1596. /grey4 { 0.1 setgrey 6 setlinewidth} def
  1597. /black1 {0 setgrey 1 setlinewidth} def
  1598. /grid {            % - GRID -
  1599. -21  36 rmoveto
  1600. -21 -36 rlineto
  1601.  21 -36 rlineto
  1602.  42   0 rlineto
  1603.  21  36 rlineto
  1604. -21  36 rlineto
  1605.  21 -36 rmoveto
  1606.  42   0 rlineto
  1607. } def
  1608. /top {            % - TOP -
  1609. -21  36 rmoveto
  1610.  42   0 rlineto
  1611. } def
  1612. /right {        % - RIGHT -
  1613.  84   0 rmoveto
  1614.  21 -36 rlineto
  1615. -21 -36 rlineto
  1616. } def
  1617. /bottom {        % - BOTTOM -
  1618.  21 -36 rmoveto
  1619.  21 -36 rlineto
  1620.  42   0 rlineto
  1621.  21  36 rlineto
  1622. } def
  1623. /coords {        % string COORDS -
  1624.   0 24 rmoveto
  1625.   dup            % duplicate string
  1626.   stringwidth
  1627.   pop
  1628.   2 div neg
  1629.   0
  1630.   rmoveto
  1631.   show            % second copy of string
  1632. } def
  1633. /starport {        % string STARPORT -
  1634.   dup
  1635.   stringwidth
  1636.   offset add exch
  1637.   2 div neg exch
  1638.   rmoveto
  1639.   show
  1640. } def
  1641. /name {            % string NAME -
  1642.   dup
  1643.   stringwidth
  1644.   pop offset neg exch
  1645.   2 div neg exch
  1646.   rmoveto
  1647.   show
  1648. } def
  1649. /conv2 {            % x (0:7) y (0:9) CONV2 x (minx:maxx) y (miny:maxy)
  1650.   9 exch sub    % 9-y
  1651.   incy mul        % (9-y)*incy
  1652.   miny add        % (9-y)*incy+miny
  1653.   exch            % stack: y x
  1654.   dup            % dup to give us second value for test
  1655.   2 mod 0 ne    % test for even column
  1656.   exch            % stack: y bool x
  1657.   incx 2 div mul% x*incx
  1658.   minx add        % x*incx+minx
  1659.   3 1 roll        % stack: x y bool
  1660.   {add36} if    % make y correction
  1661. } def
  1662. /conv {                % x (0:7) y (0:9) CONV -
  1663.   conv2
  1664.   moveto
  1665. } def
  1666. /pname {        % string x y PNAME -
  1667.   conv
  1668.   name
  1669. } def
  1670. /pport {        % string x y PNAME -
  1671.   conv
  1672.   starport
  1673. } def
  1674. /ccord {        % string x y CCORD -
  1675.   conv
  1676.   coords
  1677. } def
  1678. /route {        % x y x y ROUTE -
  1679.   4 setlinewidth
  1680.   conv
  1681.   conv2
  1682.   lineto
  1683.   stroke
  1684. } def
  1685. /Nbord {        % 0 Nbord -
  1686.   pop
  1687.   -21 36 rmoveto
  1688.   42 0 rlineto
  1689.   grey4
  1690.   stroke
  1691.   black1
  1692. } def
  1693. /NEbord {        % - NEbord -
  1694.   21 36 rmoveto
  1695.   21 -36 rlineto
  1696.   grey4
  1697.   stroke
  1698.   black1
  1699. } def
  1700. /SEbord {        % - SEbord -
  1701.   42 0 rmoveto
  1702.   -21 -36 rlineto
  1703.   grey4
  1704.   stroke
  1705.   black1
  1706. } def
  1707. /NSEbord {        % side NSEBORD -
  1708.   1 eq {NEbord} {SEbord} ifelse
  1709. } def
  1710. /border {        % side x y BORDER -
  1711.   conv
  1712.   dup
  1713.   0 eq {Nbord} {NSEbord} ifelse
  1714. } def
  1715. /planet {        % x y PLANET -
  1716.   conv2
  1717.   2 copy
  1718.   moveto
  1719.   -6 -10 rmoveto
  1720.   stdfont 30 scalefont setfont
  1721.   1 setgray
  1722.   (\267) show
  1723.   moveto
  1724.   -4 -7 rmoveto
  1725.   stdfont 20 scalefont setfont
  1726.   0 setgray
  1727.   (\267) show
  1728.   stdfont 10 scalefont setfont
  1729. } def
  1730. /grid2 {        % horiz vert GRID2 horiz
  1731.   2 copy
  1732.   moveto
  1733.   grid
  1734.   pop
  1735. } def
  1736. /grid1 {        % horiz GRID1 -
  1737.   maxy incy neg miny {grid2} for
  1738.   dup
  1739.   maxy moveto top
  1740.   miny moveto bottom
  1741. } def
  1742. /dogrid {        % - DOGRID -
  1743.   minx incx maxx {grid1} for
  1744. } def
  1745. /right1 {        % horiz vert RIGHT1 horiz
  1746.   2 copy
  1747.   moveto
  1748.   right
  1749.   pop
  1750. } def
  1751. /doright {        % - DORIGHT -
  1752.   maxx
  1753.   maxy incy neg miny {right1} for
  1754.   pop
  1755. } def
  1756. End of sysprint/stars.ps
  1757.  echo sysprint/tr22 1>&2
  1758. cat >sysprint/tr22 <<'End of sysprint/tr22'
  1759. trmult 2 2 stars.ps m${1}00 m${2}00 m${3}00 m${4}00
  1760. End of sysprint/tr22
  1761.  echo sysprint/trconv 1>&2
  1762. cat >sysprint/trconv <<'End of sysprint/trconv'
  1763. trmult 1 1 stars.ps $*
  1764. End of sysprint/trconv
  1765.  echo sysprint/trmult.c 1>&2
  1766. cat >sysprint/trmult.c <<'End of sysprint/trmult.c'
  1767. #include <stdio.h>
  1768. #define MAX        80
  1769. #define MAXC    30
  1770.  
  1771. #define MAXX    396
  1772. #define MINX    18
  1773. #define MAXY    702
  1774. #define MINY    54
  1775. #define INCX    126
  1776. #define INCY    72
  1777.  
  1778. main(argc,argv)
  1779. char **argv;
  1780. {
  1781. char name[MAXC],sport[MAXC];
  1782. FILE *fp;
  1783. int c;
  1784. int x,y,dx,dy,xa[MAX],ya[MAX];
  1785. int i,k;
  1786. int xsiz,ysiz;
  1787. int xl,yl;
  1788.  
  1789.     if (argc<5)
  1790.     {
  1791.         fprintf(stderr,"Usage: %s x y psfile starsfile ...\n",argv[0]);
  1792.         exit(-1);
  1793.     }
  1794.     xsiz=atoi(argv[1]);
  1795.     ysiz=atoi(argv[2]);
  1796.     if (argc!=xsiz*ysiz+4)
  1797.     {
  1798.         fprintf(stderr,"You must specify %d stars files\n",xsiz*ysiz);
  1799.         exit(-1);
  1800.     }
  1801.     printf("36 36 translate\n");
  1802.     printf("1 %d div 1 %d div scale\n",xsiz,ysiz);
  1803.     printf("/maxx { %d } def\n",MAXX);
  1804.     printf("/minx { %d } def\n",MINX);
  1805.     printf("/maxy { %d } def\n",MAXY);
  1806.     printf("/miny { %d } def\n",MINY);
  1807.     if (!(fp=fopen(argv[3],"r")))
  1808.     {
  1809.         fprintf(stderr,"Could not open %s\n",argv[3]);
  1810.         exit(-1);
  1811.     }
  1812.     printf("36 36 translate\n");
  1813.     while ((c=getc(fp))!=EOF)
  1814.         putchar(c);
  1815.     fclose(fp);
  1816.     for (yl=0,argv+=4;yl<ysiz;yl++)
  1817.     {
  1818.         if (yl!=0) printf("%d %d translate\n",(1-xsiz)*(MAXX-MINX+INCX),MAXY-MINY+INCY);
  1819.         for (xl=0;xl<xsiz;xl++,argv++)
  1820.         {
  1821.             if (xl!=0) printf("%d 0 translate\n",MAXX-MINX+INCX);
  1822.             printf("stdfont 10 scalefont setfont\n");
  1823.             printf("dogrid\n");
  1824.             printf("doright\n");
  1825.             printf("1 setlinewidth\n");
  1826.             printf("stroke\n");
  1827.             if (!(fp=fopen(*argv,"r")))
  1828.             {
  1829.                 fprintf(stderr,"Could not open %s\n",*argv);
  1830.                 exit(-1);
  1831.             }
  1832.             for (i=0;;i++)
  1833.             {
  1834.                 if ((c=fscanf(fp,"%d",&x))!=1)
  1835.                 {
  1836.                     if (c==EOF)
  1837.                         break;
  1838.                     fprintf(stderr,"Data Format Error! File %s Line %d\n",*argv,i);
  1839.                     exit(-1);
  1840.                 }
  1841.                 if (x==99)
  1842.                     break;
  1843.                 if ((c=fscanf(fp,"%d %s %s",&y,name,sport))!=3)
  1844.                 {
  1845.                     fprintf(stderr,"Data Format Error! File %s Line %d\n",*argv,i);
  1846.                     exit(-1);
  1847.                 }
  1848.                 xa[i]=x;
  1849.                 ya[i]=y;
  1850.                 printf("(%s) %d %d pname\n",name,x,y);
  1851.                 printf("(%s) %d %d pport\n",sport,x,y);
  1852.             }
  1853.             for (k=i++;;i++)
  1854.             {
  1855.                 if ((c=fscanf(fp,"%d",&x))!=1)
  1856.                 {    
  1857.                     if (c==EOF)
  1858.                         break;
  1859.                     fprintf(stderr,"Border Format Error! Line %d\n",i);
  1860.                     exit(-1);
  1861.                 }
  1862.                 if (x==99)
  1863.                     break;
  1864.                 if ((c=fscanf(fp,"%d %d",&y,&dx))!=2)
  1865.                 {
  1866.                     fprintf(stderr,"Border Format Error! Line %d\n",i);
  1867.                     exit (-1);
  1868.                 }
  1869.                 printf("%d %d %d border\n",dx,x-1,y-1);
  1870.             }
  1871.             for (i++;;i++)
  1872.             {
  1873.                 if ((c=fscanf(fp,"%d",&x))!=1)
  1874.                 {
  1875.                     if (c==EOF)
  1876.                         break;
  1877.                     fprintf(stderr,"Route Format Error! Line %d\n",i);
  1878.                     exit(-1);
  1879.                 }
  1880.                 if (x==99)
  1881.                     break;
  1882.                 if ((c=fscanf(fp,"%d %d %d",&y,&dx,&dy))!=3)
  1883.                 {
  1884.                     fprintf(stderr,"Route Format Error! File %s Line %d\n",*argv,i);
  1885.                     exit(-1);
  1886.                 }
  1887.                 printf("%d %d %d %d route\n",x-1,y-1,dx-1,dy-1);
  1888.             }
  1889.             for (i=0;i<k;i++)
  1890.                 printf("%d %d planet\n",xa[i],ya[i]);
  1891.             for (k=0;k<10;k++)
  1892.                 for (i=0;i<8;i++)
  1893.                     printf("(%02d%02d) %d %d ccord\n",i+1,k+1,i,k);
  1894.         }
  1895.     }
  1896.     printf("showpage\n");
  1897. }
  1898. End of sysprint/trmult.c
  1899.  echo sysprint/ts 1>&2
  1900. cat >sysprint/ts <<'End of sysprint/ts'
  1901. #Csh
  1902. foreach i (`nbrs $1 $2 $3`)
  1903.     st -m $i >m$i
  1904. end
  1905. End of sysprint/ts
  1906.  
  1907.  
  1908.