(Skrip)-sBiasa-Lite — File Browser

Skrip-sBiasa-Litev1.01c / Skrip-sBiasa-Litev1.01c / sBiasaLite_Skrip / sbiasa_lite_s_mp3_03.ini

sbiasa_lite_s_mp3_03.ini — 19.11 KB — Download this file 

[script]
n0=;# Skrip BĂ­asa Lite -#- RonĂ­ Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=
n2=alias sBiasa.Player.playlist.save.list { unset %sBiasa-playlist.save.file
n3=  sBiasa.Player.playlist.mkdir
n4=  set %sBiasa-playlist.save.file $sfile($mircdirsBiasaLite_Data\playlists\*.txt,Save a playlist...,&Save)
n5=  if (%sBiasa-playlist.save.file) {
n6=    if ($chr(46) !isin %sBiasa-playlist.save.file) { set %sBiasa-playlist.save.file %sBiasa-playlist.save.file $+ .txt }
n7=    ;---Sorry, This part is not using space for filename, converted to '_'.---
n8=    set %sBiasa-playlist.save.file $replacecs(%sBiasa-playlist.save.file,$chr(32),_)
n9=    if ($isfile(%sBiasa-playlist.save.file)) {
n10=      sBiasa-playlist.save.file.overwrite %sBiasa-playlist.save.file
n11=    }
n12=    else { sBiasa.Player.playlist.save.proc %sBiasa-playlist.save.file | unset %sBiasa-playlist.save.file }
n13=} }
n14=alias sBiasa.playlist.player.option.extendedlist { if ($1 isnum 0-1) {
n15=    if ($dialog(sBiasa.Player.playlist)) {
n16=      if ($did(sBiasa.Player.playlist,100).sel) { var %sBiasa-playlist.option.extendedlist = $did(sBiasa.Player.playlist,100).sel }
n17=      sBiasa.Player.playlist.save.proc $fileplaylist
n18=      cdid -r sBiasa.Player.playlist 100,101,102,103
n19=    }
n20=    set %sBiasa-player.data $left(%sBiasa-player.data,12) $+ $1 $+ $mid(%sBiasa-player.data,14,1)
n21=    sBiasa.Player.playlist.list.reshow $fileplaylist
n22=    if (%sBiasa-playlist.option.extendedlist) { cdid -kc sBiasa.Player.playlist 100 %sBiasa-playlist.option.extendedlist }
n23=    sBiasa.Player.playlist.data.info.show
n24=} }
n25=alias sBiasa.Player.playlist.option.init.often {
n26=  cdid - $+ $iif($sBiasa.player(1),u,c) sBiasa.Player.playlist.option 121
n27=  cdid - $+ $iif($sBiasa.player(1),c,u) sBiasa.Player.playlist.option 122
n28=  cdid - $+ $iif($sBiasa.player(1),e,b) sBiasa.Player.playlist.option 123,124
n29=  cdid - $+ $iif($sBiasa.player(2),c,u) sBiasa.Player.playlist.option 112
n30=  cdid - $+ $iif($sBiasa.player(14),c,u) sBiasa.Player.playlist.option 111
n31=  cdid - $+ $iif($sBiasa.player(13),c,u) sBiasa.Player.playlist.option 108
n32=  sBiasa.Player.playlist.data.volume.now
n33=}
n34=on 1:MIDIEND:{ if ($filename = %sBiasa-playlist.select.text) { sBiasa.playlist.select.next } }
n35=on 1:WAVEEND:{ if ($filename = %sBiasa-playlist.select.text) { sBiasa.playlist.select.next } }
n36=dialog sBiasa.Player.playlist.add.sub.ask {
n37=  title "Confirm Add A Hard Disk Subdirectory..."
n38=  size -1 -1 363 148
n39=  button "&Yes", 3, 195 113 74 23, Ok hide
n40=  button "&No", 4, 275 113 74 23, Cancel default hide
n41=  text "", 12, 15 11 330 65
n42=  text "", 11, 15 81 330 28
n43=  ;  link $analog, 100, 79 233 165 17
n44=  ;  icon 99, 121 66 79 20, $logobiasa, noborder
n45=}
n46=alias sBiasa.playlist.play { .timerplaylist.play.auto off
n47=  if ($isfile(%sBiasa-playlist.select.text)) { unset %sBiasa-playlist.select.text.error
n48=    if ($gettok(%sBiasa-playlist.play.status,1,32) != Stopped0) {
n49=      if ($left(%sBiasa-player.data,1)) { sBiasa.Player.program.checkf | .run -n " $+ %sBiasa-player.program $+ " " $+ %sBiasa-playlist.select.text $+ " | set %sBiasa-playlist.play.status Playing1 }
n50=      else { if (*.mp3 iswm %sBiasa-playlist.select.text) || (*.mp2 iswm %sBiasa-playlist.select.text) { .splay -p " $+ %sBiasa-playlist.select.text $+ " }
n51=        elseif (*.mid iswm %sBiasa-playlist.select.text) || (*.midi iswm %sBiasa-playlist.select.text) { .splay -m " $+ %sBiasa-playlist.select.text $+ " }
n52=        elseif (*.wav iswm %sBiasa-playlist.select.text) || (*.wave iswm %sBiasa-playlist.select.text) { .splay -w " $+ %sBiasa-playlist.select.text $+ " }
n53=        set %sBiasa-playlist.play.status Playing
n54=      }
n55=      cdid -c sBiasa.Player.playlist 302
n56=    }
n57=    if (*.mp? iswm %sBiasa-playlist.select.text) || (*.mp?? iswm %sBiasa-playlist.select.text) {
n58=      set %sBiasa-playlist.select.length $mp3(%sBiasa-playlist.select.text).length
n59=      set %sBiasa-playlist.select.length %sBiasa-playlist.select.length $left(%sBiasa-playlist.select.length,$calc($len(%sBiasa-playlist.select.length) - 3))
n60=    }
n61=    elseif ($inmidi) { set %sBiasa-playlist.select.length $inmidi.length $left($inmidi.length,$calc($len($inmidi.length) - 1)) }
n62=    elseif ($inwave) { set %sBiasa-playlist.select.length $inwave.length $left($inwave.length,$calc($len($inwave.length) - 2)) }
n63=    if ($sBiasa.player(1)) { .timerplaylist.play.auto -mo 1 $iif($gettok(%sBiasa-playlist.select.length,1,32) >= 0, $gettok(%sBiasa-playlist.select.length,1,32), 0) { sBiasa.playlist.select.next } }
n64=    set %sBiasa-playlist.play.status %sBiasa-playlist.play.status Stereo_If_Available $mp3(%sBiasa-playlist.select.text).mode
n65=    if (stereo isin $gettok(%sBiasa-playlist.play.status,3-,32)) {
n66=      cdid -g sBiasa.Player.playlist 881 $sBiasadir.arts(sb_pl_mn_0.bmp)
n67=      cdid -g sBiasa.Player.playlist 882 $sBiasadir.arts(sb_pl_st_1.bmp)
n68=      set %sBiasa-playlist.play.status $gettok(%sBiasa-playlist.play.status,1,32) Stereo $gettok(%sBiasa-playlist.play.status,3-,32)
n69=    }
n70=    elseif (mono isin $gettok(%sBiasa-playlist.play.status,3-,32)) {
n71=      cdid -g sBiasa.Player.playlist 882 $sBiasadir.arts(sb_pl_st_0.bmp)
n72=      cdid -g sBiasa.Player.playlist 881 $sBiasadir.arts(sb_pl_mn_1.bmp)
n73=      set %sBiasa-playlist.play.status $gettok(%sBiasa-playlist.play.status,1,32) Mono $gettok(%sBiasa-playlist.play.status,3-,32)
n74=    }
n75=    else { cdid -g sBiasa.Player.playlist 882 $sBiasadir.arts(sb_pl_st_0.bmp)
n76=      cdid -g sBiasa.Player.playlist 881 $sBiasadir.arts(sb_pl_mn_0.bmp)
n77=      set %sBiasa-playlist.play.status $gettok(%sBiasa-playlist.play.status,1,32) Channel $gettok(%sBiasa-playlist.play.status,3-,32)
n78=    }
n79=    sBiasa.Player.playlist.uncheck.selected | sBiasa.Player.program.msg.check
n80=    if ($gettok(%sBiasa-playlist.play.status,1,32) = Stopped0) { cdid -kc sBiasa.Player.playlist 100 $gettok(%sBiasa-playlist.select.number,1,32) | sBiasa.Player.playlist.data.info.show Stopped0 | .timerplaylist.play.auto off }
n81=    else { sBiasa.Player.playlist.data.info.show replay | if ($sBiasa.player(5)) { .timerplayer.play.auto.min -mo 1 100 { mindialog sBiasa.Player.playlist sBiasa.Player.playlist } } }
n82=  }
n83=  else { inc -u10 %sBiasa-playlist.select.text.error 1
n84=    if (%sBiasa-playlist.select.text.error <= $gettok(%sBiasa-playlist.select.number,2,32)) { sBiasa.playlist.select.next }
n85=    else { sBiasa.Player.playlist.stop }
n86=} }
n87=on *:DIALOG:sBiasa.Player.playlist.add.sub.ask:init:0:{ if (%sBiasa-playlist.add.subdir.text) {
n88=    cdid -v sBiasa.Player.playlist.add.sub.ask 3,4
n89=    cdid -i sBiasa.Player.playlist.add.sub.ask 12 1 Add a hard disk subdirectory maybe make this Playlist Player get a hard work, and you must be waiting it, maybe for a long time, depends on harddisk capacity && CPU speed. This system is fast now. But, if you're not sure, you can try it again by selecting a directory/folder, ex: 'C:\My Music' or 'C:\Mp3'.
n90=    cdid -i sBiasa.Player.playlist.add.sub.ask 11 1 Are you sure you want to add a subdirectory of ' $+ $upper(%sBiasa-playlist.add.subdir.text) $+ ' hard disk?
n91=  }
n92=  else { closedialog sBiasa.Player.playlist.add.sub.ask sBiasa.Player.playlist.add.sub.ask }
n93=}
n94=dialog sBiasa.Player.playlist.option {
n95=  title "BĂ­asa Player Playlist Option"
n96=  size -1 -1 401 418
n97=  Tab "General", 1, 5 5 390 380
n98=  Tab "Messaging", 2
n99=  button "Close", 3, 165 389 78 23, default Ok
n100=  box "Miscelanous", 101, 10 33 380 136, tab 1
n101=  check "Auto playing on start player", 103, 24 54 330 15, tab 1
n102=  check "Auto stoping on close player", 104, 24 72 330 15, tab 1
n103=  check "Auto minimizing player on play a track", 105, 24 90 330 15, tab 1
n104=  check "Auto start player on start mirc", 106, 24 107 331 15, tab 1
n105=  check "Auto start player on connect to server", 107, 24 126 330 15, tab 1
n106=  check "Extended playlist listing (not shows pathname)", 108, 24 144 330 15, tab 1
n107=  box "Playing", 110, 10 175 380 45, tab 1
n108=  check "Continous playlist", 111, 24 195 112 15, tab 1
n109=  check "Random play", 112, 156 195 86 15, tab 1
n110=  box "Player", 120, 10 226 380 87, tab 1
n111=  radio "Using mirc built in player", 121, 24 247 135 15, group tab 1
n112=  radio "Using other Windows program player", 122, 24 265 195 15, tab 1
n113=  edit "", 123, 42 281 274 20, autohs, tab 1
n114=  button "&Browse...", 124, 321 281 58 20, tab 1
n115=  box "Volume", 125, 10 319 380 48, tab 1
n116=  text "Volume: ", 126, 28 342 42 15, tab 1
n117=  text "0 %", 127, 66 342 30 17, right, tab 1
n118=  button "-", 128, 103 341 18 15, tab 1
n119=  button "+", 129, 125 341 18 15, tab 1
n120=  check "mute", 144, 151 341 38 15, group push tab 1
n121=  box "Messaging", 130, 10 33 380 316, tab 2
n122=  radio "No, i don't want to messaging the channel.", 132, 23 54 222 15, group tab 2
n123=  radio "Hmm, i want messaging just to some channel.", 133, 23 71 235 15, tab 2
n124=  button "Channel...", 142, 319 68 60 20, tab 2
n125=  radio "Yes, i want to messaging all of the channel i'm in.", 134, 23 88 252 15, tab 2
n126=  radio "I'm messaging: Playing.. Artist - Title of the track (time:length)", 135, 23 112 330 15, group tab 2
n127=  radio "I'm messaging: [!me filename.mp3] (time:length)", 136, 23 129 300 15, tab 2
n128=  radio "I had my own message text: ", 137, 23 146 330 15, tab 2
n129=  edit "", 138, 40 162 265 22, autohs tab 2
n130=  check "As action..", 139, 309 165 70 15, tab 2
n131=  text "&&me&& : me, &&file&& : filename, &&artist-title&& : artist - title, &&time&& : length", 140, 42 186 335 15, tab 2
n132=  text "&&samplehz&& : samplerate (hz), &&samplekhz&& : samplerate (khz)", 141, 42 201 330 15, tab 2
n133=  text "&&size&& : file size, &&bitrate&& : bitrate, &&mode&& : single/stereo", 143, 42 216 330 15, tab 2
n134=  text "&&modesimple&& : mn/st/j·st, &&vbr&& : return (VBR) if true", 145, 42 231 330 15, tab 2
n135=  text "&&vbrlo&& : (vbr) in lower case", 146, 42 246 330 15, tab 2
n136=  text "Example:", 147, 43 262 340 15, tab 2
n137=  text "[!&&me&& &&file&&]-s·Bíasa- ...", 148, 43 277 340 28, tab 2
n138=  text "-s·Bíasa-[&&size&&/&&bitrate&&kbps&&vbr&&/&&samplehz&&hz/&&mode&&][&&time&&]", 149, 43 292 340 28, tab 2
n139=  text "You can use the colour (Ctrl+K), bold (Ctrl+B) and underline (Ctrl+U).", 150, 43 308 330 15, tab 2
n140=  text "Note: If &&artist-title&& is not available, will changes to the &&file&&.", 151, 43 324 330 15, tab 2
n141=  ;  link $analog, 100, 79 233 165 17
n142=  icon 99, 315 390 79 20, $logobiasa, noborder
n143=}
n144=on *:DIALOG:sBiasa.Player.playlist.add.sub.ask:sclick:*:{ if ($did = 3) { sBiasa.Player.playlist.add.sub.do } | elseif ($did = 4) { unset %sBiasa-playlist.add.subdir.text } }
n145=alias sBiasa.Player.playlist.add.sub.do { cdid -r sBiasa.Player.playlist 104
n146=  var %sBiasa-playlist.add.subdir.total = $findfile(%sBiasa-playlist.add.subdir.text,*.mp3,0,cdid -a sBiasa.Player.playlist 104 $1-)
n147=  var %sBiasa-playlist.add.subdir.nourut = $calc($did(sBiasa.Player.playlist,100).lines + 1), %sBiasa-playlist.add.subdir.num = 1
n148=  if (%sBiasa-playlist.add.subdir.total >= 1) {
n149=    while (%sBiasa-playlist.add.subdir.num <= %sBiasa-playlist.add.subdir.total) {
n150=      if ($sBiasa.player(13)) {
n151=        cdid -i sBiasa.Player.playlist 102 %sBiasa-playlist.add.subdir.nourut %sBiasa-playlist.add.subdir.nourut $+ . $did(sBiasa.Player.playlist,104,%sBiasa-playlist.add.subdir.num).text
n152=
n153=        cdid -i sBiasa.Player.playlist 100 %sBiasa-playlist.add.subdir.nourut %sBiasa-playlist.add.subdir.nourut $+ . $nopath($did(sBiasa.Player.playlist,104,%sBiasa-playlist.add.subdir.num).text)
n154=      }
n155=      else { cdid -i sBiasa.Player.playlist 100 %sBiasa-playlist.add.subdir.nourut %sBiasa-playlist.add.subdir.nourut $+ . $did(sBiasa.Player.playlist,104,%sBiasa-playlist.add.subdir.num).text }
n156=      inc %sBiasa-playlist.add.subdir.num 1 | inc %sBiasa-playlist.add.subdir.nourut 1
n157=  } }
n158=  cdid -r sBiasa.Player.playlist 104
n159=  sBiasa.Player.playlist.save.proc $fileplaylist | unset %sBiasa-playlist.add.subdir.*
n160=  set %sBiasa-playlist.select.number $gettok(%sBiasa-playlist.select.number,1,32) $did(sBiasa.Player.playlist,100).lines
n161=}
n162=alias sBiasa.player.analize { return 3,15 $+ $left($right($analize,22),21) Player $+ $right($analize,1) }
n163=alias sBiasa.Player.playlist.stop.do {
n164=  if ($1) { set -u0 %sBiasa-Player.playlist.stop.do $1 }
n165=  elseif (%sBiasa-playlist.select.text) { set -u0 %sBiasa-Player.playlist.stop.do %sBiasa-playlist.select.text }
n166=  if ($inmp3.fname = %sBiasa-Player.playlist.stop.do) { .splay -p STOP }
n167=  if ($inmidi.fname = %sBiasa-Player.playlist.stop.do) { .splay -m STOP }
n168=  if ($inwave.fname = %sBiasa-Player.playlist.stop.do) { .splay -w STOP }
n169=}
n170=on *:DIALOG:sBiasa.player.mp3.info:sclick:3:{ sBiasa.player.info.write }
n171=on *:DIALOG:sBiasa.player.mp3.info:sclick:5:{ sBiasa.player.info.remove }
n172=on *:DIALOG:sBiasa.player.mp3.info:sclick:99:{ sBiasa.about -ma }
n173=alias sBiasa.player.info.write { unset %sBiasa-player.wid3.* | sBiasa.player.info.id3tag
n174=  set -u0 %sBiasa-player.wid3.file $did(sBiasa.player.mp3.info,100).text
n175=  set -u0 %sBiasa-player.wid3.file1 " $+ %sBiasa-player.wid3.file $+ "
n176=  set -u0 %sBiasa-player.wid3.title $did(sBiasa.player.mp3.info,101).text
n177=  set -u0 %sBiasa-player.wid3.artist $did(sBiasa.player.mp3.info,102).text
n178=  set -u0 %sBiasa-player.wid3.album $did(sBiasa.player.mp3.info,103).text
n179=  set -u0 %sBiasa-player.wid3.year $did(sBiasa.player.mp3.info,104).text
n180=  set -u0 %sBiasa-player.wid3.genre $did(sBiasa.player.mp3.info,105).seltext
n181=  if (%sBiasa-player.wid3.genre) { var %sBiasa-player.wid3.genre.i = 1, %sBiasa-player.wid3.genre.x = $lines($filemp3genre)
n182=    while (%sBiasa-player.wid3.genre.i <= %sBiasa-player.wid3.genre.x) {
n183=      set -u0 %sBiasa-player.wid3.genre.read $read -l [ $+ [ %sBiasa-player.wid3.genre.i ] ] $filemp3genre
n184=      if (%sBiasa-player.wid3.genre.read) { if (%sBiasa-player.wid3.genre = %sBiasa-player.wid3.genre.read) {
n185=          var %sBiasa-player.wid3.genre.new = $calc(%sBiasa-player.wid3.genre.i - 1) | break
n186=      } }
n187=      else { break }
n188=      inc %sBiasa-player.wid3.genre.i 1
n189=  } }
n190=  set -u0 %sBiasa-player.wid3.comment $did(sBiasa.player.mp3.info,106).text
n191=  if ($isfile(%sBiasa-player.wid3.file) != $true) { unset %sBiasa-player.wid3.* | return }
n192=  var %sBiasa-player.wid3.file.size = $file(%sBiasa-player.wid3.file).size
n193=  .bset &_tmp 3 TAG | /bset &_tmp2 1 TAG
n194=  .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 128) 3 &_tmp
n195=  .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 128) 3 TAG
n196=  if (%sBiasa-player.wid3.title != $null) { .bset &_tmp 30 %sBiasa-player.wid3.title | .bset &_tmp2 1 %sBiasa-player.wid3.title
n197=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 125) 30 &_tmp
n198=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 125) 30 %sBiasa-player.wid3.title
n199=  }
n200=  else { .bset &_tmp 30 $asc($chr(32)) | .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 125) 30 &_tmp }
n201=  if (%sBiasa-player.wid3.artist != $null) { .bset &_tmp 30 %sBiasa-player.wid3.artist | .bset &_tmp2 1 %sBiasa-player.wid3.artist
n202=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 95) 30 &_tmp
n203=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 95) 30 %sBiasa-player.wid3.artist
n204=  }
n205=  else { .bset &_tmp 30 $asc($chr(32)) | .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 95) 30 &_tmp }
n206=  if (%sBiasa-player.wid3.album != $null) { .bset &_tmp 30 %sBiasa-player.wid3.album | .bset &_tmp2 1 %sBiasa-player.wid3.album
n207=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 65) 30 &_tmp
n208=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 65) 30 %sBiasa-player.wid3.album
n209=  }
n210=  else { .bset &_tmp 30 $asc($chr(32)) | .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 65) 30 &_tmp }
n211=  if (%sBiasa-player.wid3.year != $null) { .bset &_tmp 4 %sBiasa-player.wid3.year | .bset &_tmp2 1 %sBiasa-player.wid3.year
n212=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 35) 4 &_tmp
n213=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 35) 4 %sBiasa-player.wid3.year
n214=  }
n215=  else { .bset &_tmp 4 $asc($chr(32)) | .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 35) 4 &_tmp }
n216=  if (%sBiasa-player.wid3.comment != $null) { .bset &_tmp 30 %sBiasa-player.wid3.comment | .bset &_tmp2 1 %sBiasa-player.wid3.comment
n217=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 31) 30 &_tmp
n218=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 31) 30 %sBiasa-player.wid3.comment
n219=  }
n220=  else { .bset &_tmp 30 $asc($chr(32)) | .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 31) 30 &_tmp }
n221=  if (%sBiasa-player.wid3.genre.new != $null) { .bset &_newg 1 %sBiasa-player.wid3.genre.new
n222=    .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 1) 1 &_newg
n223=  }
n224=  ;  else { .bset &_tmp 1 $asc($chr(32)) | .bwrite %sBiasa-player.wid3.file1 $calc(%sBiasa-player.wid3.file.size - 1) 1 &_tmp }
n225=  unset %sBiasa-player.wid3.* | sBiasa.player.info.id3tag.close
n226=}
n227=alias sBiasa.player.info.remove { unset %sBiasa-player.rid3.* | sBiasa.player.info.id3tag
n228=  set -u0 %sBiasa-player.rid3.file $did(sBiasa.player.mp3.info,100).text
n229=  set -u0 %sBiasa-player.rid3.file1 " $+ %sBiasa-player.rid3.file $+ "
n230=  closedialog sBiasa.player.mp3.info sBiasa.player.mp3.info
n231=  if ($isfile(%sBiasa-player.rid3.file) != $true) { return }
n232=  var %sBiasa-player.rid3.file.size = $file(%sBiasa-player.rid3.file).size
n233=  .bset &_tmp 128 $asc($chr(32))
n234=  .bwrite %sBiasa-player.rid3.file1 $calc(%sBiasa-player.rid3.file.size - 128) 128 &_tmp
n235=  unset %sBiasa-player.rid3.* | sBiasa.player.info.id3tag.close
n236=}
n237=alias sBiasa.player.info.id3tag { opendialog sBiasa.player.info.id3tag sBiasa.player.info.id3tag $1- }
n238=alias sBiasa.player.info.id3tag.close { closedialog sBiasa.player.info.id3tag sBiasa.player.info.id3tag $1- }
n239=dialog sBiasa.player.info.id3tag {
n240=  title "BĂ­asa id3tag editor check error..."
n241=  size -1 -1 284 151
n242=  button "OK", 3, 106 115 74 25, default Ok
n243=  text "Error! Can't write the file.", 11, 16 13 252 28
n244=  text "The mp3 file must be an archive or not a read only file. (Attributes)", 12, 16 37 252 28
n245=  text "Sorry, if you find the error message in the status window.", 13, 16 73 252 28
n246=  ;  link $analog, 100, 5 115 165 17
n247=  ;  icon 99, 192 118 79 20, $logobiasa
n248=}
n249=menu @Playlist {
n250=  -
n251=  BĂ­asa file &info:{ sBiasa.player.info $sline(@playlist,1) }
n252=}