hedgewars/uGearsUtils.pas
changeset 12298 6383323fdd2c
parent 12294 c20fbf96b853
child 12347 ad09d733fdb0
--- a/hedgewars/uGearsUtils.pas	Thu Apr 20 00:04:35 2017 +0200
+++ b/hedgewars/uGearsUtils.pas	Thu Apr 20 02:38:45 2017 +0200
@@ -261,7 +261,7 @@
 end;
 
 procedure ApplyDamage(Gear: PGear; AttackerHog: PHedgehog; Damage: Longword; Source: TDamageSource);
-var s: shortstring;
+var s: ansistring;
     vampDmg, tmpDmg, i: Longword;
     vg: PVisualGear;
 begin
@@ -286,8 +286,8 @@
                     // was considering pulsing on attack, Tiy thinks it should be permanent while in play
                     //CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstVampiric;
                     inc(CurrentHedgehog^.Gear^.Health,vampDmg);
-                    s:= '+' + IntToStr(vampDmg);
-                    AddCaption(ansistring(s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
+                    s:= IntToStr(vampDmg);
+                    AddCaption(FormatA(trmsg[sidHealthGain], s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
                     RenderHealth(CurrentHedgehog^);
                     RecountTeamHealth(CurrentHedgehog^.Team);
                     i:= 0;