--- a/hedgewars/GSHandlers.inc	Wed Nov 29 15:47:32 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Nov 29 20:33:07 2006 +0000
@@ -925,7 +925,7 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
-const cAirPlaneSpeed = 1.1;
+const cAirPlaneSpeed = 1.4;
       cBombsDistance = 30;
       cBombsSpeed = 0.1;
 
@@ -936,7 +936,10 @@
 if (Gear.Health > 0)and(Gear.X >= Gear.dX)and(Gear.X < Gear.dX + cAirPlaneSpeed) then
    begin
    dec(Gear.Health);
-   AddGear(round(Gear.X), round(Gear.Y), gtAirBomb, 0, cBombsSpeed, 0.0);
+   case Gear.State of
+        0: AddGear(round(Gear.X), round(Gear.Y), gtAirBomb, 0, cBombsSpeed, 0.0);
+        1: AddGear(round(Gear.X), round(Gear.Y), gtMine, 0, cBombsSpeed, 0.0);
+        end;
    Gear.dX:= Gear.dX + cBombsDistance
    end;
 if Gear.X > 3072 then DeleteGear(Gear)
@@ -962,7 +965,7 @@
 doStepFallingGear(Gear);
 if (Gear.State and gstCollision) <> 0 then
    begin
-   doMakeExplosion(round(Gear.X), round(Gear.Y), 35, EXPLAutoSound);
+   doMakeExplosion(round(Gear.X), round(Gear.Y), 30, EXPLAutoSound);
    DeleteGear(Gear);
    exit
    end;