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; }