ITunes rating alias

alias setrating_command {
  if (!$1-) { return }
  var %p = iTunes, %i = IITTrack
  .comopen iTunes iTunes.Application
  if ($comerr) { .timeriTunes off | goto error }
  if $com(%p,CurrentTrack,3,dispatch* %i) {
    if (!$com(%i)) {
      .msg $1 [ $+ $2 $+ ]: Error, NOT any track is currently has been selected.
      goto error
    }
    var -s %k = $com(%i,Rating,4,long,$calc($3 *20))
    var -s %k = $com(%i,Name,2)
    var -s %n = $com(%i).result
    .msg $1 [ $+ $2 $+ ]: Song ratings for $qt(%n) has been changed to $qt($3) $+ .
  }
  :error
  while ($com(0)) { .comclose $com(1) }
}