anchor.diff:  
   implementation
   uses
  -  KM_Units,
  -  KM_Units_Warrior, KM_PlayersCollection,
  -  KM_Resource, KM_ResourceHouse, KM_ResourceUnit, KM_Utils, KM_FogOfWar, KM_AI;
  +  KM_Units, KM_Units_Warrior, KM_PlayersCollection, KM_ResourceUnit;
   
   
   { TKMHouseBarracks }
  
positive.code: end;
  
  
  function TKMHouseBarracks.CheckResIn(aWare: TWareType):word;
  begin
    if aWare in [WARFARE_MIN..WARFARE_MAX] then
      Result := ResourceCount[aWare]
  
negative.code:   KM_CommonClasses, KM_Defaults,
    KM_Houses, KM_ResourceWares;
  
  
  type
    //Barracks has 11 resources and Recruits
    TKMHouseBarracks = class(TKMHouse)
  