on *:snotice:*: {
  if (connecting isin $1-) {
    if %Proxy.koruma == On {
      if $regex($1-,/\((.+)@(.+)\)/i) {       
        var %:ip = *@ $+ $regml(2)
      }
      if $hfind(p,%:ip,1,W).item {
        if $hfind(m,$8,1,W).item { echo -ae 11****7 Muaf nick girişi:4 $nick 7atılmadı | return }
      gline $nick 12Proxy4/12Vpn4/12Tor Kullanımı 4yasaktır. }  
    }
  }
}

on *:Start:{
  if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
  if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
  if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
  if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
  if $1 == ON { set %proxy.koruma ON | echo 11 -ae ***12 Proxy Koruması aktif edildi. } | if $1 == Close { set %proxy.koruma Off | echo 11 -ae ***4 Proxy Koruması kapatılmıştır.. }
  if $1 == ekle {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item { echo -ae11*** 7Eklemek istediğin Proxy listede mecvuttur. | return }
    hadd -m p $2 Proxy | hsave p pr.x
    echo -ae 11***3 $2 4Listeye eklenmiştir.
  }
  if $1 == sil {
    if !$2 { echo -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
    if $hfind(p,$2,1,W).item {
      hdel p $ifmatch | hsave p pr.x
      echo -ae 11*** $ifmatch 7Listeden silinmiştir.
    }
    else { echo -ae 11***7 Listeden bulunamamıştır. }
  }
  if $1 == liste {
    var %s 1, %f $hget(p,0).item
    if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
    while %s <= %f {
      echo -ae 11***3 Proxy IP listesi:0 $hget(p,%s).item
      inc %s
    }
  }
  if $1 == muaf {
    if $2 == ekle {
      if $hfind(m,$3,1,W).item { echo -ae 11***7Bu nick listede mevcuttur. | return }
      hadd -m m $3 Proxy | hsave m m.x
      echo -ae 11*** $3 4Muaf nick listeye eklenmiştir.
    }
    if $2 == sil {
      if $hfind(m,$3,1,W).item {
        hdel m $ifmatch | hsave m m.x
      }
      else { echo -ae 11***7 Silmek istediğin Proxy liste de bulunamamıştır. }
    }
    if $3 == liste {
      var %s 1, %f $hget(m,0).item
      if $hget(m,0).item == 0 { echo -ae 11***7 Liste boş durumda. | return }
      while %s <= %f {
        echo -ae 11***4 Proxy muaf Nick Listesi: $hget(m,%s).item
        inc %s
      }
    }
  }
}
-
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
    }
  }
}