dialog QCommands {
  title "Q Commands By syconn"
  size -1 -1 176 236
  option dbu
  button "Set Channel", 1, 12 15 37 12
  edit %Qchan, 2, 60 16 107 10, center
  box "Set Channel", 3, 3 3 170 33
  text "Chanlev", 4, 12 52 36 8, center
  edit "Type Nick", 5, 60 52 107 10, center
  button "+Gv", 6, 10 68 37 12
  button "-Gv", 7, 10 84 37 12
  button "+Ao", 8, 50 68 37 12
  button "-Ao", 9, 50 84 37 12
  button "+Amo", 10, 89 68 37 12
  button "-Amo", 11, 90 84 37 12
  button "+Amno", 12, 130 68 37 12
  button "-Amno", 13, 130 84 37 12
  box "Chanlev", 14, 3 41 171 64
  button "QBan", 16, 10 120 37 12
  button "Q UnBan", 17, 50 120 37 12
  button "UnBan Me", 18, 90 120 37 12
  button "UnBan All", 19, 130 120 37 12
  button "Welcome", 20, 10 136 37 12
  button "Topic", 21, 50 136 37 12
  button "Recover", 22, 90 136 37 12
  box "Q Commands", 15, 3 110 171 107
  button "Ban Clear", 23, 130 136 37 12
  button "Set", 24, 10 155 37 12
  edit "Auto Limit", 25, 53 155 116 10, center
  button "Set", 26, 10 171 37 12
  edit "Chan Modes", 27, 53 171 116 10, center
  button "Set", 28, 10 187 37 12
  edit "Chan Flags", 29, 53 187 116 10, center
  edit "Status Line", 30, 10 203 159 10, read return center
  button "OK", 31, 63 219 52 12, ok
}
on *:Dialog:QCommands:*:*: {
  if ($devent == sclick) {
    if ($did == 1) {
      did -ra $dname 30 Chan Set To $did(2)
      set %Qchan $did(2)
    }
    elseif ($did == 6) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) +gv
      did -ra $dname 30 Done! $did(5) Now Have +Gv On %Qchan
    }
    elseif ($did == 7) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) -gv
      did -ra $dname 30 Done! $did(5) Now Has -Gv On %Qchan
    }
    elseif ($did == 8) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) +ao
      did -ra $dname 30 Done! $did(5) Now Have +Ao On %Qchan
    }
    elseif ($did == 9) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) -ao
      did -ra $dname 30 Done! Now Has -Ao On %Qchan
    }
    elseif ($did == 10) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) +amo
      did -ra $dname 30 Done! Now Have +Amo On %Qchan
    }
    elseif ($did == 11) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) -amo
      did -ra $dname 30 Done! Now Has -Amo On %Qchan
    }
    elseif ($did == 12) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) +amo
      msg Q@CServe.quakenet.org giveowner %Qchan $did(5)
      did -ra $dname 30 Done! Now Have +Amno On %Qchan
    }
    elseif ($did == 13) {
      msg Q@CServe.quakenet.org chanlev %Qchan $did(5) -amno
      did -ra $dname 30 Done! Now Has -Amno On %Qchan
    }
    elseif ($did == 16) {
      if ($did(5) == Type Nick) {
        var %x $input(Type Host/Nick,e,QBan)
        if (%x != $none) {
          var %y $input(Type Reason Or Leave Empty,e,Ban Reason)
          msg Q permban %Qchan %x %y
          did -ra $dname 30 Done! Now %x Has QBAN On %Qchan
        }
      }
      else {
        var %y $input(Type Reason Or Leave Empty,e,Ban Reason)
        msg Q permban %Qchan $did(5) %y
        did -ra $dname 30 Done! Now $did(5) Has QBAN On %Qchan
      }
    }
    elseif ($did == 17) {
      if ($did(5) == Type Nick) {
        var %x $input(Type Host/Nick,e,QBan)
        if (%x != $none) {
          msg Q unban %Qchan %x %y
          did -ra $dname 30 Done! Now %x Has Un Banned On %Qchan
        }
      }
      else {
        msg Q unban %Qchan $did(5)
        did -ra $dname 30 Done! Now $did(5) Has Un Banned On %Qchan
      }
    }
    elseif ($did == 18) {
      msg Q unbanme %Qchan
      did -ra $dname 30 Done! Now You Have UnBanned YourSelf From %Qchan
    }
    elseif ($did == 19) {
      msg Q banclear %Qchan
      did -ra $dname 30 Done! Now You Q UnBanned All From %Qchan
    }
    elseif ($did == 20) {
      var %x $input(Type Welcome,e,Channel Welcome)
      if (%x != $none) {
        msg Q chanflags %Qchan +w
        msg Q welcome %Qchan %x
        did -ra $dname 30 Done! Now You Have Set Welcome On %Qchan
      }
    }
    elseif ($did == 21) {
      var %x $input(Type Topic,e,Channel Topic)
      if (%x != $none) {
        msg Q settopic %Qchan %x
        did -ra $dname 30 Done! Now You Have Set Topic On %Qchan
      }
    }
    elseif ($did == 22) {
      msg Q recover %Qchan
      msg Q chanmode %Qchan none
      did -ra $dname 30 Done! Now You Have Recoverd %Qchan
    }
    elseif ($did = 23) {
      mode %Qchan -b *
      did -ra $dname 30 Done! Now You UnBanned All From %Qchan
    }
    elseif ($did == 24) {
      msg q chanflags %Qchan +c
      msg q autolimit %Qchan $did(25)
      did -ra $dname 30 Done! Now You Set Auto Limit $did(25) To Chan %Qchan
    }
    elseif ($did == 26) {
      msg q chanmode %Qchan $did(27)
      did -ra $dname 30 Done! Now You Set Mode $did(27) To Chan %Qchan
    }
    elseif ($did == 28) {
      msg q chanflags %Qchan $did(29)
      did -ra $dname 30 Done! Now You Set Flag $did(29) To Chan %Qchan
    }
  }
}
menu * {
  Q Commands { dialog -m QCommands QCommands }
}