Id: 10161; Nick: Teppuli; Timestamp: 2008-05-07 17:55:40; 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

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

; 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
}
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)