/ScriptServ

; .·.________________________________________________
; | | empeg[two/Hit-Man] - November 7 1998
; | | '/load -rs empeg.mrc'
; | | mp3 syntax: '/mp3' - playlist syntax: '/pl'
; | | help syntax: '/mp3 ?'
; | | lets you play mp3s through mirc, has lots of
; | | functions like continuous play, search, random, playlist
; | | there are still bugs and i'll try to fix them all up soon
; | | special thanks to dohcan for helping me a lot
; | | greetz to: CYRIS, |-RaZoR-|, cyber-jb, #WarezWarez
; | | fuck you: AcidTears
; | | based on the 'mp3.tcl' by pawt for xircon
; | | also you still need an mp3 player(winamp, kjofol...)
; | | fields@aiservice.com , http://users.aiservice.com/fields
; ·.·¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

on 1:load: {
  if $colour(background) == 0 { set %empeg.dark 14 | set %empeg.med 01 | set %empeg.lit 15 | set %empeg.logo 1ú14i15ù }
  if $colour(background) != 0 { set %empeg.dark 14 | set %empeg.med 15 | set %empeg.lit 0 | set %empeg.logo 14ú15i0ù }
  set %empeg-tmp $sdir[="choose an mp3 directory"]
  set %empeg.mp3dir $nofile(%empeg-tmp) | echo -a %empeg.logo %empeg.dark $+ directory set to [[ $+ %empeg.med $+ %empeg.mp3dir $+ %empeg.dark $+ ]]
  set %empeg.player $dir[="choose an mp3 player"] | echo -a %empeg.logo %empeg.dark $+ player set to [[ $+ %empeg.med $+ %empeg.player $+ %empeg.dark $+ ]]
  set %empeg.msg on
  set %empeg.cont off
  set %empeg.end ..empeg(two)..
  set %empeg.ver empeg[two\Hit-Man]
  if ($fix.ver) { %ver = $fix.ver(%empeg.ver) }
  echo -a %empeg.logo %empeg.dark $+ loaded empeg[two\Hit-Man]
  echo -a %empeg.logo %empeg.dark $+ type '/mp3 ?'
  editbox -a /mp3 ?
  halt
}
alias mp3 {
  if (? == $1) { 
    echo -a %empeg.logo  $+ %empeg.dark $+ mp3 (/mp3)
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ select dialog: %empeg.dark $+ <blank>]  [ $+ %empeg.med $+ play wildcard: %empeg.dark $+ <wildcard>]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ setup options: %empeg.dark $+     -s]   [ $+ %empeg.med $+ reload: %empeg.dark $+          -t]   [ $+ %empeg.med $+ set mp3 dir.: %empeg.dark $+          -d] 
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ set mp3 player: %empeg.dark $+    -p]   [ $+ %empeg.med $+ toggle msg: %empeg.dark $+      -m]   [ $+ %empeg.med $+ toggle continuous play: $+ %empeg.dark $+  -c]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ mp3 select dialog: %empeg.dark $+ -o]   [ $+ %empeg.med $+ halt mp3 timers: %empeg.dark $+ -h]   [ $+ %empeg.med $+ list mp3s: $+ %empeg.dark $+               -l]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ random: %empeg.dark $+            -r]   [ $+ %empeg.med $+ unload: %empeg.dark $+          -u]
    echo -a %empeg.logo  $+ %empeg.dark $+ playlist (/pl)
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ start playlist: %empeg.dark $+ <blank>] [ $+ %empeg.med $+ go to #: %empeg.dark $+   <number>]   [ $+ %empeg.med $+ play wildcard: %empeg.dark $+ <wildcard>]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ list playlist: %empeg.dark $+     -l]   [ $+ %empeg.med $+ load playlist: %empeg.dark $+   -d]   [ $+ %empeg.med $+ create new: $+ %empeg.dark $+              -c]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ what next song is: %empeg.dark $+ -s]   [ $+ %empeg.med $+ previous song: %empeg.dark $+   -p]   [ $+ %empeg.med $+ next song: $+ %empeg.dark $+               -n]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ erase song: %empeg.dark $+        -e]   [ $+ %empeg.med $+ random song: %empeg.dark $+     -r]   [ $+ %empeg.med $+ halt mp3 timers: %empeg.dark $+       -h]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ generate txt: %empeg.dark $+      -g]
    halt
  }
  if (-s == $1) {
    echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ directory (-d)    %empeg.dark $+ ]] %empeg.mp3dir
    echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+  player (-p)       %empeg.dark $+ ]] %empeg.player 
    echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+  msg (-m)          %empeg.dark $+ ]] %empeg.msg
    echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+  continuous (-c)   %empeg.dark $+ ]] %empeg.cont
    halt
  }
  if (-t == $1) {    
    if $colour(background) == 0 { set %empeg.dark 14 | set %empeg.med 01 | set %empeg.lit 15 | set %empeg.logo 1ú14i15ù }
    if $colour(background) != 0 { set %empeg.dark 14 | set %empeg.med 15 | set %empeg.lit 0 | set %empeg.logo 14ú15i0ù }
    set %empeg.mp3dir $?"mp3 directory? ex: c:\mp3\songs" $+ \ | echo -a %empeg.logo %empeg.dark $+ directory set to [[ $+ %empeg.med $+ %empeg.mp3dir $+ %empeg.dark $+ ]]
    set %empeg.player $dir[="choose an mp3 player"] | echo -a %empeg.logo %empeg.dark $+ player set to [[ $+ %empeg.med $+ %empeg.player $+ %empeg.dark $+ ]]
    set %empeg.msg on
    set %empeg.cont off
    set %empeg.end ..empeg(two)..
    set %empeg.ver empeg[two\Hit-Man]
    echo -a %empeg.logo %empeg.dark $+ reloaded empeg[two\Hit-Man]
    halt
  }
  if (-d == $1) && ($2 != $null) {
    set %empeg-tmp $2
    if ($findfile(%empeg-tmp,*.mp3,1) != $null) { set %empeg.mp3dir $2- $+ \ | echo -a %empeg.logo %empeg.dark $+ directory set to [[ $+ %empeg.med $+ $2- $+ %empeg.dark $+ ]] | halt }
    if ($findfile(%empeg-tmp,*.mp3,1) == $null) { echo -a %empeg.logo %empeg.dark $+ invalid directory [[ $+ %empeg.med $+ %empeg-tmp $+ %empeg.dark $+ ]] | halt }
    halt    
  }
  if (-d == $1) && ($2 == $null) {
    set %empeg-tmp $sdir[="choose an mp3 directory"]
    set %empeg-tmp $nofile(%empeg-tmp)
    if ($findfile(%empeg-tmp,*.mp3,1) != $null) { set %empeg.mp3dir %empeg-tmp | echo -a %empeg.logo %empeg.dark $+ directory set to [[ $+ %empeg.med $+ %empeg.mp3dir $+ %empeg.dark $+ ]] | halt }
    if ($findfile(%empeg-tmp,*.mp3,1) == $null) { echo -a %empeg.logo %empeg.dark $+ invalid directory [[ $+ %empeg.med $+ %empeg-tmp $+ %empeg.dark $+ ]] | halt }  
    halt
  }
  if (-p == $1) && ($2 != $null) {
    set %empeg-tmp $2- 
    if $exists(%empeg-tmp) { echo -a %empeg.logo %empeg.dark $+ player set to [[ $+ %empeg.med $+ %empeg-tmp $+ %empeg.dark $+ ]] | set %empeg.player %empeg-tmp | halt }
    set %empeg-tmp * $+ $nopath(%empeg-tmp) $+ *
    if ($findfile(c:\,%empeg-tmp,1) != $null) { echo -a %empeg.logo %empeg.dark $+ player set to [[ $+ %empeg.med $+ $findfile(c:\,%empeg-tmp,1) $+ %empeg.dark $+ ]] | set %empeg.player $findfile(c:\,%empeg-tmp,1) | halt }
    echo -a %empeg.logo %empeg.dark $+ unable to find mp3 player. /mp3 -p <path\file.exe>. example: /mp3 -p c:\mp3\winamp.exe
    halt
  }
  if (-p == $1) && ($2 == $null) {
    unset %empeg-tmp
    set %empeg-tmp $dir[="choose mp3 player"] *.exe
    if (%empeg-tmp != $null) {
      set %empeg.player %empeg-tmp
      echo -a %empeg.logo %empeg.dark $+ player set to [[ $+ %empeg.med $+ %empeg.player $+ %empeg.dark $+ ]]
      unset %empeg-tmp
    }
    halt
  }
  if (-m == $1) {
    if ($2 != $null) {
      if (off == $2) { set %empeg.msg off | echo -a %empeg.logo %empeg.dark $+ message now [[ $+ %empeg.med $+ off $+ %empeg.dark $+ ]] | halt }
      if (on == $2) { set %empeg.msg on | echo -a %empeg.logo %empeg.dark $+ message now [[ $+ %empeg.med $+ on $+ %empeg.dark $+ ]] | halt }
      halt
    }
    if (%empeg.msg == on) { set %empeg.msg off | echo -a %empeg.logo %empeg.dark $+ message now [[ $+ %empeg.med $+ off $+ %empeg.dark $+ ]] | halt }
    if (%empeg.msg == off) { set %empeg.msg on | echo -a %empeg.logo %empeg.dark $+ message now [[ $+ %empeg.med $+ on $+ %empeg.dark $+ ]] | halt }
    halt
  }  
  if (-c == $1) {
    if ($2 != $null) {
      if (off == $2) { set %empeg.cont off | echo -a %empeg.logo %empeg.dark $+ continuous play now [[ $+ %empeg.med $+ off $+ %empeg.dark $+ ]] | .timer(empeg) off | echo -a %empeg.logo %empeg.dark $+ all continuous/playlist timers halted. | halt }
      if (on == $2) { set %empeg.cont on | echo -a %empeg.logo %empeg.dark $+ continuous play now [[ $+ %empeg.med $+ on $+ %empeg.dark $+ ]] | halt }
      halt
    }
    if (%empeg.cont == on) { set %empeg.cont off | echo -a %empeg.logo %empeg.dark $+ continuous play now [[ $+ %empeg.med $+ off $+ %empeg.dark $+ ]] | .timer(empeg) off | echo -a %empeg.logo %empeg.dark $+ all continuous/playlist timers halted. | halt }
    if (%empeg.cont == off) { set %empeg.cont on | echo -a %empeg.logo %empeg.dark $+ continuous play now [[ $+ %empeg.med $+ on $+ %empeg.dark $+ ]] | halt }
    halt
  }  
  if (-r == $1) {
    set %empeg.total $nopath($findfile(%empeg.mp3dir,*.mp3,0))
    set %empeg-tmp $findfile(%empeg.mp3dir,*.mp3,$rand(1,%empeg.total))
    if ($chr(32) isin %empeg-tmp) {
      set %empeg.song $shortfn(%empeg-tmp)
      set %empeg.name $nopath(%empeg-tmp)
      empeg.stuff
      halt
    }
    set %empeg.song %empeg-tmp
    set %empeg.name $nopath(%empeg-tmp)
    empeg.stuff
    halt
  }
  if (-o == $1) {
    set %empeg-tmp $dir[="choose an mp3"] [ %empeg.mp3dir $+ *.mp3 ]
    if (%empeg-tmp != $null) {
      if ($chr(32) isin %empeg-tmp) {
        set %empeg.song $shortfn(%empeg-tmp)
        set %empeg.name $nopath(%empeg-tmp)
        empeg.stuff
        halt
      }
      set %empeg.song %empeg-tmp
      set %empeg.name $nopath(%empeg.song)
      empeg.stuff    
      halt
    }
    if (%empeg.song == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
  }
  if (-h == $1) {
    .timer(empeg) off
    echo -a %empeg.logo %empeg.dark $+ all continuous/playlist timers halted.
    halt    
  }
  if (-l == $1) {
    if ($2 == $null) {
      set %empeg-list 0 
      set %empeg.totalmb 0
      :start 
      inc %empeg-list 
      if ($nopath($findfile(%empeg.mp3dir,*.mp3,%empeg-list)) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ Total mp3s $+ %empeg.dark $+ ]] $+ %empeg.dark $findfile(%empeg.mp3dir,*.mp3,0) $+ %empeg.med | echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ Total mb's $+ %empeg.dark $+ ]] %empeg.totalmb | echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ last played $+ %empeg.dark $+ ]] $nopath(%empeg.song) | halt }
      inc %empeg.totalmb $round($calc($lof($findfile(%empeg.mp3dir,*.mp3,%empeg-list)) / 1050024),2)
      echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ $remove($findfile(%empeg.mp3dir,*.mp3,%empeg-list),%empeg.mp3dir) $+ %empeg.dark $+ ]] %empeg.dark $+ [[ $+ %empeg.med $+ $round($calc($lof($findfile(%empeg.mp3dir,*.mp3,%empeg-list)) / 1050024),2) $+ mb $+ %empeg.dark $+ ]] 
      goto start                                  
      halt
    }
    if ($2 != $null) {
      set %empeg-tmp * $+ $2 $+ *.mp3
      set %empeg-list 0 
      if ($findfile(%empeg.mp3dir,%empeg-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt } 
      :start 
      inc %empeg-list
      if ($nopath($findfile(%empeg.mp3dir,%empeg-tmp,%empeg-list)) == $null) { echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ total found $+ %empeg.dark $+ ] $calc(%empeg-list -1) | halt }
      echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ $nopath($findfile(%empeg.mp3dir,%empeg-tmp,%empeg-list)) $+ %empeg.dark $+ ]] %empeg.dark $+ [[ $+ %empeg.med $+ $round($calc($lof($findfile(%empeg.mp3dir,%empeg-tmp,%empeg-list)) / 1050024),2) $+ mb $+ %empeg.dark $+ ]] 
      goto start
      halt
    }
  } 
  if (-u == $1) {
    set %empegver + empeg[two\Hit-Man] | %ver = $remove(%ver,%empegver)
    echo -a %empeg.logo %empeg.dark $+ empeg[two\Hit-Man] unloaded...
    unset %empeg.* | unset %pl.* | unset %empeg-tmp | unset %pl-tmp | .timer(empeg) off | .unload -rs $script(empeg.mrc) | return
  }
  if ($1 != $null) {
    if (mp3 isin $1) { 
      set %empeg-tmp * $+ $remove($1,.mp3) $+ *
      if ($findfile(%empeg.mp3dir,%empeg-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
      if ($findfile(%empeg.mp3dir,%empeg-tmp,1) != $null) { 
        set %empeg-tmp $findfile(%empeg.mp3dir,%empeg-tmp,1) 
        if (%empeg-tmp != $null) {
          if ($chr(32) isin %empeg-tmp) {
            set %empeg.song $shortfn(%empeg-tmp)
            set %empeg.name $nopath(%empeg-tmp)   
            empeg.stuff    
            halt
          }
          set %empeg.song %empeg-tmp
          set %empeg.name $nopath(%empeg-tmp)
          empeg.stuff
          halt
        }
      }
    }
    set %empeg-tmp * $+ $1 $+ *.mp3
    if ($findfile(%empeg.mp3dir,%empeg-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
    if ($findfile(%empeg.mp3dir,%empeg-tmp,1) != $null) {       
      set %empeg-tmp $findfile(%empeg.mp3dir,%empeg-tmp,1) 
      if (%empeg-tmp != $null) {
        if ($chr(32) isin %empeg-tmp) {
          set %empeg.song $shortfn(%empeg-tmp)
          set %empeg.name $nopath(%empeg-tmp)
          empeg.stuff    
          halt
        }
      }
      set %empeg.song %empeg-tmp
      set %empeg.name $nopath(%empeg-tmp)
      empeg.stuff
    }
  }
  if ($1 == $null) {
    set %empeg-tmp $dir[="choose an mp3"] [ %empeg.mp3dir $+ *.mp3 ]
    if (%empeg-tmp != $null) {
      if ($chr(32) isin %empeg-tmp) {
        set %empeg.song $shortfn(%empeg-tmp)
        set %empeg.name $nopath(%empeg-tmp)
        empeg.stuff
        halt
      }
      set %empeg.song %empeg-tmp
      set %empeg.name $nopath(%empeg.song)
      empeg.stuff    
      halt
    }
  }
  if (%empeg.song == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
}
alias pl {
  if (? == $1) {
    echo -a %empeg.logo  $+ %empeg.dark $+ mp3 (/mp3)
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ mp3 select dialog: %empeg.dark $+ <blank>]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ setup options: %empeg.dark $+     -s]   [ $+ %empeg.med $+ reload: %empeg.dark $+          -t]   [ $+ %empeg.med $+ set mp3 dir.: %empeg.dark $+          -d] 
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ set mp3 player: %empeg.dark $+    -p]   [ $+ %empeg.med $+ toggle msg: %empeg.dark $+      -m]   [ $+ %empeg.med $+ toggle continuous play: $+ %empeg.dark $+  -c]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ mp3 select dialog: %empeg.dark $+ -o]   [ $+ %empeg.med $+ halt mp3 timers: %empeg.dark $+ -h]   [ $+ %empeg.med $+ list mp3s: $+ %empeg.dark $+               -l]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ random: %empeg.dark $+            -r]   [ $+ %empeg.med $+ unload: %empeg.dark $+          -u]
    echo -a %empeg.logo  $+ %empeg.dark $+ playlist (/pl)
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ start playlist: %empeg.dark $+ <blank>] [ $+ %empeg.med $+ go to #: %empeg.dark $+   <number>]   [ $+ %empeg.med $+ play wildcard: %empeg.dark $+ <wildcard>]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ list playlist: %empeg.dark $+     -l]   [ $+ %empeg.med $+ load playlist: %empeg.dark $+   -d]   [ $+ %empeg.med $+ create new: $+ %empeg.dark $+              -c]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ what next song is: %empeg.dark $+ -s]   [ $+ %empeg.med $+ previous song: %empeg.dark $+   -p]   [ $+ %empeg.med $+ next song: $+ %empeg.dark $+               -n]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ erase song: %empeg.dark $+        -e]   [ $+ %empeg.med $+ random song: %empeg.dark $+     -r]   [ $+ %empeg.med $+ halt mp3 timers: %empeg.dark $+       -h]
    echo -a %empeg.logo %empeg.dark $+ [ $+ %empeg.med $+ generate txt: %empeg.dark $+      -g]
    halt
  }
  if (-l == $1) {
    set %pl.totalmb 0
    set %pl-echo 0
    :lewp
    inc %pl-echo
    if (%pl-echo > $lines(%pl.cur)) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ $nopath(%pl.cur) $+ %empeg.dark $+ ]] | echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ Total Song's $+ %empeg.dark $+ ]] %empeg.med $+ $lines(%pl.cur) | echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ Total mb's $+ %empeg.dark $+ ]] %empeg.med $+ %pl.totalmb | halt }
    set %pl.curline $read -l $+ %pl-echo %pl.cur
    set %pl-tmp * $+ %pl.curline $+ *
    set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1)
    set %pl-tmp $shortfn(%pl-tmp)
    inc %pl.totalmb $round($calc($lof(%pl-tmp) / 1050024),2)
    if (%pl-echo <= $lines(%pl.cur)) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ %pl-echo $+ %empeg.dark $+ ]] [[ $+ %empeg.med $+ %pl.curline $+ %empeg.dark $+ ]] %empeg.dark $+ [[ $+ %empeg.med $+ $duration($mtime(%pl-tmp)) $+ %empeg.dark $+ ]] [[ $+ %empeg.med $+ $round($calc($lof(%pl-tmp) / 1050024),2) $+ mb $+ %empeg.dark $+ ]]
      goto lewp
    }
  }
  if (-d == $1) {
    set %pl.cur $dir[="choose file"] [ %empeg.mp3dir $+ *.m3u ] 
    plfix
    if (%empeg.msg == off) { echo -a %empeg.logo %empeg.dark $+ loaded playlist [[ $+ %empeg.med $+ $nopath(%pl.cur) $+ %empeg.dark $+ ]] }
    if (%empeg.msg == on) { say loaded playlist [ $+ $nopath(%pl.cur) $+ ] %empeg.end }
    halt
  }
  if (-a == $1) {    
    set %pl-tmp $dir[="choose file"] [ %empeg.mp3dir $+ *.mp? ] 
    if (%pl-tmp != $null) {
      write %pl.cur $nopath(%pl-tmp)
      echo -a %empeg.logo %empeg.dark $+ added song to playlist $nopath(%pl-tmp)
      halt
    }
    echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found
    halt
  }
  if (-c == $1) {
    set %pl-tmp $?"What will you call your playlist?"
    if (%pl-tmp != $null) {
      write %empeg.mp3dir $+ %pl-tmp $+ .m3u
      set %pl.cur %empeg.mp3dir $+ %pl-tmp $+ .m3u
      echo -a %empeg.logo %empeg.dark $+ created playlist [[ $+ %empeg.med $+ $nopath(%pl.cur) $+ %empeg.dark $+ ]]
      .timer(empeg) off
      halt    
    }
    halt
  }
  if (-s == $1) {
    echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ next song $+ %empeg.dark $+ ]] $read -l $+ %pl.songnum %pl.cur
    halt
  }
  if (-g == $1) {
    if ($2 != $null) {
      set %pl.printf $dir *.m3u
      set %pl.printlines $lines(%pl.printf)
      set %pl.print 0
      set %pl.cnglines $lines(%pl.printf)
      echo -a %empeg.logo %empeg.dark $+ this may take a while...
      unset %pl.cngnum
      set %pl.cngnum 0
      :lewp
      set %empeg.editbox $calc(%pl.print - 2)
      editbox -a [[ $+ $str($chr(160),%empeg.editbox) $+ ]]
      inc %pl.cngnum
      if (%pl.cngnum <= %pl.cnglines) {
        set %pl-cng $read -l $+ %pl.cngnum %pl.printf
        write -l $+ %pl.cngnum %pl.printf $nopath(%pl-cng)
        goto lewp
        halt
      }
      unset %pl.cnglines
      unset %pl.cngnum
      
      :start
      inc %pl.print
      if (%pl.print > %pl.printlines) { write " $+ $2- $+ " playlist generated by empeg[two/Hit-Man] | echo -a %empeg.logo %empeg.dark $+ done. | editbox -a $str($chr(2),%pl.printlines) $+ $str($chr(160),%empeg.editboxnow) $+ ] done | halt }
      set %empeg-tmp $nofile(%pl.printf) $+ $read -l $+ %pl.print %pl.printf
      set %empeg-tmp * $+ $nopath(%empeg-tmp) $+ *
      set %empeg.plsong $findfile(%empeg.mp3dir,%empeg-tmp,1) 
      set %empeg.plname $nopath(%empeg.plsong)
      set %empeg.plname $remove(%empeg.plname,.mp3)
      set %empeg.plsong $shortfn(%empeg.plsong)
      set %empeg.plstime $mtime(%empeg.plsong)      
      set %empeg-tmp2 " $+ $2- $+ "      
      write $2- %empeg.plname ( $+ $round($calc($lof(%empeg.plsong) / 1050024),2) $+ mb) ( $+ $duration($mtime(%empeg.plsong)) $+ )
      set %empeg.editboxnow $calc(%pl.printlines - %pl.print)
      editbox -a $str($chr(127),%pl.print) $+ $str($chr(160),%empeg.editboxnow) $+ ]] $round($calc(%pl.print / %pl.printlines * 100),0) $+ %
      goto start
      halt
      
    }
    echo -a %empeg.logo %empeg.dark $+ /printpl <filetowriteto.extension>
    halt
  }
  if (-n == $1) {
    set %pl-tmp %empeg.mp3dir $+ $read -l $+ %pl.songnum %pl.cur
    set %pl-tmp * $+ $remove(%pl-tmp,.mp3) $+ *
    set %pl-tmp $nopath(%pl-tmp)
    set %pl.name $nopath(%pl-tmp)
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) != $null) {       
      set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1) 
      set %pl.name $nopath(%pl-tmp)
      if ($chr(32) isin %pl-tmp) { 
        set %pl.song $shortfn(%pl-tmp)
        pl.stuff
        halt
      }
    }
    set %pl.song %pl-tmp
    pl.stuff
    halt
  }  
  if (-p == $1) {
    set %pl.songnum $calc(%pl.songnum -2)
    set %pl-tmp %empeg.mp3dir $+ $read -l $+ %pl.songnum %pl.cur
    set %pl-tmp * $+ $remove(%pl-tmp,.mp3) $+ *
    set %pl-tmp $nopath(%pl-tmp)
    set %pl.name $nopath(%pl-tmp)
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) != $null) {       
      set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1) 
      set %pl.name $nopath(%pl-tmp)
      if ($chr(32) isin %pl-tmp) { 
        set %pl.song $shortfn(%pl-tmp)
        pl.stuff
        halt
      }
    }
    set %pl.song %pl-tmp
    pl.stuff
    halt
  }
  if (-e == $1) {
    if ($2 == $null) { echo -a %empeg.logo %empeg.med $+ usage: $+ %empeg.dark /pl -e <num of song in playlist> | halt }
    if ($2 !isnum) { echo -a %empeg.logo %empeg.med $+ usage: $+ %empeg.dark /pl -e <num of song in playlist> | halt }
    if ($2 != $null) {
      if ($2 isnum) { echo %empeg.logo %empeg.dark $+ deleted song [[ $+ %empeg.med $+ $2 $+ %empeg.dark $+ ]] [[ $+ %empeg.med $+ $read -l $+ $2 %pl.cur %empeg.dark $+ ]] | write -dl $+ $2 %pl.cur }
    }
  }
  if (-r == $1) {
    unset %pl-tmp
    set %pl-tmp %empeg.mp3dir $+ $read %pl.cur    
    set %pl.name $nopath(%pl-tmp)
    set %pl-tmp * $+ $remove(%pl-tmp,.mp3) $+ *
    set %pl-tmp $nopath(%pl-tmp)
    set %pl.name $nopath(%pl-tmp)
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) != $null) {       
      set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1) 
      set %pl.name $nopath(%pl-tmp)
    }
    if ($chr(32) isin %pl-tmp) {
      set %pl.song $shortfn(%pl-tmp)
      unset %pl-tmp
      set %pl-tmp $read -w* $+ $nopath(%pl-tmp) $+ * %pl.cur
      set %pl.songnum $readn
      pl.stuff
      halt
    }
    set %pl.song %pl-tmp
    unset %pl-tmp
    set %pl-tmp $read -w* $+ $nopath(%pl.song) $+ * %pl.cur
    set %pl.songnum $readn
    pl.stuff
    halt     
  }    
  if (-h == $1) {
    .timer(empeg) off
    echo -a %empeg.logo %empeg.dark $+ all continuous/playlist timers halted.
    halt    
  }
  if ($1 isnum) {
    set %pl.songnum $1
    set %pl-tmp %empeg.mp3dir $+ $read -l $+ $1 %pl.cur
    set %pl-tmp * $+ $remove(%pl-tmp,.mp3) $+ *
    set %pl-tmp $nopath(%pl-tmp)
    set %pl.name $nopath(%pl-tmp)
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
    if ($findfile(%empeg.mp3dir,%pl-tmp,1) != $null) {       
      set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1) 
      set %pl.name $nopath(%pl-tmp)
      if ($chr(32) isin %pl-tmp) { 
        set %pl.song $shortfn(%pl-tmp)
        pl.stuff
        halt
      }
    }
    set %pl.song %pl-tmp
    pl.stuff
    halt
  }    
  else {
    if ($1 == $null) {
      if (%pl.cur == $null) { echo -a %empeg.logo %empeg.dark $+ no playlist loaded. '/pl -d' to load. | halt }
      set %pl.songnum 1
      set %pl-tmp %empeg.mp3dir $+ $read -l1 %pl.cur
      set %pl-tmp * $+ $remove(%pl-tmp,.mp3) $+ *
      set %pl-tmp $nopath(%pl-tmp)
      if ($findfile(%empeg.mp3dir,%pl-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
      if ($findfile(%empeg.mp3dir,%pl-tmp,1) != $null) {       
        set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1) 
        set %pl.name $nopath(%pl-tmp)
        if ($chr(32) isin %pl-tmp) { 
          set %pl.song $shortfn(%pl-tmp)
          pl.stuff
          halt
        }
      }
      set %pl.song %pl-tmp
      pl.stuff
      halt
    }
    if ($1 isletter) {
      unset %pl-tmp
      set %pl-tmp %empeg.mp3dir $+ $read -w* $+ $1 $+ * %pl.cur
      set %pl.name $nopath(%pl-tmp)
      if ($nopath(%pl-tmp) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
      if (%pl-tmp == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
      set %pl-tmp * $+ $remove(%pl-tmp,.mp3) $+ *
      set %pl-tmp $nopath(%pl-tmp)
      set %pl.name $nopath(%pl-tmp)
      if ($findfile(%empeg.mp3dir,%pl-tmp,1) == $null) { echo -a %empeg.logo %empeg.dark $+ [[ $+ %empeg.med $+ total found $+ %empeg.dark $+ ]] no mp3s containing those wildcards were found | halt }
      if ($findfile(%empeg.mp3dir,%pl-tmp,1) != $null) {       
        set %pl-tmp $findfile(%empeg.mp3dir,%pl-tmp,1) 
        set %pl.name $nopath(%pl-tmp)
      }
      if ($chr(32) isin %pl-tmp) {
        set %pl.song $shortfn(%pl-tmp)
        pl.stuff
        halt
      }
      set %pl.songnum $readn
      if (%pl-tmp != $null) { 
        set %pl.song %pl-tmp
        pl.stuff
        halt
      }
    }
  }
}  
alias empeg.stuff {
  run %empeg.player " $+ %empeg.song $+ "
  set %empeg.stime $mtime(%empeg.song)
  if (%empeg.msg == on) { say [ $+ %empeg.name $+ / $+ $round($calc($lof(%empeg.song) / 1050024),2) $+ mb ( $+ $duration($mtime(%empeg.song)) $+ )] %empeg.end }
  if (%empeg.msg != on) { 
    echo -a %empeg.logo %empeg.dark $+ playing [ $+ %empeg.med $+ %empeg.name $+ %empeg.dark $+ / $+ %empeg.med $+ $round($calc($lof(%empeg.song) / 1050024),2) $+ mb %empeg.dark $+ ( $+ %empeg.med $+ $duration($mtime(%empeg.song)) $+ %empeg.dark $+ )] $+ %empeg.dark %empeg.end 
  }
  .timer(empeg) off   
  if (%empeg.cont == on) { .timer(empeg) -o 1 %empeg.stime mp3 -r }
  unset %empeg.song
  halt
}
alias pl.stuff {
  run %empeg.player " $+ %pl.song $+ "
  set %pl.song $shortfn(%pl.song)
  set %empeg.stime $mtime(%pl.song)
  if (%empeg.msg == on) { say [ $+ %pl.name $+ / $+ $round($calc($lof(%pl.song) / 1050024),2) $+ mb ( $+ $duration($mtime(%pl.song)) $+ )] %empeg.end }
  if (%empeg.msg != on) { echo -a %empeg.logo %empeg.dark $+ playing [ $+ %empeg.med $+ %pl.name $+ %empeg.dark $+ / $+ %empeg.med $+ $round($calc($lof(%pl.song) / 1050024),2) $+ mb %empeg.dark $+ ( $+ %empeg.med $+ $duration($mtime(%pl.song)) $+ %empeg.dark $+ )] $+ %empeg.dark %empeg.end }
  if (%pl.songnum >= $lines(%pl.cur)) { 
    set %pl.songnum 1
    .timer(empeg) off   
    .timer(empeg) -o 1 %empeg.stime pl %pl.songnum
    halt
  }
  inc %pl.songnum
  .timer(empeg) off   
  .timer(empeg) -o 1 %empeg.stime pl %pl.songnum  
  halt
}
alias plfix {
  set %pl.cnglines $lines(%pl.cur)
  echo -a %empeg.logo %empeg.dark $+ this may take a while...
  unset %pl.cngnum
  set %pl.cngnum 0
  set %pl.cur " $+ %pl.cur $+ "
  :lewp
  set %empeg.editboxnow $calc(%pl.cnglines - %pl.cngnum -2)
  inc %pl.cngnum
  if (%pl.cngnum <= %pl.cnglines) {
    set %pl-cng $read -l $+ %pl.cngnum %pl.cur
    write -l $+ %pl.cngnum %pl.cur $nopath(%pl-cng)
    unset %pl-cng
    editbox -a $str($chr(127),%pl.cngnum) $+ $str($chr(160),%empeg.editboxnow) $+ ]] $round($calc(%pl.cngnum / %pl.cnglines * 100),0) $+ %
    goto lewp
    halt
  }
  set %pl.cur $remove(%pl.cur,")
  unset %pl-cng
  unset %pl.cnglines
  unset %pl.cngnum
  echo -a %empeg.logo %empeg.dark $+ done.
}
alias mtime {
  set %mp3nm $1
  set %temp.lof $lof(%mp3nm)
  set %temp.bitrate $mrate(%mp3nm)
  set %temp.bitrate %temp.bitrate $+ 000
  set %mp3.ftime $calc((%temp.lof * 8) / %temp.bitrate)
  set %mp3.ftime $int(%mp3.ftime)
  unset %temp.*
  return %mp3.ftime
}
alias mrate {
  set %mp3bit $read -l1 $1-
  if (RIFF isin %mp3bit) {
    bread $1- 74 2 &mp
    set %mp3bit $bvar(&mp,1)
    set %mp3bit $calc(%mp3bit - 16) 
  }
  elseif (%mp3bit == $null) {
    set %mp3bit $read -l2 $1- 
    set %mp3bit $mid(%mp3bit,3,1) 
    set %mp3bit $asc(%mp3bit) 
    set %mp3bit $calc(%mp3bit - 16) 
  }
  else { set %mp3bit $mid(%mp3bit,3,1) 
    set %mp3bit $asc(%mp3bit) 
    set %mp3bit $calc(%mp3bit - 16)
  }
  return %mp3bit
}