hedgewars/uGearsHandlersMess.pas
changeset 12837 31dd78cbf729
parent 12828 948eae885eac
child 12898 8a40ce061d94
equal deleted inserted replaced
12836:8610462e3d33 12837:31dd78cbf729
  3167         AddCaption(FormatA(GetEventString(eidKamikaze), s), cWhiteColor, capgrpMessage);
  3167         AddCaption(FormatA(GetEventString(eidKamikaze), s), cWhiteColor, capgrpMessage);
  3168         uStats.HedgehogSacrificed(Gear^.Hedgehog);
  3168         uStats.HedgehogSacrificed(Gear^.Hedgehog);
  3169         AfterAttack;
  3169         AfterAttack;
  3170         HHGear^.Message:= HHGear^.Message or gmDestroy;
  3170         HHGear^.Message:= HHGear^.Message or gmDestroy;
  3171         DeleteGear(Gear);
  3171         DeleteGear(Gear);
  3172     end
  3172         end
  3173     else
  3173     else
  3174         begin
  3174         begin
  3175         dec(Gear^.Health, Gear^.Damage);
  3175         dec(Gear^.Health, Gear^.Damage);
  3176         Gear^.Damage := 0
  3176         Gear^.Damage := 0
  3177         end
  3177         end