alias cursong {
  unset %songinfo
  var %songinfo = $dde(mPlug,format,"%name_[%pm:%ps/%min:%sec~]") 
  if (%songinfo) {
    if ($count(%songinfo,-,32) > 1) {
      return 14,1»14«4(1415,1 Snicker's iTunes4 ) (15,1 $gettok($gettok(%songinfo,1,91),1,45) $+ 4 -15 $remove($gettok(%songinfo,1,91),$gettok($gettok(%songinfo,1,91),1,45),-) $+ 4 ) (15,1 $remove($gettok(%songinfo,2-,91),]) $+ 44,1)14,1»14«
    }
    else {
      return 14,1»14«4(1415,1 Snicker's iTunes4 ) (15,1 $gettok($gettok(%songinfo,1,91),1,45) $+ 4-15 $remove($gettok(%songinfo,1,91),$gettok($gettok(%songinfo,1,91),1,45),-) $+ 4 ) (15 $remove($gettok(%songinfo,2-,91),]) $+ 4 4,1)14,1»14«
    }
  }
  else {
    return 14,1»14«4(1415,1 Snicker's iTunes4 ) (15 N4/15A4 )14,1»14«
  }
}
alias currentsong {
  say $cursong
}

menu channel,menubar,query,status,nicklist {
iTunes
.Current Song:msg $active $cursong