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

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
4Beğeni(ler)
  • 2 Post By saywhat
  • 1 Post By Was
  • 1 Post By Was

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Şubat 2013, 18:24   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Radyo bot sıkıntısı



Merhaba arkadaşlar yapmış oldugum kodlama aşagıdadır

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !Reklam Reklam 
proc Reklam {nick uhost handle chan text stitle} { 
  global botnick
  if {[string match -nocase "#DJ" $chan]} {
    set kanal [lindex $text 0] 
    set person [lindex $text 1] 

	 putquick "os global 1Şuan yayınımızda DJ 4$stitle 1bulunmaktadır."

  }
}

Yukarıda yaptığım şu ; Dj kanalında !reklam yazınca yayında kim var ise onun nickini reklam olarak atmak yani global.

Şu kısmı ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 putquick "os global 1Şuan yayınımızda DJ 4$nick 1bulunmaktadır."

yaptığım zaman !reklam yazan kişinin nicki gidiyor sorun yok. Fakat neden $stitle, veya $servertitle, yaptığım zaman yayındaki kişinin nicki gitmiyor ? Radyo botu zaten aynı her yerde kullanılan. Sorun ney tam olarak cozemedim ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 17 Şubat 2013, 19:29   #2
Çevrimdışı
Was
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



Merhaba;

$nick kullanırsan o komutu uygulayan kişinin nicki gider. Bunun yerine $server ve $streamtitle kullanırsan bu sunucu ve yayın başlığı anlamına gelir, bunun yerine $dj gibi bir değişken olması muhtemeldir. TCL içerisindeki değişkenleri iyi çözümleyip buna göre identifier kullanman gerekir. TCL'ni tam olarak kopy edersen daha detaylı yardımcı olabilirim.

 
Alıntı ile Cevapla

Alt 18 Şubat 2013, 00:27   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



Çok teşekkür ederim yardım için fakat olmuyor hocam

 
Alıntı ile Cevapla

Alt 18 Şubat 2013, 16:04   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



"$nick kullanırsan o komutu uygulayan kişinin nicki gider. Bunun yerine $server ve $streamtitle kullanırsan bu sunucu ve yayın başlığı anlamına gelir, bunun yerine $dj gibi bir değişken olması muhtemeldir. TCL içerisindeki değişkenleri iyi çözümleyip buna göre identifier kullanman gerekir. TCL'ni tam olarak kopy edersen daha detaylı yardımcı olabilirim."
Was'dan alıntı.

radyo yayını için kullandığınız kodun tamamını görebilmek lazım.dj olarak atanan kişiyi nasıl tanımlandığını kod içinde görebilmek için.yoksa eggdrop tcl'de radyo dj'i tanımlayan-karşılayan bi komut yok.bunu o kodu yazan kişi belirliyor.kodu yazan ne olarak tanımlamış belirlemişse onu görerek ancak ona göre bi düzenleme yapılabilmesi mümkün olacaktır...demek istemiş Was....yani yukarda gösterdiğiniz kod parçası yeterli değil.geri kalanınada ihtiyac var sorunuzun cevabı üçün...

 
Alıntı ile Cevapla

Alt 18 Şubat 2013, 17:48   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#################### Ayarlar #####################
set radyo(ip) "xx"
set radyo(port) "xx"
set radyo(pass) "xx"
set radyo(chan) "#Radyo"
set radyo(adm) "#DJ"
set radyo(drm) "!durum"
set radyo(link) "!link"
set radyo(dinleyen) "!dinleyen"
set radyo(dj) "!dj"
set radyo(yardim) "!Help"
set radyo(kick) "!kick"
set radyo(djcmd) "!dj"
set radyo(weblink) ""
set radyo(wiamplink) ""
set radyo(calan) "!çalan"
set radyo(online)     "1"
################### Ayarlar bitti burdan sonrasina dokunma

bind time - "* * * * *" isonline 
bind time - "?0 * * * *" global:at
bind join - * dj:giris
bind pubm - * kanala:yaz
bind pub - !var var
bind pub - !yok yok
bind pub - !istek istek
bind pub - !dur dur
bind pub - !basla basla
bind pub - !global global:at

channel add $radyo(chan)
channel add $radyo(adm)


proc global:at {nick uhost hand chan arg} {
    global radyo temizle
        putquick "os global 0,1 Radyoyu webden dinlemek için  5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "os global 0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxx/listen.pls "
        putquick "os global 0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu kullanınız. Örnek: !. "
}

