ipod :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, 71 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 11 21 8
  check "Herhaal", 22, 6 90 27 8
  check "Shuffle", 23, 50 1 25 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 $chr(124) }
    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 $chr(124) }
    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:{ if ($did(ipod,23).state == 1) { set %irand $r(1,%ipodteller) 
    splay $qt($readini(iPod.ini,Songs,%irand)))
    did -ra ipod 3 » %irand « $remove($nopath($insong.fname),.mp3) 
    if ($did(11).state) { ipodamsg  }
  halt }
  inc %iPod 
  tokenize 32 $did(iPod,4).seltext 
  splay $qt($readini(iPod.ini,Songs,%iPod)) 
  did -ra iPod 3 » $+ %ipod $+ « $remove($nopath($insong.fname),.mp3)
  if ($did(11).state) {
    ipodamsg
  } 
} 
ON *:MP3END:{ 
  if ($did(ipod,23).state == 1) { set %irand $r(1,%ipodteller) 
    splay $qt($readini(iPod.ini,Songs,%irand)))
    did -ra ipod 3 » %irand « $remove($nopath($insong.fname),.mp3) 
    if ($did(ipod,11).state) {     /ipodamsg }
  halt }
  if ($did(ipod,22).state == 1) {  splay $qt($readini(iPod.ini,Songs,%iPod))
    did -ra iPod 3 » $+ %ipod $+ « $remove($nopath($insong.fname),.mp3)
    if ($did(ipod,11).state) {
      ipodamsg
    }
  }
  if (%ipod > %ipodteller) { set %ipod 1
    /splay $qt($readini(iPod.ini,Songs,1)) 
    did -ra iPod 3 » $+ 1 $+ « $remove($nopath($insong.fname),.mp3)
    if ($did(11).state) {
      ipodamsg
    } 
  halt }
  inc %ipod
  splay $qt($readini(iPod.ini,Songs,%iPod))
  did -ra iPod 3 » $+ %ipod $+ « $remove($nopath($insong.fname),.mp3)
  if ($did(ipod,11).state) { 
    ipodamsg
  } 
}

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 iPod 3 » $+ %ipod $+ « $remove($nopath($insong.fname),.mp3)
  if ($did(iPod,11).state) { 
    ipodamsg
  } 
} 

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 iPod 3 » $+ %ipod $+ « $remove($nopath($insong.fname),.mp3)
  if ($did(iPod,11).state) { 
    ipodasmg
  } 
} 
on *:Dialog:ipod:sclick:22:{ did -u $dname 23 }
on *:Dialog:ipod:sclick:23:{ /did -u $dname 22 }

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) 
    set %ipodteller $$did(iPod,4).lines
  } 
} 
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:*:{ 
  did -c $dname 23
  .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 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: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 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: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 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) $+ % $+ )
} 
alias ipodamsg { var %x = 0
  while ($chan(0) > %x) { inc %x
    if (%behalve [ $+ [ $chan(%x) ] ] == $null) && (%disable [ $+ [ $chan ] ] == $null) {
      msg $chan(%x) [IPOD] listening: $remove($nopath($insong.fname),.mp3) (!disable ipod to disable this message)
      set %disable [ $+ [ $chan ] ] niks
      timer 1 600 unset %disable [ $+ [ $chan ] ]
    }
    if (%behalve [ $+ [ $chan(%x) ] ] == $null) && (%disable [ $+ [ $chan ] ] != $null) msg $chan(%x) [IPOD] listening: $remove($nopath($insong.fname),.mp3)
  }
}
on *:TEXT:!disable ipod:#:{ if ($nick !isop $chan) { notice $nick op command only | halt }
  set %behalve [ $+ [ $chan ] ] blaats:D 
notice $nick amsg for $chan disabled, !enable ipod }

on *:TEXT:!enable ipod:#:{ if ($nick !isop $chan) { notice $nick op command only | halt }
  unset %behalve [ $+ [ $chan ] ] 
notice $nick amsg for $chan enabled, !disable ipod to disable }

alias behalve { /set %behalve [ $+ [ $1 ] ] blaatzors }
alias delete { unset %behalve [ $+ [ $1 ] ] }