Load into your script
type /modlister

and you are on your way

on *:dialog:modlister:init:0: { 
  services info %temp.chan

}

alias modlister { 
  set %temp.chan #
if ($dialog(modlister)) { dialog -ve modlister } | else { dialog -mdo modlister modlister } }
dialog modlister {
  title "Room Controls"
  size -1 -1 157 120
  option dbu
  list 1, 3 3 74 93, size vsbar
  text "Voiced", 12, 79 4 27 7, disable
  text "Moderator", 2, 79 40 34 7, disable
  text "Owner", 3, 79 74 26 7, disable
  edit "", 5, 79 49 75 10
  edit "", 6, 79 83 75 10
  edit "", 13, 79 13 75 10
  button "Close", 7, 126 110 27 7, ok
  button "Add", 8, 81 60 25 8
  button "Delete", 9, 125 60 27 8, default
  button "Add", 10, 81 94 25 8
  button "Delete", 11, 125 94 27 8, default
  button "Add", 14, 81 24 25 8
  button "Delete", 15, 125 24 27 8, default
}

on *:TEXT:*:?:{ 
  if ($nick == SERVICES) && (SOP == $1) && (pass !isin $1-) && ($dialog(modlister)) { did -a modlister 1 $ [ $+ [ $calc(%uNF - 2) ] ] $+ $2 ( $+ Owner $+ ) | halt }
  if ($nick == SERVICES) && (AOP == $1) && (pass !isin $1-) && ($dialog(modlister)) { did -a modlister 1 $ [ $+ [ $calc(%uNF - 2) ] ] $+ $2 ( $+ Moderator $+ ) | halt }
  if ($nick == SERVICES) && (VOP == $1) && ($dialog(modlister)) { did -a modlister 1 $ [ $+ [ $calc(%uNF - 2) ] ] $+ $2 ( $+ Voiced $+ ) | halt }
  if ($nick == SERVICES) && (MEM == $1) && ($dialog(modlister)) { did -a modlister 1 $ [ $+ [ $calc(%uNF - 2) ] ] $+ $2 ( $+ Member $+ ) | halt }
}

on *:dialog:modlister:sclick:14: { 
  if ($server) && ($did(13)) { services VOP %temp.chan ADD $did(modlister,13).text }
  if ($server) && ($did(13)) { did -a modlister 1 $did(modlister,13).text (Voiced) }
  did -r modlister 13 $did(modlister,13).text
}

on *:dialog:modlister:sclick:15: { 
  if ($server) && ($did(1).sel) { services VOP %temp.chan DEL $did(modlister,1,$did(modlister,1).sel).text }
  did -d modlister 1 $did(modlister,1).sel
}

on *:dialog:modlister:sclick:8: { 
  if ($server) && ($did(5)) { services AOP %temp.chan ADD $did(modlister,5).text }
  if ($server) && ($did(5)) { did -a modlister 1 $did(modlister,5).text (Moderator) }
  if ($server) && ($did(5)) { did -r modlister 5 $did(modlister,5).text }
}

on *:dialog:modlister:sclick:9: { 
  if ($server) && ($did(1).sel) { services AOP %temp.chan DEL $did(modlister,1,$did(modlister,1).sel).text }
  if ($server) && ($did(1).sel) { did -d modlister 1 $did(modlister,1).sel }
}

on *:dialog:modlister:sclick:10: { 
  if ($server) && ($did(6)) { services SOP %temp.chan ADD $did(modlister,6).text }
  if ($server) && ($did(6)) { did -a modlister 1 $did(modlister,6).text (Owner) }
  if ($server) && ($did(6)) { did -r modlister 6 $did(modlister,6).text }
}

on *:dialog:modlister:sclick:11: { 
  if ($server) && ($did(1).sel) { services SOP %temp.chan DEL $did(modlister,1,$did(modlister,1).sel).text }
  if ($server) && ($did(1).sel) { did -d modlister 1 $did(modlister,1).sel }
}