Id: 8042; Nick: Albie; Timestamp: 2008-03-29 09:15:47; 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

on *:TEXT:$( $me mytrigger*):#:{
  if ($3 == $null) && (!%mytrigger. [ $+ [ $chan ] ]) {  
    notice $nick There is no trigger for $chan $+ . 
    halt
  } 
  if ($2 == mytrigger) && ($3 == $null) && (%mytrigger. [ $+ [ $chan ] ]) { 
    notice $nick Trigger in $chan $+ : %mytrigger. [ $+ [ $chan ] ] $+ .
    halt
  }
  if ($2 == mytrigger) && ($3 != $null)  && ($3 == $chr(36)) || ($3 == $chr(63)) || ($3 == $chr(33)) || ($3 == $chr(46)) { 
    notice $nick Done! Trigger was set to $+  $3 $+  in $chan $+ . 
    set %mytrigger. [ $+ [ $chan ] ] $3 
    halt
  }
  if ($2 == mytrigger) && ($3 != $null)  && ($3 != $chr(36)) || ($3 != $chr(63)) || ($3 != $chr(33)) || ($3 != $chr(46)) { 
    notice $nick Wrong trigger! Available triggers: $ / ? / ! / . 
    halt
  } 
}
on *:TEXT:$( %mytrigger. [ $+ [ $chan ] ] $+ *):#:{
  var %chanlev.head = $readini(E:\mircbot\chanlev.ini,head,$address($nick,1))
  var %chanlev.chan = $readini(E:\mircbot\chanlev.ini,$chan,$address($nick,1))
  if ($1 == %mytrigger. [ $+ [ $chan ] $+ ] whoami) { 
    if (%chanlev.head == 10) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globalowner
      halt  
    } 
    if (%chanlev.head == 9) && (%chanlev.chan) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globalmaster
      halt
    }
    if (%chanlev.head == 8) && (%chanlev.chan) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globaloperator
      halt
    } 
    if (%chanlev.head == 7) && (%chanlev.chan) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globalvoice 
      halt
    } 
    if (%chanlev.chan == 3) { 
      putnotice $nick You ( $+ $nick $+ ) are known as channel voice 
      halt
    } 
    if (%chanlev.chan == 4) { 
      putnotice $nick You ( $+ $nick $+ ) are known as channel operator 
      halt
    } 
    if (%chanlev.chan == 5) { 
      putnotice $nick You ( $+ $nick $+ ) are known as channel master
      halt
    } 
    if (%chanlev.chan == 6) { 
      putnotice $nick You ( $+ $nick $+ ) are known as channel owner
      halt
    } 
    if (!%chanlev.head) || (!%chanlev.chan) { 
      putnotice $nick You ( $+ $nick $+ ) are not known in $chan $+ . 
    }
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && (!$2) && (!%kickmsg. [ $+ [ $chan ] ]) {
    notice $nick There is no kickmessage in $chan $+ . 
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 == show) && (%kickmsg. [ $+ [ $chan ] ]) {
    notice $nick Kickmessage in $chan $+ : %kickmsg. [ $+ [ $chan ] ]  
    halt
  } 
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 == $null) && ($2 != help) && ($2 != show) {
    putnotice $nick Wrong syntax! Syntax: %mytrigger. [ $+ [ $chan ] ] $+ kickmsg <yourmessage>
    putnotice $nick Do you need help? Write %mytrigger. [ $+ [ $chan ] ] $+ kickmsg help
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 != $null) && ($2 != help) && ($2 != show) { 
    set %kickmsg. [ $+ [ $chan ] ] $2- 
    notice $nick Kickmessage was set to $2- in $chan $+ .
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kick) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2) && ($3) {
    inc %kickID. [ $+ [ $chan ] ]
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,$3-,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kick) && ($2) && ($readini(E:\mircbot\chanlev.ini,$chan,$nick) == 5) || (%chanlev.head == 10) && (!$3) {
    inc %kickID. [ $+ [ $chan ] ]
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,You have been KICKED from this channel,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ unban) && ($2 == all) && (%chanlev.chan == 5) || (%chanlev.head == 10) {
    mode $chan b-b * * 
    halt 
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ unban) && ($2 == last) && (%chanlev.chan == 5) || (%chanlev.head == 10) {
    mode $chan -b %lastban. [ $+ [ $chan ] ] 
    unset %lastban. [ $+ [ $chan ] ]
    halt 
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ ban) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2) && ($3) {
    inc %kickID. [ $+ [ $chan ] ]
    mode $chan +b $address($2,3)
    set %lastban. [ $+ [ $chan ] ] $address($2,3)
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,$3-,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ ban) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2) && (!$3) {
    inc %kickID. [ $+ [ $chan ] ]
    set %lastban. [ $+ [ $chan ] ] $address($2,3) 
    mode $chan +b $address($2,3)
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,You have been BANNED from this channel,:nick:,$nick,:chan:,$chan)
    halt 
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ invite) && ($2) { 
    invite $2 $chan 
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 == help) {
    putnotice $nick Kickmessage help file
    putnotice $nick :id: - gives you a counter.
    putnotice $nick :chan: - From witch chan did the user get kicked from
    putnotice $nick :reason: - The reason why the user got kicked
    putnotice $nick :nick: - Who kicked
    halt
  }
}
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

