hedgewars/uChat.pas
changeset 2130 708758635955
parent 2125 3ebe8cd30b84
child 2131 8b9f7a407408
equal deleted inserted replaced
2129:8664554d5547 2130:708758635955
   184     else
   184     else
   185         ParseCommand('/hogsay '#6 + copy(s, 6, Length(s)-5), true);
   185         ParseCommand('/hogsay '#6 + copy(s, 6, Length(s)-5), true);
   186     exit
   186     exit
   187     end;
   187     end;
   188 
   188 
   189 if copy(s, 1, 4) = '/ts ' then
   189 if copy(s, 1, 6) = '/team ' then
   190     begin
   190     begin
   191     AddFileLog('attempting teamsay: '+s);
   191     ParseCommand('/team ' + char(LocalClan) + UserNick + ': '+copy(s, 7, Length(s)-6), true);
   192     ParseCommand('/teamsay ' + char(LocalClan) + UserNick + ': '+copy(s, 5, Length(s)-4), true);
       
   193     exit
   192     exit
   194     end;
   193     end;
   195 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
   194 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then
   196 	begin
   195 	begin
   197 	if CurrentTeam^.ExtDriven then exit;
   196 	if CurrentTeam^.ExtDriven then exit;