i know scripts like this have been done before, and so i apologise b4 hand if this is similar to ne1's previous script.
this script is to help people who are new at irc

dialog ohohb {
  title "My Control"
  size -1 -1 120 100
  text "hello and welcome to my control",1, 180 10 90 80
  box "control",5, 0 0 110 80
  button "Op Control",2, 5 15 100 20
  button "Chan Control",3, 5 35 100 20
  button "User Control",4, 5 55 100 20
}
on *:dialog:ohohb:sclick:*: {
  if ($did == 2) {
    dialog -m ohoh ohoh
  }
  if ($did == 3) {
    dialog -m chancon chancon
  }
  if ($did == 4) {
    dialog -m user user
  }    
}
dialog ohoh {
  title "My Control"
  size -1 -1 325 150
  box "Chan Control",122, 0 0 325 130
  button "Add op",3, 5 20 100 20
  button "Delete op",5, 105 20 100 20
  button "Add hop",6, 5 40 100 20
  button "Delete hop",7, 105 40 100 20
  button "Add sop",8, 5 60 100 20
  button "Delete sop",9, 105 60 100 20
  button "Add vop",10, 5 80 100 20
  button "Delete vop",11, 105 80 100 20
  text "Channel Name here",24, 220 50 100 20
  edit "",15, 220 30 100 20
  edit "",23, 220 70 100 20
  text "Nickname Here",16, 220 10 100 20
  button "Add Founder",25, 5 100 100 20
  button "Del Founder",26, 105 100 100 20
}
on *:dialog:ohoh:sclick:*: {
  if ($did == 3) {
    cs aop $did(23,1,text) add $did(15,1,text)
  } 
  if ($did == 5) {
    cs aop $did(23,1,text) del $did(15,1,text)
  }
  if ($did == 6) {
    cs hop $did(23,1,text) add $did(15,1,text)
  }
  if ($did == 7) {
    cs hop $did(23,1,text) del $did(15,1,text)
  }
  if ($did == 8) {
    cs sop $did(23,1,text) add $did(15,1,text)
  }
  if ($did == 9) {
    cs sop $did(23,1,text) del $did(15,1,text)
  }
  if ($did == 10) {
    cs vop $did(23,1,text) add $did(15,1,text)
  }
  if ($did == 11) {
    cs vop $did(23,1,text) del $did(15,1,text)
  }
  if ($did == 25) {
    cs cfounder $did(23,1,text) add $did(15,1,text)
  }
  if ($did == 26) {
    cs cfounder $did(23,1,text) del $did(15,1,text)
  }
}
dialog chancon {
  title "Channel control"
  size -1 -1 270 150
  button "Register",1, 10 25 120 20
  button "Drop",2, 130 25 120 20
  button "Kick",18, 10 115 120 20
  button "Ban",19, 130 115 120 20
  box "Kick and Ban",22, 0 100 270 50
  box "Channel",23, 0 10 270 80
  button "Invite",5, 10 45 120 20
  button "Identify",6, 130 45 120 20
  button "Add temp ops",7, 130 65 120 20
}
on *:dialog:chancon:sclick:*: {
  if ($did == 18) {
    dialog -m chancon4 chancon4
  }
  if ($did == 19) {
    dialog -m chancon3 chancon3 
  }
  if ($did == 1) {
    dialog -m chancon2 chancon2
  }
  if ($did == 2) {
    dialog -m chancon1 chancon1
  }
  if ($did == 5) {
    dialog -m chancon5 chancon5
  }
  if ($did == 6) {
    dialog -m chancon6 chancon6
  }
  if ($did == 7) {
    dialog -m chancon7 chancon7
  }
}
dialog user {
  title "My Control"
  size -1 -1 105 80
  box "User control",10, 0 0 205 150,
  button "Ignore",2, 20 35 60 15
  button "Link",3, 20 15 60 15  
  button "Ghost",4, 20 55 60 15  
}
on *:dialog:user:sclick:*: {
  if ($did == 2) {
    dialog -m ig ig 
  }
  if ($did == 3) {
    dialog -m im im 
  }
  if ($did == 4) {
    dialog -m ime ime 
  }
}
dialog ig {
  title "My Control"
  size -1 -1 100 60
  text "Nick to ignore",10, 0 0 90 80,
  edit "",2, 0 20 100 20
  button "ok",3, 0 40 100 20 
}
on *:dialog:ig:sclick:*: {
  if ($did == 3) {
    ignore $did(2,1,text)
  }
}
dialog chancon2 {
  title "Channel control"
  size -1 -1 270 100
  edit "",53, 130 30 120 20
  edit "",4, 130 50 120 20
  edit "",5, 130 70 120 20
  text "Insert Chan Came Here",6, 10 30 120 20
  text "Insert Password Here",7, 10 50 120 20 
  text "Insert Description Here",8, 10 70 120 20 
  box "Channel",23, 0 10 260 85
}
dialog chancon1 {
  title "Channel control"
  size -1 -1 250 50
  text "Insert Chan Name Here",12, 10 0 120 20
  edit "",17, 130 0 120 20
  button "ok",13, 70 20 120 20
}
on *:dialog:chancon1:sclick:*: {
  if ($did == 2) {
    cs drop $did(17,1,text)
  }
}
on *:dialog:chancon2:sclick:*: {
  if ($did == 18) {
    kick $did(17,1,text) $did(16,1,text) $did(15,1,text)
  }
  if ($did == 19) {
    ban $did(17,1,text) $did(16,1,text) $did(15,1,text)
    kick $did(17,1,text) $did(16,1,text) $did(15,1,text)
  }
  if ($did == 1) {
    cs register $did(53,1,text) $did(4,1,text) $did(5,1,text)
  }
  if ($did == 2) {
    cs drop $did(3,1,text)
  }
}
dialog chancon4 {
  title "Channel control"
  size -1 -1 300 150
  text "Insert NickName Here",12, 10 30 120 20
  edit "",17, 130 30 120 20
  text "Insert Chan Name Here",1, 10 50 120 20
  edit "",18, 130 50 120 20
  text "Insert Reason Here",20, 10 70 120 20
  edit "",16, 130 70 120 20
  box "Kick",22, 0 5 300 120
  button "ok",13, 70 100 120 20
}
dialog chancon3 {
  title "Channel control"
  size -1 -1 251 150
  text "Insert NickName Here",12, 10 30 120 20
  edit "",17, 130 30 120 20
  text "Insert Chan Name Here",1, 10 50 120 20
  edit "",18, 130 50 120 20
  text "Insert Reason Here",20, 10 70 120 20
  edit "",16, 130 70 120 20
  box "Ban",22, 0 0 250 150
  button "ok",13, 0 100 140 20
}
on *:dialog:chancon3:sclick:*: {
  if ($did == 13) {
    ban $did(18,1,text) $did(17,1,text) $did(16,1,text)
    kick $did(18,1,text) $did(17,1,text) $did(16,1,text)
  }
}
on *:dialog:chancon4:sclick:*: {
  if ($did == 13) {
    kick $did(18,1,text) $did(17,1,text) $did(16,1,text)
  }
}
dialog chancon5 {
  title "Channel control"
  size -1 -1 300 150
  text "Insert NickName Here",12, 10 50 120 20
  edit "",17, 130 30 120 20
  text "Insert Chan Name Here",1, 10 30 120 20
  edit "",18, 130 50 120 20
  button "ok",13, 70 100 120 20
}
on *:dialog:chancon5:sclick:*: {
  if ($did == 13) {
    invite $did(18,1,text) $did(17,1,text)
  }
}
dialog chancon6 {
  title "Channel control"
  size -1 -1 300 150
  text "Insert Password Here",12, 10 50 120 20
  edit "",17, 130 30 120 20
  text "Insert Chan Name Here",1, 10 30 120 20
  edit "",18, 130 50 120 20
  button "ok",13, 70 100 120 20
}
on *:dialog:chancon6:sclick:*: {
  if ($did == 13) {
    cs id $did(17,1,text) $did(18,1,text)
  }
}
dialog im {
  title "My Control"
  size -1 -1 200 60
  text "Nickname",10, 0 0 90 80,
  edit "",2, 80 0 100 20
  text "password",11, 0 20 90 80,
  edit "",22, 80 20 100 20 pass
  button "ok",3, 0 40 100 20 
}
on *:dialog:im:sclick:*: {
  if ($did == 3) {
    /ns link $did(2,1,text) $did(22,1,text)
  }
}
dialog ime {
  title "My Control"
  size -1 -1 200 60
  text "Nickname",10, 0 0 90 80,
  edit "",2, 80 0 100 20
  text "password",11, 0 20 90 80,
  edit "",22, 80 20 100 20 pass
  button "ok",3, 0 40 100 20 
}
on *:dialog:ime:sclick:*: {
  if ($did == 3) {
    /ns ghost $did(2,1,text) $did(22,1,text)
  }
}
dialog chancon7 {
  title "My Control"
  size -1 -1 325 150
  box "Chan Control",122, 0 0 325 130
  button "Add op",3, 5 20 100 20
  button "Delete op",5, 105 20 100 20
  button "Add hop",6, 5 40 100 20
  button "Delete hop",7, 105 40 100 20
  button "Add sop",8, 5 60 100 20
  button "Delete sop",9, 105 60 100 20
  button "Add vop",10, 5 80 100 20
  button "Delete vop",11, 105 80 100 20
  text "Channel Name here",24, 220 50 100 20
  edit "",15, 220 30 100 20
  edit "",23, 220 70 100 20
  text "Nickname Here",16, 220 10 100 20
  button "Add Founder",25, 5 100 100 20
  button "Del Founder",26, 105 100 100 20
}
on *:dialog:chancon7:sclick:*: {
  if ($did == 3) {
    mode $did(23,1,text) +o $did(15,1,text)
  } 
  if ($did == 5) {
    mode $did(23,1,text) -o $did(15,1,text)
  }
  if ($did == 6) {
    mode $did(23,1,text) +h $did(15,1,text)
  }
  if ($did == 7) {
    mode $did(23,1,text) -h $did(15,1,text)
  }
  if ($did == 8) {
    mode $did(23,1,text) +a $did(15,1,text)
  }
  if ($did == 9) {
    mode $did(23,1,text) -a $did(15,1,text)
  }
  if ($did == 10) {
    mode $did(23,1,text) +v $did(15,1,text)
  }
  if ($did == 11) {
    mode $did(23,1,text) -v $did(15,1,text)
  }
  if ($did == 25) {
    mode $did(23,1,text) +q $did(15,1,text)
  }
  if ($did == 26) {
    mode $did(23,1,text) -q $did(15,1,text)
  }
}

menu nicklist,channel {
   Control
  ..start:/dialog -m ohohb ohohb
}