# HG changeset patch
# User koda
# Date 1321128473 -3600
# Node ID 350490edcd114e8f970c4cb22d1400c9faf11e26
# Parent  27b82275dc347b1631009708d61ed5a3f38b7051
even faster and no more warning

diff -r 27b82275dc34 -r 350490edcd11 hedgewars/HHHandlers.inc
--- a/hedgewars/HHHandlers.inc	Sat Nov 12 12:41:12 2011 -0500
+++ b/hedgewars/HHHandlers.inc	Sat Nov 12 21:07:53 2011 +0100
@@ -1131,7 +1131,7 @@
 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and
    (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and
    not Gear^.dY.isNegative and
-   (GameTicks mod (100*hwRound(cMaxWindSpeed*2/cGravity)) = 0) and 
+   (GameTicks mod (200*LongWord(hwRound(cMaxWindSpeed/cGravity))) = 0) and 
    (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
     begin
     slope:= CalcSlopeBelowGear(Gear);