FoRuM KaNaLa #chanel

FoRuM KaNaLa #chanel
 
PrijemPrijem  PortalliPortalli  Često Postavljana PitanjaČesto Postavljana Pitanja  TražiTraži  Registruj seRegistruj se  Lista članovaLista članova  Korisničke grupeKorisničke grupe  Pristupi  

Delite | 
 

 Auto Voice

Ići dole 
AutorPoruka
^^^^Car^^^^
Member
Member


Broj poruka : 92
Location : Sombor
Datum upisa : 16.08.2007

PočaljiNaslov: Auto Voice   Ned Avg 19, 2007 3:56 pm

Kod:
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
  -
}
Nazad na vrh Ići dole
Pogledaj profil korisnika
 
Auto Voice
Nazad na vrh 
Strana 1 od 1

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
FoRuM KaNaLa #chanel :: Scripting :: Snipets-
Skoči na: