on * Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. p:#:{ if $opnick == $$me { .timeroto 1 45 radyo irc.****.org (adres) prot } }
on *:deop:#:{ if $opnick == $$me { .timeroto off } }
on *:text:*:#Radyo:{
if !istek* iswm $1- {
if $($+(%,.,istek,.,$nick),2) >= 1 {
.msg $chan 3 Dakika İçinde Sadece 1 İstek Yapabilirsiniz
}
else {
.inc $+(%,.,istek,.,$nick)
msg #dj ISTEK ! 14,1 Isteyen Nick: 5,1 $nick , 14,1 Isteği: 5,1 $2-
.msg $chan 4Isteğiniz DJ'imize Ulaşmıştır: 2 $2-
.timer 1 $calc(3*60) .unset $+(%,.,istek,.,$nick)
}
}
if !durum isin $1- {
.set %kanal $chan
radyo irc.****.org(adres) port
}
if !link isin $1- {
msg $chan 0,4 <**> 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>> Radyo Linki }
}
alias radyo {
if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : 0,4 ** 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>> Radyo Linki) | halt }
if (: isin $1) {
tokenize 58 $1
sockopen radyo $1 $2
set %site $1 $2
}
else { sockopen radyo $1- | set %site $1- }
}
on *:SockOpen:radyo:{
if ($sockerr > 0) return
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo:{
if ($sockerr > 0) return
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. | sockclose radyo | radyo2 }
}
on *:Sockclose:radyo:radyo2
alias radyo2 { sockopen radyo2 %site | unset %site }
on *:SockOpen:radyo2:{
if ($sockerr > 0) return
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo2:{
if ($sockerr > 0) return
var %z
sockread %z
}
on *:SockClose:radyo2:{
sockread -f %radyo
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $gettok(%z,%i,44)
dec %i
}
tokenize 168 %radyo2
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
tokenize 191 %radyo2
msg %kanal 0,4 <**> 0,1 $1 0,5 Turkiye'nin en kaliteli DJ'lerinden Suan online 0,7
msg %kanal -
msg %kanal 0,4 <**> 0,2Sıradaki Parça : 0,10 $4
msg %kanal 0,4 <**> 0,2Dinleme Oranı : 0,10 $6 Kişi Dinliyor
msg %Kanal -
msg %kanal 0,4 <**> 0,6 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>>Radyo Linki
msg %kanal -
msg %kanal 0,4 <**> 2 *~~ 0,4 D 0,1 J 8,1 $1 11,1 $1 ,le mukemmel otesi bir yayın Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ( $1 ) >:4Dinlemek icin > Radyo Linki ~~*
19 Şubat 2008, 23:43
Benzer Konular 
Normal
