hedgewars/uGearsHedgehog.pas
changeset 12189 50856782cdc4
parent 12174 869cf5f34700
child 12198 71c47122fbc0
--- a/hedgewars/uGearsHedgehog.pas	Fri Apr 07 03:27:17 2017 +0200
+++ b/hedgewars/uGearsHedgehog.pas	Fri Apr 07 04:56:51 2017 +0200
@@ -937,6 +937,7 @@
 var isFalling, isUnderwater: boolean;
     land: Word;
     cnt: LongWord;
+    s: ansistring;
 begin
 if Gear^.Hedgehog^.Unplaced then
     begin
@@ -1188,7 +1189,8 @@
     if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250))  then
         begin
         Gear^.FlightTime:= 0;
-        AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
+        s:= ansistring(CurrentHedgehog^.Name);
+        AddCaption(FormatA(GetEventString(eidHomerun), s), cWhiteColor, capgrpMessage);
         PlaySound(sndHomerun)
         end;
     end