--- a/hedgewars/uGears.pas	Mon Jul 07 17:20:35 2008 +0000
+++ b/hedgewars/uGears.pas	Tue Jul 08 12:53:07 2008 +0000
@@ -405,7 +405,7 @@
 function WaterMachine: boolean;
 const
 	decStep: Longword = 0;
-	LastTurn: LongWord = 0;
+	LastTurn: LongInt = 0;
 var i: LongWord;
 begin
 if (decStep = 0) and (LastTurn < FinishedTurnsTotal) then

--- a/hedgewars/uStats.pas	Mon Jul 07 17:20:35 2008 +0000
+++ b/hedgewars/uStats.pas	Tue Jul 08 12:53:07 2008 +0000
@@ -39,7 +39,7 @@
 procedure SendStats;
 
 var
-	TotalRounds: Longword = -1;
+	TotalRounds: LongInt = -1;
 	FinishedTurnsTotal: LongInt = -1;
 
 implementation