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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 04 Kasım 2009, 03:22   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 06 Kasım 2009, 14:13   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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

 
Alıntı ile Cevapla

Alt 11 Kasım 2009, 13:53   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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.

 
Alıntı ile Cevapla

Alt 11 Kasım 2009, 14:49   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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.

 
Alıntı ile Cevapla

Alt 11 Kasım 2009, 16:04   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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.

 
Alıntı ile Cevapla

Alt 23 Aralık 2009, 09:12   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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


Konu ulusalchat tarafından (23 Aralık 2009 Saat 20:51 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 25 Aralık 2009, 15:34   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




ß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ı ?

 
Alıntı ile Cevapla

Alt 27 Aralık 2009, 04:53   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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

 
Alıntı ile Cevapla

Alt 27 Aralık 2009, 13:40   #19
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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"



__________________
...yoruldum patron! "
 
Alıntı ile Cevapla

Alt 04 Ocak 2010, 22:50   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo tcl dinleyici nick




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ı

 
Alıntı ile Cevapla

Cevapla

Etiketler
dinleyici, nick, radyo, tcl


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

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
Radyo.tcl dinleyici yükseltme yardim Soner TCL Scriptler 7 06 Şubat 2014 09:16
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