Teşekkür addonu

[aLLStaR]

alias tesekkur { dialog -m tsk tsk }

dialog tsk {

title "Op-Voice-Hop ( Tesekkür Dialog ) | [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "

size -1 -1 243 170

option dbu

tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160

button "Ekle", 8, 30 21 17 10, tab 1

edit "", 4, 55 20 178 13, tab 1 return autohs autovs

button "Sil", 9, 30 34 17 10, tab 1

button "Ekle", 10, 31 88 17 10, tab 1

edit "", 6, 55 87 178 13, tab 1 return autohs autovs

button "Sil", 11, 31 101 17 10, tab 1

list 5, 55 34 178 50, tab 1 size

list 7, 55 101 178 50, tab 1 size

check "Check Box", 31, 9 53 7 10, tab 1

edit "+(@) , -(@)", 32, 18 52 36 11, tab 1

tab "Voice - Devoice ( Tesekkür )", 2

button "Ekle", 15, 30 21 17 10, tab 2

edit "", 16, 55 20 178 13, tab 2 return autohs autovs

button "Sil", 17, 30 34 17 10, tab 2

button "Ekle", 19, 31 88 17 10, tab 2

edit "", 20, 55 87 178 13, tab 2 return autohs autovs

button "Sil", 21, 31 101 17 10, tab 2

list 18, 55 34 178 50, tab 2 size

list 22, 55 101 178 50, tab 2 size

check "Check Box", 33, 9 53 7 10, tab 2

edit "+(v) , -(v)", 34, 18 52 36 11, tab 2

tab "Hop-Dehop ( Tesekkür )", 3

button "Ekle", 23, 30 21 17 10, tab 3

edit "", 24, 55 20 178 13, tab 3 return autohs autovs

button "Sil", 25, 30 34 17 10, tab 3

button "Ekle", 27, 31 88 17 10, tab 3

edit "", 28, 55 87 178 13, tab 3 return autohs autovs

button "Sil", 29, 31 101 17 10, tab 3

list 26, 55 34 178 50, tab 3 size

list 30, 55 101 178 50, tab 3 size

check "Check Box", 35, 9 53 7 10, tab 3

edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3

button "Kapat", 14, 217 159 25 11, ok

box "", 13, 2 10 238 147

box "", 12, 7 14 228 139

}







on *:dialog:tsk:*:*: {

if ($devent == sclick) {

if ($did == 5) { did -ra $dname 4 $did(5).seltext }

if ($did == 8) {

if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }

did -r $dname 4

}

if ($did == 9) {

if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }

did -r $dname 4

}

if ($did == 7) { did -ra $dname 6 $did(7).seltext }

if ($did == 10) {

if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }

did -r $dname 6

}

if ($did == 11) {

if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }

did -r $dname 6

}

if ($did == 18) { did -ra $dname 16 $did(18).seltext }

if ($did == 15) {

if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }

did -r $dname 16

}

if ($did == 17) {

if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }

did -r $dname 16

}

if ($did == 22) { did -ra $dname 20 $did(22).seltext }

if ($did == 19) {

if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }

did -r $dname 20

}

if ($did == 21) {

if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }

did -r $dname 20

}

if ($did == 26) { did -ra $dname 24 $did(26).seltext }

if ($did == 23) {

if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }

did -r $dname 24

}

if ($did == 25) {

if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }

did -r $dname 24

}

if ($did == 30) { did -ra $dname 28 $did(30).seltext }

if ($did == 27) {

if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }

did -r $dname 28

}

if ($did == 29) {

if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }

did -r $dname 28

}

if ($did == 14) {

if ($did(31).state == 1) { .enable #op }

if ($did(31).state == 0) { .disable #op }

if ($did(33).state == 1) { .enable #vop }

if ($did(33).state == 0) { .disable #vop }

if ($did(35).state == 1) { .enable #hop }

if ($did(35).state == 0) { .disable #hop }

}

}

if ($devent == init) {

var %bd.s = 1

var %bd.t = $lines(op.txt)

while (%bd.s <= %bd.t) { did -a $dname 5 $read(op.txt,%bd.s) | inc %bd.s }

var %ad.s = 1

var %ad.t = $lines(deop.txt)

while (%ad.s <= %ad.t) { did -a $dname 7 $read(deop.txt,%ad.s) | inc %ad.s }

var %vd.s = 1

var %vd.t = $lines(v.txt)

while (%vd.s <= %vd.t) { did -a $dname 18 $read(v.txt,%vd.s) | inc %vd.s }

var %dvd.s = 1

var %dvd.t = $lines(dv.txt)

while (%dvd.s <= %dvd.t) { did -a $dname 22 $read(dv.txt,%dvd.s) | inc %dvd.s }

var %h.s = 1

var %h.t = $lines(h.txt)

while (%h.s <= %h.t) { did -a $dname 26 $read(h.txt,%h.s) | inc %h.s }

var %dh.s = 1

var %dh.t = $lines(dh.txt)

while (%dh.s <= %dh.t) { did -a $dname 30 $read(dh.txt,%dh.s) | inc %dh.s }

if ($group(#op) == on) { did -c $dname 31 } | if ($group(#op) == off) { did -u $dname 31 }

if ($group(#vop) == on) { did -c $dname 33 } | if ($group(#vop) == off) { did -u $dname 33 }

if ($group(#hop) == on) { did -c $dname 35 } | if ($group(#hop) == off) { did -u $dname 35 }

}

}



#op on

on *p:#: {

if $opnick == $me {

msg $chan $nick $read(op.txt)

}

}



on *:deop:#: {

if $opnick == $me {

msg $chan $nick $read(deop.txt)

}

}

#op end



#vop on

on *:voice:#: {

if $vnick == $me {

msg $chan $nick $read(v.txt)

}

}



on *:devoice:#: {

if $vnick == $me {

msg $chan $nick $read(dv.txt)

}

}

#vop end



#hop on

on *:help:#: {

if $hnick == $me {

msg $chan $nick $read(h.txt)

}

}



on *:dehelp:#: {

if $hnick == $me {

msg $chan $nick $read(dh.txt)

}

}

#hop end



menu channel,status,menubar {

Tesekkurler:/tesekkur

}