Stuff

on $*:text:/^((\[[a-z]{2}\])?Generic )?[@`.,!]players */iS:#GenericDev: { 
  if ($hget(disabled,$chan)) && ($1 != $me) halt
  if ($1 == $me) tokenize 32 $2-
  if ($1 != $me) && ($remove($1,$left($1,1)) != players) halt 
  inc %plid 1
  set -u60 %plsearch [ $+ [ %plid ] ] $2
  set -u60 %plmsg [ $+ [ %plid ] ] $iif($left($1,1) == @,msg $chan,.notice $nick)    
  sockopen $+(x,%plid) runescape.com 80
}
on *:SOCKOPEN:x*:{
  sockwrite $sockname $+(GET /lang/en/aff/runescape/serverlist.ws?lores.x=1&plugin=0&order=MWLP HTTP/1.0,$crlf,$crlf)
}
on *:SOCKREAD:x*:{
  var %x
  sockread -f %x
  if (1&plugin=0">World isin %x && !%plchecker [ $+ [ $right($sockname,-1) ] ] && %plsearch [ $+ [ $right($sockname,-1) ] ] isin %x) {
    set -u60 %plchecker [ $+ [ $right($sockname,-1) ] ] YES
  }
  if (%plchecker [ $+ [ $right($sockname,-1) ] ] && full</td> isin %x || players</td> isin %x && !%plchecker2 [ $+ [ $right($sockname,-1) ] ]) {
    set -u30 %plchecker2 [ $+ [ $right($sockname,-1) ] ] YES
      set -u30 %players [ $+ [ $right($sockname,-1) ] ] $remove($htmlfree(%x),Players)
      %plmsg [ $+ [ $right($sockname,-1) ] ] 14There are currently04 %players [ $+ [ $right($sockname,-1) ] ] 14on server number04 %plsearch [ $+ [ $right($sockname,-1) ] ]
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}