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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Radyo İstek Tcl Yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/320683-radyo-istek-tcl-yardim.html)

IcNaMeK 08 Mart 2010 21:48

Radyo İstek Tcl Yardım
 
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

SaW 08 Mart 2010 23:34

Cevap: Radyo İstek Tcl Yardım
 
E yap o zaman kolay gelsin

IcNaMeK 09 Mart 2010 19:49

Cevap: Radyo İstek Tcl Yardım
 
Alıntı:

Nebiliymben Nickli Üyeden Alıntı (Mesaj 1040342888)
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

SaW 09 Mart 2010 23:16

Cevap: Radyo İstek Tcl Yardım
 
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:
PHP- Kodu:

globak istek
if {[info exists istek([md5 [string tolower $uhost]])]} {
 
putquick "privmsg $nick :5 dakika içerisinde sadece 1 istek yapabilirsiniz" ; return 0
} else {
  
set istek([md5 [string tolower $uhost]]) 1
  timer 5 
[list unset istek([md5 [string tolower $uhost]])]
## .... Buraya komutların devamı......


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.

IcNaMeK 09 Mart 2010 23:56

Cevap: Radyo İstek Tcl Yardım
 
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)

SaW 10 Mart 2010 00:15

Cevap: Radyo İstek Tcl Yardım
 
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.

IcNaMeK 10 Mart 2010 01:16

Cevap: Radyo İstek Tcl Yardım
 
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

IcNaMeK 16 Mart 2010 10:44

Cevap: Radyo İstek Tcl Yardım
 
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:( $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ı

Siber55 16 Mart 2010 11:06

Cevap: Radyo İstek Tcl Yardım
 
Alıntı:

IcNaMeK Nickli Üyeden Alıntı (Mesaj 1040350516)
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:( $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ı :
Kod:

global istek
if {[info exists istek([md5 [string tolower $uhost]])]} {
 putquick "privmsg $nick :5 dakika içerisinde sadece 1 istek yapabilirsiniz" ; return 0
} else {
  set istek([md5 [string tolower $uhost]]) 1
  timer 5[list unset istek([md5 [string tolower $uhost]])]
## .... Buraya komutların devamı......
}


Teoman 05 Eylül 2011 00:14

Cevap: Radyo İstek Tcl Yardım
 
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:10.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net