menu channel,status,menubar,query {
  -
  $iif(o !isincs $usermode,$style(2)) Oper
  .$iif(%Proxy,$style(1)) Proxy Koruma ( $+ $iif(%Proxy,On,Off) $+ ) {
    if (%Proxy) { unset %Proxy | .disable #Proxy | echo -ta 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15- 0,1 Proxy Koruma  00,14 KAPALI  }
    else { set %Proxy on | .enable #Proxy | echo -ta 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15- 0,1 Proxy Koruma  00,03 AÇILDI  }
  }
  .Proxy Güncelle:_al
}
on *:start:if $isfile(txt/Proxy.hash) { .hmake Proxy | .hload Proxy txt/Proxy.hash }

#Proxy off
on *:snotice:*Client connecting*:/.who +I $token($token($4-,2,58),1,32)
raw 352:*:{
  var %:r $+($left($md5($ticks),$r(5,20)),$6)
  if $hget(Proxy,$4) { gline $+(*@,$4) +5h Proxy Yasak.. $+([,Hash,]) | echo -tsa 15,1 -4=7^14,1 S15,1a0NC14,1a0,1K 7,1^4=15-  [2,0 PROXY ] Nick:2 $6 - IP:2 $4  }
  else { sockopen $+(proxy,%:r) proxysorgula.net 80 | sockmark $+(proxy,%:r) $+($4,¿,$6) }
}
on *:sockopen:proxy*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
    gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])
    msg #sancak [4 PROXY ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),- Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),- Ülke:2 $token($token($1-,1,41),2,40)) - Tipi:2 $token($1-,2,45)
    echo -ast [4 PROXY ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),- Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),- Ülke:2 $token($token($1-,1,41),2,40)) - Tipi:2 $token($1-,2,45)

    sockclose $sockname
  }
}
#Proxy end
alias _güncel { echo -ast Proxy list güncellendi. Toplam Proxy :4 $replace($bytes($hget(Proxy,0).data,b),$chr(44),.) | unset %:cek | $+(.timer,_al) 1 10000 _al | .hsave -o Proxy txt/Proxy.hash }
alias _ekle { .hadd -ms Proxy $1 Proxy }
alias _al {
  var %:rand $md5($ticks) | inc %:cek
  if (%:cek == 1) { sockopen $+(_proxy-1,%:rand) www.proxyserverlist24.top 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 2) { sockopen $+(_proxy-1,%:rand) www.socks24.org 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 3) { sockopen $+(_proxy-1,%:rand) socks5online.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 4) { sockopen $+(_proxy-1,%:rand) socksv9.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 5) { sockopen $+(_proxy-1,%:rand) proxy-heaven.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 6) { sockopen $+(_proxy-1,%:rand) multiproxy.org 80 | sockmark $+(_proxy-1,%:rand) /txt_all/proxy.txt | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 7) { sockopen $+(_proxy-1,%:rand) www.gatherproxy.com 80 | sockmark $+(_proxy-1,%:rand) /proxylistbycountry | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 8) { sockopen $+(_proxy-1,%:rand) www.live-socks.net 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 9) { sockopen $+(_proxy-1,%:rand) www.freshnewproxies24.top 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 10) { sockopen $+(_proxy-1,%:rand) socks5-proxy-list.blogspot.com 80 | $+(.timer,_cekkanka) 1 50 _al }
  elseif (%:cek == 11) { sockopen $+(_proxy-1,%:rand) www.proxylistdaily.net 80 | $+(.timer,_cekkanka) 1 50 _al }
  else { _güncel }
}
on *:sockopen:_proxy-1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:_proxy-1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxy1 | sockread -f %:_proxy1 | tokenize 32 %:_proxy1
  if (*timestamp-link*.html* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,4,39),3-,47)) }
  elseif $regex($1-,/href=\"\/proxylist\/country/Si) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2-,47),1,34)) }
  elseif (*<a href="http://www.proxylistdaily.net/p/*">* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2,34),3-,47)) }
  elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}
alias _proxyal1 { var %:rand $+($r(100,9999999),$md5($ticks),$r(1000,999999999)) | sockopen $+(_proxyal1,%:rand) $1 80 | sockmark $+(_proxyal1,%:rand) $2 }
on *:sockopen:_proxyal1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:_proxyal1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxyal1 | sockread -f %:_proxyal1 | tokenize 32 %:_proxyal1
  if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}