ipod by me! :D

menu * { 
  iPod:iPod 
} 
Alias iPod { 
  dialog -md iPod iPod 
} 
dialog iPod { 
  title ipod-je
  size -1 -1 150 100 
  option dbu 
  text "now playing:", 43, 5 10 19 15, center 
  text "", 3, 2 25 45 50
  list 4, 73 20 70 80, vsbar 
  button "+", 5, 70 10 10 10 
  button "-", 6, 135 10 10 10 
  button "Import", 7, 50 20 20 10 
  edit "", 99, 83 10 50 10, center read
  button "Delete", 8, 50 30 20 10 
  check "AMSG", 11, 48 90 22 8
  button "Play", 13, 50 40 20 10
  button "Stop", 14, 50 70 20 10 
  button "Skip", 15, 50 60 20 10 
  button "Pause", 16, 50 50 20 10 
  button "Clear List", 17, 83 0 50 10, center 
  check "Mute", 20, 50 3 22 8
  check "Herhaal", 22, 6 90 27 8
} 
on *:DIALOG:iPod:sclick:5:{ 
  if (%vol < 13) { did -u $dname 20
    set %vol $calc(%vol + 1) 
    vol -v $calc(%vol * 5000) 
    if ($round(%vol,0) == 0) { set %svol 0 }
    if ($round(%vol,0) == 1) { set %svol l }
    if ($round(%vol,0) == 2) { set %svol || }
    if ($round(%vol,0) == 3) { set %svol ||| }
    if ($round(%vol,0) == 4) { set %svol |||| }
    if ($round(%vol,0) == 5) { set %svol ||||| }
    if ($round(%vol,0) == 6) { set %svol |||||| }
    if ($round(%vol,0) == 7) { set %svol ||||||| }
    if ($round(%vol,0) == 8) { set %svol |||||||| }
    if ($round(%vol,0) == 9) { set %svol ||||||||| }
    if ($round(%vol,0) == 10) { set %svol |||||||||| }
    if ($round(%vol,0) == 11) { set %svol ||||||||||| }
    if ($round(%vol,0) == 12) { set %svol |||||||||||| }
    if ($round(%vol,0) == 13) { set %svol ||||||||||||| }
    did -ra $dname 99 %svol $+ ( $+ $round($calc(%vol * 7.692308),0) $+ % $+ )
  } 
} 
on *:DIALOG:iPod:sclick:16:{ 
  splay pause 
} 
on *:DIALOG:iPod:sclick:14:{ 
  splay stop 
} 
on *:DIALOG:iPod:sclick:6:{ 
  if (%vol > 1) { did -u $dname 20
    set %vol $calc(%vol - 1) 
    vol -v $calc(%vol * 5000) 
    if ($round(%vol,0) == 0) { set %svol 0 }
    if ($round(%vol,0) == 1) { set %svol l }
    if ($round(%vol,0) == 2) { set %svol || }
    if ($round(%vol,0) == 3) { set %svol ||| }
    if ($round(%vol,0) == 4) { set %svol |||| }
    if ($round(%vol,0) == 5) { set %svol ||||| }
    if ($round(%vol,0) == 6) { set %svol |||||| }
    if ($round(%vol,0) == 7) { set %svol ||||||| }
    if ($round(%vol,0) == 8) { set %svol |||||||| }
    if ($round(%vol,0) == 9) { set %svol ||||||||| }
    if ($round(%vol,0) == 10) { set %svol |||||||||| }
    if ($round(%vol,0) == 11) { set %svol ||||||||||| }
    if ($round(%vol,0) == 12) { set %svol |||||||||||| }
    if ($round(%vol,0) == 13) { set %svol ||||||||||||| }
    did -ra $dname 99 %svol $+ ( $+ $round($calc(%vol * 7.692308),0) $+ % $+ )
  } 
} 
on *:DIALOG:iPod:sclick:15:{  inc %iPod 
  tokenize 32 $did(iPod,4).seltext 
  splay $qt($readini(iPod.ini,Songs,%iPod)) 
  did -ra iPod 3 $remove($nopath($insong.fname),.mp3)
  if ($did(11).state) {
    /amsg  [AMSG] now playing: $remove($nopath($insong.fname),.mp3)
  } 
} 
ON *:MP3END:{ 
  if ($did(ipod,22).state == 1) {  splay $qt($readini(iPod.ini,Songs,%iPod))
    did -ra ipod 3 $remove($nopath($insong.fname),.mp3)
    if ($did(ipod,11).state) {
      /amsg [AMSG] again playing: $remove($nopath($insong.fname),.mp3) (repeating) 
    }
  }
  if ($did(ipod,22).state == 0) {
    splay $qt($readini(iPod.ini,Songs,$calc(%iPod + 1)))
    did -ra ipod 3 $remove($qt($readini(iPod.ini,Songs,%ipod)),.mp3","C:\Documents and Settings\Daniel den Brave\Mijn documenten\muziek\)
    if ($did(ipod,11).state) { 
      /amsg  [AMSG] now playing: $remove($nopath($insong.fname),.mp3)
    } 
    inc %ipod
  } 

}

