--- a/hedgewars/uGame.pas	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/uGame.pas	Sat Jan 27 14:18:33 2007 +0000
@@ -21,16 +21,16 @@
 uses uFloat;
 {$INCLUDE options.inc}
 
-procedure DoGameTick(Lag: integer);
+procedure DoGameTick(Lag: LongInt);
 
 ////////////////////
    implementation
 ////////////////////
 uses uMisc, uConsts, uWorld, uKeys, uTeams, uIO, uAI, uGears, uConsole;
 
-procedure DoGameTick(Lag: integer);
+procedure DoGameTick(Lag: LongInt);
 const SendEmptyPacketTicks: LongWord = 0;
-var i: integer;
+var i: LongInt;
 begin
 if isPaused then exit;
 if not CurrentTeam^.ExtDriven then