# HG changeset patch
# User nemo
# Date 1416784215 18000
# Node ID 37b0e1f92e3c6a42d156fb4dbca9dae3e846575c
# Parent  3833287553842ce04d2bc932a6b3731555721572
prevent seduction of frozen hogs

diff -r 383328755384 -r 37b0e1f92e3c hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sun Nov 23 18:38:49 2014 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Nov 23 18:10:15 2014 -0500
@@ -3093,14 +3093,12 @@
         begin
         for i:= 0 to hogs.size - 1 do
             with hogs.ar^[i]^ do
-                begin
-                if hogs.ar^[i] <> CurrentHedgehog^.Gear then
+                if (hogs.ar^[i] <> CurrentHedgehog^.Gear) and (Hedgehog^.Effects[heFrozen] = 0)  then
                     begin
                     dX:= _50 * cGravity * (Gear^.X - X) / _25;
                     dY:= -_450 * cGravity;
                     Active:= true;
                     end
-                end;
         end ;
         AfterAttack;
         DeleteGear(Gear);