Unnamed

on $*:Text:/^[!@]rsstats/Si:#: {
  if ($len($2-) < 13) {
    inc %ID
    set $+(%,stat.rsn.,%ID) $replace($2-,$chr(32),_)
    set $+(%,stat.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
    sockopen $+(Stat.,%ID) slushpuppy.silverinterlocution.org 80
  }
}
on *:SockOpen:Stat.*: {
  var %ID = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ $($+(%,stat.rsn.,%ID),2) HTTP/1.1
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf
}
on *:SockRead:Stat.*: {
  var %ID = $gettok($sockname,2,46), %display = $($+(%,stat.display.,%ID),2)
  if ($sockerr) %display SockRead Error in $sockname $+ : ( $+ $sockerr $+ )
  else {
    var %read
    sockread %read
    if (*<br>* iswm %read) {
      if (*The* iswm %read) {
        tokenize 32 $remove(%read,:,<br>)
        %display $Color1($1-4) $color2($5) $color1($6) $color2($7-)
      }
      else {
        tokenize 32 $remove(%read,:,<br>)
        var %x = 1
        while ($($+($chr(36),%x),2)) {
          if (%x >= 45) goto next
          else {
            var %token = $($+($chr(36),%x,),2)
            var %color = $iif($and(%x,1) == 1,$color1(%token),$color2(%token))
            var %line = %line %color
            inc %x
          }
        }
        :next
        var %y = 45
        while ($($+($chr(36),%y),2)) {
          var %token = $($+($chr(36),%y,),2)
          var %color = $iif($and(%y,1) == 1,$color1(%token),$color2(%token))
          var %line2 = %line2 %color
          inc %y
        }
        %display %line
        %display %line2
      }
    }
  }
}
alias Color1 return $+($chr(3),14,$1-,$chr(3))
alias Color2 return $+($chr(3),07,$1-,$chr(3))