on *:TEXT:$( $me mytrigger*):#:{
  if ($3 == $null) && (!%mytrigger. [ $+ [ $chan ] ]) {
    notice $nick There is no trigger for $chan $+ .
    halt
  }
  if ($2 == mytrigger) && ($3 == $null) && (%mytrigger. [ $+ [ $chan ] ]) {
    notice $nick Trigger in $chan $+ : %mytrigger. [ $+ [ $chan ] ] $+ .
    halt
  }
  if ($2 == mytrigger) && ($3 != $null)  && ($3 == $chr(36)) || ($3 == $chr(63)) || ($3 == $chr(33)) || ($3 == $chr(46)) {
    notice $nick Done! Trigger was set to $+  $3 $+  in $chan $+ .
    set %mytrigger. [ $+ [ $chan ] ] $3
    halt
  }
  if ($2 == mytrigger) && ($3 != $null)  && ($3 != $chr(36)) || ($3 != $chr(63)) || ($3 != $chr(33)) || ($3 != $chr(46)) {
    notice $nick Wrong trigger! Available triggers: $ / ? / ! / .
    halt
  }
}
on *:TEXT:$( %mytrigger. [ $+ [ $chan ] ] $+ *):#:{
  var %chanlev.head = $readini(E:\mircbot\chanlev.ini,head,$address($nick,1))
  var %chanlev.chan = $readini(E:\mircbot\chanlev.ini,$chan,$address($nick,1))
  if ($1 == %mytrigger. [ $+ [ $chan ] $+ ] whoami) {
    if (%chanlev.head == 10) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globalowner
      halt
    }
    if (%chanlev.head == 9) && (%chanlev.chan) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globalmaster
      halt
    }
    if (%chanlev.head == 8) && (%chanlev.chan) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globaloperator
      halt
    }
    if (%chanlev.head == 7) && (%chanlev.chan) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are known as Globalvoice
      halt
    }
    if (%chanlev.chan == 3) {
      putnotice $nick You ( $+ $nick $+ ) are known as channel voice
      halt
    }
    if (%chanlev.chan == 4) {
      putnotice $nick You ( $+ $nick $+ ) are known as channel operator
      halt
    }
    if (%chanlev.chan == 5) {
      putnotice $nick You ( $+ $nick $+ ) are known as channel master
      halt
    }
    if (%chanlev.chan == 6) {
      putnotice $nick You ( $+ $nick $+ ) are known as channel owner
      halt
    }
    if (!%chanlev.head) || (!%chanlev.chan) {
      putnotice $nick You ( $+ $nick $+ ) are not known in $chan $+ .
    }
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && (!$2) && (!%kickmsg. [ $+ [ $chan ] ]) {
    notice $nick There is no kickmessage in $chan $+ .
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 == show) && (%kickmsg. [ $+ [ $chan ] ]) {
    notice $nick Kickmessage in $chan $+ : %kickmsg. [ $+ [ $chan ] ]
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 == $null) && ($2 != help) && ($2 != show) {
    putnotice $nick Wrong syntax! Syntax: %mytrigger. [ $+ [ $chan ] ] $+ kickmsg <yourmessage>
    putnotice $nick Do you need help? Write %mytrigger. [ $+ [ $chan ] ] $+ kickmsg help
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 != $null) && ($2 != help) && ($2 != show) {
    set %kickmsg. [ $+ [ $chan ] ] $2-
    notice $nick Kickmessage was set to $2- in $chan $+ .
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kick) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2) && ($3) {
    inc %kickID. [ $+ [ $chan ] ]
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,$3-,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kick) && ($2) && ($readini(E:\mircbot\chanlev.ini,$chan,$nick) == 5) || (%chanlev.head == 10) && (!$3) {
    inc %kickID. [ $+ [ $chan ] ]
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,You have been KICKED from this channel,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ unban) && ($2 == all) && (%chanlev.chan == 5) || (%chanlev.head == 10) {
    mode $chan b-b * *
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ unban) && ($2 == last) && (%chanlev.chan == 5) || (%chanlev.head == 10) {
    mode $chan -b %lastban. [ $+ [ $chan ] ]
    unset %lastban. [ $+ [ $chan ] ]
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ ban) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2) && ($3) {
    inc %kickID. [ $+ [ $chan ] ]
    mode $chan +b $address($2,3)
    set %lastban. [ $+ [ $chan ] ] $address($2,3)
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,$3-,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ ban) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2) && (!$3) {
    inc %kickID. [ $+ [ $chan ] ]
    set %lastban. [ $+ [ $chan ] ] $address($2,3)
    mode $chan +b $address($2,3)
    kick $chan $2 $replace(%kickmsg. [ $+ [ $chan ] ],:id:,%kickID. [ $+ [ $chan ] ],:reason:,You have been BANNED from this channel,:nick:,$nick,:chan:,$chan)
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ invite) && ($2) {
    invite $2 $chan
    halt
  }
  if ($1 == %mytrigger. [ $+ [ $chan ] ] $+ kickmsg) && (%chanlev.chan == 5) || (%chanlev.head == 10) && ($2 == help) {
    putnotice $nick Kickmessage help file
    putnotice $nick :id: - gives you a counter.
    putnotice $nick :chan: - From witch chan did the user get kicked from
    putnotice $nick :reason: - The reason why the user got kicked
    putnotice $nick :nick: - Who kicked
    halt
  }
}
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)