Id: 10351; Nick: Teppuli; Timestamp: 2008-05-11 18:02:31; Pasted as: mIRC
Description: n/a 
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
}
 
Parsed for bracket errors and indented: 
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
}
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)