Accueil > > > STATISTIQUE D'UN CHANNEL EN DIALOG
STATISTIQUE D'UN CHANNEL EN DIALOG
Information sur la source
Description
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
- 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 |>
- }
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 ++
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|