IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Radyo Addonu LAzım ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/56495-radyo-addonu-lazim.html)

Cevap: Radyo Addonu LAzım ?

Alıntı:

MoRtaL_ Nickli Üyeden Alıntı (Mesaj 494479)

Kod:

Lütfen Bekleyin..

İsim : Cÿneyt Tek - Yalan Mÿydÿ

Genre : 24

URL : 1

ÇaLan Parça : 64

Şarkı KaLiteSi : 6

DinLeyici Sayısı : 0

Max. Dinleyici Sayısı : 1

DinLeyici Rekoru : &

Radyo Yazdıqımda ßoyle Cıkıyo ßunları Otomatik Olarak Radyo Kanalına Kendi Kendine yazamazmi ? 1-2 Dakikada ßir Falan

echo komutlarını msg yapıcaksın. sonra bir de /timer 0 120 /radyo dersen 2 dk'da bir yollar.

Cevap: Radyo Addonu LAzım ?

Alıntı:

sevenler12 Nickli Üyeden Alıntı (Mesaj 494566)

Buyur sana istediğin gibi radyo addonu
radiosys.mrc i not defteriyle felan aç orada kendi radyo adresini yazman için yer var değiştir kaydet daha sonra mirc e load yap..
Not: dlls dosyası scriptin ana klasöründe olmalı...

Link :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Link calismiyor yenileyebilirmisin?

Cevap: Radyo Addonu LAzım ?

Kod:

 

alias radyo { 

  sockclose radyo  

  if ($1 == $null) { echo -a Radyo Adı Yazın (Örn : radyo.deneme.com:2525) | halt }  

  if (: isin $1) { 

    echo -a Lütfen Bekleyin..    

    tokenize 58 $1  

    sockopen radyo $1 $2 

    set %site $1 $2 

  } 

  else { sockopen radyo $1- | set %site $1- | echo -a Lütfen Bekleyin.. } 

} 

on *:SockOpen:radyo:{ 

  if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }   

  sockwrite -tn $sockname GET / HTTP/1.1 

  sockwrite -tn $sockname $crlf 

} 

on *:Sockread:radyo:{    

  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:) | 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) { echo -a Siteye BağLanmada Hata! | 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 

  } 

  gostert 

  unset %radyo2 

  unset %radyo 

} 

alias -l gostert { 

  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 

  ; $10 = Ne oLduunu biLmiOm :) 

  .msg radyo 2İsim :4 $1 

  .msg radyo 2Genre :4 $2 

  .msg radyo 2URL :4 $3 

  .msg radyo 2ÇaLan Parça :4 $4 

  .msg radyo 2Şarkı KaLiteSi :4 $5 

  .msg radyo 2DinLeyici Sayısı :4 $6 

  .msg radyo 2Max. Dinleyici Sayısı :4 $7 

  .msg radyo 2DinLeyici Rekoru :4 $8 & $9 
 

  .msg #radyo 2Alemin En KraL 4Radyo2'Su DuygusehriFm'e Hoş Geldiniz. Yayınımızı Winamp Uzerinden Dinlemek Icin 7http://85.105.10.100:8032/listen.pls 2Tıklamanız Yeterli Olacaktır. Yayında Çalan Parça4 $1 2Dinleyici Sayısı4 $6 2DuygusehriFm 

}

NOT: ALINTIDIR.

Cevap: Radyo Addonu LAzım ?

Lütfen Bekleyin..
-
* /sockread: soket kullanılamaz (line 37, whoisa~1.ini)

arkadaslar bende neden böyle diyor?

Cevap: Radyo Addonu LAzım ?

link calısıyor teşekkürler

Cevap: Radyo Addonu LAzım ?

alias cal {
if ($1 != Dur) {
set %caldir $+(sjn.,$ticks)
.comopen %caldir wmplayer.ocx
var %z $com(%caldir,Url,4,bstr,$1-)
%z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
%z = $com($+(%caldir,wmp),Play,3)
}
if ($1 == Dur) && ($com(%caldir)) {
%z = $com($+(%caldir,wmp),Stop,3)
unset %z
}
}
dialog nmkradio {
title "Radio"
size -1 -1 132 57
option dbu
edit "", 1, 32 12 98 10, autohs
text "Adres :", 2, 3 13 25 8
button "Çal", 3, 4 28 37 12
button "Dur", 4, 46 28 37 12
button "Gizle", 5, 89 28 37 12
text "Örnek : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 6, 28 2 101 8
button "Ses ver (+)", 7, 5 43 52 12
button "Ses kıs (-)", 8, 70 43 52 12
}
on 1:dialog:nmkradio:*:*:{
if ($devent == init) {
did -a nmkradio 1 %radioadres
}
if ($devent == sclick) {
if ($did == 3) { .cal $did(1) | .set %radioadres $did(1) }
if ($did == 4) { .cal dur }
if ($did == 5) { .dialog -x nmkradio nmkradio }
if ( $did == 7 ) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
if ( $did == 8 ) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
}
}
menu * {
-
Radio aç:.dialog -m nmkradio nmkradio
-
}

Cevap: Radyo Addonu LAzım ?

Alıntı:

sevenler12 Nickli Üyeden Alıntı (Mesaj 494566)

link kırılmış elinde olan arkadaşlar yenileyebilirmi