hedgewars/uGears.pas
changeset 300 be94799f33d2
parent 295 8834f3cb620e
child 302 7aca131ecd7f
--- a/hedgewars/uGears.pas	Sun Dec 10 21:31:45 2006 +0000
+++ b/hedgewars/uGears.pas	Thu Dec 14 20:06:46 2006 +0000
@@ -646,8 +646,8 @@
                           if (Mask and EXPLNoDamage) = 0 then inc(Gear.Damage, dmg);
                           if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear.Kind <> gtHedgehog) then
                              begin
-                             Gear.dX:= Gear.dX + dmg / 200 * hwSign(Gear.X - X);
-                             Gear.dY:= Gear.dY + dmg / 200 * hwSign(Gear.Y - Y);
+                             Gear.dX:= Gear.dX + (dmg / 200 + cHHKick)* hwSign(Gear.X - X);
+                             Gear.dY:= Gear.dY + (dmg / 200 + cHHKick)* hwSign(Gear.Y - Y);
                              Gear.Active:= true;
                              FollowGear:= Gear
                              end;