on *:start:{
if !$hget(NB) { .hmake NB 100 }
if $exists(NB.hsh) { .hload NB NB.hsh }
}
on *:exit:{
.hsave -o NB NB.hsh
}
on *:disconnect:{
.hsave -o NB NB.hsh
}
menu nicklist {
-
Notify Ban Settings
.Add Nick: banlist add $$?="Nick To Add"
.Add $1: banlist add $iif(!$snicks,$$?="Nick(s) To Add",$snicks)
.-
.Remove Nick: banlist del $$?="Nick To Remove"
.Remove $1: banlist del $iif(!$snicks,$$?="Nick To Remove",$snicks)
.-
.View BanList: .hsave -o NB NB.hsh | run NB.hsh
.-
.Clear BanList: .hfree NB | $iif($exists(NB.hsh),remove NB.hsh)
}
alias banlist {
var %nicks = $remove($replace($2-,$chr(32),$chr(44)),$me)
while %nicks {
notify $iif($1 == del,-r) $gettok(%nicks,1,44)
.hadd -m NB $gettok(%nicks,1,44) $iif($1 == add,Banned)
%nicks = $remtok(%nicks,$gettok(%nicks,1,44),1,44)
}
}
on *:notify: {
if ( %bnn == off ) || ( %bnn == $null ) || ($nick isop #) { return }
if $hget(NB,$nick) {
var %a = 1, %b = $chan(0)
while %a <= %b {
if ($me isop $chan(%a)) {
ban $chan(%a) $nick 2
}
inc %a
}
}
}