From 3dcc415a3ec4fe2ee9d03b744f1d3f3531c2c14d Mon Sep 17 00:00:00 2001 From: JT Smith Date: Fri, 14 Jan 2011 17:40:13 -0600 Subject: [PATCH] Security sweep kills my own spies on ally's planet --- lib/Lacuna/DB/Result/Spies.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Lacuna/DB/Result/Spies.pm b/lib/Lacuna/DB/Result/Spies.pm index b68b0d5b..f7a91dc7 100644 --- a/lib/Lacuna/DB/Result/Spies.pm +++ b/lib/Lacuna/DB/Result/Spies.pm @@ -495,7 +495,7 @@ sub run_security_sweep { } $self->$mission_skill( $self->$mission_skill + 6 ); $self->update_level; - $out = { result => 'Failure', message_id => $message_id, reason => random_element(['Didn\'t find anyone.','It has just gone pear shaped.','I\'m pinned down and under fire.','I\'ll do better next time, if there is a next time.','The fit has just hit the shan.','I want my mommy!']) }; + $out = { result => 'Failure', message_id => $message_id, reason => random_element(['It has just gone pear shaped.','I\'ll do better next time, if there is a next time.','The fit has just hit the shan.','I want my mommy!']) }; } elsif (randint(1,100) > $breakthru) { if (defined $attacker) { @@ -540,7 +540,7 @@ sub get_defender { sub get_attacker { my $self = shift; - my @tasks = qw('Infiltrating'); + my @tasks; foreach my $task ($self->offensive_assignments) { push @tasks, $task->{task}; } -- 2.54.0