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 bot sıkıntısı (https://www.ircforumlari.net/eggdrop-neostats-bnc/523899-radyo-bot-sikintisi.html)

Rhall 17 Şubat 2013 18:24
Radyo bot sıkıntısı
 
Merhaba arkadaşlar yapmış oldugum kodlama aşagıdadır

Kod:
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:
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 ?

Was 17 Şubat 2013 19:29
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.

Rhall 18 Şubat 2013 00:27
Cevap: Radyo bot sıkıntısı
 
Çok teşekkür ederim yardım için fakat olmuyor hocam

saywhat 18 Şubat 2013 16:04
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...

Rhall 18 Şubat 2013 17:48
Cevap: Radyo bot sıkıntısı
 
Kod:
#################### 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.

Was 18 Şubat 2013 23:54
Cevap: Radyo bot sıkıntısı
 
PHP- Kodu:
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ş.

Rhall 19 Şubat 2013 02:48
Cevap: Radyo bot sıkıntısı
 
Alıntı:
Was Nickli Üyeden Alıntı (Mesaj 1041282325)
PHP- Kodu:
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.

Was 20 Şubat 2013 01:46
Cevap: Radyo bot sıkıntısı
 
Ozaman şöyle deneyelim;

önce bir değişken atayalım

PHP- Kodu:
set yayindaki [temizle $title] 
sonra da bu değişkeni verelim

PHP- Kodu:
putquick "os global :11,1 $yayindaki 0şu anda yayında." 
Yani;

PHP- Kodu:
set yayindaki [temizle $title]
putquick "os global :11,1 $yayindaki 0şu anda yayında." 
Denemekte fayda var.

No_FeaR 24 Kasım 2014 23:32
Cevap: Radyo bot sıkıntısı
 
Şöyle Yapsak Peki ?

Kod:
#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..."
}


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk