--- a/hedgewars/GSHandlers.inc	Fri Jun 23 20:02:41 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Jun 28 18:27:42 2006 +0000
@@ -53,7 +53,7 @@
 
 procedure CheckHHDamage(Gear: PGear);
 begin
-if Gear.dY > 0.35 then Gear.Damage:= Gear.Damage + round(75 * (abs(Gear.dY) - 0.35));
+if Gear.dY > 0.40 then Gear.Damage:= Gear.Damage + 1 + round(70 * (abs(Gear.dY) - 0.40));
 end;
 
 ////////////////////////////////////////////////////////////////////////////////