hedgewars/uIO.pas
changeset 13877 8c702a4839ec
parent 13832 10a3b80130b5
child 14463 bd1db668b7c0
equal deleted inserted replaced
13876:aa321e51da14 13877:8c702a4839ec
   193              while (i <= length(s)) do
   193              while (i <= length(s)) do
   194                 begin
   194                 begin
   195                 msg:= msg + s[i];
   195                 msg:= msg + s[i];
   196                 inc(i)
   196                 inc(i)
   197                 end;
   197                 end;
   198              s:= 'b' + Format(trmsg[sidChatTeam], nick, msg);
   198              s:= 'b' + Format(shortstring(trmsg[sidChatTeam]), nick, msg);
   199              if (nick = '') or (msg = '') then
   199              if (nick = '') or (msg = '') then
   200                  isProcessed:= false
   200                  isProcessed:= false
   201              else
   201              else
   202                  ParseChatCommand('chatmsg ' + #4, s, 2);
   202                  ParseChatCommand('chatmsg ' + #4, s, 2);
   203              end
   203              end