hedgewars/uGears.pas
changeset 7010 10a0a31804f3
parent 7007 0ccdff4ae8e9
child 7021 0c75512a8920
--- a/hedgewars/uGears.pas	Wed May 02 19:16:12 2012 -0400
+++ b/hedgewars/uGears.pas	Thu May 03 00:20:58 2012 -0400
@@ -110,7 +110,7 @@
                 dec(Gear^.Health, dmg);
 
             if (Gear^.Hedgehog^.Team = CurrentTeam) and (Gear^.Damage <> Gear^.Karma)
-            and (not Gear^.Hedgehog^.King) and (not Gear^.Hedgehog^.Effects[hePoisoned]) and (not SuddenDeathDmg) then
+            and (not Gear^.Hedgehog^.King) and (Gear^.Hedgehog^.Effects[hePoisoned] = 0) and (not SuddenDeathDmg) then
                 Gear^.State:= Gear^.State or gstLoser;
 
             spawnHealthTagForHH(Gear, dmg);
@@ -141,7 +141,7 @@
         if Gear^.Kind = gtHedgehog then
             begin
             tmp:= 0;
-            if Gear^.Hedgehog^.Effects[hePoisoned] then
+            if Gear^.Hedgehog^.Effects[hePoisoned] <> 0 then
                 begin
                 inc(tmp, ModifyDamage(5, Gear));
                 if (GameFlags and gfResetHealth) <> 0 then