All pastes #386944 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-03-09 00:08 UTC
rendered paste body
alias mplaya {
  :fset
  if ($lines(music\dir.txt) == 0) { echo 4 -a ERROR: You have $lines(music\dir.txt) songs loaded; To load songs, put mp3's in the "Music" and then press "Refresh Directory" right above this button. | halt }
  else {
    set %song $read(music\dir.txt)
    set %lsong %song
    goto play
  }
  :play
  if ( %not == 1 ) { ame is now listening to %song }
  elseif ( %not == 2 ) { describe %outchan is now listening to %song }
  else { echo -a Now Playing %song ( $+ $asctime(hh:nn:ssTT) $+ ) }
  splay $mircdir $+ music\ $+ %song
}
;continue
alias mplayer {
  :set
  set %song $read(music\dir.txt)
  goto check
  :check
  if (%song == %lsong) { goto set }
  else {
    set %lsong %song
    goto play
  }
  :play
  if ( %not == 1 ) { ame is now listening to %song }
  elseif ( %not == 2 ) { describe %outchan is now listening to %song }
  else { echo -a Now Playing %song ( $+ $asctime(hh:nn:ssTT) $+ ) }
  splay $mircdir $+ music\ $+ %song
}
menu channel {
  -
  Music Player
  .Play
  ..Notify in All Chans:{
    echo 4 -a Starting to play songs ( $+ $asctime(hh:nn:ssTT) $+ )
    set %not 1
    mplaya
  }
  ..Notify in This Chan:{
    echo 4 -a Starting to play songs ( $+ $asctime(hh:nn:ssTT) $+ )
    set %not 2
    set %outchan $chan
    mplaya
  }
  ..Notify to Self Only:{
    echo 4 -a Starting to play songs ( $+ $asctime(hh:nn:ssTT) $+ )
    set %not 3
    mplaya
  }
  .Stop:{
    echo 4 -a Now Stopping ( $+ $asctime(hh:nn:ssTT) $+ )
    unset %song
    unset %not
    unset %lsong
    unset %outchan
    splay stop
  }
  .Pause: /splay pause
  .Resume: /splay resume
  .Next Track:mplayer
  .Refresh Directory: /run -n $mircdir $+ music\ $+ dir.bat
  .Number of Songs Loaded:{
    if ($lines(music\dir.txt) != 1) echo 4 -a You have $lines(music\dir.txt) songs loaded; if you have more songs in that folder make sure they are mp3's and you pressed "Refresh Directory" after putting them into the "Music" folder.
    elseif ($lines(music\dir.txt) == 0) echo 4 -a You have $lines(music\dir.txt) songs loaded; To load songs, put mp3's in the "Music" and then press "Refresh Directory" right above this button.
    else echo 4 -a You have $lines(music\dir.txt) song loaded; if you have more songs in that folder make sure they are mp3's and you pressed "Refresh Directory" after putting them into the "Music" folder.
  }
  .About:{
    echo 7 -a Music Player v1.0
    echo 7 -a by Dyno
    echo 7 -a mIRC script by Dyno
    echo 7 -a Batch file by 70M573R
    echo 7 -a Contact Dyno @ irc.thekewl.net
    echo 7 -a Contact Dyno @ Leslie-Heron@hotmail.com
  }
}