Simple MP3 Player

Usage: Taip /addmp3 utk masukkan senarai lagu. Script akan auto info (/ame) selepas 60s connect ke server


alias uw {
var %a = 1
while (%a <= $numtok($1-,32)) { var %b = $gettok($1-,%a,32) var %c = %c $+($upper($left(%b,1))) $+ $mid(%b,2) var %a $calc(%a +1) } return %c } alias addmp3 { var %mp3.dir $sdir="Set MP3 Dir" if (!%mp3.dir) { return } var %mp3.num $findfile(%mp3.dir, *.mp3, 0), %mp3.loop 1 :mp3_loop if (%mp3.loop <= %mp3.num) { .write mp3.txt $findfile(%mp3.dir,*.mp3,%mp3.loop) inc %mp3.loop goto mp3_loop } } alias mp3info { var %lagu = $qt($read(mp3.txt)) .splay -cwmp %lagu ame sedang mendengar lagu $uw($replace($lower($remove($nopath(%lagu),.mp3)),_,$chr(32))) [ $+ $duration($calc($sound(%lagu).length / 1000)) $+ / $+ $round($calc($file(%lagu) / 1000000),2) $+ mb $+ / $+ $sound(%lagu).bitrate $+ kbps] .timermp3info 1 $calc($sound(%lagu).length / 1000 + 60) mp3info } ON *:CONNECT: { .timer 1 60 mp3info } [/sourcecode]

Comments

4 thoughts on “Simple MP3 Player”

  1. * Invalid parameters: $mp3 (line 80, script1.ini)
    * /set: line too long (line 79, script1.ini)
    * /set: line too long (line 79, script1.ini)
    * /set: line too long (line 79, script1.ini)

    🙂

  2. PakCu dah update addon nie.

    $mp3 tu identifier pada mirc version lama.. skang ni pakai $sound

    yg line 79 tu pakcu confius since addon nie cuma ada 27 lines er.. leh bro pastekan kat sini line 79 tu yg mana

    Thanks.

  3. alias mp3info {
    var %lagu = $qt($read(mp3.txt))
    ame sedang mendengar lagu $uw($replace($lower($remove($nopath(%lagu),.mp3)),_,$chr(32))) [ $+ $durs($calc($mp3(%lagu).length / 1000)) $+ / $+ $round($calc($file(%lagu) / 1000000),2) $+ mb $+ / $+ $sound(%lagu).bitrate $+ kbps]
    .timermp3info 1 $calc($gettok($remove($duration($calc($mp3(%lagu).length / 1000)),m,i,n,s,e,c),1,32) * 60 + 217400 + $gettok($remove($duration($calc($mp3(%lagu).length / 1000)),m,i,n,s,e,c),2,32)) mp3info
    }

    di mp3info ada error la Pakcu

  4. dah betul dah bro… pakai yg baru punya nie.. $mp3 tu aku dah tukar kpd $sound

Comments are closed.