--- a/hedgewars/uChat.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uChat.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -22,12 +22,15 @@
 
 interface
 
+procedure init_uChat;
+procedure free_uChat;
+
 procedure AddChatString(s: shortstring);
 procedure DrawChat;
 procedure KeyPressChat(Key: Longword);
 
-var UserNick: shortstring = '';
-    showAll: boolean = false;
+var UserNick: shortstring;
+    showAll: boolean;
 
 implementation
 uses uMisc, uStore, uConsts, SDLh, uConsole, uKeys, uTeams;
@@ -42,11 +45,10 @@
 		end;
 
 var Strs: array[0 .. MaxStrIndex] of TChatLine;
-	lastStr: Longword = 0;
-	visibleCount: Longword = 0;
-
-	InputStr: TChatLine;
-	InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char
+    lastStr: LongWord;
+    visibleCount: LongWord;
+    InputStr: TChatLine;
+    InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char
 
 const colors: array[#1..#4] of TSDL_Color = (
 	(r:$FF; g:$FF; b:$FF; unused:$FF), // chat message [White]
@@ -282,5 +284,17 @@
 	end
 end;
 
+procedure init_uChat;
+begin
+    lastStr:= 0;
+    visibleCount:= 0;
+    UserNick:= '';
+    showAll:= false;
+end;
+
+procedure free_uChat;
+begin
+
+end;
 
 end.