Id: 9065; Nick: Teppuli; Timestamp: 2008-04-12 16:19:08; 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

; Q Chanlev by Teppuli (#AndRew @ QuakeNet). Copyright (C) 2008 Teppuli & AndRew
on 9:text:!chanlev *:#:{
  if (!$3) {
    if (%qchanlevpending) { notice $nick 9,1«0•9,1»0 Another request in process, please try again. 9,1«0•9,1»0 | halt }
    if ($left($2,1) == $chr(35)) { processchanlevauth $chan $2 | halt }
    if ($2 !ison $chan) { msg $chan 9,1«0•9,1»0 Nickname: $2 9,1«0•9,1»0 Isnt on this channel 9,1«0•9,1»0 | halt }
    processchanlev $chan $2
    halt
  }
  if ($3) {
 
    if (%qchanlevpending) { notice $nick 9,1«0•9,1»0 Another request in process, please try again. 9,1«0•9,1»0 | halt }
    if ($left($2,1) == $chr(35)) { processchangechanlevauth $chan $2 $3 | halt }
    if ($2 !ison $chan) { msg $chan 9,1«0•9,1»0 Nickname: $2 9,1«0•9,1»0 Isnt on this channel 9,1«0•9,1»0 | halt }
    processchangechanlev $chan $2 $3
    halt
  }
}
on 9:text:!chanlev:#:{
  if (%qchanlevpending) { notice $nick 9,1«0•9,1»0 Another request in process, please try again. 9,1«0•9,1»0 | halt }
  if (Q !ison $chan) { notice $nick 9,1«0•9,1»0 No Q on this channel! 9,1«0•9,1»0 | halt }
  set -u10 %qchanlevpending $chan
  msg q chanlev $chan
}
on 9:text:!chanlevversion:#:{
  notice $nick 9,1«0•9,1»0 Q chanlev script by Teppuli (#teppuli & #AndRew @ QuakeNet) 9,1«0•9,1»0 (Linecount: $lines($script) $+ ) 9,1«0•9,1»0 Copyright (C) 2008 Teppuli & AndRew 9,1«0•9,1»0
 
}
 
