Something

menu channel { 
  -
  Channel Manager:/dialog -m Manager Manager
} 
dialog Manager { 
  title "Channel Manager - By Tomconstable" 
  size -1 -1 170 175 
  option dbu

  tab "User", 100, 0 0 170 175
  tab "Channel", 101, 0 0 170 175 
  tab "Access/Akick", 103, 0 0 170 175
  tab "Levels", 104, 0 0 170 175

  box "Nickname Control", 1, 3 15 163 91, tab 100
  text "Nickname:", 2, 9 25 60 11, left, tab 100
  edit "", 3, 41 24 119 10, left, tab 100
  button "Voice", 4, 8 40 35 10, tab 100 
  button "Devoice", 5, 8 53 35 10, tab 100 
  button "Halfop", 6, 48 40 35 10, tab 100 
  button "Dehalfop", 7, 48 53 35 10, tab 100
  button "Op", 8, 85 40 35 10, tab 100 
  button "Deop", 9, 85 53 35 10, tab 100
  button "Protect", 10, 8 66 35 10, tab 100 
  button "Deprotect", 11, 8 79 35 10, tab 100
  button "Ban", 12, 48 66 35 10, tab 100 
  button "Unban", 13, 48 79 35 10, tab 100
  button "Kick", 14, 85 66 35 10, tab 100 
  button "Kick-Ban", 15, 85 79 35 10, tab 100
  button "Add Invite", 16, 125 40 35 10, tab 100 
  button "Add Except", 17, 125 53 35 10, tab 100
  button "Show Modes", 999, 125 66 35 10, tab 100
  box "Address Control (Enter Nickname)", 50, 3 108 163 63, tab 100
  button "Ban", 51, 8 118 35 10, tab 100
  edit "", 52, 49 118 112 10, tab 100
  button "Unban", 53, 8 131 35 10, tab 100
  edit "", 54, 49 131 112 10, tab 100
  button "Add Invite", 55, 8 144 35 10, tab 100
  edit "", 56, 49 144 112 10, tab 100
  button "Add Except", 57, 8 157 35 10, tab 100
  edit "", 58, 49 157 112 10, tab 100

  box "Enforce Modes", 18, 3 15 163 118, tab 101
  button "No colour", 19, 8 28 35 10, tab 101 
  button "No CTCP's", 20, 8 41 35 10, tab 101 
  button "G Rated", 21, 52 28 35 10, tab 101 
  button "Invite only", 22, 52 41 35 10, tab 101
  button "No Knock", 23, 96 28 35 10, tab 101
  button "Mute", 24, 96 41 35 10, tab 101
  button "No Invites", 25, 8 54 35 10, tab 101 
  button "No kicks", 26, 8 67 35 10, tab 101
  button "Strip Colour", 27, 52 54 35 10, tab 101
  button "Private", 28, 52 67 35 10, tab 101
  button "Secret", 29, 96 54 35 10, tab 101 
  button "No Notices", 30, 96 67 35 10, tab 101
  button "Only Reg's can speak", 31, 8 106 54 10, tab 101 
  button "Only Reg's can join", 32, 67 106 64 10, tab 101
  button "No Nick Changes", 33, 8 119 54 10, tab 101
  button "Max Users", 34, 8 80 54 10, tab 101
  edit "", 35, 68 80 62 10, tab 101
  button "Channel Key", 36, 8 93 54 10, tab 101
  edit "", 37, 68 93 62 10, tab 101

  box "Access", 59, 3 15 163 79, tab 103
  text "Nickname:", 60, 9 25 60 11, left, tab 103
  edit "", 61, 41 24 119 10, left, tab 103
  button "Auto Voice", 62, 8 40 35 10, tab 103
  button "Auto Halfop", 63, 48 40 35 10, tab 103 
  button "Auto Op", 64, 85 40 35 10, tab 103 
  button "Auto Protect", 65, 125 40 35 10, tab 103
  button "Auto Deop", 66, 8 53 35 10, tab 103
  button "No Join", 67, 48 53 35 10, tab 103
  button "List", 68, 85 53 35 10, tab 103
  button "Delete", 69, 125 53 35 10, tab 103
  button "Set Level", 70, 8 66 35 10, tab 103
  edit "", 71, 49 66 112 10, tab 103
  button "Clear", 72, 8 79 35 10, tab 103
  box "Akick", 73, 3 96 163 52, tab 103
  text "Mask:", 74, 9 106 60 11, left, tab 103
  edit "", 75, 41 105 119 10, left, tab 103
  button "Add", 76, 8 120 35 10, tab 103
  button "Stick", 77, 48 120 35 10, tab 103 
  button "Unstick", 78, 85 120 35 10, tab 103 
  button "Delete", 79, 125 120 35 10, tab 103
  button "List", 80, 8 133 35 10, tab 103
  button "View", 81, 48 133 35 10, tab 103 
  button "Enforce", 82, 85 133 35 10, tab 103 
  button "Clear", 83, 125 133 35 10, tab 103

  box "Levels", 84, 3 15 163 161, tab 104
  text "New Level:", 85, 9 25 60 11, left, tab 104
  edit "", 86, 41 24 119 10, left, tab 104
  button "Auto Deop", 87, 8 40 35 10, tab 104
  button "Auto Halfop", 88, 48 40 35 10, tab 104 
  button "Auto Op", 89, 85 40 35 10, tab 104
  button "Auto Protect", 90, 125 40 35 10, tab 104
  button "Auto Voice", 91, 8 53 35 10, tab 104
  button "No Join", 92, 48 53 35 10, tab 104
  button "Acc-List", 93, 85 53 35 10, tab 104
  button "Acc-Change", 94, 125 53 35 10, tab 104
  button "Akick", 95, 8 66 35 10, tab 104
  button "Set", 96, 48 66 35 10, tab 104
  button "Ban", 97, 85 66 35 10, tab 104
  button "Banme", 98, 125 66 35 10, tab 104
  button "Clear", 99, 8 79 35 10, tab 104
  button "Getkey", 110, 48 79 35 10, tab 104
  button "Halfop", 111, 85 79 35 10, tab 104
  button "Halfopme", 112, 125 79 35 10, tab 104
  button "Info", 113, 8 92 35 10, tab 104
  button "Kick", 114, 48 92 35 10, tab 104
  button "Kickme", 115, 85 92 35 10, tab 104
  button "Invite", 116, 125 92 35 10, tab 104
  button "Opdeop", 117, 8 105 35 10, tab 104
  button "Opdeopme", 118, 48 105 35 10, tab 104
  button "Protect", 119, 85 105 35 10, tab 104
  button "Protectme", 120, 125 105 35 10, tab 104
  button "Topic", 121, 8 118 35 10, tab 104
  button "Unban", 122, 48 118 35 10, tab 104
  button "Voice", 123, 85 118 35 10, tab 104
  button "Voiceme", 124, 125 118 35 10, tab 104
  button "Memo", 125, 8 131 35 10, tab 104
  button "Assign", 126, 48 131 35 10, tab 104
  button "Badwords", 127, 85 131 35 10, tab 104
  button "Fantasia", 128, 125 131 35 10, tab 104
  button "Greet", 129, 8 131 35 10, tab 104
  button "Nokick", 130, 48 131 35 10, tab 104
  button "Say", 131, 85 131 35 10, tab 104
  button "Signkick", 132, 8 144 35 10, tab 104
  button "List", 133, 8 159 35 10, tab 104
  button "Reset", 134, 48 159 35 10, tab 104
}

