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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Eylül 2009, 20:09   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Mp3 Addonu Bir Bakar Mısınız




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
;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...

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 23 Eylül 2009, 12:00   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 230 153
  option dbu
  box 
""14 3 220 32
  edit 
" "28 10 210 10center read
  edit 
" "38 21 20 10right read
  edit 
" "444 21 20 10right read
  edit 
" "5100 21 20 10right read
  edit 
" "6140 21 20 10right read
  edit 
" "7186 21 32 10center read
  text 
"MB"830 23 9 6
  text 
"Dakika"967 23 17 8
  text 
"Kbps"10122 23 14 8
  text 
"KHz"11162 23 12 8
  
list 124 40 148 87vsbar size
  box 
""13157 44 67 70
  button 
"Mp3 Klasörünü Ayarla"14160 54 61 10flat
  button 
"Ayarlar-Seçenekler"15160 71 61 10flat
  check 
"Devamli Caldir"17160 85 61 10push flat
  check 
"Rastgele Caldir"18160 99 61 10push flat
  box 
""204 128 116 21
  button 
"Geri"217 134 16 12flat
  button 
"Çal"2228 134 19 12flat
  button 
"Bekle"2352 134 19 12flat
  button 
"Dur"2475 134 19 12flat
  button 
"ileri"25101 134 16 12flat
  box 
""26125 130 51 18
  button 
"Ses (+)"27129 136 21 10flat
  button 
"Ses (-)"28152 136 21 10flat
  button 
