By napa182 on Apr 03, 2009!!Fixed!!
What this is.. is a proxy lister for a bot.
Copy & Paste into a new remote of the bot.
Trigger is..
@proxy <1-10> Ex: @proxy 3
[size=17]I'm not liable if this is used for malicious purposes.[/size]
[size=17]Feel free to rip butcher or strip this code how ever you want I Don't Care.[/size]
on $*:text:/^@proxy\s(\d+)$/iS:#: {
if (!$hget(oxy,c) && $regml(1) isnum 1-10) {
if ($sock(oxy)) sockclose oxy
sockopen oxy www.proxylists.net 80
sockmark oxy $regml(1) msg #
}
}
on *:load: {
echo 04 -a You Have Just Loaded Napa182's Proxy Lister
echo 07 -a An irc.EzzyChat.com Production
}
on *:sockopen:oxy: {
sockwrite -nt oxy GET /socks4.txt HTTP/1.1
sockwrite -nt oxy Host: $+($sock(oxy).addr,$str($crlf,2))
}
on *:sockread:oxy: {
var %oxy | sockread %oxy
if ($regex(%oxy,/(\d+\.\d+\.\d+\.\d+\72\d+)/)) {
hinc -mu4 oxy c 1
$gettok($sock(oxy).mark,2-,32) $regml(1)
}
if ($hget(oxy,c) = $gettok($sock(oxy).mark,1,32)) { sockclose oxy }
}
where is open?