proc helpme {nick uhost hand chan arg} {
    global radyo
    putquick "PRIVMSG $radyo(chan) :0,1 Bilgi için 11$radyo(yardim) 0kanalına giriş yapabilirsiniz. "
}


##proc dj:giris {nick uhost hand chan} {
##global botnick radyo
  ##  if {$nick == $botnick} { putquick "MODE $chan +h $botnick";putquick "MODE $chan -f";return 0}
    ##if {[string match -nocase $radyo(adm) $chan]} {
      ##  if {$nick == $botnick} {return 0}
        ##elseif {$nick == "OleyFm"} {return 0}
        ##elseif {[onchan $nick "#xx"]} {return 0}
        ##elseif {[onchan $nick "#DJ"]} {return 0}
        ##else {
          ##  putquick "CHGHOST $nick BotSystem.A-NET"
            ##putquick "CHGIDENT $nick A-NET"
            ##return 0
        ##}
    ##}
##}

proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] } 
proc kanala:yaz {nick uhost hand chan arg} {
    global radyo botnick server temizle
    if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
        putquick "PRIVMSG $chan :Baglanamadi : $sockerror"
        return 0 
    } else {  
        puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" 
        puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" 
        puts $sock "Host: $radyo(ip)" 
        puts $sock "Connection: close" 
        puts $sock "" 
        flush $sock 
        while {[eof $sock] != 1} { 
        set bl [gets $sock] 
            if { [string first "standalone" $bl] != -1 } { 
                set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]] 
                set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]] 
                set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]] 
                set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]] 
                set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]] 
                set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]] 
                set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]] 
                set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] 
                set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] 
                set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]] 
                if {$sgenre != ""} {set sgenre " ($sgenre)"} 
                set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]] 
                set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]] 
                set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]] 
                if {$icq == 0} { set icq "N/A" } 
                set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]] 
                set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]] 
                set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]] 
                set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]] 
                if {[string match -nocase $radyo(chan) $chan]} { 
                    if {[string match -nocase $radyo(calan) $arg]} {
                        if {$streamstatus == 1} {
                        putquick "PRIVMSG $radyo(chan) :0,1 Şu an radyoda çalan parça : 5|11 [temizle $calan] 5| "
                        return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(drm) $arg]} {
                        if {$streamstatus == 1} {
                            putquick "PRIVMSG $radyo(chan) :-"
                            putquick "PRIVMSG $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça :5 | 11[temizle $calan] 5| "
                            putquick "PRIVMSG $radyo(chan) :11,1 MatikFm0'i şu anda 5|11 [expr $repl +12] 5| 0kişi dinliyor. En fazla 5|11 [expr $curhigh +2] 5| 0kişi dinlemiş. "
                            putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webden dinlemek için  5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxx/listen.pls "
                            putquick "PRIVMSG $radyo(chan) :0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız. Örnek: !istek Haluk Levent - Zifiri - Tüm dinleyenlere gelsin. "
                            putquick "PRIVMSG $radyo(chan) :-"
                            return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(link) $arg]} {
                        putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webten dinlemek için  5||1. 11
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxxxxx/listen.pls "
                        return 0
                    }
                    if {[string match -nocase $radyo(dj) $arg]} {
                        if {$streamstatus == 1} {
                            putquick "PRIVMSG $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| "
                            return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(dinleyen) $arg]} {
                        if {$streamstatus == 1} {
                            putquick "PRIVMSG $radyo(chan) :11,1 Radyomatik0'i şu anda 5|11 [expr $repl +15] 5| 0kişi dinliyor. En fazla 5|11 [expr $curhigh +15] 5| 0kişi dinlemiş. "
                            return 0
                        } else {
                            putquick "PRIVMSG $chan :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                        }
                    }
                    if {[string match -nocase $radyo(yardim) $arg]} {
                        putquick "PRIVMSG $radyo(chan) :4$radyo(yardim) 1burdaki komutları listeler. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(drm) 1radyo durumunu yansıtır. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(link) 1radyo linkini yansıtır. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(dj) 1yayındaki kişiyi gösterir. "
                        putquick "PRIVMSG $radyo(chan) :4$radyo(calan) 1o anda radyoda çalan parçayı yansıtır. "
                        return 0
                    }
                }
            }
        } 
        close $sock 
    }
    if {[string match -nocase $radyo(adm) $chan]} {
        set komut [lindex $arg 1]
        if {[string match -nocase "*$radyo(djcmd)*" $arg]} {
            if {$komut==""} {
                putquick "PRIVMSG $radyo(adm) :5$chan kanalında kullanabileceğiniz komutlar. "
                putquick "PRIVMSG $radyo(adm) :4$radyo(djcmd) <sifre/bilgi/on/depo/kill> | 1Yayınla ilgili bilgi ve yaptırımları gösterir. "
                putquick "PRIVMSG $radyo(adm) :4!basla | 1İstek saatini başlatır. "
                putquick "PRIVMSG $radyo(adm) :4!var | 1İstek sahibine isteğinin işleme alındığı mesajı gönderir. "
                putquick "PRIVMSG $radyo(adm) :4!yok | 1İstek sahibine isteğinin arşivde bulunmadığı mesajı gönderir. "
                putquick "PRIVMSG $radyo(adm) :4!dur | 1İstek saatini bitirir. "
                return 0
            }
            if {$komut=="kill"} {
                if {$chan != $radyo(adm)} {return 0}
                putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. "
                if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
                    putlog "error: $sockerror"
                    putquick "PRIVMSG $radyo(adm) :1Yayında bulunan DJ'e kill atılamadı. "
                    return 0
                } else {
                    puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=kicksrc&pass=$radyo(pass) HTTP/1.0"
                    puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
                    puts $sock "Host: $radyo(ip)"
                    puts $sock "Connection: close"
                    puts $sock ""
                    flush $sock
                    close $sock
                    putquick "PRIVMSG $radyo(adm) :1Yayında bulunan DJ'e kill atılmıştır. "
                }
                return 0
            }
            if {$komut=="sifre"} {
                putquick "PRIVMSG $radyo(adm) :5Radyo bilgileri "
                putquick "PRIVMSG $radyo(adm) :1IP adresi     :4 $radyo(ip)"
                putquick "PRIVMSG $radyo(adm) :1Radyo Portu   :4 $radyo(port)"
                putquick "PRIVMSG $radyo(adm) :1Radyo Şifresi :4 $radyo(pass)"
                putquick "PRIVMSG $radyo(adm) :4Bilgileriniz kaydedildi. Bu bilgileri paylaşmak kesinlikle yasaktır. "
                return 0
            }
            if {$komut=="bilgi"} {
                putquick "PRIVMSG $nick 1Merhaba 4$nick"
                putquick "PRIVMSG $nick 1Yapmış olduğum hatalarla ilgili 4admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net 1adresine mail gönderebilirsiniz."
                putquick "PRIVMSG $nick 1Veya 4/Memoserv send x <mesajiniz> 1şeklinde yapımcıma not bırakabilirsiniz. Hoş sohbetler."
                putquick "PRIVMSG $nick 1Bu mesajı hazırlayan kişi 4cx 1size keyifli sohbetler diler."
                return 0
             }
            if {$komut=="on"} {
                putquick "PRIVMSG $radyo(adm) :1Talebiniz alındı iyi yayınlar 4$nick "
                putquick "os Global 0,1 Dj şu anda yayında. İsteklerinizi 11$radyo(chan) 0kanalında yapabilirsiniz. "
                putquick "os raw svsjoin $nick $radyo(chan)"
                utimer 2[list putquick "os raw:ChanServ mode $radyo(chan) +o $nick"]
                return 0
             }
            if {$komut=="depo"} {
                putquick "PRIVMSG $radyo(adm) :5Dj programları sıralanıyor."
                putquick "PRIVMSG $radyo(adm) :4ShoutCast ==> 1Henüz link eklenmedi."
                putquick "PRIVMSG $radyo(adm) :4Winamp ==> 1Henüz link eklenmedi."
                return 0
             }
        }
    }
}





