diff -r cc13b42ab593 -r 5fe9c4ac4c99 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sat Mar 27 05:45:45 2010 +0000
+++ b/hedgewars/uGears.pas	Sat Mar 27 08:59:10 2010 +0000
@@ -580,27 +580,32 @@
        i: LongWord;
     flag: Boolean;
 begin
-Gear:= GearsList;
+	Gear:= GearsList;
 
-while Gear <> nil do
-    begin
-    if Gear^.Kind = gtHedgehog then
-        begin
-        inc(Gear^.Damage, min(cHealthDecrease, max(0,Gear^.Health - 1 - Gear^.Damage)));
-        if PHedgehog(Gear^.Hedgehog)^.King then
-            begin
-            flag:= false;
-            team:= PHedgehog(Gear^.Hedgehog)^.Team;
-            for i:= 0 to Pred(team^.HedgehogsNumber) do
-                if (team^.Hedgehogs[i].Gear <> nil) and 
-                   (not team^.Hedgehogs[i].King) and 
-                   (team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage) then flag:= true;
-            if not flag then inc(Gear^.Damage, min(5, max(0,Gear^.Health - 1 - Gear^.Damage)))
-            end
-        end;
+	while Gear <> nil do
+	begin
+		if Gear^.Kind = gtHedgehog then
+			begin
+        if PHedgehog(Gear^.Hedgehog)^.Poisoned then
+          inc(Gear^.Damage, min(5, max(0,Gear^.Health - 1 - Gear^.Damage)));
+				inc(Gear^.Damage, min(cHealthDecrease, max(0,Gear^.Health - 1 - Gear^.Damage)));
+				if PHedgehog(Gear^.Hedgehog)^.King then
+				begin
+					flag:= false;
+					team:= PHedgehog(Gear^.Hedgehog)^.Team;
+					for i:= 0 to Pred(team^.HedgehogsNumber) do
+						if (team^.Hedgehogs[i].Gear <> nil) and 
+							(not team^.Hedgehogs[i].King) and 
+							(team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage) 
+						then begin
+								flag:= true;
+						end;
+					if not flag then inc(Gear^.Damage, min(5, max(0,Gear^.Health - 1 - Gear^.Damage)))
+				end;
+			end;
 
-    Gear:= Gear^.NextGear
-    end;
+		Gear:= Gear^.NextGear
+	end;
 end;
 
 procedure ProcessGears;
@@ -1815,8 +1820,12 @@
                                     Gear^.State:= (Gear^.State or gstMoving) and (not gstWinner);
                                 Gear^.Active:= true;
                                 FollowGear:= Gear
-                                end
-                            end
+														end;
+
+													if ((Mask and EXPLPoisoned) <> 0) and (Gear^.Kind = gtHedgehog) then
+														PHedgehog(Gear^.Hedgehog)^.Poisoned := true;
+							end;
+
                         end;
                 gtGrave: begin
 // Run the calcs only once we know we have a type that will need damage