nice easy Dialog that took me a while to made, Atm there is only ADD details and Shown Online Users with their status

U Must be halfop And Over in the channel to use this.

;made by dronez4, dont remove the copyright
menu * {
  Access Menu
  .CSMenu(Active-channel):/access
}

alias access { dialog -m AccessList AccessList }

DIALOG AccessList {
  title "Add Access List"
  size -1 -1 600 400

  list 1, 10 50 240 250, vsbar
  list 2, 270 50 170 250, vsbar
  text "Access Levels of XOP-ON", 14, 450 260 200 100
  text "<^Online^> <*Offline*>", 100, 450 290 200 100
  text "AccessList Dialog - droneV.1.0", 101, 440 384 200 100
  text "NickName:", 13, 15 30 50 16
  text "", 50, 15 297 90 50
  text "Status:", 17, 270 30 50 16
  text "© Copyright By dronez4 ©", 12, 10 365 200 100
  text "Made to make Access Levels Easier :)" 23, 10 380 200 100
  button "Add Admin" 3, 450 100 100 25
  button "Add Operator" 4, 450 130 100 25
  button "Add Half Operator" 5, 450 180 100 25
  button "Add Voice" 6, 450 210 100 25
  button "Refresh List", 8, 10 325 150 25
  button "Exit", 9, 175 325 150 25, ok
  text "", 10, 10 10 480 15, center
}
;10 325 150 25 remove
;175 325 150 25 refresh
;exit 340 325 200 28
ON *:NOTICE:*:*: { 
  if ($nick == ChanServ) {
    set %chan $active
    if ($3 ison $active) {
      var %active ^online^
    }
    else { var %notactive *offline* }
  }
  if ($2 == aop) || (5 isin $2) || (6 == $2) || (7 == $2) {
    var %lvl Operator
    did -a AccessList 1 $3 ( $+ %active $+ %notactive $+ )   
    did -a AccessList 2 $3 $+ ( $+ %lvl $+ )
  }
  elseif ($2 == sop) || (10 isin $2) {
    var %lvl Admin
    did -a AccessList 1 $3 ( $+ %active $+ %notactive $+ )  
    did -a AccessList 2 $3 $+ ( $+ %lvl $+ )
  }
  elseif ($2 == hop) || (4 == $2) {
    var %lvl Half Operator
    did -a AccessList 1 $3 ( $+ %active $+ %notactive $+ )  
    did -a AccessList 2 $3 $+ ( $+ %lvl $+ )
  }
  elseif ($2 == vop) || (3 == $2) {
    var %lvl Voice
    did -a AccessList 1 $3 ( $+ %active $+ %notactive $+ )  
    did -a AccessList 2 $3 $+ ( $+ %lvl $+ )
  }
  elseif ($2 == qop) || (999 isin $2) {
    var %lvl Owner
    did -a AccessList 1 $3 ( $+ %active $+ %notactive $+ ) 
    did -a AccessList 2 $3 $+ ( $+ %lvl $+ )
  }
}

on *:dialog:AccessList:init:0: {
  did -a AccessList 9 Channel Access List For $chan($active)
  did -a AccessList 50 Channel: $chan($active)
  CSAccessList
}

ON *:DIALOG:AccessList:SCLICK:3: { CHANSERV sop $chan($active) ADD $$?="Enter A Chat Nick" | CHANSERV ACCESS $chan($active) ADD $$?="Enter A Chat Nick" 7 } / { RefreshList }
ON *:DIALOG:AccessList:SCLICK:4: { CHANSERV aop $chan($active) ADD $$?="Enter A Chat Nick" | CHANSERV ACCESS $chan($active) ADD $$?="Enter A Chat Nick" 5 } / { RefreshList }
ON *:DIALOG:AccessList:SCLICK:5: { CHANSERV hop $chan($active) ADD $$?="Enter A Chat Nick" | CHANSERV ACCESS $chan($active) ADD $$?="Enter A Chat Nick" 4 } / { RefreshList }
ON *:DIALOG:AccessList:SCLICK:6: { CHANSERV vop $chan($active) ADD $$?="Enter A Chat Nick" | CHANSERV ACCESS $chan($active) ADD $$?="Enter A Chat Nick" 1 } / { RefreshList }
ON *:DIALOG:AccessList:SCLICK:8: { RefreshList }

alias RefreshList {
  did -r AccessList 1
  did -r AccessList 2
  CSAccessList
}

alias CSAccessList { CHANSERV ACCESS $chan($active) LIST }