Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364package Lacuna::Role::Ship::Arrive::DeployMiningPlatform;
use strict;use Moose::Role;
after handle_arrival_procedures => sub { my ($self) = @_;
# we're coming home return if ($self->direction eq 'in'); # do we have a mining ministry, if not, turn around my $body = $self->body; my $ministry = $body->mining_ministry; return unless (defined $ministry);
# can we deploy a platform my $empire = $body->empire; my $foreign_body = $self->foreign_body; my $can = eval{$ministry->can_add_platform($foreign_body, 1)}; my $reason = $@;
# yes, we can if ($can && !$reason) { $ministry->add_platform($foreign_body)->update; $empire->send_predefined_message( tags => ['Alert'], filename => 'mining_platform_deployed.txt', params => [$body->id, $body->name, $foreign_body->x, $foreign_body->y, $foreign_body->name, $self->name], ); $self->delete; my $type = ref $foreign_body; $type =~ s/^.*::(\w\d+)$/$1/; $empire->add_medal($type); confess [-1]; }
# no we can't else { my $message = (ref $reason eq 'ARRAY') ? $reason->[1] : 'We have encountered a glitch.'; $empire->send_predefined_message( tags => ['Alert'], filename => 'cannot_deploy_mining_platform.txt', params => [$message, $foreign_body->x, $foreign_body->y, $foreign_body->name, $body->id, $body->name, $self->name], ); }};
after can_send_to_target => sub { my ($self, $target) = @_; my $ministry = $self->body->mining_ministry; confess [1013, 'Cannot control platforms without a Mining Ministry.'] unless (defined $ministry); $ministry->can_add_platform($target); if ($target->star->station_id) { if ($target->star->station->laws->search({type => 'MembersOnlyMiningRights'})->count) { unless ($target->star->station->alliance_id == $self->body->empire->alliance_id) { confess [1010, 'Only '.$target->star->station->alliance->name.' members can mine asteroids in the jurisdiction of the space station.']; } } }};
1;