- alias cnp {
- window -c @Pseudos
- var %me 0
- var %L 0
- var %Q 0
- var %S 0
- window -k0nze @Pseudos
- set %chans_nbs $chan(0)
- var %a 1
- var %b 1
- while ( %a <= %chans_nbs ) {
- aline @Pseudos 2.::::::::::::::.
- aline @Pseudos 5 $+ $chan(%a)5 (4 $nick($chan(%a),0) personne(s)5 )
- aline @Pseudos 2·::::::::::::::·
- while ( %b <= $nick($chan(%a),0) ) {
- set %nicks $nick($chan(%a),%b)
- if ( $nick($chan(%a),%b) == $me ) { inc %me }
- if ( $nick($chan(%a),%b) == L ) { inc %L }
- if ( $nick($chan(%a),%b) == Q ) { inc %Q }
- if ( $nick($chan(%a),%b) == S ) { inc %S }
- aline @Pseudos %nicks
- inc %b
- }
- var %nb_pers = $calc(%nb_pers + $nick($chan(%a),0))
- set %b 1
- inc %a
- }
- aline @Pseudos 2.::::::::::::::.
- aline @Pseudos 2::::::::::::::::
- aline @Pseudos 5Vous etes actuelement sur4 $chan(0) 5channel(s)
- aline @Pseudos 5Il y a4 %nb_pers 5personne(s)
- aline @Pseudos 5Dont:
- aline @Pseudos 4 %me 5fois $me
- aline @Pseudos 4 %l 5fois L
- aline @Pseudos 4 %q 5fois Q
- aline @Pseudos 4 %s 5fois S
- aline @Pseudos 2::::::::::::::::
- aline @Pseudos 2·::::::::::::::·
-
- }
-
- menu @Pseudos {
-
- dclick: /cnp
- Mettre a jour la fenetre: /cnp
- Activer la mise a jour automatique
- .Oui: /enable #Auto_pseudos
- .Non: /disable #Auto_pseudos
-
- }
-
- on *:CONNECT: {
- window -k0nze @Pseudos
- }
-
- #Auto_pseudos off
-
- on *:JOIN:*: {
- /timerAUTOpseudos 1 5 /cnp
- }
-
- on *:PART:*: {
- /timerAUTOpseudos2 1 5 /cnp
- }
-
- #Auto_pseudos end
alias cnp {
window -c @Pseudos
var %me 0
var %L 0
var %Q 0
var %S 0
window -k0nze @Pseudos
set %chans_nbs $chan(0)
var %a 1
var %b 1
while ( %a <= %chans_nbs ) {
aline @Pseudos 2.::::::::::::::.
aline @Pseudos 5 $+ $chan(%a)5 (4 $nick($chan(%a),0) personne(s)5 )
aline @Pseudos 2·::::::::::::::·
while ( %b <= $nick($chan(%a),0) ) {
set %nicks $nick($chan(%a),%b)
if ( $nick($chan(%a),%b) == $me ) { inc %me }
if ( $nick($chan(%a),%b) == L ) { inc %L }
if ( $nick($chan(%a),%b) == Q ) { inc %Q }
if ( $nick($chan(%a),%b) == S ) { inc %S }
aline @Pseudos %nicks
inc %b
}
var %nb_pers = $calc(%nb_pers + $nick($chan(%a),0))
set %b 1
inc %a
}
aline @Pseudos 2.::::::::::::::.
aline @Pseudos 2::::::::::::::::
aline @Pseudos 5Vous etes actuelement sur4 $chan(0) 5channel(s)
aline @Pseudos 5Il y a4 %nb_pers 5personne(s)
aline @Pseudos 5Dont:
aline @Pseudos 4 %me 5fois $me
aline @Pseudos 4 %l 5fois L
aline @Pseudos 4 %q 5fois Q
aline @Pseudos 4 %s 5fois S
aline @Pseudos 2::::::::::::::::
aline @Pseudos 2·::::::::::::::·
}
menu @Pseudos {
dclick: /cnp
Mettre a jour la fenetre: /cnp
Activer la mise a jour automatique
.Oui: /enable #Auto_pseudos
.Non: /disable #Auto_pseudos
}
on *:CONNECT: {
window -k0nze @Pseudos
}
#Auto_pseudos off
on *:JOIN:*: {
/timerAUTOpseudos 1 5 /cnp
}
on *:PART:*: {
/timerAUTOpseudos2 1 5 /cnp
}
#Auto_pseudos end