Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uTeams.pas
changeset 10116 dd27562b6f21
parent 10108 c68cf030eded
child 10124 aabd1b75d5a3 
--- a/hedgewars/uTeams.pas	Fri Feb 07 00:47:51 2014 +0400
+++ b/hedgewars/uTeams.pas	Thu Feb 06 22:03:53 2014 +0100
@@ -103,7 +103,7 @@
             else
                 AddVoice(sndVictory, Teams[0]^.voicepack);
 
-            AddCaption(Str2PChar(s), cWhiteColor, capgrpGameState);
+            AddCaption(s, cWhiteColor, capgrpGameState);
             SendStat(siGameResult, s);
             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)
             end;
@@ -334,7 +334,7 @@
         end;
     if cHedgehogTurnTime < 1000000 then
         ReadyTimeLeft:= cReadyDelay;
-    AddCaption(FormatPChar(trmsg[sidReady], Str2PChar(CurrentTeam^.TeamName)), cWhiteColor, capgrpGameState)
+    AddCaption(Format(shortstring(trmsg[sidReady]), CurrentTeam^.TeamName), cWhiteColor, capgrpGameState)
     end
 else
     begin
hedgewars