keep hogs from sliding while they are being frozen
authornemo
Sun, 03 Mar 2013 20:08:55 -0500
changeset 8633 b9f5adfa81cc
parent 8632 b5ed76d2a1f9
child 8634 5dcb1dc9e01b
keep hogs from sliding while they are being frozen
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);