# HG changeset patch
# User nemo
# Date 1332019123 14400
# Node ID f72c8b5d421cda96149029d647d8865cb4498788
# Parent  6907194f2c57d3e3ceb45ef9a4bce1ef0594812e
Ensure flawless is false if any hog is lost, unless it was lost doing a kamikaze

diff -r 6907194f2c57 -r f72c8b5d421c hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sat Mar 17 16:14:08 2012 -0400
+++ b/hedgewars/GSHandlers.inc	Sat Mar 17 17:18:43 2012 -0400
@@ -2905,8 +2905,8 @@
                         end
                 end;
         AfterAttack;
+        DeleteGear(HHGear);
         DeleteGear(Gear);
-        DeleteGear(HHGear);
     end
     else
         begin
diff -r 6907194f2c57 -r f72c8b5d421c hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Sat Mar 17 16:14:08 2012 -0400
+++ b/hedgewars/uGearsList.pas	Sat Mar 17 17:18:43 2012 -0400
@@ -496,6 +496,8 @@
         end
     else*)
         begin
+        if (Gear <> CurrentHedgehog^.Gear) or (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtKamikaze) then
+            Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;
         if (hwRound(Gear^.Y) >= cWaterLine) then
             begin
             t:= max(Gear^.Damage, Gear^.Health);