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/)
-   -   istek tcl soru ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/506902-istek-tcl-soru.html)

alphae 10 Ekim 2012 18:21

istek tcl soru ?
 
merhaba arkadaslar simdi benim tcl altaki gibi istegi sadece radyo odasinda yapa biliyor istedigim su istedigi her odada yapması nasil böle bişi yapa bilirim her kanalda istek yapa bilsin


PHP- Kodu:

bind pub - !istek istek 
proc istek 
{n u h c a} { 
global 
gnick 
set gnick $n 
set kanal 
[lindex $a 
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick İsteği: $kanal
putserv "privmsg #radyo  :İsteğiniz DJ'lerimize İletilmiştir $gnick." 
}
bind pub - !var var
bind pub - !yok yok
proc 
var {n u h c a} {
set kanal [lindex $a 0]
if {![
string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg #radyo  :İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc yok {n u h c a} {
set kanal [lindex $a 0]
if {![
string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg #radyo :Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."



saywhat 10 Ekim 2012 19:24

Cevap: istek tcl soru ?
 
privmsg #radyo -> privmsg $kanal olarak değişin...üçünüde...

alphae 10 Ekim 2012 23:01

Cevap: istek tcl soru ?
 
anlamadiniz beni radyo odasi yerine sohbet yazabilirim tabiki benim demek istedigim hangi oda ise ordan bot cevap versin anliyormusunuz onu denedim tabiki atiyorum
!istek ahmet kaya kum gibi herkeze glesin
yazdigi oda sohbet oyun yada yarisma
o oda bot ona isteginiz dj iletilmistir desin yani sadece bir oda degil..

saywhat 10 Ekim 2012 23:32

Cevap: istek tcl soru ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] privmsg $kanal derken kanal yerine başka bir kanalın adı gelmeli demedim ki zaten yukarda sizin verdiğiniz kodun yapısı-yazılışı gereği privmsg #bir-kanal-adi yazılırsa tek o kanal için ancak privmsg $kanal olarak değişirseniz tüm kanallardan !istek komutu almak ve tüm kanallara (hangi kanalda istek yapılmışsa ona ) var yada yok mesajı gönderebilmek mümkün olacak dilediğiniz şekilde. (#radyo yerine $kanal yazınca herhangi bir kanaldaki kullanıcı !istek komutu verebilecek #dj kanalında isteği hangi kanalda hangi kullanıcı tarafından atıldığı bildirilecek.aynı şekilde #dj kanalındaki komutla var yada yok diyebilecek .. istediğinizde zaten buydu dimi? )

alphae 10 Ekim 2012 23:48

Cevap: istek tcl soru ?
 
isteginiz dj iletilmisir demiyor istegi dj yaziyor. ama o oda dj iletilmistir demiyor..

bind pub - !istek istek
proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick İsteği: $kanal"
putserv "PRIVMSG $kanal :İsteğiniz DJ'lerimize İletilmiştir $gnick."
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:48 -->-> Daha önceki mesaj 23:47 --

soyle diyim kodu calisiyor istek diyorsun istegi dj odasina gonderiyor ama istedigi istedigi oda isteginiz dj iletilmistir demiyor..

bind pub - !istek istek
proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick İsteği: $kanal"
putserv "PRIVMSG $chan :İsteğiniz DJ'lerimize İletilmiştir $gnick."
}
bind pub - !var var
bind pub - !yok yok
proc var {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "PRIVMSG $radyo :İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc yok {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "PRIVMSG #radyo :Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}

saywhat 11 Ekim 2012 00:09

Cevap: istek tcl soru ?
 
kodu botuma ekledim #dj kanalı yerine zaten botla park ettiğim ##hnc kanalını yazdım. privmsg #radyo yerine privmsg $kanal olarak değiştim. #selami ve #bum diye kanallara girdim botuda soktum. !istek yaptım #selami kanalında :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
##hnc kanalında istek alındı diye mesaj geldi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

!var dedim isteği yapan nickin özeline bot mesaj attı
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
girdiğim diğer kanalda !istek yaptım #bum'da her kanalda çalışıyormu diye
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
ana kanala baktım istek geldimi diye.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

alphae 11 Ekim 2012 01:02

Cevap: istek tcl soru ?
 
orda bir sorun yoki istek istediginde
onemli olan bunu yazmasi oldugun kanalda
putserv "PRIVMSG $kanal :İsteğiniz DJ'lerimize İletilmiştir $gnick."
yani dj isteginizx iletilmistir demek idityorum bunu vermiyor..

saywhat 11 Ekim 2012 01:12

Cevap: istek tcl soru ?
 
Kod:

bind pub - !istek istek
bind pub - !var var
bind pub - !yok yok
proc istek {n u h c a} { 
global gnick gchan
set gchan $c
set gnick $n 
set kanal [lindex $a ] 
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick kanali $gchan İsteği: $kanal" 
putserv "privmsg $gchan  :İsteğiniz DJ'lerimize İletilmiştir $gnick." 
}
proc var {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg $kanal :İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc yok {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg $kanal :Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}

buyrun bunu deneyin...bunda istek iletilmiştir. şu kanaldan şu nick şunu istemiştir diyor.isteyen kişiyede isteğiniz iletilmiştir diyor. var yok nick cevabı o kişinin özeline iletiliyor.

alphae 11 Ekim 2012 02:20

Cevap: istek tcl soru ?
 
hocam evet usteki isteginiz iletilmistir diyor dj odasinda istek dusuyor var yok calismiyor istek isteyene yok diyince ozele gondermiyor var desemde gondermiyor..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:05 -->-> Daha önceki mesaj 01:59 --

tsk ederim eline saglik olmus sagolun..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:20 -->-> Daha önceki mesaj 02:05 --

birsey daha sorcam hocam simdi ornek altdaki kod kisi her kanala girip ciktiginda bot ozeline gidiyor bunu tek bir kanal icin yapa bilirmiyiz
mesela diger odalardan cikip girsede bot gitmesin sadece sohbet odasi icin olsun..

PHP- Kodu:

proc join_greet {nick uhost handle channel } { 
putserv "PRIVMSG $nick : 2Merhaba 4 $nick "
putserv "PRIVMSG $nick : 2site.Com Ailesine 2Hoşgeldiniz."
putserv "PRIVMSG $nick : 2Sunucumuzda Oyun Kanalarımız 4#Oyun  #test  #kelime  #yarisma  #islamioyun  2Kanallarıdır."
putserv "PRIVMSG $nick : 2Sunucumuzda Global Sohbet Kanallarımız 4#Sohbet  2 Kanallaridir."
putserv "PRIVMSG $nick : 2Girmek İstediginiz 2Kanallar İçin Örnek 4 /j Sohbet 2 Şeklinde Kanallara Gire Bilirsiniz.."
putserv "PRIVMSG $nick : 2Radyomuzu Winap Üzerinden Dinlemek İstiyorsanız 2 radyomuzu.com" 
putserv "PRIVMSG $nick : 2İsteklerinizi 4#Radyo 2Kanallindan  Yapabilirsiniz.."
putserv "PRIVMSG $nick : 2İstekler İçin Örnek 4!istek Niran unsal İzin Ver : Mesajınız 2Şeklinde Yapabilirsiniz..."
}
bind join - * join_greet 


saywhat 11 Ekim 2012 03:24

Cevap: istek tcl soru ?
 
verdiğiniz kodun bind kısmını
Kod:

bind join - "#kanalınız *" join_greet
kanalınız yazan yere karşılama mesajının işlemesini istediğiniz kanalın adını yazıp değişiniz.(büyük küçük harf uyumuna dikkat edin) sadece o kanala giren kullanıcının özeline istenen mesajı atacaktır.


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

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