400     if not CheckBounds(x, y, r) then

   400     if not CheckBounds(x, y, r) then

   401         exit(false);

   401         exit(false);

   402 

   402 

   403     if (Land[y-r, x-r] > lfAllObjMask) or

   403     if (Land[y-r, x-r] > lfAllObjMask) or

   404        (Land[y+r, x-r] > lfAllObjMask) or

   404        (Land[y+r, x-r] > lfAllObjMask) or

   406        (Land[y+r, x+r] > lfAllObjMask) then

   406        (Land[y+r, x+r] > lfAllObjMask) then

   407        exit(true);

   407        exit(true);

   408 

   408 

   409     TestCollExcludingObjects:= false;

   409     TestCollExcludingObjects:= false;

   410 end;

   410 end;

   414     if not CheckBounds(x, y, r) then

   414     if not CheckBounds(x, y, r) then

   415         exit(false);

   415         exit(false);

   416 

   416 

   417     if (Land[y-r, x-r] and lfNotCurHogCrate <> 0) or

   417     if (Land[y-r, x-r] and lfNotCurHogCrate <> 0) or

   418        (Land[y+r, x-r] and lfNotCurHogCrate <> 0) or

   418        (Land[y+r, x-r] and lfNotCurHogCrate <> 0) or

   420        (Land[y+r, x+r] and lfNotCurHogCrate <> 0) then

   420        (Land[y+r, x+r] and lfNotCurHogCrate <> 0) then

   421        exit(true);

   421        exit(true);

   422 

   422 

   423     TestColl:= false;

   423     TestColl:= false;

   424 end;

   424 end;