on *:TEXT:!rsnews:#:{ set %nick $nick set %chan $chan sockopen rsnews runescape.com 80 } on *:sockopen:rsnews:{ sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1 sockwrite -n $sockname Host: runescape.com $+ $crlf $+ $crlf } on *:sockread:rsnews:{ if ($sockerr) { echo -a Error. halt } else { var %rsnews sockread %rsnews if (
* iswm %rsnews || *
iswm %rsnews || * iswm %rsnews) { var %stripped = $nohtml(%rsnews), %rsnewsdate = $gettok(%stripped,1,32), %rsnewstitle = $gettok(%stripped,2-,32), %rsnewstext = $gettok(%stripped,4-,32) msg %chan 14¤¤¤ 12RuneScape News 14¤¤¤2 %rsnewstitle 14¤2 %rsnewsdate 14¤ sockclose $sockname halt } } } alias -l nohtml { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x, ) return %x }