mIRCindir.Name ~ mIRC indir

- alias radyom {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a 8244 radyo.Arkadasca-Fm.net | return }
if ($1 == $null) { echo -a 72.20.58.220 radyo.Arkadasca-Fm.net | return }
if (: isin $1) {
echo -a Lütfen Bekleyin..
tokenize 58 $remove($1,http://,/)
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,http://,/) | set %site $remove($1-,http://,/) | echo -a Lütfen Bekleyin.. }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*S:{
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 }
}
on *:Sockclose:radyo*S:radyo2
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site }
on *:SockOpen:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo, ,)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|)
dec %i
}
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
sockclose radyo*S
sockclose radyo*J
tokenize 191 %radyo2
; $1 = Dj in Yazdığı İsim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
echo -a İsim : $1
echo -a Genre : $2
echo -a URL : $3
echo -a ÇaLan Parça : $4
echo -a Şarkı KaLiteSi : $5
echo -a DinLeyici Sayısı : $6
echo -a Max. Dinleyici Sayısı : $7
echo -a DinLeyici Rekoru : $8 & $9
.msg #radyo 4,4 4,4 0,1 Arkadasca-Fm Şuanda Çalan Parçamız. :7,1 $4 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 Yayını Winamptan Dinlemek Için Tıklayınız 7,1Http://83.170.93.64:6573/listen.pls 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 Yayındaki DJ’imiz 7,1 $1 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 Şuanda Yayınımızı 7,1 $6 Kişi Dinlemektedir..4,4 4,4 
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4 
.msg #radyo 4,4 4,4 0,1 !istek Sanatcı Ismi & Şarkısı & Mesajınız Komutunu Kullandıgınızda Isteğiniz Otomatikman Dj’e iletiliyor.4,4 4,4 
}
}
on me:*:join:#radyo:{
.timer 1 2 radyom Http://83.170.93.64:6573/listen.pls
.timer 0 240 radyom Http:///83.170.93.64:6573listen.pls
.timer 0 300 msg #radyo 4,4 4,4 0,1Arkadasca-Fm Winamp’tan Dinlemek icin Tiklayınız –> Http://83.170.93.64:6573/listen.pls 4,4 4,4 
.timer 0 350 msg #radyo 4,4 0,1 İsteklerinizi Radyo Kanalina 7!istek 0 Şeklinde Yapabilirsiniz. 4,4 
}
on *:text:!durum:#radyo:.radyom irc.arkadasca.net:6573
on *:text:*:*:{
if !link == $1 {
/msg $chan 0,1 9Arkadasca-Fm ‘i 7Winamp’tan Dinlemek icin Tiklayınız 4 –> 8 Http:///83.170.93.64:6573listen.pls
}
if !dj == $1 {
/msg $chan 1 Yayında Bulunan DJ : 4[ %bo ]
}
if !dinleyen == $1 {
/msg $chan 1 1 Şuan Radyomuzu : 4[ $6 ] 1Kişi Dinlemekte.
}
if !calan == $1 {
/msg $chan 1 Şuanda Radyomuzda Çalan Şarkı 4[ $4 ] 
}
}
}

7 views

- #sericlone on
on *:snotice:*Client connecting on*:{
.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 3 {
.kline $+(*@,$gettok($gettok($10,2,64),1,41)) 4P12roxy 1/ 4S12ocks/4C12lone 4G12irisi 4Y12apmak 4Y12asaktır 4K12oruma..!
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
#sericlone end

1 views