diff --git a/lib/Lacuna/DB/Result/Building.pm b/lib/Lacuna/DB/Result/Building.pm index 6c25acd4..efde7804 100755 --- a/lib/Lacuna/DB/Result/Building.pm +++ b/lib/Lacuna/DB/Result/Building.pm @@ -82,6 +82,7 @@ sub produces_food_items { [] }; use constant time_to_build => 60; use constant build_with_halls => 0; +use constant subsidizable => 1; use constant energy_to_build => 0; use constant food_to_build => 0; diff --git a/lib/Lacuna/DB/Result/Building/DeployedBleeder.pm b/lib/Lacuna/DB/Result/Building/DeployedBleeder.pm index 2ea02873..ff83cb43 100644 --- a/lib/Lacuna/DB/Result/Building/DeployedBleeder.pm +++ b/lib/Lacuna/DB/Result/Building/DeployedBleeder.pm @@ -11,6 +11,7 @@ use Lacuna::Constants qw(FOOD_TYPES ORE_TYPES GROWTH INFLATION); with 'Lacuna::Role::Building::IgnoresUniversityLevel'; use constant controller_class => 'Lacuna::RPC::Building::DeployedBleeder'; +use constant subsidizable => 0; around can_build => sub { my ($orig, $self, $body) = @_; diff --git a/lib/Lacuna/DB/Result/Building/Development.pm b/lib/Lacuna/DB/Result/Building/Development.pm index 5ae0cd79..586d6096 100644 --- a/lib/Lacuna/DB/Result/Building/Development.pm +++ b/lib/Lacuna/DB/Result/Building/Development.pm @@ -16,6 +16,7 @@ sub subsidize_build_queue { } else { foreach my $build (@{$self->body->builds}) { + next unless $build->subsidizable; $build->finish_upgrade; } } @@ -31,6 +32,7 @@ sub calculate_subsidy { } else { foreach my $build (@{$self->body->builds}) { + next unless $build->subsidizable; $cost += max(1, int(($build->level + 1) / 3)); } } diff --git a/var/www/public/changes.txt b/var/www/public/changes.txt index fe0ec2ca..324061c8 100644 --- a/var/www/public/changes.txt +++ b/var/www/public/changes.txt @@ -3,6 +3,7 @@ - Fix: If parliament missing, better error handling. - Fix: Make sure scows display empty cargo on return. - Mod: Reduce some red tape. + - Fix: Deployed bleeders shouldn't get subbed. 3.0915: - Fix: Reduce the wild resource fluctuations during planet ticking.