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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Mayıs 2011, 21:45   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
radyo kodu




# Radyo dinleyici eklentisi
# site: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# 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"


bu tcl kodun mirc versionu varmı arkadaşlar

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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 07 Mayıs 2011, 23:25   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo kodu




Bu mIRC Scriptinde Çalışmaz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


TCL Kodu Bu. Eggdrop Bot'ta Çalışır.

 
Alıntı ile Cevapla

Cevapla

Etiketler
ko, kodu, radyo


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
IRC Sunucu Radyo Kodu. bøCek mIRC Scripting Hazır Kodlar 15 29 Ağustos 2014 19:33
Radyo Botu kodu .. DaDaS mIRC Scripting Hazır Kodlar 1 22 Eylül 2012 17:48
Radyo Kodu Hata Veriyo Toprak mIRC Scripting Sorunları 1 07 Ekim 2011 03:08
Radyo Acma Ve İstek kodu. kup{a}pazl mIRC Scripting Hazır Kodlar 9 13 Ocak 2011 19:45