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