From ab7c431112166b31f6933a0ac1fa516b489f5377 Mon Sep 17 00:00:00 2001 From: Ian Docherty Date: Sun, 30 Dec 2012 14:05:48 -0500 Subject: [PATCH] Add Premium of 1E to subsidize each indidivual building subsidy. --- lib/Lacuna/DB/Result/Building/Development.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/Lacuna/DB/Result/Building/Development.pm b/lib/Lacuna/DB/Result/Building/Development.pm index 88e5c6a0..f0d6cc32 100644 --- a/lib/Lacuna/DB/Result/Building/Development.pm +++ b/lib/Lacuna/DB/Result/Building/Development.pm @@ -23,9 +23,11 @@ sub subsidize_build_queue { sub calculate_subsidy { my ($self, $building) = @_; - my $levels = 0; + my $levels = 0; + my $premium = 0; if ($building) { $levels = $building->level + 1; + $premium = 1; } else { foreach my $build (@{$self->body->builds}) { @@ -34,6 +36,8 @@ sub calculate_subsidy { } my $cost = int($levels / 3); $cost = 1 if $cost < 1; + $cost += $premium; + return $cost; } -- 2.51.2