hedgewars/uChat.pas
changeset 2125 3ebe8cd30b84
parent 2124 d39c61eaca15
child 2130 708758635955
equal deleted inserted replaced
2124:d39c61eaca15 2125:3ebe8cd30b84
   187     end;
   187     end;
   188 
   188 
   189 if copy(s, 1, 4) = '/ts ' then
   189 if copy(s, 1, 4) = '/ts ' then
   190     begin
   190     begin
   191     AddFileLog('attempting teamsay: '+s);
   191     AddFileLog('attempting teamsay: '+s);
   192     ParseCommand('/teamsay ' + char(LocalClan) + copy(s, 5, Length(s)-4), true);
   192     ParseCommand('/teamsay ' + char(LocalClan) + UserNick + ': '+copy(s, 5, Length(s)-4), true);
   193     exit
   193     exit
   194     end;
   194     end;
   195 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
   195 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
   196 	begin
   196 	begin
   197 	if CurrentTeam^.ExtDriven then exit;
   197 	if CurrentTeam^.ExtDriven then exit;