; Флаги.

Enumeration 0
  #MainWin_Flag_Pmr                 
  #MainWin_Flag_Russia               ; Россия.
  #MainWin_Flag_Belarus ; Беларусия.
  #MainWin_Flag_Ukraine ; Украина
  #MainWin_Flag_Moldova ; Молдавия.

  #MainWin_Flag_united_arab_emirates ; Объединённые Арабские Эмираты.
  #MainWin_Flag_Europe               ; Европа.
  #MainWin_Flag_USA                  ; Америка.
  #MainWin_Flag_Afghanistan ; Афганистан.
  #MainWin_Flag_Albania ; Албания.
  #MainWin_Flag_Armenia ; Армения.
  #MainWin_Flag_Netherlands ; Нидерланды.
  #MainWin_Flag_Angola ; Ангола.
  #MainWin_Flag_Antarctica ; Антарктика.
  #MainWin_Flag_Argentina ; Аргентина.
  #MainWin_Flag_Austria ; Австрия.
  #MainWin_Flag_Australia ; Австралия.
  #MainWin_Flag_Azerbaijan ; Азербайджан.
  #MainWin_Flag_Bosnia_and_herzegovina ; Босния и Герцеговина.
  #MainWin_Flag_Belgium ; Бельгия.
  #MainWin_Flag_Bulgaria ; Болгария.
  #MainWin_Flag_Bermuda ; Бермуды.
  #MainWin_Flag_Brazil ; Бразилия.
  #MainWin_Flag_Canada ; Канада.
  #MainWin_Flag_Central_african_republic ; Центральноафриканская Республика.
  #MainWin_Flag_Switzerland ; Швейцария.
  #MainWin_Flag_Chile ; Чили.
  #MainWin_Flag_Cameroon ; Камерун.
  #MainWin_Flag_China ; Китай.
  #MainWin_Flag_Colombia ; Колумбия.
  #MainWin_Flag_Cuba ; Куба.
  #MainWin_Flag_Cyprus ; Кипр.
  #MainWin_Flag_Czech ; Чехия.
  #MainWin_Flag_Germany ; Германия.
  #MainWin_Flag_Denmark ; Дания.
  #MainWin_Flag_Dominican ; Доминиканская республика.
  #MainWin_Flag_Algeria ; Алжир.
  #MainWin_Flag_Ecuador ; Эквадор.
  #MainWin_Flag_Estonia ; Эстония.
  #MainWin_Flag_Egypt ; Египет.
  #MainWin_Flag_Western_sahara ; Западная Пустыня Сахара.
  #MainWin_Flag_Spain ; Испания.
  #MainWin_Flag_Finland ; Финляндия.
  #MainWin_Flag_France ; Франция.
  #MainWin_Flag_United_Kingdom ; Великобритания.
  #MainWin_Flag_Georgia ; Грузия.
  #MainWin_Flag_Gibraltar ; Гибралтар.
  #MainWin_Flag_Greenland ; Остров Гренландия.
  #MainWin_Flag_Gambia ; Гамбия.
  #MainWin_Flag_Guinea ; Гвинея.
  #MainWin_Flag_Equatorial_guinea ; Экваториальная Гвинея.
  #MainWin_Flag_Greece ; Греция.
  #MainWin_Flag_Hong_kong ; Гонконг.
  #MainWin_Flag_Honduras ; Гондурас.
  #MainWin_Flag_Croatia ; Хорватия.
  #MainWin_Flag_Haiti ; Гаити.
  #MainWin_Flag_Hungary ; Венгрия.
  #MainWin_Flag_Indonesia ; Индонезия.
  #MainWin_Flag_Ireland ; Ирландия.
  #MainWin_Flag_Israel ; Израиль.
  #MainWin_Flag_India ; Индия.
  #MainWin_Flag_Iraq ; Ирак.
  #MainWin_Flag_Iran ; Иран.
  #MainWin_Flag_Iceland ; Исландия.
  #MainWin_Flag_Italy ; Италия.
  #MainWin_Flag_Jersey ; Свитер.
  #MainWin_Flag_Jamaica ; Ямайка.
  #MainWin_Flag_Jordan ; Иордания.
  #MainWin_Flag_Japan ; Япония.
  #MainWin_Flag_Kenya ; Кения.
  #MainWin_Flag_Kyrgyzstan ; Кыргызстан.
  #MainWin_Flag_Cambodia ; Камбоджа (Кампучия).
  #MainWin_Flag_North_korea ; Корея, Демократическая Народная Республика.
  #MainWin_Flag_Korea ; Корея, Республика.
  #MainWin_Flag_Kuwait ; Кувейт.
  #MainWin_Flag_Cayman_islands ; Острова Каймановы.
  #MainWin_Flag_Kazakhstan ; Казахстан.
  #MainWin_Flag_Lebanon ; Ливан.
  #MainWin_Flag_Lithuania ; Литва.
  #MainWin_Flag_Luxembourg ; Люксембург.
  #MainWin_Flag_Latvia ; Латвия.
  #MainWin_Flag_Libya ; Ливийская Арабская Джамахирия.
  #MainWin_Flag_Madagascar ; Мадагаскар
  #MainWin_Flag_Mongolia ; Монголия.
  #MainWin_Flag_Malta ; Мальта.
  #MainWin_Flag_Maldives ; Мальдивы.
  #MainWin_Flag_Mexico ; Мексика.
  #MainWin_Flag_Malaysia ; Малайзия.
  #MainWin_Flag_Norway ; Норвегия.
  #MainWin_Flag_New_zealand ; Новая Зеландия.
  #MainWin_Flag_Poland ; Польша.
  #MainWin_Flag_Portugal ; Португалия.
  #MainWin_Flag_Romania ; Румыния.
  #MainWin_Flag_Sweden ; Швеция.
  #MainWin_Flag_Slovakia ; Словакия.
  #MainWin_Flag_USSR ; СССР.
  #MainWin_Flag_Turkey ; Турция.
  #MainWin_Flag_Tajikistan ; Таджикистан.
  #MainWin_Flag_Turkmenistan ; Туркмения.
  #MainWin_Flag_Taiwan ; Тайвань.
  #MainWin_Flag_Uzbekistan ; Узбекистан.
  #MainWin_Flag_Vatican ; Ватикан.
  #MainWin_Flag_Vietnam ; Вьетнам.
  #MainWin_Flag_yugoslavia ; Югославия.
  #MainWin_Flag_South_africa ; Южная Африка.