###################################################################
proc isonline { nick uhost hand chan arg } { 
global radyo
    if {$radyo(online) == 1} { 
        set announce "1" 
        set urltopic "1" 
        set tellsongs "1" 
        set tellusers "1" 
        set tellbitrate "1" 
        set advertise "1"
        set isonlinefile "isonline" 
        set oldisonline "isonline: 0" 
        set oldcurlist "4,1 : 15,1 0" 
        set oldcurhigh "curhigh: 0" 
        set oldsong "cursong: 0" 
        set oldbitrate "bitrate: 0" 
        if {[file exists $isonlinefile]} { 
            putlog "shoutcast: checking if stream is online" 
            set temp [open "isonline" r] 
            while {[eof $temp] != 1} { 
                set zeile [gets $temp] 
                if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile } 
                if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile } 
                if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile } 
                if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile } 
                if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile } 
            } 
            close $temp 
        } 
        if {[catch {set sock [socket $radyo(ip) $radyo(port)] } sockerror]} { 
            putlog "error: $sockerror" 
            return 0
        } else { 
        puts $sock "GET /admin.cgi?pass=$radyo(pass)&mode=viewxml&page=0 HTTP/1.0" 
        puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)" 
        puts $sock "Host: $radyo(ip)" 
        puts $sock "Connection: close" 
        puts $sock "" 
        flush $sock 
        while {[eof $sock] != 1} { 
            set bl [gets $sock] 
            if { [string first "standalone" $bl] != -1 } { 
                set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]" 
                set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]" 
                set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]" 
                set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</TLISTENERS>" 0 $bl]] 
                set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]" 
                set calan [string range $bl [shrink + 11 "<SONGTITLE>" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
                set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]" 
                set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]] 
                set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]" 
                set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]] 
                set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]] 
                }
            } 
            close $sock 
        } 
        set temp [open "isonline" w+] 
        puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrate" 
        close $temp 
        if {$announce == 1 } { 
            if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} { 
                putquick "topic $radyo(chan) :0,1 Üzgünüz şu anda yayın yapılmamaktadır. "
                putquick "PRIVMSG $radyo(adm) :4ÖNEMLİ UYARI : 1Şu anda yayında kimse yok. Dj arkadaşlardan yayının boş bulundurulmamasını rica ediyorum. Dj bilgileri için 4$radyo(adm) 1kanalında 4$radyo(djcmd) sifre 1yazınız. Teşekkürler. "  
            } 
            if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } { 
                if {$sgenre != ""} { set sgenre " ($sgenre)" } 
                putquick "topic $radyo(chan) :11,1 [temizle $stitle] 0şu anda yayında. İstek yapmak için 11$radyo(chan) 0kanalına ;11 !istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız.0 Örnek: !istek Haluk Levent - Zifiri - Tüm dinleyenlere gelsin. "
            }
        } 
        if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } { 
            putquick "PRIVMSG $radyo(chan) :-"
            putquick "PRIVMSG $radyo(chan) :11,1 5|11 [temizle $stitle] 5| 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| "
            putquick "PRIVMSG $radyo(chan) :11,1 Radyomatik0'i şu anda 5|11 [expr $repl +15] | 0kişi dinliyor. En fazla 5|11 [expr $curhigh +15] 5| 0kişi dinlemiş. "
            putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu webten dinlemek için  5||1. 11 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "
            putquick "PRIVMSG $radyo(chan) :0,1 Radyoyu winamptan dinlemek için  5||1. 11http://xxxx/listen.pls "
            putquick "PRIVMSG $radyo(chan) :0,1 İstek yapmak için 11$radyo(chan) 0kanalına 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız.. "
            putquick "PRIVMSG $radyo(chan) :-"
        } 
    }
}
bind pub - !Reklam Reklam 
proc Reklam {nick uhost handle chan text} { 
  global botnick
  if {[string match -nocase "#DJ" $chan]} {
    set kanal [lindex $text 0] 
    set person [lindex $text 1] 

	 putquick "os global 1Şuan yayınımızda DJ 4$nick 1bulunmaktadır. Yayınımızı 4http://xxx1/listen.pls 1linkine tıklayarak winamptan, 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
giriş yaparak web üzerinden dinleyebilirsiniz. Keyifli dakikalar. 4xxx"

  }
}

