hedgewars/uGears.pas
changeset 15550 0b16baefefd1
parent 15549 608b5de819a5
child 15597 6e72bd61002e
equal deleted inserted replaced
15549:608b5de819a5 15550:0b16baefefd1
   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;
       
   181                 inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear));
   180                 inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear));
   182                 if (GameFlags and gfResetHealth) <> 0 then
   181                 if (GameFlags and gfResetHealth) <> 0 then
   183                     dec(Gear^.Hedgehog^.InitialHealth);
   182                     dec(Gear^.Hedgehog^.InitialHealth);
   184                 end;
   183                 end;
   185             // Apply SD health decrease as soon as SD starts
   184             // Apply SD health decrease as soon as SD starts