IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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 Addonu Bir Bakar Mısınız (https://www.ircforumlari.net/mirc-scripting-sorunlari/260867-mp3-addonu-bir-bakar-misiniz.html)

neobre 22 Eylül 2009 20:09
Mp3 Addonu Bir Bakar Mısınız
 
Kod:
;MAMP 1.0 for mIRC 6.1* (tested on 6.15 and 6.16)
;By: Mpdreamz / Mpdz
;type /mamp to get started the rest should speak for itself :)
;read the .html included with this zip for more detailed explanation.
;any questions,comments,idea's can be send to [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;or leave a comment on the website you found this on (mIRC.net,mircscripts.org)
;Ill read them with great anticipation.
alias mampsearch { dialog -m mampsearch mampsearch }
alias mdx { dll $+(",$scriptdirdlls\mdx.dll,") $1- }
alias mpop { dll $+(",$scriptdirdlls\MPopup.dll,") $1- }
alias mamp { /dialog -m mamp mamp }
alias mampticker {
  set %m.len $width($gettok($gettok($did(mamp,1,$did(mamp,1).sel),1,9),6-,32),tahoma 12,0,1)
  if (%m.len > 200) {
    if (%mamp.x.pos == $+(-,$calc(%m.len - 200))) { set %mamp.direct inc }
    if (%mamp.x.pos == 1 ) { set %mamp.direct dec }
    %mamp.direct %mamp.x.pos
  }
  return %mamp.x.pos
}
alias writeplaylist {
  if (!$1) {
    set %playlistfile $+($sfile(%lastdir,Save as..),.mpd)
    set %playlistfile $shortfn($+(",%playlistfile,"))
  }
  if ($1) { set %playlistfile $shortfn($+(",C:\,$1-,"))  }
  if (*.mpd iswm %playlistfile) {
    var %wpl 2
    write -c %playlistfile
    while (%wpl <= $did(mamp,1).lines) {
      write %playlistfile $did(mamp,1,%wpl)
      inc %wpl
    }
    write %playlistfile %totaltime
  }
}
alias vis {
  clear -n @mamp
  .drawtext -norc @mamp $rgb(0,0,0) tahoma 12 $mampticker 1 10000 20 $gettok($gettok($did(mamp,1,%mamp.fip.id),1,9),6-,32)
  .drawline -nr @mamp $rgb(110,110,110) 1 203 53 93 53 76 70
  .drawline -nr @mamp $rgb(110,110,110) 1 153 53 136 70
  .drawline -nr @mamp $rgb(110,110,110) 1 197 53 197 70 75 70
  .drawfill -nr @mamp $rgb(239,241,241) $rgb(110,110,110) 105 60
  .drawfill -nr @mamp $rgb(149,151,151) $rgb(110,110,110) 193 60
  .drawtext -nor @mamp $rgb(255,255,255) tahoma 9 149 57  $gettok($gettok($did(mamp,1,%mamp.fip.id),2,9),5,32)
  .drawtext -nor @mamp $rgb(0,0,0) tahoma 9 91 57 $iif($duration(%timeS,3),$duration(%timeS,3),0)
  .drawdot @mamp
}
alias fmod {
  if ($isid) { return $dll($+(",$scriptdirdlls\fmod_mIRC.dll,"),$1,$2-) }
  else { .echo -q fmod: $dll($+(",$scriptdirdlls\fmod_mIRC.dll,"),$1,$2-) }
}
alias timeMp3 {
  set %tracker.length2  $round($calc(%tracker.length / 1000),0)
  inc %timeS 1
  did -i mamp 7 1 params %timeS * %tracker.length2 * * * * *
  if (%timeS == %tracker.length2) {
    .timerMP3 off
    unset %timeS
    .timernextfile 1 1 nextfile
  }
}
alias nextfile2 { nextfile }
set %mamp.fip $gettok($did(mamp,1,%mamp.fip.id),2,4)
alias nextfile {
  set %mamp.fip.id  $iif($calc(%mamp.fip.id + 1) > $did(mamp,1).lines,2,$calc(%mamp.fip.id + 1))
  did -c mamp 1 %mamp.fip.id
  set %mamp.fip $gettok($did(mamp,1,$did(mamp,1).sel),2,4)
  if ( 0* !iswm $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip).size 0)) {
    .echo -q $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip)).size 0)
    .echo -q $fmod(SOUND_Stream_Play,1 1)
    set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
    set %mamp.x.pos 1
  }
  else {
    did -i mamp 1 %mamp.fip.id $replace($did(mamp,1,%mamp.fip.id),+,+c)
    set %mamp.fip.id $calc(%mamp.fip.id + 1)
    did -d mamp 1 %mamp.fip.id
    did -c mamp 1 %mamp.fip.id
    set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
    set %mamp.x.pos 1
    nextfile2
  }
  .timerMP3 0 1 timeMp3
  .timervisdelay 1 1 .timervis -h 0 20 vis
}
alias stopfile {
  .echo -q $fmod(SOUND_Stream_Stop,1)
  .echo -q $fmod(SOUND_Stream_Close,1)
  .timerMP3 off
  unset %timeS
  unset %tracker.length2
}
alias addtolist {
  set %totaltime $calc(%totaltime + $sound($1-).length)
  if (!$sound($1-).artist) && (!$sound($1-).title) { set %mamp.title $nopath($longfn($1-)) }
  else { set %mamp.title $sound($1-).artist - $sound($1-).title  }
  did -a mamp 1 0 1 %mamp.title $chr(9) $+ $duration($calc($sound($1-).length / 1000),3) $chr(4) $+ $1-
  did -o mamp 3 2 0 2  $+(Playlist:",$calc($did(mamp,1).lines - 1),") $chr(9) $+ $duration($calc(%totaltime / 1000),3)
}
alias mampboxes {
  did -f mamp 6
  did -f mamp 10
  did -f mamp 4
  did -f mamp 1
}
alias mpdll {
  if ($isid) { return $dll($+(",$scriptdirdlls\MPopup.dll,"),$1,$2-) }
  else { dll $+(",$scriptdirdlls\MPopup.dll,") $1 $2- }
}
alias mpcolors {
  var %m = $mpdll(MPMenuColor, $1- > RGB_TEXT > $rgb(0,0,0)))
  var %m = $mpdll(MPMenuColor, $1- > RGB_BACK > $rgb(249,248,247))
  var %m = $mpdll(MPMenuColor, $1- > RGB_GRAY > $rgb(166,166,166))
  var %m = $mpdll(MPMenuColor, $1- > RGB_HIGH > $rgb(182,189,210))
  var %m = $mpdll(MPMenuColor, $1- > RGB_HBOX > $rgb(10,36,106))
  var %m = $mpdll(MPMenuColor, $1- > RGB_BAND > $rgb(219,216,209))
  var %m = $mpdll(MPMenuColor, $1- > RGB_CBOX > $rgb(10,36,106))
  var %m = $mpdll(MPMenuColor, $1- > RGB_BBOX > $rgb(212,213,216))
  var %m = $mpdll(MPMenuColor, $1- > RGB_CSEP > $rgb(166,166,166))
}
alias popup1 {
  var %m = $mpdll(MPCreateMenu,popup1)
  var %h = $gettok(%m,2,32)
  mpcolors popup1
  var %m = $mpdll(MPAddItem, %h > 1 0 0 $chr(32) Dcc Send to .. > mampdcc )
  var %m = $mpdll(MPAddItem, %h > 2 0 0 $chr(32) Clear Playlist > clearplaylist )
  var %m = $mpdll(MPAddSubMenu, %h > 3 0 0 $chr(32) Sort )
  var %h2 = $gettok(%m,2,32)
  var %m = $mpdll(MPAddItem, %h2 > 4 0 0 $chr(32) Alphabeticly > sorta )
  var %m = $mpdll(MPAddItem, %h2 > 5 0 0 $chr(32) Duration > sortd )
  var %h2 = $gettok(%m,2,32)
  var %m = $mpdll(MPopup, popup1 > $mouse.dx $mouse.dy left top right)
}
alias mampdcc {
  /dcc send $$input(To whom would you like to send this file ?,eok,Dcc send to..,Nickname here) $gettok($did(mamp,1,$did(mamp,1).sel),2,4)
}
alias clearplaylist {
  stopfile
  .timervis off
  unset %totaltime
  did -r mamp 1
}
;Sxsort, a fantastic snippet by sprion!
alias sxsort {
  ; $1 column header no. saved to $hget(sxsort,n)
  var %v $1 $2,%s sxsort,%a hadd %s,%d hdel %s
  if (!$hget(%s)) hmake %s 1
  %d r
  if ($hget(%s,d) = $1-) %a r 1
  %a d $1-
  %a n $3
  filter -acior 2- $+ $did($1,$2).lines %v %v sortAlpha
  if ($hget(%s,r)) %d d
}
; sort logic used by filter command above
alias -l sortAlpha {
  ;if column to sort is 1, contents starts from 6th token onwards,else 5th, which %z reflects
  ;%1 & %2 are text in each cell of column $hget(sxsort,n)
  var %s sxsort,%a >,%b <,%h $hget(%s,n),%z $iif(%h = 1,6-,5-),%1 = $gettok($gettok($1,%h,9),%z,32),%2 = $gettok($gettok($2,%h,9),%z,32)
  if ($hget(%s,r)) { %a = < | %b = > }
  return $iif(%1 %a %2,1,$iif(%1 %b %2,-1,0))
}
;END sxsort
alias sorta { sxsort mamp 1 1 }
alias sortd { sxsort mamp 1 2 | sxsort mamp 1 2 }

