Simply load like anyother script,
Triggers:
@ - Messages channel
! - Messages nick
Text:
Players USA
Players America
Players UK
The players Uk returns the current players on www.habbo.co.uk and the update usa returns the current players on www.habbo.com
Enjoy,
on $*:text:/^[@!](Players UK)/Si:#:{
var %sckid = $right($ticks,5)
if ($left($1,1) == @) set %way. [ $+ [ %sckid ] ] msg $chan
if ($left($1,1) == !) set %way. [ $+ [ %sckid ] ] notice $nick
sockopen playersuk. [ $+ [ %sckid ] ] www.habbo.co.uk 80
}
on *:SOCKOPEN:playersuk.*: {
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: www.habbo.co.uk
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:playersuk.*: {
if ($sockerr) {
%way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (* <li id="myhabbo" class="selected" onmouseover="switchTab('myhabbo')">* iswm %sockreader) {
noop $regex(%sockreader-3,/<td id="topbar-count">(.*?)<\/td>/Si)
var %tempvar $nohtml($remove($regml(1), , Habbos online))
%way. [ $+ [ $right($sockname,5) ] ] 7[Habbo UK] 4Players Online: %tempvar
unset %*. [ $+ [ $right($sockname,5) ] ]
unset %sockreader*
sockclose $sockname
}
if ($len($remove(%sockreader,$chr(9),$chr(32))) > 0) {
var %x = 2
while (%x > -1) {
if ($len(%sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]) <= 850) set %sockreader [ $+ [ $+(-,$calc(%x + 1)) ] ] %sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]
dec %x
}
}
}
}
on $*:text:/^[@!](Players USA|Players America)/Si:#:{
var %sckid = $right($ticks,5)
if ($left($1,1) == @) set %way. [ $+ [ %sckid ] ] msg $chan
if ($left($1,1) == !) set %way. [ $+ [ %sckid ] ] notice $nick
sockopen playersusa. [ $+ [ %sckid ] ] www.habbo.com 80
}
on *:SOCKOPEN:playersusa.*: {
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: www.habbo.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:playersusa.*: {
if ($sockerr) {
%way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (* <li id="myhabbo" class="selected" onmouseover="switchTab('myhabbo')">* iswm %sockreader) {
noop $regex(%sockreader-3,/<td id="topbar-count">(.*?)<\/td>/Si)
var %tempvar $nohtml($remove($regml(1), , Habbos online))
%way. [ $+ [ $right($sockname,5) ] ] 7[Habbo USA] 4Players Online: %tempvar
unset %*. [ $+ [ $right($sockname,5) ] ]
unset %sockreader*
sockclose $sockname
}
if ($len($remove(%sockreader,$chr(9),$chr(32))) > 0) {
var %x = 2
while (%x > -1) {
if ($len(%sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]) <= 850) set %sockreader [ $+ [ $+(-,$calc(%x + 1)) ] ] %sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]
dec %x
}
}
}
}
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }