# HG changeset patch
# User alfadur
# Date 1510239395 18000
# Node ID 948eae885eac408e4a025428c7ca2b2cf289a2df
# Parent  b7453ae2c44d3d2895a4ff7f8e4fd4d32ad229f8
animation tweak

diff -r b7453ae2c44d -r 948eae885eac hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Wed Nov 08 21:56:43 2017 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Nov 09 09:56:35 2017 -0500
@@ -2318,10 +2318,10 @@
     if Gear^.Timer = 0 then
         begin
         inc(Gear^.Tag);
-        Gear^.Timer := 100
-        end;
-
-    if Gear^.Tag = 4 then
+        Gear^.Timer := 50
+        end;
+
+    if Gear^.Tag = 3 then
         begin
         HHGear := Gear^.Hedgehog^.Gear;
         HHGear^.State := HHGear^.State or gstNoDamage;
@@ -2330,6 +2330,9 @@
         AmmoShove(Gear, Gear^.Boom, 115);
 
         HHGear^.State := (HHGear^.State and (not gstNoDamage)) or gstMoving;
+        end
+    else if Gear^.Tag = 4 then
+        begin
         Gear^.Timer := 250;
         Gear^.doStep := @doStepIdle
         end
diff -r b7453ae2c44d -r 948eae885eac hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Wed Nov 08 21:56:43 2017 +0100
+++ b/hedgewars/uGearsList.pas	Thu Nov 09 09:56:35 2017 -0500
@@ -512,7 +512,7 @@
       gtShover: begin
                 gear^.Radius:= 20;
                 gear^.Tag:= 0;
-                gear^.Timer:= 100;
+                gear^.Timer:= 50;
                 end;
        gtFlame: begin
                 gear^.Tag:= GetRandom(32);