From c0a59880b2163c1fe738330cac10153bfb94ecaf Mon Sep 17 00:00:00 2001
From: lemming552 <move@quirkyqatz.com>
Date: Wed, 2 May 2012 17:20:39 -0600
Subject: [PATCH] Addressing ships after insurrection.

---
 lib/Lacuna/DB/Result/Spies.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lib/Lacuna/DB/Result/Spies.pm b/lib/Lacuna/DB/Result/Spies.pm
index 48906486..a265c8ee 100644
--- a/lib/Lacuna/DB/Result/Spies.pm
+++ b/lib/Lacuna/DB/Result/Spies.pm
@@ -1393,6 +1393,23 @@ sub steal_planet {
                       ->search({from_body_id => $self->on_body_id})
                       ->update({from_body_id => $defender_capitol_id });
 
+        my $ships = Lacuna->db->resultset('Lacuna::DB::Result::Ships')
+                         ->search({body_id => $self->on_body_id,
+                                   task => { '!=' => 'Docked' } });
+        while (my $ship = $ships->next) {
+          next if ($ship->task eq 'Travelling' and
+                   (grep { $ship->type ne $_ } ['cargo_ship',
+                           'smuggler_ship',
+                           'galleon',
+                           'freighter',
+                           'hulk',
+                           'hulk_fast',
+                           'hulk_huge',
+                           'dory',
+                           'barge']));
+          $ship->delete;
+        }
+
         Lacuna->db->resultset('Lacuna::DB::Result::Probes')
                       ->search({body_id => $self->on_body_id})
                       ->update({empire_id => $self->empire_id, alliance_id => $self->empire->alliance_id});
-- 
2.51.2