anchor.diff:  begin
     if fPlayers.Selected=nil then exit;
     if not (fPlayers.Selected is TKMHouseBarracks) then exit;
  -  for i:=1 to 11 do begin
  -    Tmp:=TKMHouseBarracks(fPlayers.Selected).CheckResIn(TResourceType(i+16));
  -    if Tmp=0 then Button_Barracks[i].Caption:='-' else
  -    //if Tmp>999 then Button_Barracks[i].Caption:=float2fix(round(Tmp/10)/100,2)+'k' else
  -                  Button_Barracks[i].Caption:=inttostr(Tmp);
  +
  +  for i:=1 to BarracksResCount do begin
  +    Tmp := TKMHouseBarracks(fPlayers.Selected).CheckResIn(BarracksResType[i]);
  +    Button_Barracks[i].Caption := IfThen(Tmp = 0, '-', inttostr(Tmp));
     end;
   end;
   
  
positive.code: procedure TKMapEdInterface.Store_EditWareCount(Sender:TObject; AButton:TMouseButton);
  var Res:TResourceType; Store:TKMHouseStore; Amt:byte;
  begin
    if not Panel_HouseStore.Visible then exit;
  
    Res := TResourceType(StorehouseItem);
    Store := TKMHouseStore(fShownHouse);
  
negative.code: procedure TKMapEdInterface.Create_Barracks_Page;
  var i:integer;
  begin
    Panel_HouseBarracks:=TKMPanel.Create(Panel_House,0,76,200,400);
      for i:=1 to BarracksResCount do
      begin
        Button_Barracks[i]:=TKMButtonFlat.Create(Panel_HouseBarracks, 8+((i-1)mod 6)*31,8+((i-1)div 6)*42,28,38,0);
        Button_Barracks[i].Tag := i;
        Button_Barracks[i].TexID := 350 + Byte(BarracksResType[i]);
        Button_Barracks[i].TexOffsetX := 1;
        Button_Barracks[i].TexOffsetY := 1;
        Button_Barracks[i].CapOffsetY := 2;
        Button_Barracks[i].Hint := TypeToString(BarracksResType[i]);
        Button_Barracks[i].OnClick := Barracks_SelectWare;
      end;
      Button_BarracksDec100   := TKMButton.Create(Panel_HouseBarracks,116,218,20,20,'<', fnt_Metal);
      Button_BarracksDec      := TKMButton.Create(Panel_HouseBarracks,116,238,20,20,'-', fnt_Metal);
      Label_Barracks_WareCount:= TKMLabel.Create (Panel_HouseBarracks,156,230,100,30,'',fnt_Metal,kaCenter);
  