hedgewars/uGears.pas
changeset 2993 d83edb74e92d
parent 2991 142ea64ce8a2
child 2994 7ae3067546f2
--- a/hedgewars/uGears.pas	Sun Mar 14 20:31:28 2010 +0000
+++ b/hedgewars/uGears.pas	Sun Mar 14 20:32:56 2010 +0000
@@ -589,20 +589,17 @@
     step: (stDelay, stChDmg, stSweep, stTurnReact,
             stAfterDelay, stChWin, stWater, stChWin2, stHealth,
             stSpawn, stNTurn) = stDelay;
-var StoppedSteps: boolean;
 var Gear, t: PGear;
 begin
 PrvInactive:= AllInactive;
 AllInactive:= true;
-StoppedSteps:= false;
 
 if (StepSoundTimer > 0) and (StepSoundChannel < 0) then
     StepSoundChannel:= LoopSound(sndSteps)
 else if (StepSoundTimer = 0) and (StepSoundChannel > -1) then
     begin
     StopSound(StepSoundChannel);
-    StepSoundChannel:= -1;
-    StoppedSteps:= true
+    StepSoundChannel:= -1
     end;
 
 if StepSoundTimer > 0 then
@@ -613,7 +610,6 @@
     begin
     Gear:= t;
     t:= Gear^.NextGear;
-    if (Gear = CurrentHedgehog^.Gear) and (StoppedSteps) then Gear^.Timer:= 10;
     if Gear^.Active then
         begin
         if Gear^.RenderTimer and (Gear^.Timer > 500) and ((Gear^.Timer mod 1000) = 0) then