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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
; Q Chanlev by Teppuli (#AndRew @ QuakeNet). Copyright (C) 2008 Teppuli & AndRew
on 9:text:.chanlev *:#:{
if (!$3) {
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if ($left($2,1) == $chr(35)) { processchanlevauth $chan $2 | halt }
if ($2 !ison $chan) { msg $chan %chanlevskin Nickname: $2 %chanlevskin Isnt on this channel %chanlevskin | halt }
processchanlev $chan $2
halt
}
if ($3) {
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if ($left($2,1) == $chr(35)) { processchangechanlevauth $chan $2 $3 | halt }
if ($2 !ison $chan) { msg $chan %chanlevskin Nickname: $2 %chanlevskin Isnt on this channel %chanlevskin | halt }
processchangechanlev $chan $2 $3
halt
}
}
on 9:text:.chanlev:#:{
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if (Q !ison $chan) { notice $nick %chanlevskin No Q on this channel! %chanlevskin | halt }
set -u10 %qchanlevpending $chan
msg q chanlev $chan
}
on 9:text:.chanflags:#:{
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if (Q !ison $chan) { notice $nick %chanlevskin No Q on this channel! %chanlevskin | halt }
set -u10 %qchanlevpending $chan
msg q chanflags $chan
}
on 9:text:.chanflags *:#:{
if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt }
if (Q !ison $chan) { notice $nick %chanlevskin No Q on this channel! %chanlevskin | halt }
set -u10 %qchanlevpending $chan
msg q chanflags $chan $2
}
on 9:text:.chanlevskin:#:{
notice $nick %chanlevskin Usage: $1 <new skin> %chanlevskin
}
on 9:text:.chanlevskin *:#:{
set %chanlevskin $2
notice $nick %chanlevskin Done. %chanlevskin
}
on *:text:.chanflagsversion:#:{
notice $nick %chanlevskin Q chanlev/flags control v0.4a by Teppuli & AndRew %chanlevskin
}
on *:text:.chanlevversion:#:{
notice $nick %chanlevskin Q chanlev/flags control v0.4a by Teppuli & AndRew %chanlevskin
}
on *:notice:*:?:{
if ($nick != Q) { halt }
if (!%qchanlevpending) { halt }
if (User #* is not known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Auth: $remove($2,$chr(35)) %chanlevskin Is not known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (Done. User #* is no longer known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Auth: $remove($3,$chr(35)) %chanlevskin Is not longer known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (Current channel flags for #*: * iswm $1-) {
if (%qchanlevdone) {
msg %qchanlevpending %chanlevskin Done. New chanflags for channel %qchanlevpending $+ : $6- %chanlevskin
unset %qchanlevpending
unset %qchanlevdone
halt
}
msg %qchanlevpending %chanlevskin Current chanflags for channel %qchanlevpending $+ : $6- %chanlevskin
unset %qchanlevpending
halt
}
if (Done. iswm $1-) {
set -u10 %qchanlevdone true
halt
}
if (You do not have sufficient access on #* to use chanflags. iswm $1-) {
msg %qchanlevpending %chanlevskin I dont have sufficient access on Q to use chanflags. %chanlevskin
unset %qchanlevpending
halt
}
if (Done. User * is no longer known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Nickname: $remove($3,$chr(35)) %chanlevskin Is not longer known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (User * is not known on #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Nickname: $remove($2,$chr(35)) %chanlevskin Is not known on this channel. %chanlevskin
unset %qchanlevpending
halt
}
if (Done. Flags for #* on #* are now: *. iswm $1-) {
msg %qchanlevpending %chanlevskin New flags for auth: $remove($4,$chr(35)) %chanlevskin Are: $remove($9,$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (Done. Flags for * on #* are now: *. iswm $1-) {
msg %qchanlevpending %chanlevskin New flags for nick: $4 %chanlevskin Are: $remove($9,$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (User * is not authed. iswm $1-) {
msg %qchanlevpending %chanlevskin User $2 is not authed %chanlevskin
unset %qchanlevpending
halt
}
if (Can't find user #*. iswm $1-) {
msg %qchanlevpending %chanlevskin Can't find auth: $remove($remove($4,$chr(35)),$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (Can't find user *. iswm $1-) {
msg %qchanlevpending %chanlevskin Can't find nickname: $remove($remove($4,$chr(35)),$chr(46)) %chanlevskin
unset %qchanlevpending
halt
}
if (Invalid or disallowed flag specified. iswm $1-) {
msg %qchanlevpending %chanlevskin You specified invalid flag(s), or bot doesnt have enough access to perform this operation. %chanlevskin
unset %qchanlevpending
halt
}
if (Nothing changed. Your requested flag combination change was either the same as the existing flags, impossible, or you don't have enough access. iswm $1-) {
msg %qchanlevpending %chanlevskin Nothing changed. %chanlevskin I maybe dont have enough access, or requested flags are same as existing flags, or flag is unknown. %chanlevskin
unset %qchanlevpending
halt
}
if (Flags for #* on #*: * iswm $1-) {
msg %qchanlevpending %chanlevskin Flags for auth: $remove($3,$chr(35)) %chanlevskin Are: $6 %chanlevskin
unset %qchanlevpending
halt
}
if (Flags for * on #*: * iswm $1-) {
msg %qchanlevpending %chanlevskin Flags for nick: $3 %chanlevskin Are: $6 %chanlevskin
unset %qchanlevpending
halt
}
if (You do not have sufficient access on * to use chanlev. iswm $1-) { msg %qchanlevpending %chanlevskin I dont have sufficient access on Q. %chanlevskin | unset %qchanlevpending | halt }
if (Total: * (owner: * master: * op: * voice: * known: * ban: *). iswm $1-) {
msg %qchanlevpending %chanlevskin Q chanlev info. %chanlevskin Total: $2 $+ . %chanlevskin Owners: $remove($4,$chr(44)) $+ . %chanlevskin Masters: $remove($6,$chr(44)) $+ . %chanlevskin Ops: $remove($8,$chr(44)) $+ . %chanlevskin Voices: $remove($10,$chr(44)) $+ . %chanlevskin Known: $remove($12,$chr(44)) $+ . %chanlevskin Bans: $remove($14,$chr(41) $+ .) $+ . %chanlevskin
unset %qchanlevpending
halt
}
}
alias -l processchanlev {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2
}
alias -l processchanlevauth {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2
}
alias -l processchangechanlev {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2 $3
}
alias -l processchangechanlevauth {
set -u10 %qchanlevpending $1
msg Q chanlev $1 $2 $3
}
|