"Pencereyi Kapat"29161 117 60 13ok flat
}
dialog jukeprefs {
  
title "Ayarlar - Seçenekler"
  
size --1 152 81
  option dbu
  box 
".: Mp3 Player :."14 3 144 57
  radio 
" Müzik Dinlerken kanalda Gözükmesin"29 16 108 8flat
  radio 
" Müzik Dinlerken Sadece Bana Gözüksün"39 26 108 8flat
  radio 
" Sadece 1 Kanalda Renkli Gözüksün"49 36 108 8flat
  radio 
" Müzik Dinlerken Tüm Kanallarda Gözüksün"59 46 118 8flat
  text 
"(/echo)"6121 26 24 8
  text 
"(/action)"7121 36 24 8
  text 
"(/ame)"8125 46 28 8
  text 
" "911 68 60 8disabled
  button 
"Tamam"10104 65 44 12ok flat
}
dialog jukeinfo {
  
title "Music Information"
  
size --1 132 160
  option dbu
  box 
""14 2 124 108
  text 
"Album:"28 10 28 8
  text 
"Title:"38 18 28 8
  text 
"Artist:"48 26 28 8
  text 
"Year:"58 34 28 8
  text 
"Comment:"68 42 28 8
  text 
"Genre:"78 50 28 8
  text 
"Track:"88 58 28 8
  text 
"Length:"98 66 28 8
  text 
"Version:"108 74 28 8
  text 
"Bitrate:"118 82 28 8
  text 
"Sample:"128 90 28 8
  text 
"Mode:"138 98 28 8
  text 
" "1440 10 84 8
  text 
" "1540 18 84 8
  text 
" "1640 26 84 8
  text 
" "1740 34 84 8
  text 
" "1840 42 84 8
  text 
" "1940 50 84 8
  text 
" "2040 58 84 8
  text 
" "2140 66 84 8
  text 
" "2240 74 84 8
  text 
" "2340 82 84 8
  text 
" "2440 90 84 8
  text 
" "2540 98 84 8
  box 
""264 112 124 27
  text 
"Copyright:"278 120 28 8
  text 
"Private:"288 128 28 8
  text 
"VBR:"2976 120 28 8
  text 
"CRC:"3076 128 28 8
  text 
" "3140 120 20 8
  text 
" "3240 128 20 8
  text 
" "3396 120 20 8
  text 
" "3496 128 20 8
  text 
" "3512 146 60 8disabled
  button 
"Close"3684 144 44 12ok
}
dialog jukecrdts {
  
title "Credits"
  
size --1 136 69
  option dbu
  box 
""14 3 128 28
  text 
"MP3 mp3player for mIRC 5.8X"48 12 80 8
  text 
"15.01.2001"696 12 32 8right
  text 
"Written by Lock Tha Unlocker (ecesar)"58 20 104 8
  box 
""24 31 128 20
  link 
"http://ecesar.tsx.org"78 40 112 16
  link 
"
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
880 40 96 16
  button 
"OK"344 55 44 12cancel
}
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 == ) { set %jb.30 2 }
  if ( 
$did == ) { set %jb.30 3 }
  if ( 
$did == ) { set %jb.30 4 }
  if ( 
$did == ) { 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.82Please 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 -@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 -$+ %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 -$+ %jb.02 playlist.txt
  splay 
-%jb.03
  jbinfo
  jbinfo1
  
if ( %jb.30 == ) { jbinfo2 }
  if ( %
jb.30 == ) { jbi }
  if (( %
jb.30 == ) && ( $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 -%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 ) { splay -%jb.03 %jb.42 }
  else { 
splay -%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 == -) { 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,}
  if ( %
jb.32 == on ) && ( %jb.33 != on ) { jbplay2 }
  if ( %
jb.32 == on ) && ( %jb.33 == on ) { jbplay3 }
  else 
halt



__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 23 Eylül 2009, 19:30   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Addonu Bir Bakar Mısınız




Cesuryurek bu kod kanala yansıtıor mu peki pasam ? calarken dinlediğini acabaç

 
Alıntı ile Cevapla

Alt 23 Eylül 2009, 19:35   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 23 Eylül 2009, 19:43   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Addonu Bir Bakar Mısınız




CesuryureK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 ?

 
Alıntı ile Cevapla

Alt 23 Eylül 2009, 20:12   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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


Konu neobre tarafından (23 Eylül 2009 Saat 20:21 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 24 Eylül 2009, 11:42   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 24 Eylül 2009, 16:59   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Addonu Bir Bakar Mısınız




CesuryureK Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 14 Ekim 2009, 06:07   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mp3 Addonu Bir Bakar Mısınız




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;
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 230 153
  icon icon
/mp3.ico0
  option dbu
  box 
""14 3 220 32

  edit 
" "28 10 210 10center read
  edit 
" "38 21 20 10right read
  edit 
" "444 21 20 10right read
  edit 
" "5100 21 20 10right read
  edit 
" "6140 21 20 10right read
  edit 
" "7186 21 32 10center read
  text 
"MB"830 23 9 6
  text 
"Dakika"967 23 17 8
  text 
"Kbps"10122 23 14 8
  text 
"KHz"11162 23 12 8
  
list 124 40 148 87vsbar size
  box 
""13157 44 67 70
  button 
"Mp3 Klasörünü Ayarla"14160 54 61 10flat
  button 
"Ayarlar-Seçenekler"15160 71 61 10flat
  check 
"Devamli Caldir"17160 85 61 10push flat
  check 
"Rastgele Caldir"18160 99 61 10push flat
  box 
""204 128 116 21
  button 
"Geri"217 134 16 12flat
  button 
"Çal"2228 134 19 12flat
  button 
"Bekle"2352 134 19 12flat
  button 
"Dur"2475 134 19 12flat
  button 
"ileri"25101 134 16 12flat
  box 
""26125 130 51 18
  button 
"Ses (+)"27129 136 21 10flat
  button 
"Ses (-)"28152 136 21 10flat

  button 
"Pencereyi Kapat"29161 117 60 13ok flat
}

dialog jukeprefs {
  
title "Ayarlar - Seçenekler"
  
size --1 152 81
  option dbu
  box 
".: Mp3 Player :."14 3 144 57
  radio 
" Müzik Dinlerken kanalda Gözükmesin"29 16 108 8flat
  radio 
" Müzik Dinlerken Sadece Bana Gözüksün"39 26 108 8flat
  radio 
" Sadece 1 Kanalda Renkli Gözüksün"49 36 108 8flat
  radio 
" Müzik Dinlerken Tüm Kanallarda Gözüksün"59 46 118 8flat
  text 
"(/echo)"6121 26 24 8
  text 
"(/action)"7121 36 24 8
  text 
"(/ame)"8125 46 28 8
  text 
" "911 68 60 8disabled
  button 
"Tamam"10104 65 44 12ok flat
}

dialog jukeinfo {
  
title "Music Information"
  
size --1 132 160
  option dbu
  box 
""14 2 124 108
  text 
"Album:"28 10 28 8
  text 
"Title:"38 18 28 8
  text 
"Artist:"48 26 28 8
  text 
"Year:"58 34 28 8
  text 
"Comment:"68 42 28 8
  text 
"Genre:"78 50 28 8
  text 
"Track:"88 58 28 8
  text 
"Length:"98 66 28 8
  text 
"Version:"108 74 28 8
  text 
"Bitrate:"118 82 28 8
  text 
"Sample:"128 90 28 8
  text 
"Mode:"138 98 28 8
  text 
" "1440 10 84 8
  text 
" "1540 18 84 8
  text 
" "1640 26 84 8
  text 
" "1740 34 84 8
  text 
" "1840 42 84 8
  text 
" "1940 50 84 8
  text 
" "2040 58 84 8
  text 
" "2140 66 84 8
  text 
" "2240 74 84 8
  text 
" "2340 82 84 8
  text 
" "2440 90 84 8
  text 
" "2540 98 84 8
  box 
""264 112 124 27
  text 
"Copyright:"278 120 28 8
  text 
"Private:"288 128 28 8
  text 
"VBR:"2976 120 28 8
  text 
"CRC:"3076 128 28 8
  text 
" "3140 120 20 8
  text 
" "3240 128 20 8
  text 
" "3396 120 20 8
  text 
" "3496 128 20 8
  text 
" "3512 146 60 8disabled
  button 
"Close"3684 144 44 12ok
}

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

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 == ) { set %jb.30 2 }
  if ( 
$did == ) { set %jb.30 3 }
  if ( 
$did == ) { set %jb.30 4 }
  if ( 
$did == ) { 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.82Please 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 -@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 -$+ %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 -$+ %jb.02 playlist.txt
  splay 
-%jb.03
  jbinfo
  jbinfo1
  
if ( %jb.30 == ) { jbinfo2 }
  if ( %
jb.30 == ) { jbi }
  if (( %
jb.30 == ) && ( $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 -%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 ) { splay -%jb.03 %jb.42 }
  else { 
splay -%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 == -) { 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,}
  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) === $
    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)) 4SC530 
  


raw *:*: { 
  if 
$numeric == 381 
    
umode +
  



Buyur Burdan Yak PoLyE..

 
Alıntı ile Cevapla

Alt 01 Kasım 2009, 22:25   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ??

 
Alıntı ile Cevapla

Cevapla

Etiketler
bakar, mirc download, mirc indir, mp3, mİsİnİz


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Naza Bakar mısınız :)) Ein Hayvanlar Alemi 0 14 Aralık 2010 01:40
Arkadaslar Bakar Mısınız? ALonesouL777 Eggdrop, NeoStats, BNC 9 03 Ocak 2009 02:20
Coderlerimiz bakar mısınız? LeFleAu mIRC Scripting Sorunları 19 25 Aralık 2008 14:43
Bakar mısınız? necro_41 Oyun Dünyasından Son Haberler 0 31 Temmuz 2006 13:45