hedgewars/uChat.pas
changeset 13865 184584b82c4c
parent 13861 2b6702777c8c
child 13893 65fe3933b19d
equal deleted inserted replaced
13864:7c333cffd63e 13865:184584b82c4c
   463     exit
   463     exit
   464     end;
   464     end;
   465 
   465 
   466 if (s[1] = '/') then
   466 if (s[1] = '/') then
   467     begin
   467     begin
       
   468     if (Length(s) <= 1) then
       
   469         begin
       
   470         // empty chat command
       
   471         AddChatString(#0 + trcmd[sidCmdUnknown]);
       
   472         exit;
       
   473         end;
   468 
   474 
   469     // Ignore message-type commands with empty argument list
   475     // Ignore message-type commands with empty argument list
   470     if (copy(s, 2, 2) = 'me') and (Length(s) = 3) then
   476     if (copy(s, 2, 2) = 'me') and (Length(s) = 3) then
   471         exit;
   477         exit;
   472     if ((copy(s, 2, 3) = 'hsa') or (copy(s, 2, 3) = 'hta') or (copy(s, 2, 3) = 'hya')) and (Length(s) = 4) then
   478     if ((copy(s, 2, 3) = 'hsa') or (copy(s, 2, 3) = 'hta') or (copy(s, 2, 3) = 'hya')) and (Length(s) = 4) then