; !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) {
tokenize 32 $remove($htmlfree(%sockreader),Number of players:)
msg %chan There are currently $1- people playing in world 1.
unset %chan
sockclose $sockname
}
}
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }