radyo tcl dinleyici nick - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

seal · 04 Kasım 2009, 03:22

TechnicaL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

# 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..

Teşekkür ederim bana da lazımdı bu yalnız yapamadım ben. Ben şu şekilde yaptım acaba yanlışım var mı, yada nerede yanlış yapıyorum :

1 - Bu satırlar komple kopyaladım ve şu an hali hazırda kullandığım Radyo.tcl 'nin en altına kopyaladım
2- Radyo botunu Oper Komutu girdirdim ircop seviyesinde

acaba ne yapmam lazım ??

Sewgilim · 06 Kasım 2009, 14:13

TechnicaL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

# 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..

iyi güzel dağıtmışsınız ellerinize sağlık fakat kurulum bilgisi verseniz diğer insanlar açısından daha makbul geçer tekrardan eywallah...

qusursuz · 11 Kasım 2009, 13:53

Sewgilim Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

iyi güzel dağıtmışsınız ellerinize sağlık fakat kurulum bilgisi verseniz diğer insanlar açısından daha makbul geçer tekrardan eywallah...

arkadasim , elindeki herhangi bir tcl dosyasinin icini ac icindekileri sil arkadasin verdigi kodu yapisdir , kaydet kapat. adinida radyoek olarak degisdir. ( ne yazarsan yaz ). daha sonra radyo confunda tcl satırına ekle.

Botun Network Admin olmasi lazım veyahut Services Admin olup Sunucunda services adminlerin raw yetkisi olmazı lazım .

http.tcl adinda bir tcl daha ekliyorsun confuna ..

*************************

Ben bu tcl yi kurdum calisdirdim cok hos guzel yapanin dusunenin eline saglik.. Lakin abiler bir seyi beceremedim ;

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

putserv "os raw :operserv PRIVMSG $::sc(kanal) :\02 0,4.::. Radyomuzu Dinleyenler .::.\02 0,1 $nicks"

Ben bunu nasıl kanala notice olarak yansiticam da herkez okuyacak..

Raw veyahut global mesaj olmasını istemiyorum..

İlgilenirseniz sevinirim.

3rd41 · 11 Kasım 2009, 14:49

qusursuz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Lakin abiler bir seyi beceremedim ;

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

putserv "os raw :operserv PRIVMSG $::sc(kanal) :\02 0,4.::. Radyomuzu Dinleyenler .::.\02 0,1 $nicks"

Ben bunu nasıl kanala notice olarak yansiticam da herkez okuyacak..

Raw veyahut global mesaj olmasını istemiyorum..

İlgilenirseniz sevinirim.

PRIVMSG yazısını NOTICE ile değiştireceksin..
artı olarak bunu operserv in değilde botun yazmasını istiyorsan..
os raw :operserv bu satırı silmelisin..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

qusursuz · 11 Kasım 2009, 16:04

3rd41 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

PRIVMSG yazısını NOTICE ile değiştireceksin..
artı olarak bunu operserv in değilde botun yazmasını istiyorsan..
os raw :operserv bu satırı silmelisin..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

satiri silmek kafiymis saol hocam bizde basina putserv notice yalandan yazip duruyoz ..

Bunu istememin amaci adminlere paso global mesajini gosteriyo goruntu kirliligi simdi daha cix oldu tsk ettim bilginiz icin.

ulusalchat · 23 Aralık 2009, 09:12

merhaba paylasim icin tesekkürler

bende bot calisti ancak nickler görünmedi

ayrica böle bir hata aliyorum
[08:56] Tcl error [who_son]: can't read "SayIp": no such variable

Edit : kodlamada sorun yok sorun bendeymis rayoyu dinledigim ip baska seerverde duran nick bnc ipler farklı oldugunda yazmıyormus kod gayet güzel calisiyor

nickler arasi bi ayrac kullana bilirmiyiz - yada | gibi
örnek Nick - Nick - Nick yada Nick | Nick | Nick daha anlasilir olur

Küsqün · 25 Aralık 2009, 15:34

ßunun daha sade göze daha hoş hitap eden ve dinleyici nick olarak yansıtmayıp sadece voice versin istiyorum.Elinde Olan varsa paylaşırmısınız arkadaşlar.
ßu arada Radyo Dinleyen Kişiye voice verdiğinde Kişi radyo dinlemeyi kestiğinde voicesini alacakmı ?

