--- a/hedgewars/uIO.pas	Thu Dec 13 22:24:06 2007 +0000
+++ b/hedgewars/uIO.pas	Thu Dec 13 22:46:36 2007 +0000
@@ -34,6 +34,8 @@
 procedure CloseIPC;
 procedure NetGetNextCmd;
 
+var hiTicks: Word = 0;
+
 implementation
 uses uConsole, uConsts, uWorld, uMisc, uLand;
 const isPonged: boolean = false;
@@ -55,8 +57,6 @@
      headcmd: PCmd = nil;
      lastcmd: PCmd = nil;
 
-     hiTicks: Word = 0;
-
 function AddCmd(Time: Longword; str: shortstring): PCmd;
 var Result: PCmd;
 begin