Someone

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) - 1) 7- 4T14otal 4L14ines 4O14f 4C14ode15: $bytes(%lines,b) 7- 4T14otal 4F14ile 4S14ize15: $bytes(%size,b) 4B14ytes 7- $bytes(%size,k).suf 7- $bytes(%size,m).suf 7- 4m14IRC 4V14ersion15: $version 7- 4O14perating 4S14ystem15: Windows $os | unset %lines | unset %size | unset %w | unset %ww
    msg $chan 4S14ystem 4U14ptime15: $uptime(system,1) 7- 4m14IRC 4U14ptime15: $uptime(mirc,1) 7- 4T14ime 4C14onnected 4t14o 4C14urrent 4S14erver15: $uptime(server,1) 7- 4F14ree 4S14pace 4L14eft 4o14n 4H14ard 4D14rive 4C15: $round($calc(($disk(c:).free) / 1024 / 1024000),2) $+ 4G14B 4O14ut 4o14f $round($calc(($disk(c:).size) / 1024 / 1024000),2) $+ 4G14B
    msg $chan 4I 4a14m 4O14p 4o14n %op 4c14hannel(s)15, 4H14alf4O14p 4o14n %halfop 4c14hannels(s)15, 4a14nd 4v14oice 4o14n %voice 4c14hannel(s) 4o14ut 4of %chans $+ 15. 4I 4c14ontrol $+(%peons,/,%total) ( $+ $calc((%peons / %total)*100) $+ % $+ ) 4u14sers 4a14ccross $scon(0) 4n14etworks15.
  }
}