From 6468a1a9298e65caf5f0139c191473ec480146fc Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Wed, 30 Mar 2011 14:08:32 -0500
Subject: [PATCH] fix and stats

---
 lib/Lacuna/DB/Result/Building/LCOTa.pm | 19 ++++++++++++++++++-
 lib/Lacuna/Role/LCOT.pm                | 10 +++++-----
 2 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/lib/Lacuna/DB/Result/Building/LCOTa.pm b/lib/Lacuna/DB/Result/Building/LCOTa.pm
index b7f4b953..47be1d34 100644
--- a/lib/Lacuna/DB/Result/Building/LCOTa.pm
+++ b/lib/Lacuna/DB/Result/Building/LCOTa.pm
@@ -15,7 +15,7 @@ use constant water_storage => 10000;
 use constant food_storage => 10000;
 use constant ore_storage => 10000;
 use constant waste_storage => 1000;
-use constant waste_consumption => 900;
+use constant waste_consumption => 450;
 use constant happiness_production => 2250;
 use constant energy_production => 2250;
 use constant water_production => 2250;
@@ -58,6 +58,23 @@ sub production_hour {
     return $production;
 }
 
+
+sub stats_after_upgrade {
+    my ($self) = @_;
+    my $current_level = $self->level;
+    unless ($self->has_effective_level) {
+        $self->calculate_effective_stats;
+    }
+    $self->level($self->effective_level + 1);
+    my %stats;
+    my @list = qw(food_hour food_capacity ore_hour ore_capacity water_hour water_capacity waste_hour waste_capacity energy_hour energy_capacity happiness_hour);
+    foreach my $resource (@list) {
+        $stats{$resource} = $self->$resource;
+    }
+    $self->level($current_level);
+    return \%stats;
+}
+
 sub calculate_effective_stats {
     my $self = shift;
     my $level = $self->level;
diff --git a/lib/Lacuna/Role/LCOT.pm b/lib/Lacuna/Role/LCOT.pm
index 254a7880..c53cf42d 100644
--- a/lib/Lacuna/Role/LCOT.pm
+++ b/lib/Lacuna/Role/LCOT.pm
@@ -8,11 +8,11 @@ use constant ore_to_build => 7000;
 use constant water_to_build => 7000;
 use constant waste_to_build => 700;
 use constant time_to_build => 60 * 2;
-use constant food_consumption => 100;
-use constant energy_consumption => 100;
-use constant ore_consumption => 100;
-use constant water_consumption => 100;
-use constant waste_production => 100;
+use constant food_consumption => 50;
+use constant energy_consumption => 50;
+use constant ore_consumption => 50;
+use constant water_consumption => 50;
+use constant waste_production => 50;
 use constant max_instances_per_planet => 1;
 
 around 'build_tags' => sub {
-- 
2.51.2