menu menubar {
Bbn
.$iif($group(#3).status == on,$style(1),$style(0)) $+ Enable BlackList: $iif($group(#3).status == on,.disable,.enable) #3
}
ON *:START: {
if (!$isfile(badnick.list)) && (!$lines(badnick.list)) { return }
hmake badnick 1000
hload badnick badnick.list
}
alias bnadd {
tokenize 32 $strip($1-)
if (!$1) { echo -a Error: Please specify a badnick! | return }
if ($hfind(badnick,$1,0,W).data) { echo -a Now You Just Added The BadNick On List $+([,$chr(32),$hget(badnick,$hfind(badnick,$1,1,W).data),$chr(32),]) Existing Mask. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
hadd -m badnick %n $1
hsave -o badnick badnick.list
echo -a $1 BadNick Added On The List. - Total: $hget(badnick,0).data
}
alias bndel {
tokenize 32 $strip($1-)
if (!$1) { echo -a Error: Please specify a badnick! | return }
if (!$hfind(badnick,$1,0,W).data) { echo -a BadWord Does Not Exist On List. | return }
hdel -ms badnick $hfind(badnick,$1,1,W).data
hsave -o badnick badnick.list
echo -a $1 BadWord Is Deleted From The List. $iif($hget(badnick,0).data,- Total: $v1)
}
alias bnlist {
var %t = $hget(badnick,0).data
if (!%t) { echo -a BadWord List Is Empty. | return }
echo -a Badnick list:
echo -a -
var %i = 1 | while (%i <= %t) { echo -a %i $+ ): [ $hget(badnick,%i).data ] | inc %i }
echo -a -
echo -a End Of Badnick List... - Total: $hget(badnick,0).data
}
#3 on
ON !*:JOIN:#:{
if ($me isop $chan) || ($me ishop $chan) {
if (!$hfind(badnick,$nick,1,W).data) { return }
ban -ku77200 # $nick 2
}
}
ON !*:NICK: {
if ($hfind(badnick,$newnick,1,W).data) && ($comchan($newnick,0)) {
var %t = $comchan($newnick,0)
var %i = 1
while (%i <= %t) {
var %c = $comchan($newnick,%i)
if ($me isop %c) && ($newnick ison %c) && ($newnick isreg %c) {
ban -ku77200 %c $newnick 2
}
inc %i
}
}
}
#3 end