#proxytor off
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 mircalem.net IRCD Network 
if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-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 Geveze IRCD Network 
if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-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

#proxytor off 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 mircalem.net IRCD Network  if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-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 Geveze IRCD Network  if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-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