IRC Operator Dialog - Beta v1.0

alias kingskrown { 
  dialog -m kingskrown kingskrown
} 
menu * { 
  IRC Operator Dialog:/dialog -m kingskrown kingskrown 
} 
dialog kingskrown {
  title "IRC Operator Dialog"
  size -1 -1 400 325
  option dbu
  text "IRC Operator Dialog © KingsKrown", 1, 160 1 85 7 7
  text "Global", 3, 1 1 145 7 7, center
  edit "Text goes here", 4, 4 9 138 14, multi center
  button "Send", 5, 4 27 37 12, ok
  text "Kill", 6, 4 39 138 7 7, center
  edit "Username", 7, 4 48 138 14, multi center
  edit "Reason", 8, 4 62 138 14, multi center
  button "Kill", 9, 4 79 37 12, ok
  text "Identd/Host/Realname/Username", 10, 4 93 138 7 7, center
  edit "Username", 11, 4 102 138 14, multi center
  edit "New Identd", 12, 4 116 138 14, multi center
  edit "New Host", 13, 4 130 138 14, multi center
  edit "New Realname", 14, 4 144 138 14, multi center
  edit "New Username", 15, 4 158 138 14, multi center
  button "Change", 16, 4 175 37 12, ok
  text "Force Join", 17, 4 188 138 7 7, center
  edit "Username", 18, 4 196 138 14, multi center
  edit "Channel", 19, 4 210 138 14, multi center
  button "Force Join", 20, 4 227 37 12, ok
  text "Force Part", 21, 4 240 138 7 7, center
  edit "Username", 22, 4 248 138 14, multi center
  edit "Channel", 23, 4 262 138 14, multi center
  edit "Reason", 24, 4 276 138 14, multi center
  button "Force Part", 25, 4 293 37 12, ok
  text "Force Usermode(s)", 26, 258 188 138 7 7, center
  edit "Username", 27, 258 196 138 14, multi center
  edit "+/- Usermode(s)", 28, 258 210 138 14, multi center
  button "Force Usermode(s)", 29, 258 227 55 12, ok
  button "Clear", 30, 185 159 23 10 
}
on *:dialog:kingskrown:sclick:30: {
  did -r kingskrown 4,7,8,11-15,18,19,22-24,27,28 
  did -f kingskrown 1 
}
on *:dialog:kingskrown:mouse:8: {
  did -r kingskrown 8
  did -f kingskrown 1 
}
on *:dialog:kingskrown:sclick:5:{ 
  msg operserv global $did(4)  
}
on *:dialog:kingskrown:sclick:9:{ 
  kill $did(7) $did(8)  
}
on *:dialog:kingskrown:sclick:16:{ 
  chgident $did(11) $did(12)  
  chghost $did(11) $did(13) 
  chgname $did(11) $did(14)
  msg operserv svsnick $did(11) $did(15)
}
on *:dialog:kingskrown:sclick:20:{ 
  sajoin $did(18) $did(19)  
}
on *:dialog:kingskrown:sclick:25:{ 
  sapart $did(22) $did(23) $did(24)  
}
on *:dialog:kingskrown:sclick:29:{ 
  msg operserv umode $did(27) $did(28)
}