on *:MP3END: { /splay %repeat }
menu channel {
My MP3s
.Song - $iif($insong, $nopath($insong.fname), Nothing at all!!! ) : /halt
.Position - $mp3pos :/halt
.-
.Continuous Play: .set %repeat $insong.fname
.Stop Continuous Play: .unset %repeat
.Spam: /msg $chan 7 $me 9is playing7 $nopath($insong.fname) 9 with a duration of7 $mp3time using 11m42@77§ 11þ42|å¥Ë®r
.Stop Playing: /splay stop
.Pause Song: /splay pause
.Resume Playing: /splay resume
.-
.$submenu($mp3list($$1))
}
alias mp3list {
var %mp3dir = $shortfn(C:\my shared folder\)
if ($$1 == begin) return -
else if ($$1 == end) return -
else if ($findfile(%mp3dir, *.mp3, $$1, 0)) return $nopath($ifmatch) : /splay -p $ifmatch
}
alias mp3pos {
var %barlength = 15
if ($insong) {
var %length = $sound($insong.fname).length, %pos = $insong.pos, %left = $int($calc((%pos / %length) * %barlength))
var %pos = $remove($replace($duration($calc($insong.pos / 1000)), mins, m, min, m, secs, s, sec, s), $chr(32))
var %len = $remove($replace($duration($calc($sound($insong.fname).length / 1000)), mins, m, min, m, secs, s, sec, s), $chr(32))
var %time = ( $+ %pos $+ / $+ %len $+ )
}
else var %left = 0
return [[ $+ $str($chr(124), %left) $+ $str(-, $calc(%barlength - %left)) $+ ]] %time
}
alias mp3time {
var %barlength = 15
if ($insong) {
var %length = $sound($insong.fname).length, %pos = $insong.pos, %left = $int($calc((%pos / %length) * %barlength))
var %pos = $remove($replace($duration($calc($insong.pos / 1000)), mins, m, min, m, secs, s, sec, s), $chr(32))
var %len = $remove($replace($duration($calc($sound($insong.fname).length / 1000)), mins, m, min, m, secs, s, sec, s), $chr(32))
var %time = ( $+ %len $+ )
}
else var %left = 0
return %time
}