alias proxy_ { 
  if ($1) { 
    inc %_
    sockopen $+(proxy*,%_) www.simpleproxylist.com 80
    sockmark $+(proxy*,%_) $1 
  }
}
on *:sockopen:proxy*:{
  var %s sockwrite -n $sockname
  %s GET /info.php?ip= $+ $sock($sockname).mark HTTP/1.1
  %s Host: www.simpleproxylist.com
  %s $crlf
}
on *:sockread:proxy*:{
  var %' [ $+ [ $sockname ] ]
  sockread %' [ $+ [ $sockname ] ]
  if (*Proxy:* iswm %' [ $+ [ $sockname ] ]) {
    gzline $+(*@,$sock($sockname).mark) 1h 4 • 10 Banned 4• 
    if !$window(@prxy-tor) { window -neg1 @prxy-tor } | echo @prxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. 
    halt
  }
}
raw 352:*:{
  proxy_ $4
}
on *:snotice:*Client connecting*: {
  .who +I $9
}