Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289package Lacuna::RPC::Building::MercenariesGuild;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::RPC::Building';use Guard;
sub app_url { return '/mercenariesguild';}
sub model_class { return 'Lacuna::DB::Result::Building::MercenariesGuild';}
sub get_trade_ships { my ($self, $session_id, $building_id, $target_id) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; my $target = Lacuna->db->resultset('Lacuna::DB::Result::Map::Body')->find($target_id) if $target_id; my @ships; my $ships = $building->trade_ships; while (my $ship = $ships->next) { push @ships, $ship->get_status($target); } return { status => $self->format_status($session, $building->body), ships => \@ships, };}
sub withdraw_from_market { my ($self, $session_id, $building_id, $trade_id) = @_; unless ($trade_id) { confess [1002, 'You have not specified a trade to withdraw.']; } my $cache = Lacuna->cache; if ($cache->get('trade_lock', $trade_id)) { confess [1013, 'A buyer has placed an offer on this trade. Please wait a few moments and try again.']; } $cache->set('trade_lock',$trade_id,1,5); my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; my $trade = $building->market->find($trade_id); unless (defined $trade) { confess [1002, 'Could not find that trade. Perhaps it has already been accepted.']; } $trade->withdraw($building->body); return { status => $self->format_status($session, $building->body), };}
sub accept_from_market { my ($self, $session_id, $building_id, $trade_id) = @_; unless ($trade_id) { confess [1002, 'You have not specified a trade to accept.']; } my $cache = Lacuna->cache; if ($cache->get('trade_lock', $trade_id)) { confess [1013, 'Another buyer has placed an offer on this trade. Please wait a few moments and try again.']; } $cache->set('trade_lock',$trade_id,1,5); my $guard = guard { $cache->delete('trade_lock',$trade_id); };
my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; confess [1013, 'You cannot use a mercenaries guild that has not yet been built.'] unless $building->effective_level > 0; confess [1013, 'You cannot use a mercenaries guild that is not fully operational.'] unless $building->effective_efficiency == 100;
my $int_min = $building->body->get_building_of_class('Lacuna::DB::Result::Building::Intelligence'); unless (defined($int_min) and $int_min->spy_count < $int_min->max_spies) { confess [1009, 'You are already at the maximum number of spies for the Intelligence Ministry.']; }
$session->check_captcha;
my $trade = $building->market->find($trade_id); unless (defined $trade) { confess [1002, 'Could not find that trade. Perhaps it has already been accepted.',$trade_id]; } my $offer_ship = Lacuna->db->resultset('Lacuna::DB::Result::Ships')->find($trade->ship_id); unless (defined $offer_ship) { $trade->withdraw; confess [1009, 'Trade no longer available.']; }
my $body = $building->body; unless ($empire->essentia >= $trade->ask) { confess [1011, 'You need at least '.$trade->ask.' essentia to make this trade.'] }
$guard->cancel;
if ($trade->body->empire->id != $empire->id) { $empire->transfer_essentia({ amount => $trade->ask, from_reason => 'Mercenary Price', to_empire => $trade->body->empire, to_reason => 'Mercenary Income', }); $empire->update; } $offer_ship->send( target => $body, payload => $trade->payload, ); my $id = $trade->payload->{mercenary}; my $spy = Lacuna->db->resultset('Lacuna::DB::Result::Spies')->find($id); if (defined($spy)) { $spy->empire_id($body->empire_id); $spy->from_body_id($body->id); $spy->on_body_id($body->id); $spy->update; } if ($trade->body->empire->id != $empire->id) { # Don't notify yourself $trade->body->empire->send_predefined_message( tags => ['Trade','Alert'], filename => 'trade_accepted.txt', params => [join("\n",@{$trade->format_description_of_payload}), $trade->ask.' essentia', $empire->id, $empire->name], ); } $trade->delete;
return { status => $self->format_status($session, $building->body), };}
sub add_to_market { my ($self, $session_id, $building_id, $spy_id, $ask, $ship_id) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; confess [1013, 'You cannot use a mercenaries guild that has not yet been built.'] unless $building->effective_level > 0; my $cost = sprintf "%.1f", 3 - $building->effective_level * 0.1; unless ($empire->essentia >= $cost) { confess [1011, "You need $cost essentia to make a trade using the Mercenaries Guild."]; } my $trade = $building->add_to_market($cost, $spy_id, $ask, $ship_id); $empire->spend_essentia({ amount => $cost, reason => 'Offered Mercenary Trade', }); $empire->update; return { trade_id => $trade->id, status => $self->format_status($session, $building->body), };}
sub view_my_market { my ($self, $session_id, $building_id, $page_number) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; $page_number ||=1; my $my_trades = $building->my_market->search(undef, { rows => 25, page => $page_number }); my @trades; while (my $trade = $my_trades->next) { push @trades, { id => $trade->id, date_offered => $trade->date_offered_formatted, ask => $trade->ask, offer => $trade->format_description_of_payload, }; } return { trades => \@trades, trade_count => $my_trades->pager->total_entries, page_number => $page_number, status => $self->format_status($session, $building->body), };}
sub view_market { my ($self, $session_id, $building_id, $page_number) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; $page_number ||=1; my $all_trades = $building->available_market->search( undef, { rows => 25, page => $page_number, join => 'body', order_by => 'ask' } ); my @trades; while (my $trade = $all_trades->next) { if ($trade->body->empire_id eq '') { $trade->delete; next; } push @trades, { id => $trade->id, date_offered => $trade->date_offered_formatted, ask => $trade->ask, offer => $trade->format_description_of_payload, body => { id => $trade->body_id, }, empire => { id => $trade->body->empire->id, name => $trade->body->empire->name, }, }; } return { trades => \@trades, trade_count => $all_trades->pager->total_entries, page_number => $page_number, status => $self->format_status($session, $building->body), };}
sub get_spies { my ($self, $session_id, $building_id) = @_; my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; my $spies = Lacuna->db->resultset('Lacuna::DB::Result::Spies')->search( { empire_id => $empire->id, on_body_id => $building->body_id, task => { in => ['Counter Espionage','Idle'] } }, { # match the order_by in L::RPC::B::Intelligence::view_spies order_by => { -asc => [ qw/name id/ ], } }, ); my @out; while (my $spy = $spies->next) { push @out, { id => $spy->id, name => $spy->name, level => $spy->level, }; } return { spies => \@out, status => $self->format_status($session, $building->body), };}
sub report_abuse { my ($self, $session_id, $building_id, $trade_id) = @_; unless ($trade_id) { confess [1002, 'You have not specified a trade to withdraw.']; } my $cache = Lacuna->cache; if ($cache->get('trade_lock', $trade_id)) { confess [1013, 'A buyer has placed an offer on this trade. Please wait a few moments and try again.']; } my $session = $self->get_session({session_id => $session_id, building_id => $building_id }); my $empire = $session->current_empire; my $building = $session->current_building; my $times_reporting = $cache->increment('empire_reporting_trade_abuse'.DateTime->now->day, $empire->id, 1, 60 * 60 * 24); if ($times_reporting > 10) { confess [1010, 'You have reported enough abuse for one day.']; } my $reports = $cache->increment('trade_abuse',$trade_id,1, 60 * 60 * 24 * 3); if ($reports >= 5) { my $trade = $building->market->find($trade_id); if (defined $trade) { $trade->body->empire->send_predefined_message( filename => 'trade_abuse.txt', params => [join("\n",@{$trade->format_description_of_payload}), $trade->ask.' essentia'], tags => ['Trade','Alert'], ); $trade->withdraw($trade->body); } return { status => $self->format_status($session, $building->body), }; }}__PACKAGE__->register_rpc_method_names(qw(report_abuse view_my_market view_market accept_from_market withdraw_from_market add_to_market get_trade_ships get_spies));
no Moose;__PACKAGE__->meta->make_immutable;