Someone

on $*:TEXT:/^[!@.]stats( .+|$)/Si:#:{
  tokenize 32 $1 $replace($2-,$chr(32),_)
  var %x = 1, %target = $iif(@* iswm $1,msg $chan,.notice $nick), %t
  while ($sock($+(stats.,%x))) inc %x
  %t = $+(stats.,%x)
  if ($2) {
    if ($len($2) > 12) {
      %target 10The RSN4 $2 10is too long.
      halt
    }
    elseif ($remove($2,_) !isalnum) {
      %target 10The RSN4 $2 10contains invalid characters.
      halt
    }
    else {
      hadd -m %t User $2
    }
  }
  else {
    hadd -m %t User $defrsn($fulladdress)
  }
  hadd %t Target %target
  sockopen %t bluetain.com 80
}
on *:SOCKOPEN:stats.*:{
  sockwrite -nt $sockname GET /fave/Hosting/stats2.php?user= $+ $hget($sockname,User) HTTP/1.1
  sockwrite -nt $sockname Host: bluetain.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:stats.*:{
  var %target = $hget($sockname,Target)
  if ($sockerr) {
    %target 10Socket error:4 $sock($sockname).wsmsg
    halt
  }
  else {
    var %read
    sockread %read
    if ( isin %read) %target %read
  }
}
on $*:TEXT:/^[!.](def|set)(name|rsn)$/Si:#:{
  tokenize 32 $1 $replace($2-,$chr(32),_)
  if ($len($2) > 12) .notice $nick 10The RSN4 $2 10is too long.
  elseif ($remove($2,_) !isalnum) .notice $nick 10The RSN4 $2 10contains invalid characters.
  else {
    writeini DefRSN.ini RSNs $address($nick,3) $2
    writeini DefRSN.ini RSNs $nick $2
    .notice $nick 10Your default RSN has been set to5 $2 $+ 10.
  }
}
alias -l defrsn {
  if ($readini(DefRSN.ini,RSNs,$mask($1,3))) return $v1
  elseif ($readini(DefRSN.ini,RSNs,$gettok($1,1,$asc(!)))) return $v1
  else return $gettok($1,1,$asc(!))
}