Red

on 1:LOAD:/setup | /playlist
Alias setup {
set %mp3.dir $sdir="Locate you mp3 files" | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir
set %mp3.player $findfile(c:\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player
}
Alias Mp3play {
if (%mp3.dir == $null) { set %mp3.dir $sdir="Locate you mp3 directory" }
if (%mp3.player == $null) { set %mp3.player $dir="Locate your mp3 player (winamp.exe)" winamp.exe }
%mp3.dir1 = %mp3.dir $+ \ $+ *.mp?
set %mp3 $dir="Which mp3 do you want to play?" %mp3.dir1
if (%mp3 == $null) { goto end }
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
Alias sF3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir="Locate you mp3 directory" }
if (%mp3.player == $null) { set %mp3.player $dir="Locate your mp3 player (winamp.exe)" *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}
alias playlist {
set %mp3.list.starttime $ctime
set %mp3.list.nick $me
set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt
window -dhnal @list
$findfile(%mp3.dir,*.mp3,@list)
set %mp3.list.total $findfile(%mp3.dir,*.mp3,0)
write %mp3.list.textfile $cr
write -c %mp3.list.textfile $me $+ 's Mp3 List by: æAcidMp3æ Created by Juston
write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file.
write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files
set %mp3.list.count 1
set %mp3.list.filesize.total 0
set %mp3.list.file.lastdir ""
:next
set %mp3.list.file $line(@list,%mp3.list.count)
set %mp3.list.file.dir $nofile(%mp3.list.file)
set %mp3.list.file.name $nopath(%mp3.list.file)
set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3)
set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count))
if (%mp3.list.file.dir != %mp3.list.file.lastdir) {
write %mp3.list.textfile $cr
write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ]
write %mp3.list.textfile $cr
}
else { }
set %mp3.list.file.lastdir %mp3.list.file.dir
if %mp3.list.count > 1 {
if %mp3.list.filesize > %mp3.list.filesize.high {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filename.high %mp3.list.file.name }
elseif %mp3.list.filesize < %mp3.list.filesize.low {
set %mp3.list.filesize.low %mp3.list.filesize
set %mp3.list.filename.low %mp3.list.file.name
}
}
else {
set %mp3.list.filesize.high %mp3.list.filesize
set %mp3.list.filesize.low %mp3.list.filesize
}
write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB
inc %mp3.list.filesize.total %mp3.list.filesize
inc %mp3.list.count 1
if ( %mp3.list.count < %mp3.list.total ) { goto next }
:end
window -c @list
write %mp3.list.textfile
write %mp3.list.textfile $cr
if %mp3.list.filesize.total < 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB }
else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB }
set %mp3.list.time $calc($ctime - %mp3.list.starttime)
/run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ
}
alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) }
alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 }
alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps }
alias mp3.bitrate {
if (($1 == $null) || ($exists($1-) == $false)) return 0
set %_bitrate $read -l1 $1-
if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 }
set %_bitrate $asc($mid(%_bitrate,3,1))
.timer 1 1 unset %_bitrate
return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16))))
}
alias mp3.len {
if ($1 == $null) || ($exists($1) == $false) return 0m0s
else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) }
}
Menu status,channel,query {
-
DandikMp3
.Setup:/setup
.Create List:/playlist
.Select Mp³:/mp3play
.Random Mp³:/sF3
}

Alias r3 {
if (%mp3.dir == $null) { set %mp3.dir $sdir="Locate you mp3 directory" }
if (%mp3.player == $null) { set %mp3.player $dir="Locate your mp3 player (winamp.exe)" *.exe }
set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0)
set %rand.mp3.2 $rand(1,%rand.mp3.1)
set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2)
%mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb
%mp3.len = $mp3.len(%mp3)
%mp3.kbps = $mp3.kbps(%mp3)
say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/
run %mp3.player $shortfn(%mp3)
unset %mp3.len %mp3.size %mp3.kbps
:end
}


uzun zamandir kendi kullandigim addon