EndEnumeration

EnableExplicit

Procedure.q IP_reverse(IP.l) ; Разворот IP ардеса.
  Protected Resilt.q, *Source, *Destination
  Resilt = 0
  *Source = @IP
  *Destination = @Resilt
  PokeB(*Destination+0,PeekB(*Source+3))
  PokeB(*Destination+1,PeekB(*Source+2))
  PokeB(*Destination+2,PeekB(*Source+1))
  PokeB(*Destination+3,PeekB(*Source+0))
  ProcedureReturn Resilt
EndProcedure

; Debug IP_reverse(MakeIPAddress(37,26,128,0))

; Возвращает индекс иконки в ImageList в зависимости от страны пира. Например, если в Extension будет RU, то процедура вернет индекс иконки Россйского флажка.
Procedure GetImageIndex_FlagImage(*Info.DomainsInfo)
  Protected Result, Extension.s, x, TempQ.q
  
  Result = 0
  Extension = LCase(GetExtensionPart(*Info\Domain))
  *Info\ImageListIndex=-1
  *Info\Comment = ""
  
  x = 0
  If *Info\IP<>0
    TempQ = IP_reverse(*Info\IP)
    
    If TempQ>=3641954304 And TempQ<=3641958399
      x=1
    ElseIf TempQ>=1348399104 And TempQ<=1348403199
      x=1
    ElseIf TempQ>=1307271168 And TempQ<=1307279359
      x=1
    ElseIf TempQ>=1054687232 And TempQ<=1054703615
      x=1
    ElseIf TempQ>=1603878912 And TempQ<=1603895295
      x=1
    ElseIf TempQ>=522125312  And TempQ<=522133503
      x=1
    ElseIf TempQ>=622493696  And TempQ<=622497791
      x=1
    EndIf
    
    If x=1
      *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[0]
      *Info\Comment = "'ИДК'"
    Else
      If (TempQ>=1505435648 And TempQ<=1505443839) Or (TempQ>=1583808512 And TempQ<=1583812607)
        *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[0]
        *Info\Comment = "'Мониторинг'"
        x=1
      ElseIf (TempQ>=1540605952 And TempQ<=1540606975) Or (TempQ>=3256643584 And TempQ<=3256644607)
        *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[0]
        *Info\Comment = "'Специалист'"
        x=1
      ElseIf TempQ>=1424633856 And TempQ<=1424637951
        *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[0]
        *Info\Comment = "'Линк-Сервис'"
        x=1
      EndIf
    EndIf
    
    If x=1
      ProcedureReturn 1
    EndIf
    
  EndIf
  
  If Extension=""
    ProcedureReturn 0
  EndIf
  
  Select Extension
  
      Case "ru"
        *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Russia-#MainWin_Flag_Pmr]
        *Info\Comment = "Россия"
      Case "by"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Belarus-#MainWin_Flag_Pmr]
         *Info\Comment = "Беларусия"
      Case "ua"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Ukraine-#MainWin_Flag_Pmr]
         *Info\Comment = "Украина"
      Case "md"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Moldova-#MainWin_Flag_Pmr]
         *Info\Comment = "Молдавия"
      Case "com", "net", "info", "biz"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USA-#MainWin_Flag_Pmr]
         *Info\Comment = "";"Неопределенно"
      Case "ae"
        *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_united_arab_emirates-#MainWin_Flag_Pmr]
        *Info\Comment = "Объединённые Арабские Эмираты"
      Case "eu"
        *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Europe-#MainWin_Flag_Pmr]
        *Info\Comment = "Европа"
      Case "gov", "mil", "us"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USA-#MainWin_Flag_Pmr]
         *Info\Comment = "Америка"
      Case "ac"
         *Info\ImageListIndex = -1
         *Info\Comment = "Асценовы Острова"
      Case "ad"
         *Info\ImageListIndex = -1
         *Info\Comment = "Андорра"
      Case "af"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Afghanistan-#MainWin_Flag_Pmr]
         *Info\Comment = "Афганистан"
      Case "ag"
         *Info\ImageListIndex = -1
         *Info\Comment = "Антигуа"
      Case "ai"
         *Info\ImageListIndex = -1
         *Info\Comment = "Ангуилла"
      Case "al"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Albania-#MainWin_Flag_Pmr]
         *Info\Comment = "Албания"
      Case "am"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Armenia-#MainWin_Flag_Pmr]
         *Info\Comment = "Армения"
      Case "an", "nl"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Netherlands-#MainWin_Flag_Pmr]
         *Info\Comment = "Нидерланды"
      Case "ao"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Angola-#MainWin_Flag_Pmr]
         *Info\Comment = "Ангола"
      Case "aq"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Antarctica-#MainWin_Flag_Pmr]
         *Info\Comment = "Антарктика"
      Case "ar"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Argentina-#MainWin_Flag_Pmr]
         *Info\Comment = "Аргентина"
      Case "as"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USA-#MainWin_Flag_Pmr]
         *Info\Comment = "Американские Острова Самоа"
      Case "at"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Austria-#MainWin_Flag_Pmr]
         *Info\Comment = "Австрия"
      Case "au"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Australia-#MainWin_Flag_Pmr]
         *Info\Comment = "Австралия"
      Case "aw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Аруба"
      Case "az"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Azerbaijan-#MainWin_Flag_Pmr]
         *Info\Comment = "Азербайджан"
      Case "ba"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Bosnia_and_herzegovina-#MainWin_Flag_Pmr]
         *Info\Comment = "Босния и Герцеговина"
      Case "bb"
         *Info\ImageListIndex = -1
         *Info\Comment = "Барбадос"
      Case "bd"
         *Info\ImageListIndex = -1
         *Info\Comment = "Бангладеш"
      Case "be"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Belgium-#MainWin_Flag_Pmr]
         *Info\Comment = "Бельгия"
      Case "bf"
         *Info\ImageListIndex = -1
         *Info\Comment = "Буркина Фасо"
      Case "bg"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Bulgaria-#MainWin_Flag_Pmr]
         *Info\Comment = "Болгария"
      Case "bh"
         *Info\ImageListIndex = -1
         *Info\Comment = "Бахрейн"
      Case "bi"
         *Info\ImageListIndex = -1
         *Info\Comment = "Бурунди"
      Case "bj"
         *Info\ImageListIndex = -1
         *Info\Comment = "Бенин"
      Case "bm"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Bermuda-#MainWin_Flag_Pmr]
         *Info\Comment = "Бермуды"
      Case "bn"
         *Info\ImageListIndex = -1
         *Info\Comment = "Бруней"
      Case "bo"
         *Info\ImageListIndex = -1
         *Info\Comment = "Боливия"
      Case "br"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Brazil-#MainWin_Flag_Pmr]
         *Info\Comment = "Бразилия"
      Case "bs"
         *Info\ImageListIndex = -1
         *Info\Comment = "Багамы"
      Case "bt"
         *Info\ImageListIndex = -1
         *Info\Comment = "Бутан"
      Case "bv"
         *Info\ImageListIndex = -1
         *Info\Comment = "Боувет"
      Case "bw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Ботсвана"
      Case "bz"
         *Info\ImageListIndex = -1
         *Info\Comment = "Белиз"
      Case "ca"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Canada-#MainWin_Flag_Pmr]
         *Info\Comment = "Канада"
      Case "cc"
         *Info\ImageListIndex = -1
         *Info\Comment = "Кокосовы (Килин) Острова"
      Case "cd"
         *Info\ImageListIndex = -1
         *Info\Comment = "Конго, Демократическая республика (прежний Заир)"
      Case "cf"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Central_african_republic-#MainWin_Flag_Pmr]
         *Info\Comment = "Центральноафриканская Республика"
      Case "cg"
         *Info\ImageListIndex = -1
         *Info\Comment = "Конго"
      Case "ch"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Switzerland-#MainWin_Flag_Pmr]
         *Info\Comment = "Швейцария"
      Case "ci"
         *Info\ImageListIndex = -1
         *Info\Comment = "Кот-д’Ивуар (Берег Слоновой Кости)"
      Case "ck"
         *Info\ImageListIndex = -1
         *Info\Comment = "Острова Кука"
      Case "cl"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Chile-#MainWin_Flag_Pmr]
         *Info\Comment = "Чили"
      Case "cm"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Cameroon-#MainWin_Flag_Pmr]
         *Info\Comment = "Камерун"
      Case "cn"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_China-#MainWin_Flag_Pmr]
         *Info\Comment = "Китай"
      Case "co"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Colombia-#MainWin_Flag_Pmr]
         *Info\Comment = "Колумбия"
      Case "cr"
         *Info\ImageListIndex = -1
         *Info\Comment = "Коста-Рика"
      Case "cu"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Cuba-#MainWin_Flag_Pmr]
         *Info\Comment = "Куба"
      Case "cv"
         *Info\ImageListIndex = -1
         *Info\Comment = "Мыс Верде"
      Case "cx"
         *Info\ImageListIndex = -1
         *Info\Comment = "Рождественский Остров"
      Case "cy"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Cyprus-#MainWin_Flag_Pmr]
         *Info\Comment = "Кипр"
      Case "cz"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Czech-#MainWin_Flag_Pmr]
         *Info\Comment = "Чешская Республика"
      Case "de"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Germany-#MainWin_Flag_Pmr]
         *Info\Comment = "Германия"
      Case "dj"
         *Info\ImageListIndex = -1
         *Info\Comment = "Джибути"
      Case "dk"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Denmark-#MainWin_Flag_Pmr]
         *Info\Comment = "Дания"
      Case "dm", "do"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Dominican-#MainWin_Flag_Pmr]
         *Info\Comment = "Доминиканская республика"
      Case "dz"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Algeria-#MainWin_Flag_Pmr]
         *Info\Comment = "Алжир"
      Case "ec"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Ecuador-#MainWin_Flag_Pmr]
         *Info\Comment = "Эквадор"
      Case "ee"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Estonia-#MainWin_Flag_Pmr]
         *Info\Comment = "Эстония"
      Case "eg"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Egypt-#MainWin_Flag_Pmr]
         *Info\Comment = "Египет"
      Case "eh"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Western_sahara-#MainWin_Flag_Pmr]
         *Info\Comment = "Западная Пустыня Сахара"
      Case "er"
         *Info\ImageListIndex = -1
         *Info\Comment = "Эритрея"
      Case "es"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Spain-#MainWin_Flag_Pmr]
         *Info\Comment = "Испания"
      Case "et"
         *Info\ImageListIndex = -1
         *Info\Comment = "Эфиопия"
      Case "fi"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Finland-#MainWin_Flag_Pmr]
         *Info\Comment = "Финляндия"
      Case "fj"
         *Info\ImageListIndex = -1
         *Info\Comment = "Фиджи"
      Case "fk"
         *Info\ImageListIndex = -1
         *Info\Comment = "Острова Фолклендов"
      Case "fm"
         *Info\ImageListIndex = -1
         *Info\Comment = "Микронезия"
      Case "fo"
         *Info\ImageListIndex = -1
         *Info\Comment = "Острова Фароэ"
      Case "fr"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_France-#MainWin_Flag_Pmr]
         *Info\Comment = "Франция"
      Case "ga"
         *Info\ImageListIndex = -1
         *Info\Comment = "Габон"
      Case "gb", "uk"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_United_Kingdom-#MainWin_Flag_Pmr]
         *Info\Comment = "Великобритания"
      Case "gd"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гренада"
      Case "ge", "gs"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Georgia-#MainWin_Flag_Pmr]
         *Info\Comment = "Грузия"
      Case "gf"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_France-#MainWin_Flag_Pmr]
         *Info\Comment = "Французская Гвиана"
      Case "gg"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гернси"
      Case "gh"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гана"
      Case "gi"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Gibraltar-#MainWin_Flag_Pmr]
         *Info\Comment = "Гибралтар"
      Case "gl"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Greenland-#MainWin_Flag_Pmr]
         *Info\Comment = "Остров 'Гренландия'"
      Case "gm"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Gambia-#MainWin_Flag_Pmr]
         *Info\Comment = "Гамбия"
      Case "gn"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Guinea-#MainWin_Flag_Pmr]
         *Info\Comment = "Гвинея"
      Case "gp"
         *Info\ImageListIndex = -1
         *Info\Comment = "Остров Гваделупа"
      Case "gq"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Equatorial_guinea-#MainWin_Flag_Pmr]
         *Info\Comment = "Экваториальная Гвинея"
      Case "gr"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Greece-#MainWin_Flag_Pmr]
         *Info\Comment = "Греция"
      Case "gt"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гватемала"
      Case "gu"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гуам"
      Case "gw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гвинея-Бисау"
      Case "gy"
         *Info\ImageListIndex = -1
         *Info\Comment = "Гайана"
      Case "hk"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Hong_kong-#MainWin_Flag_Pmr]
         *Info\Comment = "Гонконг"
      Case "hm"
         *Info\ImageListIndex = -1
         *Info\Comment = "Острова Макдональда (необитаемые)"
      Case "hn"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Honduras-#MainWin_Flag_Pmr]
         *Info\Comment = "Гондурас"
      Case "hr"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Croatia-#MainWin_Flag_Pmr]
         *Info\Comment = "Хорватия"
      Case "ht"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Haiti-#MainWin_Flag_Pmr]
         *Info\Comment = "Гаити"
      Case "hu"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Hungary-#MainWin_Flag_Pmr]
         *Info\Comment = "Венгрия"
      Case "id"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Indonesia-#MainWin_Flag_Pmr]
         *Info\Comment = "Индонезия"
      Case "ie"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Ireland-#MainWin_Flag_Pmr]
         *Info\Comment = "Ирландия"
      Case "il"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Israel-#MainWin_Flag_Pmr]
         *Info\Comment = "Израиль"
      Case "im"
         *Info\ImageListIndex = -1
         *Info\Comment = "Остров Человека"
      Case "in"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_India-#MainWin_Flag_Pmr]
         *Info\Comment = "Индия"
      Case "io"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_United_Kingdom-#MainWin_Flag_Pmr]
         *Info\Comment = "Британская Территория Индийскего Океана"
      Case "iq"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Iraq-#MainWin_Flag_Pmr]
         *Info\Comment = "Ирак"
      Case "ir"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Iran-#MainWin_Flag_Pmr]
         *Info\Comment = "Иран"
      Case "is"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Iceland-#MainWin_Flag_Pmr]
         *Info\Comment = "Исландия"
      Case "it"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Italy-#MainWin_Flag_Pmr]
         *Info\Comment = "Италия"
      Case "je"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Jersey-#MainWin_Flag_Pmr]
         *Info\Comment = "Свитер (Британия)"
      Case "jm"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Jamaica-#MainWin_Flag_Pmr]
         *Info\Comment = "Ямайка"
      Case "jo"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Jordan-#MainWin_Flag_Pmr]
         *Info\Comment = "Иордания"
      Case "jp"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Japan-#MainWin_Flag_Pmr]
         *Info\Comment = "Япония"
      Case "ke"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Kenya-#MainWin_Flag_Pmr]
         *Info\Comment = "Кения"
      Case "kg"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Kyrgyzstan-#MainWin_Flag_Pmr]
         *Info\Comment = "Кыргызстан"
      Case "kh"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Cambodia-#MainWin_Flag_Pmr]
         *Info\Comment = "Камбоджа (Кампучия)"
      Case "ki"
         *Info\ImageListIndex = -1
         *Info\Comment = "Кирибати"
      Case "km"
         *Info\ImageListIndex = -1
         *Info\Comment = "Коморос"
      Case "kn"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сант Киттис и Невис"
      Case "kp"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_North_korea-#MainWin_Flag_Pmr]
         *Info\Comment = "Корея, Демократическая Народная Республика"
      Case "kr"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Korea-#MainWin_Flag_Pmr]
         *Info\Comment = "Корея, Республика"
      Case "kw"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Kuwait-#MainWin_Flag_Pmr]
         *Info\Comment = "Кувейт"
      Case "ky"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Cayman_islands-#MainWin_Flag_Pmr]
         *Info\Comment = "Каймановы Острова"
      Case "kz"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Kazakhstan-#MainWin_Flag_Pmr]
         *Info\Comment = "Казахстан"
      Case "lb"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Lebanon-#MainWin_Flag_Pmr]
         *Info\Comment = "Ливан"
      Case "lc"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Italy-#MainWin_Flag_Pmr]
         *Info\Comment = "Санта Лючиа (Италия)"
      Case "li"
         *Info\ImageListIndex = -1
         *Info\Comment = "Лихтенштейн"
      Case "lk"
         *Info\ImageListIndex = -1
         *Info\Comment = "Шри-Ланка"
      Case "lr"
         *Info\ImageListIndex = -1
         *Info\Comment = "Либерия"
      Case "ls"
         *Info\ImageListIndex = -1
         *Info\Comment = "Лесото"
      Case "lt"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Lithuania-#MainWin_Flag_Pmr]
         *Info\Comment = "Литва"
      Case "lu"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Luxembourg-#MainWin_Flag_Pmr]
         *Info\Comment = "Люксембург"
      Case "lv"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Latvia-#MainWin_Flag_Pmr]
         *Info\Comment = "Латвия"
      Case "ly"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Libya-#MainWin_Flag_Pmr]
         *Info\Comment = "Ливийско Арабская Джамахирия"
      Case "ma"
         *Info\ImageListIndex = -1
         *Info\Comment = "Марокко"
      Case "mc"
         *Info\ImageListIndex = -1
         *Info\Comment = "Монако"
      Case "mg"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Madagascar-#MainWin_Flag_Pmr]
         *Info\Comment = "Мадагаскар"
      Case "mh"
         *Info\ImageListIndex = -1
         *Info\Comment = "Маршаловы Острова"
      Case "mk"
         *Info\ImageListIndex = -1
         *Info\Comment = "Македония"
      Case "ml"
         *Info\ImageListIndex = -1
         *Info\Comment = "Мали"
      Case "mm"
         *Info\ImageListIndex = -1
         *Info\Comment = "Мианмар"
      Case "mn"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Mongolia-#MainWin_Flag_Pmr]
         *Info\Comment = "Монголия"
      Case "mo"
         *Info\ImageListIndex = -1
         *Info\Comment = "Макао"
      Case "mp"
         *Info\ImageListIndex = -1
         *Info\Comment = "Северные Марианские острова"
      Case "mq"
         *Info\ImageListIndex = -1
         *Info\Comment = "Мартиника"
      Case "mr"
         *Info\ImageListIndex = -1
         *Info\Comment = "Мавритания"
      Case "ms"
         *Info\ImageListIndex = -1
         *Info\Comment = "Монтсерра"
      Case "mt"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Malta-#MainWin_Flag_Pmr]
         *Info\Comment = "Мальта"
      Case "mu"
         *Info\ImageListIndex = -1
         *Info\Comment = "Маврикий"
      Case "mv"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Maldives-#MainWin_Flag_Pmr]
         *Info\Comment = "Мальдивы"
      Case "mw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Малави"
      Case "mx"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Mexico-#MainWin_Flag_Pmr]
         *Info\Comment = "Мексика"
      Case "my"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Malaysia-#MainWin_Flag_Pmr]
         *Info\Comment = "Малайзия"
      Case "mz"
         *Info\ImageListIndex = -1
         *Info\Comment = "Мозамбик"
      Case "na"
         *Info\ImageListIndex = -1
         *Info\Comment = "Намибия"
      Case "nc"
         *Info\ImageListIndex = -1
         *Info\Comment = "Новая Каледония"
      Case "ne"
         *Info\ImageListIndex = -1
         *Info\Comment = "Нигер"
      Case "nf"
         *Info\ImageListIndex = -1
         *Info\Comment = "Норфолкский Остров"
      Case "ng"
         *Info\ImageListIndex = -1
         *Info\Comment = "Нигерия"
      Case "ni"
         *Info\ImageListIndex = -1
         *Info\Comment = "Никарагуа"
      Case "no"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Norway-#MainWin_Flag_Pmr]
         *Info\Comment = "Норвегия"
      Case "np"
         *Info\ImageListIndex = -1
         *Info\Comment = "Непал"
      Case "nr"
         *Info\ImageListIndex = -1
         *Info\Comment = "Науру"
      Case "nu"
         *Info\ImageListIndex = -1
         *Info\Comment = "Ниуве"
      Case "nz"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_New_zealand-#MainWin_Flag_Pmr]
         *Info\Comment = "Новая Зеландия"
      Case "om"
         *Info\ImageListIndex = -1
         *Info\Comment = "Оман"
      Case "pa"
         *Info\ImageListIndex = -1
         *Info\Comment = "Панама"
      Case "pe"
         *Info\ImageListIndex = -1
         *Info\Comment = "Перу"
      Case "pf"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_France-#MainWin_Flag_Pmr]
         *Info\Comment = "Французская Полинезия"
      Case "pg"
         *Info\ImageListIndex = -1
         *Info\Comment = "Папуа Новая Гвинея"
      Case "ph"
         *Info\ImageListIndex = -1
         *Info\Comment = "Филиппины"
      Case "pk"
         *Info\ImageListIndex = -1
         *Info\Comment = "Пакистан"
      Case "pl"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Poland-#MainWin_Flag_Pmr]
         *Info\Comment = "Польша"
      Case "pm"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сант Пьер"
      Case "pn"
         *Info\ImageListIndex = -1
         *Info\Comment = "Питкаирн"
      Case "pr"
         *Info\ImageListIndex = -1
         *Info\Comment = "Пуэрто-Рико"
      Case "ps"
         *Info\ImageListIndex = -1
         *Info\Comment = "Палестина"
      Case "pt"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Portugal-#MainWin_Flag_Pmr]
         *Info\Comment = "Португалия"
      Case "pw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Палау"
      Case "py"
         *Info\ImageListIndex = -1
         *Info\Comment = "Парагвай"
      Case "qa"
         *Info\ImageListIndex = -1
         *Info\Comment = "Катар"
      Case "re"
         *Info\ImageListIndex = -1
         *Info\Comment = "Воссоединение"
      Case "ro"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Romania-#MainWin_Flag_Pmr]
         *Info\Comment = "Румыния"
      Case "rw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Руанда"
      Case "sa"
         *Info\ImageListIndex = -1
         *Info\Comment = "Саудовская Аравия"
      Case "sb"
         *Info\ImageListIndex = -1
         *Info\Comment = "Соломон Исландс"
      Case "sc"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сейчелес"
      Case "sd"
         *Info\ImageListIndex = -1
         *Info\Comment = "Судан"
      Case "se"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Sweden-#MainWin_Flag_Pmr]
         *Info\Comment = "Швеция"
      Case "sg"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сингапур"
      Case "sh"
         *Info\ImageListIndex = -1
         *Info\Comment = "Cвятая Элена"
      Case "si"
         *Info\ImageListIndex = -1
         *Info\Comment = "Словения"
      Case "sj"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сальвабард"
      Case "sk"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Slovakia-#MainWin_Flag_Pmr]
         *Info\Comment = "Словакия"
      Case "sl"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сьерра-Леоне (Западная Африка)"
      Case "sm"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сан-Марино"
      Case "sn"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сенегал"
      Case "so"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сомали"
      Case "sr"
         *Info\ImageListIndex = -1
         *Info\Comment = "Суринам"
      Case "st"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сао Том"
      Case "su"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USSR-#MainWin_Flag_Pmr]
         *Info\Comment = "СССР"
      Case "sv"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USA-#MainWin_Flag_Pmr]
         *Info\Comment = "Сальвадор (Центральная Америка)"
      Case "sy"
         *Info\ImageListIndex = -1
         *Info\Comment = "Сирийская Арабская Республика"
      Case "sz"
         *Info\ImageListIndex = -1
         *Info\Comment = "Свазиленд"
      Case "tc", "tr"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Turkey-#MainWin_Flag_Pmr]
         *Info\Comment = "Турция"
      Case "td"
         *Info\ImageListIndex = -1
         *Info\Comment = "Чад"
      Case "tf"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_France-#MainWin_Flag_Pmr]
         *Info\Comment = "Французские Южные Территории"
      Case "tg"
         *Info\ImageListIndex = -1
         *Info\Comment = "Того"
      Case "th"
         *Info\ImageListIndex = -1
         *Info\Comment = "Таиланд"
      Case "tj"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Tajikistan-#MainWin_Flag_Pmr]
         *Info\Comment = "Таджикистан"
      Case "tk"
         *Info\ImageListIndex = -1
         *Info\Comment = "Токелао"
      Case "tm"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Turkmenistan-#MainWin_Flag_Pmr]
         *Info\Comment = "Туркмения"
      Case "tn"
         *Info\ImageListIndex = -1
         *Info\Comment = "Тунис"
      Case "to"
         *Info\ImageListIndex = -1
         *Info\Comment = "Тонга"
      Case "tp"
         *Info\ImageListIndex = -1
         *Info\Comment = "Восточный Тимур"
      Case "tt"
         *Info\ImageListIndex = -1
         *Info\Comment = "Тринидад и Тобаго"
      Case "tv"
         *Info\ImageListIndex = -1
         *Info\Comment = "Тувалу"
      Case "tw"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Taiwan-#MainWin_Flag_Pmr]
         *Info\Comment = "Tайвань"
      Case "tz"
         *Info\ImageListIndex = -1
         *Info\Comment = "Танзания"
      Case "ug"
         *Info\ImageListIndex = -1
         *Info\Comment = "Уганда"
      Case "um"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USA-#MainWin_Flag_Pmr]
         *Info\Comment = "Младший Соединенных Штатов Отдаленные Острова"
      Case "uy"
         *Info\ImageListIndex = -1
         *Info\Comment = "Уругвай"
      Case "uz"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Uzbekistan-#MainWin_Flag_Pmr]
         *Info\Comment = "Узбекистан"
      Case "va"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Vatican-#MainWin_Flag_Pmr]
         *Info\Comment = "Ватикан"
      Case "vc"
         *Info\ImageListIndex = -1
         *Info\Comment = "Святой Винсент"
      Case "ve"
         *Info\ImageListIndex = -#MainWin_Flag_Pmr
         *Info\Comment = "Венесуэла"
      Case "vg"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_United_Kingdom-#MainWin_Flag_Pmr]
         *Info\Comment = "Девственные Британские Острова"
      Case "vi"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_USA-#MainWin_Flag_Pmr]
         *Info\Comment = "Девственные Острова США"
      Case "vn"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_Vietnam-#MainWin_Flag_Pmr]
         *Info\Comment = "Вьетнам"
      Case "vu"
         *Info\ImageListIndex = -1
         *Info\Comment = "Вануату"
      Case "wf"
         *Info\ImageListIndex = -1
         *Info\Comment = "Валлис и Футуновы Острова"
      Case "ws"
         *Info\ImageListIndex = -1
         *Info\Comment = "Острова Самоа"
      Case "ye"
         *Info\ImageListIndex = -1
         *Info\Comment = "Йемен"
      Case "yt"
         *Info\ImageListIndex = -1
         *Info\Comment = "Майот"
      Case "yu"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_yugoslavia-#MainWin_Flag_Pmr]
         *Info\Comment = "Югославия"
      Case "za"
         *Info\ImageListIndex = G_ProgramMiscInfo\Torrent_Flags_ImageList[#MainWin_Flag_South_africa-#MainWin_Flag_Pmr]
         *Info\Comment = "Южная Африка"
      Case "zm"
         *Info\ImageListIndex = -1
         *Info\Comment = "Замбия"
      Case "zw"
         *Info\ImageListIndex = -1
         *Info\Comment = "Зимбабве"
      Default
        *Info\ImageListIndex = -1
        *Info\Comment = "????"
  EndSelect
  
  ProcedureReturn Result
EndProcedure

DisableExplicit
; IDE Options = PureBasic 5.11 (Windows - x86)
; Folding = -
; EnableXP