diff --git a/lib/Lacuna/AI.pm b/lib/Lacuna/AI.pm
index 807495c5..03f9f256 100644
--- a/lib/Lacuna/AI.pm
+++ b/lib/Lacuna/AI.pm
@@ -115,6 +115,7 @@ sub build_colony {
         }
     }
     
+    my $plot_use = 0;
     my $buildings = Lacuna->db->resultset('Lacuna::DB::Result::Building');
     foreach my $plan (@plans) {
         my ($x, $y) = $body->find_free_space;
@@ -129,6 +130,11 @@ sub build_colony {
         say $building->name;
         $body->build_building($building);
         $building->finish_upgrade;
+        $plot_use++ unless $plan =~ /::Permanent::/;
+    }
+    if ($plot_use > $body->size) {
+        $body->size($plot_use);
+        $body->update;
     }
 }
 
diff --git a/lib/Lacuna/AI/Diablotin.pm b/lib/Lacuna/AI/Diablotin.pm
index f770ef6b..64e225ba 100644
--- a/lib/Lacuna/AI/Diablotin.pm
+++ b/lib/Lacuna/AI/Diablotin.pm
@@ -47,6 +47,7 @@ sub colony_structures {
         ['Lacuna::DB::Result::Building::CloakingLab', 15],
         ['Lacuna::DB::Result::Building::Energy::Hydrocarbon',15],
         ['Lacuna::DB::Result::Building::Energy::Singularity',15],
+        ['Lacuna::DB::Result::Building::Energy::Reserve', 15],
         ['Lacuna::DB::Result::Building::Energy::Waste',15],
         ['Lacuna::DB::Result::Building::Food::Algae',15],
         ['Lacuna::DB::Result::Building::Food::Algae',15],
@@ -56,14 +57,16 @@ sub colony_structures {
         ['Lacuna::DB::Result::Building::Food::Malcud',15],
         ['Lacuna::DB::Result::Building::Food::Malcud',15],
         ['Lacuna::DB::Result::Building::Food::Malcud',15],
+        ['Lacuna::DB::Result::Building::Food::Reserve', 15],
         ['Lacuna::DB::Result::Building::Food::Syrup',15],
         ['Lacuna::DB::Result::Building::Intelligence', 10],
         ['Lacuna::DB::Result::Building::LuxuryHousing',15],
-        ['Lacuna::DB::Result::Building::MunitionsLab', 3],
+        ['Lacuna::DB::Result::Building::MunitionsLab', 12],
         ['Lacuna::DB::Result::Building::Observatory',10],
         ['Lacuna::DB::Result::Building::Ore::Mine',15],
         ['Lacuna::DB::Result::Building::Ore::Mine',15],
         ['Lacuna::DB::Result::Building::Ore::Refinery',15],
+        ['Lacuna::DB::Result::Building::Ore::Storage',15],
         ['Lacuna::DB::Result::Building::SAW',10],
         ['Lacuna::DB::Result::Building::SAW',10],
         ['Lacuna::DB::Result::Building::SAW',10],
@@ -71,9 +74,9 @@ sub colony_structures {
         ['Lacuna::DB::Result::Building::SAW',10],
         ['Lacuna::DB::Result::Building::SAW',10],
         ['Lacuna::DB::Result::Building::Security', 15],
-        ['Lacuna::DB::Result::Building::Shipyard', 6],
-        ['Lacuna::DB::Result::Building::Shipyard', 6],
-        ['Lacuna::DB::Result::Building::Shipyard', 6],
+        ['Lacuna::DB::Result::Building::Shipyard', 8],
+        ['Lacuna::DB::Result::Building::Shipyard', 8],
+        ['Lacuna::DB::Result::Building::Shipyard', 8],
         ['Lacuna::DB::Result::Building::SpacePort', 15],
         ['Lacuna::DB::Result::Building::SpacePort', 15],
         ['Lacuna::DB::Result::Building::SpacePort', 15],
@@ -83,10 +86,12 @@ sub colony_structures {
         ['Lacuna::DB::Result::Building::Waste::Digester',15],
         ['Lacuna::DB::Result::Building::Waste::Sequestration', 20],
         ['Lacuna::DB::Result::Building::Waste::Treatment',15],
-        ['Lacuna::DB::Result::Building::Water::AtmosphericEvaporator',14],
+        ['Lacuna::DB::Result::Building::Waste::Treatment',15],
+        ['Lacuna::DB::Result::Building::Water::AtmosphericEvaporator',15],
         ['Lacuna::DB::Result::Building::Water::Reclamation',15],
         ['Lacuna::DB::Result::Building::Water::Reclamation',15],
         ['Lacuna::DB::Result::Building::Water::Reclamation',15],
+        ['Lacuna::DB::Result::Building::Water::Storage',15],
     );
 }