rendered paste bodyMenu * {
iPod!:/dialog -md eMP3 eMP3
}
alias wtfz {
var %x = 1
while ($did(emp3,2,%x)) {
if (!$did(emp3,2,$calc(%x + 1))) {
set %naabedie " $+ $readini(mp3player.ini,Directory,%playlist) $+ $did(emp3,2,$r(1,%x)) $+ .mp3 $+ "
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
if ($did(emp3,2,$calc(%x + 1))) && (%naabedie == $insong.fname) { set %naabedie " $+ $readini(mp3player.ini,Directory,%playlist) $+ $did(emp3,2,$calc(1 + %x)) $+ .mp3 $+ "
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
}
if (!$did(emp3,2,$calc(%x + 1))) && (%naabedie == $insong.fname) { set %naabedie " $+ $readini(mp3player.ini,Directory,%playlist) $+ $did(emp3,2,$calc(%x - 1)) $+ .mp3 $+ " }
did -ra emp3 999 $remove($nopath(%naabedie),.mp3) }
inc %x
}
}
Dialog eMP3 {
Title "iPod Dutch V4.0 door Lorre"
size -1 -1 150 207
option dbu
Button "Afspeellijst 1", 1, 20 39 55 14
Button "Afspeellijst 2", 22, 75 39 55 14
Check "Set", 23, 3 40 17 10
Edit "Rating:", 90, 50 55 50 10, center read
Button "+", 89, 38 55 10 10
Button "-", 91, 102 55 10 10
List 2, 20 66 110 100, vsbar
Button "Speel", 8, 13 161 30 10
Button "Pauzeer", 10, 43 161 30 10
Button "Stop", 9, 103 161 30 10
Button "+", 50, 35 175 10 10
Edit "1", 51, 47 175 50 10, center read
Button "-", 52, 100 175 10 10
Button "Zeg", 92, 102 186 20 10
Button "+", 100, 122 186 10 10
Button "-", 101, 132 186 10 10
Check "Amsg", 123, 45 186 23 10
Check "Stil", 124, 75 186 23 10
button "Overslaan", 3, 73 161 30 10
check "Shuffle", 6, 3 175 25 10
button "Zet als volgende", 165, 15 196 62 10, center
button "Nieuwe volgende", 166, 77 196 52 10, center
check "Herhaal", 7, 115 175 27 10
text "Volgend Lied:", 992, 20 20 110 10, center
text "Momenteel:", 754, 20 2 110 9, center
edit "", 97, 20 9 119 10, center read
edit "", 999, 20 27 119 10, center read
edit "", 54, 1 186 40 10, center disable
}
on *:Dialog:eMP3:sclick:100: {
var %seek = $round($calc($calc($insong.length / 10 ) + $insong.pos),0)
splay -p seek %seek
}
on *:Dialog:eMP3:sclick:101: {
var %sek = $round($calc($insong.pos - $calc($insong.length / 10 )),0)
splay -p seek %sek
}
on *:Dialog:eMP3:sclick:92: {
set %true on
/iamsg
}
on *:Dialog:eMP3:sclick:1: {
set %playlist playlist1
if ($did(23).state == 1 ) {
did -r eMp3 2
.writeini mp3player.ini Directory Playlist1 $sdir(*,Select your music directory)
set %naamlijst1 $$?="Name for the Playlist?"
did -ra $dname 1 %naamlijst1
noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4))) }
elseif ($did(23).state == 0 ) {
did -r $dname 2
noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4)))
}
}
on *:Dialog:eMP3:sclick:22: {
set %playlist playlist2
if ($did(23).state == 1 ) {
did -r eMp3 2
.writeini mp3player.ini Directory Playlist2 $sdir(*,Select your music directory)
set %naamlijst2 $$?="Name for the Playlist?"
did -ra $dname 22 %naamlijst2
noop $findfile($readini(mp3player.ini,directory,Playlist2),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4)))
}
elseif ($did(23).state == 0 ) {
did -r $dname 2
noop $findfile($readini(mp3player.ini,directory,Playlist2),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4)))
}
}
ON *:DIALOG:emp3:init:*:{
mp3test
did -ra $dname 1 %naamlijst1
did -ra $dname 22 %naamlijst2
noop $findfile($readini(mp3player.ini,directory,%playlist),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4)))
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
if (%herhaal == on) did -c $dname 7
if (%shuffle == on) did -c $dname 6
if (%mute == on) { did -c $dname 124 | did -ra $dname 51 0% }
if (%amsg == on) did -c $dname 123
if ($insong.fname != $null) {
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
did -ra $dname 999 $remove($nopath(%naabedie),.mp3) }
did -ra $dname 90 Rating: $ano
did -ra $dname 54 00:00/00:00
}
on *:dialog:emp3:sclick:166:{
wtfz
if ($did(emp3,6).state == 0) did -c $dname 6
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
}
alias mp3timer {
if ($left($did(emp3,54),4) == $right($did(emp3,54),4)) && (%mp3timer) { halt }
set %mp3timer $round($calc(($insong.pos / 1000) - $calc(($left(%pause,2) * 60) + $right(%pause,2))),0)
did -ra emp3 54 $iif($mid($duration(%mp3timer,3),4,3) == 00:,00 $+ $right($duration(%mp3timer,3),3),$remove($duration(%mp3timer,3),00:)) $+ / $+ $iif($mid($duration($calc($insong.length / 1000),3),4,3) == 00:,00 $+ $right($duration($calc($insong.length / 1000),3),3),$remove($duration($calc($insong.length / 1000),3),00:))
}
alias mp3test {
unset %mp3timer
if (%pause) {
set %mp3timer $calc(($left(%pause,2) * 60) + $right(%pause,2))
timermp3 $round($calc(($insong.length / 1000) - $calc(($left(%pause,2) * 60) + $right(%pause,2))),0) 1 /mp3timer
unset %pause
halt
}
if (!$timer(mp3)) timermp3 $calc($round($insong.length,0) / 1000)) 1 /mp3timer
}
on *:dialog:emp3:close:0:{
$iif($did(emp3,7).state == 1, set %herhaal on, set %herhaal off)
$iif($did(emp3,6).state == 1, set %shuffle on, set %shuffle off)
$iif($did(emp3,123).state == 1, set %amsg on, set %amsg off)
$iif($did(emp3,124).state == 1, set %mute on, set %mute off)
/timermp3 off
/timeriamsg off
splay stop
}
on *:dialog:emp3:sclick:165:{ set %naabedie $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
}
on *:dialog:eMP3:sclick:6:{ did -u $dname 7
if ($did(6).state == 1) { wtfz }
if ($did(6).state == 0) { inext }
}
on *:dialog:emp3:sclick:3:{
skip
}
alias skip {
timeriamsg off
splay -p %naabedie
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
did -ra emp3 97 $remove($nopath($insong.fname),.mp3)
did -ra emp3 90 Rating: $ano
if ($did(emp3,123).state == 1) iamsg
if ($did(emp3,6).state == 1) /wtfz
if ($did(emp3,6).state == 0) && ($did(emp3,7).state == 0) inext
if ($did(emp3,7).state == 1) set %naabedie $insong.fname
mp3test
}
on *:dialog:emp3:sclick:7:{ /did -u $dname 6
if ($did(7).state == 1) { set %naabedie $insong.fname
did -ra $dname 999 $remove($nopath($insong.fname),.mp3) }
if ($did(7).state == 0) {
if ($did(6).state == 1) { /wtfz | halt }
inext
}
}
on *:mp3end:{
splay -p %naabedie
did -ra emp3 97 $remove($nopath($insong.fname),.mp3)
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
did -ra emp3 90 Rating: $ano
if ($did(emp3,123).state == 1) iamsg
if ($did(emp3,7).state == 1) set %naabedie $insong.fname
if ($did(emp3,6).state == 1) wtfz
if ($did(emp3,6).state == 0) && ($did(emp3,7).state == 0) inext
}
on *:Dialog:emp3:dclick:2: {
if (%dinges == on) splayfragment
if ($did(emp3,7).state == 1) {
set %naabedie $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
splay -p $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
if (%dinges == on) splayfragment
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
did -ra $dname 90 Rating: $ano
did -ra $dname 93 Tp: $hugo
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
mp3test
if ($did(emp3,123).state == 1) { iamsg }
}
else {
splay -p $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
did -ra $dname 90 Rating: $ano
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
if ($did(EMP3,123).state == 1) { /iamsg }
$iif($did(6).state == 1, wtfz, inext)
if (%dinges == on) Splayfragment
}
}
ON *:DIALOG:eMP3:sclick:8:{
if (%dinges == on) splayfragment
if ($insong.pause) { splay resume
set %pause $left($did(54),5)
halt }
if ($did(7).state) {
did -ra $dname 90 Rating: $ano
set %naabedie $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
if ($did(emp3,123).state) { iamsg }
splay -p $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
halt }
splay -p $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
if ($did(EMP3,123).state == 1) { iamsg }
$iif($did(6).state == 1,wtfz,inext)
}
ON *:DIALOG:eMP3:Sclick:9:{
/splay stop
/timermp3 off
timeriamsg off
did -ra $dname 90 Rating:
did -ra $dname 97 Now playing: Nothing
did -ra $dname 999 Next song: Nothing
did -ra $dname 93 Tp:
did -ra $dname 54 00:00/00:00
}
on *:dialog:eMP3:sclick:50:{
/vol -v $calc( $vol(master) + 2500)
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
on *:dialog:eMP3:sclick:123: {
if ($did(EMP3,123).state == 0) { set %Amsg Lmao }
if ($did(EMP3,123).state == 1) {
set %Amsg On
timeriamsg off
}
}
ON *:DIALOG:eMP3:sclick:124:{
if ($did(eMP3,124).state == 0) { vol -vu2
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
if ($did(eMP3,124).state == 1) { vol -vu1
did -ra $dname 51 0%
}
}
on *:dialog:eMP3:sclick:52:{
/vol -v $calc( $vol(master) - 2500)
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
ON *:DIALOG:eMP3:sclick:10:{
set %duurt $calc($calc($calc($floor($calc($insong.length / 60000)) * 60) + $floor($calc($remove($calc($insong.length / 60000),$left($calc($insong.length / 60000),2)) / 10 * 60 / 100000))) - $did(54))
/splay pause
}
alias inext {
var %x = 1
while ($did(eMP3,2,%x)) {
if (!$did(emp3,2,$calc(%x + 2))) {
set %naabedie " $+ $readini(mp3player.ini,Directory,%playlist) $+ $did(emp3,2,1) $+ .mp3 $+ "
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
break
}
if ($did(eMP3,2,%x) == $remove($nopath($insong.fname),.mp3)) {
set %naabedie $qt($+($readini(mp3player.ini,Directory,%playlist),$did(emp3,2,$calc(%x + 2 )),.mp3))
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
break
}
inc %x
}
}
alias mp3go { if (!$1) { //echo 4Input Required. | halt }
if ($left($1,1) != $chr(35)) { //echo 4Invalid Channel. | halt }
set %stop [ $+ [ $1 ] ] blaat
//echo 4Amsg naar $1 is van start gegaan.
}
alias mp3show { //echo 4De AMSG gaat naar:
var %x = 1
while ($var(stop*,%x)) {
echo -a 4 $+ $right($v1,-5)
inc %x }
}
alias mp3stop { if (!$1) { //echo 4Input Required. | halt }
if ($left($1,1) != $chr(35)) { //echo 4Channel is niet bruikbaar. | halt }
if (%stop [ $+ [ $1 ] ] == $null) { //echo 4The amsg wasn't going to $1 anyway. | halt }
unset %stop [ $+ [ $1 ] ]
//echo 4Amsg to $1 has been stopped.
}
alias iamsg {
timeriamsg 1 $iif(%true == on,0,15) mimsg
if (%true) unset %true
}
alias mimsg {
dani
track $remove($nopath($insong.fname),.mp3)
miamsg
unset %track
unset %artist
unset %dani_l11
}
alias miamsg {
if ($status != connected) //echo 14[12 $+ $me $+ 's Mp314] 14Artist04:07 %artist 04» 14Track04:07 %track 04» 14Length04:07 $iif($mid($duration($calc($insong.length / 1000),3),4,3) == 00:,00 $+ $right($duration($calc($insong.length / 1000),3),3),$remove($duration($calc($insong.length / 1000),3),00:)) minutes 14Rating04: 07 $+ %Dani_l11
else {
var %x = 1
while ($chan(%x)) {
if (%stop [ $+ [ $chan(%x) ] ] != $null) && ($chan(%x) ischan) { msg $chan(%x) 14[7Lorre's Ipod14] 7Artist14: %artist 04» 7Song14: %track 4» 7Lenght14: $iif($mid($duration($calc($insong.length / 1000),3),4,3) == 00:,00 $+ $right($duration($calc($insong.length / 1000),3),3),$remove($duration($calc($insong.length / 1000),3),00:)) Minutes. 7Rating14: $+ %Dani_l11 }
inc %x
}
}
}
alias dani {
set %dani $readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+))
if (%dani == 1) set %dani_l11 7¤14-¤-¤-¤-¤
if (%dani == 1.5) set %dani_l11 7¤-14¤-¤-¤-¤
if (%dani == 2) set %dani_l11 7¤-¤14-¤-¤-¤
if (%dani == 2.5) set %dani_l11 7¤-¤-14¤-¤-¤
if (%dani == 3) set %dani_l11 7¤-¤-¤14-¤-¤
if (%dani == 3.5) set %dani_l11 7¤-¤-¤-14¤-¤
if (%dani == 4) set %dani_l11 7¤-¤-¤-¤14-¤
if (%dani == 4.5) set %dani_l11 7¤-¤-¤-¤-14¤
if (%dani == 5) set %dani_l11 7¤-¤-¤-¤-¤
if (%dani == $null) set %dani_l11 14¤-¤-¤-¤-¤
}
alias track {
set %track $right($remove($nopath($insong.fname),.mp3),- $+ $calc($calc($pos($remove($nopath($insong.fname),.mp3),$chr(32) $+ - $+ $chr(32))) + 2))
if (%track == $null) set %track $1-
set %artist $left($remove($nopath($insong.fname),.mp3),$calc($pos($remove($nopath($insong.fname),.mp3),$chr(32) $+ - $+ $chr(32)) -1))
if (%artist == $null) set %artist Unknown
}
alias rating {
if ($1 == $null) //echo Rating for $remove($nopath($insong.fname),.mp3) is $readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+)) $+.
if ($1 != $null) {
set %rating $replace($readini(mp3player.ini,Directory,%playlist) $+ $1- $+ .mp3, $chr(32),+) $+ .
//echo 4Rating for $1- is $readini(mp3player.ini,rating,%rating)
}
}
on *:Dialog:eMP3:sclick:89: {
if ($readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+)) == 5) //echo -a 4Je kan geen rating geven die hoger is dan 5.
else .writeini mp3player.ini Rating $replace($remove($nopath($insong.fname),.mp3), $chr(32),+) $calc($readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+)) + 0.5 )
did -ra $dname 90 Rating: $ano
}
on *:Dialog:eMP3:sclick:91: {
if ($readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+)) == 1) //echo -a 4Je kan geen rating geven die lager is dan 1.
else .writeini mp3player.ini Rating $replace($remove($nopath($insong.fname),.mp3), $chr(32),+) $calc($readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+)) - 0.5 )
did -ra $dname 90 Rating: $ano
}
alias ano {
if ($readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+)) == $null) return 0
else {
return $readini(mp3player.ini,Rating,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+))
}
}