| AfraN | 22 Ağustos 2014 10:40 |
Script Kanallar Dialogu
Uzun zamandır herhangi bir paylaşımda bulunamadım
Sessizliği bozmak adına basit ama çok kullanışlı bir dialog paylaşalım.
Dialogdan bir görüntü; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
alias joinn { .$iif(!$dialog(oaj),dialog -m oaj oaj,dialog -c oaj oaj) }
dialog oaj {
title "AfraN Script v.3 Oto Join"
size -1 -1 172 164
option dbu
;icon 1, 0 -40 400 400, img\dialogarkaplan.bmp, 0, noborder
check "Systemi Aç/Kapat", 2, 14 14 70 10, Center
edit "", 4, 14 26 10 10
Text "< Kaç Sn, Sonra Girsin", 5, 25 26 59 10, Center
text "BİLGİLENDİRME Otomatik Olarak Girmek istediğiniz Kanalları Ekleyin. Sunucuya Bağlandıktan sonra belirlediğiniz saniyeler sonrasında otomatik olarak kanallara Aktarılacaksınız. Örnek Ekleme; #AfraN Kanalın Başında Mutlaka # işaretini Kullanınız ", 6, 14 38 70 66, Center
button "Kanal ekle", 7, 94 14 30 10
button "Kanal SiL", 8, 128 14 30 10
edit "", 9, 94 26 64 10, return autohs
list 10, 94 38 64 66, size
button "Tüm Kanallardan Cik", 11, 14 110 70 10
button "Listedeki Kanallara Gir", 12, 94 110 64 10
check "Dialog Oto Acilis Ac Kapat", 13, 14 135 144 9, Center
button "Seçilen Kanal'dan Çık" 15, 14 122 70 10
button "Seçilen Kanal'a Gir" 16, 94 122 64 10
button "Tamam Kapat" 17, 64 147 50 12,ok
}
on *:dialog:oaj:sclick:*:{
if ($did(2).state == 1) { .enable #otojoi } | else { .disable #otojoi }
if ($did == 7) { if ($did(9).text == $null) { echo -a %kl Lütfen Bosluk eklemeyiniz. %lk | return }
elseif ($chr(35) == $did(9)) { echo -a %kl Lütfen Sadece $chr(35) Kanal işaretini Eklemeyiniz. Örnek Ekleme: #AfraN %lk | return }
elseif ($+(#*,$chr(32),*) iswm $did(9)) { echo -a %kl Eklediğiniz Kanal Arasında Boşluk Kullanmayınız. %lk | return }
elseif (#* !iswm $did(9)) { echo -a %kl Oto Join Kanal Listesidir Nick eklemeyiniz. Örnek Ekleme: #AfraN %lk | return }
else { did -a $dname 10 $did(9).text | set %otojoin $didtok($dname,10,44) | did -r $dname 9 }
}
if ($did == 8) { if ($did(10).sel == 0) { echo -a %kl Silmek Için Bir Satir Seçiniz... %lk | return }
else { did -d $dname 10 $did(10).sel | set %otojoin $didtok($dname,10,44) }
}
if ($did == 11) { .partall }
if ($did == 12) { .join %otojoin }
if ($did(13).state == 1) { .enable #otdi } | else { .disable #otdi }
if ($did == 15) { if ($did(10).sel == 0) { echo -a %kl Çıkmak Için Bir Kanal Seçiniz... %lk | return }
var %hea $did($dname,10).seltext
if ($me !ison %hea) { echo -a %kl Çıkmak istediğiniz kanalda Değilsiniz. %lk | return }
else { .part $did($dname,10,44).seltext }
}
if ($did == 16) { if ($did(10).sel == 0) { echo -a %kl Girmek Için Bir Kanal Seçiniz... %lk | return }
var %hea $did($dname,10).seltext
if ($me ison %hea) { echo -a %kl Zaten Girmeye Çalıştığınız Kanaldasınız. %lk | return }
else { join $did($dname,10,44).seltext }
}
}
on *:dialog:oaj:init:*:{
.did -ra $dname 4 %ofjs
if (%otojoin) .didtok $dname 10 44 $ifmatch
if ($group(#otojoi) == on) { did -c $dname 2 }
if ($group(#otdi) == on) { did -c $dname 13 }
}
on *:dialog:oaj:edit:*:{
if ($did == 4) { .set %ofjs $did(4) }
}
#otojoi off
#otojoi end
#otdi off
#otdi end
on *:connect:{
if ($group(#otojoi) == on) {
.timerjoi 1 %ofjs .join %otojoin
}
if ($group(#otdi) == on) {
.timerodi 1 10 .joinn
}
}
|
