hedgewars/uChat.pas
changeset 13872 65fe3933b19d
parent 13844 184584b82c4c
child 13877 8c702a4839ec
equal deleted inserted replaced
13871:5df16be168ff 13872:65fe3933b19d
   509             SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
   509             SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
   510         exit
   510         exit
   511         end;
   511         end;
   512 
   512 
   513     // “/clan” or “/team” (“/team” is an alias for “/clan”)
   513     // “/clan” or “/team” (“/team” is an alias for “/clan”)
   514     if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) and (length(s) > 6) then
   514     if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) then
   515         begin
   515         begin
   516         ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
   516         if (Length(s) > 6) then
       
   517             ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
   517         exit
   518         exit
   518         end;
   519         end;
   519 
   520 
   520     if (copy(s, 2, 3) = 'me ') then
   521     if (copy(s, 2, 3) = 'me ') then
   521         begin
   522         begin