on *:TEXT:`blchan*:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    writeini bl.ini chanblacklist $2 Reason: $3- 
    msg $chan 4The channel $2 has been succesfully added to the blacklist. On request of join to $2 $+ , I will not accept. 
    if ($me ison $2) { 
      part $2 4 $+ $chan found on blacklist. Reason: $3- $+ . For more information please message  $+ $me $+ . 
    } 
  } 
} 

on *:TEXT:`blnick*:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    writeini bl.ini nickblacklist $address($2,2) $2 
    msg $chan 4The user $2 $+ , using the address [  $address($2,2)  ] has succesfully been added to the blacklist. Any channel I have operator or have operator status in $+ , $2 will be banned in. 
    var %a 1 | while ($chan(%a)) { if ($me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -k $chan(%a) $2 4User found on my blacklist. For more information about this ban please message  $+ $me $+ . } | inc %a } 
  } 
  else { 
    notice $nick 10Sorry, only channel operators may add users to the blacklist. 
  } 
} 

on *:TEXT:`dbchan*:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    remini bl.ini chanblacklist $2 
    msg $chan 10The channel $2 has been succesfully removed from the blacklist. 
  } 
  else { 
    notice $nick 10Sorry, only channel operators may delete channels from the blacklist. 
  } 
} 

on *:TEXT:`dbnick*:#:{ 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) { 
    remini bl.ini nickblacklist $address($2,2) $2 
    msg $chan 10The user $2 $+ , using the address [  $address($2,2)  ] has succesfully 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 4User found on blacklist. For more information please message  $+ $me $+ . 
  } 
} 

ON *:INVITE:#: { 
  if ($readini(bl.ini,chanblacklist,#)) { 
    notice $nick 4 $+ $chan found on blacklist, I will not join $chan $+ . For more information please message  $+ $me $+ . 
  } 
  else { 
    join $chan 
  } 
} 

on *:TEXT:`cblist*:#:{ 
  //var %a = 1 | while ($ini(bl.ini,chanblacklist,%a)) { notice $nick $ini(bl.ini,chanblacklist,%a) | inc %a } 
} 

on *:TEXT:`nblist*:#:{ 
  //var %a = 1 | while ($ini(bl.ini,nickblacklist,%a)) { notice $nick $ini(bl.ini,nickblacklist,%a) | inc %a } 
}