Stuff

on *:TEXT:!defname *:#: {
  hadd nicks $address($nick,2) $2-
  notice $nick Your default nick for $address($nick,2) has been set to $2-
}
on $*:TEXT:/^[!@](stats|stat)+.$/Si:#: {
  set %display $iif($left($1,1) == @,msg $chan,/.notice $nick)
  if (!$2) {
    if ($hget(nicks,$address($nick,2)) != $null) {
      set %user $replace($hget(nicks,$address($nick,2)),$chr(32),$chr(95))
    }
    else {
      notice $nick You need to either specify a name to lookup or set your default nick.
      notice $nick To set a default nick, type !defname <NICK>, without the <>.
    }
  }
  else {
    set %user $replace($2,$chr(32),$chr(95))
  }
  sockopen stats slushpuppy.silverinterlocution.org 80
}
on :SOCKOPEN:stats: {
  sockwrite -n $sockname GET /rsstats.php?stats= $+ %user
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf
}
on :SOCKREAD:stats: {
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    %display $htmlfree(%temptext)
    sockclose $sockname
    timer 1 2 /unset %display
    timer 1 2 /unset %temptext
    timer 1 2 /unset %user
  }
}

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}