on *:start: {
  write -c torlist.data
  torlist
}

alias torlist {
  sockclose listblock
  sockopen listblock list.iblocklist.com 80
}

on *:sockopen:listblock: {
  sockwrite -n $sockname GET /?list=tor HTTP/1.1
  sockwrite -n $sockname host: list.iblocklist.com 
  sockwrite -n $sockname $crlf
}

on *:SockRead:listblock: {
  var %medcezir
  sockread %medcezir
  if (*The Onion Router:* iswm %medcezir) { write torlist.data $gettok($remove(%medcezir,The Onion Router:),1,45) 
  }
}

on *:snotice:*Client connecting on port*: { 
  if $read(torlist.data,w,$left($gettok($10,2,64),-1)) {
    zline $9 Proxy/Tor Kullanımından Dolayı Sunucudan Uzaklaştırıldınız..
  }
}

on *:snotice:*Client connecting on port*: { 
  set %medcezir-ip $left($gettok($10,2,64),-1)
  torlist 
}
alias torlist {
  sockclose listblock
  sockopen listblock list.iblocklist.com 80
}

on *:sockopen:listblock: {
  sockwrite -n $sockname GET /?list=tor HTTP/1.1
  sockwrite -n $sockname host: list.iblocklist.com 
  sockwrite -n $sockname $crlf
}

on *:SockRead:listblock: {
  var %medcezir
  sockread %medcezir
  if (*The Onion Router: $+ %medcezir-ip $+ - $+ * iswm %medcezir) { 
    kline *@ $+ $gettok($remove(%medcezir,The Onion Router:),2,45) Proxy/Tor Kullanımından Dolayı Sunucudan Uzaklaştırıldınız..
  }
  unset %medcezir-ip
}