/stats (Remotes stats)

#To install this alias open your remotes with ALT+R,
#Click FILE, then NEW, then copy paste this in the new page.
#Click File again, click Save As..., then put: "stats.mrc" (WITH THE "'s)
#Click OK and you are done.
#Keep in mind this could be annoying if you say it in some channels.
#
# To see the infos to yourself only, type: /stats
# To say the infos in the channel/private type /stats -s
# Sebastien (#mircscripting@undernet) Seb@ircpros.net

alias stats {
  var %dbf $iif($1 == -s,say,echo -at)
  var %aliases.total, %aliases.lines, %aliases.size
  var %remote.total, %remote.lines, %remote.size
  var %x = 1, %y
  %aliases.total = $alias(0)
  while (%x <= %aliases.total) {
    %y = $alias(%x)
    inc %aliases.lines $lines(%y)
    inc %aliases.size $file(%y).size
    inc %x 1
  }
  %x = 1
  %remote.total = $script(0)
  while (%x <= %remote.total) {
    %y = $script(%x)
    inc %remote.lines $lines(%y)
    inc %remote.size $file(%y).size
    inc %x 1
  }
  %dbf [7Aliases(3Loaded)] %aliases.total files, %aliases.lines lines, $bytes(%aliases.size,k) $+ kb
  %dbf [2Remote(3Loaded)] %remote.total files, %remote.lines lines, $bytes(%remote.size,k) $+ kb
  %dbf [4Total] $findfile($scriptdir, *.ini;*.mrc, 0, inc -u %x $lines($1)) scripts, total of $bytes(%x, db) lines.
}