IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu   Reklam Alanı


  IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu IF - Unreal, Services ve Eggdroplar Eggdrop ve BNC TCL Scriptler

Bizim mekan Reklam alanı

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama Stil
Alt 02 Temmuz 2016, 14:36   #1
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post Radyo Dinleyen Voice TCL

Kod:
 #############################################
#     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 "95.168.187.16"
# Radyo portunu yazınız..
 set rport "6161"
# Radyo şifresini yazınız..
 set rsifre "!!sanadiryar++"
# Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz.
# Örnek #Radyo ile #radyo farklıdır ;)
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"





 immortaL isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
dinleyen, radyo, tcl, voice

Seçenekler Arama
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 Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:24.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
IRCForumu - Sohbet - Bizim mekan
Copyright ©2005 - 2016 IRCForumu.Net | Tüm Hakları Saklıdır.