on @*:join:#: {
_blc
var %x = 1
while ($hget(blacklist,%x).item) {
var %v1 = $v1
if (%v1 iswm $fulladdress) {
_doblacklist $chan $nick %v1 $hget(blacklist,%v1)
return
}
inc %x
}
}
alias -l _doblacklist {
mode $1 +b $3
kick $1-2 Blacklisted: $4-
}
alias ablacklist {
_blc
hadd blacklist $$1 $iif($2-,$2-,BOOM!)
echo -ac info * $1 added to the blacklist: $iif($2-,$2-,BOOM!)
_bls
}
alias rblacklist {
_blc
hdel blacklist $$1
echo -ac info * $1 removed from the blacklist.
_bls
}
alias blacklist {
_blc
echo -ac info * Number of people currently in the blacklist: $hget(blacklist,0).item
var %x = 1
if ($hget(blacklist,%x).item) {
echo -ac info * (3Num ) 7Address/Wildmatch 5Reason
}
while ($hget(blacklist,%x).item) {
var %v1 = $v1
echo -ac info * $+($chr(40),03,$mklen(%x,4),,$chr(41),07) $mklen(%v1,50) $+ 05 $hget(blacklist,%v1)
inc %x
}
echo -ac info * End of blacklist.
}
alias -l _bls {
hsave -b blacklist $qt($scriptdirblaclist.bl)
}
alias -l _blc {
if (!$hget(blacklist)) {
hmake blacklist 10
}
if ($isfile($scriptdirblacklist.bl)) {
hload -b blacklist $qt($scriptdirblaclist.bl)
}
}
on *:start: {
_blc
}
alias mklen {
var %len = $2
tokenize 32 $1
while ($len($strip($1-)) < %len) {
tokenize 32 $1- $+ $chr(160)
}
return $1-
}