Il s'agit d'un dialog qui vous montre les différentes statistiques du salon actif.
Vous avez le choix entre une version avec ou sans MDX.
Source / Exemple :
;-----------------------------
; - Statistiques d'un salon -
; By Re[M]i_34
; Version Avec MDX
;-----------------------------
dialog stat {
title "- Statistiques - Re[M]i_34"
size -1 -1 149 136
option dbu
list 1, 3 8 62 112, size
box "Nicks présents :", 2, 1 0 67 134
text "Nb de Ops :", 3, 72 9 33 8, center
edit "", 4, 107 8 39 10, read center
text "Pourcentage :", 5, 68 20 38 8, center
edit "", 6, 107 19 39 10, read center
text "Nb de Voices :", 7, 71 39 37 8, center
edit "", 8, 109 38 39 10, read center
text "Pourcentage :", 9, 70 50 38 8, center
edit "", 10, 109 49 39 10, read center
edit "", 12, 108 68 39 10, read center
text "Nb de Halfops :", 11, 70 69 37 8, center
edit "", 14, 108 79 39 10, read center
text "Pourcentage :", 13, 69 80 38 8, center
text "Total :", 15, 6 123 22 8, center
edit "", 16, 31 122 29 10, read
button "- Fermer -", 17, 110 122 36 12, ok
button "- Actualiser -", 18, 71 122 36 12
edit "", 19, 108 98 39 10, read center
text "Pourcentage :", 20, 69 110 38 8, center
edit "", 21, 108 109 39 10, read center
text "Réguliers :", 22, 70 99 37 8, center
}
alias stats dialog -m stat stat
alias yahoo { if (!$1) { halt } | var %a = 0, %aa = $nick($1,0) | while (%aa > %a) { inc %a 1 | did -a stat 1 $nick($1,%a) } }
on *:dialog:stat:*:*:{
if $devent == init {
did -a stat 4 $nick($active,0,o)
did -a stat 6 $calc($nick($active,0,o) / $nick($active,0) * 100) $+ %
did -a stat 8 $nick($active,0,v)
did -a stat 10 $calc($nick($active,0,v) / $nick($active,0) * 100) $+ %
did -a stat 12 $nick($active,0,h)
did -a stat 14 $calc($nick($active,0,h) / $nick($active,0) * 100) $+ %
did -a stat 16 $nick($active,0)
did -a stat 19 $nick($active,0,r)
did -a stat 21 $calc($nick($active,0,r) / $nick($active,0) * 100) $+ %
yahoo $active
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog stat
dll mdx.dll SetDialog stat bgcolor $rgb(255,255,255)
dll mdx.dll SetColor stat 2,4,6,8,10,12,14,16,19,21 background $rgb(255,255,255)
dll mdx.dll SetColor stat 4,6,8,10,12,14,16,19,21 textbg $rgb(255,255,255)
dll mdx.dll SetColor stat 3,5,7,9,11,13,15,20,22 background $rgb(255,255,255)
dll mdx.dll SetColor stat 3,5,7,9,11,13,15,20,22 textbg $rgb(255,255,255)
}
if $devent == sclick {
if $did == 18 { dialog -x stat | dialog -m stat stat }
}
}
;-----------------------------
; - Statistiques d'un salon -
; By Re[M]i_34
; Version Sans MDX
;-----------------------------
dialog stat {
title "- Statistiques - Re[M]i_34"
size -1 -1 149 136
option dbu
list 1, 3 8 62 112, size
box "Nicks présents :", 2, 1 0 67 134
text "Nb de Ops :", 3, 72 9 33 8, center
edit "", 4, 107 8 39 10, read center
text "Pourcentage :", 5, 68 20 38 8, center
edit "", 6, 107 19 39 10, read center
text "Nb de Voices :", 7, 71 39 37 8, center
edit "", 8, 109 38 39 10, read center
text "Pourcentage :", 9, 70 50 38 8, center
edit "", 10, 109 49 39 10, read center
edit "", 12, 108 68 39 10, read center
text "Nb de Halfops :", 11, 70 69 37 8, center
edit "", 14, 108 79 39 10, read center
text "Pourcentage :", 13, 69 80 38 8, center
text "Total :", 15, 6 123 22 8, center
edit "", 16, 31 122 29 10, read
button "- Fermer -", 17, 110 122 36 12, ok
button "- Actualiser -", 18, 71 122 36 12
edit "", 19, 108 98 39 10, read center
text "Pourcentage :", 20, 69 110 38 8, center
edit "", 21, 108 109 39 10, read center
text "Réguliers :", 22, 70 99 37 8, center
}
alias stats dialog -m stat stat
alias yahoo { if (!$1) { halt } | var %a = 0, %aa = $nick($1,0) | while (%aa > %a) { inc %a 1 | did -a stat 1 $nick($1,%a) } }
on *:dialog:stat:*:*:{
if $devent == init {
did -a stat 4 $nick($active,0,o)
did -a stat 6 $calc($nick($active,0,o) / $nick($active,0) * 100) $+ %
did -a stat 8 $nick($active,0,v)
did -a stat 10 $calc($nick($active,0,v) / $nick($active,0) * 100) $+ %
did -a stat 12 $nick($active,0,h)
did -a stat 14 $calc($nick($active,0,h) / $nick($active,0) * 100) $+ %
did -a stat 16 $nick($active,0)
did -a stat 19 $nick($active,0,r)
did -a stat 21 $calc($nick($active,0,r) / $nick($active,0) * 100) $+ %
yahoo $active
}
if $devent == sclick {
if $did == 18 { dialog -x stat | dialog -m stat stat }
}
}
Conclusion :
Voilà, dites moi ce que vous en pensez, je l'ai réalisé seul.
/stats pour l'ouvrir
PS: Je me suis permis d'emprunter l'alias yahoo de SornDrixer (J'espère que tu ne m'en voudras pas trop :))
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.