#proxytor on
alias tor_ {
  if ($1) {
    inc %xx
    sockopen $+(tor*,%xx) rbls.org 80
    sockmark $+(tor*,%xx) $1
  }
}
on *:sockopen:tor*:{
  var %s sockwrite -n $sockname
  %s GET / $+ $sock($sockname).mark HTTP/1.1
  %s Host: rbls.org
  %s $crlf
}
on *:sockread:tor*:{
  var %x [ $+ [ $sockname ] ]
  sockread %x [ $+ [ $sockname ] ]
  if (**tor.dan.me* iswm %x [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) 1h > 0,10 KRaL21  Network Sistem 
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4TOR 1girişi tespit edilmiştir.
    trekle $sock($sockname).mark
    halt
  }
  if (**rbl.efnetrbl* iswm %x [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) 1h > 0,10 KraL21 Network Sistem 
    if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4PROXY 1girişi tespit edilmiştir.
    torekle $sock($sockname).mark
    halt
  }
}
raw 352:*:{
  tor_ $4
}
on *:snotice:*Client connecting*: {
  .who +I $8
}
on *:snotice:*changed his/her nickname*:{
  .who +I $11
}
alias torekle { if $1 { if $read(proxylist.txt,w,$1) { halt } | else { write proxylist.txt $1 } } }
alias trekle { if $1 { if $read(torlist.txt,w,$1) { halt } | else { write torlist.txt $1 } } }
#proxytor end
menu * {
  .Proxy Koruması
  ..Aç :.enable #proxytor | .echo -a 14,1Proxy koruması 4,1açılmıştır
  ..Kapat:.disable #proxytor | .echo -a 14,1Proxy koruması 4,1kapatılmıştır