;MAMP PLAYER
dialog mamp {
  size -1 -1 221 342
  title "...:::Mp3 Player:::..."
  playlist
  list 1,2 172 217 136,extsel size
  playlisttoolbar
  list 2,2 313 217 30, size
  nowplaying
  list 3,2 144 216 28,extsel size
  button "",11,0 0 0 0
  box "", 4, 1 136 219 175
  list 5,2 114 217 30, size
  box "", 6, 1 106 219 36
  list 7,2 80 217 30,size
  button "",8,2 2 200 73
  box "", 10, 1 305 219 36
  icon 13,202 57 16 16,$scriptdirgfx\volume.jpg,0
  icon 14,202 48 16 5,$scriptdirgfx\14.jpg,0 noborder
  icon 15,202 43 16 5,$scriptdirgfx\15.jpg,0 noborder
  icon 16,202 38 16 5,$scriptdirgfx\16.jpg,0 noborder
  icon 17,202 33 16 5,$scriptdirgfx\17.jpg,0 noborder
  icon 18,202 28 16 5,$scriptdirgfx\18.jpg,0 noborder
  icon 19,202 23 16 5,$scriptdirgfx\19.jpg,0 noborder
  icon 20,202 18 16 5,$scriptdirgfx\20.jpg,0 noborder
  icon 21,202 13 16 5,$scriptdirgfx\21.jpg,0 noborder
  icon 22,202 8 16 5,$scriptdirgfx\22.jpg,0 noborder
  icon 23,202 3 16 5,$scriptdirgfx\23.jpg,0 noborder
  box "", 12, 201 -4 19 59
}
on *:dialog:mamp:init:*:{
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetControlMDX $dname 1 ListView report noheader nosortheader single showsel > $scriptdir\dlls\views.mdx
  mdx SetControlMDX $dname 2 Toolbar flat list wrap nodivider arrows > $scriptdir\dlls\bars.mdx
  mdx SetControlMDX $dname 3 ListView  report noheader nosortheader single noscroll > $scriptdir\dlls\views.mdx
  mdx SetControlMDX $dname 1000 MouseInput
  mdx SetControlMDX $dname 5 Toolbar flat list nodivider arrows > $scriptdir\dlls\bars.mdx
  mdx SetControlMDX $dname 7 TrackBar autoticks > $scriptdir\dlls\bars.mdx
  mdx SetControlMDX $dname 8 Window > $scriptdir\dlls\dialog.mdx
  mdx SetBorderStyle $dname 2
  mdx SetBorderStyle $dname 7
  mdx SetBorderStyle $dname 5
  mdx SetBorderStyle $dname 3
  mdx SetBorderStyle $dname 1
  mdx SetBorderStyle $dname 9
  did -i $dname 1 1 page event
  did -i $dname 1 1 getdrop 1
  mdx SetFont 3 12 700 tahoma
  mdx SetFont 1 12 400 tahoma
  mdx SetColor mamp 2 background $rgb(239,241,241)
  mdx SetColor mamp 5 background $rgb(239,241,241)
  did -i $dname 1 1 iconsize normal small
  did -i $dname 1 1 seticon normal 0, $+ $scriptdirgfx\mp3.ico
  did -i $dname 1 1 seticon normal 0, $+ $scriptdirgfx\volume.ico
  did -i $dname 1 1 headerdims 145 55
  did -i $dname 1 1 headertext Column $chr(9) $+ +r Column 2
  did -i $dname 2 1 bmpsize 16 16
  did -i $dname 2 1 setimage icon small $scriptdirgfx\wave_file.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\folder_music.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\folder_favorites.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\text_file.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\search.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\recyclebin.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\up.ico
  did -i $dname 2 1 setimage icon small $scriptdirgfx\down.ico
  did -a $dname 2 +a 1 $chr(32) $+ $chr(9) $+ Open file
  did -a $dname 2 +a 2 $chr(32) $+ $chr(9) $+ Open folder
  did -a $dname 2 +a 3 $chr(32) $+ $chr(9) $+ Open playlist
  did -a $dname 2 +a 4 $chr(32) $+ $chr(9) $+ Save playlist
  did -a $dname 2 +a 5 $chr(32) $+ $chr(9) $+ Search playlist
  did -a $dname 2 +a 6 $chr(32) $+ $chr(9) $+ delete selected file from playlist
  did -a $dname 2 +a 7 $chr(32) $+ $chr(9) $+ up
  did -a $dname 2 +a 8 $chr(32) $+ $chr(9) $+ down
  did -i $dname 3 1 headerdims 105 90
  did -i $dname 3 1 headertext Column $chr(9) $+ +r Column 2
  did -i $dname 3 1 iconsize normal small
  did -i $dname 3 1 seticon normal 0, $+ $scriptdirgfx\mp3.ico
  did -i $dname 3 1 seticon normal 0, $+ $scriptdirgfx\music.ico
  did -i $dname 3 2 0 $calc($did(mamp,1).lines - 1)
  did -i $dname 5 1 bmpsize 16 16
  did -i $dname 5 1 setimage icon small $scriptdirgfx\prev.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\play.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\pause.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\stop.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\next.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\volume.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\mute.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\unexpand.ico
  did -i $dname 5 1 setimage icon small $scriptdirgfx\expand.ico
  did -i $dname 5 1 setbkg color $rgb(255,255,255)
  did -a $dname 5 +a 1 $chr(32) $+ $chr(9) $+
  did -a $dname 5 +a 2 $chr(32) $+ $chr(9) $+
  did -a $dname 5 +a 3 $chr(32) $+ $chr(9) $+
  did -a $dname 5 +a 4 $chr(32) $+ $chr(9) $+
  did -a $dname 5 +a 5 $chr(32) $+ $chr(9) $+
  did -a $dname 5 -
  did -a $dname 5 +a 8 $chr(32) $+ $chr(9) $+ Hide playlist
  mdx SetDialog $dname icon 0 $scriptdirgfx\speaker.ico
  window -apdoC @mamp 0 0 115 53
  did -a $dname 8 grab $window(@mamp).hwnd @mamp
  .echo -q $fmod(FMOD_Connect,$scriptdirdlls\fmod.dll)
  .echo -q $fmod(SOUND_Init,44100 64 0)
  .echo -q (plugin)load:                                $fmod(Plugin_Load,2 " $+ $scriptdirdlls\fmm_vis_oscilloscope.dll $+ ")
  .echo -q (plugin)send: Oscilloscope Set_Dim:          $fmod(Plugin_Send,2 Set_Dim 0 20 200 30)
  .echo -q (plugin)send: Oscilloscope Set_Bgcolor:      $fmod(Plugin_Send,2 Set_Bgcolor 255/255/255)
  .echo -q (plugin)send: Oscilloscope on:                $fmod(Plugin_Send,2 Oscilloscope 1 1 @mamp 25)
  .echo -q (plugin)send: Oscilloscope Set_NumFades:      $fmod(Plugin_Send,2 Set_NumFades 10)
  .echo -q (plugin)send: Oscilloscope Set_NumColors:    $fmod(Plugin_Send,2 Set_NumColors 2)
  .echo -q (plugin)send: Oscilloscope Set_YSpace_Every:  $fmod(Plugin_Send,2 Set_YSpace_Every 0)
  .echo -q (plugin)send: Oscilloscope Set_YSpace_Height: $fmod(Plugin_Send,2 Set_YSpace_Height 0)
  .echo -q (plugin)send: Oscilloscope Set_BounceRate:    $fmod(Plugin_Send,2 Set_BounceRate 1.0)
  .echo -q (plugin)send: Oscilloscope color shifting on: $fmod(Plugin_Send,2 Set_CShift 1 2 1)
  if ($exists(C:\temp.mpd)) {
    set %playlistfile C:\temp.mpd
    if (*.mpd iswm %playlistfile) {
      var %wpl = 1
      did -r $dname 1
      while (%wpl <= $lines(%playlistfile)) {
        did -a $dname 1 0 $+ $read(%playlistfile,%wpl)
        if (%wpl == $lines(%playlistfile))  { set %totaltime $read(%playlistfile,%wpl) | did -i $dname 3 2 0 2 $+(Playlist:",$calc($did(mamp,1).lines - 1),") $chr(9) $+ $duration($calc(%totaltime / 1000),3) }
        inc %wpl
      }
    }
  }
  var %dids = 14,15,16,17,18,19,20,21,22,23
  did -g $dname $gettok(%dids,5-,44) $+(",$scriptdirgfx\blank.jpg,")
  vol -v 30000
  set %mamp.hide 8
}
on *:dialog:mamp:close:*:{
  writeplaylist temp.mpd
  .echo -q (plugin)send: Oscilloscope off:                $fmod(Plugin_Send,2 Oscilloscope 0)
  .echo -q (plugin)send: Oscilloscope color shifting off:  $fmod(Plugin_Send,2 Set_CShift 0)
  .echo -q (plugin)unload: Oscilloscope:                  $fmod(Plugin_UnLoad,2)
  stopfile
  .timervis off
  unset %totaltime
}
on *:dialog:mamp:sclick:7:{
  .timerMP3 -p
  if ( track isin $did(7,1)) { set %timeS $gettok($did(7,1),1,32) }
  if ( $gettok($did(7,1),9,32) == end ) {
    set %cool $gettok($did(7,1),1,32)
    set %timeS $gettok($did(7,1),1,32)
    set %timeS2 $round($calc($calc(%timetotal2 / 100) * %cool),0)
    .echo -q $fmod(SOUND_Stream_SetTime,1,$calc(%timeS * 1000))
    did -i mamp 7 1 params %timeS * %tracker.lenght2 * * * * *
    .timerMP3 -r
  }
}
on *:dialog:mamp:sclick:5: {
  if ($did(5).sel == 2 ) {
    if (%mamp.fip.id <= 2 ) { return }
    else {
      stopfile
      set %mamp.fip.id $calc(%mamp.fip.id - 1)
      set %mamp.fip $gettok($did(mamp,1,%mamp.fip.id),2,4)
      did -c mamp 1 %mamp.fip.id
      if ( 0* !iswm $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip).size 0)) {
        .echo -q $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip).size 0)
        .echo -q $fmod(SOUND_Stream_Play,1 1)
        set %mamp.x.pos 1
        set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
        .timerMP3 0 1 timeMp3
        .timervisdelay 1 1 .timervis -h 0 20 vis
      }
      else {
        did -i $dname 1 %mamp.fip.id  $replace($did(1,%mamp.fip.id - 1)),+,+c)
        did -d $dname 1 %mamp.fip.id
        did -c mamp 1 %mamp.fip.id
      }
    }
  }
  if ($did(5).sel == 3 ) {
    if ($did(1).sel > 1 )  {
      stopfile
      if ( 0* !iswm $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip).size 0)) {
        .echo -q $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip)).size 0)
        .echo -q $fmod(SOUND_Stream_Play,1 1)
        set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
        set %mamp.x.pos 1
        .timerMP3 0 1 timeMp3
        .timervisdelay 1 1 .timervis -h 0 20 vis
      }
    }
    else {
      did -i $dname 1 $did(1).sel $replace($did(1,%mamp.fip.id),+,+c)
      did -d $dname 1 $calc($did(1).sel + 1)
      did -c mamp 1 $calc($did(mamp,1).sel + 1 )
    }
  }
  if ($did(5).sel == 4 ) {
    if (!%mnamp.paused) {
      set %mnamp.paused 1
      .echo -q $fmod(SOUND_SetPaused,-3,1)
      did -o $dname 5 4 +pa 3 Paused $chr(32) $chr(9) $+ Paused
      .timerMP3 -p
      mampboxes
      halt
    }
    if (%mnamp.paused) {
      unset %mnamp.paused 1
      .echo -q $fmod(SOUND_SetPaused,-3,0)
      did -o $dname 5 4 +a 3 $chr(32) $chr(9) $+ Paused
      .timerMP3 -r
      mampboxes
    }
  }
  if ($did(5).sel == 5 ) { stopfile }
  if ($did(5).sel == 6 ) {
    stopfile
    nextfile
  }
  if (%mnamp.paused) && ($did != 4) {
    unset %mnamp.paused 1
    did -o $dname 5 4 +a 3 $chr(32) $chr(9) $+ Pause
    .timerMP3 -r
  }
  if ($did(5).sel == 8 ) {
    set %mamp.hide $iif(%mamp.hide == 8,9,8)
    did -o $dname 5 8 %mamp.hide $chr(32) $+ $chr(9) $+ $iif(%mamp.hide == 8,Hide playlist,Show playlist)
    did $iif(%mamp.hide == 9,-h,-v) mamp 1,2,3,4,10
    mdx SetDialog mamp coords * * 221 $iif(%mamp.hide == 9,144,342)
    ;dialog -ps mamp mamp -1 -1 221 $iif(%mamp.hide == 9,120,34)
    mampboxes
  }
}
on *:dialog:mamp:sclick:1: {
  if (rclick* iswm $did(1,1)) { popup1 }
}
on *:dialog:mamp:dclick:1: {
  if ($did(1).sel > 1 )  {
    stopfile
    if ( 0* !iswm $fmod(SOUND_Stream_Open,1 $+(",$gettok($did(1,$did(1).sel),2,4),") 1 $file($gettok($did(mamp,1,$did(1,$did(1).sel)),2,4)).size 0)) {
      set %mamp.fip $gettok($did(mamp,1,$did(mamp,1).sel),2,4)
      set %mamp.fip.id $did(1).sel
      .echo -q $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip)).size 0)
      .echo -q $fmod(SOUND_Stream_Play,1 1)
      set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
      set %mamp.x.pos 1
      .timerMP3 0 1 timeMp3
      .timervisdelay 1 1 .timervis -h 0 20 vis
    }
    else {
      did -i $dname 1 $did(1).sel $replace($did(1,$did(1).sel),+,+c)
      did -d $dname 1 $calc($did(1).sel + 1)
      did -c mamp 1 $calc($did(mamp,1).sel + 1 )
    }
  }
}
alias readdvol {
  did -g mamp $1 $+(",$scriptdirgfx\,$1,.jpg,")
}
on *:dialog:mamp:sclick:14,15,16,17,18,19,20,21,22,23: {
  var %dids 14,15,16,17,18,19,20,21,22,23
  did -g $dname $gettok(%dids,$+($findtok(%dids,$did,1,44),-),44) $+(",$scriptdirgfx\blank.jpg,")
  tokenize 44 $gettok(%dids,$+(1-,$findtok(%dids,$did,1,44)),44)
  readdvol $*
  vol -v $calc(5955 * $findtok(%dids,$did,1,44))
  mampboxes
}
on *:dialog:mamp:sclick:13: {
  set %mamp.mute $iif(%mamp.mute,0,1)
  did -g $dname 13 $iif(%mamp.mute,$+(",$scriptdirgfx\mute.jpg,"),$+(",$scriptdirgfx\volume.jpg,"))
  if (%mamp.mute == 1) { set %mamp.vol $vol(master) | vol -v 0 }
  if (%mamp.mute == 0) { vol -v %mamp.vol | unset %mamp.vol }
  mampboxes
}
on *:dialog:mamp:sclick:2: {
  if ($did(2).sel == 2 ) {
    set %filepath $shortfn($sfile(%lastdir,select an mp3,OK!))
    set %lastdir $nofile(%filepath)
    if (!%filepath) { set %filepath C:\ }
    if (!%lastdir) { set %lastdir C:\ }
    if ($gettok(%filepath,$numtok(%filepath,46),46) == mp3) {
      addtolist %filepath
    }
  }
  if ($did(2).sel == 3 ) {
    if (!%folder) { set %folder C:\ }
    set %folder $sdir(%folder,Select a folder NOTE: folders with over 1000 Mp3s is going to take a while before getting added mnIRC might be busy for a while just leave it be )
    if ($findfile(%folder,*.mp3,0) == 0 ) && (!%folder) { return }
    else {
      .echo -q $findfile(%folder,*.mp3,0,addtolist $1-).shortfn
    }
  }
  if ($did(2).sel == 5 ) {
    writeplaylist
  }
  if ($did(2).sel == 4 ) {
    set %playlistfile $sfile(%lastdir,open playlist <.mpd>)
    if (*.mpd iswm %playlistfile) {
      var %wpl 2
      did -r $dname 1
      while (%wpl <= $lines(%playlistfile)) {
        did -a $dname 1 0 $+ $read(%playlistfile,%wpl)
        inc %wpl
      }
      if (%wpl == $did(1).lines)  { did -o $dname 3 2 $+ $read(%playlistfile,%wpl) }
    }
  }
  if ($did(2).sel == 6 ) { mampsearch }
  if ($did(2).sel == 7 ) {
    set %id $did(1).sel
    set %deletedfile $gettok($did(mamp,1,$did(mamp,1).sel),2,4))
    set %totaltime $calc(%totaltime - $sound(%deletedfile).length)
    did -d $dname 1 $did(1).sel
    did -o $dname 3 2 0 2  $+(Playlist:",$calc($did(mamp,1).lines - 1),") $chr(9) $+ $duration($calc(%totaltime / 1000),3)
    did -c $dname 1 $did(1).sel
    stopfile
    nextfile
  }
  if ($did(2).sel == 8 ) { 
    if ($did(1).sel != 1) {
      if ( $calc($did(1).sel - 1) <= 1 ) { return }
      else {
        set %id $did(1).sel
        if (%id != %mamp.fip.id) {
          did -i $dname 1 $calc(%id - 1) $did(1,%id)
          did -d $dname 1  $calc(%id + 1)
        }
        else {
          set %mamp.fip.id $calc(%mamp.fip.id - 1 )
          did -i $dname 1 $calc(%id - 1)  $did(1,%id )
          did -d $dname 1  $calc(%id + 1)
        }
      }
    }
  }
  if ($did(2).sel == 9 ) { 
    if ($did(1).sel != 1) {
      if ( $calc($did(1).sel + 1) > $did(1).lines ) { return }
      else {
        set %id $did(1).sel
        set %id $did(1).sel
        if (%id != %mamp.fip.id) {
          did -i $dname 1 $calc(%id + 2) $did(1,%id)
          did -d $dname 1 %id
        }
        else {
          set %mamp.fip.id $calc(%mamp.fip.id + 1 )
          did -i $dname 1 $calc(%id + 2) $did(1,%id)
          did -d $dname 1 %id
        }
      }
    }
  }
  mampboxes
}
 
 
;MAMPSEARCH
dialog mampsearch {
  title "Search for Mp3's in list"
  size 1 1 217 225
  option pixels
  edit "", 6, 2 7 126 23
  list 1, 130 7 85 23, size
  list 2, 4 34 209 187, size
  box "", 7, 3 27 212 193
}
on *:dialog:mampsearch:sclick:1: {
  if ($did(1).sel == 2 ) && ($did(6).text) {
    if ($didwm(mamp,1,$+(*,$did(6),*),2) == 0 ) {
      did -r $dname 2
      did -a $dname 2 0 1 No Files found matching
      did -a $dname 2 0 1 $did(6)
    }
    else {
      set %msearch = 2 
      did -r $dname 2
      while ($didwm(mamp,1,$+(*,$did(6),*),%msearch) != 0 ) {
        did -a $dname 2 0 1 $remove($did(mamp,1,$didwm(mamp,1,$+(*,$did(6),*),%msearch)),+ 1 0 0, +fs 1 0 0)
        set %msearch $didwm(mamp,1,$+(*,$did(6),*),%msearch)
        set %msearch $calc(%msearch + 1)
      }
    }
  }
}
on *:dialog:mampsearch:dclick:2: {
  set %mamp.fip.id $didwm(mamp,1,$+(*,$gettok($did(2,$did(2).sel),2,4),*),1)
  set %mamp.fip $gettok($did(2,$did(2).sel),2,4)
  stopfile
  if ( 0* !iswm $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip).size 0)) {
    .echo -q $fmod(SOUND_Stream_Open,1 $+(",%mamp.fip,") 1 $file(%mamp.fip)).size 0)
    .echo -q $fmod(SOUND_Stream_Play,1 1)
    set %tracker.length $fmod(SOUND_Stream_GetLengthMs,1)
    set %mamp.x.pos 1
    .timerMP3 0 1 timeMp3
    .timervisdelay 1 1 .timervis -h 0 20 vis
    did -c mamp 1 %mamp.fip.id
  }
  else {
    did -i $dname 1 %mamp.fip.id $replace($did(1,%mamp.fip.id),+,+c)
    did -d $dname 1 $calc(%mamp.fip.id + 1)
    did -c mamp 1 $calc(%mamp.fip.id + 1 )
    nextfile
  }
}
on *:dialog:mampsearch:init:*:{
  mdx SetMircVersion $version
  mdx MarkDialog $dname
  mdx SetControlMDX $dname 2 ListView  report noheader nosortheader single > $scriptdir\dlls\views.mdx
  mdx SetControlMDX $dname 1 Toolbar flat list wrap nodivider arrows > $scriptdir\dlls\bars.mdx
  mdx SetBorderStyle $dname 1
  mdx SetBorderStyle $dname 4
  mdx SetBorderStyle $dname 2
  mdx SetColor $dname 4 background $rgb(239,241,241)
  mdx SetFont 1 12 400 tahoma
  mdx SetFont 4 12 400 tahoma
  mdx SetFont 2 12 400 tahoma
  mdx SetFont 6 12 400 tahoma
  did -i $dname 2 1 iconsize normal small
  did -i $dname 2 1 seticon normal 0, $+ $scriptdirgfx\mp3.ico
  did -i $dname 2 1 seticon normal 0, $+ $scriptdirgfx\volume.ico
  did -i $dname 2 1 headerdims 190
  did -i $dname 2 1 headertext Column
  did -i $dname 1 1 bmpsize 16 16
  did -i $dname 1 1 setimage icon small $scriptdirgfx\search.ico
  did -a $dname 1 +a 1 Search $+ $chr(9) $+
  mdx SetDialog $dname icon 0 $scriptdirgfx\search.ico
}
menu channel,status,menubar {
  - MP3 Player: /mamp
}
on 1:UNLOAD: /unset %mamp.hide %filepath %lastdir %mamp.title %mamp.fip %mamp.fip.id %tracker.length %mamp.x.pos %m.len %cool %timeS2 %mamp.mute %playlistfile
Selam Arkadaslar Ben Bu Codu Buldum Mp3 addonu olarak Yalnız Bu Kanala Yansıtmıyor Acaba Nasıl Yaparım yada Bilen Varsa Yardımcı Olur Mu Düzeltip Tesekkurler Simdiden...

