anchor.diff:    for i:=aPosition.Y-aRadius to aPosition.Y+aRadius do
       for k:=aPosition.X-aRadius to aPosition.X+aRadius do
         if (TileInMapCoords(k,i,1))and(KMLength(aPosition,KMPoint(k,i))<=aRadius) then
  -        if Land[i,k].Terrain in [59..63] then //Should replace it later on
  +        if TileIsCornField(KMPoint(k,i)) then
             if ((aAgeFull)and(Land[i,k].FieldAge=65535))or((not aAgeFull)and(Land[i,k].FieldAge=0)) then
               List.AddEntry(KMPoint(k,i));
   
  
positive.code:   function TileIsWalkable(Loc:TKMPoint):boolean;
    function TileIsRoadable(Loc:TKMPoint):boolean;
    function TileIsExTree(Loc:TKMPoint):boolean;
    procedure RevealCircle(Pos:TKMPoint; Radius,Amount:word; PlayerID:TPlayerID);
    procedure RevealWholeMap(PlayerID:TPlayerID);
    function CheckRevelation(X,Y:word; PlayerID:TPlayerID):byte;
  
negative.code:   function TileInMapCoords(X,Y:integer; Inset:byte=0):boolean;
    function SetTileInMapCoords(X,Y:integer; Inset:byte=0):TKMPoint;
    function VerticeInMapCoords(X,Y:integer; Inset:byte=0):boolean;
  
    function TileIsWater(Loc:TKMPoint):boolean;
    function TileIsSand(Loc:TKMPoint):boolean;
    function TileIsStone(Loc:TKMPoint):byte;
  