random facts socket
Platform: mIRC
Published Nov 23, 2010
Updated Nov 23, 2010
simple random facts socket type /rdmfact
alias rdmfact {
sockopen randomfact www.randomfunfacts.com 80
set -u3 %rdmfact msg $active 12,1[4,1Random Facts12,1]
}
on *:sockopen:randomfact: {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: $+($sock(randomfact).addr,$str($crlf,2))
}
on *:sockread:randomfact: {
var %randomfact | sockread %randomfact
if ( *<i>* iswm %randomfact) {
%rdmfact $remove(%randomfact,<i>,</i>,</strong>,</font>, ,</td>,<strong>)
sockclose randomfact
}
}