Global Ban and kick

menu * { 
  Global ban:/dialog -m ban ban 
} 
dialog ban { 
  size -1 -1 370 200 
  text "Global nick un/ban:", 2, 10 5 250 150 
  edit "", 3, 10 20 250 25 
  text "Reason:", 4, 10 50 250 150 
  edit "", 5, 10 65 250 25 
  button "ban", 6, 270 20 40 25 
  button "ban", 7, 270 115 40 25 
  button "unban", 8, 320 20 40 25 
  button "unban", 9, 320 115 40 25 
  text "Global channel un/ban:", 10, 10 100 250 150 
  edit "#", 11, 10 115 250 25 
  text "Reason:", 12, 10 150 250 150 
  edit "", 13, 10 165 250 25 
} 
on *:dialog:ban:sclick:6: { 
  set %ban.name $did($dname,3) 
  set %ban.reason $did($dname,5) 
  scon -a /gban $did($dname,3) 
  unset %ban.* 
} 
on *:dialog:ban:sclick:8: { 
  set %unban.name $did($dname,3) 
  set %unban.reason $did($dname,5) 
  scon -a /ungban $did($dname,3) 
  unset %unban.* 
} 
on *:dialog:ban:sclick:7: { 
  set %chanban.name $did($dname,11) 
  set %chanban.reason $did($dname,13) 
  scon -a /chanban $did($dname,11)  
  unset %chanban.* 
} 
on *:dialog:ban:sclick:9: { 
  set %chanunban.name $did($dname,11) 
  set %chanunban.reason $did($dname,13) 
  scon -a /chanunban $did($dname,11) 
  unset %chanunban.* 
} 
alias gban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) +b $address($1,2)     
    kick $chan(%c) $did($dname,3)   
    dec %c 
  } 
} 
alias ungban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    cs unban $chan(%c) $address($1,2) 
    dec %c 
  } 
} 
alias chanban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) +b ~c: $+ $1- 
    dec %c 
  } 
} 
alias chanunban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) -b ~c: $+ $1- 
    dec %c 
  } 
}