1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
alias clearchanlev {
set -u20 %zxzxx 1
if ($left($1,1) == $chr(35)) {
unset %temp | unset %zxx | unset %mylevel | unset %clear
if ($2) {
set -u60 %clear $1 $2 | set %mylevel ON | msg q chanlev $1
}
else {
set -u60 %clear $1 amovgt | set %mylevel ON | msg q chanlev $1
}
}
else {
echo -a Please type "#" in the beggining
}
}
on *:notice:*:?:{
if (%mylevel == ON) {
if ($nick == Q) {
if ($1 == $remove($gettok($address($me,2),1,45),*!*@,.users.quakenet.org)) {
.timer 1 5 set -u50 %mylevel $v2 $2 | .timer 1 6 msg q chanlev $gettok(%clear,1,32)
}
}
}
else {
if ($nick == Q) {
if (!%zxx) { set %zxx 1 }
if (*known* !iswm $1-) && (*username* !iswm $1-) && (*end* !iswm $1-) && (*total* !iswm $1-) && ($1 != $gettok(%mylevel,1,32)) && (n !isin $2) {
if ($left($2,1) == $chr(43)) && ($gettok(%clear,2,32) isin $2) { set %temp %temp $chr(35) $+ $1 | .timercheckwhat 1 6 checkwhat }
if ($numtok(%temp,32) >= 16) { .timer 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | inc %zxx 2 }
}
}
}
}
alias checkwhat {
if ($numtok(%temp,32) < 16) { .timer 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | unset %zxx | unset %mylevel | unset %clear }
}
|