hedgewars/uChat.pas
branch0.9.25
changeset 14366 2ab312c47dc3
parent 14300 79e07510b8e3
child 14378 4edc73fc722c
equal deleted inserted replaced
14365:a7769dbd7088 14366:2ab312c47dc3
   513         else
   513         else
   514             SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
   514             SendHogSpeech(#6 + copy(s, 6, Length(s)-5));
   515         exit
   515         exit
   516         end;
   516         end;
   517 
   517 
   518     // “/clan” or “/team” (“/team” is an alias for “/clan”)
   518     // "/clan" or "/team" ("/team" is an alias for "/clan")
   519     if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) then
   519     if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) then
   520         begin
   520         begin
   521         if (Length(s) > 6) then
   521         if (Length(s) > 6) then
   522             ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
   522             ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
   523         exit
   523         exit