Küsqün · 27 Aralık 2009, 04:53

DeLiGeNnC Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Radyo Dinleyicilerini Nick Olarak Belirtmez ama Radyo kanalında " Voice " Vererek belirtebilir. Ekte Verdim.

Peki bunu nasıl yapacaz yani diğer radyo.tcl kalacakmı bunu ayrı yeten Scripts klasörünün içine mi atacaz.Tam olarak ayrıntılarına kadar anlatırmısın..

Ve bu arada Kişi radyo dinlemeyi kestiğinde voiceyi geri alıyormu ?

Kuran arkadaşlar varsa nasıl çalıştığına dair yorum yaparsanız sevinirim..

kup{a}pazl · 27 Aralık 2009, 13:40

Normal Radyo.conf 'a ekleyip scripts klasorune koyman yeterli. Sanırım Radyoyu kapatandan geri almıyor. Ama yapıladabilir sanırım.

Alıntı:

#############################################
# radyo-yama.tcl By MeCHuL
# Yayını dinleyene voice verir.
# yayını dinlediği için teşekkür eder..
#############################################
# Radyo ip'sini yazınız..
set radyoip "RADYOIP"
# Radyo portunu yazınız..
set rport "RADYOPORT"
# Radyo şifresini yazınız..
set rsifre "RADYOSIFRE"
# Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz.
# Örnek #Radyo ile #radyo farklıdır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set rkanal "#Radyo"
################################################## #############
################################################## #############
### PROCS............................................. ..........
################################################## #############
################################################## #############
bind time - "* * * * *" yenidinleyici
proc yenidinleyici {min hour day month year} {
global radyoip rsifre rport
if {[catch {set sock [socket $radyoip $rport] } sockerror]} {
putlog "error: $sockerror"
return 0
} else {
puts $sock "GET /admin.cgi?pass=$rsifre&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: $radyoip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]
}
}
close $sock
}
set voicevr [temiz $voicevr]
set deger 0
set ::rawcount 0
set ipler ""
bind raw - 352 voysver
foreach i $voicevr {
if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {
incr ::rawcount
lappend ipler "[lindex $voicevr $deger] "
}
incr deger
}
set ydeger 0
foreach j $ipler {
putquick "who +i [lindex $ipler $ydeger]"
incr ydeger
}
}
proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }
proc voysver {from keyword arg} {
global rkanal
if {![isvoice [lindex $arg 5] $rkanal]} {
putquick "mode $rkanal +v [lindex $arg 5]"
putquick "privmsg $rkanal \002[lindex $arg 5]: \002 Radyo yayınımızı dinlediğiniz için teşekkürler.."
}
}
bind raw - 315 countdusur
proc countdusur {from keyword arg} {
set ::rawcount [expr $::rawcount - 1]
if {$::rawcount == "0"} {
unbind raw - 352 voysver
}
}
proc temiz {veri} {
regsub -all \< $veri " " veri
regsub -all \/ $veri " " veri
regsub -all \> $veri " " veri
return $veri
}
putlog "radyo-yama.tcl By \002MeCHuL"

hipokrat · 04 Ocak 2010, 22:50

ben dediklerini yaptım ama söylemedi dinleyicini nickini tclden bi hata veriyo
Tcl error [who_son]: can't read "SayIp": no such variable
yukarda arkadas yazmış bu hatayı ama çalıştığını söylüyo bende çalışmadı

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo dinleyici kayit sistemi	Set	mIRC Scripting Hazır Kodlar	18	15 Mart 2020 17:27
Radyo.tcl dinleyici yükseltme yardim	Soner	TCL Scriptler	7	06 Şubat 2014 09:16
radyo.tcl de dinleyici Sayısı nasıl arttırılır ?	o1KnoppiX	TCL Scriptler	12	02 Mart 2013 03:42
Radyo Dinleyici	Küsqün	Eggdrop, NeoStats, BNC	7	23 Şubat 2010 09:47
Radyo Dinleyici Sayısı Artırma	CanDostu	Eggdrop, NeoStats, BNC	9	22 Şubat 2010 04:47

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.