; !w1players script created using Chessnut's Simple Socket Script Creator


on *:text:!w1players*:#: {
if ($sock(World 1 Players)) .sockclose World 1 Players
set %chan $chan
sockopen World 1 Players tw1.tribalwars.net 80
}
on *:SOCKOPEN:World 1 Players: {
sockwrite -nt $sockname GET /stat.php HTTP/1.1
sockwrite -nt $sockname Host: tw1.tribalwars.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:World 1 Players: {
if ($sockerr) {
msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (*Number of players* iswm %sockreader) {
noop $regex(%sockreader,/:(.*?)4/Si)
var %tempvar $nohtml($remove($nohtml($regml(1)),Number of players))
msg %chan %tempvar $+ k players play world 1.
unset %chan
sockclose $sockname
}
}
}