Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859package Lacuna::DB::Result::Building::Network19;
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 Happiness Intelligence));};
use constant controller_class => 'Lacuna::RPC::Building::Network19';
use constant university_prereq => 2;
use constant max_instances_per_planet => 1;
use constant image => 'network19';
use constant name => 'Network 19 Affiliate';
use constant food_to_build => 98;
use constant energy_to_build => 98;
use constant ore_to_build => 100;
use constant water_to_build => 98;
use constant waste_to_build => 60;
use constant time_to_build => 150;
use constant food_consumption => 6;
use constant energy_consumption => 19;
use constant ore_consumption => 1;
use constant water_consumption => 8;
use constant waste_production => 3;
use constant happiness_production => 15;
sub happiness_consumption { my ($self) = @_; return ($self->body->restrict_coverage) ? 30 : 0;}
before delete => sub { my ($self) = @_; $self->body->restrict_coverage(0);};
no Moose;__PACKAGE__->meta->make_immutable(inline_constructor => 0);