on *:dialog:ipod:dclick:4:{
  if ($insong.pause) { 
    splay resume 
    halt 
  } 
  splay $qt($readini(iPod.ini,Songs,$removE($gettok($did(iPod,4).seltext,1,46),»,«))) 
  set %iPod $gettok($removE($gettok($did(iPod,4).seltext,1,46),»,«),1,32) 
  did -ra $dname 3 $remove($nopath($insong.fname),.mp3)
  if ($did(iPod,11).state) { 
    /amsg  [AMSG] now playing: $remove($nopath($insong.fname),.mp3)
  } 
} 

on *:DIALOG:iPod:sclick:13:{ 
  if ($insong.pause) { 
    splay resume 
    halt 
  } 
  splay $qt($readini(iPod.ini,Songs,$removE($gettok($did(iPod,4).seltext,1,46),»,«))) 
  set %iPod $gettok($removE($gettok($did(iPod,4).seltext,1,46),»,«),1,32) 
  did -ra $dname 3 $remove($nopath($insong.fname),.mp3)
  if ($did(iPod,11).state) { 
    /amsg  [AMSG] now playing: $remove($nopath($insong.fname),.mp3)
  } 
} 
on *:DIALOG:iPod:sclick:7:{ 
  var %iPod = $$msfile(*.mp3,Select Songs to Add to Your Playlist,open/add) 
  var %i = 0 
  while (%i < %iPod) { 
    inc %i    
    writeini iPod.ini Songs $calc($ini(iPod.ini,Songs,0) + 1) $msfile(%i) 
    did -a $dname 4 » $+ $calc($did(iPod,4).lines + 1) $+ « $remove($nopath($msfile(%i)),.mp3) 
  } 
} 
on *:DIALOG:iPod:sclick:8:{ 
  if ($did($dname,4).seltext) { 
    remini iPod.ini Songs $removE($gettok($did($dname,4).seltext,1,46),»,«) 
    did -r iPod 4 
    var %iPodTime $ctime 
    var %i = 0 
    var %z = 0 
    while (%i < $ini(iPod.ini,Songs,0)) { 
      inc %i 
      write $+(%iPodTime,.txt) $readini(iPod.ini,Songs,$ini(iPod.ini,Songs,%i)) 
    } 
    remini iPod.ini Songs 
    while (%z < $lines($+(%iPodTime,.txt))) { 
      inc %z 
      writeini iPod.ini Songs %z $read($+(%iPodTime,.txt),%z) 
      did -a $dname 4 $+(»,%z,«) $remove($nopath($readini(iPod.ini,Songs,%z)),.mp3) 
    } 
    .remove $+(%iPodTime,.txt) 
  } 
} 
} 
on *:DIALOG:iPod:sclick:17:{ 
  did -r $dname 4 
  remini iPod.ini Songs
}

