is there someone here that I can send my script to to help fix a few side bar dialogs errors ? does not good to paste the code for only way to see whats going on & to fix errors is to look at the script itself. ![]()
Yes, but we charge $45.50 an hour.
87$/hour here
Well X-Fusion id like your help if you do not mind. ![]()
What exactly is the problem? All I'd probably need to know is your error and see the code that's putting out the error.
i got 3 errors , two errors in one side bar 1 error in the other. here is the errors.
Protections Dialog
The Off On buttons dont work
Both drop boxes dont show the rooms
Bottom List Doesnt load rooms
AOP Dialog
Buttons dont work
Protections Dialog Code
;===============================================================================
====
;----[ Switch Bars ]-----------------------------------------------------------------
;===============================================================================
====
:/dialog -m switchbar switchbar
}
dialog switchbar {
alias sb { dialog -m switchbar switchbar }
alias csb { dll $rebar UnDock left | dialog -x switchbar switchbar }
alias rebar { return rebar.dll }
dialog switchbar {
title "Protections"
size 0 0 246 752
option pixels
box "Protections", 1, 4 8 237 187
list 2, 8 21 228 169, size
text "Channel", 3, 6 207 50 16
combo 4, 59 202 181 69, drop
box "Channels Not Using Default Set-Up", 5, 4 262 238 231
list 6, 7 277 230 213, size
combo 7, 3 495 239 82, size drop
button "Turn On", 8, 7 230 57 25
button "Turn Off", 9, 87 231 65 25
button "Add", 10, 4 520 75 25
button "Remove", 11, 166 520 75 25
icon 77, 0 0 244 800, pictures\sidebar.jpg, 0, noborder
icon 12, 22 549 187 194, pictures\face.jpg, 0, noborder
button "Done", 13, 168 231 60 25
}
on *:dialog:switchbar:init:0: {
dll $rebar Dock $dialog($dname).hwnd > left
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetBorderStyle 8,9,10,11 staticedge
var %x = 4, %y = blah
while (%x <= $ini($settings(chanoptions.txt),0)) {
did -a $dname 4 $ini($settings(chanoptions.txt),%x)
if ($ini($settings(chanoptions.txt),%x) != Default) did -a $dname 6 $ini($settings(chanoptions.txt),%x)
if ($active == $ini($settings(chanoptions.txt),%x)) { var %y = %x }
inc %x
}
did -c $dname 4 $iif(%y != blah,%y,1)
dll $mdx SetControlMDX $dname 2 listview report showsel rowselect nosortheader > $mdx.view
did -i $dname 2 1 headerdims 40:1 90:2 300:3
did -i $dname 2 1 headertext + 0 $chr(32) $+ $chr(9) $+ + 0 Option/Prots $+ $chr(9) $+ 0 Description
did -i $dname 2 1 seticon normal $icon(true.ico)
did -i $dname 2 1 seticon normal $icon(false.ico)
var %x = 4
while (%x <= $chan(0)) {
did -a $dname 7 $chan(%x)
inc %x
}
switchbar.update
}
on *:dialog:switchbar:sclick:4: {
switchbar.update
}
on *:dialog:switchbar:sclick:2: {
var %type = $$remove($gettok($gettok($did(2,4).seltext,2,8),5-,32),$chr(32))
if (%type == TopicLock) || (%type == ModeLock) {
did -e $dname 7
}
else did -b $dname 7
}
on *:dialog:switchbar:sclick:7: {
var %type = $$remove($gettok($gettok($did(2,4).seltext,2,8),5-,32),$chr(32))
if (%type == TopicLock) {
writeini $settings(chanoptions.txt) $$did(4) LockedTopic $$input(What Topic Do You Want To Keep,e,Topic Lock,$readini($settings(chanoptions.txt),$$did(4),LockedTopic))
}
if (%type == ModeLock) {
writeini $settings(chanoptions.txt) $$did(4) LockedModes $$input(What Modes Do You Want To Keep,e,Topic Lock,$readini($settings(chanoptions.txt),$$did(4),LockedModes))
}
}
on *:dialog:switchbar:sclick:8: {
writeini $settings(chanoptions.txt) $$did(4) $$remove($gettok($gettok($did(2,8).seltext,2,8),5-,32),$chr(32)) $true
switchbar.update
}
on *:dialog:switchbar:sclick:10: {
writeini $settings(chanoptions.txt) $$did(4) $$remove($gettok($gettok($did(2,8).seltext,2,8),5-,32),$chr(32)) $false
switchbar.update
}
on *:dialog:switchbar:sclick:11: {
remini $settings(chanoptions.txt) $$did(6).seltext
did -r $dname 4,6
var %x = 4, %y = blah
while (%x <= $ini($settings(chanoptions.txt),0)) {
did -a $dname 4 $ini($settings(chanoptions.txt),%x)
if ($ini($settings(chanoptions.txt),%x) != Default) did -a $dname 6 $ini($settings(chanoptions.txt),%x)
if ($active == $ini($settings(chanoptions.txt),%x)) { var %y = %x }
inc %x
}
}
on *:dialog:switchbar:sclick:10: {
writeini $settings(chanoptions.txt) $$did(7) Default $false
did -r $dname 4,6
var %x = 4, %y = blah
while (%x <= $ini($settings(chanoptions.txt),0)) {
did -a $dname 4 $ini($settings(chanoptions.txt),%x)
if ($ini($settings(chanoptions.txt),%x) != Default) did -a $dname 6 $ini($settings(chanoptions.txt),%x)
if ($active == $ini($settings(chanoptions.txt),%x)) { var %y = %x }
inc %x
}
}
alias switchbar.update {
did -o switchbar 2 2 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),PornNick) == $true,1 On,2 Off) $+ $chr(9) $+ Porn Nick $+ $chr(9) $+ + Kick For Porn Style Nicks
did -o switchbar 2 3 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AsciiNick) == $true,1 On,2 Off) $+ $chr(9) $+ Ascii Nick $+ $chr(9) $+ + Kick For Nicks With Ascii
did -o switchbar 2 4 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),BanProtection) == $true,1 On,2 Off) $+ $chr(9) $+ Ban Protection $+ $chr(9) $+ + Kick If Someone Adds Deny On You
did -o switchbar 2 5 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AccessAll) == $true,1 On,2 Off) $+ $chr(9) $+ Access All $+ $chr(9) $+ + Kick If Someone Adds *!*@*$* To Access
did -o switchbar 2 6 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),TextFlood) == $true,1 On,2 Off) $+ $chr(9) $+ Text Flood $+ $chr(9) $+ + Kick For Text Floods
did -o switchbar 2 7 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AwayFlood) == $true,1 On,2 Off) $+ $chr(9) $+ Away Flood $+ $chr(9) $+ + Kick For Away Floods
did -o switchbar 2 8 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoColours) == $true,1 On,2 Off) $+ $chr(9) $+ No Colours $+ $chr(9) $+ + Kick For Mirc Colours
did -o switchbar 2 9 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoVoice) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Voice $+ $chr(9) $+ + Give People Voice On Entry
did -o switchbar 2 10 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoHost) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Host $+ $chr(9) $+ + Give People Host On Entry
did -o switchbar 2 11 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),SafeHost) == $true,1 On,2 Off) $+ $chr(9) $+ Safe Host $+ $chr(9) $+ + Hosts Cant Kick Or Dehost Other Hosts Or Host Others
did -o switchbar 2 12 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoAwayHost) == $true,1 On,2 Off) $+ $chr(9) $+ No Away Host $+ $chr(9) $+ + Takes Host Of People Who Go Away
did -o switchbar 2 13 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),LoadsHosts) == $true,1 On,2 Off) $+ $chr(9) $+ Loads Hosts $+ $chr(9) $+ + DeHost If Theres Lots Of Hosts
did -o switchbar 2 14 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),LimitOwners) == $true,1 On,2 Off) $+ $chr(9) $+ Limit Owners $+ $chr(9) $+ + Limit The Amount Of Owners There Are
did -o switchbar 2 15 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),LimitHosts) == $true,1 On,2 Off) $+ $chr(9) $+ Limit Hosts $+ $chr(9) $+ + Limit The Amount Of Hosts There Are
did -o switchbar 2 16 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoGuestOps) == $true,1 On,2 Off) $+ $chr(9) $+ No Guest Ops $+ $chr(9) $+ + Guests Cant Become Hosts
did -o switchbar 2 17 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),ModeLock) == $true,1 On,2 Off) $+ $chr(9) $+ Mode Lock $+ $chr(9) $+ + If A Host Changes Modes It Resets To Desired Modes
did -o switchbar 2 18 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),TopicLock) == $true,1 On,2 Off) $+ $chr(9) $+ Topic Lock $+ $chr(9) $+ + If A Host Changes Topic It Resets And Kicks
did -o switchbar 2 18 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoRgk) == $true,1 On,2 Off) $+ $chr(9) $+ No Rgk $+ $chr(9) $+ + Kicks Random Gatekeepers
did -o switchbar 2 19 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),JoinFlood) == $true,1 On,2 Off) $+ $chr(9) $+ Join Flood $+ $chr(9) $+ + Changes Roomlimit To Stop Guest Floods
did -o switchbar 2 20 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),RoomSpam) == $true,1 On,2 Off) $+ $chr(9) $+ Room Spam $+ $chr(9) $+ + Stops People Posting Room Links
did -o switchbar 2 21 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),CapsKick) == $true,1 On,2 Off) $+ $chr(9) $+ Caps Kick $+ $chr(9) $+ + Kicks For Excessive Caps
did -o switchbar 2 22 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoRevolve) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Revolve $+ $chr(9) $+ + Kicks For Excessive Entering And Leaving
did -o switchbar 2 23 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoVoice) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Voice $+ $chr(9) $+ + Auto Voices Those Who Enter Room
did -o switchbar 2 24 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),whisprkick) == $true,1 On,2 Off) $+ $chr(9) $+ whispr kick $+ $chr(9) $+ + Kicks Those Who Whisper You
}
on *:dialog:switchbar:sclick:13: {
if ($nick == $me) {
dialog -x switchbar switchbar
dialog -m switch switch
}
}
alias si { dialog -m switchbar switchbar }
alias csi { dll $rebar UnDock left | dialog -x switchbar switchbar }
alias rebar { return rebar.dll }
AOP Sidebar Code
:/dialog -m aop aop
}
dialog aop {
alias ab { dialog -m aop aop }
alias cab { dll $rebar UnDock left | dialog -x aop aop }
alias rebar { return rebar.dll }
dialog aop {
title "AOPbar"
size 0 0 188 752
option pixels
icon 77, 0 0 188 800, pictures\sidebar1.jpg, 0, noborder
icon 1, 2 40 184 204, pictures\face.jpg, 0
text "Users AOP List Options", 3, 40 257 112 16
list 4, 3 279 182 130, size
list 5, 2 463 183 130, size
button "Remove", 6, 2 426 57 25
button "Refresh", 7, 63 426 57 25
button "Done", 8, 125 426 57 25
}
on *:dialog:aop:init:0: {
dll $rebar Dock $dialog($dname).hwnd > left
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetControlMDX $dname 4 Treeview showsel hasbuttons linesatroot > $mdx.view
dll $mdx SetBorderStyle 6,7,8 staticedge
did -a $dname 4 +b Aop
did -i $dname 4 1 cb root last 1
var %x = 1
while (%x <= $ini($settings(aop.txt),0)) {
did -a $dname 4 $ini($settings(aop.txt),%x)
inc %x
}
did -i $dname 4 1 cb root end
did -a $dname 4 +b Banlist
did -i $dname 4 1 cb root last 1
did -a $dname 4 Normal
did -a $dname 4 Halt
did -i $dname 4 1 cb root end
dll $mdx SetControlMDX $dname 5 listview report showsel rowselect nosortheader > $mdx.view
did -i $dname 5 1 headerdims 22:1 100:2 150:3
did -i $dname 5 1 headertext + 0 $chr(32) $+ $chr(9) $+ 0 Name $+ $chr(9) $+ 0 BuzzenPassport
did -i $dname 5 1 seticon normal $icon(owner.ico)
did -i $dname 5 1 seticon normal $icon(host.ico)
}
on *:dialog:aop:sclick:4: {
tokenize 32 $did(4,1)
var %branch = $4-
if ($1 == slclick) {
if ($4 == 2) {
if ($ini($settings(aop.txt),$calc($5 - 1)) == Halt) {
did -r aop 5
did -i $dname 5 1 headerdims 272:1
did -i $dname 5 1 headertext + 0 Channels For Global Ops To Be Halted On
dialog -t aop aop : Aop Halt
var %x = 1
while (%x <= $ini($settings(aop.txt),Halt,0)) {
did -a aop 5 0 + 0 $ini($settings(aop.txt),Halt,%x)
inc %x
}
}
elseif ($5) {
did -r aop 5
did -i $dname 5 1 headerdims 22:1 100:2 150:3
did -i $dname 5 1 headertext + 0 $chr(32) $+ $chr(9) $+ 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %room = $ini($settings(aop.txt),$calc($5 - 1))
dialog -t aop aop : Aop %room
var %x = 1
while (%x <= $ini($settings(aop.txt),%room,0)) {
did -a aop 5 0 + $iif($gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),1,32) == owner,1,2) $+ $chr(9) $+ $gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),2-,32) $+ $chr(9) $+ $ini($settings(aop.txt),%room,%x)
inc %x
}
}
}
if ($4 == 3) {
if ($5 == 2) {
dialog -t aop aop : Banlist Normal
did -r $dname 5
did -i $dname 5 1 headerdims 70:1 100:2 102:3
did -i $dname 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport $+ $chr(9) $+ 0 Reason
var %x = 1
while (%x <= $ini($settings(banlist.txt),normal,0)) {
did -a aop 5 0 + $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),1,32) $+ $chr(9) $+ $ini($settings(banlist.txt),normal,%x) $+ $chr(9) $+ $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),2-,32)
inc %x
}
}
if ($5 == 3) {
dialog -t aop aop : Banlist Halt
did -r $dname 5
did -i $dname 5 1 headerdims 272:1
did -i $dname 5 1 headertext + 0 Channels For Banlists To Be Halted On
var %x = 1
while (%x <= $ini($settings(banlist.txt),halt,0)) {
did -a aop 5 0 + $ini($settings(banlist.txt),halt,%x)
inc %x
}
}
}
if ($4 == 4) {
did -r $dname 5
did -i $dname 5 1 headerdims 100:1 170:2
did -i $dname 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %x = 1
while (%x <= $ini($settings(pornlist.txt),porn,0)) {
did -a aop 5 0 + $readini($settings(pornlist.txt),porn,$ini($settings(pornlist.txt),porn,%x)) $+ $chr(9) $+ $ini($settings(pornlist.txt),porn,%x)
inc %x
}
}
}
did -i aop 4 1 cb root %branch
}
on *:dialog:aop:sclick:6: {
if ($dialog($dname).title == aop : Aop Halt) {
remini $settings(aop.txt) halt $$gettok($did($dname,5).seltext,6,32)
aop.refresh
halt
}
if ($dialog($dname).title == aop : Banlist Halt) {
remini $settings(banlist.txt) halt $$gettok($did($dname,5).seltext,6,32)
aop.refresh
halt
}
if ($dialog($dname).title == aop : Banlist Normal) {
remini $settings(banlist.txt) normal $$gettok($gettok($did($dname,5).seltext,2,9),5,32)
aop.refresh
halt
}
if ($ini($settings($$gettok($dialog($dname).title,4,32) $+ .txt),$$gettok($dialog($dname).title,5,32),0) == 1) {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32)
}
else {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32) $$gettok($gettok($did($dname,5).seltext,3,9),5,32)
}
aop.refresh
}
on *:dialog:aop:sclick:7: {
aop.refresh
}
alias aop.refresh {
did -i aop 4 1 page wb
tokenize 32 $did(aop,4,1)
var %branch = $3-
if ($1 == slclick) {
if ($3 == 2) {
if ($ini($settings(aop.txt),$calc($4 - 1)) == Halt) {
did -r aop 5
did -i $dname 5 1 headerdims 272:1
did -i $dname 5 1 headertext + 0 Channels For Global Ops To Be Halted On
dialog -t aop aop : Aop Halt
var %x = 1
while (%x <= $ini($settings(aop.txt),Halt,0)) {
did -a aop 5 0 + 0 $ini($settings(aop.txt),Halt,%x)
inc %x
}
}
elseif ($4) {
did -r aop 5
var %room = $ini($settings(aop.txt),$calc($4 - 1))
dialog -t aop aop : Aop %room
var %x = 1
while (%x <= $ini($settings(aop.txt),%room,0)) {
did -a aop 5 0 + $iif($gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),1,32) == owner,1,2) $+ $chr(9) $+ $gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),2-,32) $+ $chr(9) $+ $ini($settings(aop.txt),%room,%x)
inc %x
}
did -i aop 5 1 headerdims 22:1 100:2 150:3
}
}
if ($3 == 3) {
if ($4 == 2) {
dialog -t aop aop : Banlist Normal
did -r aop 5
did -i aop 5 1 headerdims 70:1 100:2 102:3
did -i aop 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport $+ $chr(9) $+ 0 Reason
var %x = 1
while (%x <= $ini($settings(banlist.txt),normal,0)) {
did -a aop 5 0 + $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),1,32) $+ $chr(9) $+ $ini($settings(banlist.txt),normal,%x) $+ $chr(9) $+ $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),2-,32)
inc %x
}
}
if ($4 == 3) {
dialog -t aop aop : Banlist Halt
did -r aop 5
did -i aop 5 1 headerdims 272:1
did -i aop 5 1 headertext + 0 Channels For Banlists To Be Halted On
var %x = 1
while (%x <= $ini($settings(banlist.txt),halt,0)) {
did -a aop 5 0 + $ini($settings(banlist.txt),halt,%x)
inc %x
}
}
}
if ($3 == 4) {
did -r aop 5
did -i aop 5 1 headerdims 100:1 170:2
did -i aop 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %x = 1
while (%x <= $ini($settings(pornlist.txt),porn,0)) {
did -a aop 5 0 + $readini($settings(pornlist.txt),porn,$ini($settings(pornlist.txt),porn,%x)) $+ $chr(9) $+ $ini($settings(pornlist.txt),porn,%x)
inc %x
}
}
}
did -r aop 4
did -a aop 4 $+(+,$iif($gettok(%branch,1,32) == 2,e),b) Aop
did -i aop 4 1 cb root last 1
var %x = 1
while (%x <= $ini($settings(aop.txt),0)) {
did -a aop 4 $ini($settings(aop.txt),%x)
inc %x
}
did -i aop 4 1 cb root end
did -a aop 4 $+(+,$iif($gettok(%branch,1,32) == 3,e),b) Banlist
did -i aop 4 1 cb root last 1
did -a aop 4 Normal
did -a aop 4 Halt
did -i aop 4 1 cb root end
did -i aop 4 1 cb root %branch
}
on *:dialog:aop:sclick:8: {
if ($nick == $me) {
dialog -x aop aop
dialog -m switch switch
}
}
alias ab { dialog -m aop switchbar }
alias cab { dll $rebar UnDock left | dialog -x aop aop }
alias rebar { return rebar.dll }
Is this a script you downloaded, or one you made? If it's one you downloaded, ask the author.
This is one I am making not one downloaded & i was just needing a little help with the buttons on both dialogs & the drop list thingy to show the rooms. on the protections dialog.
Unfortunately, dialogs aren't my strong point. Someone else here who is better suited will help you.
one thing you have the alias rebar in there like 4 times but that's besides the point.
in your init you keep setting %x to 4 in your get channels loop... set it to 1. I would personally make me and alias so i could call it on more than just the init.
something like alias getchans {
var %x = 1
while (%x <= $chan(0)) {
did -a switchbar 4,7 $chan(%x)
inc %x
}
}
As for your buttons i'm sorta wondering why you are using readini on txt files. I guess i need to know what your $settings(chanoptions.txt) actually does as i don't see the alias defined anywheres
Get information about ircWx here
Well i fixed the protections dialog but to answer your question the chanoptions.txt tells the dialiog the value of true or false to tun on & off the protections & work the off & on icons at the same time so it reads from the channel options text file wether they are LimitOwners=$true or JoinFlood=$false my protections are set up like this
on *:part:#: {
;Join Flood
if ($readini($settings(chanoptions.txt),$iif($ini($settings(chanoptions.txt),#,0) != 0,#,Default),JoinFlood)) && ($me isop $chan) {
.timerlimit 1 3 mode $!chr(37) $!+ $right(#,-1) +l $calc($nick(#,0) + 2)
}
}
Now my AOP i do need help with if you can, I click on Delete after clicking a name or room in my AOP list windows they dont delete, can ya help me fix that one button ?
:/dialog -m aoplist aoplist
}
dialog aoplist {
alias ab { dialog -m aoplist aoplist }
alias cab { dll $rebar UnDock left | dialog -x aoplist aoplist }
alias rebar { return rebar.dll }
dialog aoplist {
title "AOPbar"
size 0 0 188 752
option pixels
icon 4, 0 0 188 800, pictures\sidebar1.jpg, 0, noborder
icon 7, 1 0 184 204, pictures\face.jpg, 0
text "Users AOP List Options", 8, 37 210 112 16
list 1, 3 225 182 130, size
list 2, 3 390 183 130, size
button "Remove", 5, 4 359 57 25
button "Refresh", 6, 65 359 57 25
button "Done", 13, 127 359 57 25
text "Aop", 3, 6 532 22 16
text "$group(#aop)", 9, 45 532 34 16
button "Enable", 10, 81 529 50 19
button "Disable", 11, 136 529 50 19
text "Banlist", 12, 6 554 35 16
text "$group(#aop)", 14, 45 554 34 16
button "Enable", 15, 81 554 50 19
button "Disable", 16, 136 554 50 19
text "AOP Halt Channel", 17, 6 581 91 16
button "Button", 18, 109 581 75 16
text "Bans Halt Channel", 19, 6 602 91 16
button "Button", 20, 108 602 75 16
}
on *:dialog:aoplist:init:0: {
dll $rebar Dock $dialog($dname).hwnd > left
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetControlMDX $dname 1 Treeview showsel hasbuttons linesatroot > $mdx.view
dll $mdx SetBorderStyle 5,6,13 staticedge
did -a $dname 1 +b Aop
did -i $dname 1 1 cb root last 1
var %x = 1
while (%x <= $ini($settings(aop.txt),0)) {
did -a $dname 1 $ini($settings(aop.txt),%x)
inc %x
}
did -i $dname 1 1 cb root end
did -a $dname 1 +b Banlist
did -i $dname 1 1 cb root last 1
did -a $dname 1 Normal
did -a $dname 1 Halt
did -i $dname 1 1 cb root end
dll $mdx SetControlMDX $dname 2 listview report showsel rowselect nosortheader > $mdx.view
did -i $dname 2 1 headerdims 22:1 100:2 150:3
did -i $dname 2 1 headertext + 0 $chr(32) $+ $chr(9) $+ 0 Name $+ $chr(9) $+ 0 BuzzenPassport
did -i $dname 2 1 seticon normal $icon(owner.ico)
did -i $dname 2 1 seticon normal $icon(host.ico)
}
on *:dialog:aoplist:sclick:1: {
tokenize 32 $did(1,1)
var %branch = $4-
if ($1 == slclick) {
if ($4 == 2) {
if ($ini($settings(aop.txt),$calc($5 - 1)) == Halt) {
did -r aoplist 2
did -i $dname 2 1 headerdims 272:1
did -i $dname 2 1 headertext + 0 Channels For Global Ops To Be Halted On
dialog -t aoplist AOPlist : Aop Halt
var %x = 1
while (%x <= $ini($settings(aop.txt),Halt,0)) {
did -a aoplist 2 0 + 0 $ini($settings(aop.txt),Halt,%x)
inc %x
}
}
elseif ($5) {
did -r aoplist 2
did -i $dname 2 1 headerdims 22:1 100:2 150:3
did -i $dname 2 1 headertext + 0 $chr(32) $+ $chr(9) $+ 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %room = $ini($settings(aop.txt),$calc($5 - 1))
dialog -t aoplist AOPlist : Aop %room
var %x = 1
while (%x <= $ini($settings(aop.txt),%room,0)) {
did -a aoplist 2 0 + $iif($gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),1,32) == owner,1,2) $+ $chr(9) $+ $gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),2-,32) $+ $chr(9) $+ $ini($settings(aop.txt),%room,%x)
inc %x
}
}
}
if ($4 == 3) {
if ($5 == 2) {
dialog -t aoplist AOPlist : Banlist Normal
did -r $dname 2
did -i $dname 2 1 headerdims 70:1 100:2 102:3
did -i $dname 2 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport $+ $chr(9) $+ 0 Reason
var %x = 1
while (%x <= $ini($settings(banlist.txt),normal,0)) {
did -a aoplist 2 0 + $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),1,32) $+ $chr(9) $+ $ini($settings(banlist.txt),normal,%x) $+ $chr(9) $+ $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),2-,32)
inc %x
}
}
if ($5 == 3) {
dialog -t aoplist AOPlist : Banlist Halt
did -r $dname 2
did -i $dname 2 1 headerdims 272:1
did -i $dname 2 1 headertext + 0 Channels For Banlists To Be Halted On
var %x = 1
while (%x <= $ini($settings(banlist.txt),halt,0)) {
did -a aoplist 2 0 + $ini($settings(banlist.txt),halt,%x)
inc %x
}
}
}
if ($4 == 4) {
did -r $dname 2
did -i $dname 2 1 headerdims 100:1 170:2
did -i $dname 2 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %x = 1
while (%x <= $ini($settings(pornlist.txt),porn,0)) {
did -a aoplist 2 0 + $readini($settings(pornlist.txt),porn,$ini($settings(pornlist.txt),porn,%x)) $+ $chr(9) $+ $ini($settings(pornlist.txt),porn,%x)
inc %x
}
}
}
did -i aoplist 1 1 cb root %branch
}
on *:dialog:aoplist:sclick:5: {
if ($dialog($dname).title == AOPlist : Aop Halt) {
remini $settings(aop.txt) halt $$gettok($did($dname,2).seltext,6,32)
aoplist.refresh
halt
}
if ($dialog($dname).title == AOPlist : Banlist Halt) {
remini $settings(banlist.txt) halt $$gettok($did($dname,2).seltext,6,32)
aoplist.refresh
halt
}
if ($dialog($dname).title == AOPlist : Banlist Normal) {
remini $settings(banlist.txt) normal $$gettok($gettok($did($dname,2).seltext,2,9),5,32)
aoplist.refresh
halt
}
if ($ini($settings($$gettok($dialog($dname).title,4,32) $+ .txt),$$gettok($dialog($dname).title,5,32),0) == 1) {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32)
}
else {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32) $$gettok($gettok($did($dname,2).seltext,3,9),5,32)
}
aoplist.refresh
}
on *:dialog:aoplist:sclick:6: {
aoplist.refresh
}
alias aoplist.refresh {
did -i aoplist 1 1 page wb
tokenize 32 $did(aoplist,1,1)
var %branch = $3-
if ($1 == slclick) {
if ($3 == 2) {
if ($ini($settings(aop.txt),$calc($4 - 1)) == Halt) {
did -r aoplist 2
did -i $dname 2 1 headerdims 272:1
did -i $dname 2 1 headertext + 0 Channels For Global Ops To Be Halted On
dialog -t aoplist AOPlist : Aop Halt
var %x = 1
while (%x <= $ini($settings(aop.txt),Halt,0)) {
did -a aoplist 2 0 + 0 $ini($settings(aop.txt),Halt,%x)
inc %x
}
}
elseif ($4) {
did -r aoplist 2
var %room = $ini($settings(aop.txt),$calc($4 - 1))
dialog -t aoplist AOPlist : Aop %room
var %x = 1
while (%x <= $ini($settings(aop.txt),%room,0)) {
did -a aoplist 2 0 + $iif($gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),1,32) == owner,1,2) $+ $chr(9) $+ $gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),2-,32) $+ $chr(9) $+ $ini($settings(aop.txt),%room,%x)
inc %x
}
did -i aoplist 2 1 headerdims 22:1 100:2 150:3
}
}
if ($3 == 3) {
if ($4 == 2) {
dialog -t aoplist AOPlist : Banlist Normal
did -r aoplist 2
did -i aoplist 2 1 headerdims 70:1 100:2 102:3
did -i aoplist 2 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport $+ $chr(9) $+ 0 Reason
var %x = 1
while (%x <= $ini($settings(banlist.txt),normal,0)) {
did -a aoplist 2 0 + $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),1,32) $+ $chr(9) $+ $ini($settings(banlist.txt),normal,%x) $+ $chr(9) $+ $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),2-,32)
inc %x
}
}
if ($4 == 3) {
dialog -t aoplist AOPlist : Banlist Halt
did -r aoplist 2
did -i aoplist 2 1 headerdims 272:1
did -i aoplist 2 1 headertext + 0 Channels For Banlists To Be Halted On
var %x = 1
while (%x <= $ini($settings(banlist.txt),halt,0)) {
did -a aoplist 2 0 + $ini($settings(banlist.txt),halt,%x)
inc %x
}
}
}
if ($3 == 4) {
did -r aoplist 2
did -i aoplist 2 1 headerdims 100:1 170:2
did -i aoplist 2 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %x = 1
while (%x <= $ini($settings(pornlist.txt),porn,0)) {
did -a aoplist 2 0 + $readini($settings(pornlist.txt),porn,$ini($settings(pornlist.txt),porn,%x)) $+ $chr(9) $+ $ini($settings(pornlist.txt),porn,%x)
inc %x
}
}
}
did -r aoplist 1
did -a aoplist 1 $+(+,$iif($gettok(%branch,1,32) == 2,e),b) Aop
did -i aoplist 1 1 cb root last 1
var %x = 1
while (%x <= $ini($settings(aop.txt),0)) {
did -a aoplist 1 $ini($settings(aop.txt),%x)
inc %x
}
did -i aoplist 1 1 cb root end
did -a aoplist 1 $+(+,$iif($gettok(%branch,1,32) == 3,e),b) Banlist
did -i aoplist 1 1 cb root last 1
did -a aoplist 1 Normal
did -a aoplist 1 Halt
did -i aoplist 1 1 cb root end
did -i aoplist 1 1 cb root %branch
}
on *:dialog:aoplist:sclick:13: {
if ($nick == $me) {
dialog -x aoplist aoplist
dialog -m switch switch
}
}
alias ab { dialog -m switch switch }
alias cab { dll $rebar UnDock left | dialog -x aoplist aoplist }
alias rebar { return rebar.dll }
on *:DIALOG:aoplist:sclick:*:{
if ($did == 10) { .enable #aop | did -ra aoplist 9 $group(#aop) }
if ($did == 11) { .disable #aop | did -ra aoplist 9 $group(#aop) }
if ($did == 15) { .enable #Banlist | did -ra aoplist 14 $group(#Banlist) }
if ($did == 16) { .disable #Banlist | did -ra aoplist 14 $group(#Banlist) }
}
on *:dialog:aoplist:sclick:18: { writeini $settings(aop.txt) Halt # Halted }
on *:dialog:aoplist:sclick:20: { writeini $settings(banlist.txt) Halt # Halted }
For one thing you were missing a few aliases from what I saw. You were missing the aliases for mdx.dll, views.mdx, and especially the one for $settings. I added the mdx.dll, and views.mdx aliases, but only you know what you want the $settings alias to do. So, I couldn't help you out with that one. Here is what I have so far...
;===============================================================================
====
;----[ Switch Bars ]-----------------------------------------------------------------
;===============================================================================
====
menu * {
-
Switch Bar: dialog -m switchbar switchbar
-
}
dialog switchbar {
alias si { dialog -m switchbar switchbar }
alias csi { dll $rebar UnDock left | dialog -x switchbar switchbar }
alias ab { dialog -m aop aop }
alias cab { dll $rebar UnDock left | dialog -x aop aop }
alias switchbar.update {
did -o switchbar 2 2 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),PornNick) == $true,1 On,2 Off) $+ $chr(9) $+ Porn Nick $+ $chr(9) $+ + Kick For Porn Style Nicks
did -o switchbar 2 3 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AsciiNick) == $true,1 On,2 Off) $+ $chr(9) $+ Ascii Nick $+ $chr(9) $+ + Kick For Nicks With Ascii
did -o switchbar 2 4 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),BanProtection) == $true,1 On,2 Off) $+ $chr(9) $+ Ban Protection $+ $chr(9) $+ + Kick If Someone Adds Deny On You
did -o switchbar 2 5 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AccessAll) == $true,1 On,2 Off) $+ $chr(9) $+ Access All $+ $chr(9) $+ + Kick If Someone Adds *!*@*$* To Access
did -o switchbar 2 6 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),TextFlood) == $true,1 On,2 Off) $+ $chr(9) $+ Text Flood $+ $chr(9) $+ + Kick For Text Floods
did -o switchbar 2 7 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AwayFlood) == $true,1 On,2 Off) $+ $chr(9) $+ Away Flood $+ $chr(9) $+ + Kick For Away Floods
did -o switchbar 2 8 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoColours) == $true,1 On,2 Off) $+ $chr(9) $+ No Colours $+ $chr(9) $+ + Kick For Mirc Colours
did -o switchbar 2 9 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoVoice) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Voice $+ $chr(9) $+ + Give People Voice On Entry
did -o switchbar 2 10 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoHost) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Host $+ $chr(9) $+ + Give People Host On Entry
did -o switchbar 2 11 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),SafeHost) == $true,1 On,2 Off) $+ $chr(9) $+ Safe Host $+ $chr(9) $+ + Hosts Cant Kick Or Dehost Other Hosts Or Host Others
did -o switchbar 2 12 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoAwayHost) == $true,1 On,2 Off) $+ $chr(9) $+ No Away Host $+ $chr(9) $+ + Takes Host Of People Who Go Away
did -o switchbar 2 13 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),LoadsHosts) == $true,1 On,2 Off) $+ $chr(9) $+ Loads Hosts $+ $chr(9) $+ + DeHost If Theres Lots Of Hosts
did -o switchbar 2 14 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),LimitOwners) == $true,1 On,2 Off) $+ $chr(9) $+ Limit Owners $+ $chr(9) $+ + Limit The Amount Of Owners There Are
did -o switchbar 2 15 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),LimitHosts) == $true,1 On,2 Off) $+ $chr(9) $+ Limit Hosts $+ $chr(9) $+ + Limit The Amount Of Hosts There Are
did -o switchbar 2 16 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoGuestOps) == $true,1 On,2 Off) $+ $chr(9) $+ No Guest Ops $+ $chr(9) $+ + Guests Cant Become Hosts
did -o switchbar 2 17 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),ModeLock) == $true,1 On,2 Off) $+ $chr(9) $+ Mode Lock $+ $chr(9) $+ + If A Host Changes Modes It Resets To Desired Modes
did -o switchbar 2 18 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),TopicLock) == $true,1 On,2 Off) $+ $chr(9) $+ Topic Lock $+ $chr(9) $+ + If A Host Changes Topic It Resets And Kicks
did -o switchbar 2 18 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),NoRgk) == $true,1 On,2 Off) $+ $chr(9) $+ No Rgk $+ $chr(9) $+ + Kicks Random Gatekeepers
did -o switchbar 2 19 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),JoinFlood) == $true,1 On,2 Off) $+ $chr(9) $+ Join Flood $+ $chr(9) $+ + Changes Roomlimit To Stop Guest Floods
did -o switchbar 2 20 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),RoomSpam) == $true,1 On,2 Off) $+ $chr(9) $+ Room Spam $+ $chr(9) $+ + Stops People Posting Room Links
did -o switchbar 2 21 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),CapsKick) == $true,1 On,2 Off) $+ $chr(9) $+ Caps Kick $+ $chr(9) $+ + Kicks For Excessive Caps
did -o switchbar 2 22 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoRevolve) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Revolve $+ $chr(9) $+ + Kicks For Excessive Entering And Leaving
did -o switchbar 2 23 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),AutoVoice) == $true,1 On,2 Off) $+ $chr(9) $+ Auto Voice $+ $chr(9) $+ + Auto Voices Those Who Enter Room
did -o switchbar 2 24 0 + $iif($readini($settings(chanoptions.txt),$did(switchbar,4),whisprkick) == $true,1 On,2 Off) $+ $chr(9) $+ whispr kick $+ $chr(9) $+ + Kicks Those Who Whisper You
}
alias sb { dialog -m switchbar switchbar }
alias csb { dll $rebar UnDock left | dialog -x switchbar switchbar }
alias rebar { return rebar.dll }
alias mdx { return mdx.dll }
alias mdx.view { return views.mdx }
alias aop.refresh {
did -i aop 4 1 page wb
tokenize 32 $did(aop,4,1)
var %branch = $3-
if ($1 == slclick) {
if ($3 == 2) {
if ($ini($settings(aop.txt),$calc($4 - 1)) == Halt) {
did -r aop 5
did -i $dname 5 1 headerdims 272:1
did -i $dname 5 1 headertext + 0 Channels For Global Ops To Be Halted On
dialog -t aop aop : Aop Halt
var %x = 1
while (%x <= $ini($settings(aop.txt),Halt,0)) {
did -a aop 5 0 + 0 $ini($settings(aop.txt),Halt,%x)
inc %x
}
}
elseif ($4) {
did -r aop 5
var %room = $ini($settings(aop.txt),$calc($4 - 1))
dialog -t aop aop : Aop %room
var %x = 1
while (%x <= $ini($settings(aop.txt),%room,0)) {
did -a aop 5 0 + $iif($gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),1,32) == owner,1,2) $+ $chr(9) $+ $gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),2-,32) $+ $chr(9) $+ $ini($settings(aop.txt),%room,%x)
inc %x
}
did -i aop 5 1 headerdims 22:1 100:2 150:3
}
}
if ($3 == 3) {
if ($4 == 2) {
dialog -t aop aop : Banlist Normal
did -r aop 5
did -i aop 5 1 headerdims 70:1 100:2 102:3
did -i aop 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport $+ $chr(9) $+ 0 Reason
var %x = 1
while (%x <= $ini($settings(banlist.txt),normal,0)) {
did -a aop 5 0 + $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),1,32) $+ $chr(9) $+ $ini($settings(banlist.txt),normal,%x) $+ $chr(9) $+ $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),2-,32)
inc %x
}
}
if ($4 == 3) {
dialog -t aop aop : Banlist Halt
did -r aop 5
did -i aop 5 1 headerdims 272:1
did -i aop 5 1 headertext + 0 Channels For Banlists To Be Halted On
var %x = 1
while (%x <= $ini($settings(banlist.txt),halt,0)) {
did -a aop 5 0 + $ini($settings(banlist.txt),halt,%x)
inc %x
}
}
}
if ($3 == 4) {
did -r aop 5
did -i aop 5 1 headerdims 100:1 170:2
did -i aop 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %x = 1
while (%x <= $ini($settings(pornlist.txt),porn,0)) {
did -a aop 5 0 + $readini($settings(pornlist.txt),porn,$ini($settings(pornlist.txt),porn,%x)) $+ $chr(9) $+ $ini($settings(pornlist.txt),porn,%x)
inc %x
}
}
}
did -r aop 4
did -a aop 4 $+(+,$iif($gettok(%branch,1,32) == 2,e),b) Aop
did -i aop 4 1 cb root last 1
var %x = 1
while (%x <= $ini($settings(aop.txt),0)) {
did -a aop 4 $ini($settings(aop.txt),%x)
inc %x
}
did -i aop 4 1 cb root end
did -a aop 4 $+(+,$iif($gettok(%branch,1,32) == 3,e),b) Banlist
did -i aop 4 1 cb root last 1
did -a aop 4 Normal
did -a aop 4 Halt
did -i aop 4 1 cb root end
did -i aop 4 1 cb root %branch
}
dialog switchbar {
title "Protections"
size 0 0 246 752
option pixels
box "Protections", 1, 4 8 237 187
list 2, 8 21 228 169, size
text "Channel", 3, 6 207 50 16
combo 4, 59 202 181 69, drop
box "Channels Not Using Default Set-Up", 5, 4 262 238 231
list 6, 7 277 230 213, size
combo 7, 3 495 239 82, size drop
button "Turn On", 8, 7 230 57 25
button "Turn Off", 9, 87 231 65 25
button "Add", 10, 4 520 75 25
button "Remove", 11, 166 520 75 25
icon 77, 0 0 244 800, pictures\sidebar.jpg, 0, noborder
icon 12, 22 549 187 194, pictures\face.jpg, 0, noborder
button "Done", 13, 168 231 60 25
}
on *:dialog:switchbar:init:0: {
dll $rebar Dock $dialog($dname).hwnd > left
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetBorderStyle 8,9,10,11 staticedge
var %x = 4, %y = blah
while (%x <= $ini($settings(chanoptions.txt),0)) {
did -a $dname 4 $ini($settings(chanoptions.txt),%x)
if ($ini($settings(chanoptions.txt),%x) != Default) did -a $dname 6 $ini($settings(chanoptions.txt),%x)
if ($active == $ini($settings(chanoptions.txt),%x)) { var %y = %x }
inc %x
}
did -c $dname 4 $iif(%y != blah,%y,1)
dll $mdx SetControlMDX $dname 2 listview report showsel rowselect nosortheader > $mdx.view
did -i $dname 2 1 headerdims 40:1 90:2 300:3
did -i $dname 2 1 headertext + 0 $chr(32) $+ $chr(9) $+ + 0 Option/Prots $+ $chr(9) $+ 0 Description
did -i $dname 2 1 seticon normal $icon(true.ico)
did -i $dname 2 1 seticon normal $icon(false.ico)
var %x = 4
while (%x <= $chan(0)) {
did -a $dname 7 $chan(%x)
inc %x
}
switchbar.update
}
on *:dialog:switchbar:sclick:4: {
switchbar.update
}
on *:dialog:switchbar:sclick:2: {
var %type = $$remove($gettok($gettok($did(2,4).seltext,2,8),5-,32),$chr(32))
if (%type == TopicLock) || (%type == ModeLock) {
did -e $dname 7
}
else did -b $dname 7
}
on *:dialog:switchbar:sclick:7: {
var %type = $$remove($gettok($gettok($did(2,4).seltext,2,8),5-,32),$chr(32))
if (%type == TopicLock) {
writeini $settings(chanoptions.txt) $$did(4) LockedTopic $$input(What Topic Do You Want To Keep,e,Topic Lock,$readini($settings(chanoptions.txt),$$did(4),LockedTopic))
}
if (%type == ModeLock) {
writeini $settings(chanoptions.txt) $$did(4) LockedModes $$input(What Modes Do You Want To Keep,e,Topic Lock,$readini($settings(chanoptions.txt),$$did(4),LockedModes))
}
}
on *:dialog:switchbar:sclick:8: {
writeini $settings(chanoptions.txt) $$did(4) $$remove($gettok($gettok($did(2,8).seltext,2,8),5-,32),$chr(32)) $true
switchbar.update
}
on *:dialog:switchbar:sclick:10: {
writeini $settings(chanoptions.txt) $$did(4) $$remove($gettok($gettok($did(2,8).seltext,2,8),5-,32),$chr(32)) $false
switchbar.update
}
on *:dialog:switchbar:sclick:11: {
remini $settings(chanoptions.txt) $$did(6).seltext
did -r $dname 4,6
var %x = 4, %y = blah
while (%x <= $ini($settings(chanoptions.txt),0)) {
did -a $dname 4 $ini($settings(chanoptions.txt),%x)
if ($ini($settings(chanoptions.txt),%x) != Default) did -a $dname 6 $ini($settings(chanoptions.txt),%x)
if ($active == $ini($settings(chanoptions.txt),%x)) { var %y = %x }
inc %x
}
}
on *:dialog:switchbar:sclick:10: {
writeini $settings(chanoptions.txt) $$did(7) Default $false
did -r $dname 4,6
var %x = 4, %y = blah
while (%x <= $ini($settings(chanoptions.txt),0)) {
did -a $dname 4 $ini($settings(chanoptions.txt),%x)
if ($ini($settings(chanoptions.txt),%x) != Default) did -a $dname 6 $ini($settings(chanoptions.txt),%x)
if ($active == $ini($settings(chanoptions.txt),%x)) { var %y = %x }
inc %x
}
}
on *:dialog:switchbar:sclick:13: {
if ($nick == $me) {
dialog -x switchbar switchbar
dialog -m switch switch
}
}
AOP Sidebar Code
CODE
:/dialog -m aop aop
}
dialog aop {
dialog aop {
title "AOPbar"
size 0 0 188 752
option pixels
icon 77, 0 0 188 800, pictures\sidebar1.jpg, 0, noborder
icon 1, 2 40 184 204, pictures\face.jpg, 0
text "Users AOP List Options", 3, 40 257 112 16
list 4, 3 279 182 130, size
list 5, 2 463 183 130, size
button "Remove", 6, 2 426 57 25
button "Refresh", 7, 63 426 57 25
button "Done", 8, 125 426 57 25
}
on *:dialog:aop:init:0: {
dll $rebar Dock $dialog($dname).hwnd > left
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetControlMDX $dname 4 Treeview showsel hasbuttons linesatroot > $mdx.view
dll $mdx SetBorderStyle 6,7,8 staticedge
did -a $dname 4 +b Aop
did -i $dname 4 1 cb root last 1
var %x = 1
while (%x <= $ini($settings(aop.txt),0)) {
did -a $dname 4 $ini($settings(aop.txt),%x)
inc %x
}
did -i $dname 4 1 cb root end
did -a $dname 4 +b Banlist
did -i $dname 4 1 cb root last 1
did -a $dname 4 Normal
did -a $dname 4 Halt
did -i $dname 4 1 cb root end
dll $mdx SetControlMDX $dname 5 listview report showsel rowselect nosortheader > $mdx.view
did -i $dname 5 1 headerdims 22:1 100:2 150:3
did -i $dname 5 1 headertext + 0 $chr(32) $+ $chr(9) $+ 0 Name $+ $chr(9) $+ 0 BuzzenPassport
did -i $dname 5 1 seticon normal $icon(owner.ico)
did -i $dname 5 1 seticon normal $icon(host.ico)
}
on *:dialog:aop:sclick:4: {
tokenize 32 $did(4,1)
var %branch = $4-
if ($1 == slclick) {
if ($4 == 2) {
if ($ini($settings(aop.txt),$calc($5 - 1)) == Halt) {
did -r aop 5
did -i $dname 5 1 headerdims 272:1
did -i $dname 5 1 headertext + 0 Channels For Global Ops To Be Halted On
dialog -t aop aop : Aop Halt
var %x = 1
while (%x <= $ini($settings(aop.txt),Halt,0)) {
did -a aop 5 0 + 0 $ini($settings(aop.txt),Halt,%x)
inc %x
}
}
elseif ($5) {
did -r aop 5
did -i $dname 5 1 headerdims 22:1 100:2 150:3
did -i $dname 5 1 headertext + 0 $chr(32) $+ $chr(9) $+ 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %room = $ini($settings(aop.txt),$calc($5 - 1))
dialog -t aop aop : Aop %room
var %x = 1
while (%x <= $ini($settings(aop.txt),%room,0)) {
did -a aop 5 0 + $iif($gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),1,32) == owner,1,2) $+ $chr(9) $+ $gettok($readini($settings(aop.txt),%room,$ini($settings(aop.txt),%room,%x)),2-,32) $+ $chr(9) $+ $ini($settings(aop.txt),%room,%x)
inc %x
}
}
}
if ($4 == 3) {
if ($5 == 2) {
dialog -t aop aop : Banlist Normal
did -r $dname 5
did -i $dname 5 1 headerdims 70:1 100:2 102:3
did -i $dname 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport $+ $chr(9) $+ 0 Reason
var %x = 1
while (%x <= $ini($settings(banlist.txt),normal,0)) {
did -a aop 5 0 + $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),1,32) $+ $chr(9) $+ $ini($settings(banlist.txt),normal,%x) $+ $chr(9) $+ $gettok($readini($settings(banlist.txt),normal,$ini($settings(banlist.txt),normal,%x)),2-,32)
inc %x
}
}
if ($5 == 3) {
dialog -t aop aop : Banlist Halt
did -r $dname 5
did -i $dname 5 1 headerdims 272:1
did -i $dname 5 1 headertext + 0 Channels For Banlists To Be Halted On
var %x = 1
while (%x <= $ini($settings(banlist.txt),halt,0)) {
did -a aop 5 0 + $ini($settings(banlist.txt),halt,%x)
inc %x
}
}
}
if ($4 == 4) {
did -r $dname 5
did -i $dname 5 1 headerdims 100:1 170:2
did -i $dname 5 1 headertext + 0 Name $+ $chr(9) $+ 0 BuzzenPassport
var %x = 1
while (%x <= $ini($settings(pornlist.txt),porn,0)) {
did -a aop 5 0 + $readini($settings(pornlist.txt),porn,$ini($settings(pornlist.txt),porn,%x)) $+ $chr(9) $+ $ini($settings(pornlist.txt),porn,%x)
inc %x
}
}
}
did -i aop 4 1 cb root %branch
}
on *:dialog:aoplist:sclick:5: {
if ($dialog($dname).title == AOPlist : Aop Halt) {
remini $settings(aop.txt) halt $$gettok($did($dname,2).seltext,6,32)
aoplist.refresh
halt
}
if ($dialog($dname).title == AOPlist : Banlist Halt) {
remini $settings(banlist.txt) halt $$gettok($did($dname,2).seltext,6,32)
aoplist.refresh
halt
}
if ($dialog($dname).title == AOPlist : Banlist Normal) {
remini $settings(banlist.txt) normal $$gettok($gettok($did($dname,2).seltext,2,9),5,32)
aoplist.refresh
halt
}
if ($ini($settings($$gettok($dialog($dname).title,4,32) $+ .txt),$$gettok($dialog($dname).title,5,32),0) == 1) {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32)
}
else {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32) $$gettok($gettok($did($dname,2).seltext,3,9),5,32)
}
aoplist.refresh
}
on *:dialog:aop:sclick:6: {
if ($dialog($dname).title == aop : Aop Halt) {
remini $settings(aop.txt) halt $$gettok($did($dname,5).seltext,6,32)
aop.refresh
halt
}
if ($dialog($dname).title == aop : Banlist Halt) {
remini $settings(banlist.txt) halt $$gettok($did($dname,5).seltext,6,32)
aop.refresh
halt
}
if ($dialog($dname).title == aop : Banlist Normal) {
remini $settings(banlist.txt) normal $$gettok($gettok($did($dname,5).seltext,2,9),5,32)
aop.refresh
halt
}
if ($ini($settings($$gettok($dialog($dname).title,4,32) $+ .txt),$$gettok($dialog($dname).title,5,32),0) == 1) {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32)
}
else {
remini $settings($$gettok($dialog($dname).title,4,32) $+ .txt) $$gettok($dialog($dname).title,5,32) $$gettok($gettok($did($dname,5).seltext,3,9),5,32)
}
aop.refresh
}
on *:dialog:aop:sclick:7: {
aop.refresh
}
on *:dialog:aop:sclick:8: {
if ($nick == $me) {
dialog -x aop aop
dialog -m switch switch
}
}
Woah, that code starts out with ...
:/dialog -m switchbar switchbar
}
dialog switchbar {
I didnt look further.
Cool bro, still has a bracket mismatch error ...
dialog switchbar {
Merry Christmas Warrior!!! ![]()
Lol yes Travis I took off the bracket below i got in bold & dialog quit working so i added ht back. Anyway thanks Warrior ill test it out now
And see if my AOP button works ![]()
:/dialog -m aoplist aoplist
} <----------------------------- thats the one i replaced back,lol
dialog aoplist {
alias ab { dialog -m aoplist aoplist }
alias cab { dll $rebar UnDock left | dialog -x aoplist aoplist }
alias rebar { return rebar.dll }
Sign in to reply or start a new topic where your account has permission.