Ben hem tecrübe oLsun hemde öğrenmek maksatıyLa bi radyo Botu (script) haLinde yapmaya kaLtım Yanlız yanLış bi uygulamaya yapıyorum sanırım
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias radyom {
sockclose radyo*Df
sockclose radyo*zyn
if (: !isin $1) && (!$2) { echo -a 5055 | return }
if ($1 == $null) { echo -a 95.168.187.208 | return }
if (: isin $1) {
tokenize 58 $remove($1,http://,/)
sockopen $+(radyom,$r(1,9999),Df) $1 $2
set %sitem $1 $2
}
else { sockopen $+(radyom,$r(1,999),!) $remove($1-,http://,/) | set %sitem $remove($1-,http://,/) }
}
on *:SockOpen:radyo*Df:{
if ($sockerr) { msg #radyo 4,0 Radyo Offline.. | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:SockOpen:radyo*Df:{
if ($sockerr) { msg #radyo 4,0 Radyo Offline.. | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*Df:{
sockread %radyom
if (icy-name isin %radyom) { set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
if (icy-genre isin %radyom) { set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }
if (icy-url isin %radyom) { set %radyom2 %radyom2 ¿ $remove(%radyom,icy-url) | sockclose radyom | radyom2 }
}
on *:Sockclose:radyo*Df:radyom2
alias radyom2 { sockopen $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }
on *:SockOpen:radyo*zyn:{
if ($sockerr) { msg #radyo 4,0 Radyo Offline.. }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*zyn:{
if ($sockerr) { msg #radyo 0,4 Yayın Offline | return }
var %zm
sockread %zm
}
on *:SockClose:radyo*zyn:{
sockread -f %radyom
var %zm $remove(%radyom,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %im $numtok(%zm,44)
while %im {
set %radyom2 %radyom2 ¿ $remove($gettok(%zm,%im,44),|)
dec %im
}
durumm
unset %radyom2
unset %radyom
}
alias -l durumm {
sockclose radyo*Df
sockclose radyo*zyn
tokenize 191 %radyom2
; $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
msg #radyo 4,4 4,4 0,1 Yayında Bulunan DJ : 7,1 [ $1 ] 4,4 4,4
msg #radyo 4,4 4,4 0,1 Şuan Radyomuzu : 7,1 [ $6 ] 0,1 Kişi Dinlemekte.4,4 4,4
msg #radyo 4,4 4,4 0,1 Şuanda Radyomuzda Çalan Şarkı 7,1 [ $4 ] 4,4 4,4
msg #radyo 4,4 4,4 0,1 Dinleyici Rekoru : 7,1 [ $8 ] 4,4 4,4
msg #radyo 4,4 4,4 0,1 Yayın Türü/Adı : 7,1 [ $2 ] 4,4 4,4
set %dj $1
set %ds $6
set %çp $4
set %dj $1
set %ds $6
set %ac $2
}
#durum on
on *:text:!durum:#radyo:.radyom 95.168.187.208:5055
#durum off
on *:text:*:*:{
if !linkver == $1 {
/msg $chan 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin
}
if !dj == $1 {
/msg $chan 4,4 4,4 0,1 Yayında Bulunan DJ : 7,1 [ %dj ] 4,4 4,4
}
if !dinleyen == $1 {
/msg $chan 4,4 4,4 0,1 Şuan Radyomuzu : 7,1 [ %ds ] 0,1 Kişi Dinlemekte.4,4 4,4
}
if !calan == $1 {
/msg $chan 4,4 4,4 0,1 Şuanda Radyomuzda Çalan Şarkı 7,1 [ %çp ] 4,4 4,4
}
}
}
Bunu Ekledikten Sonra kanaL geneLinde !durum yazınca Herşey Doğru Çıkıyor..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:CONNECT: {
.timer 1 4 /partall
.timer 1 12 /join #radyo2
.timer 1 13 /join #dj2
.timer 0 500 4,4 0,1 Müzigin kalbi 7Radyo Kardelen0,1'de atiyor.. 4,4
.timer 0 500 4,4 0,1 İsteklerinizi radyo kanalina 7!istek <istediginiz sarki ve mesajiniz>0 seklinde yapabilirsiniz. 4,4
.timer 1 15 4,4 0,1 Müzigin kalbi 7Radyo Kardelen0,1'de atiyor.. 4,4
.timer 1 15 4,4 0,1 İsteklerinizi radyo kanalina 7!istek <istediginiz sarki ve mesajiniz>0 seklinde yapabilirsiniz. 4,4
.timer 0 60 /msg #radyo2 4,4 4,4 0,1 Yayında Bulunan DJ : 7,1 [ %dj ] 4,4 4,4
.timer 0 60 /msg #radyo2 4,4 4,4 0,1 Şuan Radyomuzu : 7,1 [ %ds ] 0,1 Kişi Dinlemekte.4,4 4,4
.timer 0 60 /msg #radyo2 4,4 4,4 0,1 Şuanda Radyomuzda Çalan Şarkı 7,1 [ %çp ] 4,4 4,4
.timer 0 60 /msg #radyo2 4,4 4,4 0,1 Yayın Türü/Adı : 7,1 [ %ac ] 4,4 4,4
}
Burda İse Girdikten İtibaren kanaLa Yazıyor Yalnız En Son !durum Dediğimde Çalan Dj Dinleyici ve Şarkının İsmi Çıkıyor Bu Sorunu Nasıl ÇözebiLirim.
Şimdiden SaoluN..