anchor.diff:    procedure FillArea(X,Y: Word);
     begin
       //Untested area that matches passability
  -    if (fArea[R,Y,X] = 0) and (TileDeposit(R,X,Y) > 0) then
  +    if (fArea[R,Y,X] = 0) and (TileDepositExist(R,X,Y)) then
       begin
         fArea[R,Y,X] := AreaID;
         Inc(Count);
  
positive.code: begin
    Result := fAreaLoc[aMat, aIndex];
  end;
  
  
  //Get tile resource deposit
  function TKMDeposits.TileDeposit(aMat: TRawDeposit; X,Y: Word): Byte;
  
negative.code:     AreaID := 0;
      for I := 0 to fTerrain.MapY - 1 do
      for K := 0 to fTerrain.MapX - 1 do
      if (fArea[R,I,K] = 0) and (TileDepositExist(R,K,I)) then
      begin
        Inc(AreaID);
        Count := 0;
  