DarkestBar DCX Redo

alias Dbar {
  dialog -ma Dbar Dbar
}

dialog Dbar {
  title "DarkestBar"
  size -1 -1 958 7
}

on *:dialog:Dbar:*:*: {
  if ($devent == init) {
    dcx Mark $dname Dbar_cb
    xdialog -b $dname +ty

    xdialog -c $dname 9 button 797 10 75 20 tabstop
    xdid -t $dname 9 Akill

    xdialog -c $dname 8 button 719 10 75 20 tabstop
    xdid -t $dname 8 K-Line

    xdialog -c $dname 6 button 482 10 75 20 tabstop
    xdid -t $dname 6 Rakill

    xdialog -c $dname 10 button 877 11 75 20 tabstop
    xdid -t $dname 10 Global

    xdialog -c $dname 5 button 325 10 75 20 tabstop
    xdid -t $dname 5 News

    xdialog -c $dname 4 button 245 10 75 20 tabstop
    xdid -t $dname 4 ChanServ

    xdialog -c $dname 7 button 561 10 75 20 tabstop
    xdid -t $dname 7 G-Line

    xdialog -c $dname 12 button 640 10 75 20 tabstop
    xdid -t $dname 12 Kill

    xdialog -c $dname 1 button 5 10 75 20 tabstop
    xdid -t $dname 1 OperServ

    xdialog -c $dname 3 button 165 10 75 20 tabstop
    xdid -t $dname 3 NickServ

    xdialog -c $dname 2 button 85 10 75 20 tabstop
    xdid -t $dname 2 HostServ

    xdialog -c $dname 11 button 403 10 75 20 tabstop
    xdid -t $dname 11 MemoServ

    xdialog -g $dname +b $color(1)
    xdock -m $dialog($dname).hwnd +t
  }
}

Alias Dbar_cb {
  If ($2 == Sclick) {
    If ($3 == 1) { scid $activecid msg OperServ $$?"OperServ: What do you want me to do?" }
    If ($3 == 2) { scid $activecid msg HostServ $$?"HostServ: What do you want me to do?" }
    If ($3 == 3) { scid $activecid msg NickServ $$?"NickServ: What do you want me to do?" }
    If ($3 == 4) { scid $activecid msg ChanServ $$?"ChanServ: What do you want me to do? Ex: Lock Channel" }
    If ($3 == 5) { scid $activecid msg operserv randomnews list }
    If ($3 == 6) { scid $activecid os akill del $$?"What IP/Nickname Do you want to delete?" }
    If ($3 == 7) { scid $activecid gline $$?"What IP/Nickname Do you want to remove?" }
    If ($3 == 8) { scid $activecid kline $$?"What IP/Nickname Do you want to add?" }
    If ($3 == 9) { scid $activecid os akill list }
    If ($3 == 10) { scid $activecid msg OperServ global $$?"Message To Send" }
    If ($3 == 11) { scid $activecid msg MemoServ $$?"MemoServ: What do you want me to do?" }
    If ($3 == 12) { scid $activecid kill $$?"What nickname do you want to kill?" $$?"Reason Ex: No Flooding!" }
  }
}