3243                 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);

  3243                 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);

  3244             DeleteGear(Gear);

  3244             DeleteGear(Gear);

  3245             exit;

  3245             exit;

  3246             end;

  3246             end;

  3247 

  3247 

  3248         Gear^.SoundChannel := LoopSound(sndDrillRocket);

  3250         Gear^.SoundChannel := LoopSound(sndDrillRocket);

  3249         Gear^.doStep := @doStepDrillDrilling;

  3251         Gear^.doStep := @doStepDrillDrilling;

  3250 

  3252 

  3251         if (Gear^.State and gsttmpFlag) <> 0 then

  3253         if (Gear^.State and gsttmpFlag) <> 0 then

  3252             gear^.RenderTimer:= true;

  3254             gear^.RenderTimer:= true;