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 (*<tr class="rblred">*tor.dan.me* iswm %x [ $+ [ $sockname ] ]) {
    zline $+(*@,$sock($sockname).mark) 0 4,1Aha, 15,1I see we have a cow among us..
    if !$window([MENTION=8082]pRoXy[/MENTION]-tor) { window -neg1 [MENTION=8082]pRoXy[/MENTION]-tor } | echo [MENTION=8082]pRoXy[/MENTION]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4TOR 1girişi tespit edilmiştir.

  }
  if (*<tr class="rblred">*rbl.efnetrbl* iswm %x [ $+ [ $sockname ] ]) {
    zline $+(*@,$sock($sockname).mark) 0 4,1Aha, 15,1I see we have a cow among us..
    if !$window([MENTION=8082]pRoXy[/MENTION]-tor) { window -neg1 [MENTION=8082]pRoXy[/MENTION]-tor } | echo [MENTION=8082]pRoXy[/MENTION]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4PROXY 1girişi tespit edildi.

  }
}
raw 352:*:{
  tor_ $4
}
on *:snotice:*Client connecting*: {
  .who +I $9
}
on *:nick: {
  if ($nick == %gnick) {
    who +I $newnick
  }
}

on *:snotice:*changed his/her nickname*:{
  .who +I $11
}