hedgewars/uTeams.pas
changeset 13885 f68bb13f7bc7
parent 13857 10a3b80130b5
child 13889 086aa3ae097f
--- a/hedgewars/uTeams.pas	Fri Oct 05 21:58:12 2018 +0200
+++ b/hedgewars/uTeams.pas	Fri Oct 05 16:22:51 2018 -0400
@@ -782,6 +782,7 @@
 procedure chTeamGone(var s:shortstring);
 var t, i: LongInt;
     isSynced: boolean;
+    tmp: ansistring;
 begin
     isSynced:= s[1] = 's';
 
@@ -802,7 +803,9 @@
                 begin
                 if (not hasGone) and isGoneFlagPendingToBeSet then
                     begin
-                    AddChatString(#7 + '* '+ FormatA(trmsg[sidTeamGone], TeamName));
+                    tmp:= ' ' + trmsg[sidTeamGone];
+                    tmp:= '*' + tmp;
+                    AddChatString(#7 + FormatA(tmp, TeamName));
                     if not CurrentTeam^.ExtDriven then SendIPC(_S'f' + s);
                     hasGone:= true;
                     skippedTurns:= 0;
@@ -825,6 +828,7 @@
 procedure chTeamBack(var s:shortstring);
 var t: LongInt;
     isSynced: boolean;
+    tmp: ansistring;
 begin
     isSynced:= s[1] = 's';
 
@@ -841,7 +845,9 @@
         with TeamsArray[t]^ do
             if hasGone then
                 begin
-                AddChatString(#8 + '* '+ FormatA(trmsg[sidTeamBack], TeamName));
+                tmp:= ' '+trmsg[sidTeamBack];
+                tmp:= '*'+trmsg[sidTeamBack];
+                AddChatString(#8 + FormatA(tmp, TeamName));
                 if not CurrentTeam^.ExtDriven then SendIPC(_S'g' + s);
                 hasGone:= false;