IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   radyo tcl dinleyici nick (https://www.ircforumlari.net/tcl-scriptler/283979-radyo-tcl-dinleyici-nick.html)

S-LiveBiz 30 Ekim 2009 22:04
radyo tcl dinleyici nick
 
arkadaşlar if arama moturunda baya araadım fakat sonuç bulamadım elinde radyo dinleyiclerini nick olarak gösterebilcek tcl olan varsa lütfen paylaşsın tşkler simdiden

kup{a}pazl 31 Ekim 2009 10:03
Cevap: radyo tcl dinleyici nick
 
Toplam 1 Eklenti bulunuyor.
Radyo Dinleyicilerini Nick Olarak Belirtmez ama Radyo kanalında " Voice " Vererek belirtebilir. Ekte Verdim.

S-LiveBiz 31 Ekim 2009 22:10
Cevap: radyo tcl dinleyici nick
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emegine tşk ederm ama nick olarak belirtiodu ya sohbet3.comda görmştm burdan bulabilcegmi hatta burdan aldıgını söyledi :S

Kablosuz NET 31 Ekim 2009 22:16
Cevap: radyo tcl dinleyici nick
 
Kod:
# Radyo dinleyici eklentisi
# site:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Alinti: SaW
# Duzenleyen: aCoustiC

#radyo kanali
set sc(kanal) "#radyo"
#radyo portu
set sc(port) "7979"
#radyo ip
set sc(ip) "174.36.194.119"
#radyo sifre
set sc(sifre) "adminsifremiz"


#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.


bind raw - 315 who_son
bind time - "* * * * *" sc:dinleyici
proc sc:dinleyici {min hour day month year} {
        global nicks SayIp
        http::config -useragent "Mozilla 5.0"
        set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0 -timeout 10000]
        set httpraw [http::data $baglan]
        set nicks ""
        set ips ""
        set SayIp "0"
        http::cleanup $baglan

        if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {
                set listeraw $veri
                bind raw - 352 raw_oku
                regsub -all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw
                foreach strListe $listeraw {
                        if { [regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } {
                                if {[regexp $ipVeri $ips] == "0"} {
                                        lappend ips $ipVeri
                                        incr SayIp
                                       
                                }
                        }
                }
        }
        foreach x $ips {
                putserv "who +i $x"
        }
}
proc raw_oku {from keyword arg} {
        global nicks
        set nick [lindex $arg 5]
        if {[regexp {$nick} $nicks] == "0"} {
               
                lappend nicks $nick
        }
}
proc who_son {from keyword arg} {
        global nicks SayIp
        set SayIp [expr $SayIp - 1]
        ;#putlog $SayIp
        if {$SayIp == "0"} {
                foreach xy [chanlist $::sc(kanal)] {
                        if {[regexp $xy $nicks] == "1"} {
                                if {[isvoice $xy $::sc(kanal)] == "0"} {
                                        putserv "sajoin $xy #radyo"
                                        putserv "mmmode $::sc(kanal) +v $xy"
                                }
                        }
                        if {[regexp $xy $nicks] == "0"} {
                                if {[isvoice $xy $::sc(kanal)] == "1"} {
                                        putserv "mmmode $::sc(kanal) -v $xy"
                                }
                        }
                }
                putserv "os raw :operserv PRIVMSG $::sc(kanal) :\02 0,4.::. Radyomuzu Dinleyenler .::.\02 0,1 $nicks"
                unbind raw - 352 raw_oku
        }
}

Ben bota raw yetkisi vermiştim Operserv yazıyor yazıları.. Kendinize göre düzenleyin..

S-LiveBiz 31 Ekim 2009 22:18
Cevap: radyo tcl dinleyici nick
 
Tşkler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;) sohbet3.com sahibi sesimi duydu verdi =) tşkler emege saygi

deneme1 01 Kasım 2009 08:41
Cevap: radyo tcl dinleyici nick
 
Alıntı:
S-LiveBiz Nickli Üyeden Alıntı (Mesaj 851345)
Tşkler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;) sohbet3.com sahibi sesimi duydu verdi =) tşkler emege saygi
Sende burada paylaşırmısın?

Kablosuz NET 01 Kasım 2009 14:23
Cevap: radyo tcl dinleyici nick
 
TCL http.tcl ile birlikte çalışır buna dikkat ediniz.

East 01 Kasım 2009 14:26
Cevap: radyo tcl dinleyici nick
 
Alıntı:
Edwardian Nickli Üyeden Alıntı (Mesaj 851478)
Sende burada paylaşırmısın?
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'i kast ediyor , paylasmis zaten dostum:)

S-LiveBiz 01 Kasım 2009 21:03
Cevap: radyo tcl dinleyici nick
 
http tcl olan varmi elinde :S

BuCaLI 02 Kasım 2009 13:00
Cevap: radyo tcl dinleyici nick
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:39.
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

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