--- a/hedgewars/PascalExports.pas	Sat Jul 17 03:59:10 2010 +0200
+++ b/hedgewars/PascalExports.pas	Sat Jul 17 06:56:39 2010 +0200
@@ -13,7 +13,7 @@
 unit PascalExports;
 
 interface
-uses uKeys, GLunit, uWorld, uMisc, uGears, uConsole, uTeams, uConsts, hwengine;
+uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, hwengine;
 
 {$INCLUDE "config.inc"}
 
@@ -118,6 +118,12 @@
     chatAction:= true;
 end;
 
+procedure HW_chatEnd; cdecl; export;
+begin
+    KeyPressChat(27); // esc - cleans buffer
+    KeyPressChat(13); // enter - removes chat
+end;
+
 procedure HW_tab; cdecl; export;
 begin
     switchAction:= true;