CesuryureK 23 Eylül 2009 12:00
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
senin verdiğin kodu deneyebilmek için dll'leri icon'ları bulup ekleyip düzenleyip denemek lazım
lakin aynı işlevi gören ve daha kullanışlı olan bir kod var.

PHP- Kodu:
alias mp3 { dialog -mdo mp3player mp3player }
alias jukeprefs { dialog -mo jukeprefs jukeprefs }
alias jukeinfo { dialog -mo jukeinfo jukeinfo }
alias jukecrdts { dialog -mo jukecrdts jukecrdts }
dialog mp3player {
  title "Mp3 Player"
  size -1 -1 230 153
  option dbu
  box "", 1, 4 3 220 32
  edit " ", 2, 8 10 210 10, center read
  edit " ", 3, 8 21 20 10, right read
  edit " ", 4, 44 21 20 10, right read
  edit " ", 5, 100 21 20 10, right read
  edit " ", 6, 140 21 20 10, right read
  edit " ", 7, 186 21 32 10, center read
  text "MB", 8, 30 23 9 6
  text "Dakika", 9, 67 23 17 8
  text "Kbps", 10, 122 23 14 8
  text "KHz", 11, 162 23 12 8
  list 12, 4 40 148 87, vsbar size
  box "", 13, 157 44 67 70
  button "Mp3 Klasörünü Ayarla", 14, 160 54 61 10, flat
  button "Ayarlar-Seçenekler", 15, 160 71 61 10, flat
  check "Devamli Caldir", 17, 160 85 61 10, push flat
  check "Rastgele Caldir", 18, 160 99 61 10, push flat
  box "", 20, 4 128 116 21
  button "Geri", 21, 7 134 16 12, flat
  button "Çal", 22, 28 134 19 12, flat
  button "Bekle", 23, 52 134 19 12, flat
  button "Dur", 24, 75 134 19 12, flat
  button "ileri", 25, 101 134 16 12, flat
  box "", 26, 125 130 51 18
  button "Ses (+)", 27, 129 136 21 10, flat
  button "Ses (-)", 28, 152 136 21 10, flat
  button "Pencereyi Kapat", 29, 161 117 60 13, ok flat
}
dialog jukeprefs {
  title "Ayarlar - Seçenekler"
  size -1 -1 152 81
  option dbu
  box ".: Mp3 Player :.", 1, 4 3 144 57
  radio " Müzik Dinlerken kanalda Gözükmesin", 2, 9 16 108 8, flat
  radio " Müzik Dinlerken Sadece Bana Gözüksün", 3, 9 26 108 8, flat
  radio " Sadece 1 Kanalda Renkli Gözüksün", 4, 9 36 108 8, flat
  radio " Müzik Dinlerken Tüm Kanallarda Gözüksün", 5, 9 46 118 8, flat
  text "(/echo)", 6, 121 26 24 8
  text "(/action)", 7, 121 36 24 8
  text "(/ame)", 8, 125 46 28 8
  text " ", 9, 11 68 60 8, disabled
  button "Tamam", 10, 104 65 44 12, ok flat
}
dialog jukeinfo {
  title "Music Information"
  size -1 -1 132 160
  option dbu
  box "", 1, 4 2 124 108
  text "Album:", 2, 8 10 28 8
  text "Title:", 3, 8 18 28 8
  text "Artist:", 4, 8 26 28 8
  text "Year:", 5, 8 34 28 8
  text "Comment:", 6, 8 42 28 8
  text "Genre:", 7, 8 50 28 8
  text "Track:", 8, 8 58 28 8
  text "Length:", 9, 8 66 28 8
  text "Version:", 10, 8 74 28 8
  text "Bitrate:", 11, 8 82 28 8
  text "Sample:", 12, 8 90 28 8
  text "Mode:", 13, 8 98 28 8
  text " ", 14, 40 10 84 8
  text " ", 15, 40 18 84 8
  text " ", 16, 40 26 84 8
  text " ", 17, 40 34 84 8
  text " ", 18, 40 42 84 8
  text " ", 19, 40 50 84 8
  text " ", 20, 40 58 84 8
  text " ", 21, 40 66 84 8
  text " ", 22, 40 74 84 8
  text " ", 23, 40 82 84 8
  text " ", 24, 40 90 84 8
  text " ", 25, 40 98 84 8
  box "", 26, 4 112 124 27
  text "Copyright:", 27, 8 120 28 8
  text "Private:", 28, 8 128 28 8
  text "VBR:", 29, 76 120 28 8
  text "CRC:", 30, 76 128 28 8
  text " ", 31, 40 120 20 8
  text " ", 32, 40 128 20 8
  text " ", 33, 96 120 20 8
  text " ", 34, 96 128 20 8
  text " ", 35, 12 146 60 8, disabled
  button "Close", 36, 84 144 44 12, ok
}
dialog jukecrdts {
  title "Credits"
  size -1 -1 136 69
  option dbu
  box "", 1, 4 3 128 28
  text "MP3 mp3player for mIRC 5.8X", 4, 8 12 80 8
  text "15.01.2001", 6, 96 12 32 8, right
  text "Written by Lock Tha Unlocker (ecesar)", 5, 8 20 104 8
  box "", 2, 4 31 128 20
  link "http://ecesar.tsx.org", 7, 8 40 112 16
  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 8, 80 40 96 16
  button "OK", 3, 44 55 44 12, cancel
}
on *:dialog:mp3player:init:0: {
  did -f mp3player 29
  if ( %jb.32 == on ) { did -c mp3player 17 }
  if ( %jb.33 == on ) { did -c mp3player 18 }
  if ( $exists(playlist.txt) == $true ) { jbplist }
  if ( %jb.02 != $null ) { did -c mp3player 12 %jb.02 }
  if ( $inmp3 == $true ) { jbinfo1 }
  if (( $inmp3 == $true ) && ( %jb.34 == on )) {
    .timerjb1 -o 0 1 jbcheck
    .timerjb2 -o 0 1 did -ra mp3player 2 - P A U S E D -
    .timerjb3 -o 0 2 did -ra mp3player 2 %jb.20 
  }
}
on *:dialog:mp3player:sclick:*: {
  if ( $did == 14 ) { jbdir }
  if ( $did == 15 ) { jukeprefs }
  if ( $did == 16 ) { jukeinfo }
  if ( $did == 17 ) {
    if ( %jb.32 == on ) { set %jb.32 off }
    else { set %jb.32 on }
  }
  if ( $did == 18 ) {
    if ( %jb.33 == on ) { set %jb.33 off }
    else { set %jb.33 on }
  }
  if ( $did == 19 ) { jukecrdts }
  if ( $did == 21 ) { jbrew }
  if ( $did == 22 ) {
    if ( $did(mp3player,12).sel == $null ) { halt }
    if ( %jb.34 == on ) { splay -p resume | jbfix | halt }
    if ( %jb.33 == on ) { jbplay3 }
    else jbplay1
  }
  if ( $did == 23 ) {
    if ( $inmp3 == $true ) {
      if ( %jb.34 != on ) {
        splay -p pause
        set %jb.34 on
        .timerjb1 -o 0 1 jbcheck
        .timerjb2 -o 0 1 did -ra mp3player 2 - P A U S E D -
        .timerjb3 -o 0 2 did -ra mp3player 2 %jb.20
      }
      else {
        splay -p resume
        jbfix
      }
    }
    else halt
  }
  if ( $did == 24 ) {
    if ( $inmp3 == $false ) { halt }
    if ( %jb.34 == on ) { jbfix }
    splay -p stop
    did -r mp3player 2,3,4,5,6,7
  }
  if ( $did == 25 ) { jbfow }
  if ( $did == 27 ) { vol -p $calc($vol(mp3) + 5000) | jbvol }
  if ( $did == 28 ) { vol -p $calc($vol(mp3) - 5000) | jbvol }
}
on *:dialog:mp3player:dclick:12: { jbplay1 }
on *:dialog:jukeprefs:init:0:{
  if ( %jb.30 == $null ) { set %jb.30 2 }
  did -c jukeprefs %jb.30
  did -f jukeprefs 10
  .timerjb5 -om 1 500 jbblink1
  .timerjb6 -om 1 1000 jbblink2
}
on *:dialog:jukeprefs:sclick:* {
  if ( $did == 2 ) { set %jb.30 2 }
  if ( $did == 3 ) { set %jb.30 3 }
  if ( $did == 4 ) { set %jb.30 4 }
  if ( $did == 5 ) { set %jb.30 5 }
}
on *:dialog:jukeinfo:init:0: {
  .timerjb5 -om 1 500 jbblink3
  .timerjb6 -om 1 1000 jbblink4
  unset %jb.7*
  jbadvi
}
on *:dialog:jukeinfo:sclick:36: { unset %jb.7* }
on *:dialog:jukecrdts:sclick:7: { run http://ecesar.tsx.org }
on *:dialog:jukecrdts:sclick:8: { run mailto:lock@innocent.com }
alias jbdir {
  if ( $version < 5.82 ) { did -ra mp3player 2 Your mIRC version is earlier than 5.82. Please update your mIRC. }
  set %jb.01 $$sdir(\, mIRCALem  Mp3 Player - Seçmek istediğiniz müzik dosyası)
  window -elhns @plist
  aline @plist $findfile(%jb.01,*.mp?,0,aline @plist $1-)
  if ( $exists(playlist.txt) == $true ) { .remove playlist.txt }
  filter -wf @plist playlist.txt *.mp?
  window -c @plist
  unset %jb.01 %jb.02
  jbplist
}
alias jbplist {
  did -r mp3player 12
  set %jb.10 1
  set %jb.11 $lines(playlist.txt)
  :loop
  set %jb.12 $read -l $+ %jb.10 playlist.txt
  set %jb.13 $nopath(%jb.12)
  if ( $right(%jb.13,4) == .mp3 ) { set %jb.13 $remove(%jb.13,.mp3) }
  did -a mp3player 12 %jb.13
  inc %jb.10
  if ( %jb.10 <= %jb.11 ) goto loop
  unset %jb.10 %jb.12 %jb.13
}
alias jbplay {
  if ( $dialog(mp3player).title ==  Mp3player ) { did -c mp3player 12 %jb.02 }
  set %jb.03 $read -l $+ %jb.02 playlist.txt
  splay -p %jb.03
  jbinfo
  jbinfo1
  if ( %jb.30 == 3 ) { jbinfo2 }
  if ( %jb.30 == 4 ) { jbi }
  if (( %jb.30 == 5 ) && ( $server != $null )) { jbinfo3 }
}
alias jbplay1 {
  set %jb.02 $did(mp3player,12).sel
  jbplay
}
alias jbplay2 {
  inc %jb.02
  if ( %jb.02 <= %jb.11 ) { jbplay }
  else { set %jb.02 1 } { jbplay }
}
alias jbplay3 {
  set %jb.02 $rand(1,%jb.11)
  jbplay
}
alias jbinfo {
  set %jb.20 $replace($nopath(%jb.03),$chr(95),$chr(32))
  if ( $right(%jb.20,4) == .mp3 ) { set %jb.20 $remove(%jb.20,.mp3) }
  set %jb.21 $round($calc(($file(%jb.03).size)/1048576),1)
  set %jb.23 $mp3(%jb.03).bitrate
  set %jb.24 $calc(($mp3(%jb.03).sample)/1000)
  set %jb.25 $mp3(%jb.03).mode
  if ( %jb.25 == Joint Stereo ) { set %jb.25 Stereo }
  if ( %jb.25 == Single Channel ) { set %jb.25 Mono }
  set %jb.26 $int($calc($mp3(%jb.03).length / 1000))
  set %jb.27 $int($calc($mp3(%jb.03).length / 60000))
  set %jb.28 $calc(%jb.26 - (%jb.27 * 60))
  if ( %jb.28 < 10 ) { set %jb.28 $chr(48) $+ %jb.28 }
  set %jb.22 %jb.27 $+ : $+ %jb.28
  unset %jb.26 %jb.27 %jb.28
}
alias jbinfo1 {
  if ( $dialog(mp3player).title !=  mIRCALem Mp3player ) { goto end }
  did -ra mp3player 2 %jb.20
  did -ra mp3player 3 %jb.21
  did -ra mp3player 4 %jb.22
  did -ra mp3player 5 %jb.23
  did -ra mp3player 6 %jb.24
  did -ra mp3player 7 %jb.25
  :end
}
alias jbinfo2 { echo -a $chr(91) $+ MP3 mp3player $+ $chr(93) $+ $chr(91) $+ %jb.20 $+ $chr(93) $+ $chr(91) $+ %jb.21 MB $+ $chr(93) $+ $chr(91) $+ %jb.22 Min $+ $chr(93) $+ $chr(91) $+ %jb.23 Kbps $+ $chr(93) $+ $chr(91) $+ %jb.24 KHz $+ $chr(93) $+ $chr(91) $+ %jb.25 $+ $chr(93) }
alias jbinfo3 { ame ( is listening ) ( %jb.20 $+ .Mp3  ) ( .: mIRCALem :. )  }
alias jbinfo4 {
  if (( $dialog(mp3player).title == MP3 mp3player )  && ( $inmp3 == $true )) { did -ra mp3player 2 %jb.20 }
  if (( $dialog(mp3player).title == MP3 mp3player )  && ( $inmp3 != $true )) { did -r mp3player 2 }
  else halt
}
alias jbi {
  if ( $server == $null ) { goto end }
  if ( $active == Status Window ) { goto end }
  describe $active [ Şu Anda Dinlediği Parça ] - [ %jb.20 $+ .mp3 ] 
  :end
}
alias jbvol {
  did -ra mp3player 2 Volume: $round($calc(($vol(mp3) / 65535) * 100),0) $+ $chr(37)
  .timerjb4 1 2 jbinfo4
}
alias jbfow {
  if ( $inmp3 == $false ) { halt }
  if ( %jb.34 == on ) { jbfix }
  set %jb.40 $calc($inmp3.pos + $round($calc($inmp3.length / 4),0))
  if ( %jb.40 <= $inmp3.length ) { splay -p %jb.03 %jb.40 }
  else {
    if ( %jb.33 == on ) { jbplay3 }
    else { jbplay2 }
  }
}
alias jbrew {
  if ( $inmp3 == $false ) { halt }
  if ( %jb.34 == on ) { jbfix }
  set %jb.42 $calc($inmp3.pos - $round($calc($inmp3.length / 4),0))
  if ( %jb.42 > 0 ) { splay -p %jb.03 %jb.42 }
  else { splay -p %jb.03 }
}
alias jbcheck {
  if ( $dialog(mp3player).title != MP3 mp3player ) {
    .timerjb3 off
    .timerjb2 off
    .timerjb1 off
  }
  else halt
}
alias jbfix {
  unset %jb.34
  .timerjb3 off
  .timerjb2 off
  .timerjb1 off
  did -ra mp3player 2 %jb.20
}
alias jbadvi {
  set %jb.700 $mp3($inmp3.fname).album
  set %jb.701 $mp3($inmp3.fname).title
  set %jb.702 $mp3($inmp3.fname).artist
  set %jb.703 $mp3($inmp3.fname).year
  set %jb.704 $mp3($inmp3.fname).comment
  set %jb.705 $mp3($inmp3.fname).genre
  set %jb.706 $mp3($inmp3.fname).track
  set %jb.707 $mp3($inmp3.fname).length
  set %jb.708 $mp3($inmp3.fname).version
  set %jb.709 $mp3($inmp3.fname).bitrate
  set %jb.710 $mp3($inmp3.fname).sample
  set %jb.711 $mp3($inmp3.fname).mode
  set %jb.712 $mp3($inmp3.fname).copyright
  set %jb.713 $mp3($inmp3.fname).private
  set %jb.714 $mp3($inmp3.fname).vbr
  set %jb.715 $mp3($inmp3.fname).crc
  if ( %jb.700 == $null ) { did -ra jukeinfo 14 (no information) }
  else did -ra jukeinfo 14 %jb.700
  if ( %jb.701 == $null ) { did -ra jukeinfo 15 (no information) }
  else did -ra jukeinfo 15 %jb.701
  if ( %jb.702 == $null ) { did -ra jukeinfo 16 (no information) }
  else did -ra jukeinfo 16 %jb.702
  if ( %jb.703 == $null ) { did -ra jukeinfo 17 (no information) }
  else did -ra jukeinfo 17 %jb.703
  if ( %jb.704 == $null ) { did -ra jukeinfo 18 (no information) }
  else did -ra jukeinfo 18 %jb.704
  if ( %jb.705 == $null ) { did -ra jukeinfo 19 (no information) }
  else did -ra jukeinfo 19 %jb.705
  if ( %jb.706 == $null ) { did -ra jukeinfo 20 (no information) }
  else if ( %jb.706 == -1 ) { did -ra jukeinfo 20 (no information) }
  else did -ra jukeinfo 20 %jb.706
  if ( %jb.707 == $null ) { did -ra jukeinfo 21 (no information) }
  else did -ra jukeinfo 21 %jb.707  milliseconds
  if ( %jb.708 == $null ) { did -ra jukeinfo 22 (no information) }
  else did -ra jukeinfo 22 %jb.708
  if ( %jb.709 == $null ) { did -ra jukeinfo 23 (no information) }
  else did -ra jukeinfo 23 %jb.709  Kbps
  if ( %jb.710 == $null ) { did -ra jukeinfo 24 (no information) }
  else did -ra jukeinfo 24 %jb.710 Hz
  if ( %jb.711 == $null ) { did -ra jukeinfo 25 (no information) }
  else did -ra jukeinfo 25 %jb.711
  if ( %jb.712 == $true ) { did -ra jukeinfo 31 Yes }
  else  did -ra jukeinfo 31 No
  if ( %jb.713 == $true ) { did -ra jukeinfo 32 Yes }
  else did -ra jukeinfo 32 No
  if ( %jb.714 == $true ) { did -ra jukeinfo 33 Yes }
  else did -ra jukeinfo 33 No
  if ( %jb.715 == $true ) { did -ra jukeinfo 34 Yes }
  else did -ra jukeinfo 34 No
}
alias jbblink1 {
  if ( $dialog(jukeprefs).title == IRC Preferences ) { did -ra jukeprefs 9 MP3 }
  else halt
}
alias jbblink2 {
  if ( $dialog(jukeprefs).title == IRC Preferences ) { did -ra jukeprefs 9 MP3 mp3player }
  else halt
}
alias jbblink3 {
  if ( $dialog(jukeinfo).title == Music Information ) { did -ra jukeinfo 35 MP3 }
  else halt
}
alias jbblink4 {
  if ( $dialog(jukeinfo).title == Music Information ) { did -ra jukeinfo 35 MP3 mp3player }
  else halt
}
alias jbuninstall {
  if ( $dialog(mp3player).title == MP3 mp3player ) { dialog -k mp3player mp3player }
  if ( $exists(playlist.txt) == $true ) { .remove playlist.txt }
  unset %jb.*
}
on 1:mp3end: {
  if ( $dialog(mp3player).title == MP3 mp3player ) { did -r mp3player 2,3,4,5,6,7 }
  if ( %jb.32 == on ) && ( %jb.33 != on ) { jbplay2 }
  if ( %jb.32 == on ) && ( %jb.33 == on ) { jbplay3 }
  else halt
} 

neobre 23 Eylül 2009 19:30
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
Cesuryurek bu kod kanala yansıtıor mu peki pasam ? calarken dinlediğini acabaç

CesuryureK 23 Eylül 2009 19:35
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
ayarlar seçenekler kısmına bakarsan

title "Ayarlar - Seçenekler"
size -1 -1 152 81
option dbu
box ".: Mp3 Player :.", 1, 4 3 144 57
radio " Müzik Dinlerken kanalda Gözükmesin", 2, 9 16 108 8, flat
radio " Müzik Dinlerken Sadece Bana Gözüksün", 3, 9 26 108 8, flat
radio " Sadece 1 Kanalda Renkli Gözüksün", 4, 9 36 108 8, flat
radio " Müzik Dinlerken Tüm Kanallarda Gözüksün", 5, 9 46 118 8, flat

neobre 23 Eylül 2009 19:43
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
Alıntı:
CesuryureK Nickli Üyeden Alıntı (Mesaj 811123)
ayarlar seçenekler kısmına bakarsan

title "Ayarlar - Seçenekler"
size -1 -1 152 81
option dbu
box ".: Mp3 Player :.", 1, 4 3 144 57
radio " Müzik Dinlerken kanalda Gözükmesin", 2, 9 16 108 8, flat
radio " Müzik Dinlerken Sadece Bana Gözüksün", 3, 9 26 108 8, flat
radio " Sadece 1 Kanalda Renkli Gözüksün", 4, 9 36 108 8, flat
radio " Müzik Dinlerken Tüm Kanallarda Gözüksün", 5, 9 46 118 8, flat

Pasam Ama Menu Seklınde Gorunmuyor kı mIRC'da ?

neobre 23 Eylül 2009 20:12
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
Cesuryurek Kardes Bu Kısım'da Calısmıyor Ayrıyeten
button "Mp3 Klasörünü Ayarla", 14, 160 54 61 10, flat
Artı Menu Seklınde Cıkmıyor Bi El Atar Mısın Rica Etsem

CesuryureK 24 Eylül 2009 11:42
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
kodu düzgün bir şekilde alıp remoteye ekledikten sonra

/mp3

yaz enterle dialog çıkacaktır.

çıkan dialogda sağda ayarlar-seçenekler

butonu göreceksin tıklayınca ne demek istediğimi anlayacaksın.

neobre 24 Eylül 2009 16:59
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
Alıntı:
CesuryureK Nickli Üyeden Alıntı (Mesaj 811651)
kodu düzgün bir şekilde alıp remoteye ekledikten sonra

/mp3

yaz enterle dialog çıkacaktır.

çıkan dialogda sağda ayarlar-seçenekler

butonu göreceksin tıklayınca ne demek istediğimi anlayacaksın.
Pasam Dedigini Anlıyorum Ben Senin Ama Burada Calısmayan Kısmı Soluyorum yani ben sarkıyı dınlemem ıcın sarkıları atamıyorum mp3 klasorunu ayarla o kısım acılmıyor bır bakar mısın bırde rıca etsem menu seklınde ayarlayabılırsen sevınıırm saolasın bu arada hersey ıcın.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ircop 14 Ekim 2009 06:07
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
PHP- Kodu:
;
alias players { dialog -mdo mp3player mp3player }
alias mp3 { dialog -mdo mp3player mp3player }
alias jukeprefs { dialog -mo jukeprefs jukeprefs }
alias jukeinfo { dialog -mo jukeinfo jukeinfo }
alias jukecrdts { dialog -mo jukecrdts jukecrdts }

dialog mp3player {
  title "Mp3 Player"
  size -1 -1 230 153
  icon icon/mp3.ico, 0
  option dbu
  box "", 1, 4 3 220 32

  edit " ", 2, 8 10 210 10, center read
  edit " ", 3, 8 21 20 10, right read
  edit " ", 4, 44 21 20 10, right read
  edit " ", 5, 100 21 20 10, right read
  edit " ", 6, 140 21 20 10, right read
  edit " ", 7, 186 21 32 10, center read
  text "MB", 8, 30 23 9 6
  text "Dakika", 9, 67 23 17 8
  text "Kbps", 10, 122 23 14 8
  text "KHz", 11, 162 23 12 8
  list 12, 4 40 148 87, vsbar size
  box "", 13, 157 44 67 70
  button "Mp3 Klasörünü Ayarla", 14, 160 54 61 10, flat
  button "Ayarlar-Seçenekler", 15, 160 71 61 10, flat
  check "Devamli Caldir", 17, 160 85 61 10, push flat
  check "Rastgele Caldir", 18, 160 99 61 10, push flat
  box "", 20, 4 128 116 21
  button "Geri", 21, 7 134 16 12, flat
  button "Çal", 22, 28 134 19 12, flat
  button "Bekle", 23, 52 134 19 12, flat
  button "Dur", 24, 75 134 19 12, flat
  button "ileri", 25, 101 134 16 12, flat
  box "", 26, 125 130 51 18
  button "Ses (+)", 27, 129 136 21 10, flat
  button "Ses (-)", 28, 152 136 21 10, flat

  button "Pencereyi Kapat", 29, 161 117 60 13, ok flat
}

dialog jukeprefs {
  title "Ayarlar - Seçenekler"
  size -1 -1 152 81
  option dbu
  box ".: Mp3 Player :.", 1, 4 3 144 57
  radio " Müzik Dinlerken kanalda Gözükmesin", 2, 9 16 108 8, flat
  radio " Müzik Dinlerken Sadece Bana Gözüksün", 3, 9 26 108 8, flat
  radio " Sadece 1 Kanalda Renkli Gözüksün", 4, 9 36 108 8, flat
  radio " Müzik Dinlerken Tüm Kanallarda Gözüksün", 5, 9 46 118 8, flat
  text "(/echo)", 6, 121 26 24 8
  text "(/action)", 7, 121 36 24 8
  text "(/ame)", 8, 125 46 28 8
  text " ", 9, 11 68 60 8, disabled
  button "Tamam", 10, 104 65 44 12, ok flat
}

dialog jukeinfo {
  title "Music Information"
  size -1 -1 132 160
  option dbu
  box "", 1, 4 2 124 108
  text "Album:", 2, 8 10 28 8
  text "Title:", 3, 8 18 28 8
  text "Artist:", 4, 8 26 28 8
  text "Year:", 5, 8 34 28 8
  text "Comment:", 6, 8 42 28 8
  text "Genre:", 7, 8 50 28 8
  text "Track:", 8, 8 58 28 8
  text "Length:", 9, 8 66 28 8
  text "Version:", 10, 8 74 28 8
  text "Bitrate:", 11, 8 82 28 8
  text "Sample:", 12, 8 90 28 8
  text "Mode:", 13, 8 98 28 8
  text " ", 14, 40 10 84 8
  text " ", 15, 40 18 84 8
  text " ", 16, 40 26 84 8
  text " ", 17, 40 34 84 8
  text " ", 18, 40 42 84 8
  text " ", 19, 40 50 84 8
  text " ", 20, 40 58 84 8
  text " ", 21, 40 66 84 8
  text " ", 22, 40 74 84 8
  text " ", 23, 40 82 84 8
  text " ", 24, 40 90 84 8
  text " ", 25, 40 98 84 8
  box "", 26, 4 112 124 27
  text "Copyright:", 27, 8 120 28 8
  text "Private:", 28, 8 128 28 8
  text "VBR:", 29, 76 120 28 8
  text "CRC:", 30, 76 128 28 8
  text " ", 31, 40 120 20 8
  text " ", 32, 40 128 20 8
  text " ", 33, 96 120 20 8
  text " ", 34, 96 128 20 8
  text " ", 35, 12 146 60 8, disabled
  button "Close", 36, 84 144 44 12, ok
}

dialog jukecrdts {
  title "Credits"
  size -1 -1 136 69
  option dbu
  box "", 1, 4 3 128 28
  text "MP3 mp3player for mIRC 5.8X", 4, 8 12 80 8
  text "15.01.2001", 6, 96 12 32 8, right
  text "Written by Lock Tha Unlocker (ecesar)", 5, 8 20 104 8
  box "", 2, 4 31 128 20
  link "http://ecesar.tsx.org", 7, 8 40 112 16
  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 8, 80 40 96 16
  button "OK", 3, 44 55 44 12, cancel
}

on *:dialog:mp3player:init:0: {
  did -f mp3player 29
  if ( %jb.32 == on ) { did -c mp3player 17 }
  if ( %jb.33 == on ) { did -c mp3player 18 }
  if ( $exists(playlist.txt) == $true ) { jbplist }
  if ( %jb.02 != $null ) { did -c mp3player 12 %jb.02 }
  if ( $inmp3 == $true ) { jbinfo1 }
  if (( $inmp3 == $true ) && ( %jb.34 == on )) {
    .timerjb1 -o 0 1 jbcheck
    .timerjb2 -o 0 1 did -ra mp3player 2 - P A U S E D -
    .timerjb3 -o 0 2 did -ra mp3player 2 %jb.20 
  }
}

on *:dialog:mp3player:sclick:*: {
  if ( $did == 14 ) { jbdir }
  if ( $did == 15 ) { jukeprefs }
  if ( $did == 16 ) { jukeinfo }
  if ( $did == 17 ) {
    if ( %jb.32 == on ) { set %jb.32 off }
    else { set %jb.32 on }
  }
  if ( $did == 18 ) {
    if ( %jb.33 == on ) { set %jb.33 off }
    else { set %jb.33 on }
  }
  if ( $did == 19 ) { jukecrdts }
  if ( $did == 21 ) { jbrew }
  if ( $did == 22 ) {
    if ( $did(mp3player,12).sel == $null ) { halt }
    if ( %jb.34 == on ) { splay -p resume | jbfix | halt }
    if ( %jb.33 == on ) { jbplay3 }
    else jbplay1
  }
  if ( $did == 23 ) {
    if ( $inmp3 == $true ) {
      if ( %jb.34 != on ) {
        splay -p pause
        set %jb.34 on
        .timerjb1 -o 0 1 jbcheck
        .timerjb2 -o 0 1 did -ra mp3player 2 - P A U S E D -
        .timerjb3 -o 0 2 did -ra mp3player 2 %jb.20
      }
      else {
        splay -p resume
        jbfix
      }
    }
    else halt
  }
  if ( $did == 24 ) {
    if ( $inmp3 == $false ) { halt }
    if ( %jb.34 == on ) { jbfix }
    splay -p stop
    did -r mp3player 2,3,4,5,6,7
  }
  if ( $did == 25 ) { jbfow }
  if ( $did == 27 ) { vol -p $calc($vol(mp3) + 5000) | jbvol }
  if ( $did == 28 ) { vol -p $calc($vol(mp3) - 5000) | jbvol }
}

on *:dialog:mp3player:dclick:12: { jbplay1 }

on *:dialog:jukeprefs:init:0:{
  if ( %jb.30 == $null ) { set %jb.30 2 }
  did -c jukeprefs %jb.30
  did -f jukeprefs 10
  .timerjb5 -om 1 500 jbblink1
  .timerjb6 -om 1 1000 jbblink2
}

on *:dialog:jukeprefs:sclick:* {
  if ( $did == 2 ) { set %jb.30 2 }
  if ( $did == 3 ) { set %jb.30 3 }
  if ( $did == 4 ) { set %jb.30 4 }
  if ( $did == 5 ) { set %jb.30 5 }
}

on *:dialog:jukeinfo:init:0: {
  .timerjb5 -om 1 500 jbblink3
  .timerjb6 -om 1 1000 jbblink4
  unset %jb.7*
  jbadvi
}

on *:dialog:jukeinfo:sclick:36: { unset %jb.7* }

on *:dialog:jukecrdts:sclick:7: { run http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">on *:dialog:jukecrdts:sclick:8: { run mailto:admin@siteninadı.net }

alias jbdir {
  if ( $version < 5.82 ) { did -ra mp3player 2 Your mIRC version is earlier than 5.82. Please update your mIRC. }
  set %jb.01 $$sdir(\, Mp3 Player - Seçmek istediginiz müzik dosyasi)
  window -elhns @plist
  aline @plist $findfile(%jb.01,*.mp?,0,aline @plist $1-)
  if ( $exists(playlist.txt) == $true ) { .remove playlist.txt }
  filter -wf @plist playlist.txt *.mp?
  window -c @plist
  unset %jb.01 %jb.02
  jbplist
}

alias jbplist {
  did -r mp3player 12
  set %jb.10 1
  set %jb.11 $lines(playlist.txt)
  :loop
  set %jb.12 $read -l $+ %jb.10 playlist.txt
  set %jb.13 $nopath(%jb.12)
  if ( $right(%jb.13,4) == .mp3 ) { set %jb.13 $remove(%jb.13,.mp3) }
  did -a mp3player 12 %jb.13
  inc %jb.10
  if ( %jb.10 <= %jb.11 ) goto loop
  unset %jb.10 %jb.12 %jb.13
}

alias jbplay {
  if ( $dialog(mp3player).title ==  Mp3player ) { did -c mp3player 12 %jb.02 }
  set %jb.03 $read -l $+ %jb.02 playlist.txt
  splay -p %jb.03
  jbinfo
  jbinfo1
  if ( %jb.30 == 3 ) { jbinfo2 }
  if ( %jb.30 == 4 ) { jbi }
  if (( %jb.30 == 5 ) && ( $server != $null )) { jbinfo3 }
}

alias jbplay1 {
  set %jb.02 $did(mp3player,12).sel
  jbplay
}

alias jbplay2 {
  inc %jb.02
  if ( %jb.02 <= %jb.11 ) { jbplay }
  else { set %jb.02 1 } { jbplay }
}

alias jbplay3 {
  set %jb.02 $rand(1,%jb.11)
  jbplay
}

alias jbinfo {
  set %jb.20 $replace($nopath(%jb.03),$chr(95),$chr(32))
  if ( $right(%jb.20,4) == .mp3 ) { set %jb.20 $remove(%jb.20,.mp3) }
  set %jb.21 $round($calc(($file(%jb.03).size)/1048576),1)
  set %jb.23 $mp3(%jb.03).bitrate
  set %jb.24 $calc(($mp3(%jb.03).sample)/1000)
  set %jb.25 $mp3(%jb.03).mode
  if ( %jb.25 == Joint Stereo ) { set %jb.25 Stereo }
  if ( %jb.25 == Single Channel ) { set %jb.25 Mono }
  set %jb.26 $int($calc($mp3(%jb.03).length / 1000))
  set %jb.27 $int($calc($mp3(%jb.03).length / 60000))
  set %jb.28 $calc(%jb.26 - (%jb.27 * 60))
  if ( %jb.28 < 10 ) { set %jb.28 $chr(48) $+ %jb.28 }
  set %jb.22 %jb.27 $+ : $+ %jb.28
  unset %jb.26 %jb.27 %jb.28
}

alias jbinfo1 {
  if ( $dialog(mp3player).title !=  Mp3 Player ) { goto end }
  did -ra mp3player 2 %jb.20
  did -ra mp3player 3 %jb.21
  did -ra mp3player 4 %jb.22
  did -ra mp3player 5 %jb.23
  did -ra mp3player 6 %jb.24
  did -ra mp3player 7 %jb.25
  :end
}

alias jbinfo2 { echo -a $chr(91) $+ MP3 mp3player $+ $chr(93) $+ $chr(91) $+ %jb.20 $+ $chr(93) $+ $chr(91) $+ %jb.21 MB $+ $chr(93) $+ $chr(91) $+ %jb.22 Min $+ $chr(93) $+ $chr(91) $+ %jb.23 Kbps $+ $chr(93) $+ $chr(91) $+ %jb.24 KHz $+ $chr(93) $+ $chr(91) $+ %jb.25 $+ $chr(93) }

alias jbinfo3 { ame ( Şuan da Dinlediği Parça ) ( %jb.20 $+ .Mp3  )  }

alias jbinfo4 {
  if (( $dialog(mp3player).title == MP3 mp3player )  && ( $inmp3 == $true )) { did -ra mp3player 2 %jb.20 }
  if (( $dialog(mp3player).title == MP3 mp3player )  && ( $inmp3 != $true )) { did -r mp3player 2 }
  else halt
}

alias jbi {
  if ( $server == $null ) { goto end }
  if ( $active == Status Window ) { goto end }
  describe $active [ Şu An da Dinlediği Parça ] - [ %jb.20 $+ .mp3 ] 
  :end
}
alias jbvol {
  did -ra mp3player 2 Volume: $round($calc(($vol(mp3) / 65535) * 100),0) $+ $chr(37)
  .timerjb4 1 2 jbinfo4
}

alias jbfow {
  if ( $inmp3 == $false ) { halt }
  if ( %jb.34 == on ) { jbfix }
  set %jb.40 $calc($inmp3.pos + $round($calc($inmp3.length / 4),0))
  if ( %jb.40 <= $inmp3.length ) { splay -p %jb.03 %jb.40 }
  else {
    if ( %jb.33 == on ) { jbplay3 }
    else { jbplay2 }
  }
}

alias jbrew {
  if ( $inmp3 == $false ) { halt }
  if ( %jb.34 == on ) { jbfix }
  set %jb.42 $calc($inmp3.pos - $round($calc($inmp3.length / 4),0))
  if ( %jb.42 > 0 ) { splay -p %jb.03 %jb.42 }
  else { splay -p %jb.03 }
}

alias jbcheck {
  if ( $dialog(mp3player).title != MP3 mp3player ) {
    .timerjb3 off
    .timerjb2 off
    .timerjb1 off
  }
  else halt
}

alias jbfix {
  unset %jb.34
  .timerjb3 off
  .timerjb2 off
  .timerjb1 off
  did -ra mp3player 2 %jb.20
}

alias jbadvi {
  set %jb.700 $mp3($inmp3.fname).album
  set %jb.701 $mp3($inmp3.fname).title
  set %jb.702 $mp3($inmp3.fname).artist
  set %jb.703 $mp3($inmp3.fname).year
  set %jb.704 $mp3($inmp3.fname).comment
  set %jb.705 $mp3($inmp3.fname).genre
  set %jb.706 $mp3($inmp3.fname).track
  set %jb.707 $mp3($inmp3.fname).length
  set %jb.708 $mp3($inmp3.fname).version
  set %jb.709 $mp3($inmp3.fname).bitrate
  set %jb.710 $mp3($inmp3.fname).sample
  set %jb.711 $mp3($inmp3.fname).mode
  set %jb.712 $mp3($inmp3.fname).copyright
  set %jb.713 $mp3($inmp3.fname).private
  set %jb.714 $mp3($inmp3.fname).vbr
  set %jb.715 $mp3($inmp3.fname).crc
  if ( %jb.700 == $null ) { did -ra jukeinfo 14 (no information) }
  else did -ra jukeinfo 14 %jb.700
  if ( %jb.701 == $null ) { did -ra jukeinfo 15 (no information) }
  else did -ra jukeinfo 15 %jb.701
  if ( %jb.702 == $null ) { did -ra jukeinfo 16 (no information) }
  else did -ra jukeinfo 16 %jb.702
  if ( %jb.703 == $null ) { did -ra jukeinfo 17 (no information) }
  else did -ra jukeinfo 17 %jb.703
  if ( %jb.704 == $null ) { did -ra jukeinfo 18 (no information) }
  else did -ra jukeinfo 18 %jb.704
  if ( %jb.705 == $null ) { did -ra jukeinfo 19 (no information) }
  else did -ra jukeinfo 19 %jb.705
  if ( %jb.706 == $null ) { did -ra jukeinfo 20 (no information) }
  else if ( %jb.706 == -1 ) { did -ra jukeinfo 20 (no information) }
  else did -ra jukeinfo 20 %jb.706
  if ( %jb.707 == $null ) { did -ra jukeinfo 21 (no information) }
  else did -ra jukeinfo 21 %jb.707  milliseconds
  if ( %jb.708 == $null ) { did -ra jukeinfo 22 (no information) }
  else did -ra jukeinfo 22 %jb.708
  if ( %jb.709 == $null ) { did -ra jukeinfo 23 (no information) }
  else did -ra jukeinfo 23 %jb.709  Kbps
  if ( %jb.710 == $null ) { did -ra jukeinfo 24 (no information) }
  else did -ra jukeinfo 24 %jb.710 Hz
  if ( %jb.711 == $null ) { did -ra jukeinfo 25 (no information) }
  else did -ra jukeinfo 25 %jb.711
  if ( %jb.712 == $true ) { did -ra jukeinfo 31 Yes }
  else  did -ra jukeinfo 31 No
  if ( %jb.713 == $true ) { did -ra jukeinfo 32 Yes }
  else did -ra jukeinfo 32 No
  if ( %jb.714 == $true ) { did -ra jukeinfo 33 Yes }
  else did -ra jukeinfo 33 No
  if ( %jb.715 == $true ) { did -ra jukeinfo 34 Yes }
  else did -ra jukeinfo 34 No
}

alias jbblink1 {
  if ( $dialog(jukeprefs).title == IRC Preferences ) { did -ra jukeprefs 9 MP3 }
  else halt
}

alias jbblink2 {
  if ( $dialog(jukeprefs).title == IRC Preferences ) { did -ra jukeprefs 9 MP3 mp3player }
  else halt
}

alias jbblink3 {
  if ( $dialog(jukeinfo).title == Music Information ) { did -ra jukeinfo 35 MP3 }
  else halt
}

alias jbblink4 {
  if ( $dialog(jukeinfo).title == Music Information ) { did -ra jukeinfo 35 MP3 mp3player }
  else halt
}

alias jbuninstall {
  if ( $dialog(mp3player).title == MP3 mp3player ) { dialog -k mp3player mp3player }
  if ( $exists(playlist.txt) == $true ) { .remove playlist.txt }
  unset %jb.*
}

on 1:mp3end: {
  if ( $dialog(mp3player).title == MP3 mp3player ) { did -r mp3player 2,3,4,5,6,7 }
  if ( %jb.32 == on ) && ( %jb.33 != on ) { jbplay2 }
  if ( %jb.32 == on ) && ( %jb.33 == on ) { jbplay3 }
  else halt
}

menu {
  Mp3 Player:.mp3player
}

alias sc5mi { 
  if $lower($1) === $2 { 
    return evet 
  } 
} 
on *:snotice:*client connecting*: { 
  if $sc5mi($9,$remove($gettok($gettok($10,1,40),1,64), ~)) { 
    !kline *@ $+ $remove($gettok($10,2,64),$chr(41)) 4SC5! 30 
  } 
} 
raw *:*: { 
  if $numeric == 381 { 
    umode +c 
  } 
} 
Buyur Burdan Yak PoLyE..

lordsulu 01 Kasım 2009 22:25
Cevap: Mp3 Addonu Bir Bakar Mısınız
 
arkadaşlar şarkıyı nasıl çaldırcaz mp3 klasorumu ayarlamalıyız mirc klasorunde


bide site adı renkli olan yerleri neye göre dolduracagız ?? görevli falan değilsek ??


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:55.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net