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: uses
       {$IFDEF MSWindows} Windows, {$ENDIF}
       {$IFDEF Unix} LCLIntf, LCLType, {$ENDIF}
       Classes, Controls, KromUtils, Math, SysUtils, KromOGLUtils, Forms,
       KM_Controls, KM_Defaults, KM_Houses, KM_Units, KM_Points;
  
  type
    TKMapEdInterface = class
  
negative.code:   if fPlayers.Selected=nil then exit;
    if not (fPlayers.Selected is TKMHouseStore) then exit;
    for i:=1 to 28 do begin
      Tmp := TKMHouseStore(fPlayers.Selected).CheckResIn(TResourceType(i));
      Button_Store[i].Caption := IfThen(Tmp = 0, '-', inttostr(Tmp));
    end;
  end;
  
  