hedgewars/uChat.pas
changeset 13852 266a25b79374
parent 13847 93aa09004d36
child 13853 d1f7a8a11526
--- a/hedgewars/uChat.pas	Thu Oct 04 17:07:17 2018 +0200
+++ b/hedgewars/uChat.pas	Thu Oct 04 17:30:24 2018 +0200
@@ -490,9 +490,10 @@
         exit
         end;
 
-    if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then
+    // “/clan” or “/team” (“/team” is an alias for “/clan”)
+    if ((copy(s, 2, 5) = 'clan ') or (copy(s, 2, 5) = 'team ')) and (length(s) > 6) then
         begin
-        ParseCommand(s, true);
+        ParseCommand('team ' + copy(s, 7, Length(s) - 6), true);
         exit
         end;
 
@@ -1162,7 +1163,7 @@
         SetLine(InputStr, '', true)
     else
         begin
-        SetLine(InputStr, '/team ', true);
+        SetLine(InputStr, '/clan ', true);
         cursorPos:= 6;
         UpdateCursorCoords();
         end;