;begin-------------прокси-скрипт elimS------------------------------
alias proxy_on_of {
  if (%proxy_connect == on) {
    %proxy_connect = off  
    timer_proxy_conect off
    firewall off
  }
  else { %proxy_connect = on | %proxy_n_file = 1 | %proxy_poputka = sock4 | %proxy_n = 1 | firewall on }
}
alias proxy_connect {
  if (%proxy_n_file = 1) $iif(%proxy_socks4_5 == on,%filename_proxylist = %filename_proxylist_4_5,inc %proxy_n_file 1) 
  if (%proxy_n_file = 2) $iif(%proxy_socks4 == on,%filename_proxylist = %filename_proxylist_4,inc %proxy_n_file 1)  
  if (%proxy_n_file = 3) $iif(%proxy_socks5 == on,%filename_proxylist = %filename_proxylist_5,inc %proxy_n_file 1) 
  if (%proxy_n_file = 4) $iif(%proxy_socks@ == on,%filename_proxylist = %filename_proxylist_@,%proxy_n_file = 1) 
  %proxy_n = $lines( %filename_proxylist )
  if ( %proxy_dic_use == on ) {
    fullname $read( %filename_dic )
    emailaddr $read( %filename_dic )
    nick $read( %filename_dic )
    anick $read( %filename_dic )
    identd on $read( %filename_dic )
  }  
  %proxy_info = $read( %filename_proxylist , p , %proxy_i ) 
  %proxy_ip = $gettok(%proxy_info,1,58 )
  %proxy_port = $gettok(%proxy_info,2,58 )
  if ( %proxy_n_file = 4 ) %proxy_port = $gettok(%proxy_port,1,64 )
  if ( %proxy_poputka == sock5 ) && ( %proxy_n_file == 1 ) %proxy_poputka = sock4  
  if ( %proxy_n_file = 1 ) { $iif(%proxy_poputka == sock4,%proxy_sock = -m4,%proxy_sock = -m5) | %proxy_poputka = sock5 }
  if ( %proxy_n_file = 2 ) %proxy_sock = -m4
  if ( %proxy_n_file = 3 ) %proxy_sock = -m5
  if ( %proxy_n_file = 4 ) $iif($gettok(%proxy_info,2,64 ) == SOCKS4,%proxy_sock = -m4,%proxy_sock = -m5)
  echo -e прокся № %proxy_i из %proxy_n проксей. Прокся %proxy_ip , порт %proxy_port , тип socks %proxy_sock
  firewall %proxy_sock on %proxy_ip %proxy_port    
  if ( %proxy_i <= %proxy_n ) {
    server
    if (%proxy_timeout == on) timer_proxy_conect 1 %proxy_secs proxy_connect
  }
  if ( %proxy_n_file != 1 ) inc %proxy_i 1
  if ( %proxy_i > %proxy_n ) { %proxy_i = 1 | inc %proxy_n_file 1 }
  if ( %proxy_n_file > 4 ) && ( %proxy_random == on ) %proxy_n_file = 1     
}
menu menubar { 
  прокси-скрипт elimS 
  .$iif(%proxy_connect == on,$style(1)) вкл/выкл: proxy_on_of
  .$iif(%proxy_random == on,$style(1)) ходить по проксям по кругу: $iif(%proxy_random == on,%proxy_random = off,%proxy_random = on)
  .$iif(%proxy_dic_use == on,$style(1)) использовать словарь: $iif(%proxy_dic_use == on,%proxy_dic_use = off,%proxy_dic_use = on)
  .настройка: dialog -m proxy_options proxy_options
}
dialog proxy_options {
  title "Настройки прокси скрипта"
  size -1 -1 140 250 
  option dbu 
  check " вкл/выкл прокси скрипт", 10, 10 3 113 10
  check " прыгать по кругу", 9, 10 15 113 10
  check " таймаут, секунд", 26, 10 25 55 10
  edit "",27, 70 25 20 10, read autohs  
  box "файл словаря",4, 5 40 124 40   
  button "...",2, 85 65 40 10
  edit "",3, 10 65 70 10, read autohs  
  check " использовать словарь", 6, 10 50 113 10
  box "файл прокси листа, тип socks4/5",5, 5 80 124 40 
  button "...",7, 85 105 40 10
  edit "",8, 10 105 70 10, read autohs  
  check " использовать", 19, 10 90 113 10
  box "файл прокси листа, тип socks4",11, 5 120 124 40 
  button "...",12, 85 145 40 10
  edit "",13, 10 145 70 10, read autohs
  check " использовать", 14, 10 130 113 10
  box "файл прокси листа, тип socks5",15, 5 160 124 40 
  button "...",16, 85 185 40 10
  edit "",17, 10 185 70 10, read autohs
  check " использовать", 18, 10 170 113 10
  box "файл прокси листа c записями proxy:port@socks",22, 5 200 124 40 
  check " использовать", 23, 10 210 113 10  
  button "...",24, 85 225 40 10
  edit "",25, 10 225 70 10, read autohs
  text "написал elimS", 20, 10 240 40 10 
  link "mailto:elimS2@gmail.com", 21, 60 240 70 10
}
on 1:dialog:proxy_options:init:0: {
  did -a proxy_options 3 %filename_dic
  did -a proxy_options 8 %filename_proxylist_4_5
  did -a proxy_options 13 %filename_proxylist_4
  did -a proxy_options 17 %filename_proxylist_5
  did -a proxy_options 25 %filename_proxylist_@
  did -a proxy_options 27 %proxy_secs
  if (%proxy_connect == on) did -c proxy_options 10 
  if (%proxy_random == on) did -c proxy_options 9
  if (%proxy_dic_use == on) did -c proxy_options 6
  if (%proxy_socks4_5 == on) did -c proxy_options 19
  if (%proxy_socks4 == on) did -c proxy_options 14
  if (%proxy_socks5 == on) did -c proxy_options 18
  if (%proxy_socks@ == on) did -c proxy_options 23
  if (%proxy_timeout == on) did -c proxy_options 26
}
on 1:dialog:proxy_options:sclick,edit:*: {
  if ($did == 2) {    
    %filename_dic = $file="Выберите текстовый файл для словаря:" .txt
    did -r proxy_options 3
    did -a proxy_options 3 %filename_dic
  }
  if ($did == 7) {
    %filename_proxylist_4_5 = $file="Выберите текстовый файл для прокси листа socks4/5:" .txt
    did -r proxy_options 8    
    did -a proxy_options 8 %filename_proxylist_4_5
  }
  if ($did == 12) {
    %filename_proxylist_4 = $file="Выберите текстовый файл для прокси листа socks4:" .txt
    did -r proxy_options 13    
    did -a proxy_options 13 %filename_proxylist_4
  }
  if ($did == 16) {
    %filename_proxylist_5 = $file="Выберите текстовый файл для прокси листа socks5:" .txt
    did -r proxy_options 17    
    did -a proxy_options 17 %filename_proxylist_5
  }
  if ($did == 24) {
    %filename_proxylist_@ = $file="Выберите текстовый файл для прокси листа proxy:port@socks:" .txt
    did -r proxy_options 25    
    did -a proxy_options 25 %filename_proxylist_@
  }
  if ($did == 26) {
    $iif(%proxy_timeout == on,%proxy_timeout = off,%proxy_timeout = on)
    if (%proxy_timeout == on) %proxy_secs = $?="Укажите задержку в секундах"
    if (%proxy_timeout == off) %proxy_secs = $null
    did -r proxy_options 27    
    did -a proxy_options 27 %proxy_secs
  }
  if ($did == 6) $iif(%proxy_dic_use == on,%proxy_dic_use = off,%proxy_dic_use = on)
  if ($did == 9) $iif(%proxy_random == on,%proxy_random = off,%proxy_random = on)
  if ($did == 10) proxy_on_of
  if ($did == 19) $iif(%proxy_socks4_5 == on,%proxy_socks4_5 = off,%proxy_socks4_5 = on)
  if ($did == 14) $iif(%proxy_socks4 == on,%proxy_socks4 = off,%proxy_socks4 = on)
  if ($did == 18 ) $iif(%proxy_socks5 == on,%proxy_socks5 = off,%proxy_socks5 = on)
  if ($did == 21 ) run explorer mailto:elimS2@gmail.com
  if ($did == 23 ) $iif(%proxy_socks@ == on,%proxy_socks@ = off,%proxy_socks@ = on)
}
on *:CONNECTFAIL: {
  if ( %proxy_connect == on ) proxy_connect
}
on *:DISCONNECT: {
  if ( %proxy_connect == on ) proxy_connect
}
on *:snotice:*: {
  if ( $1- == *** Looking up your hostname... ) timer_proxy_conect off
}
on *:CONNECT: {
  if ( %proxy_dic_use == on ) {
    anick $read( %filename_dic )
  }
}
;end---------------прокси-скрипт elimS-------------------------------