on $*:text:/^[!@.]rsnews(Check)?/Si:#:{
VAR %x = 1
WHILE ($Sock($+(rrnews.,%x))) INC %x
SET $+(%,rrnews.,%x,.output) $iif($left($1,1) == @,msg $chan,.notice $nick)
sockopen $+(rrnews.,%x) www.o-ss.net 80
SockMark $+(rrnews.,%x) $replace($2-,$chr(32),+)
}
on *:sockopen:rrnews.*:{
if ($sockerr > 0) { $($+(%,$sockname,.output),2) 7Socket 14Error | sockclose $sockname | halt }
sockwrite -nt $sockname GET /parsers/rsnews.php HTTP/1.1
sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}
on *:sockread:rrnews.*:{
var %sockread
sockread %sockread
if ($sockerr > 0) { $($+(%,$sockname,.output),2) 7Socket 14Error | sockclose $sockname | halt }
IF (RSNEWS isin %sockread) {
$($+(%,$sockname,.output),2) %sockread
SockClose $SockName
UNSET $+(%,$sockname,.*)
}
}