Public feed
#603553
menu * {
-
Media Player:/dialog -m med med
-
}
dialog med {
title "Media Player"
size -1 -1 600 280
text "Directory's:", 1, 1 1 80 20
list 2, 1 20 200 230, ok
text "Song's:", 3, 210 1 80 20
list 4, 210 20 200 230, auto hs
box "Options", 5, 420 1 125 40
button ">", 6, 430 15 25 25
button "", 7, 455 15 25 25
button "|<<", 8, 480 15 25 25
button ">>|", 9, 505 15 25 25
box "Volume", 10, 420 50 80 115
button "Up", 11, 430 65 60 25
button "Down", 12, 430 90 60 25
button "Mute", 13, 430 115 60 25
text "", 14, 450 140 40 20
button "Add Directory", 15, 510 50 89 20
button "Use Directory", 16, 510 70 89 20
button "Find Files", 17, 510 90 89 20
button "Close", 18, 510 110 89 20, ok
box "Directory", 19, 420 170 179 40
edit "", 20, 426 185 170 20, autohs, auto hs
text "Song:", 21, 1 255 50 20
text "", 22, 30 255 150 20
text "Album:", 23, 190 255 50 20
text "", 24, 225 255 150 20
text "Artist:", 25, 385 255 50 20
text "", 26, 415 255 150 20
}
on *:dialog:med:init:*: {
did -a med 14 %vollvl $+ $chr(37)
if (%total == $null) halt
unset %halt
set %directs 1
.timerdirects 0 0.5 directs
}
on *:dialog:med:close:*: {
/splay stop
}
on *:dialog:med:sclick:13: {
if (%mute == on) {
/vol -v %oldvol
did -a med 14 %oldlvl
unset %oldlvl
unset %oldvol
unset %mute
}
else {
set %oldvol $vol(master)
set %oldlvl $did(14)
/vol -v 0
did -a med 14 0 $+ $chr(37)
set %mute on
}
}
on *:DIALOG:med:sclick:11:{
var %a = $calc( $remove($did(med,14),$chr(37)) + 5 )
if (%a > 100) { halt }
did -ra med 14 %a $+ $chr(37)
set %vollvl %a
vol -v $calc( %a / 100 * 65535 )
unset %mute
}
on *:DIALOG:med:sclick:12:{
var %a = $calc( $remove($did(med,14),$chr(37)) - 5 )
if (%a < 0) { halt }
did -ra med 14 %a $+ $chr(37)
set %vollvl %a
vol -v $calc( %a / 100 * 65535 )
unset %mute
}
on *:dialog:med:sclick:7: {
/splay stop
did -a med 6 >
}
on *:dialog:med:sclick:8,9: {
if ($did == 9) {
if ($calc($did(4).sel + 1) > $did(4).lines) {
halt
}
else {
set %x $calc($did(4).sel + 1)
/splay $did(20) $+ \ $+ $did(4,%x).text
did -c med 4 %x
did -a med 22 $sound($insong.fname).title
did -a med 24 $sound($insong.fname).album
did -a med 26 $sound($insong.fname).artist
/msnsong Now Playing: $sound($insong.fname).title $chr(124) Artist: $sound($insong.fname).artist $chr(124) Album: $sound($insong.fname).album
}
}
else {
if ($calc($did(4).sel - 1) < 0) {
halt
}
else {
set %x $calc($did(4).sel - 1)
/splay $did(20) $+ \ $+ $did(4,%x).text
did -c med 4 %x
did -a med 22 $sound($insong.fname).title
did -a med 24 $sound($insong.fname).album
did -a med 26 $sound($insong.fname).artist
/msnsong Now Playing: $sound($insong.fname).title $chr(124) Artist: $sound($insong.fname).artist $chr(124) Album: $sound($insong.fname).album
}
}
}
on *:dialog:med:dclick:4: {
if ($insong.fname != $did(20) $+ \ $+ $did(4).seltext) {
did -a med 6 ||
/splay $did(20) $+ \ $+ $did(4).seltext
did -a med 22 $sound($insong.fname).title
did -a med 24 $sound($insong.fname).album
did -a med 26 $sound($insong.fname).artist
/msnsong Now Playing: $sound($insong.fname).title $chr(124) Artist: $sound($insong.fname).artist $chr(124) Album: $sound($insong.fname).album
}
elseif (%play == on) {
unset %play
/splay pause
did -a med 6 >
set %pause on
}
elseif (%pause == on) {
/splay resume
unset %pause
did -a med 6 ||
set %play on
}
else {
set %play on
/splay $did(20) $+ \ $+ $did(4).seltext
/did -a med 6 ||
did -a med 22 $sound($insong.fname).title
did -a med 24 $sound($insong.fname).album
did -a med 26 $sound($insong.fname).artist
/msnsong Now Playing: $sound($insong.fname).title $chr(124) Artist: $sound($insong.fname).artist $chr(124) Album: $sound($insong.fname).album
}
}
on *:dialog:med:sclick:6: {
if ($insong.fname != $did(20) $+ \ $+ $did(4).seltext) {
/splay $did(20) $+ \ $+ $did(4).seltext
did -a med 6 ||
did -a med 22 $sound($insong.fname).title
did -a med 24 $sound($insong.fname).album
did -a med 26 $sound($insong.fname).artist
/msnsong Now Playing: $sound($insong.fname).title $chr(124) Artist: $sound($insong.fname).artist $chr(124) Album: $sound($insong.fname).album
}
elseif (%play == on) {
unset %play
/splay pause
did -a med 6 >
set %pause on
}
elseif (%pause == on) {
/splay resume
unset %pause
did -a med 6 ||
set %play on
}
else {
set %play on
/splay $did(20) $+ \ $+ $did(4).seltext
/did -a med 6 ||
did -a med 22 $sound($insong.fname).title
did -a med 24 $sound($insong.fname).album
did -a med 26 $sound($insong.fname).artist
/msnsong Now Playing: $sound($insong.fname).title $chr(124) Artist: $sound($insong.fname).artist $chr(124) Album: $sound($insong.fname).album
}
}
on *:dialog:med:sclick:15: {
/dialog -m medf medf
}
on *:dialog:med:sclick:16,17: {
did -ra med 20 $did(2).seltext
$findfile($did(2).seltext,*.mp3,0,did -a med 4 $nopath($1-))
$findfile($did(2).seltext,*.wma,0,did -a med 4 $nopath($1-))
}
on *:dialog:med:dclick:2: {
did -ra med 20 $did(2).seltext
$findfile($did(2).seltext,*.mp3,0,did -a med 4 $nopath($1-))
$findfile($did(2).seltext,*.wma,0,did -a med 4 $nopath($1-))
}
alias -l directs {
if ($dialog(med)) && (%halt == $null) {
if (%directs > %total) { unset %directs | set %halt on }
else {
did -a med 2 %dir. [ $+ [ %directs ] ]
inc %directs
}
}
}
dialog medf {
title "Media Player: File Directory"
size -1 -1 800 50
edit "", 1, 1 1 798 20
button "Done", 2, 1 21 798 29, cancel
}
on *:dialog:medf:sclick:2: {
inc %total
set %dir. [ $+ [ %total ] ] $did(1)
did -a med 2 $did(1)
}
alias msnsong {
var %dll $mircdir/MsnSong.dll
.comreg %dll
.comopen msn Msn.Write
var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null)
.comreg -u %dll
.comclose msn
}