;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 209
  option dbu 
  Button "Afspeellijst 1", 1, 20 42 55 14 
  Button "Afspeellijst 2", 22, 75 42 55 14
  Check "Set", 23, 1 43 19 10 
  Edit "Rating:", 90, 50 58 50 10, center read
  Button "+", 89, 38 58 10 10
  Button "-", 91, 102 58 10 10
  List 2, 20 69 110 100, vsbar 
  Button "Play", 8, 13 164 30 10 
  Button "Pauze", 10, 43 164 30 10
  Button "Stop", 9, 103 164 30 10 
  Button "+", 50, 35 178 10 10 
  Edit "1", 51, 47 178 50 10, center read 
  Button "-", 52, 100 178 10 10 
  Button "Msg", 92, 102 189 20 10 
  Button "+", 100, 122 189 10 10
  Button "-", 101, 132 189 10 10
  Check "Amsg", 123, 45 189 23 10 
  Check "Mute", 124, 75 189 23 10 
  button "Skip", 3, 73 164 30 10 , center
  check "Shuffle", 6, 3 178 25 10
  button "Set As Next Song", 165, 40 199 62 10, center
  check "Herhaal", 7, 115 178 27 10
  text "Next Song:", 992, 20 23 110 10, center
  text "Now Playing:", 754, 20 3 110 9, center
  edit "", 97, 20 10 119 10, center read
  edit "", 999, 20 30 119 10, center read
  edit "", 54, 1 189 40 10, center disable
  edit "", 93, 1 199 40 10, center disable
  button "New Next Song", 166, 102 199 52 10
}
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
  timer 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:*:{
  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)) $+ % 
  did -ra $dname 1 %naamlijst1 
  did -ra $dname 22 %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:{ 
  /splay -p pause
  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
}

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:{ 
  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 
  if ($did(emp3,6).state == 1) { /wtfz
  else 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
  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 } 
} 
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)
  timer 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 }
    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 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.
    }
  }
}