Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 3908 1429c303858d
parent 3894 9abce5468583
child 3946 41e06b74c991 
--- a/hedgewars/uGears.pas	Sun Sep 26 15:40:59 2010 -0400
+++ b/hedgewars/uGears.pas	Sun Sep 26 16:28:04 2010 -0400
@@ -670,7 +670,7 @@
             begin
             tmp:= 0;
             if PHedgehog(Gear^.Hedgehog)^.Effects[hePoisoned] then
-                inc(tmp, ModifyDamage(cHealthDecrease, Gear));
+                inc(tmp, ModifyDamage(5, Gear));
             inc(tmp, cHealthDecrease);
             if PHedgehog(Gear^.Hedgehog)^.King then
                 begin
@@ -681,7 +681,7 @@
                         (not team^.Hedgehogs[i].King) and
                         (team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage)
                     then flag:= true;
-                if not flag then inc(tmp, cHealthDecrease)
+                if not flag then inc(tmp, 5)
                 end;
             if tmp > 0 then 
                 begin
hedgewars