prevent seduction of frozen hogs
authornemo
Sun, 23 Nov 2014 18:10:15 -0500
changeset 10544 37b0e1f92e3c
parent 10542 383328755384
child 10545 d347ffa7e372
prevent seduction of frozen hogs
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);