статистика канала

Статистика канала: общее количество юзеров, количество опов\хопов\войсов\обычных, их процентное соотношение с цветной полоской...может кому и понадобитсо (делал для своего проекта)

Код:

alias statistica {
  window -poCdhk +dSL @statistica -1 -1 304 134
  drawrect -rf @statistica $rgb(250,170,170) 1 1 1 300 130
  drawrect -rfd @statistica $rgb(255,212,212) 1 4 4 294 16
  drawtext -or @statistica $rgb(255,132,79) Arial 12 7 4 Статистика канала
  drawtext -or @statistica $rgb(73,135,82) Arial 11 120 5 $chan
  drawrect -rfd @statistica $rgb(255,212,212) 1 4 22 294 89
  drawtext -or @statistica $rgb(255,132,79) Arial 11 7 23 Всего ников:
  drawtext -or @statistica $rgb(73,135,82) Arial 11 96 23 $nick($chan,0,a)
  drawrect -rf @statistica $rgb(255,242,242) 1 120 24 160 12
  drawrect -rf @statistica $rgb(73,135,82) 1 120 24 $round($calc(1.6 * (($nick($chan,0,a) / $nick($chan,0,a)))*100),0) 12
  drawtext -or @statistica $rgb(255,132,79) Arial 11 188 23 $round($calc(($nick($chan,0,a) / $nick($chan,0,a))*100),0) $+ %
  drawtext -or @statistica $rgb(255,132,79) Arial 11 7 41 Опов:
  drawtext -or @statistica $rgb(73,135,82) Arial 11 96 41 $nick($chan,0,o)
  drawrect -rf @statistica $rgb(255,242,242) 1 120 42 160 12
  drawrect -rf @statistica $rgb(73,135,82) 1 120 42 $round($calc(1.6 * (($nick($chan,0,o) / $nick($chan,0,a)))*100),0) 12
  drawtext -or @statistica $rgb(255,132,79) Arial 11 188 41 $round($calc(($nick($chan,0,o) / $nick($chan,0,a))*100),0) $+ %
  drawtext -or @statistica $rgb(255,132,79) Arial 11 7 59 Хопов:
  drawtext -or @statistica $rgb(73,135,82) Arial 11 96 59 $nick($chan,0,h)
  drawrect -rf @statistica $rgb(255,242,242) 1 120 60 160 12
  drawrect -rf @statistica $rgb(73,135,82) 1 120 60 $round($calc(1.6 * (($nick($chan,0,h) / $nick($chan,0,a)))*100),0) 12
  drawtext -or @statistica $rgb(255,132,79) Arial 11 188 59 $round($calc(($nick($chan,0,h) / $nick($chan,0,a))*100),0) $+ %
  drawtext -or @statistica $rgb(255,132,79) Arial 11 7 77 Войсов:
  drawtext -or @statistica $rgb(73,135,82) Arial 11 96 77 $nick($chan,0,v)
  drawrect -rf @statistica $rgb(255,242,242) 1 120 78 160 12
  drawrect -rf @statistica $rgb(73,135,82) 1 120 78 $round($calc(1.6 * (($nick($chan,0,v) / $nick($chan,0,a)))*100),0) 12
  drawtext -or @statistica $rgb(255,132,79) Arial 11 188 77 $round($calc(($nick($chan,0,v) / $nick($chan,0,a))*100),0) $+ %
  drawtext -or @statistica $rgb(255,132,79) Arial 11 7 95 Обычных:
  drawtext -or @statistica $rgb(73,135,82) Arial 11 96 95 $nick($chan,0,r)
  drawrect -rf @statistica $rgb(255,242,242) 1 120 96 160 12
  drawrect -rf @statistica $rgb(73,135,82) 1 120 96 $round($calc(1.6 * (($nick($chan,0,r) / $nick($chan,0,a)))*100),0) 12
  drawtext -or @statistica $rgb(255,132,79) Arial 11 188 95 $round($calc(($nick($chan,0,r) / $nick($chan,0,a))*100),0) $+ %
  drawrect -rfd @statistica $rgb(255,212,212) 1 4 113 294 16
  drawtext -or @statistica $rgb(255,132,79) Arial 14 120 113 Закрыть
}
menu @statistica {
  sclick:{ if ($inrect($mouse.x,$mouse.y,0,0,304,134)) && ($mouse.key == 1) { set %bs.x $mouse.x | set %bs.y $mouse.y | .timerstats 0 .5 statsmove1 $!mouse.dx $!mouse.dy } }
  uclick:{
    if ($inrect($mouse.x,$mouse.y,0,0,304,134)) { .timerstats off }
    if ($inrect($mouse.x,$mouse.y,4,113,304,16)) { window -c @statistica }
  }
}
menu channel {
  -
  Статистика канала:.timerSTAT 2 1 statistica
  -
}
alias -l statsmove1 { if $window(@statistica) { window -a @statistica $calc($1 - %bs.x) $calc($2 - %bs.y) | halt } | .timerstats off }

ссылка на архив с этим скриптом http://ascript.org.ru/files/stat.rar