Added colonies/stations to empire status. planets kept as union of both.

bin/util/inflate_asteroids.pl

@@ -47,7 +47,7 @@
 out('Found '.scalar @rocks.' asteroids.');
 
 my $changed = 0; my $unchanged = 0;
-foreach my $id (sort { 5 > randint(10) } @rocks) {
+foreach my $id (sort { 5 > rand(10) } @rocks) {
     my $rock = $rocks_rs->find($id);
     next unless ($rock->get_type eq 'asteroid');
 

docs/Empire.pod

@@ -214,6 +214,10 @@ B<NOTE:> You should probably B<never> call this method directly, as it is a wast
     "server" : { ... },
     "empire" : {
         "id" : "xxxx",
+        "colonies" : {
+            "id-goes-here" : "Earth",
+            "id-goes-here" : "Mars"
+        },
         "rpc_count" : 321, # the number of calls made to the server
         "is_isolationist" : 1, # hasn't sent out probes or colony ships
         "name" : "The Syndicate",
@@ -224,11 +228,15 @@ B<NOTE:> You should probably B<never> call this method directly, as it is a wast
         "essentia" : 0,
         "planets" : {
             "id-goes-here" : "Earth",
-            "id-goes-here" : "Mars
+            "id-goes-here" : "Mars",
+            "id-goes-here" : "Death Star"
         },
         "tech_level"           : 20,  # Highests level university has gotten to.
         "self_destruct_active" : 0,
         "self_destruct_date" : "",
+        "stations" : {
+            "id-goes-here" : "Death Star"
+        },
         "primary_embassy_id" : 234567
     }
  }

lib/Lacuna/DB/Result/Empire.pm

@@ -451,8 +451,16 @@ sub get_status {
         $planet_rs = Lacuna->db->resultset('Map::Body')->search({-or => { empire_id => $self->id, alliance_id => $self->alliance_id }});
     }
     my %planets;
+    my %stations;
+    my %colonies;
     while (my $planet = $planet_rs->next) {
         $planets{$planet->id} = $planet->name;
+        if ($planet->get_type eq 'space station') {
+            $stations{$planet->id} = $planet->name;
+        }
+        else {
+            $colonies{$planet->id} = $planet->name;
+        }
     }
     my $embassy     = $self->highest_embassy;
     my $embassy_id  = defined $embassy ? $embassy->id : undef;
@@ -469,6 +477,8 @@ sub get_status {
         home_planet_id      => $self->home_planet_id,
         tech_level          => $self->university_level,
         planets             => \%planets,
+        stations            => \%stations,
+        colonies            => \%colonies,
         self_destruct_active=> $self->self_destruct_active,
         self_destruct_date  => $self->self_destruct_date_formatted,
         primary_embassy_id  => $embassy_id,

var/www/public/changes.txt

@@ -1,5 +1,6 @@
 3.0907:
  - Add: Timer added to colony object preventing passage into Neutral Zone.
+ - Add: colonies and stations added to empire stat. planets kept to maintain backwards compatibility
 
 3.0906:
  - Fix: Some fixes to the send_ship_types API call.