- on ^*:TEXT:*:#: { set %matchtext $strip($1-)
- if ($me isop $chan) && (*STAR ACADEMY* iswm %matchtext) && (%matchtext isupper ) { /msg irix ban $chan $address($nick,2) | /msg irix kick $chan $nick Indésirable. | /kick $chan $nick Indésirable. | /mode $chan +b $address($nick,2) | set %adressban $address($nick,2) | set %chan1 $chan | checkban }
- }
- alias checkban { var %i = 1
- while (%i <= $nick(%chan1,0)) {
- if (%adressban == $address($nick(%chan1,%i),2)) {
- kick %chan1 $nick(%chan1,%i) Indésirable.
- }
- inc %i
- }
- }
on ^*:TEXT:*:#: { set %matchtext $strip($1-)
if ($me isop $chan) && (*STAR ACADEMY* iswm %matchtext) && (%matchtext isupper ) { /msg irix ban $chan $address($nick,2) | /msg irix kick $chan $nick Indésirable. | /kick $chan $nick Indésirable. | /mode $chan +b $address($nick,2) | set %adressban $address($nick,2) | set %chan1 $chan | checkban }
}
alias checkban { var %i = 1
while (%i <= $nick(%chan1,0)) {
if (%adressban == $address($nick(%chan1,%i),2)) {
kick %chan1 $nick(%chan1,%i) Indésirable.
}
inc %i
}
}