All Stats Checker

alias remnumber { noop $regsub($1-,/\d+ (\d+)/ig,\1,%x) | return %x }

on *:TEXT:!all*:#:{  
  if ($len($2-) > 12) { notice $nick 3 Nicks can only have 12 characters or less }
  else {   
    set %nick $nick  
    set %statsuser $replace($2-,$chr(32),_)
    sockopen all parsers.o-ss.net 80
  }
}

on *:sockopen:all:{ 
  sockwrite -n $sockname GET $+(/stats.php?user=,%statsuser) HTTP/1.0 

  sockwrite -n $sockname Host: parsers.o-ss.net $+ $crlf $+ $crlf
}

on *:sockread:all:{  
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -         
  set %stats $addtok(%stats,%temp,32)  
  goto nextread              
}

on *:sockclose:all:{  
  set %stats $deltok($deltok(%stats,1-28,32),-1,32)
  while ($wildtok(%stats,* $+ $chr(44) $+ * , 0, 32) > 0) {  
    set %stats $replace($remove(%stats,$wildtok(%stats,* $+ $chr(44) $+ * , 1, 32)),Not Ranked,N/R) 
  } 
  set %stats $remnumber(%stats)
  set %statsuser $replace(%statsuser,_,$chr(32))  
  set %allstats Nick $upper($left(%statsuser,1)) $+ $right(%statsuser,-1-)
  set %allstats $addtok(%allstats,%stats,32)
  notice %nick %allstats
}