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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Mart 2011, 20:55   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Radyo Botu için !istek kapalı ve açık tcl isteği




merhaba arkadaşlar ben radyo botuna istek kapalı ve açık diye tcl yazılımı konusunda yardım istiyordum veya elinde bu işlevi yapan tcl si olan arkadaşların paylaşımını bekliyorum yani bizler yes no komutları gibi manuel olarak açık kapalı demek yerine dj istek almıyorsa veya oto yayın vs. tarzı durumlarda bota istek alımının kapalı olduğunu ve kapalı olma sebebini bildiren bir tcl istiyorum ben bu konuda yardımlarınızı bekliyorum herkese şimdiden yardımları için teşekkürler....

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Mart 2011, 00:10   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo Botu için !istek kapalı ve açık tcl isteği




Merhabalar.

İstediğiniz TCL'yi Aşağıdan Temin Edebilirsiniz.

Denedim, Sorunsuz Çalışmaktadır.

#DJ Kanalında !istek on/off komutları ile kullanabilirsiniz.

Lütfen Putlog Kısmındaki İsmi Değiştirmeyiniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !istek istekoff proc istekoff {nick uhost hand chan text} { setudef flag radyocmd if {[string match -nocase "#DJ" $chan]} { set komut [lindex $text 0] if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek on/off şeklindedir."; return 0 } if {[string match -nocase "on" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek."; return 0 } if {[string match -nocase "off" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0 } } if {[string match -nocase "#Radyo" $chan]} { if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} { putquick "PRIVMSG #Radyo :İsteğiniz DJ'lerimize İletilmiştir $nick." putquick "PRIVMSG #DJ Radyo İsteği: $text İstekte Bulunan Kullanıcı: $nick" } if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick." } } } putlog "Radyo Panel TCL v1.0 CLubber"

Bu TCL'yi Coder Namesis'in Clone TCL'sinden Esinlenerek Yazdım.

Kendisine Buradan tekrar teşekkür ediyorum.

 
Alıntı ile Cevapla

Alt 20 Mart 2011, 00:59   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo Botu için !istek kapalı ve açık tcl isteği




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
proc yes {n u h c a} { set kanal [lindex $a 0] putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Isteginiz Arsivimizde Mevcut. Kisa Süre Içinde Isteginiz yayinlanacaktir." } proc no {n u h c a} { set kanal [lindex $a 0] putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,Isteginiz Arsivimizde Bulunmamaktadir. Baska Bir Istekte Bulunabilirsiniz." } bind pub - !istek istekoff proc istekoff {nick uhost hand chan text} { setudef flag radyocmd if {[string match -nocase "#DJ" $chan]} { set komut [lindex $text 0] if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanimi !istek on/off seklindedir."; return 0 } if {[string match -nocase "on" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo Istekleri Kabul Edilecek."; return 0 } if {[string match -nocase "off" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo Istekleri Reddedilecek."; return 0 } } if {[string match -nocase "#Radyo" $chan]} { if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} { putquick "PRIVMSG #Radyo :12Isteginiz DJ'lerimize Iletilmistir 4 $nick." putquick "PRIVMSG #DJ 12Radyo Istegi:4 $text 12Istekte Bulunan Kullanici: 4 $nick" } if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { putquick "PRIVMSG #Radyo 12Üzgünüz 4 $nick 12Suanda Istek Alimi Yoktur, Lütfen Daha Sonra Deneyiniz..." } } } putlog "Radyo Panel TCL v1.0 CLubber" proc istek {n u h c a} { global gnick set gnick $n set kanal [lindex $a ] putserv "PRIVMSG #DJ 1Istek Isteyen Nick 4$gnick1 - Istegi:4 $kanal" putserv "PRIVMSG #Radyo :4Isteginiz DJ'lerimize iletilmistir2 $gnick 5( $kanal )" } proc istek {n u h c a} { set kanal [lindex $a 0] putserv "PRIVMSG #DJ 1Istek Isteyen Nick 4$gnick1 - Istegi:4 $kanal" putserv "PRIVMSG #DJ :\0034Istek Isteyen Nick \002$n\0034 Istegi:\001 $kanal" putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. Isteginizi Kontrol Ediyorum." } bind pub - !istek istekProc proc istekProc {nick uhost hand chan arg} { global istek # eger !istek yazip yanina birsey yazmadiysa komutun # nasil kullanilacagini gösterelim. if {$arg == ""} { putquick "privmsg $chan :\002HATA\022 isteginizi belirtmeyi unuttunuz." putquick "privmsg $chan :\002Dogru kullanim:\002 !istek sarkiciadi - sarkisi - kime istediginiz." return } # burada olusturdugumuz degisken mevcut mu bakiyoruz. # eger mevcutsa komutu durduruyoruz. if {[info exists istek([md5 $uhost])]} { putquick "privmsg $chan :4$nick 12, 15 Dakika Içerisinde 4Sadece 1 kez 12Istekte bulunabilirsiniz!...." return } # simdi ise komutlari uygulatalim putquick "privmsg #dj :2Istek Isteyen Nick 4\002$nick\002, 2Istenilen Sarki: 4\002$arg\002 2isteginde bulundu." putquick "privmsg $chan :\002$nick\002 isteginiz djlerimize iletilmistir." # simdi de bu kisinin hostunu degiskene atayalim. set istek([md5 $uhost]) 1 # bu degiskeni 15 dk sonra yokedelim timer 15[list unset istek([md5 $uhost])] }

gibi kod ları toparladık kullanalım istiyoruz ama şöyle bir sorunla karşılaştık bu istek on/off kod unu sona eklediğimde 15 dakika limiti iptal oldu bende bu sefer 15 dakika limitini sona aldım ama şöyle bir sorunla karşılaştım bot istek yaptığım andan sonra isteği kapatmama izin vermiyor 15 dakika limitine takılıyorum acaba burda oper admin op sop vs. gibi ayrım yapmasını sağlayabilir miyiz birde bu piyasadaki radyo.tcl lerde !dj veya .dj şeklinde bir komut vardır ve bu komut ne işe yarar şahsen bir türlü öğrenemedim sanırım boş bir komut diye düşünüyorum acaba bota dj tanıtımı da yapabilir miyiz acaba böyle karmaşık ve detaylı bir isteğe cevap verecek birileri varmıdır varsa şimdiden teşekkür ederim... CLubber bu kadar çabuk istek on off tcl sini paylaştığın için ayrıca teşekkürler....

 
Alıntı ile Cevapla

Cevapla

Etiketler
istedi


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
Icecast2 için Radyo Botu equinoxan TCL Scriptler 1 27 Ağustos 2014 20:46
Radyo Kanali icin !istek Süre Sorunu KuL mIRC Scripting Sorunları 4 05 Ocak 2013 17:16
radyo.tcl için ame atma isteği aspawa Eggdrop, NeoStats, BNC 3 25 Mart 2012 16:30
Radyo botu istek sorunu Balcovali Eggdrop, NeoStats, BNC 1 17 Eylül 2010 22:44