hedgewars/uGearsUtils.pas
changeset 12176 29f1ea94488b
parent 12169 869cf5f34700
child 12177 bfeeb1c35e77
equal deleted inserted replaced
12175:9237bfb198c7 12176:29f1ea94488b
   181                                 (Gear^.State and gstHHDeath = 0) then
   181                                 (Gear^.State and gstHHDeath = 0) then
   182                                     begin
   182                                     begin
   183                                     if Gear^.Hedgehog^.Effects[hePoisoned] = 0 then
   183                                     if Gear^.Hedgehog^.Effects[hePoisoned] = 0 then
   184                                         begin
   184                                         begin
   185                                         s:= ansistring(Gear^.Hedgehog^.Name);
   185                                         s:= ansistring(Gear^.Hedgehog^.Name);
   186                                         AddCaption(FormatA(GetEventString(eidPoisoned), s), cWhiteColor, capgrpMessage)
   186                                         AddCaption(FormatA(GetEventString(eidPoisoned), s), cWhiteColor, capgrpMessage);
       
   187                                         uStats.HedgehogPoisoned(Gear, AttackingHog)
   187                                         end;
   188                                         end;
   188                                     Gear^.Hedgehog^.Effects[hePoisoned] := 5;
   189                                     Gear^.Hedgehog^.Effects[hePoisoned] := 5;
   189                                     end
   190                                     end
   190                             end;
   191                             end;
   191 
   192