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]
* 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)
🙂
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.
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
dah betul dah bro… pakai yg baru punya nie.. $mp3 tu aku dah tukar kpd $sound