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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
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 $address(%nick,2) $+ $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) == 0) {
var %friend = $addtok(%friend, $gettok(%Line,1,44), 32)
}
dec %l
}
var %i = $numtok(%owners, 32)
while (%i) {
var %notice = Owners: $addtok(%notice, $gettok(%owners,%i,32),32)
if ($len(%notice) > 400) {
notice $nick %notice
var %notice
}
dec %i
}
var %m = $numtok(%masters, 32)
while (%m) {
var %notice = %notice Masters: $addtok(%notice, $gettok(%masters,%m,32),32)
if ($len(%notice) > 400) {
notice $nick %notice
var %notice
}
dec %m
}
var %h = $numtok(%helper, 32)
while (%h) {
var %notice = %notice Helpers: $addtok(%notice, $gettok(%helpers,%h,32),32)
if ($len(%notice) > 400) {
notice $nick %notice
var %notice
}
dec %h
}
var %o = $numtok(%op, 32)
while (%o) {
var %notice = %notice Ops: $addtok(%notice, $gettok(%op,%o,32),32)
if ($len(%notice) > 400) {
notice $nick %notice
var %notice
}
dec %o
}
var %f = $numtok(%friend, 32)
while (%f) {
var %notice = %notice Friends: $addtok(%notice, $gettok(%friends,%f,32),32)
if ($len(%notice) > 400) {
notice $nick %notice
var %notice
}
dec %f
}
if (%notice) notice $nick %notice
}
elseif ($2 != $null) {
if ($3 == $null) {
if (*?!?*@?* iswm $2) {
var %mask = $2
}
else {
var %mask = $address($2,2)
}
if (!%mask) || ($istok(*!*@ *!*@*, $2,32)) {
putnotice $nick $2 is a Invalid host/nick | return
}
elseif ($regex(%mask,/@(CServe|spamscan|lightweight)\.quakenet\.org$/)) {
putnotice $nick $regml(1) is an IRC Operator
return
}
else {
notice $nick $2 has global level $globlev($2)
return
}
}
}
}
} |