rendered paste body
on *:text:@players*:#: {
if ($sock(playersock)) .sockclose playersock
set %chan $chan
set %nick $nick
sockopen playersock www.runescape.com 80
}
on *:SOCKOPEN:playersock: {
sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
sockwrite -nt $sockname Host: www.runescape.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:playersock: {
if ($sockerr) {
msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (*currently*People* iswm %sockreader ) {
noop $regex(%sockreader,/currently (.*?) people/Si)
set %rsplayers $regml(1)
msg %chan There are currently %rsplayers people playing Runescape
unset %chan
unset %nick
sockclose playersock
}
}
}