STATISTIQUE D'UN CHANNEL EN DIALOG

dialog stats {
  title "Statistiques"
  size -1 -1 187 143
  option dbu
  list 1, 68 3 116 138, size
  button "Actualiser", 2, 9 58 50 10, flat
  button "Dire sur le chan", 3, 9 68 50 11, flat
  button "Ok", 4, 9 79 50 10, cancel, flat
  text "Cronic Script : Statistiques D'un Channel", 5, 4 5 50 23
  box "Action", 6, 3 36 62 72
}
on *:dialog:stats:init:*: {
  /set %statschan $active
  /did -a stats 1 Statistique de ---=-> Canal $active 
  /did -a stats 1 
  /did -a stats 1 Nombre de personne: $nick($active,0)
  /did -a stats 1   
  /did -a stats 1 Nombre d'Operateur: $nick($active,0,o)
  /did -a stats 1 - Pourcentage d'opereteur: ( $+ $calc( $nick($active,0,o) / $nick($active,0) * 100) $+ % $+ ) 
  /did -a stats 1 Nombre de Voice : $nick($active,0,v)
  /did -a stats 1 - Pourcentage De Voice( $+ $calc( $nick($active,0,v) / $nick($active,0) * 100) $+ % $+ )
  /did -a stats 1 Nombre de Regulier : $nick($active,0,r)
  /did -a stats 1 - Pourcentage de Regulier ( $+ $calc( $nick($active,0,r) / $nick($active,0) * 100) $+ % $+ )
  /did -a stats 1   
  /did -a stats 1 Stats des Operateurs :
  /did -a stats 1 ----------------------------------------------=->
  if ( $nick($active,0,o) == 0 ) { goto voice }
  else {
    /set %totalostats $nick($active,0,o)
    /set %ostats 0
    :odebut
    inc %ostats
    /did -a stats 1 - $nick($active,%ostats,o) Est Operateur sur $active
    if ( %ostats == %totalostats ) { goto voice }
    else { goto odebut }
  }
  :voice
  /did -a stats 1 
  /did -a stats 1 Stats des Voices :
  /did -a stats 1 ----------------------------------------------=->
  if ( $nick($active,0,v) == 0 ) { goto regul }
  else {
    /set %totalvstats $nick($active,0,v)
    /set %vstats 0
    :vdebut
    inc %vstats
    /did -a stats 1 - $nick($active,%vstats,v) Est Voice sur $active
    if ( %vstats == %totalvstats ) { goto regul }
    else { goto vdebut }
  }
  :regul
  /did -a stats 1 
  /did -a stats 1 Stats de Reguliers :
  /did -a stats 1  ----------------------------------------------=->
  if ( $nick($active,0,r) == 0 ) { goto fin }
  else {
    /set %totalrstats $nick($active,0,r)
    /set %rstats 0
    :rdebut
    inc %rstats
    /did -a stats 1 - $nick($active,%rstats,r) Est Regulier sur $active
    if ( %rstats == %totalrstats ) { goto fin }
    else { goto rdebut }
  }
  :fin
  halt
}
on *:dialog:stats:sclick:2: {
  /did -a stats 1 Statistique de ---=-> Canal $active 
  /did -a stats 1 
  /did -a stats 1 Nombre de personne: $nick($active,0)
  /did -a stats 1   
  /did -a stats 1 Nombre d'Operateur: $nick($active,0,o)
  /did -a stats 1 - Pourcentage d'opereteur: ( $+ $calc( $nick($active,0,o) / $nick($active,0) * 100) $+ % $+ ) 
  /did -a stats 1 Nombre de Voice : $nick($active,0,v)
  /did -a stats 1 - Pourcentage De Voice( $+ $calc( $nick($active,0,v) / $nick($active,0) * 100) $+ % $+ )
  /did -a stats 1 Nombre de Regulier : $nick($active,0,r)
  /did -a stats 1 - Pourcentage de Regulier ( $+ $calc( $nick($active,0,r) / $nick($active,0) * 100) $+ % $+ )
  /did -a stats 1   
  /did -a stats 1 Stats des Operateurs :
  /did -a stats 1 ----------------------------------------------=->
  if ( $nick($active,0,o) == 0 ) { goto voice }
  else {
    /set %totalostats $nick($active,0,o)
    /set %ostats 0
    :odebut
    inc %ostats
    /did -a stats 1 - $nick($active,%ostats,o) Est Operateur sur $active
    if ( %ostats == %totalostats ) { goto voice }
    else { goto odebut }
  }
  :voice
  /did -a stats 1 
  /did -a stats 1 Stats des Voices :
  /did -a stats 1 ----------------------------------------------=->
  if ( $nick($active,0,v) == 0 ) { goto regul }
  else {
    /set %totalvstats $nick($active,0,v)
    /set %vstats 0
    :vdebut
    inc %vstats
    /did -a stats 1 - $nick($active,%vstats,v) Est Voice sur $active
    if ( %vstats == %totalvstats ) { goto regul }
    else { goto vdebut }
  }
  :regul
  /did -a stats 1 
  /did -a stats 1 Stats de Reguliers :
  /did -a stats 1  ----------------------------------------------=->
  if ( $nick($active,0,r) == 0 ) { goto fin }
  else {
    /set %totalrstats $nick($active,0,r)
    /set %rstats 0
    :rdebut
    inc %rstats
    /did -a stats 1 - $nick($active,%rstats,r) Est Regulier sur $active
    if ( %rstats == %totalrstats ) { goto fin }
    else { goto rdebut }
  }
  :fin
  halt
}


on *:dialog:stats:sclick:3: {
  /msg  $active 7Statistique de -------=-> Canal $active |>
  /msg  $active 7Nombre d'utilisateur total:7 $nick(%statschan,0)
  /msg  $active 7Nombre d'OP(s):7 $nick(%statschan,0,o)
  /msg  $active 7Nombre de Voice(s) :7 $nick(%statschan,0,v)
  /msg  $active 7Nombre de Regulier :7 $nick(%statschan,0,r)
  /msg  $active 7Statistique de -------=-> Canal $active |>
}