on *:notice:*:?:{
  if ($nick != Q) { halt } 
  if (!%qchanlevpending) { halt }
  if (User #* is not known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Auth: $remove($2,$chr(35)) 9,1«0•9,1»0 Is not known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. User #* is no longer known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Auth: $remove($3,$chr(35)) 9,1«0•9,1»0 Is not longer known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. User * is no longer known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Nickname: $remove($3,$chr(35)) 9,1«0•9,1»0 Is not longer known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (User * is not known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Nickname: $remove($2,$chr(35)) 9,1«0•9,1»0 Is not known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. Flags for #* on #* are now: *. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 New flags for auth: $remove($4,$chr(35)) 9,1«0•9,1»0 Are: $remove($9,$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. Flags for * on #* are now: *. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 New flags for nick: $4 9,1«0•9,1»0 Are: $remove($9,$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Can't find user #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Can't find auth: $remove($remove($4,$chr(35)),$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Can't find user *. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Can't find nickname: $remove($remove($4,$chr(35)),$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Invalid or disallowed flag specified. iswm $1-) {
    msg %qchanlevpending You specified invalid flag(s), or bot doesnt have enough access to perform this operation.
    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 9,1«0•9,1»0 Nothing changed. 9,1«0•9,1»0 I maybe dont have enough access, or requested flags are same as existing flags. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Flags for #* on #*: * iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Flags for auth: $remove($3,$chr(35)) 9,1«0•9,1»0 Are: $6 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Flags for * on #*: * iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Flags for nick: $3 9,1«0•9,1»0 Are: $6 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (You do not have sufficient access on * to use chanlev. iswm $1-) { msg %qchanlevpending 9,1«0•9,1»0 I dont have sufficient access on Q. 9,1«0•9,1»0 | unset %qchanlevpending | halt }
  if (Total: * (owner: * master: * op: * voice: * known: * ban: *). iswm $1-) { 
    msg %qchanlevpending 9,1«0•9,1»0 Q chanlev info. 9,1«0•9,1»0 Total: $2 $+ . 9,1«0•9,1»0 Owners: $remove($4,$chr(44)) $+ . 9,1«0•9,1»0 Masters: $remove($6,$chr(44)) $+ . 9,1«0•9,1»0 Ops: $remove($8,$chr(44)) $+ . 9,1«0•9,1»0 Voices: $remove($10,$chr(44)) $+ . 9,1«0•9,1»0 Known: $remove($12,$chr(44)) $+ . 9,1«0•9,1»0 Bans: $remove($14,$chr(41) $+ .) $+ . 9,1«0•9,1»0
    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

; Q Chanlev by Teppuli (#AndRew @ QuakeNet). Copyright (C) 2008 Teppuli & AndRew
on 9:text:!chanlev *:#:{
  if (!$3) {
    if (%qchanlevpending) { notice $nick 9,1«0•9,1»0 Another request in process, please try again. 9,1«0•9,1»0 | halt }
    if ($left($2,1) == $chr(35)) { processchanlevauth $chan $2 | halt }
    if ($2 !ison $chan) { msg $chan 9,1«0•9,1»0 Nickname: $2 9,1«0•9,1»0 Isnt on this channel 9,1«0•9,1»0 | halt }
    processchanlev $chan $2
    halt
  }
  if ($3) {
 
    if (%qchanlevpending) { notice $nick 9,1«0•9,1»0 Another request in process, please try again. 9,1«0•9,1»0 | halt }
    if ($left($2,1) == $chr(35)) { processchangechanlevauth $chan $2 $3 | halt }
    if ($2 !ison $chan) { msg $chan 9,1«0•9,1»0 Nickname: $2 9,1«0•9,1»0 Isnt on this channel 9,1«0•9,1»0 | halt }
    processchangechanlev $chan $2 $3
    halt
  }
}
on 9:text:!chanlev:#:{
  if (%qchanlevpending) { notice $nick 9,1«0•9,1»0 Another request in process, please try again. 9,1«0•9,1»0 | halt }
  if (Q !ison $chan) { notice $nick 9,1«0•9,1»0 No Q on this channel! 9,1«0•9,1»0 | halt }
  set -u10 %qchanlevpending $chan
  msg q chanlev $chan
}
on 9:text:!chanlevversion:#:{
  notice $nick 9,1«0•9,1»0 Q chanlev script by Teppuli (#teppuli & #AndRew @ QuakeNet) 9,1«0•9,1»0 (Linecount: $lines($script) $+ ) 9,1«0•9,1»0 Copyright (C) 2008 Teppuli & AndRew 9,1«0•9,1»0
 
}
 
on *:notice:*:?:{
  if ($nick != Q) { halt }
  if (!%qchanlevpending) { halt }
  if (User #* is not known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Auth: $remove($2,$chr(35)) 9,1«0•9,1»0 Is not known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. User #* is no longer known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Auth: $remove($3,$chr(35)) 9,1«0•9,1»0 Is not longer known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. User * is no longer known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Nickname: $remove($3,$chr(35)) 9,1«0•9,1»0 Is not longer known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (User * is not known on #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Nickname: $remove($2,$chr(35)) 9,1«0•9,1»0 Is not known on this channel. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. Flags for #* on #* are now: *. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 New flags for auth: $remove($4,$chr(35)) 9,1«0•9,1»0 Are: $remove($9,$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Done. Flags for * on #* are now: *. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 New flags for nick: $4 9,1«0•9,1»0 Are: $remove($9,$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Can't find user #*. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Can't find auth: $remove($remove($4,$chr(35)),$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Can't find user *. iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Can't find nickname: $remove($remove($4,$chr(35)),$chr(46)) 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Invalid or disallowed flag specified. iswm $1-) {
    msg %qchanlevpending You specified invalid flag(s), or bot doesnt have enough access to perform this operation.
    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 9,1«0•9,1»0 Nothing changed. 9,1«0•9,1»0 I maybe dont have enough access, or requested flags are same as existing flags. 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Flags for #* on #*: * iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Flags for auth: $remove($3,$chr(35)) 9,1«0•9,1»0 Are: $6 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (Flags for * on #*: * iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Flags for nick: $3 9,1«0•9,1»0 Are: $6 9,1«0•9,1»0
    unset %qchanlevpending
    halt
  }
  if (You do not have sufficient access on * to use chanlev. iswm $1-) { msg %qchanlevpending 9,1«0•9,1»0 I dont have sufficient access on Q. 9,1«0•9,1»0 | unset %qchanlevpending | halt }
  if (Total: * (owner: * master: * op: * voice: * known: * ban: *). iswm $1-) {
    msg %qchanlevpending 9,1«0•9,1»0 Q chanlev info. 9,1«0•9,1»0 Total: $2 $+ . 9,1«0•9,1»0 Owners: $remove($4,$chr(44)) $+ . 9,1«0•9,1»0 Masters: $remove($6,$chr(44)) $+ . 9,1«0•9,1»0 Ops: $remove($8,$chr(44)) $+ . 9,1«0•9,1»0 Voices: $remove($10,$chr(44)) $+ . 9,1«0•9,1»0 Known: $remove($12,$chr(44)) $+ . 9,1«0•9,1»0 Bans: $remove($14,$chr(41) $+ .) $+ . 9,1«0•9,1»0
    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)