--- a/hedgewars/uAI.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uAI.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -22,6 +22,9 @@
 interface
 uses uFloat;
 
+procedure init_uAI;
+procedure free_uAI;
+
 procedure ProcessBot;
 procedure FreeActionsList;
 
@@ -33,7 +36,7 @@
     CanUseAmmo: array [TAmmoType] of boolean;
     StopThinking: boolean;
     ThinkThread: TThreadID;
-    hasThread: LongInt = 0;
+    hasThread: LongInt;
 
 procedure FreeActionsList;
 begin
@@ -342,4 +345,14 @@
                 or (TurnTimeLeft <= cStopThinkTime) then StopThinking:= true
 end;
 
+procedure init_uAI;
+begin
+	hasThread:= 0;
+end;
+
+procedure free_uAI;
+begin
+
+end;
+
 end.