on *:DIALOG:iPod:init:*:{ 
  .timer 1 1 did -z iPod 4 
  set %vol $calc($vol(master) / 5000) 
  vol -v $vol(master) 
  if ($ini(iPod.ini,Songs,0) > 0) { 
    var %i = 0 
    while (%i < $ini(iPod.ini,Songs,0)) { 
      inc %i 
      did -a $dname 4 $+(»,%i,«) $remove($nopath($readini(iPod.ini,Songs,%i)),.mp3) 
      did -c ipod 11
      if ($round(%vol,0) == 0) { set %svol 0 }
      if ($round(%vol,) == 1) { set %svol | }
      if ($round(%vol,0) == 2) { set %svol || }
      if ($round(%vol,0) == 3) { set %svol ||| }
      if ($round(%vol,0) == 4) { set %svol |||| }
      if ($round(%vol,0) == 5) { set %svol ||||| }
      if ($round(%vol,0) == 6) { set %svol |||||| }
      if ($round(%vol,0) == 7) { set %svol ||||||| }
      if ($round(%vol,0) == 8) { set %svol |||||||| }
      if ($round(%vol,0) == 9) { set %svol ||||||||| }
      if ($round(%vol,0) == 10) { set %svol |||||||||| }
      if ($round(%vol,0) == 11) { set %svol ||||||||||| }
      if ($round(%vol,0) == 12) { set %svol |||||||||||| }
      if ($round(%vol,0) == 13) { set %svol ||||||||||||| }
      did -ra $dname 99 %svol $+ ( $+ $round($calc(%vol * 7.692308),0) $+ % $+ )
    } 
  } 
} 
on *:dialog:ipod:sclick:20:{
  /did -u $dname 11
  if ($did(ipod,20).state == 1) {   /did -ra $dname 99 0
    vol -v 0
  }
  if ($did(ipod,20).state == 0) { vol -v $calc(%vol * 5000) 
    if ($round(%vol,0) == 0) { set %svol 0 }
    if ($round(%vol,0) == 1) { set %svol | }
    if ($round(%vol,0) == 2) { set %svol || }
    if ($round(%vol,0) == 3) { set %svol ||| }
    if ($round(%vol,0) == 4) { set %svol |||| }
    if ($round(%vol,0) == 5) { set %svol ||||| }
    if ($round(%vol,0) == 6) { set %svol |||||| }
    if ($round(%vol,0) == 7) { set %svol ||||||| }
    if ($round(%vol,0) == 8) { set %svol |||||||| }
    if ($round(%vol,0) == 9) { set %svol ||||||||| }
    if ($round(%vol,0) == 10) { set %svol |||||||||| }
    if ($round(%vol,0) == 11) { set %svol ||||||||||| }
    if ($round(%vol,0) == 12) { set %svol |||||||||||| }
    if ($round(%vol,0) == 13) { set %svol ||||||||||||| }
    did -ra $dname 99 %svol $+ ( $+ $round($calc(%vol * 7.692308),0) $+ % $+ )
  }
}
on *:dialog:ipod:sclick:*:{
  if ($did == 11) { /did -u $dname 20
    vol -v $calc(%vol * 5000) 
    if ($round(%vol,0) == 0) { set %svol 0 }
    if ($round(%vol,0) == 1) { set %svol | }
    if ($round(%vol,0) == 2) { set %svol || }
    if ($round(%vol,0) == 3) { set %svol ||| }
    if ($round(%vol,0) == 4) { set %svol |||| }
    if ($round(%vol,0) == 5) { set %svol ||||| }
    if ($round(%vol,0) == 6) { set %svol |||||| }
    if ($round(%vol,0) == 7) { set %svol ||||||| }
    if ($round(%vol,0) == 8) { set %svol |||||||| }
    if ($round(%vol,0) == 9) { set %svol ||||||||| }
    if ($round(%vol,0) == 10) { set %svol |||||||||| }
    if ($round(%vol,0) == 11) { set %svol ||||||||||| }
    if ($round(%vol,0) == 12) { set %svol |||||||||||| }
    if ($round(%vol,0) == 13) { set %svol ||||||||||||| }
    did -ra $dname 99 %svol $+ ( $+ $round($calc(%vol * 7.692308),0) $+ % $+ )
} }