on *:TEXT:`blchan*:#:{
if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
writeini bl.ini chanblacklist $2 Reason: $3-
msg $chan 4The channel $2 has been succesfully added to the blacklist. On request of join to $2 $+ , I will not accept.
if ($me ison $2) {
part $2 4 $+ $chan found on blacklist. Reason: $3- $+ . For more information please message $+ $me $+ .
}
}
}
on *:TEXT:`blnick*:#:{
if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
writeini bl.ini nickblacklist $address($2,2) $2
msg $chan 4The user $2 $+ , using the address [ $address($2,2) ] has succesfully been added to the blacklist. Any channel I have operator or have operator status in $+ , $2 will be banned in.
var %a 1 | while ($chan(%a)) { if ($me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -k $chan(%a) $2 4User found on my blacklist. For more information about this ban please message $+ $me $+ . } | inc %a }
}
else {
notice $nick 10Sorry, only channel operators may add users to the blacklist.
}
}
on *:TEXT:`dbchan*:#:{
if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
remini bl.ini chanblacklist $2
msg $chan 10The channel $2 has been succesfully removed from the blacklist.
}
else {
notice $nick 10Sorry, only channel operators may delete channels from the blacklist.
}
}
on *:TEXT:`dbnick*:#:{
if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
remini bl.ini nickblacklist $address($2,2) $2
msg $chan 10The user $2 $+ , using the address [ $address($2,2) ] has succesfully been removed from the blacklist.
}
else {
notice $nick 10Sorry, only channel operators may delete users from the blacklist.
}
}
ON *:JOIN:#:{
if ($readini(bl.ini,nickblacklist,$nick) == nickblacklist) {
ban -k $chan $nick 4User found on blacklist. For more information please message $+ $me $+ .
}
}
ON *:INVITE:#: {
if ($readini(bl.ini,chanblacklist,#)) {
notice $nick 4 $+ $chan found on blacklist, I will not join $chan $+ . For more information please message $+ $me $+ .
}
else {
join $chan
}
}
on *:TEXT:`cblist*:#:{
//var %a = 1 | while ($ini(bl.ini,chanblacklist,%a)) { notice $nick $ini(bl.ini,chanblacklist,%a) | inc %a }
}
on *:TEXT:`nblist*:#:{
//var %a = 1 | while ($ini(bl.ini,nickblacklist,%a)) { notice $nick $ini(bl.ini,nickblacklist,%a) | inc %a }
}