Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657package Lacuna::DB::Result::Building::Propulsion;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::DB::Result::Building';
around 'build_tags' => sub { my ($orig, $class) = @_; return ($orig->($class), qw(Infrastructure Ships));};
before has_special_resources => sub { my $self = shift; my $planet = $self->body; my $amount_needed = sprintf('%.0f', $self->ore_to_build * $self->upgrade_cost * 0.10); if ($planet->rutile_stored + $planet->chromite_stored + $planet->bauxite_stored + $planet->magnetite_stored + $planet->beryl_stored + $planet->goethite_stored < $amount_needed) { confess [1012,"You do not have a sufficient supply (".$amount_needed.") of structural minerals such as Rutile, Chromite, Bauxite, Magnetite, Beryl, and Goethite to build better engines."]; }};
use constant controller_class => 'Lacuna::RPC::Building::Propulsion';
use constant university_prereq => 13;
use constant max_instances_per_planet => 1;
use constant image => 'propulsion';
use constant name => 'Propulsion System Factory';
use constant food_to_build => 220;
use constant energy_to_build => 220;
use constant ore_to_build => 220;
use constant water_to_build => 220;
use constant waste_to_build => 100;
use constant time_to_build => 300;
use constant food_consumption => 14;
use constant energy_consumption => 20;
use constant ore_consumption => 20;
use constant water_consumption => 20;
use constant waste_production => 15;
no Moose;__PACKAGE__->meta->make_immutable(inline_constructor => 0);