hedgewars/uGears.pas
changeset 11867 f6d33710baff
parent 11805 42c11b73f68e
child 11881 34ede05e4d4f
equal deleted inserted replaced
11866:afa8182003cc 11867:f6d33710baff
   123     while Gear <> nil do
   123     while Gear <> nil do
   124     begin
   124     begin
   125         if Gear^.Kind = gtHedgehog then
   125         if Gear^.Kind = gtHedgehog then
   126             begin
   126             begin
   127             tmp:= 0;
   127             tmp:= 0;
   128             if Gear^.Hedgehog^.Effects[hePoisoned] <> 0 then
   128             if (Gear^.Hedgehog^.Effects[hePoisoned] <> 0) and (Gear^.Hedgehog^.Effects[heFrozen] = 0) then
   129                 begin
   129                 begin
   130                 inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear));
   130                 inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear));
   131                 if (GameFlags and gfResetHealth) <> 0 then
   131                 if (GameFlags and gfResetHealth) <> 0 then
   132                     dec(Gear^.Hedgehog^.InitialHealth)  // does not need a minimum check since <= 1 basically disables it
   132                     dec(Gear^.Hedgehog^.InitialHealth)  // does not need a minimum check since <= 1 basically disables it
   133                 end;
   133                 end;