alias tor_ {
  if ($1) {
    inc %xx
    sockopen $+(tor*,%xx) ircnet.com 80
    sockmark $+(tor*,%xx) $1 
  }
}
on *:sockopen:tor*:{
  var %s sockwrite -n $sockname
  %s GET /cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1
  %s Host: ircnet.com
  %s $crlf
}
on *:sockread:tor*:{
  var %x [ $+ [ $sockname ] ]
  sockread %x [ $+ [ $sockname ] ]
  if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4TOR 1girişi tespit edilmiştir.
    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.
    halt
  }
  if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.
    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.
    sockclose $sockname
  }
}
raw 352:*:{
  tor_ $4
}
on *:snotice:*Client connecting*: {
  inc -u5 %gnick. [ $+ [ $9 ] ] 1
  .who +I $9
}
on *:snotice:*has changed his/her nickname*: {
  if (%gnick. [ $+ [ $1 ] ]) {
    who +I $8
  }
}
on *:snotice:*has been forced to change his/her nickname*: {
  if (%gnick. [ $+ [ $1 ] ]) {
    who +I $11
  }
}