559     if (Gear^.Timer mod frametime) = 0 then

   559     if (Gear^.Timer mod frametime) = 0 then

   560         inc(Gear^.Pos)

   560         inc(Gear^.Pos)

   561     end

   561     end

   562 else if Gear^.Timer = 1 then

   562 else if Gear^.Timer = 1 then

   563     begin

   563     begin

   564     Gear^.State:= Gear^.State or gstNoDamage;

   565     Gear^.State:= Gear^.State or gstNoDamage;

   565     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);

   566     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);

   566     AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;

   567     AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;

   567     DeleteGear(Gear);

   568     DeleteGear(Gear);

   568     SetAllToActive

   569     SetAllToActive