When leaving a Halls standing, prefer the one being used

plainblack · Mar 10, 2013 · 56f72bf · 56f72bf
1 parent 5fc57a5
commit 56f72bf
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Lacuna/RPC/Building/HallsOfVrbansk.pm b/lib/Lacuna/RPC/Building/HallsOfVrbansk.pm
@@ -95,7 +95,11 @@ sub sacrifice_to_upgrade {
     if ($total < $needed) {
         confess [1009, 'The Halls of Vrbansk do not have the knowledge necessary to upgrade the '.$upgrade->name];
     }
-    shift @halls if ($total > $needed); # Leave one hall standing if not needed for upgrade.
+    # Leave one hall standing if not needed for upgrade.
+    if ($total > $needed) {
+        @halls = sort { ($a->id != $building_id) <=> ($b->id != $building_id) } @halls;
+        shift(@halls);
+    }
     while ($needed) {
         my $hall = shift(@halls);
         if ($hall) {