;jjripod
Menu * { 
  - 
  iPod!:/dialog -md eMP3 eMP3 
  - 
} 
alias F5 {
  /dialog -md eMP3 eMP3
}
alias wtfz { 
  :wtf
  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 ($did(emp3,760).state == 1) {
    if (%shufflenum [ $+ [ $replace($remove($nopath(%naabedie),.mp3),$chr(32),|) ] ] == true) {
      echo #jumpstyle yihaa 
      goto wtf
    }
  }
  if ($readini(mp3stop.ini,Stop,$replace($remove($nopath($noqt(%naabedie)),.mp3),$chr(32),+)) > 0) goto wtf
  if (%newsong == off) mp3test
  if (%newsong == on) set %newsong off
}
alias i {
  return -il $+ $r(1,$lines(shuffle.txt))
}
Dialog eMP3 { 
  Title "iPod V1.4 by Edie & Dani" 
  size -1 -1 150 220
  option dbu 
  Tab "Mp3", 1000, 1 1 150 220
  Tab "Gen/St", 1001, 1 1 150 220
  Tab "Rec", 1002, 1 150 220
  Check "Random", 760, 3 120 40 10, tab 1001
  Button "Afspeellijst 1", 1, 20 52 55 14, tab 1000
  Button "Afspeellijst 2", 22, 75 52 55 14, tab 1000
  Check "Set", 23, 3 53 17 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
  button "Add Halt", 600, 3 148 73 10, tab 1001
  button "Delete Halt", 601, 76 148 74 10, tab 1001
  Text "Nummers waar een halt op staat:", 602, 3 160 100 10, tab 1001
  list 603, 2 167 100 50, tab 1001
  Button "Genrelijst", 604, 2 103 40 10, tab 1001
  List 700, 2 17 110 100, vsbar, tab 1002
  Button "Afspeellijst 1", 701, 113 17 36 47, tab 1002
  Button "Afspeellijst 2", 702, 113 64 36 47, tab 1002
  Button "Start Recording", 703, 3 112 55 10, tab 1002
  Button "Stop Recording", 704, 58 112 55 10, tab 1002
  Edit "Not Recording", 705, 30 123 45 10, read disable, tab 1002
  Button "Zet Fragmenten in afspeellijst", 706, 3 145 73 10, tab 1002
  List 707, 2 156 110 50, tab 1002
  Button "Delete Opname", 708, 76 145 73 10, tab 1002
  Edit "", 709, 3 134 146 10, tab 1002
  Button "Change", 710, 113 124 36 10, tab 1002
}
on *:Dialog:emp3:dclick:700:{ 
  did -r $dname 709
  did -a $dname 709 $did(emp3,700).seltext
}
on *:Dialog:emp3:sclick:710:{ 
  set %verander1 $did(emp3,700).seltext
  set %verander2 $did(emp3,709)
  if ($readini(mp3player.ini,directory,%playlist) $+ %verander1 $+ .mp3 == $null) //echo -a Dit bestand bestaat niet. Zorg dat hij op de goede afspeellijst staat ingesteld. {
    elseif ($$?!="Weet je het echt zeker dat je het bestand $readini(mp3player.ini,directory,%playlist) $+ %verander1 $+ .mp3 wil veranderen in $readini(mp3player.ini,directory,%playlist) $+ %verander2 $+ .mp3 $+ ?" == $true) rename $qt($readini(mp3player.ini,directory,%playlist) $+ %verander1 $+ .mp3) $qt($readini(mp3player.ini,directory,%playlist) $+ %verander2 $+ .mp3)
  }
}
on *:dialog:emp3:sclick:706:{
  fragx
  set %Dinges on
}
alias Splayfragment { 
  var %j = 2
  while ($read(mp3rec.ini, %j)) {
    set %frag $read(mp3rec.ini, %j)
    tijd
    if ($replace($left($frag,$calc($len($frag) - 1)),+,$chr(32)) == $remove($nopath($insong.fname),.mp3)) {
      splay -p seek %lefttijd
      break
    }
    inc %j
  }
}
on *:dialog:emp3:sclick:708:{
  if ($$?!="Weet je het zeker" == $true) write -d mp3rec.ini $calc(did(emp3,707).sel + 2)
  fragmenten
}
alias fragX {
  did -r emp3 2
  var %j = 2
  while ($read(mp3rec.ini, %j)) {
    set %frag $read(mp3rec.ini, %j)
    tijd
    if (%j > 2) did -a emp3 2 $replace($left($frag,$calc($len($frag) - 1 )),+,$chr(32))
    inc %j
  }
}
alias fragmenten {
  did -r emp3 707
  var %j = 2
  while ($read(mp3rec.ini, %j)) {
    set %frag $read(mp3rec.ini, %j)
    tijd
    if (%j > 2) did -a emp3 707 $replace($left($frag,$calc($len($frag) - 1 )),+,$chr(32)) $iif($mid($duration(%lefttijd2,3),4,3) == 00:,00 $+ $right($duration(%lefttijd2,3),3),$remove($duration(%lefttijd2,3),00:)) $+ / $+ $iif($mid($duration(%righttijd2,3),4,3) == 00:,00 $+ $right($duration(%righttijd2,3),3),$remove($duration(%righttijd2,3),00:))
    inc %j
  }
} 
alias tijd {
  var %m = 1
  while ($right($left($remove(%frag,$frag), %m),1)) { if ($right($left($remove(%frag,$frag), %m),1) = $chr(38)) {
      set %tijd %m
      set %lefttijd $left($remove(%frag,$frag), $calc(%tijd - 1 ))
      set %righttijd $right($remove(%frag,$frag),$calc($len($remove(%frag,$frag)) - %tijd))
      set %lefttijd2 $round($calc((%lefttijd / 1000) - $calc(($left(%pause,2) * 60) + $right(%pause,2))),0)
      set %righttijd2 $round($calc((%righttijd / 1000) - $calc(($left(%pause,2) * 60) + $right(%pause,2))),0)
      break
    }
    inc %m
  }
}
alias frag {
  var %z = 1
  while ($left(%frag, %z)) { if ($right($left(%frag, %z), 1) == $chr(61)) { 
      return $left(%frag, %z)
      break
    }
    inc %z
  }
}
on *:dialog:emp3:sclick:706:{
  did -r inc$dname 2
  var %u == 2
  while ($read(mp3rec.ini, %u)) { if (%u < 10) did -a $dname 2 test $+ $read(mp3rec.ini, %u)
    inc %u
  }
}
on *:dialog:emp3:sclick:703:{
  if (%rec > 0) //echo -a Je bent al aan het opnemen.
  else {
    set %rec1 $insong.pos
    timerrec -m 0 500 rec
    did -ra $dname 705 Not Recording
  }
}
on *:dialog:emp3:sclick:704:{
  if (%rec > 0) {
    timerrec off
    unset %rec
    set %rec2 $insong.pos
    if ($$?!="Wil je deze opname opslaan?" == $true) writeini mp3rec.ini Opnames $replace($remove($nopath($insong.fname),.mp3),$chr(32),+) %rec1 $+ & $+ %rec2
  }
  else //echo -a 4Er is al niets aan het opnemen
}
alias rec {
  did -r emp3 705
  if (%rec < 4) {
    if (%rec == 1) {
      did -a emp3 705 Recording.
    }
    if (%rec == 2) {
      did -a emp3 705 Recording..
    }
    if (%rec == 3) {
      did -a emp3 705 Recording...
    }
    inc %rec
  }
  else {
    did -a emp3 705 Recording
    set %rec 1
  }
}
on *:dialog:emp3:sclick:604:{
  if ($$?!="Zet de genrelijst in de afspeellijst om af te spelen?" == $true) genrelist 2
  if ($$?!="Zet de genrelijst in lijst bij genres om te bekijken?" == $true) genrelist 506
}
on *:dialog:emp3:sclick:601:{
  if ($readini(mp3stop.ini,stop,$replace($did(emp3,603).seltext,$chr(32),+)) == $null) //echo -a 4Er staat geen halt op dat nummer.
  elseif ($$?!="Weet je het zeker?" == $true) {
    remini mp3stop.ini stop $replace($did(emp3,603).seltext,$chr(32),+)
    stoplist
  }
}
alias genrelist {
  set %genrelen $len($did(emp3,503).seltext)
  did -r $dname $1
  var %g = 2
  while ($read(genre.ini, %g)) { if ($right($read(genre.ini, %g),%genrelen) == $did(emp3,503).seltext)  did -a emp3 $1 $remove($replace($remove($read(genre.ini, %g),=),+,$chr(32)),$did(emp3,503).seltext)
    inc %g
  }
  unset %genrelen
}
on *:dialog:emp3:sclick:600:{
  if ($$?!="Weet je het zeker?" == $true) {
    writeini mp3stop.ini stop $replace($did(emp3,506).seltext,$chr(32),+) 10
    stoplist
  }
}
on *:dialog:emp3:sclick:506:{
  did -ra $dname 508 $readini(genre.ini,genre,$replace($did(emp3,506).seltext, $chr(32),+))
} 
on *:dialog:emp3:sclick:507:{ 
  writeini genre.ini genre $replace($did(emp3,506).seltext,$chr(32),+) $did(emp3,503).seltext
  did -ra $dname 508 $readini(genre.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,//echo -a 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 stoplist {
  did -r emp3 603
  var %v = 1
  While ($read(mp3stop.ini, %v)) { if (%v > 1) did -a emp3 603 $replace($left($read(mp3stop.ini, %v),$calc($len($read(mp3stop.ini, %v)) - 3 )),+,$chr(32))
    Inc %v
  }
}
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
  set %Dinges off
  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
  set %Dinges off
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 506 $nopath($left($1-,-4))) 
}
on *:Dialog:eMP3:sclick:701: {
  set %playlist 1
  did -r $dname 700 
  set %Dinges off
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 700 $nopath($left($1-,-4)))  
}
on *:Dialog:eMP3:sclick:702: {
  set %playlist 2
  did -r $dname 700
  set %Dinges off
  noop $findfile($readini(mp3player.ini,directory,Playlist2),*.mp3,0,did -a eMP3 700 $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
  set %Dinges off
  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 
    did -ra $dname 504 %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 
  set %Dinges off
  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 
    did -ra $dname 505 %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
    set %Dinges off
    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
  did -ra $dname 504 %naamlijst1 
  did -ra $dname 505 %naamlijst2
  did -ra $dname 701 %naamlijst1 
  did -ra $dname 702 %naamlijst2
  fragmenten
  genre
  stoplist
  set %Dinges off
  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 700 $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)) $+ % 
  if (%herhaal == on) did -c $dname 7
  if (%shuffle == on) did -c $dname 6
  if (%cshuffle == on) did -c $dname 760
  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: $readini(mp3player.ini,Rating,$replace($insong.fname, $chr(32),+)) 
  did -ra $dname 93 Tp: $hugo
  did -ra $dname 54 00:00/00:00
}
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 recoptie {
  if (%dinges == on) {
    if ($insong.pos >= %righttijd) skip
  }
}
alias mp3timer {
  recoptie
  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:sclick:1000:{
  did -ra $dname 1001 Ge/St
  did -ra $dname 1002 Rec
}
on *:dialog:emp3:sclick:1001:{
  did -ra $dname 1001 Genre/Stop
  did -ra $dname 1002 Rec
}
on *:dialog:emp3:sclick:1002:{
  did -ra $dname 1001 Ge/St
  did -ra $dname 1002 Recording
}
on *:dialog:emp3:close:0:{ 
  increase
  timerrec off
  $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)
  $iif($did(emp3,760).state == 1, set %cshuffle on, set %cshuffle 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:{ 
  skip
}
alias skip {
  timeriamsg off
  increase
  splay -p %naabedie 
  if ($did(emp3,760).state == 1) {
    set %shufflenum [ $+ [ $replace($remove($nopath($insong.fname),.mp3),$chr(32),|) ] ] true
  }
  if (%dinges == on) splayfragment
  did -ra emp3 999 $remove($nopath(%naabedie),.mp3)
  did -ra emp3 97 $remove($nopath($insong.fname),.mp3)
  did -ra emp3 90 Rating: $ano
  did -ra emp3 93 Tp: $hugo
  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:{
  increase
  splay -p %naabedie
  if ($did(emp3,760).state == 1) {
    set %shufflenum [ $+ [ $replace($remove($nopath($insong.fname),.mp3),$chr(32),|) ] ] true
  }
  if (%dinges == on) splayfragment
  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,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
  mp3test
}
on *:Dialog:emp3:dclick:2: { 
  if (%dinges == on) splayfragment
  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,)) 
    if ($did(emp3,760).state == 1) {
      set %shufflenum [ $+ [ $replace($remove($nopath($insong.fname),.mp3),$chr(32),|) ] ]
    }
    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,)) 
    if ($did(emp3,760).state == 1) {
      set %shufflenum [ $+ [ $replace($remove($nopath($insong.fname),.mp3),$chr(32),|) ] ]
    }  
    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 } 
    $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
    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,)) 
    if ($did(emp3,760).state == 1) {
      set %shufflenum [ $+ [ $replace($remove($nopath($insong.fname),.mp3),$chr(32),|) ] ]
    }    
    if (%dinges == on) splayfragment
    did -ra $dname 97 $remove($nopath($insong.fname),.mp3)
  halt }
  splay -p $qt($findfile($readini(mp3player.ini,Directory,%playlist),$+(*,$did(2).seltext,.mp3),1,))
  if ($did(emp3,760).state == 1) {
    set %shufflenum [ $+ [ $replace($remove($nopath($insong.fname),.mp3),$chr(32),|) ] ]
  }  
  if (%dinges == on) splayfragment 
  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)  
      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 { 
  :next
  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
      break
    }
    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
      break
    } 
    inc %x
  }
  if ($readini(mp3stop.ini,Stop,$replace($remove($nopath($noqt(%naabedie)),.mp3),$chr(32),+)) > 0) goto next
}
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 halt op staat:
  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 {
  timeriamsg 1 %miamsg mimsg
}
alias mimsg {
  unset %track
  unset %artist
  unset %dani_l11
  unset %edie
  edie
  dani
  track $remove($nopath($insong.fname),.mp3)
  artist $remove($nopath($insong.fname),.mp3)
  miamsg
}
alias miamsg {
  if ($status != connected) //echo 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(1) $+ $gen(2)
  else {
    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  04» 14Times Played04: 07 $+ %edie  04» 14Rating04: 07 $+ %Dani_l11  $+ $gen(1) $+ $gen(2) }
      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 {
  set %artist $left($remove($nopath($insong.fname),.mp3),$calc($pos($remove($nopath($insong.fname),.mp3),-) - 1))
  if (%artist == $null) set %artist Unknown
}
alias track {
  set %track $right($remove($nopath($insong.fname),.mp3),- $+ $calc($pos($remove($nopath($insong.fname),.mp3),-)))
  if (%track == $null) set %track $1-
}
alias gen {
  if ($1 == 1) {
    set %gen $readini(genre.ini,genre,$replace($remove($nopath($insong.fname),.mp3), $chr(32),+))
    $iif(%gen == $null,return $null,return  04» 14Genre04:7 %gen $+ )
  }
  if ($1 == 2) {
    if ($sound($insong.fname).album) return 04» 14Album04:7 $sound($insong.fname).album
  }
}
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) //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),+))
  }
}
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),+))
}