anchor.diff:  end;
   
   
  -{Extract one unit of stone}
  -function TKMTerrain.DecStoneDeposit(const Loc: TKMPoint): Boolean;
  +// Extract one unit of stone
  +function TKMTerrain.DecStoneDeposit(const aLoc: TKMPoint): Boolean;
   type
     TStoneTransitionType = (sttNone, sttGrass, sttCoastSand, sttDirt, sttSnow, sttSnowOnDirt);
   
  
positive.code: end;
  
  
  {Remove the tree and place a falling tree instead}
  function TKMTerrain.FallTree(const Loc: TKMPoint): Boolean;
  var
    I: Integer;
  
negative.code: end;
  
  
  // Remove the tree and place stump instead
  procedure TKMTerrain.ChopTree(const Loc: TKMPoint);
  var
    H: TKMHouse;
  