hedgewars/uChat.pas
changeset 950 feb18ec0c5c2
parent 949 866729775535
child 984 dd5f16f69926
equal deleted inserted replaced
949:866729775535 950:feb18ec0c5c2
   121 				SetLine(InputStr, InputStr.s)
   121 				SetLine(InputStr, InputStr.s)
   122 				end;
   122 				end;
   123 		13, 271: begin
   123 		13, 271: begin
   124 			if Length(InputStr.s) > 0 then
   124 			if Length(InputStr.s) > 0 then
   125 				begin
   125 				begin
   126 				s:= UserNick + ': ' + InputStr.s;
   126 				ParseCommand('/say ' + InputStr.s, true);
   127 				AddChatString(s);
       
   128 				ParseCommand('/say ' + s, true);
       
   129 				SetLine(InputStr, '')
   127 				SetLine(InputStr, '')
   130 				end;
   128 				end;
   131 			FreezeEnterKey;
   129 			FreezeEnterKey;
   132 			GameState:= gsGame
   130 			GameState:= gsGame
   133 			end
   131 			end