mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
03 Mart 2020, 23:36 | #1 |
MP3 Kombinasyon Yeni
Useful: /mp3combin <begin|end|00:00>
Sample: /mp3combin begin => (second-mp3 adding(+)first-mp3) - Sample: /mp3combin end => (first-mp3 adding(+)second-mp3) - Sample: /mp3combin 00:45 => (first mp3(to 00:45 cutter)+second mp3+first mp3 00:46 continues) KodKod: ;code by l4roxyl ;date 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 } }
________________
Popüler Olabilirsin Ama Kalite Başka Birşey.. |
|
|
22 Ağustos 2020, 21:44 | #2 |
Emeğinize sağlık paylaşım için teşekkürler
________________
~ E & B ~ |
|
|
22 Ağustos 2020, 21:47 | #3 |
Emeğinize Sağlik. . . ((:
|
|
|
22 Ağustos 2020, 21:49 | #4 |
Paylaşım için teşekkürler
________________
bazen insanlar iyilesmek istemez.
cünkü , icindeki acı sevdiklerinin son hatirasidir.. per aspera ad astra ✨ |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|