home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume10 / gb3 / patch2d / patches02a
Text File  |  1990-08-28  |  54KB  |  1,781 lines
  1. *** /usr/cna/billr/games/gb3/README    Fri Jun  1 11:52:49 1990
  2. --- README    Thu Aug 23 14:00:15 1990
  3. ***************
  4. *** 32,38 ****
  5.   then tells the server to do an update. The default update time is 4 hours, 
  6.   but you can change that with 'GB_daemon <hours between updates>'. It is a 
  7.   good idea to make your update times a factor of 24 hours. If you want to
  8. ! force an update just do 'GB_doturn' by itself.
  9.   
  10.   Players cannot enroll by themselves in this version. The game's host
  11.   must do that by running 'GB_enroll' and following the instructions. It
  12. --- 32,38 ----
  13.   then tells the server to do an update. The default update time is 4 hours, 
  14.   but you can change that with 'GB_daemon <hours between updates>'. It is a 
  15.   good idea to make your update times a factor of 24 hours. If you want to
  16. ! force an update just telnet to the server and enter the update password.
  17.   
  18.   Players cannot enroll by themselves in this version. The game's host
  19.   must do that by running 'GB_enroll' and following the instructions. It
  20. ***************
  21. *** 71,73 ****
  22. --- 71,81 ----
  23.   Bill Randle
  24.   billr@saab.CNA.TEK.COM
  25.   6/1/90
  26. + 
  27. + 
  28. + Patchlevel 2 reflects the changes necessary to bring this version up
  29. + to level 1.3.1 client and level 2.2.3 server.
  30. + 
  31. + Bill Randle
  32. + billr@saab.CNA.TEK.COM
  33. + 8/24/90
  34. *** /usr/cna/billr/games/gb3/README_ORIG    Wed May 30 15:10:28 1990
  35. --- README_ORIG    Wed Aug 22 11:42:01 1990
  36. ***************
  37. *** 1,3 ****
  38. --- 1,6 ----
  39. + (Note: This is the README which came along with GB .975 in April 1989 -
  40. +     It is currently outdated and is included for historical interest only - G.vC)
  41. + 
  42.   
  43.       This is a game of interstellar exploration/conquest.  By the time I
  44.   realized there really wasn't going to be much fighting going on in the game, I
  45. *** /usr/cna/billr/games/gb3/server/GB_server.c    Thu May 31 10:10:25 1990
  46. --- server/GB_server.c    Fri Aug 24 15:02:35 1990
  47. ***************
  48. *** 45,51 ****
  49.   #include <netinet/in.h>
  50.   #include <netdb.h>
  51.   
  52. ! /*#include <time.h>    /* included by <sys/time.h> with bsd */
  53.   #include <sys/timeb.h>
  54.   
  55.   #include <curses.h>
  56. --- 45,51 ----
  57.   #include <netinet/in.h>
  58.   #include <netdb.h>
  59.   
  60. ! /*#include <time.h>*/
  61.   #include <sys/timeb.h>
  62.   
  63.   #include <curses.h>
  64. ***************
  65. *** 84,94 ****
  66.   char start_buf[128];
  67.   char update_buf[128];
  68.   
  69. ! static const char *connect_fail = "Connection refused.\n";
  70. ! static const char *create_fail = "Connection refused.\n";
  71. ! static const char *flushed_message = "<Output Flushed>\n";
  72. ! static const char *shutdown_message = "Shutdown ordered by deity - Bye\n";
  73. ! static const char *already_on = "Connection refused.\n";
  74.   
  75.   int errno;
  76.   
  77. --- 84,93 ----
  78.   char start_buf[128];
  79.   char update_buf[128];
  80.   
  81. ! static char *connect_fail = "Connection refused.\n";
  82. ! static char *flushed_message = "<Output Flushed>\n";
  83. ! static char *shutdown_message = "Shutdown ordered by deity - Bye\n";
  84. ! static char *already_on = "Connection refused.\n";
  85.   
  86.   int errno;
  87.   
  88. ***************
  89. *** 134,140 ****
  90.   void welcome_user();
  91.   void check_connect();
  92.   void close_sockets();
  93. ! const char *addrout ();
  94.   void dump_users();
  95.   void set_signals();
  96.   struct descriptor_data *new_connection();
  97. --- 133,139 ----
  98.   void welcome_user();
  99.   void check_connect();
  100.   void close_sockets();
  101. ! char *addrout ();
  102.   void dump_users();
  103.   void set_signals();
  104.   struct descriptor_data *new_connection();
  105. ***************
  106. *** 180,187 ****
  107.   {
  108.   int maim_stardata, s; 
  109.   int i, j, dummy;
  110. - #ifdef BSD4_2
  111.   char zone[16];
  112.   struct timeval tp;
  113.   struct timezone tzp;
  114.   #endif
  115. --- 179,186 ----
  116.   {
  117.   int maim_stardata, s; 
  118.   int i, j, dummy;
  119.   char zone[16];
  120. + #ifdef BSD4_2
  121.   struct timeval tp;
  122.   struct timezone tzp;
  123.   #endif
  124. ***************
  125. *** 222,260 ****
  126.       }
  127.       Putblock(Blocks);
  128.   
  129. ! Num_races = Numraces();
  130. ! /* compute alliance block power */
  131. ! sprintf(Power_blocks.time, "%2d/%2d/%d %02d:%02d:%02d %s", 
  132. !     current_tm->tm_mon+1, current_tm->tm_mday,
  133. !     current_tm->tm_year, current_tm->tm_hour,
  134. !     current_tm->tm_min, current_tm->tm_sec, zone);
  135. !  for (i=1; i<=Num_races; i++) {
  136. !     dummy=(Blocks[i-1].invite & Blocks[i-1].pledge);
  137. !                 Power_blocks.members[i-1] = 0;
  138. !                 Power_blocks.sectors_owned[i-1] = 0;
  139. !                 Power_blocks.popn[i-1] = 0;
  140. !                 Power_blocks.ships_owned[i-1] = 0;
  141. !                 Power_blocks.planets_owned[i-1] = 0;
  142. !                 Power_blocks.resource[i-1] = 0;
  143. !                 Power_blocks.fuel[i-1] = 0;
  144. !                 Power_blocks.destruct[i-1] = 0;
  145. !                 Power_blocks.VPs[i-1] = 0;
  146. !     for(j=1; j<=Num_races; j++) 
  147. !             if(isset(dummy, j)){
  148. !                 Power_blocks.members[i-1] += 1;
  149. !                 Power_blocks.sectors_owned[i-1] += Power[j-1].sectors_owned;
  150. !                 Power_blocks.popn[i-1] += Power[j-1].popn;
  151. !                 Power_blocks.ships_owned[i-1] += Power[j-1].ships_owned;
  152. !                 Power_blocks.planets_owned[i-1] += Power[j-1].planets_owned;
  153. !                 Power_blocks.resource[i-1] += Power[j-1].resource;
  154. !                 Power_blocks.fuel[i-1] += Power[j-1].fuel;
  155. !                 Power_blocks.destruct[i-1] += Power[j-1].destruct;
  156. !                 Power_blocks.VPs[i-1] += Blocks[j-1].VPs;
  157. !             }
  158. !     }
  159.   
  160. - 
  161. - 
  162.       shovechars (argc==1 ? GB_PORT : atoi (argv[1]) );
  163.       close_sockets ();
  164.   printf("Going down.\n");
  165. --- 221,228 ----
  166.       }
  167.       Putblock(Blocks);
  168.   
  169. ! compute_power_blocks();
  170.   
  171.       shovechars (argc==1 ? GB_PORT : atoi (argv[1]) );
  172.       close_sockets ();
  173.   printf("Going down.\n");
  174. ***************
  175. *** 363,369 ****
  176. --- 331,339 ----
  177.           return;
  178.           }
  179.       } else {
  180. + 
  181.           (void) time (&now);
  182. + 
  183.           if (FD_ISSET (sock, &input_set)) {
  184.           if (!(newd = new_connection (sock))) {
  185.               if (errno != EINTR && errno != EMFILE) {
  186. ***************
  187. *** 375,384 ****
  188.               maxd = newd->descriptor + 1;
  189.           }
  190.           }
  191.           for (d = descriptor_list; d; d = dnext) {
  192.           dnext = d->next;
  193.           if (FD_ISSET (d->descriptor, &input_set)) {
  194. !             d->last_time = now;
  195.               if (!process_input (d)) {
  196.                   shutdownsock (d);
  197.                   continue;
  198. --- 345,355 ----
  199.               maxd = newd->descriptor + 1;
  200.           }
  201.           }
  202. + 
  203.           for (d = descriptor_list; d; d = dnext) {
  204.           dnext = d->next;
  205.           if (FD_ISSET (d->descriptor, &input_set)) {
  206. ! /*            d->last_time = now; */
  207.               if (!process_input (d)) {
  208.                   shutdownsock (d);
  209.                   continue;
  210. ***************
  211. *** 390,395 ****
  212. --- 361,367 ----
  213.               }
  214.           }
  215.           }
  216. + 
  217.       }
  218.       }
  219.   }
  220. ***************
  221. *** 460,466 ****
  222.       }
  223.   }
  224.   
  225. ! const char *addrout(a)
  226.   long a;
  227.   {
  228.       static char outbuf[1024];
  229. --- 432,438 ----
  230.       }
  231.   }
  232.   
  233. ! char *addrout(a)
  234.   long a;
  235.   {
  236.       static char outbuf[1024];
  237. ***************
  238. *** 536,542 ****
  239.   }
  240.   
  241.   struct text_block *make_text_block(s, n)
  242. ! const char *s;
  243.   int n;
  244.   {
  245.       struct text_block *p;
  246. --- 508,514 ----
  247.   }
  248.   
  249.   struct text_block *make_text_block(s, n)
  250. ! char *s;
  251.   int n;
  252.   {
  253.       struct text_block *p;
  254. ***************
  255. *** 559,565 ****
  256.   
  257.   void add_to_queue(q, b, n)
  258.   struct text_queue *q;
  259. ! const char *b;
  260.   int n;
  261.   {
  262.       struct text_block *p;
  263. --- 531,537 ----
  264.   
  265.   void add_to_queue(q, b, n)
  266.   struct text_queue *q;
  267. ! char *b;
  268.   int n;
  269.   {
  270.       struct text_block *p;
  271. ***************
  272. *** 598,604 ****
  273.   
  274.   int queue_write(d, b, n)
  275.   struct descriptor_data *d;
  276. ! const char *b;
  277.   int n;
  278.   {
  279.       int space;
  280. --- 570,576 ----
  281.   
  282.   int queue_write(d, b, n)
  283.   struct descriptor_data *d;
  284. ! char *b;
  285.   int n;
  286.   {
  287.       int space;
  288. ***************
  289. *** 613,619 ****
  290.   
  291.   int queue_string(d, s)
  292.   struct descriptor_data *d;
  293. ! const char *s;
  294.   {
  295.       return queue_write (d, s, strlen (s));
  296.   }
  297. --- 585,591 ----
  298.   
  299.   int queue_string(d, s)
  300.   struct descriptor_data *d;
  301. ! char *s;
  302.   {
  303.       return queue_write (d, s, strlen (s));
  304.   }
  305. ***************
  306. *** 646,651 ****
  307. --- 618,632 ----
  308.       return 1;
  309.   }
  310.   
  311. + void force_output()
  312. + {
  313. +     struct descriptor_data *d;
  314. + 
  315. +     for (d = descriptor_list; d; d = d->next)
  316. +         if (d->connected)
  317. +             process_output(d);
  318. + }
  319. + 
  320.   void make_nonblocking(s)
  321.   int s;
  322.   {
  323. ***************
  324. *** 723,733 ****
  325.   void goodbye_user(d)
  326.   struct descriptor_data *d;
  327.   {
  328.       write (d->descriptor, LEAVE_MESSAGE, strlen (LEAVE_MESSAGE));
  329.   }
  330.   
  331.   char *strsave (s)
  332. ! const char *s;
  333.   {
  334.       char *p;
  335.   
  336. --- 704,715 ----
  337.   void goodbye_user(d)
  338.   struct descriptor_data *d;
  339.   {
  340. + if(d->connected) /* this can happen, especially after updates */
  341.       write (d->descriptor, LEAVE_MESSAGE, strlen (LEAVE_MESSAGE));
  342.   }
  343.   
  344.   char *strsave (s)
  345. ! char *s;
  346.   {
  347.       char *p;
  348.   
  349. ***************
  350. *** 740,746 ****
  351.   
  352.   void save_command (d, command)
  353.   struct descriptor_data *d;
  354. ! const char *command;
  355.   
  356.   {
  357.       add_to_queue (&d->input, command, strlen(command)+1);
  358. --- 722,728 ----
  359.   
  360.   void save_command (d, command)
  361.   struct descriptor_data *d;
  362. ! char *command;
  363.   
  364.   {
  365.       add_to_queue (&d->input, command, strlen(command)+1);
  366. ***************
  367. *** 783,789 ****
  368.   
  369.   void set_userstring (userstring, command)
  370.   char **userstring;
  371. ! const char *command;
  372.   {
  373.       if (*userstring) {
  374.       free(*userstring);
  375. --- 765,771 ----
  376.   
  377.   void set_userstring (userstring, command)
  378.   char **userstring;
  379. ! char *command;
  380.   {
  381.       if (*userstring) {
  382.       free(*userstring);
  383. ***************
  384. *** 795,810 ****
  385.       *userstring = strsave (command);
  386.   }
  387.   
  388. - #ifdef __STDC__
  389. - void process_commands(void)
  390. - #else
  391.   void process_commands()
  392. - #endif
  393.   {
  394.       int nprocessed;
  395.       struct descriptor_data *d, *dnext;
  396.       struct text_block *t;
  397.   
  398.       do {
  399.       nprocessed = 0;
  400.       for (d = descriptor_list; d; d = dnext) {
  401. --- 777,792 ----
  402.       *userstring = strsave (command);
  403.   }
  404.   
  405.   void process_commands()
  406.   {
  407.       int nprocessed;
  408. +     long now;
  409.       struct descriptor_data *d, *dnext;
  410.       struct text_block *t;
  411.   
  412. + 
  413. +     (void) time (&now);
  414. + 
  415.       do {
  416.       nprocessed = 0;
  417.       for (d = descriptor_list; d; d = dnext) {
  418. ***************
  419. *** 816,825 ****
  420. --- 798,809 ----
  421.           if (!do_command (d, t -> start)) {
  422.               shutdownsock (d);
  423.           } else {
  424. +             d->last_time = now;    /* experimental code */
  425.               d -> input.head = t -> nxt;
  426.               if (!d -> input.head)
  427.               d -> input.tail = &d -> input.head;
  428.               free_text_block (t);
  429. +             d->last_time = now;    /* experimental code */
  430.           }
  431.   
  432.           }
  433. ***************
  434. *** 860,873 ****
  435.       if(d->connected) {
  436.   
  437.       openracedata(&server_racedata);
  438. !           getrace(server_racedata, &r, d->Playernum);
  439.       close_file(server_racedata);
  440.   
  441. !          sprintf(buf, "%s (%d) logged out.\n", r->name, d->Playernum);
  442.           for(i=1; i<=Numraces(); i++)
  443.           if(!Dir[i-1].gag)
  444.                         notify(i, buf);
  445. !             }
  446.       goodbye_user (d);
  447.       return 0;
  448.       } else if (!strcmp (args[0], WHO_COMMAND)) {
  449. --- 844,858 ----
  450.       if(d->connected) {
  451.   
  452.       openracedata(&server_racedata);
  453. !     getrace(server_racedata, &r, (int)d->Playernum);
  454.       close_file(server_racedata);
  455.   
  456. !          sprintf(buf, "%s [%d] logged out.\n", r->name, d->Playernum);
  457.           for(i=1; i<=Numraces(); i++)
  458.           if(!Dir[i-1].gag)
  459.                         notify(i, buf);
  460. !     free(r);
  461. !     }
  462.       goodbye_user (d);
  463.       return 0;
  464.       } else if (!strcmp (args[0], WHO_COMMAND)) {
  465. ***************
  466. *** 889,909 ****
  467.               }    
  468.       }
  469.       }
  470.       return 1;
  471.   }
  472.   
  473.   void check_connect (d, msg)
  474.   struct descriptor_data *d;
  475. ! const char *msg;
  476.   {
  477.       char password[MAX_COMMAND_LEN];
  478.       reg int i;
  479. !     int Playernum, Num_races;
  480.       racetype *r;
  481.       struct descriptor_data *d0, *dnext;
  482. - #ifdef BSD4_2
  483.       char zone[16];
  484. - #endif
  485.   
  486.       parse_connect (msg,  password);
  487.   
  488. --- 874,893 ----
  489.               }    
  490.       }
  491.       }
  492. + 
  493.       return 1;
  494.   }
  495.   
  496.   void check_connect (d, msg)
  497.   struct descriptor_data *d;
  498. ! char *msg;
  499.   {
  500.       char password[MAX_COMMAND_LEN];
  501.       reg int i;
  502. !     int Playernum, Num_races, racefile;
  503.       racetype *r;
  504.       struct descriptor_data *d0, *dnext;
  505.       char zone[16];
  506.   
  507.       parse_connect (msg,  password);
  508.   
  509. ***************
  510. *** 914,920 ****
  511.   for (i=1; i<=Num_races; i++)
  512.       notify(i, "DOING UPDATE...\n");
  513.   
  514. ! 
  515.       clk = time(0);
  516.       update_tm=localtime(&clk);
  517.   #ifdef BSD4_2
  518. --- 898,904 ----
  519.   for (i=1; i<=Num_races; i++)
  520.       notify(i, "DOING UPDATE...\n");
  521.   
  522. ! force_output();
  523.       clk = time(0);
  524.       update_tm=localtime(&clk);
  525.   #ifdef BSD4_2
  526. ***************
  527. *** 922,927 ****
  528. --- 906,925 ----
  529.   #else
  530.       strcpy(zone, update_tm->tm_zone);
  531.   #endif
  532. + 
  533. + /* if hour is 0, allocate daily login time */
  534. + if(!update_tm->tm_hour) {
  535. + openracedata(&racefile);
  536. +     for (i=1; i<=Num_races; i++) {
  537. +     getrace(racefile, &r, i);
  538. +     r->daily = DAILY*60;
  539. +     if(!(update_tm->tm_mday%7))
  540. +         r->weekly = WEEKLY*60;
  541. +     putrace(racefile, r);
  542. +     }
  543. + close_file(racefile);
  544. + }
  545. + 
  546.   sprintf(Power_blocks.time, "%2d/%2d/%d %02d:%02d:%02d %s", 
  547.       update_tm->tm_mon+1, update_tm->tm_mday,
  548.       update_tm->tm_year, update_tm->tm_hour,
  549. ***************
  550. *** 930,937 ****
  551.       update_tm->tm_mon+1, update_tm->tm_mday,
  552.       update_tm->tm_year, update_tm->tm_hour,
  553.       update_tm->tm_min, update_tm->tm_sec, zone);
  554. !     do_turn();
  555. !     return;
  556.       }
  557.   
  558.   
  559. --- 928,937 ----
  560.       update_tm->tm_mon+1, update_tm->tm_mday,
  561.       update_tm->tm_year, update_tm->tm_hour,
  562.       update_tm->tm_min, update_tm->tm_sec, zone);
  563. ! 
  564. !         do_turn();
  565. ! 
  566. ! return;
  567.       }
  568.   
  569.   
  570. ***************
  571. *** 944,950 ****
  572.       } else {
  573.   
  574.       openracedata(&server_racedata);
  575. !           getrace(server_racedata, &r, i);
  576.       close_file(server_racedata);
  577.   
  578.             Playernum = r->Playernum;
  579. --- 944,950 ----
  580.       } else {
  581.   
  582.       openracedata(&server_racedata);
  583. !     getrace(server_racedata, &r, (int)i);
  584.       close_file(server_racedata);
  585.   
  586.             Playernum = r->Playernum;
  587. ***************
  588. *** 958,976 ****
  589.           }
  590.       }
  591.   
  592. !         fprintf (stderr, "CONNECTED %s(%d) on descriptor %d\n",
  593.                r->name, Playernum, d->descriptor);
  594.           d->connected = 1;
  595.           d->Playernum = Playernum;
  596.   
  597. !         sprintf(buf,"\nLogged in as %s (%d).\n",r->name,Playernum);
  598.           notify(Playernum, buf);
  599.        
  600. !         sprintf(buf, "%s (%d) logged on.\n", r->name, Playernum);
  601.           for(i=1; i<=Numraces(); i++)
  602.                     if(i != Playernum && !Dir[i-1].gag) notify(i, buf);
  603.   
  604. !     GB_time(Playernum);
  605.       if (r->Gov_ship==0) {
  606.           sprintf(buf,"You have no Governmental Center.  No action points will be produced\nuntil you build one and designate a capital.\n");
  607.           notify(Playernum, buf);
  608. --- 958,977 ----
  609.           }
  610.       }
  611.   
  612. !         fprintf (stderr, "CONNECTED %s [%d] on descriptor %d\n",
  613.                r->name, Playernum, d->descriptor);
  614.           d->connected = 1;
  615.           d->Playernum = Playernum;
  616.   
  617. !         sprintf(buf,"\nLogged in as %s [%d].\n",r->name,Playernum);
  618.           notify(Playernum, buf);
  619.        
  620. !         sprintf(buf, "%s [%d] logged on.\n", r->name, Playernum);
  621.           for(i=1; i<=Numraces(); i++)
  622.                     if(i != Playernum && !Dir[i-1].gag) notify(i, buf);
  623.   
  624. !     GB_time(Playernum, r, 0);
  625. !     if(r->standby) notify(Playernum, "Standing by\n");
  626.       if (r->Gov_ship==0) {
  627.           sprintf(buf,"You have no Governmental Center.  No action points will be produced\nuntil you build one and designate a capital.\n");
  628.           notify(Playernum, buf);
  629. ***************
  630. *** 978,988 ****
  631.           sprintf(buf,"Government Center #%d is active.\n", r->Gov_ship);
  632.           notify(Playernum, buf);
  633.           }
  634. !     }
  635.   }
  636.   
  637.   void parse_connect (msg, pass)
  638. ! const char *msg;
  639.   char *pass;
  640.   {
  641.       char *p;
  642. --- 979,994 ----
  643.           sprintf(buf,"Government Center #%d is active.\n", r->Gov_ship);
  644.           notify(Playernum, buf);
  645.           }
  646. !     if(!r->daily) {
  647. !         notify(Playernum, "You have no daily active time left.\n");
  648. !         }
  649. ! 
  650. !     free(r);
  651. !     }
  652.   }
  653.   
  654.   void parse_connect (msg, pass)
  655. ! char *msg;
  656.   char *pass;
  657.   {
  658.       char *p;
  659. ***************
  660. *** 995,1005 ****
  661.       *p = '\0';
  662.   }
  663.   
  664. - #ifdef __STDC__
  665. - void close_sockets(void)
  666. - #else
  667.   void close_sockets()
  668. - #endif
  669.   {
  670.       struct descriptor_data *d, *dnext;
  671.   
  672. --- 1001,1007 ----
  673. ***************
  674. *** 1013,1034 ****
  675.       close (sock);
  676.   }
  677.   
  678. - #ifdef __STDC__
  679. - void emergency_shutdown(void)
  680. - #else
  681.   void emergency_shutdown()
  682. - #endif
  683.   {
  684.       close_sockets();
  685.   }
  686.   
  687. ! #ifdef __STDC__
  688. ! int bailout(int sig, int code, struct sigcontext *scp)
  689. ! #else
  690. ! int bailout(sig, code, scp)
  691. ! int sig, code;
  692.   struct sigcontext *scp;
  693. - #endif
  694.   {
  695.       char message[1024];
  696.       
  697. --- 1015,1029 ----
  698.       close (sock);
  699.   }
  700.   
  701.   void emergency_shutdown()
  702.   {
  703.       close_sockets();
  704.   }
  705.   
  706. ! int bailout(sig ,code,scp)
  707. ! int sig;
  708. ! int code;
  709.   struct sigcontext *scp;
  710.   {
  711.       char message[1024];
  712.       
  713. ***************
  714. *** 1038,1048 ****
  715.       return 0;
  716.   }
  717.   
  718. - #ifdef __STDC__
  719. - int dump_status(void)
  720. - #else
  721.   int dump_status()
  722. - #endif
  723.   {
  724.       struct descriptor_data *d;
  725.       long now;
  726. --- 1033,1039 ----
  727. ***************
  728. *** 1053,1061 ****
  729.   openracedata(&server_racedata);
  730.       for (d = descriptor_list; d; d = d->next) {
  731.       if (d->connected) {
  732. !         getrace(server_racedata, &r, d->Playernum);
  733.           fprintf (stderr, "PLAYING descriptor %d Playernum %s(%d)",
  734.                d->descriptor, r->name, d->Playernum);
  735.   
  736.           if (d->last_time)
  737.           fprintf (stderr, " idle %d seconds\n",
  738. --- 1044,1053 ----
  739.   openracedata(&server_racedata);
  740.       for (d = descriptor_list; d; d = d->next) {
  741.       if (d->connected) {
  742. !         getrace(server_racedata, &r, (int)d->Playernum);
  743.           fprintf (stderr, "PLAYING descriptor %d Playernum %s(%d)",
  744.                d->descriptor, r->name, d->Playernum);
  745. +         free(r);
  746.   
  747.           if (d->last_time)
  748.           fprintf (stderr, " idle %d seconds\n",
  749. ***************
  750. *** 1087,1120 ****
  751.   openracedata(&server_racedata);
  752.       for (d = descriptor_list; d; d = d->next) {
  753.       if (d->connected) {
  754. !         getrace(server_racedata, &r, d->Playernum);
  755.   
  756.           if (d->last_time)
  757. !         sprintf (buf, "%20s (%3d)     seconds idle %d\n", r->name, 
  758. !             d->Playernum, now - d->last_time);
  759.           else
  760. !         sprintf (buf, "%20s (%3d)     idle forever\n", r->name, d->Playernum);
  761.           queue_string (e, buf);
  762.       }
  763.       }
  764.   close_file(server_racedata);
  765.   }
  766.   
  767.   void process_command(Playernum, command) 
  768.   /* locate and parse the command for processing */
  769.   int Playernum;
  770.   char *command;
  771.   {
  772. ! int i,argn=0;
  773.   boolean parse_exit=0;
  774.   char args[MAXARGS][COMMANDSIZE];
  775.   char *string, *announcement, *dummy;
  776.   
  777. - openracedata(&server_racedata);
  778. - free(Race);
  779. - getrace(server_racedata, &Race, Playernum);
  780. - close_file(server_racedata);
  781. - 
  782.       string=command;    /* make pointers the same */
  783.   
  784.       while (!parse_exit) {
  785. --- 1079,1129 ----
  786.   openracedata(&server_racedata);
  787.       for (d = descriptor_list; d; d = d->next) {
  788.       if (d->connected) {
  789. !         getrace(server_racedata, &r, (int)d->Playernum);
  790.   
  791.           if (d->last_time)
  792. !         sprintf (buf, "%20s [%2d] [%d:%d] seconds idle %d %s %s\n", r->name, 
  793. !             d->Playernum, r->weekly/60, r->daily/60, now - d->last_time, (r->gag ? "GAG": ""),
  794. !             (r->standby ? "STAND BY" : ""));
  795.           else
  796. !         sprintf (buf, "%20s [%2d] idle forever\n", r->name, d->Playernum);
  797.           queue_string (e, buf);
  798. +         free(r);
  799. +         if((now - d->last_time) > DISCONNECT_TIME)
  800. +         d->connected = 0;
  801.       }
  802.       }
  803.   close_file(server_racedata);
  804.   }
  805.   
  806. + int daily_time(r)
  807. + racetype *r;
  808. + {
  809. +     struct descriptor_data *d;
  810. +     long now;
  811. +     int time_left;
  812. + 
  813. +     time_left = r->daily;
  814. +     
  815. +     (void) time (&now);
  816. +     for (d = descriptor_list; d; d = d->next)
  817. +     if (d->connected && d->last_time && (d->Playernum==r->Playernum)) {
  818. +         time_left = MAX(0, r->daily - (now - d->last_time));
  819. +     }
  820. +     return time_left;
  821. + }
  822. + 
  823.   void process_command(Playernum, command) 
  824.   /* locate and parse the command for processing */
  825.   int Playernum;
  826.   char *command;
  827.   {
  828. ! int i, j,argn=0, God, ok, old;
  829.   boolean parse_exit=0;
  830.   char args[MAXARGS][COMMANDSIZE];
  831.   char *string, *announcement, *dummy;
  832. + racetype *r;
  833.   
  834.       string=command;    /* make pointers the same */
  835.   
  836.       while (!parse_exit) {
  837. ***************
  838. *** 1138,1207 ****
  839.   /* target routine is specified by the first substring, other options 
  840.       are the substrings which follow */
  841.   
  842.           if (!strncmp(args[0],"announce",i))
  843.               announce(Playernum,0,argn,args, 0);
  844. !          else if (!strncmp(args[0],"allocate",i)) allocateAPs(Playernum,0, argn, args);
  845. !          else if (!strncmp(args[0],"assault",i)) land(Playernum,1,argn,args,1);
  846.       else if (!strncmp(args[0], "autoreport",i)) autoreport(Playernum, 0, argn, args);
  847. !     else if (!strncmp(args[0],"build",i)) build(Playernum,1,argn,args);
  848. !     else if (!strncmp(args[0], "broadcast", i)) announce(Playernum, 5*(!Race->God), argn, args, 1);
  849. !     else if (!strncmp(args[0], "block", i)) block(Playernum, 0, argn, args);
  850. !          else if (!strncmp(args[0],"capitol",i)) capitol(Playernum,50,argn,args);
  851. !          else if (!strncmp(args[0],"capture",i)) capture(Playernum,1,argn,args);
  852.       else if (!strncmp(args[0], "center", i)) center(Playernum, 0, argn, args);
  853.       else if (!strncmp(args[0],"cs",i)) cs(Playernum,0,argn,args);
  854. !     else if (!strncmp(args[0],"declare",i)) declare(Playernum,1,argn,args);
  855. !     else if (!strncmp(args[0],"dock",i)) land(Playernum,0,argn,args,0);
  856. !     else if (!strncmp(args[0],"enslave",i)) enslave(Playernum,2,argn,args);
  857. !     else if (!strncmp(args[0],"examine",i)) examine(Playernum,0,argn,args);
  858. !     else if (!strncmp(args[0],"explore",i)) exploration(Playernum,0,argn,args);
  859. !     else if (!strncmp(args[0],"fire",i)) fire(Playernum,1,argn,args);
  860. !     else if (!strncmp(args[0], "gag", i)) Dir[Playernum-1].gag = !Dir[Playernum-1].gag;
  861. !     else if (!strncmp(args[0],"give",i)) give(Playernum,5,argn,args);
  862.       else if (!strncmp(args[0], "identify", i)) whois(Playernum, 0, argn, args);
  863. !     else if (!strncmp(args[0], "invite", i)) invite(Playernum, 0, argn, args, 1);
  864. !     else if (!strncmp(args[0],"land",i)) land(Playernum,1,argn,args,0);
  865. !     else if (!strncmp(args[0],"launch",i)) launch(Playernum,1,argn,args);
  866. !     else if (!strncmp(args[0], "list", i) && Race->God) list(Playernum);
  867. !     else if (!strncmp(args[0],"load",i)) load(Playernum,0,argn,args);
  868. !     else if (!strncmp(args[0],"map",i)) map(Playernum,0,argn,args);
  869. !     else if (!strncmp(args[0],"mobilize",i)) mobilize(Playernum,1,argn,args);
  870. !     else if (!strncmp(args[0],"move",i)) move_popn(Playernum,1,argn,args);
  871. !     else if (!strncmp(args[0],"make", i)) make_mod(Playernum, 0, argn, args, 0);
  872. !     else if (!strncmp(args[0],"modify", i)) make_mod(Playernum, 0, argn, args, 1);
  873. !     else if (!strncmp(args[0],"name",i)) name(Playernum,1*(!Race->God),argn,args);
  874. !     else if (!strncmp(args[0],"object",i)) rst(Playernum,0,argn,args,4);
  875. !     else if (!strncmp(args[0],"orbit",i)) orbit(Playernum,0,argn,args);
  876. !     else if (!strncmp(args[0],"order",i)) order(Playernum,1,argn,args); 
  877. !     else if (!strncmp(args[0],"page",i)) page(Playernum, 1*(!Race->God), argn, args);
  878. !          else if (!strncmp(args[0],"colonies",i)) colonies(Playernum,0,argn,args);
  879. !     else if (!strncmp(args[0], "pledge", i)) pledge(Playernum, 0, argn, args, 1);
  880. !     else if (!strncmp(args[0],"power",i)) power(Playernum,0,argn,args);
  881. !     else if (!strncmp(args[0],"profile",i)) profile(Playernum,0,argn,args);
  882. !     else if (!strncmp(args[0],"relation",i)) relation(Playernum,0,argn,args);
  883.       else if (!strncmp(args[0],"read",i)) read_messages(Playernum,0,argn,args);
  884. !     else if (!strncmp(args[0],"reset", i) && Race->God) reload_star_data_base();
  885. !     else if (!strncmp(args[0],"report",i)) rst(Playernum,0,argn,args,0);
  886. !     else if (!strncmp(args[0],"@@shutdown",i) && Race->God) {
  887.           shutdown_flag = 1;
  888.           notify(Playernum, "Doing shutdown.\n");
  889. !     } else if (!strncmp(args[0],"stock",i)) rst(Playernum,0,argn,args,1);
  890. !     else if (!strncmp(args[0],"ship",i)) rst(Playernum,0,argn,args,3);
  891. !     else if (!strncmp(args[0],"survey",i)) survey(Playernum,0,argn,args);
  892. !     else if (!strncmp(args[0], "send", i)) send_message(Playernum, 1*(!Race->God), argn, args);
  893. !     else if (!strncmp(args[0],"scrap",i)) scrap(Playernum,1,argn,args);
  894. !     else if(!strncmp(args[0],"tactical",i)) rst(Playernum,0,argn,args,2);
  895. ! /*    else if (!strncmp(args[0],"telegram",i)) telegram(Playernum,0,argn,args); */
  896. !     else if(!strncmp(args[0],"technology",i)) technology(Playernum,1,argn,args);
  897.       else if (!strncmp(args[0],"toggle",i)) toggle(Playernum,0,argn,args);
  898. !     else if(!strncmp(args[0],"toxicity",i)) toxicity(Playernum,1,argn,args);
  899. !     else if (!strncmp(args[0],"transfer",i)) transfer(Playernum,1,argn,args);
  900. !     else if (!strncmp(args[0],"unload",i)) load(Playernum,0,argn,args);
  901. !     else if (!strncmp(args[0],"undock",i)) launch(Playernum,0,argn,args);
  902. !     else if (!strncmp(args[0], "uninvite", i)) invite(Playernum, 0, argn, args, 0); 
  903. !     else if (!strncmp(args[0], "unpledge", i)) pledge(Playernum, 0, argn, args, 0); 
  904. !         else if (!strncmp(args[0],"time",i)) GB_time(Playernum);
  905. !     else if (!strncmp(args[0],"zoom",i)) zoom(Playernum,0,argn,args);
  906.               /* only owning player can use fix */
  907.        else {
  908.              sprintf(buf,"'%s':illegal command error(%d).\n",args[0],*args[0]);
  909. --- 1147,1252 ----
  910.   /* target routine is specified by the first substring, other options 
  911.       are the substrings which follow */
  912.   
  913. + openracedata(&server_racedata);
  914. + getrace(server_racedata, &r, Playernum);
  915. + old = r->daily;
  916. + God = r->God;
  917. + if(!r->standby && r->daily) {
  918. +     r->daily = (short)daily_time(r);
  919. +     putrace(server_racedata, r);
  920. +     }
  921. + close_file(server_racedata);
  922. + 
  923. + ok = ((!r->standby && r->daily) || God);    /* whether or not the player can execture the command */
  924. + 
  925.           if (!strncmp(args[0],"announce",i))
  926.               announce(Playernum,0,argn,args, 0);
  927. !          else if (!strncmp(args[0],"allocate",i) && ok) allocateAPs(Playernum,0, argn, args);
  928. !          else if (!strncmp(args[0],"assault",i) && ok) dock(Playernum,1,argn,args,1);
  929.       else if (!strncmp(args[0], "autoreport",i)) autoreport(Playernum, 0, argn, args);
  930. !     else if (!strncmp(args[0],"build",i) && ok) build(Playernum,1,argn,args);
  931. !     else if (!strncmp(args[0], "'", i) || !strncmp(args[0], "broadcast", i)) announce(Playernum, 0, argn, args, 1);
  932. !     else if (!strncmp(args[0], "block", i) && ok) block(Playernum, 0, argn, args);
  933. !          else if (!strncmp(args[0],"capitol",i) && ok) capitol(Playernum,50,argn,args);
  934. !          else if (!strncmp(args[0],"capture",i) && ok) capture(Playernum,1,argn,args);
  935.       else if (!strncmp(args[0], "center", i)) center(Playernum, 0, argn, args);
  936.       else if (!strncmp(args[0],"cs",i)) cs(Playernum,0,argn,args);
  937. !     else if (!strncmp(args[0],"declare",i) && ok) declare(Playernum,1,argn,args);
  938. !     else if (!strncmp(args[0],"detonate",i) && ok) detonate(Playernum,0,argn,args);
  939. !     else if (!strncmp(args[0],"dismount", i) && ok) mount(Playernum, 0, argn, args, 0);
  940. !     else if (!strncmp(args[0], "dissolve", i)) dissolve(Playernum, argn, args);
  941. !     else if (!strncmp(args[0],"dock",i) && ok) dock(Playernum,0,argn,args,0);
  942. !     else if (!strncmp(args[0],"dump",i) && ok) dump(Playernum,10,argn,args,0);
  943. !     else if (!strncmp(args[0],"enslave",i) && ok) enslave(Playernum,2,argn,args);
  944. !     else if (!strncmp(args[0],"examine",i) && ok) examine(Playernum,0,argn,args);
  945. !     else if (!strncmp(args[0],"explore",i) && ok) exploration(Playernum,0,argn,args);
  946. !     else if (!strncmp(args[0],"fire",i) && ok) fire(Playernum,1,argn,args);
  947. !     else if (!strncmp(args[0],"give",i) && ok) give(Playernum,5,argn,args);
  948. !     else if (!strncmp(args[0], "highlight", i)) highlight(Playernum, 0, argn, args);
  949.       else if (!strncmp(args[0], "identify", i)) whois(Playernum, 0, argn, args);
  950. !     else if (!strncmp(args[0], "invite", i) && ok) invite(Playernum, 0, argn, args, 1);
  951. !     else if (!strncmp(args[0],"land",i) && ok) land(Playernum,1,argn,args);
  952. !     else if (!strncmp(args[0],"launch",i) && ok) launch(Playernum,1,argn,args);
  953. !     else if (!strncmp(args[0], "list", i) && God) list(Playernum);
  954. !     else if (!strncmp(args[0],"load",i) && ok) load(Playernum,0,argn,args, 0);
  955. !     else if (!strncmp(args[0],"map",i) && ok) map(Playernum,0,argn,args);
  956. !     else if (!strncmp(args[0],"mobilize",i) && ok) mobilize(Playernum,1,argn,args);
  957. !     else if (!strncmp(args[0],"move",i) && ok) move_popn(Playernum,1,argn,args);
  958. !     else if (!strncmp(args[0],"make", i) && ok) make_mod(Playernum, 0, argn, args, 0);
  959. !     else if (!strncmp(args[0],"modify", i) && ok) make_mod(Playernum, 0, argn, args, 1);
  960. !     else if (!strncmp(args[0],"mount", i) && ok) mount(Playernum, 0, argn, args, 1);
  961. !     else if (!strncmp(args[0],"motto", i) && ok) motto(Playernum, 0, argn, args);
  962. !     else if (!strncmp(args[0],"name",i) && ok) name(Playernum, !God,argn,args);
  963. !     else if (!strncmp(args[0],"orbit",i) && ok) orbit(Playernum,0,argn,args);
  964. !     else if (!strncmp(args[0],"order",i) && ok) order(Playernum,1,argn,args); 
  965. !     else if (!strncmp(args[0],"page",i)) page(Playernum, !God, argn, args);
  966. !          else if (!strncmp(args[0],"colonies",i) && ok) colonies(Playernum,0,argn,args);
  967. !     else if (!strncmp(args[0], "pledge", i) && ok) pledge(Playernum, 0, argn, args, 1);
  968. !     else if (!strncmp(args[0],"power",i) && ok) power(Playernum,0,argn,args);
  969. !     else if (!strncmp(args[0],"profile",i) && ok) profile(Playernum,0,argn,args);
  970. !     else if (!strncmp(args[0],"production", i) && ok) production(Playernum, 0, argn, args);
  971. !     else if (!strncmp(args[0],"relation",i) && ok) relation(Playernum,0,argn,args);
  972.       else if (!strncmp(args[0],"read",i)) read_messages(Playernum,0,argn,args);
  973. !     else if (!strncmp(args[0],"reset", i) && God) {
  974. !                 for (j=1; j<=Numraces(); j++)
  975. !                 notify(j, "DOING RESET...\n");
  976. !                 force_output();
  977. !             reload_star_data_base();
  978. !             do_reset();
  979. !             }
  980. !     else if (!strncmp(args[0],"report",i) && ok) rst(Playernum,0,argn,args,0);
  981. !     else if (!strncmp(args[0],"repair",i) && ok) repair(Playernum,0,argn,args);
  982. !     else if (!strncmp(args[0],"@@shutdown",i) && God) {
  983.           shutdown_flag = 1;
  984.           notify(Playernum, "Doing shutdown.\n");
  985. !     } else if (!strncmp(args[0],"stock",i) && ok) rst(Playernum,0,argn,args,1);
  986. !     else if (!strncmp(args[0], "standby", i)) {
  987. !         r->standby = !r->standby;
  988. !         openracedata(&server_racedata);
  989. !         putrace(server_racedata, r);
  990. !         close_file(server_racedata);
  991. !         if(r->standby) notify(Playernum, "Standing by\n");
  992. !         else notify(Playernum, "Returning to active status\n");
  993. !     } else if (!strncmp(args[0],"stats",i) && ok) rst(Playernum,0,argn,args,4);
  994. !     else if (!strncmp(args[0],"ship",i) && ok) rst(Playernum,0,argn,args,3);
  995. !     else if (!strncmp(args[0],"survey",i) && ok) survey(Playernum,0,argn,args);
  996. !     else if (!strncmp(args[0], "send", i)) send_message(Playernum, 1*(!God), argn, args);
  997. !     else if (!strncmp(args[0],"scrap",i) && ok) scrap(Playernum,1,argn,args);
  998. !     else if(!strncmp(args[0],"tactical",i) && ok) rst(Playernum,0,argn,args,2);
  999. !     else if(!strncmp(args[0],"technology",i) && ok) technology(Playernum,1,argn,args);
  1000.       else if (!strncmp(args[0],"toggle",i)) toggle(Playernum,0,argn,args);
  1001. !     else if(!strncmp(args[0],"toxicity",i) && ok) toxicity(Playernum,1,argn,args);
  1002. !     else if (!strncmp(args[0],"transfer",i) && ok) transfer(Playernum,1,argn,args);
  1003. !     else if (!strncmp(args[0],"unload",i) && ok) load(Playernum,0,argn,args, 1);
  1004. !     else if (!strncmp(args[0],"undock",i) && ok) launch(Playernum,0,argn,args);
  1005. !     else if (!strncmp(args[0], "uninvite", i) && ok) invite(Playernum, 0, argn, args, 0); 
  1006. !     else if (!strncmp(args[0], "unpledge", i) && ok) pledge(Playernum, 0, argn, args, 0); 
  1007. !         else if (!strncmp(args[0],"time",i)) {
  1008. !             int alloc;
  1009. !             if(argn > 1) alloc = atoi(args[1]);
  1010. !             else alloc = 0;
  1011. !             GB_time(Playernum, r, alloc);
  1012. !     } else if (!strncmp(args[0],"zoom",i)) zoom(Playernum,0,argn,args);
  1013.               /* only owning player can use fix */
  1014.        else {
  1015.              sprintf(buf,"'%s':illegal command error(%d).\n",args[0],*args[0]);
  1016. ***************
  1017. *** 1208,1221 ****
  1018.           notify(Playernum, buf);
  1019.           }
  1020.   
  1021. ! /* send the prompt to the player */
  1022. !     sprintf(buf, "%s", Dir[Playernum-1].prompt);
  1023.           notify(Playernum, buf);
  1024.   
  1025.   }
  1026.   
  1027.   void panic(message)
  1028. ! const char *message;
  1029.   {
  1030.       FILE *f;
  1031.       int i;
  1032. --- 1253,1272 ----
  1033.           notify(Playernum, buf);
  1034.           }
  1035.   
  1036. ! /* compute the prompt and send to the player */
  1037. ! do_prompt(r);
  1038. ! 
  1039. ! if(old && !r->daily)
  1040. !     notify(Playernum, "You're daily time allocation has run out!!!\n");
  1041. ! 
  1042. ! free(r);
  1043. ! sprintf(buf, "%s", Dir[Playernum-1].prompt);
  1044.           notify(Playernum, buf);
  1045.   
  1046.   }
  1047.   
  1048.   void panic(message)
  1049. ! char *message;
  1050.   {
  1051.       FILE *f;
  1052.       int i;
  1053. ***************
  1054. *** 1261,1273 ****
  1055.       strcat(s1, s2);
  1056.   }
  1057.   
  1058. ! GB_time(Playernum) /* report back the update status */
  1059.   int Playernum;
  1060.   {
  1061. - #ifdef BSD4_2
  1062.       char zone[16];
  1063. - #endif
  1064.   
  1065.       clk = time(0);
  1066.       current_tm=localtime(&clk);
  1067.   #ifdef BSD4_2
  1068. --- 1312,1325 ----
  1069.       strcat(s1, s2);
  1070.   }
  1071.   
  1072. ! GB_time(Playernum, r, alloc) /* report back the update status */
  1073.   int Playernum;
  1074. + racetype *r;
  1075. + int alloc;
  1076.   {
  1077.       char zone[16];
  1078.   
  1079. +     if(!alloc) {
  1080.       clk = time(0);
  1081.       current_tm=localtime(&clk);
  1082.   #ifdef BSD4_2
  1083. ***************
  1084. *** 1286,1291 ****
  1085. --- 1338,1359 ----
  1086.      notify(Playernum, "No updates since the server was started.\n");
  1087.       /* can happen if you have just started the game up */   
  1088.   notify(Playernum, start_buf);
  1089. + 
  1090. + sprintf(buf, "%d/%d weekly/daily minutes of active time remaining.\n", r->weekly/60, r->daily/60);
  1091. + notify(Playernum, buf);
  1092. +     } else if(alloc  > 0) {
  1093. +         printf("%d\n", alloc);
  1094. +         alloc = MIN(MIN(alloc*60, r->weekly), DAILY*60 - r->daily)/60;
  1095. +         r->weekly -= alloc*60;
  1096. +         r->daily += alloc*60;
  1097. +         sprintf(buf, "%d minutes of weekly allotment allocated.\n", alloc);
  1098. +         notify(Playernum, buf);
  1099. +     openracedata(&server_racedata);
  1100. +     putrace(server_racedata, r);
  1101. +     close_file(server_racedata);
  1102. +     } else {
  1103. +         notify(Playernum, "You can only allocate a positive number of minutes.\n");
  1104. +     }
  1105.   }
  1106.   
  1107.   help(e, argn,args)
  1108. ***************
  1109. *** 1299,1327 ****
  1110.       sprintf(buf,"usage: help [topic]\n");
  1111.           queue_string(e, buf);
  1112.       sprintf(buf,"    valid topics are:\n  CONCEPTS:\n%s",
  1113. !         "help     scope    actionpoints       explore    colony\n" );
  1114.           queue_string(e, buf);
  1115. !     sprintf(buf,"daemon   races     blocks     quit           info\n");
  1116.           queue_string(e, buf);
  1117.       sprintf(buf,"\n  COMMANDS:\n");
  1118.           queue_string(e, buf);
  1119. !     sprintf(buf,"cs       map      survey  orbit      zoom     autoreport\n");
  1120.           queue_string(e, buf);
  1121.       sprintf(buf,"toggle   gag      capitol  allocate\n\n");
  1122.           queue_string(e, buf);
  1123. !     sprintf(buf, "announce page    who    time    quit\n");
  1124.           queue_string(e, buf);
  1125. !     sprintf(buf,"build    ship     stock   report     tactical  order     examine\n");
  1126.           queue_string(e, buf);
  1127.       sprintf(buf,"land     launch   dock    undock     load      assault   scrap\n\n");
  1128.           queue_string(e, buf);
  1129. !     sprintf(buf,"assault  capture  fire    give       move       enslave\n\n");
  1130.           queue_string(e, buf);
  1131. !     sprintf(buf,"declare  profile  relation    power   explore\n");
  1132.           queue_string(e, buf);
  1133. !     sprintf(buf,"colonies name     mobilize technology toxicity   transfer\n");
  1134.           queue_string(e, buf);
  1135. !     sprintf(buf, "make   modify\n");
  1136.           queue_string(e, buf); 
  1137.   
  1138.    } else {
  1139. --- 1367,1395 ----
  1140.       sprintf(buf,"usage: help [topic]\n");
  1141.           queue_string(e, buf);
  1142.       sprintf(buf,"    valid topics are:\n  CONCEPTS:\n%s",
  1143. !         "beginner\nhelp     scope    actionpoints       explore    colony\n" );
  1144.           queue_string(e, buf);
  1145. !     sprintf(buf,"daemon   races     blocks     quit      crystal     lasers    info\n");
  1146.           queue_string(e, buf);
  1147.       sprintf(buf,"\n  COMMANDS:\n");
  1148.           queue_string(e, buf);
  1149. !     sprintf(buf,"cs       map      survey  orbit      zoom     autoreport    production\n");
  1150.           queue_string(e, buf);
  1151.       sprintf(buf,"toggle   gag      capitol  allocate\n\n");
  1152.           queue_string(e, buf);
  1153. !     sprintf(buf, "announce page    who    time    standby    quit\n");
  1154.           queue_string(e, buf);
  1155. !     sprintf(buf,"build    ship     stock   report     tactical  stats order     examine\n");
  1156.           queue_string(e, buf);
  1157.       sprintf(buf,"land     launch   dock    undock     load      assault   scrap\n\n");
  1158.           queue_string(e, buf);
  1159. !     sprintf(buf,"assault  capture  fire    give       move       enslave    repair\n\n");
  1160.           queue_string(e, buf);
  1161. !     sprintf(buf,"declare  profile  relation    power   explore     detonate\n");
  1162.           queue_string(e, buf);
  1163. !     sprintf(buf,"colonies dump  name motto    mobilize technology toxicity   transfer\n");
  1164.           queue_string(e, buf);
  1165. !     sprintf(buf, "make   modify    mount\n");
  1166.           queue_string(e, buf); 
  1167.   
  1168.    } else {
  1169. ***************
  1170. *** 1356,1358 ****
  1171. --- 1424,1513 ----
  1172.   if(sbuf.st_size)
  1173.   notify(Playernum, "You have telegram(s) waiting. Use 'read' to read them.\n");
  1174.   }
  1175. + 
  1176. + kill_ship(Playernum, ship)
  1177. + int Playernum;
  1178. + shiptype *ship;
  1179. + {
  1180. + racetype *r;
  1181. + shiptype *s;
  1182. + int kill_racedata, kill_shdata, sh;
  1183. + 
  1184. + ship->is_alive = 0;
  1185. + ship->popn = 0;
  1186. + ship->damage = 100; 
  1187. + ship->notified = 0;
  1188. + if(ship->type==OTYPE_GOV) {
  1189. +         openracedata(&kill_racedata);
  1190. +         getrace(kill_racedata, &r, (int)ship->owner);
  1191. +         r->Gov_ship = 0;
  1192. +         putrace(kill_racedata, r);
  1193. +         close_file(kill_racedata);
  1194. +         free(r);
  1195. +                 }
  1196. + 
  1197. + /* undock the stuff docked with it */
  1198. + if(ship->is_docked && ship->whatdest==LEVEL_SHIP) {
  1199. +     openshdata(&kill_shdata);
  1200. +     getship(kill_shdata, &s, ship->destshipno);
  1201. +     s->is_docked = 0;
  1202. +     s->whatdest = LEVEL_UNIV;
  1203. +     putship(kill_shdata, s, ship->destshipno);
  1204. +     free(s);
  1205. + }
  1206. + /* fighters are destroyed if one board a carrier */
  1207. + if(ship->type==STYPE_CARRIER) {
  1208. +     sh=ship->object.number;
  1209. +     openshdata(&kill_shdata);
  1210. +     while(sh) {
  1211. +     (void)getship(kill_shdata, &s, sh);
  1212. +     s->is_alive = 0; s->notified = 0;
  1213. +     putship(kill_shdata, s, sh);    
  1214. +     sh = s->object.number;
  1215. +     free(s);
  1216. +     }
  1217. +     close_file(kill_shdata);
  1218. + }
  1219. + 
  1220. + /* if the ship is a VN, keep track of who killed it */
  1221. +     if(ship->type==OTYPE_VN) {
  1222. +         ship->object.number3 = Playernum; /* remember who killed it */
  1223. +     }
  1224. + }
  1225. + 
  1226. + compute_power_blocks()
  1227. + {
  1228. + int i, j, dummy;
  1229. + Num_races = Numraces();
  1230. + /* compute alliance block power */
  1231. + sprintf(Power_blocks.time, "%2d/%2d/%d %02d:%02d:%02d %s", 
  1232. +     current_tm->tm_mon+1, current_tm->tm_mday,
  1233. +     current_tm->tm_year, current_tm->tm_hour,
  1234. +     current_tm->tm_min, current_tm->tm_sec, current_tm->tm_zone);
  1235. +  for (i=1; i<=Num_races; i++) {
  1236. +     dummy=(Blocks[i-1].invite & Blocks[i-1].pledge);
  1237. +                 Power_blocks.members[i-1] = 0;
  1238. +                 Power_blocks.sectors_owned[i-1] = 0;
  1239. +                 Power_blocks.popn[i-1] = 0;
  1240. +                 Power_blocks.ships_owned[i-1] = 0;
  1241. +                 Power_blocks.resource[i-1] = 0;
  1242. +                 Power_blocks.fuel[i-1] = 0;
  1243. +                 Power_blocks.destruct[i-1] = 0;
  1244. +                 Power_blocks.systems_owned[i-1] = Blocks[i-1].systems_owned;
  1245. +                 Power_blocks.VPs[i-1] = Blocks[i-1].VPs;
  1246. +     for(j=1; j<=Num_races; j++) 
  1247. +             if(isset(dummy, j)){
  1248. +                 Power_blocks.members[i-1] += 1;
  1249. +                 Power_blocks.sectors_owned[i-1] += Power[j-1].sectors_owned;
  1250. +                 Power_blocks.popn[i-1] += Power[j-1].popn;
  1251. +                 Power_blocks.ships_owned[i-1] += Power[j-1].ships_owned;
  1252. +                 Power_blocks.resource[i-1] += Power[j-1].resource;
  1253. +                 Power_blocks.fuel[i-1] += Power[j-1].fuel;
  1254. +                 Power_blocks.destruct[i-1] += Power[j-1].destruct;
  1255. +             }
  1256. +     }
  1257. + 
  1258. + 
  1259. + }
  1260. + 
  1261. + 
  1262. *** /usr/cna/billr/games/gb3/server/doplanet.c    Wed May 30 15:13:01 1990
  1263. --- server/doplanet.c    Thu Aug 23 16:54:48 1990
  1264. ***************
  1265. *** 71,76 ****
  1266. --- 71,77 ----
  1267.   int oldplanetpopn, oldplanetmaxpopn;
  1268.   boolean allmod=0,allexp=0;
  1269.   char buf[200]; 
  1270. + float tech_prod();
  1271.   
  1272.   Sectormappos = planet->sectormappos;
  1273.   check(planet,0);
  1274. ***************
  1275. *** 78,84 ****
  1276.       return 0;    /* no one's here now */
  1277.   
  1278.   if (Stinfo[starnum][planetnum].inhab) {
  1279. - /*    printf(" getting sectmap pos %d\n",planet->sectormappos); */
  1280.       opensectdata(§data);
  1281.       getsmap(sectdata,Smap,planet);
  1282.       close_file(sectdata);
  1283. --- 79,84 ----
  1284. ***************
  1285. *** 87,94 ****
  1286.       bzero((char *)Sectinfo, sizeof(Sectinfo) );
  1287.   }
  1288.   
  1289. - 
  1290. - 
  1291.   check(planet,1);
  1292.     shipno = planet->ships;
  1293.   
  1294. --- 87,92 ----
  1295. ***************
  1296. *** 147,163 ****
  1297.              {
  1298.               sectortype *s;
  1299.               s = &Sector(*planet,(int)ship->xpos,(int)ship->ypos);
  1300. !             if (s->des != DES_GAS && 
  1301.               (int_rand(1,100) <= (((100-ship->damage) * 
  1302.                     ship->popn)/Max_crew(ship)))) {
  1303.                 /* gas sectors can't be terraformed. */
  1304.                s->des = races[ship->owner-1]->likesbest;
  1305. !              s->eff *= 0.5;
  1306. !              s->mobilization *= 0.5;
  1307. !              s->resource *= 0.7;
  1308. !              /*s->popn *= 0.5;*/    /* ?? not sure bout this */
  1309.               s->popn = 0;
  1310. !             s->owner = 0;/* i AM sure about this :) */
  1311.                ship->fuel -= (float)FUEL_COST_TERRA;
  1312.                ship->mass -= FUEL_COST_TERRA*MASS_FUEL;
  1313.               if (planet->conditions[TOXIC]<100)
  1314. --- 145,160 ----
  1315.              {
  1316.               sectortype *s;
  1317.               s = &Sector(*planet,(int)ship->xpos,(int)ship->ypos);
  1318. !             if (s->des !=races[ship->owner-1]->likesbest &&
  1319. !             s->des != DES_GAS && 
  1320.               (int_rand(1,100) <= (((100-ship->damage) * 
  1321.                     ship->popn)/Max_crew(ship)))) {
  1322.                 /* gas sectors can't be terraformed. */
  1323.                s->des = races[ship->owner-1]->likesbest;
  1324. !              s->eff = 0;
  1325. !              s->mobilization = 0.;
  1326.               s->popn = 0;
  1327. !             s->owner = 0;
  1328.                ship->fuel -= (float)FUEL_COST_TERRA;
  1329.                ship->mass -= FUEL_COST_TERRA*MASS_FUEL;
  1330.               if (planet->conditions[TOXIC]<100)
  1331. ***************
  1332. *** 201,208 ****
  1333.   check(planet,2);
  1334.     }
  1335.   
  1336. ! 
  1337. !  if (!Stinfo[starnum][planetnum].inhab && 
  1338.        !Stinfo[starnum][planetnum].Thing_add)
  1339.       return 0;    /* (no one's explored the planet) */
  1340.   
  1341. --- 198,204 ----
  1342.   check(planet,2);
  1343.     }
  1344.   
  1345. ! if (!Stinfo[starnum][planetnum].inhab && 
  1346.        !Stinfo[starnum][planetnum].Thing_add)
  1347.       return 0;    /* (no one's explored the planet) */
  1348.   
  1349. ***************
  1350. *** 253,258 ****
  1351. --- 249,255 ----
  1352.   bzero((char *)prod_res, sizeof(prod_res) );
  1353.   bzero((char *)prod_fuel, sizeof(prod_fuel) );
  1354.   bzero((char *)prod_destruct, sizeof(prod_destruct) );
  1355. + bzero((char *)prod_crystals, sizeof(prod_crystals) );
  1356.   
  1357.   tot_resdep = prod_eff= prod_mob = tot_captured = 0;
  1358.   Claims = 0;
  1359. ***************
  1360. *** 267,272 ****
  1361. --- 264,270 ----
  1362.   for (i=1; i<=Num_races; i++) {
  1363.       Compat[i-1] = compatibility(planet, races[i-1]);
  1364.       planet->info[i-1].numsectsowned = 0;
  1365. +     planet->info[i-1].popn = 0;
  1366.       populations[i-1] = 0;
  1367.       prod_fuel[i-1] = 0;
  1368.       prod_destruct[i-1] = 0;
  1369. ***************
  1370. *** 275,285 ****
  1371.   }
  1372.   
  1373.   Getxysect(planet, &x, &y, 1);
  1374. - /*printf(" while %d\n",Getxysect(planet, &x, &y, 1));    /* reset */
  1375.   
  1376. - check(planet,4);
  1377.   while (Getxysect(planet, &x, &y, 0)) {
  1378.          p = &Sector(*planet,x,y);
  1379.        if (p->owner) {
  1380.           /* (all modified; sectors belonging to that player modified) */
  1381.           allmod = 1;    
  1382. --- 273,282 ----
  1383.   }
  1384.   
  1385.   Getxysect(planet, &x, &y, 1);
  1386.   
  1387.   while (Getxysect(planet, &x, &y, 0)) {
  1388.          p = &Sector(*planet,x,y);
  1389. + 
  1390.        if (p->owner) {
  1391.           /* (all modified; sectors belonging to that player modified) */
  1392.           allmod = 1;    
  1393. ***************
  1394. *** 304,310 ****
  1395.   
  1396.             Sectinfo[x][y].done = 1;
  1397.   
  1398. !       }
  1399.   
  1400.   
  1401.              if (p->owner) {
  1402. --- 301,308 ----
  1403.   
  1404.             Sectinfo[x][y].done = 1;
  1405.   
  1406. !       } else
  1407. !         p->popn = 0;
  1408.   
  1409.   
  1410.              if (p->owner) {
  1411. ***************
  1412. *** 355,363 ****
  1413.       }
  1414.        }
  1415.   
  1416. ! }
  1417. ! check(planet,5);
  1418.   
  1419.   if (allmod) {    /* ( >= 1 inhabited sector on the planet) */
  1420.   
  1421.   check(planet,51);
  1422. --- 353,363 ----
  1423.       }
  1424.        }
  1425.   
  1426. !    }
  1427.   
  1428. + 
  1429. + check(planet,5);
  1430. + allmod=1;
  1431.   if (allmod) {    /* ( >= 1 inhabited sector on the planet) */
  1432.   
  1433.   check(planet,51);
  1434. ***************
  1435. *** 426,437 ****
  1436.           Stars[starnum]->name, Stars[starnum]->pnames[planetnum] );
  1437.             sprintf(buf," \nWAR STATUS: %d sectors gained, %d sectors lost.\n", sects_gained[i-1],sects_lost[i-1]);
  1438.       str_cat(telegram_buf, buf);
  1439. !     push_message(TELEG_PLAYER_AUTO, i, telegram_buf);
  1440.         }
  1441.   
  1442. !     for (i=1; i<=Num_races; i++)
  1443.        if (planet->info[i-1].autorep) {
  1444. - 
  1445.   check(planet,8);
  1446.   /*      planet->info[i-1].autorep = planet->info[i-1].autorep - 1; */
  1447.   check(planet,85);
  1448. --- 426,439 ----
  1449.           Stars[starnum]->name, Stars[starnum]->pnames[planetnum] );
  1450.             sprintf(buf," \nWAR STATUS: %d sectors gained, %d sectors lost.\n", sects_gained[i-1],sects_lost[i-1]);
  1451.       str_cat(telegram_buf, buf);
  1452. !     push_message(TELEG_PLAYER_AUTO, i, telegram_buf, COMBAT);
  1453.         }
  1454.   
  1455. !     for (i=1; i<=Num_races; i++) {
  1456. !         planet->info[i-1].prod_res = prod_res[i-1];
  1457. !         planet->info[i-1].prod_fuel = prod_fuel[i-1];
  1458. !         planet->info[i-1].prod_dest = prod_destruct[i-1];
  1459.        if (planet->info[i-1].autorep) {
  1460.   check(planet,8);
  1461.   /*      planet->info[i-1].autorep = planet->info[i-1].autorep - 1; */
  1462.   check(planet,85);
  1463. ***************
  1464. *** 445,450 ****
  1465. --- 447,456 ----
  1466.         sprintf(buf, "Total      Prod: %dr %df %dd\n", prod_res[i-1], prod_fuel[i-1],
  1467.               prod_destruct[i-1]);
  1468.       str_cat(telegram_buf, buf);
  1469. +     if(prod_crystals[i-1]) {
  1470. +         sprintf(buf, "    %d crystals found\n", prod_crystals[i-1]);
  1471. +         str_cat(telegram_buf, buf);
  1472. +             }
  1473.   
  1474.       if(tot_captured) {
  1475.         sprintf(buf,"%d sectors captured\n", tot_captured);
  1476. ***************
  1477. *** 468,476 ****
  1478.           str_cat(telegram_buf, buf);
  1479.         }
  1480.   
  1481. !  push_message(TELEG_PLAYER_AUTO, i, telegram_buf);
  1482.   
  1483.       }
  1484.   check(planet,9);
  1485.   
  1486.          /* find out who is on this planet, for nova notification */
  1487. --- 474,483 ----
  1488.           str_cat(telegram_buf, buf);
  1489.         }
  1490.   
  1491. !  push_message(TELEG_PLAYER_AUTO, i, telegram_buf, TELEGRAM);
  1492.   
  1493.       }
  1494. + }
  1495.   check(planet,9);
  1496.   
  1497.          /* find out who is on this planet, for nova notification */
  1498. ***************
  1499. *** 486,492 ****
  1500.           str_cat(telegram_buf, buf);
  1501.                 for (i=1; i<=Num_races; i++)
  1502.           if (planet->info[i-1].numsectsowned) {
  1503. !         push_message(TELEG_PLAYER_AUTO, i, telegram_buf);
  1504.           }
  1505.        }
  1506.   
  1507. --- 493,499 ----
  1508.           str_cat(telegram_buf, buf);
  1509.                 for (i=1; i<=Num_races; i++)
  1510.           if (planet->info[i-1].numsectsowned) {
  1511. !         push_message(TELEG_PLAYER_AUTO, i, telegram_buf, TELEGRAM);
  1512.           }
  1513.        }
  1514.   
  1515. ***************
  1516. *** 498,504 ****
  1517.       this requires that you be the only one inhabiting the planet */
  1518.   
  1519.       if (planet->info[i-1].numsectsowned > 0) {
  1520. !         int aliensects=0,stolenres=0,stolendes=0,stolenfuel=0;
  1521.           int stuff=0;
  1522.   
  1523.   
  1524. --- 505,512 ----
  1525.       this requires that you be the only one inhabiting the planet */
  1526.   
  1527.       if (planet->info[i-1].numsectsowned > 0) {
  1528. !         int aliensects=0;
  1529. !         int stolenres=0,stolendes=0,stolenfuel=0, stolencrystals=0;
  1530.           int stuff=0;
  1531.   
  1532.   
  1533. ***************
  1534. *** 508,514 ****
  1535.               aliensects += planet->info[j-1].numsectsowned;
  1536.               if(planet->info[j-1].resource >0 ||
  1537.                  planet->info[j-1].destruct >0 ||
  1538. !                planet->info[j-1].fuel > 0.0) stuff=1;
  1539.               }
  1540.   
  1541.           if(!aliensects && stuff)
  1542. --- 516,523 ----
  1543.               aliensects += planet->info[j-1].numsectsowned;
  1544.               if(planet->info[j-1].resource >0 ||
  1545.                  planet->info[j-1].destruct >0 ||
  1546. !                planet->info[j-1].fuel > 0.0 ||
  1547. !                planet->info[j-1].crystals) stuff=1;
  1548.               }
  1549.   
  1550.           if(!aliensects && stuff)
  1551. ***************
  1552. *** 519,537 ****
  1553.                 stolenres += planet->info[j-1].resource;
  1554.                 stolendes += planet->info[j-1].destruct;
  1555.                 stolenfuel += planet->info[j-1].fuel;
  1556.                 planet->info[j-1].resource = 0;
  1557.                 planet->info[j-1].destruct = 0;
  1558.                 planet->info[j-1].fuel = 0;
  1559. !             }
  1560.           planet->info[i-1].resource += stolenres;
  1561.           planet->info[i-1].destruct += stolendes;
  1562.           planet->info[i-1].fuel += stolenfuel;
  1563. ! /* notify player of recovered stockpiles */
  1564.         sprintf(telegram_buf,"****** Report: Planet /%s/%s ******\n\n", 
  1565.           Stars[starnum]->name, Stars[starnum]->pnames[planetnum] );
  1566. !       sprintf(buf," %d resources \n %d destruct \n %d fuel recovered from alien stock piles",stolenres,stolendes,stolenfuel);
  1567.       str_cat(telegram_buf, buf);
  1568. !     push_message(TELEG_PLAYER_AUTO, i, telegram_buf);
  1569.               } /*aliensect==0*/
  1570.           }
  1571.   
  1572. --- 528,549 ----
  1573.                 stolenres += planet->info[j-1].resource;
  1574.                 stolendes += planet->info[j-1].destruct;
  1575.                 stolenfuel += planet->info[j-1].fuel;
  1576. +               stolencrystals += planet->info[j-1].crystals;
  1577.                 planet->info[j-1].resource = 0;
  1578.                 planet->info[j-1].destruct = 0;
  1579.                 planet->info[j-1].fuel = 0;
  1580. !               planet->info[j-1].crystals = 0;
  1581. !               }
  1582.           planet->info[i-1].resource += stolenres;
  1583.           planet->info[i-1].destruct += stolendes;
  1584.           planet->info[i-1].fuel += stolenfuel;
  1585. !         planet->info[i-1].crystals += stolencrystals;
  1586. !         /* notify player of recovered stockpiles */
  1587.         sprintf(telegram_buf,"****** Report: Planet /%s/%s ******\n\n", 
  1588.           Stars[starnum]->name, Stars[starnum]->pnames[planetnum] );
  1589. !       sprintf(buf," %d resources \n %d destruct \n %d fuel\n %d crystals recovered from alien stock piles",stolenres,stolendes,stolenfuel,stolencrystals);
  1590.       str_cat(telegram_buf, buf);
  1591. !     push_message(TELEG_PLAYER_AUTO, i, telegram_buf, TELEGRAM);
  1592.               } /*aliensect==0*/
  1593.           }
  1594.   
  1595. ***************
  1596. *** 558,564 ****
  1597.       else if (planet->conditions[TOXIC] < 0)
  1598.          planet->conditions[TOXIC] = 0;
  1599.   
  1600. !     /* deal with enslaved planets */
  1601.      if (planet->slaved_to) {
  1602.       if (populations[planet->slaved_to-1] >= planet->popn * 0.001 ||
  1603.           (Stinfo[starnum][planetnum].intimidated && random()&01) ) {
  1604. --- 570,583 ----
  1605.       else if (planet->conditions[TOXIC] < 0)
  1606.          planet->conditions[TOXIC] = 0;
  1607.   
  1608. ! Getxysect(planet, &x, &y, 1);
  1609. ! while (Getxysect(planet, &x, &y, 0)) {
  1610. !        p = &Sector(*planet,x,y);
  1611. !      if (p->owner)
  1612. !          planet->info[p->owner-1].popn += p->popn;
  1613. !  }
  1614. ! 
  1615. ! /* deal with enslaved planets */
  1616.      if (planet->slaved_to) {
  1617.       if (populations[planet->slaved_to-1] >= planet->popn * 0.001 ||
  1618.           (Stinfo[starnum][planetnum].intimidated && random()&01) ) {
  1619. ***************
  1620. *** 601,607 ****
  1621.                   p->is_wasted = 1;
  1622.                  }
  1623.               }
  1624. !         }
  1625.           sprintf(telegram_buf,"NOTICE from planet /%s/%s!\n",
  1626.                   Stars[starnum]->name,
  1627.                   Stars[starnum]->pnames[planetnum]);
  1628. --- 620,629 ----
  1629.                   p->is_wasted = 1;
  1630.                  }
  1631.               }
  1632. ! 
  1633. ! /* also add up the populations while here */
  1634. !             
  1635. !             }
  1636.           sprintf(telegram_buf,"NOTICE from planet /%s/%s!\n",
  1637.                   Stars[starnum]->name,
  1638.                   Stars[starnum]->pnames[planetnum]);
  1639. ***************
  1640. *** 613,622 ****
  1641.               str_cat(telegram_buf, buf);
  1642.           for (i=1; i<=Num_races; i++)
  1643.             if (planet->info[i-1].numsectsowned && i!=planet->slaved_to) {
  1644. !             push_message(TELEG_PLAYER_AUTO, i, telegram_buf);
  1645.               }
  1646.            /* send to previous slave holder */
  1647. !     push_message(TELEG_PLAYER_AUTO, planet->slaved_to, telegram_buf);
  1648.   
  1649.           planet->slaved_to = 0;
  1650.           planet->is_sheep = 0;
  1651. --- 635,644 ----
  1652.               str_cat(telegram_buf, buf);
  1653.           for (i=1; i<=Num_races; i++)
  1654.             if (planet->info[i-1].numsectsowned && i!=planet->slaved_to) {
  1655. !             push_message(TELEG_PLAYER_AUTO, i, telegram_buf, TELEGRAM);
  1656.               }
  1657.            /* send to previous slave holder */
  1658. !     push_message(TELEG_PLAYER_AUTO, planet->slaved_to, telegram_buf, TELEGRAM);
  1659.   
  1660.           planet->slaved_to = 0;
  1661.           planet->is_sheep = 0;
  1662. ***************
  1663. *** 628,654 ****
  1664.   
  1665.         if (planet->info[i-1].numsectsowned) {
  1666.   
  1667. !          if (planet->info[i-1].fuel + prod_fuel[i-1] > 100000)
  1668. !           planet->info[i-1].fuel = 100000;
  1669.           else
  1670.             planet->info[i-1].fuel += prod_fuel[i-1];
  1671.   
  1672. !          if (planet->info[i-1].resource + prod_res[i-1] > 100000)
  1673. !           planet->info[i-1].resource = 100000;
  1674.           else
  1675.             planet->info[i-1].resource += prod_res[i-1];
  1676.   
  1677. !          if (planet->info[i-1].destruct + prod_destruct[i-1] > 100000)
  1678. !           planet->info[i-1].destruct = 100000;
  1679.           else
  1680.             planet->info[i-1].destruct += prod_destruct[i-1];
  1681.   
  1682. !         /* do tech investments */
  1683.          if (planet->info[i-1].resource >= planet->info[i-1].tech_invest) {
  1684. !          races[i-1]->tech += 
  1685. !             log10(1.0+(double)planet->info[i-1].tech_invest) * TECH_INVEST;
  1686.            planet->info[i-1].resource -= planet->info[i-1].tech_invest;
  1687. !        }
  1688.   
  1689.          /* build wc's if it's been ordered */
  1690.         if (planet->info[i-1].tox_thresh>0 &&
  1691. --- 650,684 ----
  1692.   
  1693.         if (planet->info[i-1].numsectsowned) {
  1694.   
  1695. !          if (planet->info[i-1].fuel + prod_fuel[i-1] > 65567)
  1696. !           planet->info[i-1].fuel = 65567;
  1697.           else
  1698.             planet->info[i-1].fuel += prod_fuel[i-1];
  1699.   
  1700. !          if (planet->info[i-1].resource + prod_res[i-1] > 65567)
  1701. !           planet->info[i-1].resource = 65567;
  1702.           else
  1703.             planet->info[i-1].resource += prod_res[i-1];
  1704.   
  1705. !          if (planet->info[i-1].destruct + prod_destruct[i-1] > 65567)
  1706. !           planet->info[i-1].destruct = 65567;
  1707.           else
  1708.             planet->info[i-1].destruct += prod_destruct[i-1];
  1709.   
  1710. !         if (planet->info[i-1].crystals + prod_crystals[i-1] > 127)
  1711. !           planet->info[i-1].crystals = 127;
  1712. !         else
  1713. !           planet->info[i-1].crystals += prod_crystals[i-1];
  1714. ! 
  1715. !         /* do tech investments */
  1716.          if (planet->info[i-1].resource >= planet->info[i-1].tech_invest) {
  1717. !           planet->info[i-1].prod_tech =
  1718. !           tech_prod((int)planet->info[i-1].tech_invest,
  1719. !                   (int)planet->info[i-1].popn);
  1720.            planet->info[i-1].resource -= planet->info[i-1].tech_invest;
  1721. !          races[i-1]->tech += planet->info[i-1].prod_tech;
  1722. !        } else
  1723. !           planet->info[i-1].prod_tech;
  1724.   
  1725.          /* build wc's if it's been ordered */
  1726.         if (planet->info[i-1].tox_thresh>0 &&
  1727. ***************
  1728. *** 665,679 ****
  1729.   
  1730.           s2->armor = Shipdata[OTYPE_TOXWC][ABIL_ARMOR];
  1731.           s2->guns = Shipdata[OTYPE_TOXWC][ABIL_GUNS];
  1732. -         s2->size = Shipdata[OTYPE_TOXWC][ABIL_TARGET];
  1733.           s2->max_crew = Shipdata[OTYPE_TOXWC][ABIL_MAXCREW];
  1734.           s2->max_resource = Shipdata[OTYPE_TOXWC][ABIL_CARGO];
  1735.           s2->max_fuel = Shipdata[OTYPE_TOXWC][ABIL_FUELCAP];
  1736.           s2->max_destruct = Shipdata[OTYPE_TOXWC][ABIL_DESTCAP];
  1737.           s2->max_speed = Shipdata[OTYPE_TOXWC][ABIL_SPEED];
  1738. !         s2->base_mass = getmass(s2);
  1739.           s2->mass = s2->base_mass;
  1740.            s2->is_alive = 1;
  1741.           sprintf(s2->name,"Scum%04d",Num_ships);
  1742.   
  1743.           insert_sh_plan(planet,s2,Num_ships);
  1744. --- 695,711 ----
  1745.   
  1746.           s2->armor = Shipdata[OTYPE_TOXWC][ABIL_ARMOR];
  1747.           s2->guns = Shipdata[OTYPE_TOXWC][ABIL_GUNS];
  1748.           s2->max_crew = Shipdata[OTYPE_TOXWC][ABIL_MAXCREW];
  1749.           s2->max_resource = Shipdata[OTYPE_TOXWC][ABIL_CARGO];
  1750.           s2->max_fuel = Shipdata[OTYPE_TOXWC][ABIL_FUELCAP];
  1751.           s2->max_destruct = Shipdata[OTYPE_TOXWC][ABIL_DESTCAP];
  1752.           s2->max_speed = Shipdata[OTYPE_TOXWC][ABIL_SPEED];
  1753. !         s2->build_cost = Shipdata[OTYPE_TOXWC][ABIL_COST];
  1754. !         s2->size = ship_size(s2);
  1755. !          s2->base_mass = 1.0; /* a hack */
  1756.           s2->mass = s2->base_mass;
  1757.            s2->is_alive = 1;
  1758. +         s2->active = 1;
  1759.           sprintf(s2->name,"Scum%04d",Num_ships);
  1760.   
  1761.           insert_sh_plan(planet,s2,Num_ships);
  1762. ***************
  1763. *** 707,714 ****
  1764.       Power[i-1].resource += planet->info[i-1].resource;
  1765.       Power[i-1].destruct += planet->info[i-1].destruct;
  1766.       Power[i-1].fuel += planet->info[i-1].fuel;
  1767. -     Power[i-1].planets_owned += !!planet->info[i-1].numsectsowned;
  1768.       Power[i-1].sectors_owned += planet->info[i-1].numsectsowned;
  1769.   /*    Power[i-1].sum_mob += avg_mob[i-1]; */
  1770.    }
  1771.   
  1772. --- 739,746 ----
  1773.       Power[i-1].resource += planet->info[i-1].resource;
  1774.       Power[i-1].destruct += planet->info[i-1].destruct;
  1775.       Power[i-1].fuel += planet->info[i-1].fuel;
  1776.       Power[i-1].sectors_owned += planet->info[i-1].numsectsowned;
  1777. +     Power[i-1].planets_owned += !!planet->info[i-1].numsectsowned;
  1778.   /*    Power[i-1].sum_mob += avg_mob[i-1]; */
  1779.    }
  1780.   
  1781.