Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728package Lacuna::Role::WasteProcessor;
use Moose::Role;
sub ore_production_hour { my ($self) = @_; my $base = $self->ore_production * $self->production_hour * ($self->body->total_ore_concentration / 10000); return 0 if $base == 0; return sprintf('%.0f', $base * $self->manufacturing_production_bonus);}
sub energy_production_hour { my ($self) = @_; my $base = $self->energy_production * $self->production_hour; return 0 if $base == 0; return sprintf('%.0f', $base * $self->manufacturing_production_bonus);}
sub water_production_hour { my ($self) = @_; my $base = $self->water_production * $self->production_hour; return 0 if $base == 0; return sprintf('%.0f', $base * $self->manufacturing_production_bonus);}
1;