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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Mp3 Player Koduna Radyo Ekleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/691224-mp3-player-koduna-radyo-ekleme.html)

hay_ta 07 Nisan 2015 21:50
Mp3 Player Koduna Radyo Ekleme
 
Sa. Arkadaşlar Elimde Şöyle bir Kod Var. Bu Kod Sayesinde Toolbarıma Mp3 player ekledim. Ben bunu Mp3 player olarak değilde radyo olarak kullanmak istiyorum. Şöyleki Şarkı falan eklemicek Kullanıcı. Resimdede Görüldüğü gibi Sadece Açıp kapatacak. ses yükseltip Kısacak.

Eklenecek Radyo Linki: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
Not:Görünüm Aynı kalabilir.

Görüntü
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod
Kod:
alias mp3_tek {
  var %a = $shortfn($msfile(D:,Mp3 Klasörünü Seçiniz..,Ekle))
  if (%a) {
    var %i = 1
    while (%i <= $msfile(0)) {
      write $text(liste.txt) $msfile(%i)
      inc %i
    }
    did -r T_bar 60
    mp3_liste
  }
}
alias  mp3_klasör {
  window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  loadbuf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $text(liste.txt)
  var %x = $findfile($shortfn($sdir(D:)),*.mp3,0,aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1-)
  savebuf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $text(liste.txt)
  window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  did -r T_bar 60
  mp3_liste
}
alias mp3_stop {
  if ($dialog(T_bar)) {
    .splay stop
    .timermpos_mp3bar off
    .timertrak off
    did -ra T_bar 63 00:00 / 00:00
    did -ra T_bar 61 Çalmıyor..
    did -i T_bar 62 1 params 0
  }
}
alias mp3_pause {
  if ($oku(Mp3) && $insong) {
    if ($oku(Mp3Pause) = pause) {
      splay resume
      Yaz Mp3Pause resume
    }
    elseif ($oku(Mp3Pause) = resume) {
      splay pause
      Yaz Mp3Pause pause
    }
  }
}
alias mp3_geri {
  var %x = $read($text(liste.txt), w, * $+ $oku(Mp3) $+ *)
  if (%x) {
    var %line = $readn
    if (%line == 1) {
      var %line = $lines($text(liste.txt))
      Yaz Mp3 $read($text(liste.txt), %line)
      mp3_çaldır
    }
    else {
      Yaz Mp3 $read($text(liste.txt),$calc(%line - 1))
      mp3_çaldır
    }
  }
}
alias mp3_ileri {
  var %x = $read($text(liste.txt), w, * $+ $oku(MP3) $+ *)
  var %c = $readn,%lines = $lines($text(liste.txt))
  if (%x) {
    var %line = $readn
    if (%line == $lines($text(liste.txt))) {
      var %line = 1
      Yaz Mp3 $read($text(liste.txt), %line)
      mp3_çaldır
    }
    else {
      Yaz Mp3 $read($text(liste.txt),$calc(%line + 1))
      mp3_çaldır
    }
  }
}
alias mp3_çaldır {
  if ($oku(MP3)) {
    .splay -p " $+ $shortfn($oku(MP3)) $+ "
    var %read = $read($text(liste.txt),w,$oku(MP3)),%line = $iif($readn = 0,$lines($text(liste.txt)),$readn)
    if ($dialog(T_bar)) { did -c T_bar 60 %line }
    $iif($dialog(T_bar),.timermpos_T_bar 0 1 $!iif($dialog(T_bar) && $!insong,did -ra T_bar 63 $!mpos $chr(47) $!mlen))
    $iif($dialog(T_bar),.timertrak 0 1 $!iif($dialog(T_bar),mp3trak))
    $iif($dialog(T_bar),did -ra T_bar 61 $remove($nopath($oku(MP3)),.mp3))
    if ($oku(MP3Anons) == evet && $server) {
      if ($oku(MP3a) = kanala) {
        scid $scon($activecid) ame $replace($oku(MP3Msg),<artist>,$sound($oku(MP3)).artist,<song>,$sound($oku(MP3)).title,<duration>,$mlen($oku(MP3)),<kbps>,$sound($oku(MP3)).bitrate $+ .kbps,<khz>,$calc($sound($oku(mp3)).sample / 1000) $+ .khz,<fname>,$remove($nopath($oku(MP3)),.mp3))
      }
      else {
        scid $scon($activecid) ame $replace($oku(MP3Msg),<artist>,$sound($oku(MP3)).artist,<song>,$sound($oku(MP3)).title,<duration>,$mlen($oku(MP3)),<kbps>,$sound($oku(MP3)).bitrate $+ .kbps,<khz>,$calc($sound($oku(mp3)).sample / 1000) $+ .khz,<fname>,$remove($nopath($oku(MP3)),.mp3))
      }

      elseif ($oku(MP3AdvMeth) = allchans) {
        mp3_netadv
      }
    }
  }
}

