on *:Load:{
  set %bl.one OFF
  set %bl.all OFF
  set %ubl.one OFF
  set %ubl.all OFF
  unset %ban.lock.chan
}
on *:ban:%ban.lock.chan: {
  if (%ban.lock.one == On) {
    if ($nick == me) { halt }
    mode %ban.lock.chan -b $banmask
    msg %ban.lock.chan 4,1Ban Lock!
  }
  else if (%ban.lock.one == Off) { halt }
}
on *:ban:#: {
  if (%ban.lock.all == On) {
    if ($nick == me) { halt }
    mode # -b $banmask
    msg # 4,1Ban Lock!
  }
  else if (%ban.lock.all == Off) { halt }
}
on *:unban:%unban.lock.chan: {
  if (%unban.lock.one == On) {
    if ($nick == me) { halt }
    mode %unban.lock.chan +b $banmask
    msg %ban.lock.chan 4,1UnBan Lock!
  }
  else if (%unban.lock.one == Off) { halt }
}
on *:unban:#: {
  if (%unban.lock.all == On) {
    if ($nick == me) { halt }
    mode # +b $banmask
    msg # 4,1UnBan Lock!
  }
  else if (%unban.lock.all == Off) { halt }
}

menu menubar {
  Ban Lock
  .One Channel ( %bl.one )
  ..ON:/set %ban.lock.one On | set %ban.lock.chan #$$?="Enter Channelname:" | /set %bl.one ON | msg $Chan 3Ban Lock for $chan is ON
  ..-
  ..OFF:/set %ban.lock.one Off | unset %ban.lock.chan | /set %bl.one OFF | msg $Chan 3Ban Lock OFF
  .-
  .All Channels ( %bl.all )
  ..ON:/set %ban.lock.all On | /set %bl.all ON | amsg 3Ban Lock for $chan is ON
  ..-
  ..OFF:/set %ban.lock.all Off | /set %bl.all OFF | amsg 3Ban Lock OFF
  Unban Lock
  .One Channel ( %ubl.one )
  ..ON:/set %unban.lock.one On | set %unban.lock.chan #$$?="Enter Channelname" | /set %ubl.one ON | msg $Chan 3Unban Lock for $chan is ON
  ..-
  ..OFF:/set %unban.lock.one Off | unset %unban.lock.chan | /set %ubl.one OFF | msg $Chan 3Unban Lock OFF 
  .-
  .All Channels ( %ubl.all )
  ..ON:/set %unban.lock.all On | /set %ubl.all ON | amsg 3Unban Lock for $chan is ON
  ..-
  ..OFF:/set %unban.lock.all Off | /set %ubl.all OFF | amsg 3Unban Lock OFF
}

menu Channel {
  Ban Lock ( %bl.one )
  .ON:/set %ban.lock.one On | set %ban.lock.chan # | /set %bl.one ON | msg 3Ban Lock for $chan is ON
  .-
  .OFF:/set %ban.lock.one Off | unset %ban.lock.chan # | /set %bl.one OFF | msg $Chan 3Ban Lock OFF
  -
  Unban Lock ( %ubl.one )
  .ON:/set %unban.lock.one On | set %unban.lock.chan #$$?="Enter Channelname" | /set %ubl.one ON | msg # 3Unban Lock for $chan is ON
  .-
  .OFF:/set %unban.lock.one Off | unset %unban.lock.chan | /set %ubl.one OFF | msg $Chan 3Unban Lock OFF
}