Untitled

on $*:text:/^[!@](bla|stats|rsstats)/Si:#: {
  set %sway $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($sock(stats)) %sway 13Please12 hold,13 bot12 is13 busy
  elseif ($2 == $null) %sway 13You12 must13 supply13 a12 user,13 Syntax:12 !stats runescapename
  else {
    set %statuser $2
    sockopen stats o-ss.net 80
  }
}
on *:sockopen:stats: {
  echo -a hij opent...
  sockwrite -nt $sockname GET /parsers/stats.php?user= $+ %statuser HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats: {
  var %stattext
  sockread %stattext
  tokenize 32 %stattext
  if ($0 == 4) {
    set %stats %stats $1-
    if ($1 == construction) {
      %sway 13Stats12 for13 %statuser $+ : 
      %sway %stats
      unset %sway
      unset %stattext
      sockclose stats
    }
  }
}