This code seems to be perfect but it wont Kban ??
raw 311:*: {
if (%name != off) && ($nick !isop #) {
var %a = 1, %b = $hget(bad.name,0).item
while %a <= %b {
var %bad.name = $hget(bad.name,%a).item
if $istok($6-,%bad.name,32) { ban -ku60 #chat $2 2 14Unacceptable IrcName Detected }
%a = %b
inc %a
}
return $regsubex($1-,/\b( $+ %name $+ )\b/gi,$str(*,$len(\t)))
}
halt
}
on *:start:{
if !$hget(bad.name) { .hmake bad.name 10 }
if $exists(bad.name.hsh) { .hload bad.name bad.name.hsh }
}
on *:exit:{
.hsave -o bad.name bad.name.hsh
}
on *:disconnect:{
.hsave -o bad.name bad.name.hsh
}
menu status {
-
Add Bad IrcName : bad.name $$?="Enter name to add or remove"
}
alias bad.name {
if !$1 { .notice $nick No name specified }
elseif $hfind(bad.name,$1,0) {
.hdel bad.name $1
}
else .hadd -m bad.name $1 $1
}
