359 AllInactive:= false;

   359 AllInactive:= false;

   360 HHGear:= PHedgehog(Gear.Hedgehog).Gear;

   360 HHGear:= PHedgehog(Gear.Hedgehog).Gear;

   361 dec(Gear.Timer);

   361 dec(Gear.Timer);

   362 if (Gear.Timer = 0)or((Gear.Message and gm_Destroy) <> 0)or((HHGear.State and gstHHDriven) = 0) then

   362 if (Gear.Timer = 0)or((Gear.Message and gm_Destroy) <> 0)or((HHGear.State and gstHHDriven) = 0) then

   363    begin

   363    begin

   364    DeleteGear(Gear);

   365    DeleteGear(Gear);

   365    AfterAttack;

   366    AfterAttack;

   366    exit

   367    exit

   367    end;

   368    end;

   368 if (Gear.Timer and $3F) = 0 then

   369 if (Gear.Timer and $3F) = 0 then

   415    inc(y, 2);

   416    inc(y, 2);

   416    inc(i)

   417    inc(i)

   417    end;

   418    end;

   418 DrawHLinesExplosions(@ar, 3, round(Gear.Y) - cHHRadius*2, 2, Pred(i));

   419 DrawHLinesExplosions(@ar, 3, round(Gear.Y) - cHHRadius*2, 2, Pred(i));

   419 Gear.dY:= PHedgehog(Gear.Hedgehog).Gear.dY;

   420 Gear.dY:= PHedgehog(Gear.Hedgehog).Gear.dY;

   420 doStepPickHammerWork(Gear);

   422 doStepPickHammerWork(Gear);

   421 Gear.doStep:= doStepPickHammerWork

   423 Gear.doStep:= doStepPickHammerWork

   422 end;

   424 end;

   423 

   425 

   424 ////////////////////////////////////////////////////////////////////////////////

   426 ////////////////////////////////////////////////////////////////////////////////