hedgewars/uChat.pas
changeset 13829 266a25b79374
parent 13824 93aa09004d36
child 13830 d1f7a8a11526
equal deleted inserted replaced
13828:76a1d6275cd3 13829:266a25b79374
   488         else
   488         else
   489             SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
   489             SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
   490         exit
   490         exit
   491         end;
   491         end;
   492 
   492 
   493     if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then
   493     // “/clan” or “/team” (“/team” is an alias for “/clan”)
   494         begin
   494     if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) and (length(s) > 6) then
   495         ParseCommand(s, true);
   495         begin
       
   496         ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
   496         exit
   497         exit
   497         end;
   498         end;
   498 
   499 
   499     if (copy(s, 2, 3) = 'me ') then
   500     if (copy(s, 2, 3) = 'me ') then
   500         begin
   501         begin
  1160     //SDL_EnableKeyRepeat(200,45);
  1161     //SDL_EnableKeyRepeat(200,45);
  1161     if length(s) = 0 then
  1162     if length(s) = 0 then
  1162         SetLine(InputStr, '', true)
  1163         SetLine(InputStr, '', true)
  1163     else
  1164     else
  1164         begin
  1165         begin
  1165         SetLine(InputStr, '/team ', true);
  1166         SetLine(InputStr, '/clan ', true);
  1166         cursorPos:= 6;
  1167         cursorPos:= 6;
  1167         UpdateCursorCoords();
  1168         UpdateCursorCoords();
  1168         end;
  1169         end;
  1169 end;
  1170 end;
  1170 
  1171