--- a/hedgewars/GSHandlers.inc	Sun Jul 15 13:35:32 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jul 15 14:02:26 2007 +0000
@@ -266,6 +266,7 @@
 dec(Gear^.Timer);
 if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
    begin
+   StopSound(sndUFO);
    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
    DeleteGear(Gear);
    end;
@@ -287,6 +288,7 @@
 dec(Gear^.Timer);
 if Gear^.Timer = 0 then
    begin
+   PlaySound(sndUFO, true);
    Gear^.Timer:= 5000;
    Gear^.doStep:= @doStepUFOWork
    end;