hedgewars/uChat.pas
changeset 2403 6c5d504af2ba
parent 2397 2ca4ca6b4bab
child 2500 31ba68a50208
equal deleted inserted replaced
2402:edd12b259e7c 2403:6c5d504af2ba
   204     exit
   204     exit
   205     end;
   205     end;
   206 
   206 
   207 if copy(s, 1, 6) = '/team ' then
   207 if copy(s, 1, 6) = '/team ' then
   208     begin
   208     begin
   209     ParseCommand('/team ' + char(LocalClan) + UserNick + '(team): '+copy(s, 7, Length(s)-6), true);
   209     ParseCommand(s, true);
   210     exit
   210     exit
   211     end;
   211     end;
   212 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
   212 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
   213 	begin
   213 	begin
   214 	if CurrentTeam^.ExtDriven then exit;
   214 	if CurrentTeam^.ExtDriven then exit;