anchor.diff:  
   const
     MAX_UNITS_TO_EQUIP = 100;
  +  HOUSE_FLAG_TEX_ID = 1159;
  +  HOUSE_FLAG_TEX_ID_FRAME = 5;
   
   
   constructor TKMGUIGameHouse.Create(aParent: TKMPanel; aSetViewportEvent: TPointFEvent);
  
positive.code:   inherited Create;
  
    fSetViewportEvent := aSetViewportEvent;
  
    Panel_House := TKMPanel.Create(aParent, TB_PAD, 44, TB_WIDTH, 332);
      //Thats common things
  
negative.code: begin
    AskDemolish := aAskDemolish;
  
    Inc(fAnimStep);
    Image_PlayerFlag.TexID := HOUSE_FLAG_TEX_ID + fAnimStep mod HOUSE_FLAG_TEX_ID_FRAME;
  
    //Hide all House sub-pages
    for I := 0 to Panel_House.ChildCount - 1 do
      if Panel_House.Childs[I] is TKMPanel then
        Panel_House.Childs[I].Hide;
  
    Panel_House.SetCanChangeEnable(gMySpectator.IsSelectedMyObj, DoNotDisableControls);
  
  