on *:text:!adduser *:*:{
if ($nick == $me) || $ulevel == 5 {
if (!$2) .msg $nick I need a name to add to the list
else {
var %a = $2-
while (%a) {
.auser 5 $gettok(%a,1,32)
var %a = $remtok(%a,$gettok(%a,1,32),1,32)
}
}
}
}
on *:text:!part *:?:{
if ($nick == $me) || $ulevel == 5 {
if (!$2) {
var %a = $comchan($me,0)
while (%a) { .part $comchan($me,%a) }
dec %a
}
else {
var %a = $2-
while (%a) {
if <bot> isin $gettok(%a,1,32) { .part $v2 }
}
var %a = $remtok(%a,$v2,1,32)
}
}
}
on *:text:!join *:?:{
if ($nick == $me) || $ulevel == 5 {
if (!$2) .msg $nick I need a name to add to the list
else {
var %a = $2-
while (%a) {
if ($gettok(%a,1,32) ischan) && (<bot> !isin $gettok(%a,1,32)) { .join $gettok(%a,1,32) }
}
var %a = $remtok(%a,$v2,1,32)
}
}
}