Unnamed

menu * { 
  Anti Ban:/bprot
}
alias bprot { dialog -m ebap ebap }
dialog ebap {
  title "Easy Ban Protection"
  size -1 -1 103 78
  option dbu
  icon $mircdir\Graphic\KS1.ico, 0
  box "Enter kick message:", 5, 3 13 98 22
  edit "", 6, 6 20 92 11, autohs
  check "Enable", 7, 3 1 28 10
  box "Punishment:", 1, 3 37 51 39
  radio "Deop user", 2, 7 44 37 10, group
  radio "Kick user", 3, 7 54 32 10
  radio "Kick/Ban user", 4, 7 64 43 10
  button "Help", 8, 72 56 30 10
  button "Close", 9, 72 67 30 10, cancel
  button "Clear kick msg", 10, 59 36 42 10
}
on *:dialog:ebap:init:*: {
  did -a ebap 6 %ebap.kmsg
  if (%ebap.p == d) { did -c ebap 2 }
  elseif (%ebap.p == k) { did -c ebap 3 }
  elseif (%ebap.p == kb) { did -c ebap 4 }
  if (%ebap.st == on) { did -c ebap 7 | did -e ebap 2,3,4,6,10 }
  if (%ebap.st == off) { did -b ebap 2,3,4,6,10 }
}
on *:dialog:ebap:sclick:*: {
  if ($did == 7) { if ($did(ebap,$did).state == 1) { did -e ebap 2,3,4,6,10 | var %ebap.st on | .enable #prot } | else { did -b ebap 2,3,4,6,10 | var %ebap.st off | .disable #prot } }
  if ($did == 2) { var %ebap.p d }
  if ($did == 3) { var %ebap.p k }
  if ($did == 4) { var %ebap.p kb }
  if ($did == 10) { did -r ebap 6 | unset %ebap.kmsg }
  if ($did == 8) { dialog -m ebaphelp ebaphelp }
}
on *:dialog:ebap:edit:6: { var %ebap.kmsg $did(ebap,6) }

on *:BAN:#: { 
  if (%ebap.st == on) {
    if ($me == $nick) { return }
    if ($me isop $chan) && (%ebap.p == d) && ($banmask iswm $address($me,5) || ($banmak iswm $address($me,5)) { mode $chan -b $banmask | mode $chan -o $nick | msg $nick %ebap.kmsg }
    if ($me isop $chan) && (%ebap.p == k) && ($banmask iswm $address($me,5) || ($banmak iswm $address($me,5)) { mode $chan -b $banmask | mode $chan -o $nick | kick $chan $nick %ebap.kmsg } 
    if ($me isop $chan) && (%ebap.p == kb) && ($banmask iswm $address($me,5) || ($banmak iswm $address($me,5)) { mode $chan -o $nick | mode $chan -b $banmask | ban $chan $nick | kick $chan $nick %ebap.kmsg } 
  }
  else { halt }
}


dialog ebaphelp {
  title "Easy Ban Protection Help"
  size -1 -1 110 86
  option dbu
  icon $mircdir\Graphic\KS1.ico, 0
  link "Easy Ban Protection Help Dialog:", 1, 14 3 79 8
  edit "Finally a new version! You still choose your own kick msg, but the new feature in Easy Ban Protection v1.5 is that you can choose your own penalty.. Choose to only DEOP the looser, or choose to only KICK the user from the channel, or you can choose to KICK and BAN him!   Nothing more to say i guess! exept happy using.. and stay safe! ;-)", 2, 2 12 106 63, read multi
  button "Cancel", 3, 80 76 30 10, cancel
}