Miscellany

dialog Ok {
  title "Controls"
  size -1 -1 217 97
  option dbu
  button "Ok", 12, 122 81 45 12, ok
  button "Cancel", 13, 168 81 45 12, cancel
  tab "Channel Controls", 15, 1 1 210 76
  button "Op", 1, 5 27 36 12, tab 15
  button "HalfOp", 2, 42 27 36 12, tab 15
  button "Voice", 3, 79 27 35 12, tab 15
  button "DeOp", 6, 5 42 36 12, tab 15
  button "DeHalfOp", 7, 42 42 36 12, tab 15
  button "DeVoice", 8, 79 42 35 12, tab 15
  edit "#Channel", 21, 121 59 80 10, tab 15
  button "Join", 22, 122 27 37 12, tab 15
  button "Part", 23, 122 42 37 12, tab 15
  box "Operator Controls", 24, 2 17 115 55, tab 15
  box "Channel", 25, 119 17 87 55, tab 15
  button "Hop", 26, 161 27 37 12, tab 15
  edit "Nick", 14, 5 59 109 10, tab 15
  tab "Nick Controls", 4
  button "UnBan", 5, 4 25 35 12, tab 4
  button "Kick", 11, 4 38 35 12, tab 4
  button "KickBan", 17, 40 25 35 12, tab 4
  button "Ban", 18, 40 38 35 12, tab 4
  edit "Nick", 27, 5 59 109 10, tab 4
  button "Whois", 28, 77 25 37 12, tab 4
  text "Password:", 29, 121 25 25 8, tab 4
  edit "", 30, 120 34 50 10, tab 4 pass return
  button "Identify", 31, 120 45 50 12, tab 4
  tab "Channel  Modes", 9
  button "Invite Only", 10, 5 22 45 12, tab 9
  button "Invite Off", 16, 55 22 37 12, tab 9
  button "Halt Nick Change", 19, 5 36 45 12, tab 9
  button "Nick Off", 20, 55 36 37 12, tab 9
}
on *:dialog:ok:sclick:*: {
  if ($did == 5) || ($did == 11) || ($did == 17) || ($did == 18) || ($did == 10) || ($did == 16) || ($did == 19) || ($did == 20) {
    if ($did(21)) && ($did(21) != #Channel) && ($did(27)) {
      if ($did == 10) { mode $did(21) +i }
      if ($did == 16) { mode $did(21) -i }
      if ($did == 19) { mode $did(21) +N }
      if ($did == 20) { mode $did(21) -N }
      if ($did == 5) {
        var %s = 0
        while (%s <= 9) {
          mode $did(21) -b $address($did(27),%s)
          inc %s
        }
      }
      if ($did == 11) { kick $did(21) $did(27) $me }
      if ($did == 17) { mode $did(21) +b $address($did(27),2) | kick $did(21) $did(27) Banned }
      if ($did == 18) { mode $did(21) +b $address($did(27),2) }
    }
  }
  if ($did == 28) && ($did(27)) { whois $did(27) }
  if ($did == 31) && ($did(30)) { ns id $did(30) }
  if ($did == 1) || ($did == 2) || ($did == 3) || ($did == 6) || ($did == 7) || ($did == 8) || ($did == 22) || ($did == 23) || ($did == 26) {
    if ($did(21)) && ($did(21) != #Channel) {
      if ($did == 22) { join $did(21) }
      if ($did == 23) { part $did(21) }
      if ($did == 26) { part $did(21) Hopping | .timerhop 1 1 join $did(21) }
      if ($did(14)) && ($did(14) != Nick) {
        if ($did == 1) { mode $did(21) +o $did(14) }
        if ($did == 2) { mode $did(21) +h $did(14) }
        if ($did == 3) { mode $did(21) +v $did(14) }
        if ($did == 6) { mode $did(21) -o $did(14) }
        if ($did == 7) { mode $did(21) -h $did(14) }
        if ($did == 8) { mode $did(21) -v $did(14) }
      }
    }
  }
}