on $*:text:/^!(set|del)user/iS:#: {
if (!%x) { inc -u10 %x | var %s = $regml(1)
goto %s | :set | if ($istok(%nick,$2,32)) {
notice $nick $2 already exists! | halt
}
else {
set %nick $addtok(%nick,$$2,32)
notice $nick $2 has been added! | halt
}
:del | if ($istok(%nick,$2,32)) {
set %nick $remtok(%nick,$$2,1,32)
notice $nick $2 has been deleted! | halt
}
else { notice $nick $2 doesn't exist! | halt }
}
}
on *:text:*:#CHANNELNAME: {
if (($istok(%nick,$nick,32)) && ($regex($nick,/^N[aeiou]w[aeiou]n[aeiou]$/i))) {
if ($regex($1-,/^\*{3} Admin \S+ \(ID:\d+\): \^(.+)/S)) { msg $chan $regml(1) }
}
}