###################################################################
proc temizle {icerik} {
    regsub -all "&#x27;" $icerik "'" icerik
    regsub -all "&#x26;" $icerik "feat." icerik
    regsub -all "&#xE7;" $icerik "ç" icerik
    regsub -all "&#xF0;" $icerik "ğ" icerik
    regsub -all "&#xFD;" $icerik "ı" icerik
    regsub -all "&#xDD;" $icerik "İ" icerik
    regsub -all "&#xF6;" $icerik "ö" icerik
    regsub -all "&#xFE;" $icerik "ş" icerik
    regsub -all "&#xC7;" $icerik "Ç" icerik
    regsub -all "&#xD0;" $icerik "Ğ" icerik
    regsub -all "&#xD6;" $icerik "Ö" icerik
    regsub -all "&#xDE;" $icerik "Ş" icerik
    regsub -all "&#xFC;" $icerik "ü" icerik
    regsub -all "&#xDC;" $icerik "Ü" icerik
    regsub -all "&#xBF;" $icerik "¿" icerik
    regsub -all "&#x3C;" $icerik "<" icerik
    regsub -all "&#x86;" $icerik "t" icerik
    regsub -all "&#xFF;" $icerik "" icerik
    regsub -all "a" $icerik "a" icerik
    regsub -all "b" $icerik "b" icerik
    regsub -all "i" $icerik "i" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "l" $icerik "l" icerik
    regsub -all "I" $icerik "l" icerik
    regsub -all "e" $icerik "e" icerik
    regsub -all "t" $icerik "t" icerik
    regsub -all "y" $icerik "y" icerik
    regsub -all "c" $icerik "c" icerik
    regsub -all "o" $icerik "o" icerik
    regsub -all "n" $icerik "n" icerik
    return $icerik
}

