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

S-LiveBiz · 30 Ekim 2009, 22:04

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

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

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

S-LiveBiz · 31 Ekim 2009, 22:10

[Ü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

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

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.

alphae · 01 Temmuz 2019, 16:22

Bunu .durum veya .dinleyci yazarak nsil calsitira biliriz..

şöyle bir durum var her kanala giridignde bot dinleycileri veriyor odaya 1 dakada 10 kisi girse 10 defa veriyor

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

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.