on 100:TEXT:`stats:#:{
  set %w 1 | set %ww 1
  while (%w <= $script(0)) { .set %lines $calc(%lines + $lines($script(%w))) | set %size $calc(%size + $file($script(%w)).size) | inc %w 1 }
  while (%ww <= $alias(0)) { .set %lines $calc(%lines + $lines($alias(%ww))) | set %size $calc(%size + $file($alias(%ww)).size) | inc %ww 1 }
  var %op = 0, %halfop = 0, %voice = 0, %peons = 0, %total = 0, %chans = 0 
  var %b = $chan(0)
  inc %chans %b
  while %b {
    if ($me isop $chan(%b)) { .inc %op | inc %total $nick($chan(%b),0) | inc %peons $nick($chan(%b),0,rh) }
    elseif ($me ishop $chan(%b)) { inc %halfop | inc %total $nick($chan(%b),0) | inc %peons $nick($chan(%b),0,rh) }
    elseif ($me isvoice $chan(%b)) { inc %voice | inc %total $nick($chan(%b),0) }
    else { inc %total $nick($chan(%b),0) }
    dec %b  
    .msg $chan 4L14oaded 4S14cripts15: $calc($script(0) + $alias(0)) 4T14otal 4L14ines 4O14f 4C14ode15: $bytes(%lines,b) 4T14otal 4F14ile 4S14ize15: $bytes(%size,b) 4B14ytes 4- $bytes(%size,k).suf 4- $bytes(%size,m).suf | unset %lines | unset %size | unset %w | unset %ww
    .msg $chan 4I 4a14m 4O14p 4o14n %op 4c14hannel(s)15, 4H14alf4O14p 4o14n %halfop 4c14hannels(s)15, 4a14nd 4v14oice 4o14n %voice 4c14hannel(s)15. 4I 4c14ontrol $+(%peons,/,%total) ( $+ $calc((%peons / %total)*100) $+ % $+ ) 4u14sers 4a14ccross $scon(0) 4n14etworks15. 
  } 
}