Statistique d'un channel en dialog

Commenter

Contenu du snippet

C'est un dialog qui vous montre le nombre d'op (le %) le nombre de voice et de regulier sur un channel , possibiliter de le dire sur le channel , dans les remotes

Source / Exemple : 


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 |>
}

Conclusion :


Il y a juste un tout petit bug au niveau de la touche actualiser , je trouver le moyen de le modifier et je vous file le code ;p ++

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_lemec)