--- a/hedgewars/PascalExports.pas	Thu Feb 04 22:34:21 2010 +0000
+++ b/hedgewars/PascalExports.pas	Fri Feb 05 00:43:56 2010 +0000
@@ -39,7 +39,8 @@
 procedure HW_aimDown; cdecl; export;
 procedure HW_shoot; cdecl; export;
 procedure HW_whereIsHog; cdecl; export;
-
+procedure HW_chat; cdecl; export;
+procedure HW_tab; cdecl; export;
 {$ENDIF}
 
 implementation
@@ -78,11 +79,8 @@
 
 procedure HW_allKeysUp; cdecl; export;
 begin
-	upKey:= false;
-	downKey:= false;
-	leftKey:= false;
-	rightKey:= false;
-	spaceKey:= false;
+	// set all keys to released
+	init_uKeys();
 end;
 
 procedure HW_walkLeft; cdecl; export;
@@ -110,6 +108,16 @@
 	spaceKey:= true;
 end;
 
+procedure HW_chat; cdecl; export;
+begin
+	chatAction:= true;
+end;
+
+procedure HW_tab; cdecl; export;
+begin
+	switchAction:= true;
+end;
+
 procedure HW_whereIsHog; cdecl; export;
 //var Xcoord, Ycoord: LongInt;
 begin