anchor.diff:        0:  SetLand(0, 62, GetObj); //empty field
   
         1:  begin //Sow corn
  -            FieldAge := 1 + Ord(aRandomAge) * KaMRandom((CORN_AGE_1 - 1) div 2, 'TKMTerrain.SetField');
  -            SetLand(FieldAge, 61, GetObj);
  +            fieldAge := 1 + Ord(aRandomAge) * KaMRandom((CORN_AGE_1 - 1) div 2, 'TKMTerrain.SetField');
  +            SetLand(fieldAge, 61, GetObj);
             end;
   
         2:  begin //Young seedings
  -            FieldAge := CORN_AGE_1 + Ord(aRandomAge) * KaMRandom((CORN_AGE_2 - CORN_AGE_1) div 2, 'TKMTerrain.SetField 2');
  -            SetLand(FieldAge, 59, OBJ_NONE);
  +            fieldAge := CORN_AGE_1 + Ord(aRandomAge) * KaMRandom((CORN_AGE_2 - CORN_AGE_1) div 2, 'TKMTerrain.SetField 2');
  +            SetLand(fieldAge, 59, OBJ_NONE);
             end;
   
         3:  begin //Seedings
  -            FieldAge := CORN_AGE_2 + Ord(aRandomAge) * KaMRandom((CORN_AGE_3 - CORN_AGE_2) div 2, 'TKMTerrain.SetField 3');
  -            SetLand(FieldAge, 60, OBJ_NONE);
  +            fieldAge := CORN_AGE_2 + Ord(aRandomAge) * KaMRandom((CORN_AGE_3 - CORN_AGE_2) div 2, 'TKMTerrain.SetField 3');
  +            SetLand(fieldAge, 60, OBJ_NONE);
             end;
   
         4:  begin //Smaller greenish Corn
  -            FieldAge := CORN_AGE_3 + Ord(aRandomAge) * KaMRandom((CORN_AGE_FULL - CORN_AGE_3) div 2, 'TKMTerrain.SetField 4');
  -            SetLand(FieldAge, 60, 58);
  +            fieldAge := CORN_AGE_3 + Ord(aRandomAge) * KaMRandom((CORN_AGE_FULL - CORN_AGE_3) div 2, 'TKMTerrain.SetField 4');
  +            SetLand(fieldAge, 60, 58);
             end;
   
         5:  begin //Full-grown Corn
  -            FieldAge := CORN_AGE_FULL - 1; //-1 because it is increased in update state, otherwise it wouldn't be noticed
  -            SetLand(FieldAge, 60, 59);
  +            fieldAge := CORN_AGE_FULL - 1; //-1 because it is increased in update state, otherwise it wouldn't be noticed
  +            SetLand(fieldAge, 60, 59);
             end;
   
         6:  SetLand(0, 63, OBJ_NONE); //Corn has been cut
  
positive.code: 
  procedure TKMTerrain.UnitVertexAdd(const LocFrom, LocTo: TKMPoint);
  begin
    assert(KMStepIsDiag(LocFrom, LocTo), 'Add non-diagonal vertex?');
    UnitVertexAdd(KMGetDiagVertex(LocFrom, LocTo), GetVertexUsageType(LocFrom, LocTo));
  end;
  
  
negative.code: function TKMTerrain.FindStone(const aLoc: TKMPoint; aRadius: Byte; const aAvoidLoc: TKMPoint; aIgnoreWorkingUnits: Boolean;
                                out StonePoint: TKMPointDir): Boolean;
  var
    chosenTiles: TKMPointList;
    P: TKMPoint;
  begin
    chosenTiles := TKMPointList.Create;
    try
      FindStoneLocs(aLoc, aRadius, aAvoidLoc, aIgnoreWorkingUnits, chosenTiles);
  
      Result := chosenTiles.GetRandom(P);
      StonePoint := KMPointDir(P, dirN);
    finally
      chosenTiles.Free;
    end;
  end;
  
  