alias mp3_Temizle {
  var %x = $input(Şarkı Listesi Temizlenecek Eminmisiniz?,yq,Seciniz...)
  if (%x = $true) {
    did -r T_bar 60
    write -c $text(liste.txt)
    mp3_liste
  }
}
on *:dialog:T_bar:close:*: {
  .timermpos_mp3bar off
  .timertrak off
}
on *:MP3End: {
  if ($dialog(T_bar)) {
    did -ra T_bar 63 00:00 / 00:00
  }
  if ($oku(Mp3Mode) = Karışık) {
    Yaz mp3 $read($text(liste.txt))
    mp3_çaldır
  }
  elseif ($oku(Mp3Mode) = Tekrar) {
    mp3_çaldır
  }
  elseif ($oku(Mp3Mode) = Devamlı) {
    mp3_ileri
  }
  elseif ($oku(Mp3Mode) = Normal) {
    mp3_stop
  }
  else {
    .timertrak off
    .timermpos_mp3bar off
  }
}

alias mp3_mod {
  $iif($1 = 1,Yaz MP3Mode normal)
  $iif($1 = 2,Yaz MP3Mode Karışık)
  $iif($1 = 3,Yaz MP3Mode Tekrar)
  $iif($1 = 4,Yaz MP3Mode Devamlı)
}

alias mp3_anons {
  if ($oku(MP3Anons) = on) {
    Yaz MP3Anons off
  }
  elseif ($oku(MP3Anons) = off) {
    Yaz MP3Anons on
  }
}

