Untitled

menu * {
  IRC Administration:dialog -md IrcAdmin IrcAdmin
}  

dialog IrcAdmin {
  title "IRC Administration Panel"
  size -1 -1 230 500
  tab "Modes", 1, 0 2 920 500
  tab "Blacklist", 2
  tab "Users", 3
  box "Channel Administration", 4, 5 30 215 200, tab 1
  box "User Administration", 17, 5 30 215 200, tab 3
  edit "#Channel", 5, 12 50 200 20 
  edit "Nick or vHost to administer", 14, 12 72 200 20, tab 3 
  button "+moderate (m)", 6, 17 75 95 20, tab 1
  button "-moderate (m)", 7, 114 75 95 20, tab 1
  button "+invite (i)", 8, 17 97 95 20, tab 1
  button "-invite (i)", 9, 114 97 95 20, tab 1  
  button "+noKick (Q)", 10, 17 119 95 20, tab 1
  button "-noKick (Q)", 11, 114 119 95 20, tab 1
  button "+All (all modes)", 12, 17 141 95 20, tab 1
  button "-All (all modes)", 13, 114 141 95 20, tab 1         
  button "+akick (add)", 15, 17 97 95 20, tab 3
  button "-akick (del)", 16, 114 97 95 20, tab 3 
  button "+ban (b)", 18, 17 119 95 20, tab 3
  button "-ban (b)", 19, 114 119 95 20, tab 3   
}

on *:dialog:IrcAdmin:sclick:6:{
  mode $did(5),2) +m
}
on *:dialog:IrcAdmin:sclick:7:{
  mode $did(5),2) -m
}
on *:dialog:IrcAdmin:sclick:8:{
  mode $($did(5),2) +i
}
on *:dialog:IrcAdmin:sclick:9:{
  mode $($did(5),2) -i
}
on *:dialog:IrcAdmin:sclick:10:{
  mode $did(5),2) +Q
}
on *:dialog:IrcAdmin:sclick:11:{
  mode $did(5),2) -Q
}
on *:dialog:IrcAdmin:sclick:12:{
  mode $($did(5),2) +abcdefghijklmnopqrstuvwxyz
  mode $($did(5),2) +ABCDEFGHIJKLMNOPQRSTUVWXYZ
}
on *:dialog:IrcAdmin:sclick:13:{
  mode $($did(5),2) -abcdefghijklmnopqrstuvwxyz
  mode $($did(5),2) -ABCDEFGHIJKLMNOPQRSTUVWXYZ
}
on *:dialog:IrcAdmin:sclick:15:{
  /cs akick $($did(5),2) add $did(14)
}
on *:dialog:IrcAdmin:sclick:16:{
  /cs akick $did(5) del $did(14)
  /mode $($did(5),2) -b $address($did(14),2)
}
on *:dialog:IrcAdmin:sclick:18:{
  /mode $($did(5),2) +b $address($did(14),2)
}
on *:dialog:IrcAdmin:sclick:19:{
  /mode $($did(5),2) -b $address($did(14),2)
}