anchor.diff:  end;
   
   
  -//Check if a route can be made to any tile around this house
  +// Check if a route can be made to any tile around this house
   function TKMUnit.CanWalkTo(const aFrom: TKMPoint; aHouse: TKMHouse; aPass: TKMTerrainPassability; aDistance: Single): Boolean;
   var
     I: Integer;
  
positive.code:     fVisual.UpdateState;
  end;
  
  procedure TKMUnit.VertexAdd(const aFrom, aTo: TKMPoint);
  begin
    gTerrain.UnitVertexAdd(aFrom, aTo);
  end;
  
  procedure TKMUnit.VertexRem(const aLoc: TKMPoint);
  begin
  
negative.code:   try
      aHouse.GetListOfCellsWithin(cells);
      for I := 0 to cells.Count - 1 do
      if gTerrain.Route_CanBeMade(aFrom, cells[I], aPass, aDistance) then
        Exit(True);
    finally
      cells.Free;
    end;
  