--- a/hedgewars/uAI.pas	Sun Nov 18 16:10:18 2018 +0100
+++ b/hedgewars/uAI.pas	Sun Nov 18 16:57:43 2018 +0100
@@ -254,7 +254,7 @@
 const FallPixForBranching = cHHRadius;
 var
     ticks, maxticks, oldticks, steps, tmp: Longword;
-    BaseRate, BestRate, Rate: integer;
+    BaseRate, BestRate, Rate: LongInt;
     GoInfo: TGoInfo;
     CanGo: boolean;
     AltMe: TGear;