alias mp3_liste { .filter -k $text(liste.txt) $iif($1 = -d,mp3_add2,mp3_add) | if ($1 != -d) { .signal mp3_liste } }
alias mp3_add { did -a T_bar 60 $remove($nopath($1-),.mp3) | did -c T_bar 60 1 }
alias mp3_add2 { did -a mp3_dosya 1 $remove($nopath($1-),.mp3) }
on *:signal:mp3_liste: {
  if ($oku(MP3)) {
    var %r = $read($text(liste.txt),w,$oku(MP3)),%c = $readn
    did -c T_bar 60 %c
  }
}
alias mp3_dosya {
  if (!$dialog(mp3_dosya)) dialog -m mp3_dosya mp3_dosya
  else { dialog -x mp3_dosya }
}
dialog mp3_dosya {
  title "Çalma Listesi"
  size -1 -1 137 111
  option dbu
  icon $icl, 0
  list 1, 2 2 133 94, size
  button "Sil", 2, 57 98 35 10
  button "Tamam", 3, 98 98 35 10, ok
}
on *:dialog:mp3_dosya:*:*:{
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetFont $dname 1,2,3 11 1100 Tahoma
    mp3_liste -d
  }
  if ($devent == close) {
    did -r T_bar 60
    mp3_liste
  }
  if ($devent == sclick) {
    if $did == 2 { 
      if ($did($dname,1).sel) {
        var %s = $ifmatch
        .write -dl $+ %s $text(liste.txt)
        did -r $dname 1
        mp3_liste -d
      }
    }
    if $did == 3 { dialog -c $dname  }
  }
}
dialog vol {
  title ""
  size -1 -1 20 40
  option dbu
  list 1, 5 0 12 44, size
  check "Zzz;)", 2, 0 44 22 8
}
on *:Dialog:vol:*:*:{
  if ($devent == init) {
    var %N = $dname
    mdx MarkDialog %N
    mdx SetDialog vol Style dlgframe
    mdx SetBorderStyle %N 1
    mdx SetControlMDX 1 Trackbar both noticks vertical tooltips > $bars
    did -i vol 1 1 params $calc(65535 - $vol(master)) 0 65535 * * * * 16
    if ($calc(65535 - $vol(master)) 0 65535 * * * * 20 = 0) { did -c vol 2 }
    dialog -s vol 850 1 40 90
  }
  if ($devent == sclick) {
    var %N = $dname
    if ($did == 0) {
      dialog -x %N
    }
    if ($did == 1) { 
      did -u %N 2
      vol -v $calc(65535 - $gettok($did($did,1),1,32))
      if ($gettok($did($did,1),9,32) = tiptext) { did -i %N $did 1 tiptext $iif($int($calc($vol(master) /655.35)) = 0,Sessiz,$int($calc($vol(master) /655.35)) $+ %) }
      if ($gettok($did($did,1),1,32) = 65535) { did -c %N 2 }
    }
    if ($did == 2) {
      if ($vol(master) = 0) { vol -v 65535 }
      if ($vol(master) != 0) { vol -v 0 }
      :a
      did -ci %N 1 1 params $calc(65535 - $vol(master)) 0 65535 * * * * 20
      halt
    }

  }


}
alias mp3trak {
  if ($dialog(T_bar)) {
    did -i T_bar 62 1 params $round($calc($calc($inmp3.pos / $inmp3.length) * 100),0)
  }
  else { .timertrak off }
}
alias mpos {
  if (!$insong) { return 2 | halt }
  var %x = $calc($insong.pos /1000)
  return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss))
}

alias mlen {
  if ($1) {
    if (!$exists($1-)) { return 1 | halt }
    var %x = $calc($sound($1-).length /1000)
    return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss))
  }
  if (!$1) {
    if (!$insong) { return 00.00 | halt }
    var %x = $calc($insong.length /1000)
    return $gmt(%x,$iif(%x >= 3600,hh:nn:ss,nn:ss))
  }
}

on *:join:#: { if $nick == $me { xpencere $chan } }
alias xpencere {
  if !$widnow(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -dp +L @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0 250 100 | window -h @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
  drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(background) 50 $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).x  $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).y $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).w $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).h
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(own text) TimesNewRoman 30 30 40 $1
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(info text) TimesNewRoman 14 20 15 Sohbetin Tek Adresi 
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $colour(ctcp text) TimesNewRoman 15 100 30 irc.RenkSohbet.com
  drawsave @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+($chan,_tmp.bmp)
  background -p $1 $+($chan,_tmp.bmp)
  .remove $+($chan,_tmp.bmp)
  set %checks $color(background)
}


#sefect on
on 1:open:?:{
  if ($nick == $me) { halt }
  else { splay sounds\ao.wav | halt }
}

on ^1:join:#: {
  if ($nick != $me) { halt }
  else { splay sounds\join.wav | halt }
}
on 1:part:#: {
  if ($nick != $me) { halt }
  else { splay sounds\part.wav | halt }
}
on 1:voice:#: {
  if ($vnick != $me) { halt }
  else { splay sounds\voice.wav | halt }
}
on 1:devoice:#: {
  if ($vnick != $me) { halt }
  else { splay sounds\devoice.wav | halt }
}
on *:op:#: {
  if ($opnick == $me) {
    splay sounds\op.wav
  }
}
on 1:deop:#: {
  if ($opnick != $me) { halt }
  else { splay sounds\deop.wav | halt }
}
on 1:connect:{ splay sounds\connect.wav }
on 1:disconnect:{ splay sounds\disconnect.wav }
on 1:kick:#: {
  if ($knick != $me) { halt }
  else { splay sounds\kick.wav | halt }
}

