--- a/hedgewars/uAIMisc.pas	Tue Aug 27 08:41:48 2019 +0200
+++ b/hedgewars/uAIMisc.pas	Tue Aug 27 14:37:39 2019 +0200
@@ -57,7 +57,7 @@
 
 TBonuses = record
           activity: boolean;
-          Count : Longword;
+          Count : LongInt;
           ar    : array[0..Pred(MAXBONUS)] of TBonus;
        end;
 
@@ -799,7 +799,7 @@
                         begin
                         dead:= true;
                         Targets.reset:= true;
-                        if gdX < 0.035 then
+                        if abs(gdX) < 0.035 then
                             begin
                             subrate:= RealRateExplosion(Me, round(pX), round(pY), 61, afErasesLand or afTrackFall);
                             if abs(subrate) > 2000 then inc(Rate,subrate div 1024)