alias CurrentChannels {
  var %x = 1
  while ($chan(%x)) {
    set %channels %channels $v1
    inc %x
  }
  var %tempds = %channels
  unset %channels
  return %tempds
}
alias CurrentChanPpl {
  var %x = 2
  set %channels $chan(1) $+ : $+ $nick($chan(1),0)
  while ($chan(%x)) {
    set %channels %channels $v1 $+ : $+ $nick($v1,0)
    inc %x
  }
  var %tempds = %channels
  unset %channels
  return %tempds

}
alias AllUsers {
  var %x = 1
  var %y = 1
  unset %allusers
  set %allusers $chr(32)
  while ($chan(%x)) {
    while ($nick($chan(%x),%y)) {
      set %Allusernick $nick($chan(%x),%y)
      if (%allusernick isin %allusers) {

      }
      else {
        set %allusers %allusers %allusernick
      }
      inc %y
    }
    inc %x
  }
  return %allusers
}


alias UsersIn {
  var %x = 1
  set %usersin $chr(32)
  while ($nick($1,%x)) {
    set %Usersin %Usersin $v1
    inc %x
  }
  return %Usersin
}

dialog CPanel {
  title "Control Panel For Dark_Return"
  size -1 -1 197 138
  option dbu
  tab "Blacklistings", 1, 0 0 198 138
  tab "Status...", 6
  tab "Channels", 7
  text "Blacklisted Channels:", 2, 4 16 52 9, tab 1
  edit "Loading...", 3, 5 27 189 44, tab 1 multi vsbar
  text "Bad Nicks:", 4, 4 76 50 8, tab 1
  edit "Loading...", 5, 6 86 187 47, tab 1 multi vsbar
  text "Lines of text: Loading...", 8, 3 17 75 8, tab 6
  edit "Loading...", 9, 4 39 192 48, tab 6 multi vsbar
  text "List of users in all channels", 10, 3 28 69 9, tab 6
  text "List of users in", 11, 5 89 50 8, tab 6
  edit "#zb", 12, 62 88 48 10, tab 6
  edit "Click Load", 13, 5 100 190 36, tab 6 multi vsbar
  button "Load", 14, 112 87 33 13, tab 6
  text "List of current channels", 15, 2 17 59 9, tab 7
  edit "Loading....", 16, 3 27 191 22, tab 7 multi vsbar
  text "List of set channels", 17, 2 50 50 8, tab 7
  edit "Loading...", 18, 3 60 191 22, tab 7 multi vsbar
  text "List of channels and amount of ppl", 19, 2 84 87 8, tab 7
  edit "Loading...", 20, 2 93 191 24, tab 7 multi vsbar
  edit "#none", 21, 67 117 50 10, tab 7
  button "Part", 22, 67 128 22 9, tab 7
  button "Save", 24, 55 49 32 10, tab 7
  edit "0000", 25, 122 49 22 10, tab 7
  text "# of Chans", 26, 91 50 29 8, tab 7
  button "Save", 27, 150 49 32 9, tab 7
  button "Join", 23, 89 128 27 8, tab 7
}





on *:DIALOG:CPanel:*:*: {
  if ($devent == init) {
    .updatecpanel
  }

  if ($devent == sclick) {
    if ($did == 14) {
      .did -ra CPanel 13 $Usersin($did(12))
    }
    if ($did == 22) {
      .hinc -m CommandCounter zpart
      /part $did(21) I have been asked to leave ;( come to #zb to talk XD
      /set %chans $remove(%chans,$chan $+ $chr(32))
      /dec %numofchans
    }
    if ($did == 23) {
      /join $did(21)
    }
    if ($did == 24) {
      /set %chans $did(18)
    }
    if ($did == 27) {
      /set %numofchans $did(25)
    }
    .updateCpanel
  }
  if ($devent == close) {
    /timer1 off
  }
}


alias UpdateCPanel {
  .did -ra CPanel 3 %blacklist
  .did -ra CPanel 5 %baduser
  .did -ra CPanel 8 Lines of text: $hget(CommandCounter,LinesOfText)
  .did -ra CPanel 9 $allusers
  .did -ra CPanel 16 $CurrentChannels
  .did -ra CPanel 20 $CurrentChanPpl
  .did -ra CPanel 18 %chans

}