[winstroy]

Arkadaslar Baktıgım bütün radyo baslıklarının linkleri kırık ölmüs.Tarihleri cok eski.Yada ben sağlamına denk gelemedim.

Benim istedigim Mümkünse tabi. /radyo yazdıgım zaman herhangi bir pencere istemıyorum direk müzik baslasın.durdurmak içinde /dur yazdıgımda dursun mümkünmüdür.
tşkler şimdiden.

[Editor]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

menu status,channel {
  -
  †mIRC Radyo†:/dialog -m radyo radyo
  -
}
alias radyo { if (!$dialog(radyo)) { .dialog -md radyo radyo } }
alias -l radyom { sockopen bilgi $1 $2 }
alias -l radyobaslat { if ($exists(ilk.mp3) == $true) { .remove ilk.mp3 } | if ($exists(son.mp3) == $true) { .remove son.mp3 } | %dosya = ilk.mp3 | .timerradyoyubaslat 1 30 radyoçal | if ($sock(radyo)) { .sockclose radyo }  | .sockopen radyo $did(radyo,1).seltext $did(4).text | .did -b radyo 1,4,5,8,14 | .did -e radyo 7 } 
alias -l mp3degistir { if ($exists($filename) == $true) { .remove $shortfn($filename) |  if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 } } } 
alias -l radyoçal { if $exists(%dosya) { .radyom $did(radyo,1).seltext $did(radyo,4).text  | .splay %dosya } | .did -ra Radyo 6 --->> Radyo Aktif!.. <<--- | if (%dosya == ilk.mp3) { .set %dosya son.mp3 } | else { .set %dosya ilk.mp3 }  } 
alias -l radyoyukle { .splay stop | if ($sock(radyo)) { sockclose radyo } | %SC = 0 | .did -r radyo 1 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | .did -a radyo 1 $gettok($read(Radyo.txt,%SC),1,58)  } | .did -c radyo 1 1 | portuyaz }
alias -l radyoekle { .write Radyo.txt $+($?:"Ekleyeceğiniz Radyonun IP Adresi?:",:,$?:"Port?:") | radyoyukle }
alias -l radyosil { .write -dl $+ $did(radyo,1).sel Radyo.txt | radyoyukle }
alias -l portuyaz { %SC = 0 | while ($lines(Radyo.txt) > %SC) { .inc %SC 1 | if ($did(radyo,1).seltext == $gettok($read(Radyo.txt,%SC),1,58)) { .did -ra radyo 4 $gettok($read(Radyo.txt,%SC),2,58)  }  }  }
on 1:mp3end:{ if $exists(%dosya) { .splay %dosya | .radyom $did(radyo,1).seltext $did(radyo,4).text } | .mp3degistir } 
on 1:sockopen:radyo:{ 
  if ($sockerr) { .did -ra radyo 6 ---> Bağlantı Kurulamadı!.. Tekrar Deneyiniz!.. <--- | halt } 
  .sockwrite -n radyo get / http/1.0 
  .sockwrite -n radyo Host: $sock(radyo).ip 
  .sockwrite -n radyo user-agent: mssc/1.1 
  .sockwrite -n radyo accept: */* 
  .sockwrite -n radyo icy-metadata:0 
  .sockwrite -n radyo connection: close 
  .sockwrite -n radyo 
  .did -ra Radyo 6 -->> Bağlantı Kuruldu!.. Radyo mIRC Yükleniyor... <<--
} 
on 1:sockread:radyo:{ .sockread &radyo | .bwrite %dosya -1 -1 &radyo | .sockread &radyo } 
on 1:sockclose:radyo:{ .did -ra radyo 6 ---> Bağlantı Kurulamadı!.. <--- }
dialog Radyo {
  title "Radyo"
  size -1 -1 175 65
  option dbu
  text "Radyo Server :", 2, 6 20 38 8
  text "Port :", 3, 125 20 15 8
  edit "", 4, 142 19 28 10
  button "Radyoyu Başlat!..", 5, 95 47 75 12
  edit "", 6, 5 8 165 10, read center
  button "Radyo Değiştir...", 7, 5 32 81 12
  button "Radyo Sil..", 8, 133 32 37 12
  combo 1, 46 19 76 40, size drop edit
  text "Ses :", 10, 6 49 16 8
  button "---", 11, 23 47 30 12
  button "-+-", 12, 56 47 30 12
  box "Ayarlar...", 13, 2 0 171 62
  button "Radyo Ekle..", 14, 95 32 37 12
}
on *:dialog:radyo:init:0:{ .radyoyukle | .did -b radyo 7 | .did -ra radyo 6 ---> Bağlantı Yok <--- }  
on *:dialog:radyo:*:*:{ 
  if $devent == sclick { 
    if $did == 1 { .portuyaz }
    if $did == 5 { .radyobaslat }
    if $did == 11 { .vol -p $calc($vol(song) - 4000) }
    if $did == 12 { .vol -p $calc($vol(song) + 4000) }
    if $did == 14 { .radyoekle }
    if $did == 8 { .radyosil }
    if $did == 7 { .did -e radyo 1,4,5,7,8,14 | .sockclose radyo | .splay stop | .did -ra radyo 6 ---> Bağlantı Yok <--- }
  }
  if $devent == close { .timerradyoyubaslat off | .sockclose radyo | .splay stop }
}
on *:sockopen:bilgi:{
  if ($sockerr > 0) return
  .sockwrite -n bilgi GET /7.html HTTP/1.0
  .sockwrite -n bilgi User-Agent: Mozilla
  .sockwrite -n bilgi 
}
on *:sockread:bilgi:{  if ($sockerr > 0) return | var %oku | sockread -f %oku | while ($sockbr) sockread %oku }
on *:sockclose:bilgi:{ var %csj | sockread -f %csj | %csj = $remove(%csj,<body>,<html>,</body>,</html>,<head>,</head>,<meta http-equiv="Pragma" content="no-cache">) | .did -ra radyo 6 [Çalan Parça: $gettok(%csj,7-,44) $+ ]  }

Bu Kod işini Görücektir.Yapımcısı Hakkında Bilgim yok Kolay Gelsin.

/radyo Denemenle birlikte Çalışır.

[eXLove]

!durum !calan !istek filan bunların da oldugu bi addon varmı kendi scriptime eklicem ama mümkünse paylasırmısınız

[Murebba]

: ))))))))))))))

[qAriSmA]

Sagopa Aliases e Aynen ekLedım Kodu fakat :

* Hafızayı Ayırmada Hata var (Satır 29, aliases.ini)

Gibi bi Sorun ÇıqTı çaLışmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Asimavi]

qAriSmA Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sagopa Aliases e Aynen ekLedım Kodu fakat : * Hafızayı Ayırmada Hata var (Satır 29, aliases.ini) Gibi bi Sorun ÇıqTı çaLışmadı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Daha Önce Radyo İsminde Bir Dialogunuz Varsa Onunla Çakışmış Olabilir.
Denedim Sorunsuz Çalışmakta Bende.