# HG changeset patch # User nemo # Date 1538770971 14400 # Node ID f68bb13f7bc7328b32508f599700479dc097d916 # Parent 4f123ac4f0022175ac6c783a6e8c0e68796692ee silly tmp var for sake of pas2c diff -r 4f123ac4f002 -r f68bb13f7bc7 hedgewars/uTeams.pas --- 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;