Çevrimdışı

Arkadaşlar Elimde Bir Adet Radyo Botu Var Ve !istek isteme aralıgına belirli bir zaman koyucam bunu nasıl yapa bilirim yardımcı olurmusunuz

Örnek : [21:45] <Radyo> KOMANDO-81 eLLer Kadir kıymet birlmiyor annem ParÇaSını İstiyorum ÇaLarSanız Sevinirim ayca KanaLına qeL isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 5dk'dir.

Bunun Gibi Yapıcam

 

Çevrimdışı

E yap o zaman kolay gelsin

 

Çevrimdışı

Nebiliymben Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

E yap o zaman kolay gelsin

Sayın Adminim Beni Yanlış Anladınız Yapıcam Dediysem bunun Gibi Olmasını yani bole yapmak istiyorum sadece bana bu konuda yardım ede bilirmisiniz.

Her istek istemenin arası 5 dk olucak bi tcl arıyorum

 

Çevrimdışı

Ben sana nasıl yapacağın hakkında fikir vereyim;
İstek komutu uygulandığında çağrılan proc'un içerisinde kişinin hostunu global bir değişkene md5 kullanarak atarsın. Hemen altına bir timer ile az önce atadığın bu değişkeni belirlediğin süre sonunda unset yaptırırsın.
Bu bahsi geçen satırların hemen üzerinde ise o global değişkenin olup olmadığını sorgulatırsın. Varsa kişi daha önce istekde bulunmuştur demektir, ona göre mesaj verdidir işlemi durdurursun.. Bu kadar..
Örnek:

Tabi burada $uhost ve $nick değişkenini proc tanım kısmında bu şekilde belirlediğini varsayıyorum. Bu genel şablondur. Üzerinde çalışarak kendi kodlarına bunu monte edebilirsin.

 

Çevrimdışı

Tsk ederim Hocam Denyicem Ugrasacam yapasam başınızı agırıtıcam tekrar

----------

tskler abi

----------

[23:55] invalid command name "globak"
while executing
"globak istek"
(file "scripts/istek.tcl" line 93)
invoked from within
"source scripts/istek.tcl"
(file "radyo.conf" line 59)
[23:55] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

 

Çevrimdışı

global olacak o, aceleyle yazınca olur öyle hatalar. Ama bunu kendin başaracaksın, her hata da buraya yazma, deneme yanılmayla ve araştırmayla yapmalısın aksi takdirde öğrenemezsin.

 

Çevrimdışı

Valla Hocam Denedim Yanıldım Denedim Yanıldım Sabahdan Beri 1 Saaten Beri Aynı Yoldayım ilerliyorum Ama Bulamaadım Canız Saolsun Kolay Gelsin

Dipnot Mesajı:

Yukarıda gösterdiğin hatanın nedenini söyledim ya, globak yazdığım yeri global diye değiştirmen lazım

 

Çevrimdışı

proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
set istek([md5 [string tolower $uhost]]) 1
putserv "PRIVMSG #DJ Istek isteyen rumuz: $gnick Istedigi sarki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$kanal )"
putserv "PRIVMSG #Radyo Isteginiz siraya alinmistir: 2$gnick"
putserv "PRIVMSG $gnick Bir Sonraki Istek Isteme Zamanız 5 dakika'dır.Lütfen Bu Kuralla Uyalım Aksitaktirde Banlanacaksınız: 2$gnick"
}


Verdigin her Komutu birlikde tek tek ayrı bi pro acarak denememe rahmen hiç birias olmadı

 

Çevrimdışı

IcNaMeK Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

proc istek {n u h c a} { global gnick set gnick $n set kanal [lindex $a ] set istek([md5 [string tolower $uhost]]) 1 putserv "PRIVMSG #DJ Istek isteyen rumuz: $gnick Istedigi sarki Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. $kanal )" putserv "PRIVMSG #Radyo Isteginiz siraya alinmistir: 2$gnick" putserv "PRIVMSG $gnick Bir Sonraki Istek Isteme Zamanız 5 dakika'dır.Lütfen Bu Kuralla Uyalım Aksitaktirde Banlanacaksınız: 2$gnick" } Verdigin her Komutu birlikde tek tek ayrı bi pro acarak denememe rahmen hiç birias olmadı

Komutları biraz daha gözden geçirin eksik ve yanlış dizilimleriniz var. Anlatılana göre mantık kurmaya çalışın.


Alıntı :

 

Çevrimdışı

konuyu hortlatacam belki ama bende ariyorum konu bile açmıştım hiç yardımcı olan yok. saW yardımcı olacak gibi ama hazıra konmaya alışkın bir milletiz sanırım. + eggdrop TCL bilgim sıfır.