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
|
on *:TEXT:*:#:{
if ($1 == !globlev) {
if ($2 == $null) {
if ($globlev($nick) <= 1) && ($chanlev($chan,$nick) <= 1) {
notice $nick need atleast chanlevel 1 or global level 1
return
}
if ($window(@globlist)) { window -c $v1 }
window -h @globlist
var %i = $nick($chan,0)
while (%i) {
var %Nick = $nick($chan,%i)
aline @globlist %nick $+ $chr(44) $+ $globlev(%nick)
dec %i
}
filter -cwwut 2 44 @globlist @globlist
var %l = $line(@globlist,0)
while (%l) {
var %line = $line(@globlist,%l)
if ($gettok(%line,2,44) == 5) {
var %owners = $addtok(%owners, $gettok(%Line,1,44), 32)
}
elseif ($gettok(%line,2,44) == 4) {
var %masters = $addtok(%masters, $gettok(%Line,1,44), 32)
}
elseif ($gettok(%line,2,44) == 3) {
var %helper = $addtok(%helper, $gettok(%Line,1,44), 32)
}
elseif ($gettok(%line,2,44) == 2) {
var %op = $addtok(%op, $gettok(%Line,1,44), 32)
}
elseif ($gettok(%line,2,44) == 1) {
var %friend = $addtok(%friend, $gettok(%Line,1,44), 32)
}
dec %l
}
notice $nick Owners: $iif(%owners, %owners, 0) Masters: $iif(%masters, %masters, 0) Helpers: $iif(%helpers, %helpers, 0)
notice $nick Op: $iif(%op, %op, 0) Friend: $iif(%friend, %friend, 0)
} |