mIRC Mp3 Player Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 |
on 1:LOAD:/setup | /playlist Alias setup { set %mp3.dir $sdir=\\"Locate you mp3 files\\" | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir set %mp3.player $findfile(c:\\\\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player } Alias Mp3play { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\"Locate you mp3 directory\\" } if (%mp3.player == $null) { set %mp3.player $dir=\\"Locate your mp3 player (winamp.exe)\\" winamp.exe } %mp3.dir1 = %mp3.dir $+ \\\\ $+ *.mp? set %mp3 $dir=\\"Which mp3 do you want to play?\\" %mp3.dir1 if (%mp3 == $null) { goto end } %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } Alias sF3 { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\"Locate you mp3 directory\\" } if (%mp3.player == $null) { set %mp3.player $dir=\\"Locate your mp3 player (winamp.exe)\\" *.exe } set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0) set %rand.mp3.2 $rand(1,%rand.mp3.1) set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2) %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } alias playlist { set %mp3.list.starttime $ctime set %mp3.list.nick $me set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt window -dhnal @list $findfile(%mp3.dir,*.mp3,@list) set %mp3.list.total $findfile(%mp3.dir,*.mp3,0) write %mp3.list.textfile $cr write -c %mp3.list.textfile $me $+ \\\'s Mp3 List by: æAcidMp3æ Created by Juston write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file. write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files set %mp3.list.count 1 set %mp3.list.filesize.total 0 set %mp3.list.file.lastdir \\"\\" :next set %mp3.list.file $line(@list,%mp3.list.count) set %mp3.list.file.dir $nofile(%mp3.list.file) set %mp3.list.file.name $nopath(%mp3.list.file) set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3) set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count)) if (%mp3.list.file.dir != %mp3.list.file.lastdir) { write %mp3.list.textfile $cr write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ] write %mp3.list.textfile $cr } else { } set %mp3.list.file.lastdir %mp3.list.file.dir if %mp3.list.count > 1 { if %mp3.list.filesize > %mp3.list.filesize.high { set %mp3.list.filesize.high %mp3.list.filesize set %mp3.list.filename.high %mp3.list.file.name } elseif %mp3.list.filesize < %mp3.list.filesize.low { set %mp3.list.filesize.low %mp3.list.filesize set %mp3.list.filename.low %mp3.list.file.name } } else { set %mp3.list.filesize.high %mp3.list.filesize set %mp3.list.filesize.low %mp3.list.filesize } write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB inc %mp3.list.filesize.total %mp3.list.filesize inc %mp3.list.count 1 if ( %mp3.list.count < %mp3.list.total ) { goto next } :end window -c @list write %mp3.list.textfile write %mp3.list.textfile $cr if %mp3.list.filesize.total < 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB } else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB } set %mp3.list.time $calc($ctime - %mp3.list.starttime) /run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ } alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) } alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 } alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps } alias mp3.bitrate { if (($1 == $null) || ($exists($1-) == $false)) return 0 set %_bitrate $read -l1 $1- if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 } set %_bitrate $asc($mid(%_bitrate,3,1)) .timer 1 1 unset %_bitrate return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16)))) } alias mp3.len { if ($1 == $null) || ($exists($1) == $false) return 0m0s else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) } } Menu status,channel,query { - DandikMp3 .Setup:/setup .Create List:/playlist .Select Mp³:/mp3play .Random Mp³:/sF3 } Alias r3 { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\"Locate you mp3 directory\\" } if (%mp3.player == $null) { set %mp3.player $dir=\\"Locate your mp3 player (winamp.exe)\\" *.exe } set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0) set %rand.mp3.2 $rand(1,%rand.mp3.1) set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2) %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } |