on *:Join:#bh_ops: notice $nick 6Anybody who isn't at pc or isn't able to help isn't permmited to be on this channel and are to be voiced on the main channel~ty, OglyBogly

alias Options {
  dialog -md Options options
}
menu nicklist { 
  Options:/dialog -md Options Options 
} 
Menu * { 
  -
  Options Dialog:Options
  -
}
dialog Options { 
  title "Nick Modes" 
  size -1 -1 200 200 
  option dbu 
  Button "Voice", 1, 0 0 100 10, center
  Button "De-Voice", 10, 100 0 100 10, center
  Edit "Nick Here", 2, 0 40 200 10, center, autohs
  box "Channel List", 3, 0 50 200 120 
  list 6, 5 60 190 110, vsbar, hsbar
  Button "Op", 4, 0 10 100 10 
  Button "De-Op", 11, 100 10 100 10 
  Button "Halfop", 9, 0 20 100 10 
  Button "De-Halfop", 12, 100 20 100 10 
  Button "Auto Voice", 13, 0 30 100 10 
  Button "Take Away Access", 14, 100 30 100 10 
  button "Get Channel nick list", 7, 0 170 200 10, Center
  Edit "Put channel in here", 8, 0 180 200 10, Center
} 
on *:dialog:Options:Dclick:6:{
  Did -r Options 2
  did -a Options 2 $did($dname,6).seltext
  did -a $dname 4 Op $did($dname,6).seltext
  did -a $dname 11 De-Op $did($dname,6).seltext
  did -a $dname 9 Halfop $did($dname,6).seltext
  did -a $dname 12 De-Halfop $did($dname,6).seltext
  did -a $dname 10 De-Voice $did($dname,6).seltext
  did -a $dname 1 Voice $did($dname,6).seltext
  did -a $dname 13 Auto Voice $did($dname,6).seltext
  did -a $dname 14 Take Away Access $did($dname,6).seltext
}
on *:dialog:Options:Edit:2:{
  did -a $dname 4 Op $did($dname,2)
  did -a $dname 9 Halfop $did($dname,2)
  did -a $dname 12 De-Halfop $did($dname,2)
  did -a $dname 10 De-Voice $did($dname,2)
  did -a $dname 1 Voice $did($dname,2)
  did -a $dname 11 De-Op $did($dname,2)
  did -a $dname 13 Auto Voice $did($dname,2)
  did -a $dname 14 Take Away Access $did($dname,2)
}
on *:dialog:Options:sclick:4:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) {  mode $did($dname,8) +o $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) {  mode $chr(35) $+ $did($dname,8) +o $did($dname,2) }
    }
  }
}
on *:dialog:Options:sclick:11:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) {  mode $did($dname,8) -o $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) {  mode $chr(35) $+ $did($dname,8) -o $did($dname,2) }
    }
  }
}
on *:dialog:Options:sclick:13:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) { cs access $did($dname,8) add $did($dname,2) 3 }
      if ($chr(35) !isin $did($dname,8)) { cs access $chr(35) $+ $did($dname,8) add $did($dname,2) 3 }
    }
  }
}
on *:dialog:Options:sclick:14:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) { cs access $did($dname,8) del $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) { cs access $chr(35) $+ $did($dname,8) del $did($dname,2) }
    }
  }
}
on *:dialog:Options:sclick:10:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) {  mode $did($dname,8) -v $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) {  mode $chr(35) $+ $did($dname,8) -v $did($dname,2) }
    }
  }
}
on *:dialog:Options:sclick:1:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) {  mode $did($dname,8) +v $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) {  mode $chr(35) $+ $did($dname,8) +v $did($dname,2) }
    }
  }
}
on *:dialog:Options:sclick:9:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) {  mode $did($dname,8) +h $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) {  mode $chr(35) $+ $did($dname,8) +h $did($dname,2) }
    }
  }
}
on *:dialog:Options:sclick:12:{ if ($did($dname,2) == $null) { halt } 
  else {
    if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
      if ($chr(35) isin $did($dname,8)) {  mode $did($dname,8) -h $did($dname,2) }
      if ($chr(35) !isin $did($dname,8)) {  mode $chr(35) $+ $did($dname,8) -h $did($dname,2) }
    }
  }
}
on *:Dialog:options:sclick:7:{
  if ($me ison $did($dname,8) || $me ison $chr(35) $+ $did($dname,8)) {
    Did -r Options 6
    Did -az $dname 6 $did($dname,8) Nicks - Double click on a nick to get the Nick in the Box
    Did -az $dname 6 
    if ($chr(35) isin $did($dname,8)) {
      Did -a $dname 6 $did($dname,8) There are $nick($did($dname,8),0) People on $did($dname,8)
      Did -a $dname 6 $did($dname,8) There are $nick($did($dname,8),0) People on $did($dname,8)
      Did -a $dname 6
      if ($chr(35) isin $did($dname,8)) {   
        Did -a $dname 6 $did($dname,8) There are $nick($chr(35) $+ $did($dname,8),0) People on $chr(35) $+ $did($dname,8)  Did -a $dname 6 $did($dname,8) There are $nick($chr(35) $+ $did($dname,8),0) People on $chr(35) $+ $did($dname,8)
      }
      var %q = 1 
      while (%q < $nick($did($dname,8),0)) {
        did -az $dname 6 $nick($did($dname,8),%q)
        inc %q
      }
    }
    if ($chr(35) !isin $did($dname,8)) { 
      var %q = 1
      while (%q < $nick($chr(35) $+ $did($dname,8),0)) {
        did -az $dname 6 $nick($chr(35) $+ $did($dname,8),%q)
        inc %q
      }
    }
  }
}