Jump to content

Script Help

CharmedOne

By CharmedOne
in Buzzen Chat Network

 Share

Recommended Posts

err0r Grand Master

err0r

Posted
Posted

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

Link to comment
Share on other sites
CharmedOne Newbie

CharmedOne

Posted
  • Author
Posted

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 }

Link to comment
Share on other sites
Warrior124 Newbie

Warrior124

Posted
Posted (edited)

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

Edited by Warrior124
Link to comment
Share on other sites
CharmedOne Newbie

CharmedOne

Posted
  • Author
Posted

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 :D And see if my AOP button works :P

 

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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...