# HG changeset patch
# User nemo
# Date 1362359335 18000
# Node ID b9f5adfa81ccb25316dcabd889bae7f2300a791e
# Parent  b5ed76d2a1f98d6ae570fac180faad7d34db3b09
keep hogs from sliding while they are being frozen

diff -r b5ed76d2a1f9 -r b9f5adfa81cc hedgewars/uGearsHedgehog.pas
--- a/hedgewars/uGearsHedgehog.pas	Sun Mar 03 19:43:01 2013 -0500
+++ b/hedgewars/uGearsHedgehog.pas	Sun Mar 03 20:08:55 2013 -0500
@@ -1224,6 +1224,7 @@
 begin
     if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0)
     and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0)
+    and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255)))
     and (not Gear^.dY.isNegative) and (TurnTimeLeft > 0) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
         begin
         slope:= CalcSlopeBelowGear(Gear);