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
|
; 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
}
|