Ferdi

On $*:text:/^[!@]Stats .+/Si:#: {
  if ($regex($1,/^[!@](def|set)?(name|rsn)/Si)) {
    if (!$2) %send You didn't specify a nick to set as a Default RSN! Please do so, by typing: !defname <nick>.
    else {
      writeini defname.ini Defname $address($nick,2) $2
    }
  }
  else {
    if ($sock(Stats)) sockclose Stats
    set %send $iif($left($1,1) == @,msg $chan,notice $nick)
    set %user $2-
    sockopen Stats www.parsers.o-ss.net 80
  }
}

On *:sockopen:Stats: {
  sockwrite -nt $sockname GET /parsers/oneline/stats.php?user= $+ $iif($2,$2,defname) HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
On *:sockread:Stats: {
  if ($sockerr) { %send Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  var %sockreader
  sockread %sockreader
  if (END isin %sockreader) {
    %send Stats for: %user
    %send $remove(%sockreader,END)
  }
}
alias defname { $readini(defname.ini,Defname,$address($nick,2)) }