anchor.diff:      );
   
   
  -
  -
   implementation
  -uses KromUtils, KM_Utils;
  +uses KM_TextLibrary;
   
   
   { TKMHouseDatClass }
  
positive.code: 
  function TKMHouseDatClass.GetDoesOrders: boolean;
  begin
    Result := HouseDoesOrders_[fHouseType];
  end;
  
  
  
negative.code:     procedure ExportCSV(aPath: string);
    end;
  
  type
    THouseInfo = record
      PlanYX:THouseArea;
      DoesOrders:byte;
      BuildIcon:word;
      TabletIcon:word;
      Input:THouseRes;
      Output:THouseRes;
    end;
  
  const
    HouseInfo:array[THouseType] of THouseInfo = (
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,0,0,0), (0,0,0,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //0
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,0,0,0), (0,0,0,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //0
      (PlanYX:((0,0,0,0), (0,1,1,0), (1,1,1,1), (1,2,1,1)); DoesOrders:1; BuildIcon:0; TabletIcon:0), //Armor smithy
      (PlanYX:((0,0,0,0), (0,1,1,0), (0,1,1,1), (0,2,1,1)); DoesOrders:1; BuildIcon:0; TabletIcon:0), //Armor workshop
      (PlanYX:((0,0,0,0), (0,1,1,1), (0,1,1,1), (0,1,1,2)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Bakery
      (PlanYX:((1,1,1,1), (1,1,1,1), (1,1,1,1), (1,2,1,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Barracks
      (PlanYX:((0,0,0,0), (0,1,1,0), (0,1,1,1), (0,1,1,2)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Butchers
      (PlanYX:((0,0,0,0), (0,0,0,0), (1,1,1,0), (1,2,1,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Coal mine
      (PlanYX:((0,0,0,0), (1,1,1,1), (1,1,1,1), (1,2,1,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Farm
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,0), (0,2,1,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Fisher hut
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,0,0,0), (0,1,2,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Gold mine
      (PlanYX:((0,0,0,0), (0,1,1,1), (1,1,1,1), (1,2,1,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Inn
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,0,0,0), (0,1,2,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Iron mine
      (PlanYX:((0,0,0,0), (0,0,0,0), (1,1,1,1), (1,1,2,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Iron smithy
      (PlanYX:((0,0,0,0), (1,1,1,0), (1,1,1,0), (1,2,1,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Metallurgist
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,1), (0,1,2,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Mill
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,1), (0,1,2,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Quarry
      (PlanYX:((0,0,0,0), (0,0,0,0), (1,1,1,1), (1,2,1,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Sawmill
      (PlanYX:((0,0,0,0), (1,1,1,0), (1,1,1,0), (1,2,1,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //School
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,1), (0,2,1,1)); DoesOrders:1; BuildIcon:0; TabletIcon:0), //Siege workshop
      (PlanYX:((0,0,0,0), (1,1,1,1), (1,1,1,1), (1,1,2,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Stables
      (PlanYX:((0,0,0,0), (1,1,1,0), (1,1,1,0), (1,2,1,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Store
      (PlanYX:((0,0,0,0), (0,1,1,1), (1,1,1,1), (1,1,1,2)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Swine
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,1), (0,1,2,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Tannery
      (PlanYX:((0,0,0,0), (1,1,1,1), (1,1,1,1), (1,2,1,1)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Town hall
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,0), (0,1,2,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Watch tower
      (PlanYX:((0,0,0,0), (0,0,0,0), (1,1,1,1), (1,2,1,1)); DoesOrders:1; BuildIcon:0; TabletIcon:0), //Weapon smithy
      (PlanYX:((0,0,0,0), (0,0,0,0), (1,1,1,1), (1,2,1,1)); DoesOrders:1; BuildIcon:0; TabletIcon:0), //Weapon workshop
      (PlanYX:((0,0,0,0), (0,0,0,0), (0,1,1,1), (0,1,1,2)); DoesOrders:0; BuildIcon:0; TabletIcon:0), //Wineyard
      (PlanYX:((0,0,0,0), (0,0,0,0), (1,1,1,0), (1,1,2,0)); DoesOrders:0; BuildIcon:0; TabletIcon:0)  //Woodcutter
      ); //0
  
  const
    //1-building area //2-entrance
  