- ;; version de base a titre pedagogique et valable dans certains cas (cf le 2ème commentaire de PaDa)
- /hnotice {
- ;; syntaxe /hnotice <salon> <message>
- var %o = 1
- while ($nick($1,%o) != $null) { ;; pour tous les pseudos presents sur un salon
- ;; si cen est pas moi et a condition que le pseudo soit halfop ou op
- if ( ($nick($1,%o) != $me) && ( ($nick($1,%o) isop $1) || ($nick($1,%o) ishop $1) )) {
- ;; concatenation de la liste des halfop/op avec le pseudo suivant
- /set %userLs %userLs $+ $nick($1,%o) $+ ,
- }
- ;; incrementation (merci RCA ArKanis ;)
- inc %o
- }
- ;; Envoie de la commande en enlevant la ',' de fin (pseudo1,pseudo2...,pseudoN,)
- /notice $left(%userLs,$calc($len(%userLs) - 1)) $+ $chr(32) $+ <notice moderateur> $+ $chr(32) $+ $2-
- ;; desallocation des variables
- unset %o
- unset %userLs
- }
-
- ;; version PaDa featuring skwi
- /hnotice {
- ;; syntaxe /hnotice <salon> <message>
- /notice @% $+ $1 $+ $chr(32) $+ $2-
- }
;; version de base a titre pedagogique et valable dans certains cas (cf le 2ème commentaire de PaDa)
/hnotice {
;; syntaxe /hnotice <salon> <message>
var %o = 1
while ($nick($1,%o) != $null) { ;; pour tous les pseudos presents sur un salon
;; si cen est pas moi et a condition que le pseudo soit halfop ou op
if ( ($nick($1,%o) != $me) && ( ($nick($1,%o) isop $1) || ($nick($1,%o) ishop $1) )) {
;; concatenation de la liste des halfop/op avec le pseudo suivant
/set %userLs %userLs $+ $nick($1,%o) $+ ,
}
;; incrementation (merci RCA ArKanis ;)
inc %o
}
;; Envoie de la commande en enlevant la ',' de fin (pseudo1,pseudo2...,pseudoN,)
/notice $left(%userLs,$calc($len(%userLs) - 1)) $+ $chr(32) $+ <notice moderateur> $+ $chr(32) $+ $2-
;; desallocation des variables
unset %o
unset %userLs
}
;; version PaDa featuring skwi
/hnotice {
;; syntaxe /hnotice <salon> <message>
/notice @% $+ $1 $+ $chr(32) $+ $2-
}