Forums Scripts & Popups Help with special MP3 script

alias mp3sync {
  if $hget(mp3sync) { .hfree mp3sync }
  .hmake mp3sync 100
  var %b = $findfile(c:\,*.mp3;*.wav;*.wma,0)
  while %total.size <= 1040182784 {
    var %song = $r(1,%b)
    %song = $findfile(c:\,*.mp3;*.wav;*.wma,%song)
    if elvis presley !isin %song && $v1 !isin $sound(%song).artist {
      .hadd -m mp3sync $calc($hget(mp3sync,0).item + 1) %song
      inc %total.size $file(%song).size
    }
  }
  var %a = 1, %b = $hget(mp3sync,0).item
  while %a <= %b {
    ;copy $hget(mp3sync,%a).data Port_Mp3_Player
    inc %a
  }
}