Untitled

Menu * {
  -
  JJR iPod!:/dialog -md eMP3 eMP3
  -
}
Dialog eMP3 {
  Title "iPod V1.2 by Edie"
  size -1 -1 170 162
  option dbu
  Tab "Luister", 1000, 0 -2 172 202
  Tab "Instellingen", 1001 
  Button "Nieuwe afspeellijst", 1, 30 15 110 14
  List 2, 50 33 110 100, vsbar
  List 200, 5 33 40 100
  Button "Play", 8, 23 133 30 10
  Button "Pauze", 10, 53 133 30 10
  Button "Stop", 9, 83 133 30 10
  Button "Afspelen", 11, 113 133 30 10
  Button "+", 50, 45 147 10 10
  Edit "ERROR", 51, 57 147 50 10, center read
  Button "-", 52, 107 147 10 10
  Link "Thnx to Dani l11", 133, 1 155 45 10
}
ON *:DIALOG:emp3:init:*:{
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4)))
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
on *:Dialog:eMP3:sclick:1: {
  did -r eMp3 2
  ..writeini mp3player.ini Directory Playlist1 $sdir(*,Selecteer je muziek bestand)
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4)))
}
ON *:DIALOG:eMP3:sclick:8:{
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,))
  if (%AmSG == on) {  /Amsg ×» (Edies MP3) «× $did(eMP3,2).seltext  }
}
ON *:DIALOG:eMP3:Sclick:9:{
  /splay stop
}
on *:dialog:eMP3:sclick:50:{
  /vol -v $calc( $vol(master) + 5000)
  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 }
  if ($did(eMP3,124).state == 1) {  vol -vu1
  }
}
on *:dialog:eMP3:sclick:52:{
  /vol -v  $calc( $vol(master) - 5000)
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
ON *:DIALOG:eMP3:sclick:*:{
  if ($did == 10) { /splay pause }
  if ($did == 11) { /splay resume }
}
on *:Dialog:emp3:dclick:2:{    if ($insong.pause) { 
    splay resume 
    halt 
  } 
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,)) 
  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 
    halt 
  } 
  if ($did(EMP3,123).state == 1) { iamsg } 
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,)) 
  if ($did(6).state == 1) { /wtfz | halt }
  inext
}