-=-=------=-=<×>0mega v2.0 by p1mpb0y y2k ©-=------=<×>
      -=º<×>-=º<×>[0mega]v2.0 by p1mpb0y-=º<×>-=º<×>
  -=º<×>-(!)-(!)-version layout beta1 simplicity-(!)-(!)-=º<×>
-=-=------=-=<×>0mega v2.0 by p1mpb0y y2k ©-=------=<×>

-=-=------=-=<×>mp3 player v2.0 by p1mpb0y y2k ©-=------=<×>

alias _n1 return 9;14(15
alias _n2 return 9;14)15
alias mp3.tune {
  %mp3.size = $round($calc($lof(%mp3.tune2)/1000000),2) $+ mb
  %mp3.time = $duration($calc($lof(%mp3.tune2)/16000))
  did -a mp3.tune 120 kind: selected.
  ame $_n1 mp3.play $_n2 $_n1 14t3u9n10e:20 %mp3.tune $_n2 $_n1 kind: %mp3.size $_n2 $_n1 14t3i9m10e:20 %mp3.time $_n2 $_n1 14k3i9n10d:20 selected %ver
}
alias mp3.silent {
  %mp3.size = $round($calc($lof(%mp3.tune2)/1000000),2) $+ mb
  %mp3.time = $duration($calc($lof(%mp3.tune2)/16000))
  did -r mp3.tune 120
  did -a mp3.tune 120 kind: silent.
  echo -a $_n1 mp3.play $_n2 $_n1 14t3u9n10e: %mp3.tune $_n2 $_n1 14s3i10z9e: %mp3.size $_n2 $_n1 14t3i9m10e:20 %mp3.time $_n2 $_n1 14k3i9n10d:20 silent $_n2 %ver
}

on 1:dialog:mp3.tune:sclick:5:{
  set %mp3.hehe $did(5,$did(5).sel).text
  scanemp3s
}
dialog mp3.tune {
  title "(mp3.player by p1mpb0y)"
  size 200 200 440 180
  list 5,7 20 240 110,sort
  box "tune" , 6 , 0 0 250 175
  box "information" , 8 , 255 0 175 175
  button "2",85, 910 125 50 17,default
  button "directory",825, 10 125 50 17,default
  button "silent",827, 10 150 50 17,default
  button "random",828, 70 150 50 17,default
  button "play",855, 70 125 50 17,default
  button "replay",857, 130 125 50 17,default
  edit   "",123,270 30 150 19,autohs,read
  edit   "",122,270 60 150 19,autohs,read
  edit   "",121,270 90 150 19,autohs,read
  edit   "",120,270 120 150 19,autohs,read
  edit   "",118,130 150 110 19,autohs,read
  edit   "(mp3.play by p1mpb0y)",119,270 150 150 19,autohs,read
  button "list",859, 190 125 50 17,default
  button "default",815, 900 125 60 17,ok
}
on 1:dialog:mp3.tune:sclick:828:{
  set %mp3.num $findfile(%mp3.dir,*.mp3,0)
  mp3.rand
}
alias replay {
  run %mp3.tune2
  did -r mp3.tune 120
  did -a mp3.tune 120 kind: replay.
  ame $_n1 mp3.play $_n2 $_n1 tune:20 %mp3.tune $_n2 $_n1 kind: %mp3.size $_n2 $_n1 14t3i9m10e:20 %mp3.time $_n2 $_n1 14k3i9n10d:20 replay $_n2 %ver
}
on 1:dialog:mp3.tune:sclick:857:{
  replay
}
alias mp3.rand {
  set %mp3.rand $rand(1,%mp3.num)
  set %mp3.tune2 %mp3.dir $+ $findfile(%mp3.dir,*.mp3,%mp3.rand)
  set %mp3.tune $findfile(%mp3.dir,*.mp3,%mp3.rand)
  run %mp3.tune
  did -r mp3.tune 120
  did -a mp3.tune 120 kind: random.
  %mp3.size = $round($calc($lof(%mp3.tune)/1000000),2) $+ mb
  %mp3.time = $duration($calc($lof(%mp3.tune)/16000))
  ame $_n1 mp3.play $_n2 $_n1 tune:20 $remove(%mp3.tune,%mp3.dir,.mp3) $_n2 $_n1 14s3i10z9e: %mp3.size $_n2 $_n1 14t3i9m10e:20 %mp3.time $_n2 $_n1 14k3i9n10d:20 random $_n2 %ver
  did -r mp3.tune 123
  did -r mp3.tune 122
  did -r mp3.tune 121
  did -a mp3.tune 123 $remove(%mp3.tune,%mp3.dir,.mp3) 
  did -a mp3.tune 122 %mp3.size
  did -a mp3.tune 121 %mp3.time
  set %mp3.tune2 %mp3.tune
}

on 1:dialog:mp3.tune:sclick:855:{
  set %mp3.tune2 %mp3.dir $+ $did(5,$did(5).sel).text
  set %mp3.tune $remove($did(5,$did(5).sel).text,%mp3.dir)
  run %mp3.tune2
  mp3.tune
}
on 1:dialog:mp3.tune:sclick:859:{
  fmp3
}
on 1:dialog:mp3.tune:sclick:827:{
  set %mp3.tune2 %mp3.dir $+ $did(5,$did(5).sel).text
  set %mp3.tune $remove($did(5,$did(5).sel).text,%mp3.dir)
  run %mp3.tune2
  mp3.silent
}
on 1:dialog:mp3.tune:init:0:{
  if (%mp3.dir == $null) {
    did -b mp3.tune 855
    did -b mp3.tune 859
    did -b mp3.tune 857
    did -b mp3.tune 827
    did -b mp3.tune 828
  }
  else {
    did -a mp3.tune 118 %mp3.dir
    fmp3
  }
}
on 1:dialog:mp3.tune:sclick:825:{
  dialog -x mp3.tune
  .timer 1 0 mp3do
}
alias mp3do {
  set %mp3.dir $sdir="where your mp3s mang"
  dialog -m mp3.tune mp3.tune
}
alias fmp3 {
  did -r mp3.tune 5  
  set %mp3.num $findfile(%mp3.dir,*.mp3,0)
  goto begin
  :begin
  if (%mp3.num == $null) echo -a sorry, you have no mp3's in your directory.
  else {
    inc %mp3.begin
    did -a mp3.tune 5 $remove($findfile(%mp3.dir,*.mp3,%mp3.begin),%mp3.dir)
    if (%mp3.begin == %mp3.num) {
      unset %mp3.begin 
      halt
    }
    else goto begin
  }
}
alias scanemp3s {
  did -r mp3.tune 123
  did -r mp3.tune 122
  did -r mp3.tune 121
  set %mp3.hehe %mp3.dir $+ %mp3.hehe
  %mp3.size = $round($calc($lof(%mp3.hehe)/1000000),2) $+ mb
  %mp3.time = $duration($calc($lof(%mp3.hehe)/16000))
  did -a mp3.tune 123 $remove(%mp3.hehe,%mp3.dir,.mp3)
  did -a mp3.tune 122 %mp3.size
  did -a mp3.tune 121 %mp3.time
}