menu * {
  Blacklist:dialog -md black black
} 
dialog black {
  title "Blacklist - by Boszy"
  size -1 -1 180 84
  option dbu
  text "Name:", 1, 4 4 90 8
  edit "", 2, 4 16 170 10
  radio "Use an AmSg?", 3, 4 54 50 10
  text "Reason:", 4, 4 30 90 8
  edit "", 5, 4 41 170 10
  button "Blacklist", 6, 15 68 37 12
  button "Unblacklist", 7, 65 68 37 12
}
on *:dialog:black:sclick:6:{ 
  if (!$did(3).state) {
    writeini bl.ini blacklist $address($did(2),2) Blacklisted
    var %a 1
    while ($chan(%a)) {
      if ($me isop $chan(%a)) || ($me ishop $chan(%a)) {
        mode $chan(%a) +b $address($did(2),2)
    kick $chan(%a) $did(2) You were found on my blacklist. for more information contact $me $+ . } | inc %a }
  }
}
else {
  amsg [:Blacklist:] $address($did(2),2) [Aka $did(2) $+ ] added to my blacklist, Reason: $did(5) $+ .
  writeini bl.ini blacklist $address($did(2),2) Blacklisted
  var %a 1
  while ($chan(%a)) {
    if ($me isop $chan(%a)) || ($me ishop $chan(%a)) {
      mode $chan(%a) +b $address($did(2),2)
  kick $chan(%a) $did(2) You were found on my blacklist. for more information contact $me $+ . } | inc %a }
}
on *:dialog:black:sclick:7:{
  if (!$did(3).state) {
    remini bl.ini blacklist $address($did(2),2) Blacklisted
    var %a 1
    while ($chan(%a)) {
      if ($me isop $chan(%a)) || ($me ishop $chan(%a)) {
        mode $chan(%a) -b $address($did(2),2)
      }
      else {
        amsg [:Blacklist:] $address($did(2),2) [Aka $did(2) $+ ] deleted from my blacklist.
        remini bl.ini blacklist $address($did(2),2) Blacklisted
        var %a 1
        while ($chan(%a)) {
          if ($me isop $chan(%a)) || ($me ishop $chan(%a)) {
            mode $chan(%a) -b $address($did(2),2)
          }
        }
      }
    }
  }
}
ON *:JOIN:#:{
  if ($readini(bl.ini,blacklist,$address($nick,2)) == blacklist) {
    mode $chan +b $address($nick,2)
    kick $chan $nick You were found on my blacklist. for more information contact $me $+ .
  }
}