Unnamed

on $*:text:/^[!@.](stats) .{1,13}$/Si:#:{
  if ($sock(stats).status != $null) { notice $nick The stats script is currently in use. Try again.... now! | halt }
  if ($left($1,1) == @) && ($left($remove($chan(#).mode,+),1) == c) || ($left($remove($chan(#).mode,+),2) == c) { set %stats.color.strip on }
  set %stats.nick $nick | set %stats.send $iif($left($1,1) == @,msg $chan,notice $nick) | set %stats.name $replace($2-,$chr(32),+) | set %stat.color1 $chr(3) $+ 12 | set %stat.color2 $chr(3) $+ 4
  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 > 0) { .notice %stat.called.nick Error: Try again later. | halt }
  var %read | sockread %read
  if (<b>Personal isin %read) { set %stat.name $remove(%read,Personal $+ $chr(32),Scores $+ $chr(32),For $+ $chr(32),<b>,</b>) | set %stats.text $remove(%read,<b>,</b>) | set %stats.text $left(%stats.text,- $+ $len(%stat.name)) }
  tokenize 124 $remove(%read,Genie:)
  if ($0 == 4) { set %printline1 %printline1 $eval($+(%stat.color1,$1,:,%stat.color2),2) $3 | set %stats. $+ $1 $+ .level $3 }
}
on *:sockclose:stats:{ stat_check }