[shibby]

mp3 player degilde, radyo player. sabit bir radyo ipmiz var. diyalog acilacak. radyoya baglan dicez. o dialog uzerinden baglanip calicak ve dinlicez.

turkcoders 'in yaptigi addonu gordum fakat o cok kullanisli bir radyo addonu. ben tek kendi siteme yaptigim script icin kendi radyoma ayarli bir sey istiyorum. ilgilenirseniz, minnet duyarim.

tesekkurler.
kolay gelsin.

Yok bedava yemek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
istersen TV izleme addonuda yazalım sizin servere özel...

Forumları ara birazda bilgi istedigin gibi bir sürü addon bulacaksın...

[SCouNDReL]

wmplayer.ocx yaralanılarak yazılabilir ;

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

alias cal {
var %i $+(sjn.,$ticks)
comopen %i wmplayer.ocx
var %z $com(%i,Url,4,bstr,$1-)
%z = $com(%i,Controls,3,dispatch* $+(%i,wmp))
%z = $com($+(%i,wmp),Play,3)
}

denemedim ama umarım çalışır..
/cal radyoadı
dialoguda kndin yaparsın herhalde

[shibby]

simdi biraz karistirdimda. mirc radyo yapmis seeyoucry. ona soyledim. benim kodla dialoglari degistirebilirsin. karistir dedi. tabi tam vakif olamadigim icin yapamadim. yalniz dialogu yaptim. eski dialog halide var .mrc uzantili dosyanin icinde bana bu konuda yardimci olabilicek arkadaslar varmi? gondereyim size?

tesekkurler..

[shibby]

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

 
;******************************************* 
; Radyo mIRC v1.5 by SC
; Written by SeeYouCry & Cappystarjoe (SC) 
; 
; 20 Kasım 2005 Pazar
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
;******************************************* 
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 "Radio mIRC v1.5 by SC !.."
  size -1 -1 175 72
  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
  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 9, 3 63 61 8
  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) $+ ]  }
On *:LOAD:{ 
  .echo $timestamp 4*** Radyo mIRC­ v1.5 by SC yüklendi..
  .echo $timestamp 12*** Kullanmak için /Radyo yazıp enterlayınız!..
  .echo $timestamp 14*** [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}

radyonun normal hali bu ben yeni bir dialog duzeni yaptim. o dialogu bu kodlara yedirebilirmiyiz? ben denedim fakat cok hata verdi. yardimci olursaniz sevinirim. bu arada SeeYouCry ilede gorustum kendin degistir dedi. izin aldim yani. kendisinde ricada bulundum fakat isleri oldugundan ilgilenemedi. eger siz yardimci olursaniz sevinirim.

yeni yapmis oldugum dialog;

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

 
dialog yeniRadyo {
  title "Radio mIRC v1.5 by SC !.."
  size -1 -1 175 50
  option dbu
  text "Radyo Server :", 2, 6 20 38 8
  text "Port :", 3, 125 20 15 8
  edit "", 4, 142 19 28 10, disable
  button "Radyoyu Başlat!..", 5, 95 31 75 12
  edit "", 6, 5 8 165 10, read center
  combo 1, 46 19 33 40, disable size edit drop
  text "Ses :", 10, 6 33 16 8
  button "---", 11, 23 31 30 12
  button "-+-", 12, 56 31 30 12
  box "Ayarlar...", 13, 2 0 171 48
}

baglanacagi ip:84.16.243.161 port:5566
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

simdiden tesekkurler.