Anonymous

alias -l striphtml { 
  /var %charcount 1 
  /var %tag 0 
  /var %strippedstring 

  while (%charcount <= $len($1-)) { 
    if ($mid($1-, %charcount, 1) == <) { 
      %tag = 1 
    } 
    elseif ($mid($1-, %charcount, 1) == >) { 
      %tag = 0 
    } 
    elseif (!%tag) { 
      if ($mid($1-, %charcount, 1) == $chr(32)) { 
        %strippedstring = %strippedstring $chr(32) 
      } 
      else { 
        %strippedstring = %strippedstring $+ $mid($1-, %charcount, 1) 
      } 
    } 
    /inc %charcount 1 
  } 

  /return %strippedstring 
}

on *:TEXT:!players *:#: {
  if ($2) {
    set %nick $nick
    /sockopen players runescape.co.uk 80
  }
}

on *:SOCKOPEN:players:{
  sockwrite -n $sockname GET /lang/en/aff/runescape/serverlist.ws?plugin=0 HTTP/1.0
  sockwrite -n $sockname Host: runescape.co.uk
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:players:{
  if ($sockerr) { 
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message. 
    halt 
  }
  else {
    var %player
    /sockread %player
    set %message2 $striphtml(%player)
    notice %nick %message2
  }
}