anchor.diff:    case fUnitType of
       utAny:             Result := gResTexts[TX_UNITS_ALL];
       utNone:            Result := 'N/A';
  -    else                Result := gResTexts[GetUnitTextID];
  +  else
  +    Result := gResTexts[GetUnitTextID];
     end;
   end;
   
  
positive.code: 
  
  procedure TKMResUnits.ExportCSV(const aPath: UnicodeString);
  var ft:textfile; ii:TKMUnitType;
  begin
      AssignFile(ft,aPath); rewrite(ft);
      writeln(ft,'Name;HitPoints;Attack;AttackHorse;Defence;Speed;Sight;');
  
negative.code: begin
    case fUnitType of
      utNone, utAny:  Result := 0;
      utBarbarian:    Result := 70;
    else
      if IsCitizen then
        Result := 141 + UNIT_TYPE_TO_ID[fUnitType]
  