CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 02:43:17

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Code

AddOns

> STATISTIQUE D'UN CHANNEL EN DIALOG

STATISTIQUE D'UN CHANNEL EN DIALOG

Information sur la source

Note :

4,50 / 10

Catégorie :AddOns Niveau :Initié Date de création :09/08/2003 Date de mise à jour :09/08/2003 19:55:53 Vu :3 246

Auteur : lemec

Ecrire un message privé

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

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

NICKCOMPLETOR

SYSTEME AWAY

PSEUDO RAPIDE

LECTEUR MP3 (NEW)

MP3 PLAYER

Toutes les sources de lemec

Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Toutes les sources de la catégorie AddOns

Commentaires et avis

Commentaire de doodah le 10/08/2003 22:15:49

pk ya pas els admis ?

Commentaire de abdoulax le 11/08/2003 17:16:23

ouai , bof

Commentaire de M4tthi3u le 05/06/2004 20:57:20

bien ... 6/10

Commentaire de Philou150456 le 15/07/2004 11:41:17

bof faut en rajouter plus que ca

Ajouter un commentaire

Nos sponsors

Derniers Blogs

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5