hedgewars/uIO.pas
changeset 13837 10a3b80130b5
parent 13833 76a1d6275cd3
child 13882 8c702a4839ec
equal deleted inserted replaced
13836:b07610de9957 13837:10a3b80130b5
   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(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