--- a/hedgewars/uChat.pas	Fri May 12 23:15:01 2023 +0200
+++ b/hedgewars/uChat.pas	Wed May 24 21:23:33 2023 +0200
@@ -27,6 +27,7 @@
 procedure freeModule;
 procedure ReloadLines;
 procedure CleanupInput;
+procedure CloseChat;
 procedure AddChatString(s: shortstring);
 procedure DrawChat;
 procedure KeyPressChat(keysym: TSDL_Keysym);
@@ -782,6 +783,13 @@
     ResetKbd;
 end;
 
+procedure CloseChat;
+begin
+    SetLine(InputStr, '', true);
+    ResetCursor();
+    CleanupInput();
+end;
+
 procedure DelBytesFromInputStrBack(endIdx: integer; count: byte);
 var startIdx: integer;
 begin