Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334353637383940package Lacuna::RPC::Building::IntelTraining;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::RPC::Building';use Lacuna::Util qw(randint);
sub app_url { return '/inteltraining';}
sub model_class { return 'Lacuna::DB::Result::Building::IntelTraining';}
around 'view' => sub { my ($orig, $self, $session_id, $building_id) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id, skip_offline => 1 }); my $empire = $session->current_empire; my $building = $session->current_building; my $out = $orig->($self, $session, $building); my $boost = (time < $empire->spy_training_boost->epoch) ? 1.5 : 1; my $points_per = $building->effective_level * $boost; $out->{spies} = { max_points => 350 + $building->effective_level * 75, points_per => $points_per, in_training => $building->spies_in_training_count, }; return $out;};
__PACKAGE__->register_rpc_method_names();
no Moose;__PACKAGE__->meta->make_immutable;