#sefect end
Cod KaRanTiNa (hakan)Adlı arkadaşımıza aittir..

SeRDaR406 08 Nisan 2015 00:24
Cevap: Mp3 Player Koduna Radyo Ekleme
 
mIRC'in "pls" dosyaları çalacağını sanmıyorum(Yeni sürümlerde varmı bilmiyorum).Winamp ve benzeri programlar ile açabilirsin yada windows media player'ın açması için codec gerektirebilir.Uzun lafın kısası bunu mp3 player'dan radyo player'a dönüştürmen bu haliyle çok zor.Ancak bir dll ile yapabilirsin diye düşünüyorum ki piyasada bu işi yapacak bir dll varmı? Sanmıyorum denk gelmedim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:24 -->-> Daha önceki mesaj 00:21 --

Bir başka alternatif yol daha aklıma geldi.Flash Radio Player'lar var hazır.mDC.DLL ile o flash dosyasını oynatabilir pls uzantılarını çaldırabilirsin.Ircbastard arkadaşımız bir script'inde yapmıştı yanılmıyorsam.Ama bu player ile olmaz.

hay_ta 08 Nisan 2015 09:20
Cevap: Mp3 Player Koduna Radyo Ekleme
 
Alıntı:
SeRDaR406 Nickli Üyeden Alıntı (Mesaj 1041642544)
mIRC'in "pls" dosyaları çalacağını sanmıyorum(Yeni sürümlerde varmı bilmiyorum).Winamp ve benzeri programlar ile açabilirsin yada windows media player'ın açması için codec gerektirebilir.Uzun lafın kısası bunu mp3 player'dan radyo player'a dönüştürmen bu haliyle çok zor.Ancak bir dll ile yapabilirsin diye düşünüyorum ki piyasada bu işi yapacak bir dll varmı? Sanmıyorum denk gelmedim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:24 -->-> Daha önceki mesaj 00:21 --

Bir başka alternatif yol daha aklıma geldi.Flash Radio Player'lar var hazır.mDC.DLL ile o flash dosyasını oynatabilir pls uzantılarını çaldırabilirsin.Ircbastard arkadaşımız bir script'inde yapmıştı yanılmıyorsam.Ama bu player ile olmaz.
Tşkler Bilgilendirme için Abicim.

Zor olduğunu Biliyorum. imkansız Değil. Ben winamp'ı toolbara gömecektim. yani Exe'yi. Bu Seferde Her kullanıcıda winamp olmayabilir. Aklıma bu fikir geldi. Sanırım Biraz Daha Kafa Yormamız Gerekicek..

SeRDaR406 08 Nisan 2015 20:29
Cevap: Mp3 Player Koduna Radyo Ekleme
 
Winamp'ı oraya gömmeye çalışmak boşa zaman kaybı olur ve de çok gereksiz.Dediğim yöntemleri uygularsan daha çabuk isteğine kavuşabilirsin.

İyi çalışmalar.

hay_ta 09 Nisan 2015 01:59
Cevap: Mp3 Player Koduna Radyo Ekleme
 
Sanırım Başardım Tşkler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yardımın İçin...

Nasıl yaptığımıda anlatim belki birileri faydalanır.

Öncelikle Serdar arkadaşımızın dediği gibi hazır bir flash radyo player aldım. onu exe haline getirip Scriptimin dosya klasörüne attım daha sonra Scriptimin toolbarına bir kontrol ekleyerek flash radyo playeri açıp kapatmasını sağladım kullanıcının..

Umarım Anlatabilmişimdir...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk