userlist dialog box

on *:LOAD:dialog -m setup setup

dialog userlist {
  title "Userlist Viewing"
  size -1 -1 443 148
  option dbu
  list 1, 10 12 95 95, sort size hsbar vsbar
  list 2, 120 12 95 95, sort size hsbar vsbar
  list 3, 229 12 95 95, sort size hsbar vsbar
  box Level 1 ----- %Adminset  , 4, 5 3 105 108
  box Level 2 ----- %Goldset  , 5, 115 3 105 108
  box Level 3 ----- %brownset  , 6, 224 3 105 108
  button "Remove", 7, 11 112 45 10
  button "Remove", 8, 121 112 45 10
  button "Remove", 9, 232 112 45 10
  button "Close", 10, 173 138 100 8, ok
  edit "", 11, 156 126 134 10, read autohs center
  button "Clear", 14, 58 112 45 10
  button "Clear", 15, 168 112 45 10
  button "Clear", 16, 279 112 45 10
  box Level 4 ----- %Kickset  , 17, 333 3 105 108
  list 18, 337 12 95 95, sort size hsbar vsbar
  button "Remove", 19, 338 112 45 10
  button "Clear", 20, 386 112 45 10
  button "Set-up", 21, 316 133 50 10
  button "Help", 22, 367 133 50 10
  button "Manual Adding", 23, 28 131 50 12
  button "Manual Removing", 24, 80 131 50 12
}
on *:dialog:userlist:init:0:{
  getlist
  getlist1
  getlist2
  getlist3
  did -z userlist 1
  did -z userlist 2
  did -z userlist 3
  did -z userlist 18
}
on *:dialog:userlist:sclick:1:{
  did -ra userlist 11 $msn.decode($did($dname,1).seltext)
}
on *:dialog:userlist:sclick:2:{
  did -ra userlist 11 $msn.decode($did($dname,2).seltext)
}
on *:dialog:userlist:sclick:3:{
  did -ra userlist 11 $msn.decode($did($dname,3).seltext)
}
on *:dialog:userlist:sclick:18:{
  did -ra userlist 11 $msn.decode($did($dname,18).seltext)
}

on *:dialog:userlist:sclick:7:{ /ruser $did($dname,1).seltext | getlist3 | did -r userlist 11
}
on *:dialog:userlist:sclick:8:{ /ruser $did($dname,2).seltext | getlist | did -r userlist 11
}
on *:dialog:userlist:sclick:9:{ /ruser $did($dname,3).seltext | getlist1 | did -r userlist 11
}
on *:dialog:userlist:sclick:19:{ /ruser $did($dname,18).seltext | getlist2 | did -r userlist 11
}

on *:dialog:userlist:sclick:14:{ /rlevel admin | getlist3 | did -r userlist 11
}
on *:dialog:userlist:sclick:15:{ /rlevel gold | getlist | did -r userlist 11
}
on *:dialog:userlist:sclick:16:{ /rlevel brown | getlist1 | did -r userlist 11
}
on *:dialog:userlist:sclick:20:{ /rlevel kick | getlist2 | did -r userlist 11
}
on *:dialog:userlist:sclick:21:{ dialog -m setup setup }
on *:dialog:userlist:sclick:22:{ dialog -m help help }
on *:dialog:userlist:sclick:24:{ dialog -m remove remove }
on *:dialog:userlist:sclick:23:{ dialog -m adding adding }

alias -l getlist {
  did -r userlist 2
  var %a = $ulist(*,%goldset,0), %b = 0
  while (%b < %a) {
    inc %b
    did -a userlist 2 $ulist(*,%goldset,%b)
  }
}
alias -l getlist1 {
  did -r userlist 3
  var %a = $ulist(*,%brownset,0), %b = 0
  while (%b < %a) {
    inc %b
    did -a userlist 3 $ulist(*,%brownset,%b)
  }
}
alias -l getlist2 {
  did -r userlist 18
  var %a = $ulist(*,%kickset,0), %b = 0
  while (%b < %a) {
    inc %b
    did -a userlist 18 $ulist(*,%kickset,%b)
  }
}
alias -l getlist3 {
  did -r userlist 1
  var %a = $ulist(*,%adminset,0), %b = 0
  while (%b < %a) {
    inc %b
    did -a userlist 1 $ulist(*,%adminset,%b)
  }
}


;;;;;setup dialog;;;;;

dialog setup {
  title "Set-Up"
  size -1 -1 145 83
  option dbu
  box "Box 1", 1, 8 5 61 26
  edit "", 2, 12 15 50 10
  box "Box 2", 3, 8 33 61 26
  edit "", 4, 13 43 50 10
  box "Box 3", 5, 76 5 61 26
  edit "", 6, 81 15 50 10
  box "Box 4", 7, 76 33 61 26
  edit "", 8, 81 43 50 10
  button "Help", 9, 57 62 37 10
  button "Close", 10, 57 72 37 10, ok
}

on *:dialog:setup:init:0:{
  did -ra setup 2 %adminset
  did -ra setup 4 %goldset
  did -ra setup 6 %brownset
  did -ra setup 8 %kickset
}
on *:dialog:setup:edit:2:{
  /set %adminset $did($dname,2).text
}
on *:dialog:setup:edit:4:{
  /set %goldset $did($dname,4).text
}
on *:dialog:setup:edit:6:{
  /set %brownset $did($dname,6).text
}
on *:dialog:setup:edit:8:{
  /set %kickset $did($dname,8).text
}
on *:dialog:setup:sclick:9:{ dialog -m help help }

