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
|
; 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:!chanlevskin:#:{
notice $nick %chanlevskin Usage: $1 <new skin> %chanlevskin
}
on 9:text:!chanlevskin *:#:{
set %chanlevskin $2
notice $nick %chanlevskin Done. %chanlevskin
set %chanlevskin $2
}
on *:text:!chanlevversion:#:{
notice $nick %chanlevskin MSL Chanlev v0.3a 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 (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. %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
}
|