hedgewars/uGearsUtils.pas
changeset 8966 5ab59d79bc9a
parent 8947 e906ebd59612
child 8987 47cf32305d99
--- a/hedgewars/uGearsUtils.pas	Tue May 07 23:37:03 2013 +0400
+++ b/hedgewars/uGearsUtils.pas	Tue May 07 15:43:34 2013 -0400
@@ -291,7 +291,7 @@
 begin
     if _0_4 < Gear^.dY then
         begin
-        dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear);
+        dmg := ModifyDamage(1 + hwRound((Gear^.dY - _0_4) * 70), Gear);
         PlaySound(sndBump);
         if dmg < 1 then
             exit;