# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1543514793 -3600
# Node ID 22c91ac48d38745753b5bc44c0102611b62fa512
# Parent  ef7501d9935c72f22a6664d7e339608da64c01f7
Do not call AddCI when air mine is frozen without creating land

I.e. when it is frozen out of land bounds.

diff -r ef7501d9935c -r 22c91ac48d38 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Thu Nov 29 18:54:31 2018 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Nov 29 19:06:33 2018 +0100
@@ -6479,10 +6479,10 @@
                                 begin
                                 iter^.Damage:= 0;
                                 iter^.State:= iter^.State or gstFrozen;
-                                AddCI(iter);
                                 if (hwRound(iter^.X) < RightX-16) and (hwRound(iter^.X) > LeftX+16) and 
                                     (hwRound(iter^.Y) > topY+16) and (hwRound(iter^.Y) < LAND_HEIGHT-16) then
                                     begin
+                                    AddCI(iter);
 									iter^.X:= int2hwFloat(min(RightX-16,max(hwRound(iter^.X), LeftX+16)));
 									iter^.Y:= int2hwFloat(min(LAND_HEIGHT-16,max(hwRound(iter^.Y),TopY+16)));
                                     ForcePlaceOnLand(hwRound(iter^.X)-16, hwRound(iter^.Y)-16, sprFrozenAirMine, 0, lfIce, $FFFFFFFF, false, false, false);