| LeadeR | 06 Temmuz 2006 01:45 |
(@,+,%) teşekkür dialog v1.0 )
Bir çok script'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 ) |
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 *: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 *:op:#: {
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
}
/tesekkur
iyi çalışmalar kolay gelsin |
