rendered paste bodyon *:INPUT:#Ahoy:{
if ($1 == !rsf) {
sockopen forums www.runescape.com 80
}
}
on *:sockopen:forums:{
sockwrite -n $sockname GET /lang/en/aff/runescape/forums.ws?33,34 HTTP//1.1
sockwrite -n $sockname host: www.runescape.net
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:forums:{
if ($sockerr) {
Echo -a *** An error has occured: $sock($sockname)
beep 2
halt
}
var %Forums
sockread %Forums
if (*Raw Sharks* iswm %Forums) {
msg #Ahoy $htmlfree(%Forums)
sockclose $sockname
}
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}