Mine

on *:text:,p*:#: {
  if ($regex($1,/[,]pat(t|k|tack)/Si)) set %stats.skill Attack
  if ($sock(plookup)) .sockclose plookup
  set %chan $chan
  set %nick $nick
  if (!$2-) { set %stats.nick $readini(setnick.ini,RSN,$mask($fulladdress,3)) }
  else { set %stats.nick $replace($2-,$chr(32),-) }
  sockopen plookup parsers.o-ss.net 80
}
on *:SOCKOPEN:plookup: {
  sockwrite -nt $sockname GET /stats.php?user= $+ %stats.nick HTTP/1.1
  sockwrite -nt $sockname Host: parsers.o-ss.net
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:plookup: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr $+ . Please inform an admin of this error message.
    halt
  }
  else {
    var %read
    sockread %read
    if ($+(*,%stats.skill,*) iswm %read && *Not* !iswm %read ) {
      tokenize 32 %read
      set %result 10User: 7 $+ %stats.nick $+  10 $+ $chr(124) Skill: $+ 7 $1 10 $+ $chr(124) Level: $+ 7 $3 10 $+ $chr(124) Rank: $+ 7 $2 10 $+ $chr(124) Exp: $+ 7 $4 
      msg %chan %result
      unset %chan
      unset %nick
      unset %result
      unset %stats.nick
      sockclose plookup
    }
    elseif (*Not* iswm %read ) {
      msg %chan 10The user7 %stats.nick 10does not appear in the highscores.
      unset %chan
      unset %nick
      unset %stats.nick
      sockclose plookup
    }
  }
}