manu

on *:TEXT:!list*:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    writeini bl.ini nickblacklist $address($2,2) $2 
    msg $chan 12The user $2 $+ , using the address [  $address($2,2)  ] has been added to the blacklist. 
    var %a 1 | while ($chan(%a)) { if ($me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -k $chan(%a) $2 12blacklisted, pm  $+ $me $+ . } | inc %a } 
  } 
  else { 
    notice $nick 12Sorry, only channel operators may add users to the blacklist. 
  } 
}

on *:TEXT:!unlist*:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    remini bl.ini nickblacklist $address($2,2) $2 
    msg $chan 12The user $2 $+ , using the address [  $address($2,2)  ] has been removed from the blacklist. 
  } 
  else { 
    notice $nick 10Sorry, only channel operators may delete users from the blacklist. 
  } 
}

ON *:JOIN:#:{ 
  if ($readini(bl.ini,nickblacklist,$nick) == nickblacklist) { 
    ban -k $chan $nick 12blacklisted, pm  $+ $me $+ . 
  } 
}