#---------------------------------------#
# Script: Mp3 Player #
# Scripter: Daniel_ #
# web: http://Chat-Core.no-ip.org:8000 #
# IRC: /server Chat-Core.no-ip.org 6667 #
#---------------------------------------#
menu menubar,channel,status {
»Mp3 Player«: dialog -dm mp3 mp3
}
dialog mp3 {
title "mp3 Player"
size -1 -1 74 155
option dbu
list 5, 0 14 74 105, size
button "Play", 1, 0 119 37 12, flat
button "Stop", 2, 37 119 37 12, flat
button "Pause", 3, 0 131 37 12, flat
button "Resume", 4, 37 131 37 12, flat
button "Directory", 6, 0 143 74 12, flat
edit "N/A", 7, 1 2 72 12, flat
}
on *:dialog:mp3:sclick:*:{
if $did = 1 {
set %mp3 $did(mp3,5).seltext
set %Play.song $findfile(%mp3dir,$did(mp3,5).seltext,1)
set %bitr $mp3(%play.song).bitrate
set %length $gmt($round($calc($mp3(%play.song).length / 1000),0),nn:ss)
set %mp3size $bytes($file(%Play.song).size).suf
set %khz $round($calc($mp3(%Play.song).sample / 1000),1))
inc %mpplay
splay %Play.song
did -ra mp3 7 » $+ %mp3 $+ «
msg $active 14,1(0,1 %mp3 14,1/0,1 %Length 14,1/0,1 %bitr 14,1|0,1 %mp3size 14,1|0,1 %khz 14,1(0,1Played %mpplay Songs14,1)
}
if $did = 2 {
splay stop
}
if $did = 3 {
splay pause
}
if $did = 4 {
play resume
}
if $did = 6 {
set %mp3dir $sdir="Mp3 Directory"
set %mp3num $findfile(%mp3dir, *.mp3,0,did -a mp3 5 $nopath($1-))
}
}
