--- a/hedgewars/uGears.pas	Mon Aug 02 23:15:34 2010 +0200
+++ b/hedgewars/uGears.pas	Tue Aug 03 00:36:36 2010 +0200
@@ -202,7 +202,8 @@
             @doStepBomb,
             @doStepSineGunShot,
             @doStepFlamethrower,
-            @doStepSMine
+            @doStepSMine,
+            @doStepPoisonCloud
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -517,6 +518,9 @@
                 gear^.Timer:= 10;
                 gear^.Health:= 500;
                 end;
+ gtPoisonCloud: begin
+                gear^.Timer:= 5000;
+                end;
      end;
 InsertGearToList(gear);
 AddGear:= gear;
@@ -1239,7 +1243,7 @@
                                 else
                                     Gear^.State:= Gear^.State or gstWinner;
                                 end;
-                            if ((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog) then
+                            if ((Mask and EXPLDoNotTouchAny) = 0) and (((Mask and EXPLDoNotTouchHH) = 0) or (Gear^.Kind <> gtHedgehog)) then
                                 begin
                                 DeleteCI(Gear);
                                 Gear^.dX:= Gear^.dX + SignAs(_0_005 * dmg + cHHKick, Gear^.X - fX);