- alias kb {
- ;on initialise trois variables qui contiennent le pseudo, la raison du kick, et le salon
- set %nick $1
- set %why $2
- set %chan $chan
- ;on banni l'addresse sous la forme *!*@host
- ban $address(%nick,2)
- ;en fonction de la raion du kick, on choisit une phrase au hasard
- if (%why == raison1) {
- ;on définit quelques messages en incrémentant les variable %m
- set %m1 message 1 de raison1
- set %m2 message 2 de raison1
- ;on choisit au hasard un message. le deuxième paramètre du $rand() doit correspondre aux nombre de messages prédéfinis
- set %num $rand(1,2)
- ;la ligne suivante recré la variable %m associée au numéro choisi au hasard
- set %mess $chr(37) $+ m $+ %num
- ;on kick =) il faut evaluer deux fois la variable %mess pour que le message soit bien affiché : première évaluation on obtient "%m" deuxième évaluation on retourne le message.
- kick %chan %nick $eval(%mess,2)
- }
- if (%why == raison2) {
- set %m1 message 1 de raison2
- set %m2 message 1 de raison2
- set %num $rand(1,2)
- set %mess $chr(37) $+ m $+ %num
- kick %chan %nick $eval(%mess,2)
- }
- }
alias kb {
;on initialise trois variables qui contiennent le pseudo, la raison du kick, et le salon
set %nick $1
set %why $2
set %chan $chan
;on banni l'addresse sous la forme *!*@host
ban $address(%nick,2)
;en fonction de la raion du kick, on choisit une phrase au hasard
if (%why == raison1) {
;on définit quelques messages en incrémentant les variable %m
set %m1 message 1 de raison1
set %m2 message 2 de raison1
;on choisit au hasard un message. le deuxième paramètre du $rand() doit correspondre aux nombre de messages prédéfinis
set %num $rand(1,2)
;la ligne suivante recré la variable %m associée au numéro choisi au hasard
set %mess $chr(37) $+ m $+ %num
;on kick =) il faut evaluer deux fois la variable %mess pour que le message soit bien affiché : première évaluation on obtient "%m" deuxième évaluation on retourne le message.
kick %chan %nick $eval(%mess,2)
}
if (%why == raison2) {
set %m1 message 1 de raison2
set %m2 message 1 de raison2
set %num $rand(1,2)
set %mess $chr(37) $+ m $+ %num
kick %chan %nick $eval(%mess,2)
}
}