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