a Black list script not all the bugs are editted out so if you see any msg but its just a little thing i put together in my spair time :) please positive comments ;x and if you are a grammer nazi looking for me im on irc.swiftirc.net under the nick Termz just msg me all my wrong doings :]

updated minor bugs, now bans address if nick is in chan and the reason is $3- instead of your bots nick lol :P

updated it so now you dont have to write your own deny :P

updated so if there is no reason it just says that o.o :)

on *:join:#: {
  if ($me isop $chan) {
    if ( %blacklist [ $+ [ $address($nick,3) ] ] >= 0 ) {
      mode $chan +b $address($nick,3)
      /cs kick # $nick $nick has been blacklisted for reason : %reasonb [ $+ [ $nick ] ]
      /kick $nick %reasonb [ $+ [ $nick ] ]
    }
  }
}
on $*:text:/^[!@`.]add/Si:#: {
  if ( %admin [ $+ [ $nick ] ] >= 1 ) {
    if ($2 ison $chan) {
      if ( $3 == $null ) {
        /cs kick # $2 blacklisted for reason : %reasonb [ $+ [ $2 ] ]
        set %blacklist [ $+ [ $address($2,3) ] ] 5
        set %reasonb [ $+ [ $2 ] ] no reason specified
      }
      else {
        set %blacklist [ $+ [ $address($2,3) ] ] 5
        set %reasonb [ $+ [ $2 ] ] $3-
        /cs kick # $2 blacklisted for reason : %reasonb [ $+ [ $2 ] ]
      }
    }
    else { 
      set %blacklist [ $+ [ $address$2,3 ] ] 5
      set %reasonb [ $+ [ $2 ] ] $3-
      msg # $nick has been added for %reasonb [ + [ $2 ] ]
    }
  }
}

on $*:text:/^[!@`.]del/Si:#: {
  if ( %admin [ $+ [ $nick ] ] >= 1 ) {
    unset %blacklist [ $+ [ $address($2,3) ] ]
    unset %reasonb [ $+ [ $2 ] ] 
    mode # -b $2
    msg # $2 has been taken off blacklist 
  }
  else {
    notice $nick $read(deny.txt)
  }
}