Mp3 Player

Platform:  mIRC
Published  Jul 23, 2008
Updated  Jul 24, 2008
This is my Mp3 Player just a simple one i know got the volume idea from ^Neptune's Mp3, anything i should add? menu * {
Mp3 Player: dialog -dmh mp3 mp3
}
dialog Mp3 {
title "Mp3 Player"
size -1 -1 155 189
option dbu
list 5, 4 24 98 72, size
button "Play", 1, 7 107 48 10
button "Pause", 3, 59 107 44 10
button "Resume", 4, 59 120 44 10
button "Stop", 2, 7 120 48 10
button "Directory", 6, 7 131 96 15
check "Msg to active", 12, 4 174 52 10
box "Controls", 13, 4 98 102 50
scroll "", 14, 11 155 86 11, horizontal top range 0 65535
box "Volume", 15, 4 149 98 23
edit "", 16, 57 2 97 10, read autohs
text "Now Playing:", 17, 23 3 34 8
box "List", 18, 2 16 104 83
}
on *:dialog:Mp3:sclick:*:{
if ($did == 1) {
var %mp3msg $did(mp3,12).state
if (%mp3msg == 0) {
var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
did -ra mp3 16 $did(mp3,5).seltext
splay %Psong
}
if (%mp3msg == 1) {
var %mp3 $did(mp3,5).seltext
var %mp3 $did(mp3,5).seltext
var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
var %mp3length $gmt($round($calc($mp3(%Psong).length / 1000),0),nn:ss)
var %mp3bitr $mp3(%Psong).bitrate
splay %Psong
did -ra mp3 16 $did(mp3,5).seltext
msg $active 4,1Now playing0,1:4,1 $remove(%mp3,.mp3) 0,1[4,1Length0,1:4,1 %mp3length 0,1/4,1 Bitrate0,1:4,1 %mp3bitr $+ 0,1]
}
}
if ($did == 2) {
splay stop
}
if ($did == 3) {
splay pause
}
if ($did == 4) {
splay resume
}
if ($did == 6) {
set %mp3dir $sdir(mIRC,Mp3 Directory)
did -r mp3 5
set %mp3num $findfile(%mp3dir, *.mp3,0,did -a mp3 5 $nopath($1-))
}
}
on *:dialog:mp3:dclick:5:{
var %mp3msg $did(mp3,12).state
if (%mp3msg == 1) {
var %mp3 $did(mp3,5).seltext
did -ra mp3 16 $did(mp3,5).seltext
var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
var %mp3length $gmt($round($calc($mp3(%Psong).length / 1000),0),nn:ss)
splay %Psong
msg $active 4,1Now playing0,1:4,1 $remove(%mp3,.mp3) 0,1[4,1Length0,1:4,1 %mp3length 0,1/4,1 Bitrate0,1:4,1 %mp3bitr $+ 0,1]
}
if (%mp3msg == 0) {
var %mp3 $did(mp3,5).seltext
did -ra mp3 16 $did(mp3,5).seltext
var %Psong $findfile(%mp3dir,$did(mp3,5).seltext,1)
splay %Psong
}
}
on *:dialog:Mp3:scroll:14:{
vol -v $did($did).sel
}

Comments

Sign in to comment.
Eugenio   -  Aug 14, 2008
ALT + R
copy + paste
right click
open the dialog
once opened he will automatically know its an MP3 player
 Respond  
Anti   -  Aug 14, 2008
Lmfao, if he doesnt know what it is, how is he going to test it?
 Respond  
Eugenio   -  Aug 14, 2008
lol I spose he could have tested it before he said bollocks then he would have seen what exactly it did
 Respond  
Anti   -  Aug 14, 2008
ROFL. maybe hes from another country?
 Respond  
Eugenio   -  Aug 14, 2008
rofl well he has a point.....and its not like its got some ridiculous coding name, its called Mp3 Player
 Respond  
a careful warchild   -  Aug 14, 2008
um it's an mp3 player for mIRC it plays mp3's


lmfao napa
 Respond  
damdempsel   -  Jul 28, 2008
i got it to work...
 Respond  
damdempsel   -  Jul 28, 2008
i cant get it work...i opened it up for the music...couldnt get it to actually play it though...
 Respond  
napa182   -  Jul 25, 2008
jamming808 said:
what exactly does it do?


um it\'s an mp3 player for mIRC it plays mp3\'s
 Respond  
jamming808   -  Jul 25, 2008
what exactly does it do?
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.