@,+,%) teşekkür dialog v1.

Bir çok ******'te gördüklerim sürekli olarak coder'in kendisi tarafından hazırladığı
kullanıcılar için seceneği olmayan event'lerdi bir iki arkadasım bunu yapmami rica ettiler ve bir arkadas 'ta baska forum sormustu bende kıramadım , dialog üzerinden istediğiniz kadar tesekkür mesajı ekleyip silebilirsiniz , otomatik olarak karısık okur txt'i uygulamalarda karısık olarka atar , kısacası sürekli değişken mesaj atar örneğin

a kanalında op aldı ise xxxxx mesajını gönderir
b kanalında op alınca ccccc mesajını gönderir..


Kod ;




Kod:
alias tesekkur { dialog -m tsk tsk }
dialog tsk {
title "Op-Voice-Hop ( Tesekkür Dialog ) | mirc, mırc, Türkçe mirc download, turkce mirc indir, mIRCTurk, mIRC turkçe ****** yükle ( Coded : LeadeR )"
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 *ialog: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 *eop:#: {
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 *evoice:#: {
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 *ehelp:#: {
if $hnick == $me {
msg $chan $nick $read(dh.txt)
}
}
#hop end

menu channel,status,menubar {
Tesekkurler:/tesekkur
}/tesekkur