Auto Voice

alias av { dialog -m av av }
dialog av {
  title "Auto Voice"
  size -1 -1 185 188
  option dbu
  box "Nick", 1, 8 5 85 123
  list 2, 16 16 68 96
  edit "", 3, 16 109 68 10, autohs
  box "Chan", 4, 92 5 85 123
  list 5, 101 16 68 96
  edit "", 6, 101 109 68 10, autohs
  button "Add", 7, 15 134 33 12
  button "Del", 8, 51 134 33 12
  button "Add", 9, 100 134 33 12
  button "Del", 10, 136 134 33 12
  button "On", 11, 15 160 33 13
  button "Ok", 12, 51 160 82 13, ok
  button "Off", 13, 136 160 32 13
  box "", 14, 8 124 85 30
  box "", 15, 92 124 85 30
  box "", 16, 8 150 169 31
}
alias ava { dialog -m ava ava }
dialog ava {
  title "About"
  size -1 -1 120 135
  option dbu
  box "About Addon", 1, 5 4 109 39
  text "Addon : Auto Voice", 2, 11 15 97 8
  text "Version : v1 Beta", 3, 11 28 97 8
  box "About Author", 4, 5 44 109 84
  text "Author : br0nx", 5, 11 54 97 8
  text "Author Chan : #scr1pt1ng", 6, 11 70 97 8
  text "Author Serv : irc.krstarica.com", 7, 11 85 97 8
  text "Author Email : br0nx.20@inbox.com", 8, 11 100 97 8
  text "Author Address : br0nx.20.forumer.com", 9, 11 115 97 8
}
on *:dialog:av:init:*: {
  didtok $dname 2 32 %voice.nick
  didtok $dname 5 32 %voice.chan
}
on *:dialog:av:sclick:2: {
  if ($did(2).seltext) {
    did -ar $dname 3 $did(2).seltext
  }
}
on *:dialog:av:sclick:7: {
  if ($did(3).text) {
    set %voice.nick $addtok(%voice.nick,$did(3).text,32)
    did -a $dname 2 $did(3).text
    did -r $dname 3
  }
}
on *:dialog:av:sclick:8: {
  if ($did(2).sel) {
    set %voice.nick $deltok(%voice.nick,$did(2).sel,32)
    did -r $dname 3,2
    didtok $dname 2 32 %voice.nick
  }
}
on *:dialog:av:sclick:5: {
  if ($did(5).seltext) {
    did -ar $dname 6 $did(5).seltext
  }
}
on *:dialog:av:sclick:9: {
  if ($did(6).text) {
    set %voice.chan $addtok(%voice.chan,$did(6).text,32)
    did -a $dname 5 $did(6).text
    did -r $dname 6
  }
}
on *:dialog:av:sclick:10: {
  if ($did(5).sel) {
    set %voice.chan $deltok(%voice.chan,$did(5).sel,32)
    did -r $dname 6,5
    didtok $dname 5 32 %voice.chan
  }
}
on *:dialog:av:sclick:11: {
  enable #av
}
on *:dialog:av:sclick:12: {
}
on *:dialog:av:sclick:13: {
  disable #av
}
#av on
on *:join:#: {
  if ($me isop $chan) {
    var %i = 0
    while (%i < $numtok(%voice.nick,32)) {
      inc %i
      if ($nick iswm $gettok(%voice.nick,%i,32)) {
        var %t = 0
        while (%t < $numtok(%voice.chan,32)) {
          inc %t
          if ($chan iswm $gettok(%voice.chan,%t,32)) {
            mode $chan +v $nick
            notice $nick Send Message -= U Are In My Auto Voice List =- Auto Voice By br0nx
          }
        }
      }
    }
  }
}
#av end
menu * {
  -
  Auto Voice:av
  Auto Voice About:ava
  -
}