;;;;;help dialog;;;;;

dialog help {
  title "Help"
  size -1 -1 145 84
  option dbu
  button "Close", 2, 56 73 37 10, ok
  list 3, 8 4 132 67, size extsel hsbar vsbar
}

on *:dialog:help:init:0:{
  did -a help 3 You must first set up the dialog to work with your Userlist,
  did -a help 3 for example i use the levels (admin,gold,brown,kick)
  did -a help 3 If you dont set them to the way you add them this dialog wont work
  did -a help 3 All you have to do is type the level you use into the set-up dialog
  did -a help 3 and everything should work, if not to make sure you are using the right levels
  did -a help 3 In mIRC click tools, then remotes to open the editor, once open click the
  did -a help 3 users tab and look at how your userlist is added too, it will be the first word
  did -a help 3 on your left. should look like this gold:«¤WîçkêÐMððn§hâÐðw¤»
  did -a help 3 gold is the user level in that example.
  did -a help 3 If you have any Suggestions or Comments Please ask me on the XT Forum
  did -a help 3 In the mIRC section @ http://xt.proboards7.com/index.cgi?board=mirc
  did -z help 3
}
dialog remove {
  title "Manual Removal"
  size -1 -1 226 55
  option dbu
  combo 1, 3 9 60 27, size drop
  edit "", 2, 70 10 152 10, autohs
  button "Remove ", 8, 113 26 68 12
  button "Close", 9, 113 43 68 10, ok
  box "Access Mask", 10, 67 3 158 22
  button "Get Gate", 13, 186 34 35 12
  text "Remove From:", 19, 4 1 50 8
  text Level 1 = %adminset, 20, 2 36 53 8
  text Level 2 = %goldset, 21, 2 44 53 8
  text Level 3 = %brownset, 22, 56 36 53 8
  text Level 4 = %kickset, 23, 56 44 51 8
}
on *:dialog:remove:init:0: {
  didtok remove 1 44 Level 1,Level 2,Level 3,Level 4
  did -c remove 1 1
}

on *:dialog:remove:sclick:8:{
  if ($did($dname,2).text == $null) {
    dialog -m error5 error5
    .halt
  }
  if ($did($dname,1).text == Level 1) {
    /ruser %adminset $did($dname,2).text
  }
  if ($did($dname,1).text == Level 2) {
    /ruser %goldset $did($dname,2).text
  }
  if ($did($dname,1).text == Level 3) {
    /ruser %brownset $did($dname,2).text
  }
  if ($did($dname,1).text == Level 4) {
    /ruser %kickset $did($dname,2).text
  }
  dialog -x remove remove
  getlist
  getlist1
  getlist2
  getlist3
}
on *:dialog:remove:sclick:13:{ clipboard $address($snick($comchan($me,1),1),6)
}


dialog adding {
  title "Manual Access Entry"
  size -1 -1 226 55
  option dbu
  combo 1, 3 9 60 27, size drop
  edit "", 2, 70 10 152 10, autohs
  button "Add ", 8, 113 26 68 12
  button "Close", 9, 113 43 68 10, ok
  box "Access Mask", 10, 67 3 158 22
  button "Get Gate", 13, 186 34 35 12
  text "Add To:", 19, 4 1 28 8
  text Level 1 = %adminset, 20, 2 36 53 8
  text Level 2 = %goldset, 21, 2 44 53 8
  text Level 3 = %brownset, 22, 56 36 53 8
  text Level 4 = %kickset, 23, 56 44 51 8
}
on *:dialog:adding:init:0: {
  didtok adding 1 44 Level 1,Level 2,Level 3,Level 4
  did -c adding 1 1
}
on *:dialog:adding:sclick:8:{
  if ($did($dname,2).text == $null) {
    dialog -m error5 error5
    .halt
  }
  if ($did($dname,1).text == Level 1) {
    /auser %adminset $did($dname,2).text
  }
  if ($did($dname,1).text == Level 2) {
    /auser %goldset $did($dname,2).text
  }
  if ($did($dname,1).text == Level 3) {
    /auser %brownset $did($dname,2).text
  }
  if ($did($dname,1).text == Level 4) {
    /auser %kickset $did($dname,2).text
  }
  dialog -x adding adding
  getlist
  getlist1
  getlist2
  getlist3
}
on *:dialog:adding:sclick:13:{ clipboard $address($snick($comchan($me,1),1),6)
}

dialog error5 {
  title "Error"
  size -1 -1 93 55
  option dbu
  text "Enter a Mask ", 1, 10 12 75 8, nowrap center
  button "OK", 2, 23 40 48 12, ok
  text %me, 3, 2 20 89 8, center
  icon 4, 1 38 15 15, Pics\8 Ball.ico, 0, noborder
  icon 5, 77 38 15 15, Pics\8 Ball.ico, 0, noborder
  text "ERROR !!", 6, 29 4 35 8, center
}
on *:dialog:error5:init:0:{
  set %me $msn.decode($me)
}


menu channel,nicklist {
  <<-Userlist Viewing->>:/dialog -m userlist userlist
}