#################################


setudef flag istkcmd

proc dur {n u h c a} {
global botnick radyo dj_chan dur
    if {[string match -nocase $radyo(adm) $c]} {
        channel set $radyo(adm) -istkcmd
        putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. "
        putquick "PRIVMSG $radyo(chan) :0,1 Lütfen şu anda istekte bulunmayın. İstekler bir süre çalınmayacaktır. "
    }
}

proc basla {n u h c a} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $c]} {
        channel set $radyo(adm) +istkcmd
        putquick "PRIVMSG $radyo(adm) :1Komut algılandı ve uygulanıyor. "
        putquick "PRIVMSG $radyo(chan) :0,1 İstek zamanı basladı, istekte bulunmak için; 11!istek <sanatçı - şarkı - mesajınız> 0komutunu uygulayınız. "
    }
}


proc var {nick uhost hand chan text} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $chan]} {
    set kisi [lindex $text 0]
    if {$kisi == ""} {
        putquick "PRIVMSG $radyo(adm) :1Nick belirtmediniz. "
        putquick "PRIVMSG $radyo(adm) :1Kullanımı : 4!var <NICK> 1şeklinde olmalıdır. "
        return
    }
        if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :1İstek onaylandı ve kişiye mesaj gönderiliyor. " ; putquick "PRIVMSG $radyo(chan) :11,1 $kisi 0isteğiniz kabul edildi. Kısa süre içerisinde isteğiniz yayınlanacak. Keyifli dinlemeler. "; return 0 }
        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :4#Radyomatik 1kanalında böyle bir rumuz bulunmamaktadır. "; return 0 }
    }
}






proc yok {n u h c a} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $c]} {
    set kisi [lindex $a 0]
    if {$kisi == ""} {
        putquick "PRIVMSG $c :1Nick belirtmediniz. "
        putquick "PRIVMSG $c :1Kullanımı: 4!yok <NICK> 1şeklinde olmalıdır. "
        return
    }
    if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :1İstek reddedildi ve kişiye mesaj gönderiliyor. " ; putquick "PRIVMSG $radyo(chan) :0,1 Üzgünüm 11$kisi 0isteğiniz arşivimizde bulunmamaktadır. Başka bir istekte bulunabilirsiniz. Keyifli dinlemeler. "; return 0 }
    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :4#Radyomatik 1kanalında böyle bir rumuz bulunmamaktadır. "; return 0 }
    }
}

proc istek {nick uhost handle chan arg} {
global botnick radyo dj_chan
    if {[lsearch -exact [channel info $radyo(adm)] +istkcmd] != -1} {
    if {$arg == ""} { putquick "PRIVMSG $radyo(chan) :11,1 $nick 0isteğinizi belirtmediniz. Lütfen 11!istek <sanatçı - şarkı - mesajınız> 0şeklinde belirtiniz. "; return 0 }
    if {![info exists ::istekcount([set wnick [md5 [string tolower $uhost]]])]} {
    set ::istekcount($wnick) 0
    utimer 60[list unset ::istekcount($wnick)]
        putquick "PRIVMSG $radyo(chan) :11,1 $nick 0isteğiniz iletilmiştir. Lütfen bekleyiniz, isteğiniz kontrol ediliyor. ";
        putquick "PRIVMSG $radyo(adm) :1İstek isteyen ;4 $nick 1isteği ;4 $arg ";
        return 0
    }
    if {[incr ::istekcount($wnick)] == 1} { putquick "PRIVMSG $radyo(chan) :11,1 $nick 0bu kadar sık istekte bulunamazsınız, biraz bekledikten sonra tekrar deneyin. " }
    return 0
    }
    putquick "PRIVMSG $radyo(chan) :11,1 $nick 0istekler şu anda yayınlanmayacaktır. Lütfen daha sonra tekrar deneyiniz. "
}

