rendered paste body;jjripod
Menu * {
-
iPod!:/dialog -md eMP3 eMP3
-
}
alias F5 {
/dialog -md eMP3 eMP3
}
alias wtfzz { 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
}
if (%newsong == off) mp3test
if (%newsong == on) set %newsong off
}
Dialog eMP3 {
Title "iPod V1.4 by Edie & Dani"
size -1 -1 150 220
option dbu
Tab "Mp3", 1000, 1 1 150 220
Tab "Genre", 1001, 1 1 150 150
Button "Afspeellijst 1", 1, 20 52 55 14, tab 1000
Button "Afspeellijst 2", 22, 75 52 55 14, tab 1000
Check "Set", 23, 1 53 19 10 , tab 1000
Edit "Rating:", 90, 50 68 50 10, center read, tab 1000
Button "+", 89, 38 68 10 10, tab 1000
Button "-", 91, 102 68 10 10, tab 1000
List 2, 20 79 110 100, vsbar, tab 1000
Button "Play", 8, 13 174 30 10 , tab 1000
Button "Pauze", 10, 43 174 30 10, tab 1000
Button "Stop", 9, 103 174 30 10, tab 1000
Button "+", 50, 35 188 10 10, tab 1000
Edit "1", 51, 47 188 50 10, center read, tab 1000
Button "-", 52, 100 188 10 10, tab 1000
Button "Msg", 92, 102 199 20 10, tab 1000
Button "+", 100, 122 199 10 10, tab 1000
Button "-", 101, 132 199 10 10, tab 1000
Check "Amsg", 123, 45 199 23 10, tab 1000
Check "Mute", 124, 75 199 23 10, tab 1000
button "Skip", 3, 73 174 30 10 , center, tab 1000
check "Shuffle", 6, 3 188 25 10, tab 1000
button "Set As Next Song", 165, 40 209 62 10, center, tab 1000
check "Herhaal", 7, 115 188 27 10, tab 1000
text "Next Song:", 992, 20 33 110 10, center, tab 1000
text "Now Playing:", 754, 20 15 110 9, center, tab 1000
edit "", 97, 20 22 119 10, center read, tab 1000
edit "", 999, 20 40 119 10, center read, tab 1000
edit "", 54, 1 199 40 10, center disable, tab 1000
edit "", 93, 1 209 40 10, center disable, tab 1000
button "New Next Song", 166, 102 209 52 10, tab 1000
button "Genre to add", 500, 3 17 73 10, tab 1001
button "Genre to delete", 501, 76 17 74 10, tab 1001
Text "Bestaande Genres:", 502, 3 29 75 10, tab 1001
list 503, 2 36 40 50, tab 1001
Button "Afspeellijst1", 504, 76 28 37 10, tab 1001
Button "Afspeellijst2", 505, 113 28 37 10, tab 1001
List 506, 50 40 100 110 100, vsbar, tab 1001
Button "Set Genre", 507, 2 79 40 10, tab 1001
edit "Genre", 508, 2 91 40 10, read, tab 1001
}
on *:dialog:emp3:sclick:506:{
did -ra $dname 508 $readini(mp3player.ini,genre,$replace($did(emp3,506).seltext,$chr(32),-))
}
on *:dialog:emp3:sclick:507:{
writeini mp3player.ini Genre $replace($did(emp3,506).seltext,$chr(32),-) $did(emp3,503).seltext
did -ra $dname 508 $readini(mp3player.ini,genre,$replace($did(emp3,506).seltext,$chr(32),-))
}
on *:Dialog:eMP3:sclick:500: {
set %newgenre $$?="Naam voor nieuwe Genre?"
$iif($readini(mp3genre.ini,Genre,%newgenre) == $null,writeini mp3genre.ini Genre %newgenre %newgenre,//notice $me 4Het genre %newgenre bestaat al.)
genre
unset %newgenre
}
on *:Dialog:eMP3:sclick:501: {
set %delgenre $$?="Welk Genre wil je deleten?"
$iif($readini(mp3genre.ini,Genre,%delgenre) == $null,//echo Het genre %delgenre bestaat niet,$iif($$?!="Weet je het zeker?" == $true,remini mp3genre.ini genre %delgenre,halt))
genre
unset %delgenre
}
alias genre {
did -r $dname 503
var %w = 1
While ($read(mp3genre.ini, %w)) { if (%w > 1) did -a $dname 503 $left($read(mp3genre.ini, %w),$int($calc($len($read(mp3genre.ini, %w)) / 2)))
Inc %w
}
}
on *:Dialog:eMP3:sclick:505: {
did -r $dname 506
noop $findfile($readini(mp3player.ini,directory,Playlist2),*.mp3,0,did -a eMP3 506 $nopath($left($1-,-4)))
}
on *:Dialog:eMP3:sclick:504: {
did -r $dname 506
noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 506 $nopath($left($1-,-4)))
}
on *:Dialog:eMP3:sclick:100: {
set %seek $round($calc($calc($insong.length / 10 ) + $insong.pos),0)
splay -p seek %seek
}
on *:Dialog:eMP3:sclick:101: {
set %sek $round($calc($insong.pos - $calc($insong.length / 10 )),0)
splay -p seek %sek
}
on *:Dialog:eMP3:sclick:92: {
set %miamsg 0
/iamsg
timermiamsg 1 0 set %miamsg 15
}
on *:Dialog:eMP3:sclick:1: {
set %playlist playlist1
if ($did(23).state == 1 ) {
did -r eMp3 2
.writeini mp3player.ini Directory Playlist1 $sdir(*,Selecteer je muziek bestand)
set %naamlijst1 $$?="Naam voor de 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(*,Selecteer je muziek bestand)
set %naamlijst2 $$?="Naam voor de 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:*:{
genre
noop $findfile($readini(mp3player.ini,directory,%playlist),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4)))
noop $findfile($readini(mp3player.ini,directory,%playlist),*.mp3,0,did -a eMP3 506 $nopath($left($1-,-4)))
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
did -ra $dname 1 %naamlijst1
did -ra $dname 22 %naamlijst2
did -ra $dname 504 %naamlijst1
did -ra $dname 505 %naamlijst2
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) {
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
did -ra $dname 999 $remove($nopath(%naabedie),.mp3) }
did -ra $dname 90 Rating: $readini(mp3player.ini,Rating,$replace($insong.fname,$chr(32),-))
did -ra $dname 93 Tp: $hugo
}
on *:dialog:emp3:sclick:166:{
set %newsong on
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
}
timermp3 $calc($round($insong.length,0) / 1000)) 1 /mp3timer
}
on *:dialog:emp3:close:0:{
increase
$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
}
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:{
timeriamsg off
did -ra $dname 90 Rating: $ano
did -ra $dname 93 Tp: $hugo
increase
if ($did(emp3,7).state) { splay %naabedie
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
if ($did(123).state == 1) { iamsg }
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
did -ra $dname 90 Rating: $readini(mp3player.ini,Rating,$replace($insong.fname,$chr(32),-))
halt }
splay -p %naabedie
did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
did -ra $dname 90 Rating: $ano
did -ra $dname 93 Tp: $hugo
if ($did(123).state == 1) { iamsg }
if ($did(6).state == 1) { /wtfz
}
if ($did(6).state == 0) { /inext
}
}
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:{
increase
splay -p %naabedie
if ($did(emp3,123).state == 1) { iamsg }
did -ra emp3 97 $remove($nopath($insong.fname),.mp3)
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
did -ra emp3 90 Rating: $ano
did -ra emp3 93 Tp: $hugo
if ($did(emp3,7).state == 1) set %naabedie $insong.fname
$iif($did(emp3,6).state == 1,wtfz,inext)
}
on *:Dialog:emp3:dclick:2:{
increase
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,))
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 $dname 93 Tp: $hugo
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
if ($did(EMP3,123).state == 1) { /iamsg }
if ($did(6).state == 1) { /wtfz | halt }
inext
}
}
ON *:DIALOG:eMP3:sclick:8:{
if ($insong.pause) { splay resume
set %pause $left($did(54),5)
/mp3test | halt }
if ($did(7).state) {
did -ra $dname 90 Rating: $ano
did -ra $dname 93 Tp: $hugo
increase
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 }
if ($did(6).state == 1) { /wtfz | halt }
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))
timermp3 off
/splay pause
}
alias wtfz {
timer5 1 0 stopini
wtfzz
}
alias inext {
timer5 1 0 stopini
ianext
}
alias stopini {
if ($readini(mp3player.ini,Stop,$replace($remove($nopath($noqt(%naabedie)),.mp3),$chr(32),-)) > 0) {
writeini mp3player.ini Stop $replace($remove($nopath($noqt(%naabedie)),.mp3),$chr(32),-)) $calc($readini(mp3player.ini,stop,$replace($remove($nopath($noqt(%naabedie)),.mp3),$chr(32),-)) - 1)
if ($did(emp3,6).state == 1) wtfz
if ($did(emp3,6).state == 0) minext
}
}
alias inext {
timer5 1 0 stopini
ianext
}
alias minext {
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)
if (%newsong == off) mp3test
if (%newsong == on) set %newsong off
halt
}
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)
if (%newsong == off) mp3test
if (%newsong == on) set %newsong off
halt
}
inc %x
}
}
alias ianext {
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,1) $+ .mp3 $+ "
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
if (%newsong == off) mp3test
if (%newsong == on) set %newsong off
halt
}
if ($did(eMP3,2,%x) == $remove($nopath($insong.fname),.mp3)) {
set %naabedie $qt($+($readini(mp3player.ini,Directory,%playlist),$did(emp3,2,$calc(%x + 1 )),.mp3))
did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
if (%newsong == off) mp3test
if (%newsong == on) set %newsong off
halt
}
inc %x
}
}
alias mp3go { if ($1 == $null) { //echo 4Vul een channel in. | halt }
if ($left($1,1) != $chr(35)) { //echo 4Ongeldige channel. | halt }
set %stop [ $+ [ $1 ] ] blaat
//echo 4Er gaat nu een amsg naar $1 $+ .
}
alias mp3show { //echo 4De channels waar een amsg naar toe gaat:
var %x = 1
while ($var(stop*,%x)) {
echo -a 4 $+ $right($v1,-5)
inc %x }
}
alias mp3stop { if ($1 == $null) { //echo 4Vul een channel in. | halt }
if ($left($1,1) != $chr(35)) { //echo 4Ongeldige channel. | halt }
if (%stop [ $+ [ $1 ] ] == $null) { //echo 4Er ging al geen amsg naar $1 $+ . | halt }
unset %stop [ $+ [ $1 ] ]
//echo 4Er gaat nu geen Amsg meer naar $1 $+ .
}
alias iamsg {
unset %track
unset %artist
unset %dani_l11
unset %edie
edie
dani
track $remove($nopath($insong.fname),.mp3)
artist $remove($nopath($insong.fname),.mp3)
timeriamsg 1 %miamsg miamsg
}
alias miamsg {
var %x = 1
while ($chan(%x)) {
if (%stop [ $+ [ $chan(%x) ] ] != $null) && ($chan(%x) ischan) { msg $chan(%x) 14[12Ano'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 14Times Played04: 07 $+ %edie 14Rating04: 07 $+ %Dani_l11 $gen }
inc %x
}
}
alias edie {
set %edie $readini(mp3player.ini,Times_Played,$replace($remove($nopath($insong.fname),.mp3),$chr(32),-))
if ($readini(mp3player.ini,Times_Played,$replace($remove($nopath($insong.fname),.mp3),$chr(32),-)) == $null) set %edie 0
}
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 artist {
if ($7 == -) set %artist $1 $2 $3 $4 $5 $6
if ($6 == -) set %artist $1 $2 $3 $4 $5
if ($5 == -) set %artist $1 $2 $3 $4
if ($4 == -) set %artist $1 $2 $3
if ($3 == -) set %artist $1 $2
if ($2 == -) set %artist $1
if (%artist == $null) set %artist Unknown
}
alias track {
if ($7 == -) set %track $8-
if ($6 == -) set %track $7-
if ($5 == -) set %track $6-
if ($4 == -) set %track $5-
if ($3 == -) set %track $4-
if ($2 == -) set %track $3-
if (%track == $null) set %track $1-
}
alias gen {
set %gen $readini(mp3player.ini,genre,$replace($remove($nopath($insong.fname),.mp3),$chr(32),-))
$iif(%gen == $null,return $null,return 14Genre04:7 %gen)
}
alias rate {
if ($1 isnum) {
if ($1 > 5) { //echo 4Je kan geen rating geven die hoger is dan 5. | halt }
if ($1 < 1) { //echo 4Je kan geen rating geven die lager is dan 1. | halt }
else {
.writeini mp3player.ini Rating $replace($remove($nopath($insong.fname),.mp3),$chr(32),-) $1
//echo 4Rating voor $remove($nopath($insong.fname),.mp3) verandert in $1 $+ .
}
}
else {
if ( $right($1-,2) == .5 ) { set %ano 3
}
else set %ano 1
set %len $len($1-)
set %leng $calc(%len - %ano )
set %lengt $left($1-,%leng)
.writeini mp3player.ini Rating $replace(%lengt,$chr(32),-) $right($1-,%ano)
//echo 4Rating voor %lengt verandert in $right($1-,1) $+ .
}
}
alias increase {
if ($insong.pos > 25000) {
set %edie $readini(mp3player.ini,Times_Played,$replace($remove($nopath($insong.fname),.mp3),$chr(32),-))
.writeini mp3player.ini Times_Played $replace($remove($nopath($insong.fname),.mp3),$chr(32),-) $calc( %edie + 1 )
}
else {
}
}
alias rating {
if ($1 == $null) //echo Rating voor $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 voor $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) notice $me 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) notice $me 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),-))
}
alias afgespeeld {
if ($1 == $null) //echo Het nummer $remove($nopath($insong.fname),.mp3) is $readini(mp3player.ini,Times_Played,$replace($remove($nopath($remove($nopath($insong.fname),.mp3)),.mp3),$chr(32),-)) $+ x afgespeeld.
if ($1 != $null) {
set %afgespeeld $replace($readini(mp3player.ini,Directory,%playlist) $+ $1- $+ .mp3,$chr(32),-)
//echo Het nummer $1- is $readini(mp3player.ini,Times_Played,%afgespeeld) $+ x afgespeeld.
}
}
alias hugo {
if ($readini(mp3player.ini,Times_Played,$replace($remove($nopath($insong.fname),.mp3),$chr(32),-)) == $null) { return 0 }
else return $readini(mp3player.ini,Times_Played,$replace($remove($nopath($insong.fname),.mp3),$chr(32),-))
}
alias stop {
if ($len($1-) > 5 ) {
if ($right($1-,1) isnum) set %stop 2
elseif ($right($1-,2) isnum) set %stop 1
set %ha $len($1-)
set %hal $calc(%ha - %stop )
set %halt $left($1-,%hal)
.writeini mp3player.ini Stop $replace(%halt,$chr(32),-) $right($1-,%stop)
//echo 4Het nummer %halt krijg je de komende $right($1-,%stop) $+ x niet meer te horen.
}
if ($len($1-) < 5 ) {
.writeini mp3player.ini Stop $replace($remove($nopath($insong.fname),.mp3),$chr(32),-) $1
//echo 4Het nummer $remove($nopath($insong.fname),.mp3) krijg je de komende $1 $+ x niet meer te horen.
}
}
alias stopleft {
if ($1 == $null) //echo 4Vul een nummer in
if ($1 != $null) {
if ($readini(mp3player.ini,Stop,$replace($1-,$chr(32),-)) == $null) //echo 4Er staat geen halt op dit nummer { halt }
else {
//echo 4Op het nummer $1- staat nog $readini(mp3player.ini,Stop,$replace($1-,$chr(32)) $+ x een halt.
}
}
}