--- a/hedgewars/uAI.pas	Tue May 01 20:54:30 2012 +0400
+++ b/hedgewars/uAI.pas	Tue May 01 19:56:55 2012 +0200
@@ -408,8 +408,7 @@
 end;
 
 procedure ProcessBot;
-const StartTicks: Longword = 0;
-      cStopThinkTime = 40;
+const cStopThinkTime = 40;
 begin
 with CurrentHedgehog^ do
     if (Gear <> nil)
@@ -439,6 +438,7 @@
 procedure initModule;
 begin
     hasThread:= 0;
+    StartTicks:= 0;
     ThinkThread:= ThinkThread;
 end;