389    end else

   389    end else

   390    if Gear^.Health = 0 then

   390    if Gear^.Health = 0 then

   391       begin

   391       begin

   392       if AllInactive then

   392       if AllInactive then

   393          begin

   393          begin

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

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

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

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

   396          DeleteGear(Gear);

   397          DeleteGear(Gear);

   397          SetAllToActive

   398          SetAllToActive

   398          end;

   399          end;