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
    }
    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= $+ %user 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)
    }
  }
}