on *:DIALOG:Manager:sclick:*: { 

  ;Nickname Tab

  if ($did == 4)   mode $active +v $did($dname,3) 
  if ($did == 5)   mode $active -v $did($dname,3) 
  if ($did == 6)   mode $active +h $did($dname,3)
  if ($did == 7)   mode $active -h $did($dname,3)
  if ($did == 8)   mode $active +o $did($dname,3)
  if ($did == 9)   mode $active -o $did($dname,3)
  if ($did == 10)  mode $active +a $did($dname,3)
  if ($did == 11)  mode $active -a $did($dname,3)
  if ($did == 12)  mode $active +b $did($dname,3)
  if ($did == 13)  mode $active -b $did($dname,3)
  if ($did == 13)  mode $active +h $did($dname,3)
  if ($did == 14)  kick $active $did($dname,3)
  if ($did == 15)  ban -ku $active $did($dname,3)
  if ($did == 16)  mode $active +I $did($dname,3)
  if ($did == 17)  mode $active +e $did($dname,3)
  if ($did == 51)  mode $active +b $address($did($dname,52),2)
  if ($did == 53)  mode $active -b $address($did($dname,54),2)
  if ($did == 55)  mode $active +I $address($did($dname,56),2)
  if ($did == 57)  mode $active +e $address($did($dname,58),2)
  if ($did == 999) channel $active

  ;Channel Tab

  if ($did == 19)  mode $active +c 
  if ($did == 20)  mode $active +C 
  if ($did == 21)  mode $active +G 
  if ($did == 22)  mode $active +i 
  if ($did == 23)  mode $active +K 
  if ($did == 24)  mode $active +m 
  if ($did == 25)  mode $active +V 
  if ($did == 26)  mode $active +Q 
  if ($did == 27)  mode $active +S 
  if ($did == 28)  mode $active +p 
  if ($did == 29)  mode $active +s 
  if ($did == 30)  mode $active +T 
  if ($did == 31)  mode $active +M 
  if ($did == 32)  mode $active +R 
  if ($did == 33)  mode $active +N 
  if ($did == 34)  mode $active +l $did($dname,35) 
  if ($did == 36)  mode $active +k $did($dname,37) 

  ;Access/Akick Tab

  if ($did == 62)  msg ChanServ access $active add $did($dname,61) 3
  if ($did == 63)  msg ChanServ access $active add $did($dname,61) 4
  if ($did == 64)  msg ChanServ access $active add $did($dname,61) 5
  if ($did == 65)  msg ChanServ access $active add $did($dname,61) 10
  if ($did == 66)  msg ChanServ access $active add $did($dname,61) -1
  if ($did == 67)  msg ChanServ access $active add $did($dname,61) -2
  if ($did == 68)  msg ChanServ access $active list
  if ($did == 69)  msg ChanServ access $active del $did($dname,61) 
  if ($did == 70)  msg ChanServ access $active add $did($dname,61) $did($dname,71)
  if ($did == 72)  msg ChanServ access $active clear 
  if ($did == 76)  msg ChanServ akick $active add $did($dname,75)
  if ($did == 77)  msg ChanServ akick $active stick $did($dname,75)
  if ($did == 78)  msg ChanServ akick $active unstick $did($dname,75)
  if ($did == 79)  msg ChanServ akick $active del $did($dname,75)
  if ($did == 80)  msg ChanServ akick $active list $did($dname,75)
  if ($did == 81)  msg ChanServ akick $active view $did($dname,75)
  if ($did == 82)  msg ChanServ akick $active enforce
  if ($did == 83)  msg ChanServ akick $active clear

  ;Levels

  if ($did == 87)  msg ChanServ levels $active set autodeop $did($dname,86)
  if ($did == 88)  msg ChanServ levels $active set autohalfop $did($dname,86)
  if ($did == 89)  msg ChanServ levels $active set autoop $did($dname,86)
  if ($did == 90)  msg ChanServ levels $active set autoprotect $did($dname,86)
  if ($did == 91)  msg ChanServ levels $active set autovoice $did($dname,86)
  if ($did == 92)  msg ChanServ levels $active set nojoin $did($dname,86)
  if ($did == 93)  msg ChanServ levels $active set acc-list $did($dname,86)
  if ($did == 94)  msg ChanServ levels $active set acc-change $did($dname,86)
  if ($did == 95)  msg ChanServ levels $active set akick $did($dname,86)
  if ($did == 96)  msg ChanServ levels $active set set $did($dname,86)
  if ($did == 97)  msg ChanServ levels $active set ban $did($dname,86)
  if ($did == 98)  msg ChanServ levels $active set banme $did($dname,86)
  if ($did == 99)  msg ChanServ levels $active set clear $did($dname,86)
  if ($did == 110) msg ChanServ levels $active set getkey $did($dname,86)
  if ($did == 111) msg ChanServ levels $active set halfop $did($dname,86)
  if ($did == 112) msg ChanServ levels $active set halfopme $did($dname,86)
  if ($did == 113) msg ChanServ levels $active set info $did($dname,86)
  if ($did == 114) msg ChanServ levels $active set kick $did($dname,86)
  if ($did == 115) msg ChanServ levels $active set kickme $did($dname,86)
  if ($did == 116) msg ChanServ levels $active set invite $did($dname,86)
  if ($did == 117) msg ChanServ levels $active set opdeop $did($dname,86)
  if ($did == 118) msg ChanServ levels $active set opdeopme $did($dname,86)
  if ($did == 119) msg ChanServ levels $active set protect $did($dname,86)
  if ($did == 120) msg ChanServ levels $active set protectme $did($dname,86)
  if ($did == 121) msg ChanServ levels $active set topic $did($dname,86)
  if ($did == 122) msg ChanServ levels $active set unban $did($dname,86)
  if ($did == 123) msg ChanServ levels $active set voice $did($dname,86)
  if ($did == 124) msg ChanServ levels $active set voiceme $did($dname,86)
  if ($did == 125) msg ChanServ levels $active set memo $did($dname,86)
  if ($did == 126) msg ChanServ levels $active set assign $did($dname,86)
  if ($did == 127) msg ChanServ levels $active set badwords $did($dname,86)
  if ($did == 128) msg ChanServ levels $active set fantasia $did($dname,86)
  if ($did == 129) msg ChanServ levels $active set greet $did($dname,86)
  if ($did == 130) msg ChanServ levels $active set nokick $did($dname,86)
  if ($did == 131) msg ChanServ levels $active set say $did($dname,86)
  if ($did == 132) msg ChanServ levels $active set signkick $did($dname,86)
  if ($did == 133) msg ChanServ levels $active list
  if ($did == 134) msg ChanServ levels $active reset
}