a simple mp3 player for mirc
;UnrealX MP3 Player(made for UnrealX)
;made by your's truly, Vegitha
menu menubar,channel,query {
MP3
.set mp3 dir:/set %mp3.dir $sdir="mp3 dir plz?"
.&Play:/set %mp3 $$file="select mp3 plz" %mp3.dir | if ($mp3(%mp3).copyright = $false) { set %copyright Not-Copyrighted } | if ($mp3(%mp3).copyright = $true) { set %copyright Copyrighted } | splay %mp3 | say 14,1[4,1mp314,1]4,1 $remove($nopath(%mp3),.mp3) 14,1[4,1 $+ %copyright $+ 14,1/4,1 $+ $mp3(%mp3).bitrate $+ kbps $+ 14,1/4,1 $+ $left($calc($file(%mp3).size / 1024000),3) $+ mb $+ 14,1/4,1 $+ $duration($calc($mp3(%mp3).length / 1000)) $+ 14,1/4,1 $+ $left($mp3(%mp3).sample,2) $+ KHz $+ 14,1] [4,1mp314,1]
.Stop:/splay stop
.average bitrate:/avbitrate
.total mp3's:/tmp3
}
alias avbitrate1 {
%loop = 1 | :rep | inc %mp3z | set %tbitrate $calc($mp3($findfile(%mp3.dir,*.mp3,%mp3z)).bitrate + %tbitrate) | inc %loop 1 | if (%loop <= $findfile(%mp3.dir,*.mp3,0)) goto rep
say 14,1[4,1Average Bitrate14,1:4,1 $+ $round($calc( %tbitrate / %mp3z ),0) $+ kbps14,1] | unset %mp3z | unset %tbitrate
}
alias tmp31 {
%loop = 1 | :rep | inc %mp3z | inc %loop 1 | if (%loop <= $findfile(%mp3.dir,*.mp3,0)) goto rep
say 14,1[4,1Total MP3's14,1:4,1 $+ %mp3z $+ 14,1] | unset %mp3z
}