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
}
}
}
}