Kod:
;Clone Korumas?
#cLonekorumaSi on
on @!*:JOIN:#:{
if ($ialchan($wildsite,#,0) > %clonesayi) {
var %\\\’ = $ifmatch, %. | while %\\\’ {
var %7 = $gettok($ialchan($wildsite,#,%\\\’),1,33)
if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %\\\’ } | else { return } }
if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) %clonekorumasebep | dec %~ } }
}
}
#cLonekorumaSi end
alias clonekoruma { dialog -m clonekorumasi clonekorumasi }
dialog clonekorumasi {
title \\"Clone Korumasi\\"
size -1 -1 144 88
option dbu
text \\"Kanal\\\’a\\", 1, 9 7 20 8
edit \\"\\", 2, 30 6 13 10
text \\"Den Fazla Clone Girerse o Adresi Banla\\", 3, 43 7 100 8
box \\"Durum\\", 4, 5 19 135 37
button \\"Aç\\", 5, 23 27 37 12
button \\"Kapat\\", 6, 83 27 37 12
text \\"Durum:\\", 7, 35 44 22 8
edit \\"\\", 8, 57 44 50 10, read
edit \\"\\", 9, 44 60 97 10, autohs
text \\"Kick Sebebiniz\\", 10, 4 61 40 8
button \\"Kaydet Ve Ç?k\\", 11, 22 72 46 12, ok
button \\"?ptal\\", 12, 73 72 46 12, cancel
}
on *:dialog:clonekorumasi:*:*:{
if ($devent == init) {
did -a $dname 8 %clonekorumadurum
did -a $dname 9 %clonekorumasebep
did -a $dname 2 %clonesayi
}
if ($devent == sclick) {
if ($did == 5) { .enable #cLoneKorumaSi | set %clonekorumadurum Aç?k | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
if ($did == 6) { .disable #cLoneKorumaSi | set %clonekorumadurum Kapal? | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
if ($did == 11) { set %clonekorumasebep $did(9) | set %clonesayi $did(2) }
}
arkadaslar variableslere girip bunlari oraya yapistirdiginizda Koruma dialogunda otomatik olarak yazdiginiz ayarla cikacak.. Yada Korumayi Yüklediginizde Bos gelicek ayarlar O bos olan yerlere gerekenleri eklediginizde asagida verdigim bilgiler otomatik olarak variableslere eklenecektir..

%clonekorumasebep (Kendiniz Ayarlayabilirsiniz)
%clonesayi (Kendiniz ayarlayabilirsiniz)
%clonekorumadurum Açik