Dj $stitle olarak belirtilmiş sanıyorum. Fakat $nick yerine $stitle eklediğim zaman !reklam komutu dahi calısmıyor.

 
Alıntı ile Cevapla

Alt 18 Şubat 2013, 23:54   #6
Çevrimdışı
Was
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

putquick "os global :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| " 

Bu işini görür. DJ değişkeni [temizle $stitle] olarak belirtilmiş.

 
Alıntı ile Cevapla

Alt 19 Şubat 2013, 02:48   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



Was Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

putquick "os global :11,1 [temizle $stitle] 0şu anda yayında. Çalan parça : 5|11 [temizle $calan] 5| " 

Bu işini görür. DJ değişkeni [temizle $stitle] olarak belirtilmiş.


Bunu bende denemiştim hocam fakat, $nick yerine bunu yazdıgımda malesef reklam atmıyor. $nick yazdıgımda yazan kisinin nicki gidiyor.

 
Alıntı ile Cevapla

Alt 20 Şubat 2013, 01:46   #8
Çevrimdışı
Was
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



Ozaman şöyle deneyelim;

önce bir değişken atayalım

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

set yayindaki [temizle $title] 

sonra da bu değişkeni verelim

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

putquick "os global :11,1 $yayindaki 0şu anda yayında." 

Yani;

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

set yayindaki [temizle $title]
putquick "os global :11,1 $yayindaki 0şu anda yayında." 

Denemekte fayda var.

 
Alıntı ile Cevapla

Alt 24 Kasım 2014, 23:32   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo bot sıkıntısı



Şöyle Yapsak Peki ?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#gerekli bindler
bind pub - !reklam No_FeaR
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum"
}

proc No_FeaR {n u h c a} {
  global gnick
    set gnick $n
        set kanal [lindex $a ]
    putserv "allsend all private global Reklamcı 13,1 Müzigin Kalbi 0,1Reklamcı FM'13,1de ATiyor Dinlemek Icin => 9,1 http://Radyo.Reklamcı.Com:PORT/listen.pls 13,1 Adresini TikLayabiLirsiniz....0,1 Reklamcı Fm'e13,1 Hos Geldiniz Suanda Yayinda Olan 9,1 DJ' 13,1Miz 0,1 ($kanal)13,1 Isteklerinizi Radyo Kanalina 0,1!istek13,1 <istediginiz Sarki Mesajiniz> Seklinde Yazabilirsiniz. 0,1Ornek:13,1 Gece Yolculari - Unut Beni Tum0,1 Reklamcı13,1 Ailesine Gelsin..."
}

Olmazsa Bi Alttakini de

proc No_FeaR {n u h c a} {
  global gnick
    set gnick $n
        set kanal [lindex $a ]
    putserv "PRIVMSG global Reklamcı 13,1 Müzigin Kalbi 0,1Reklamcı FM'13,1de ATiyor Dinlemek Icin => 9,1 http://Radyo.Reklamcı.Com:PORT/listen.pls 13,1 Adresini TikLayabiLirsiniz....0,1 Reklamcı Fm'e13,1 Hos Geldiniz Suanda Yayinda Olan 9,1 DJ' 13,1Miz 0,1 ($kanal)13,1 Isteklerinizi Radyo Kanalina 0,1!istek13,1 <istediginiz Sarki Mesajiniz> Seklinde Yazabilirsiniz. 0,1Ornek:13,1 Gece Yolculari - Unut Beni Tum0,1 Reklamcı13,1 Ailesine Gelsin..."
}
 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, radyo, sıkıntısı

« önceki Konu | sonraki Konu »

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

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
Can Sıkıntısı Lady Fıkra 1 08 Nisan 2010 10:36
16 Saatlik Su Sıkıntısı. FaLLeN Genel Paylaşım 0 07 Eylül 2007 13:38




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
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

mimarsinanokullari.com mjsanaokulu.com eburke.org