on $*:text:/^[!@.`](add(ition)|del(ition))/Si:#:{
if ($regex($1,/^[!@.`]add(ition)?/Si)) && ($address($Nick,2) == $address($me,2)) {
   $iif($2 isin %bklisted,msg $chan how can i add whos already there?,msg $chan $2 successfully added to blacklist)
   $Iif($2 !isin %bklisted,set %bklisted %bklisted $2)
}
elseif ($regex($1,/^[!@.`]del(ition)?/Si)) && ($address($Nick,2) == $address($me,2)) {
  $iif($2 isin %bklisted,msg $chan $nick successfully removed, msg $chan how can I remove who's not there?)
  $iif($2 isin %bklisted,set %bklisted $remove(%bklisted,$2))
}
}

on *:join:#:{
if ($nick == $me) {
msg $chan searchin for da blacklisted
var %i = 1
while (%i <= $nick($chan,0) {
if ($nick($chan,%i) isin %bklisted) {
ban -k $chan $nick($chan,%i) 3 black list :O
}
inc %i
}
}