hedgewars/uChat.pas
changeset 1038 3c843ce630ea
parent 1035 6f5842bc481b
child 1066 1f1b3686a2b0
equal deleted inserted replaced
1037:63f956a6fe7f 1038:3c843ce630ea
   117 	DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex);
   117 	DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex);
   118 end;
   118 end;
   119 
   119 
   120 procedure AcceptChatString(s: shortstring);
   120 procedure AcceptChatString(s: shortstring);
   121 var i: TWave;
   121 var i: TWave;
   122 	b: boolean;
       
   123 begin
   122 begin
   124 if s[1] = '/' then
   123 if s[1] = '/' then
   125 	begin
   124 	begin
   126 	if CurrentTeam^.ExtDriven then exit;
   125 	if CurrentTeam^.ExtDriven then exit;
   127 	
   126