hedgewars/uGears.pas
changeset 15571 608b5de819a5
parent 15460 617f4c092e3d
child 15572 0b16baefefd1
equal deleted inserted replaced
15570:e1c2ca38e511 15571:608b5de819a5
   175             begin
   175             begin
   176             tmp:= 0;
   176             tmp:= 0;
   177             // Deal poison damage (when not frozen)
   177             // Deal poison damage (when not frozen)
   178             if (Gear^.Hedgehog^.Effects[hePoisoned] <> 0) and (Gear^.Hedgehog^.Effects[heFrozen] = 0) then
   178             if (Gear^.Hedgehog^.Effects[hePoisoned] <> 0) and (Gear^.Hedgehog^.Effects[heFrozen] = 0) then
   179                 begin
   179                 begin
       
   180 				Gear^.Hedgehog^.Team^.Clan^.Flawless:= false;
   180                 inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear));
   181                 inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear));
   181                 if (GameFlags and gfResetHealth) <> 0 then
   182                 if (GameFlags and gfResetHealth) <> 0 then
   182                     dec(Gear^.Hedgehog^.InitialHealth);
   183                     dec(Gear^.Hedgehog^.InitialHealth);
   183                 end;
   184                 end;
   184             // Apply SD health decrease as soon as SD starts
   185             // Apply SD health decrease as soon as SD starts