Untitled

on $*:TEXT:!rsplayers:#: {
  var %sckid = $right($ticks,5)
  set %way. [ $+ [ %sckid ] ] $iif($left($1,1) == !,.notice $nick,.msg $chan) 
  sockopen playerson. [ $+ [ %sckid ] ] www.runescape.com 80
}
on *:SOCKOPEN:playerson.*: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:playerson.*: {
  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 (*There are currently* iswm %sockreader) {
      noop $regex(%sockreader,/currently(.*?)playing/Si)
      var %tempvar $nohtml($nohtml($regml(1)))
      %way. [ $+ [ $right($sockname,5) ] ] 10  $+ %sockreader $+  
      unset %*. [ $+ [ $right($sockname,5) ] ]
      unset %way.
      sockclose $sockname
    }
  }
}
alias co1 { return $+(,$1-) }
alias co2 { return $+(,$1-) }