dialog mp4 {
title "Mp3 Player"
size -1 -1 350 200
option pixel
Tab "Music", 15, 0 0 350 200
Tab "Advertise", 16, 1 1 350 200
Tab "More Volume", 17, 2 2 350 200
Button "Mute Volume", 21, 1 25 120 50, tab 17
Button "Resume Volume", 22, 125 25 120 50, tab 17
Scroll "", 23, 245 27 100 16, horizontal range 0 65535, tab 17
Text " Volume Bar", 24, 245 47 100 16, tab 17
button "Advertise Song", 18, 1 25 120 50, tab 16
button "Advertise Script", 19, 125 25 120 50, tab 16
button "Lyric's Search", 20, 1 80 120 50, tab 16
box "Music Play Options" 12, 210 75 138 94, tab 15
button "<<", 6, 215 140 60 25, tab 15
button "||", 3, 215 90 130 25, tab 15
button "[]", 4, 215 115 60 25, tab 15
button "|>", 5, 285 115 60 25, tab 15
button ">>", 2, 285 140 60 25, tab 15
Button "Vol+", 13, 215 165 60 25, tab 15
Button "Vol-", 14, 285 165 60 25, tab 15
list 7, 1 25 205 200, hsbar vsbar extel, tab 15
box "ADD/DEL file" 11, 210 25 138 45, tab 15
button "ADD File" 8, 215 40 65 25, tab 15
button "DEL File" 9, 280 40 65 25, tab 15
}
menu * {
MP3 Player { player }
}
on 1:dialog:mp4:sclick:18: {
/song
}
on 1:dialog:mp4:sclick:13: {
set %vol $vol(master)
set %vol2 $calc( 2000 + %vol )
vol -v %vol2
}
on *:dialog:mp4:sclick:21: {
set %vol $vol(Master)
vol -v 0
}
on *:dialog:mp4:sclick:22: {
vol -v %vol
}
on 1:dialog:mp4:sclick:14 {
set %vol $vol(master)
set %vol2 $calc( %vol - 2000 )
vol -v %vol2
}
on *:dialog:mp4:scroll:23: {
vol -v $did($did).sel
}
on 1:dialog:mp4:sclick:20 {
set %playy1 $remove(%slistening,$chr(32),0,1,2,3,4,5,6,7,8,9,.,mp)
set %playy2 $replace(%playy1,_,+,-,+)
url -an $+( http://www.google.com/search?hl=en&q= $+ %playy2 $+ +lyrics&btnG=Search)
}
on 1:dialog:mp4:sclick:19 {
msg $active 7>.> Get Leo_Cool_1's MP3 Script at:- http://www.hawkee.com/snippet/5081/ 7<.<
}
on 1:dialog:mp4:sclick:8: {
set %ssong1 $sfile(/)
write playlist.txt %ssong1
did -a mp4 7 $nopath(%ssong1)
}
on 1:dialog:mp4:sclick:9: {
set %sdel1 $did(mp4,9)
set %sdel2 $did(mp4,7).sel
write -dw [ $+ [ * [ $+ [ %sdel1 [ $+ [ * ] ] ] ] ] ] playlist.txt
did -d mp4 7 %sdel2
}
a
on 1:dialog:mp4:init:0: {
set %snumber 1
:next
set %ssong2 $read(playlist.txt, %snumber )
if ( %ssong2 == $null) { Halt }
did -a mp4 7 $nopath(%ssong2)
inc %snumber 1
if ( %ssong2 != $null ) { goto next }
}
on 1:dialog:mp4:sclick:5: {
if ( %spause == on ) {
set %spause off
splay -p resume
}
else {
set %splay1 $did(mp4, 7).seltext
set %splay2 $did(mp4, 7).sel
set %splay3 $read(playlist.txt, w, * [ $+ [ %splay1 ] ] [ $+ [ * ] ] )
splay %splay3
set %slistening $nopath(%splay3)
inc %splay2 1
set %ssong1 $replace(%splay3,-,%space,_,%space)
}
}
on 1:MP3END: {
set %splay3 $read(playlist.txt, %splay2)
splay %splay3
set %slistening $nopath(%splay3)
inc %splay2 1
set %ssong1 $replace(%splay3,-,%space,_,%space)
}
on 1:dialog:mp4:sclick:4: {
splay stop
}
on 1:dialog:mp4:sclick:2: {
splay $read(playlist.txt, %splay2)
set %spath $read(playlist.txt, %splay2)
set %slistening $nopath(%spath)
inc %splay2 1
set %ssong1 $replace(%spath,-,%space,_,%space)
}
on 1:dialog:mp4:sclick:6: {
dec %splay2 1
splay $read(playlist.txt, %splay2)
set %spath $read(playlist.txt, %splay2)
set %slistening $nopath(%spath)
set %space
set %slistening $replace(%slistening,-,%space,+,%space,mp,%space,+,%space,_,%space)
set %ssong1 $replace(%spath,-,%space,_,%space)
}
on 1:dialog:mp4:sclick:3: {
set %spause on
splay -p pause
}
alias song {
if ( %islist == me ) {
ame is now listning to:- %slistening
}
else {
amsg I am now listning to:- %slistening
}
}
alias setup {
set %sislist $$?="When you say what you're listening to, shall it be in /me or /say. (me for /me and say for /say)"
set %stext $$?="And what do you want to say? Example: Now playing: or is listening to"
echo ok, type /song to show what song you're listening to
}
alias player {
dialog -md mp4 mp4
}
