hedgewars/uGears.pas
changeset 10012 82dd9f0c88f7
parent 9998 736015b847e3
child 10015 4feced261c68
equal deleted inserted replaced
10011:ead5e4b21671 10012:82dd9f0c88f7
   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 then
   129                 begin
   129                 begin
   130                 inc(tmp, ModifyDamage(5, 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;
   134             if (TotalRounds > cSuddenDTurns - 1) then
   134             if (TotalRounds > cSuddenDTurns - 1) then
   135                 begin
   135                 begin