All commands have been set up so that they will only work if you or another user with level 5 can use them. You'll have to substitute your bots nick where I have <bot> in the script.


Code:
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 &lt;bot&gt; 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) &amp;&amp; (&lt;bot&gt; !isin $gettok(%a,1,32)) { .join $gettok(%a,1,32) }
}
var %a = $remtok(%a,$v2,1,32)
}
}
}

Last edited by RusselB; 23/03/05 12:20 AM.