All pastes #261479 Raw Edit

Unnamed

public text v1 · immutable
#261479 ·published 2006-11-29 14:05 UTC
rendered paste body
alias music {
  if ($1) && ($insong == $true) && ($findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace($1-,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,1) > 0) {
    timerEND off
    set %part $1-
    set %play.num $rand(1,$findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace(%part,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,*))
    set %song.loc $findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace(%part,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,%play.num)
    set %song $remove(%song.loc,C:\Documents and Settings\Owner\My Documents\Jess' Music,.mp3)
    splay %song.loc
    describe $active %is.listening %song
  }
  elseif ($1) && ($insong == $false) && ($findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace($1-,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,1) > 0) {
    timerEND off
    set %part $1-
    set %play.num $rand(1,$findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace(%part,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,*))
    set %song.loc $findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace(%part,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,%play.num)
    set %song $remove(%song.loc,C:\Documents and Settings\Owner\My Documents\Jess' Music,.mp3)
    splay %song.loc
    describe $active %is.listening %song
  }
  elseif (!$1) && ($insong == $true) && ($findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * ,1) > 0) {
    timerEND off
    set %play.num $rand(1,$findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * ,*))
    set %song.loc $findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * ,%play.num)
    set %song $remove(%song.loc,C:\Documents and Settings\Owner\My Documents\Jess' Music,.mp3)
    splay %song.loc
    describe $active %is.listening %song
  }
  elseif (!$1) && ($insong == $false) && ($findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * ,1) > 0) {
    timerEND off
    set %play.num $rand(1,$findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * ,*))
    set %song.loc $findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * ,%play.num)
    set %song $remove(%song.loc,C:\Documents and Settings\Owner\My Documents\Jess' Music,.mp3)
    splay %song.loc
    describe $active %is.listening %song
  }
  elseif ($1) && ($findfile(C:\Documents and Settings\Owner\My Documents\Jess' Music, * $+ $replace($1-,$chr(32),$chr(42),$chr(45),$chr(42),$chr(95),$chr(42)) $+ * ,*) == 0) {
    echo No Match Found For $1-
  }
}
alias playing {
  describe $active %is.listening %song
}
alias playcolor {
  set %is.listening $1-
}