Unnamed

;------------------------
;Runescape Server Status
;------------------------
on $*:text:/^[!@>]server */Si:#: {
  if (($2 !isnum) || (!$2)) { msg $chan 4 Please try again, entering a valid server number!  | return }
  /set %chan $chan
  /set %nick $nick
  /set %serv $2

  if $sock(server) { /sockclose server }
  /sockopen server thexx.6te.net 80
}
on *:SOCKOPEN:server:{
  //sockwrite -nt $sockname GET /sparse.php HTTP/1.1
  //sockwrite -nt $sockname Host: thexx.6te.net
  //sockwrite -nt $sockname
}
on *:SOCKREAD:server:{
  if $sockerr {
    .notice %nick Socket error: $sockerr $+ , while looking up %item
    /unset %nick | /unset %chan
  }
  else {
    /sockread %read
    if (*World %serv * iswm %read) {
      /var %x $len(%serv)
      msg %chan 12 World %serv $+(,:,) 4 $right(%read, - $+ $calc(6 + %x) OWN)
      /unset %read | /unset %serv | /unset %chan | /unset %nick
      /sockclose server
    }
  }
}
alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }