alias statsclear { unset %stats.* | sockclose $sockname }
on *:JOIN:#pegasus: {
  if ($sock(stats).status != $null) { notice $nick The stats script is currently in use | halt }
  set %stats.nick $nick 
  set %stats.send notice $nick 
  set %stats.name $replace($nick,$chr(32),+) 
  set %stat.color1 $chr(3) $+ 14 
  set %stat.color2 $chr(3) $+ 7
  set %stats.channel $chan  
  sockopen stats vulcan.ueuo.com 80
}
on *:sockopen:stats:{
  sockwrite -nt $sockname GET /geniestats.php?rsname= $+ %stats.name HTTP/1.0
  sockwrite -nt $sockname Host: vulcan.ueuo.com $+ $crlf $+ $crlf
}
on *:sockread:stats:{
  if ($sockerr) {
    %stats.send Socket Error - Try later | statsclear
  }
  else {
    bwrite $sockname $+ . $+ %stats.name -1 -1 &tmp
    bread $sockname $+ . $+ %stats.name -1 -1 &read
    if ($bfind(&read,1,<b>Personal).text) { mode %stats.channel +v %stats.nick }
   else { msg %stats.channel %stats.nick doesn't appear on the stats for any.. stats.. yer >_> | statsclear }
  }
}