anchor.diff:      ftMelee,                   //utMetalBarbarian
       ftMelee                    //utHorseman
       {ftRanged,ftRanged,       //utCatapult, utBallista,}
  -    );
  +  );
   begin
     Assert(fUnitType in [Low(WarriorFightType)..High(WarriorFightType)]);
     Result := WarriorFightType[fUnitType];
  
positive.code: 
  
  function TKMResUnits.LoadUnitsDat(const aPath: UnicodeString): Cardinal;
  const UNIT_DAT_COUNT = 41;
  var
    S: TKMemoryStream;
    I: Integer;
  
negative.code:     function GetAllowedPassability: TKMTerrainPassability;
      function GetDescription: UnicodeString;
      function GetDesiredPassability: TKMTerrainPassability;
      function GetFightType: TKMFightType;
      function GetGUIIcon: Word;
      function GetGUIScroll: Word;
      function GetMinimapColor: Cardinal;
  