IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

5Beğeni(ler)
  • 5 Post By AfraN

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Ağustos 2014, 10:40   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ü;


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
dialogu, kanallar, script


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
HD Kanal Frekansları - Türksattaki HD Kanallar - Türksat 3A Uydusundaki HD Kanallar PauL Uydu Dünyası 0 03 Ocak 2013 11:14
Ban Açma Dialogu KidmAn mIRC Scripting Hazır Kodlar 0 14 Eylül 2008 21:31
Uyarı dialogu Realinferno mIRC Scripting Sorunları 6 23 Haziran 2006 21:07