- By Lindrian - 

alias proxy {
    unset %proxy %port
    if ( $regex($1-,/([0-9])*:([0-9])*/i) ) {
        if ( $sock(proxy) ) .sockclose proxy
        set %proxy $gettok($1-,1,58)
        set %port $gettok($1-,2,58)
        .sockopen proxy www.aliveproxy.com 80
        echo -a Looking up information about $1- $+ ...
    }
    else {
        echo -a Syntax: /proxy <ip> <port>
    }
}
on *:sockopen:proxy: {
    if ( $sockerr ) {
        echo -a Error connecting: $sock($sockname).wsmsg
        sockclose proxy
    }
    else {
        sockwrite -n $sockname GET $+(/irc-proxy-checker/?i=,%proxy,&p=,%port) HTTP/1.1
        sockwrite -n $sockname Host: www.aliveproxy.com
        sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
        sockwrite -n $sockname $crlf
    }
}
on *:sockread:proxy: {
    var %x
    sockread %x
    if ( $regex(%x,/<h3>(.*?)<\/h3>/) ) {
        if ( $regml(1) != AiS AliveProxy online irc proxy checker - check for support connect to irc server. ) {
            tokenize 32 $regml(1)
            if ( $1-5 == Error! Try checking proxy later ) {
                echo -a The IP $+(%proxy,:,%port) is valid!
            }
            else {
                echo -a The IP $+(%proxy,:,%port) is a proxy!
            }
            .sockclose proxy
        }
    }
}