Anonymous

menu * { 
  Globan 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) 
  scon -a /amsg 2::: G8lobal banning 2:::8 %ban.name 2::: R8eason 2:::8 %ban.reason 2::: 
  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) 
  scon -a /amsg 4::: G14lobal unbanning 4:::14 %unban.name 4::: R14eason 4:::14 %unban.reason 4::: 
  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) 
  scon -a /amsg Global banning • %chanban.name • reason • %chanban.reason 
  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) 
  scon -a /amsg Global unbanning • %chanunban.name • reason • %chanunban.reason 
  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 
  } 
}