;code by l4roxyl
;2014 October
;-
alias mp3combin {
  if $1 {
    if (!$isdir($mircdircutter_and_combining)) mkdir cutter_and_combining
    var %_we = echo -eac info *** MP3 Cutter&Combining info:
    if !$regex($1,/^(end|begin|\d{2}:\d{2})$/g) {
      %_we Invalid parameters. Example: /mp3com <begin|end|00:00>
      return
    }
    var %f_f = $sfile(*.mp3,Select First MP3 File,Select) 
    var %f_f2 = $sfile(*.mp3,Select Another Adding MP3 File,Select)
    if !%f_f || !%f_f2 { 
      %_we First/second or both file not selected.
      return
    }
    var %_dir = $mircdircutter_and_combining
    var %f1 = $shortfn(%f_f), %f2 = $shortfn(%f_f2)
    var %_inl = $int($calc($sound(%f1).length / 1000))
    var %new_file = $+($left($nopath(%f_f),-4),__,$nopath(%f_f2)), %_br = bread ,%_bw = bwrite
    var %_add_file = $shortfn($+(%_dir,\,-[,$iif($1 isalpha,$upper($1),$replace($1,:,.)),-, $+ $&
      $asctime(dd.mm.yyyy-hh.nn.ss),]-,$regsubex(%new_file,/(\s)/g,_)))
    %_br %f1 0 $lof(%f1) &f_1
    %_br %f2 0 $lof(%f2) &f_2
    var %fsize = $lof(%f1)
    var %second = $int($calc($sound(%f1).length / 1000))
    var %one_second = $calc(%fsize / %second)
    if $1 = end {
      %_bw %_add_file 0 $lof(%f1) &f_1
      %_bw %_add_file $lof(%f1) $lof(%f2) &f_2
      run %_dir
    }
    if $1 = begin {
      %_bw %_add_file 0 $lof(%f2) &f_2
      %_bw %_add_file $lof(%f2) $lof(%f1) &f_1
      run %_dir
    }
    if $regex(a_,$1,^(\d{2}:\d{2})$) {
      var %_d_r = $duration($regml(a_,1))
      if (%_inl < %_d_r) || %_inl = %_d_r) {
        %_we File length small with entered time!
        return
      }
      var %_int = $round($calc(%one_second * %_d_r),0) 
      %_br %f1 0 %_int &f_ar
      %_bw %_add_file 0 $bvar(&f_ar,0) &f_ar
      %_bw %_add_file $lof(%_add_file) $lof(%f2) &f_2
      %_br %f1 $bvar(&f_ar,0) $lof(%f1) &f_3
      %_bw %_add_file $lof(%_add_file) $bvar(&f_3,0) &f_3
      run %_dir
    }
  }
}