alias pr {
  var %satir = $lines(proxy.txt) , %x = 1
  while %x <= %satir { .timer 1 2 msg $chan .proxy ekle $gettok($read(proxy.txt,%x),1-2,46) $+ $chr(46) $+ $chr(42)
  inc %x }
}
On *:input:#Opers:{
  if $1 == !pr { pr }
}

alias p.ekle {
var %+ 1  
while %+ <= $lines(proxy.txt) {
gzline $regsubex($read(proxy.txt,%+),/(^\d+\.\d+\.).+/gi,*@\1*) 1h proxy ip | inc %+ } }

alias iekle {  if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } |  dialog -ma Proxy_ekle Proxy_ekle }
dialog Proxy_ekle {
  title "Hash Proxy Ekleme"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}

on 1:dialog:Proxy_ekle:*:*:{
  if ($devent == init) {
  }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) { 
        Var %I = 1 
        While ($Read(%F,%I)) { 
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.).+/gi,*@\1*)
          if !$hget(p,%j) {
            hadd -m p %j Proxy
            hsave -o p pr.x
            inc %eklenen
          }
          inc %I
        } 
      } 
      did -o Proxy_ekle 4 1 %eklenen
    }
  }
}

alias pr {
  var %satir = $lines(proxy.txt) , %x = 1
  while %x <= %satir { .write pr.x $gettok($read(proxy.txt,%x),1-2,46) $+ $chr(46) $+ $chr(42)
  inc %x }
}
On *:input:#Opers:{
  if $1 == !pr { pr }
}