on *:snotice:*Client connecting*: {
  .pro $tersip($deltok($deltok($mid($10,$pos($10,@),$len($10)),2,64),2,41))
}
alias tersip { tokenize 46 $1 | return $+($4,.,$3,.,$2,.,$1) }
alias blacklist { return .tor.dan.me.uk .rbl.efnet.org }
alias pro { .dns $1 $+ $gettok($blacklist,1,32) | .dns $1 $+ $gettok($blacklist,2,32) }
on *:DNS:{
  var %ext = $chr(46) $+ $gettok($address,5-,46)
  if ($iaddress && $istok($blacklist,%ext,32)) { gzline *@ $+ $tersip($naddress) 300 :TOR/PROXY Girişi Yasaktır! | halt }
}