Angelina's dialog

menu * { 
  iPod:iPod 
  iPod Help:join #unni_ranger
} 
Alias iPod { 
  dialog -md iPod iPod 
} 
dialog iPod { 
  title "Angelina's ipod" 
  size -1 -1 80 100 
  option dbu 
  button "Ok", 1, 0 0 16 8, ok 
  button "X", 2, 64 0 16 8, cancel 
  text "iPod V.01", 3, 16 8 47 8, center 
  list 4, 12 20 58 72, vsbar 
  button "UP", 5, 0 92 20 8, 
  button "Down", 6, 20 92 20 8, 
  button "ImPort", 7, 40 92 20 8, 
  button "ExPort", 8, 60 92 20 8, 
  check , 9, 19 84 8 8, 
  text "AME", 10, 27 84 11 8, center 
  check , 11, 39 84 8 8, 
  text "AMSG", 12, 47 84 14 8, center 
  button "Play", 13, 0 84 16 8 
  button "Stop", 14, 64 84 16 8 
  button "Skip", 15, 0 8 16 8, 
  button "Pause", 16, 63 8 17 8, 
  button "Clear List", 17, 16 0 48 8, center 
} 
on *:DIALOG:iPod:sclick:5:{ 
  if (%vol < 13) { 
    set %vol $calc(%vol + 1) 
    vol -v $calc(%vol * 5000) 
  } 
} 
on *:DIALOG:iPod:sclick:16:{ 
  splay pause 
} 
on *:DIALOG:iPod:sclick:14:{ 
  splay stop 
} 
on *:DIALOG:iPod:sclick:6:{ 
  if (%vol > 1) { 
    set %vol $calc(%vol - 1) 
    vol -v $calc(%vol * 5000) 
  } 
} 
on *:DIALOG:iPod:sclick:9:{ 
  if ($did(11).state) { 
    did -u $dname 11 
  } 
} 
on *:DIALOG:iPod:sclick:11:{ 
  if ($did(9).state) { 
    did -u $dname 9 
  } 
} 

on *:DIALOG:iPod:sclick:15:{ 
  tokenize 32 $did(iPod,4).seltext 
  inc %iPod 
  splay $qt($readini(iPod.ini,Songs,%iPod)) 
  did -a iPod 3 $sound($qt($insong.fname)).title 
  set %iPodgt1 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),1,32) 
  set %iPodgt2 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),2,32) 
  if ($did(iPod,9).state) { 
    ipodame 
  } 
  if ($did(iPod,11).state) { 
    ipodamsg 
  } 
} 
ON *:MP3END:{ 
  inc %iPod 
  splay $qt($readini(iPod.ini,Songs,$calc(%iPod + 1))) 
  did -a iPod 3 $sound($qt($insong.fname)).title 
  set %iPodgt1 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),1,32) 
  set %iPodgt2 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),2,32) 
  if ($did(iPod,9).state) { 
    ipodame 
  } 
  if ($did(iPod,11).state) { 
    ipodamsg 
  } 
} 
on *:DIALOG:iPod:sclick:13:{ 
  tokenize 32 $did(iPod,4).seltext 
  if ($insong.pause) { 
    splay resume 
    halt 
  } 
  splay $qt($readini(iPod.ini,Songs,$removE($gettok($did(iPod,4).seltext,1,46),»,«))) 
  did -a $dname 3 $sound($qt($insong.fname)).title 
  set %iPodgt1 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),1,32) 
  set %iPodgt2 $gettok($remove($duration($floor($calc($insong.length /1000))),mins,secs,ms),2,32) 
  set %iPod $gettok($removE($gettok($did(iPod,4).seltext,1,46),»,«),1,32) 
  if ($did(iPod,9).state) { 
    ipodame 
  } 
  if ($did(iPod,11).state) { 
    ipodamsg 
  } 
} 
on *:DIALOG:iPod:sclick:7:{ 
  var %iPod = $$msfile(*.mp3,Select Songs to Add to Your Playlist,Add Song(s)) 
  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),»,«) 
    r_iPod 
  } 
} 
on *:DIALOG:iPod:sclick:17:{ 
  did -r $dname 4 
  remini iPod.ini Songs 
} 
alias -l r_iPod { 
  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: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) 
    } 
  } 
} 
Alias ipodame { 
  var %i = 0 
  while (%i < $chan(0)) { 
    inc %i 
    if ($chan(%i) !isin %noiPod) { 
      describe $chan(%i) is now playing $iif($sound($qt($insong.fname)).title,$sound($qt($insong.fname)).title,Unknown Name) By $iif($sound($qt($insong.fname)).artist,$sound($qt($insong.fname)).artist,Unknown Artist) Album $iif($sound($qt($insong.fname)).album,$sound($qt($insong.fname)).album,Unknown Album) Published $iif($sound($qt($insong.fname)).year,$sound($qt($insong.fname)).year,Unknown Year) (00:00/ $+ $& 
        $iif($len(%iPodgt1) == 1,0 $+ %iPodgt1,%iPodgt1) $+ : $+ $& 
        $iif($len(%iPodgt2) == 1,0 $+ %iPodgt2,%iPodgt2) $+ ) 
    } 
  } 
} 
ALias ipodamsg { 
  var %i = 0 
  while (%i < $chan(0)) { 
    inc %i 
    if ($chan(%i) !isin %noiPod) { 
      msg $chan(%i) [AMSG] Now playing $iif($sound($qt($insong.fname)).title,$sound($qt($insong.fname)).title,Unknown Name) By $iif($sound($qt($insong.fname)).artist,$sound($qt($insong.fname)).artist,Unknown Artist) Album $iif($sound($qt($insong.fname)).album,$sound($qt($insong.fname)).album,Unknown Album) Published $iif($sound($qt($insong.fname)).year,$sound($qt($insong.fname)).year,Unknown Year) (00:00/ $+ $& 
        $iif($len(%iPodgt1) == 1,0 $+ %iPodgt1,%iPodgt1) $+ : $+ $& 
        $iif($len(%iPodgt2) == 1,0 $+ %iPodgt2,%iPodgt2) $+ ) 
    } 
  } 
} 
Alias killmsg { 
  set %noiPod %noiPod #$$1 
  echo -ta #$$1 added 
}