Forums Scripts & Popups Mp3 player

alias mp3.ad {
  if ($insong) {
    var %artist = $gettok($replace($nopath($insong.fname),.mp3,),1,45)
    var %title = $gettok($replace($nopath($insong.fname),.mp3,),2-4,45)
    var %bitrate = $sound($insong.fname).bitrate $+ kbps
    if ($sound($insong.fname).length >= 3600000) var %len = $gmt($calc($sound($insong.fname).length / 1000),h:nn:ss)
    else var %len = $int($gmt($calc($sound($insong.fname).length / 1000),nn)) $+ $gmt($calc($sound($insong.fname).length / 1000),:ss)
    var %sample = $sound($insong.fname).sample
    var %mode = $sound($insong.fname).mode
    var %size = $file($insong.fname).size
    if (%size > 1000000) var %size = $round($calc(%size / 1000000),2) $+ Mb
    elseif (%size > 1000) var %size = $int($calc(%size / 1000)) $+ Kb
    if ((%artist == $null) || ($asc(%artist) == 32)) var %artist = $gettok($replace($nopath($insong.fname),.mp3,),1,45)
    if ((%title == $null) || ($asc(%title) == 32)) var %title = $gettok($replace($nopath($insong.fname),.mp3,),2-4,45)
    var %msg = $replace(%mp3.advertise,<artist>,%artist,<title>,%title,<bitrate>,%bitrate,<length>,%len,<sample>,%sample,<size>,%size,<mode>,%mode,-,~)
    scid $activecid
    amsg %msg
  }
}