alias tor_ { 
  if ($1) { 
    var %xx $rand(0,999999)
    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">*rbl.efnetrbl* iswm %x [ $+ [ $sockname ] ]) {
    eklet $sock($sockname).mark
    halt
  }
}
alias eklet {
  who +R $+(*,$1,*) 
  write ipim.txt $remove($1,$chr(32))
}

raw 352:*:{
  if ($read(ipim.txt,$4)) { sapart $6 #sohbet | sajoin $6 #proxy | write $+(-dl,$4) ip.txt | halt }
  tor_ $4
}
on *:snotice:*Client connecting*: {
  .who +I $+(*,$remove($gettok($10,2,64),$chr(41)),*)
}