/ScriptServ

[script]
n0=;# Skrip Bíasa Lite -#- Roní Tua -#- http://www.picauly.f2s.com/ -#- v1.01c #
n1=;-----Cos.. i don't have time... huhueihuei.. sorry...-----
n2=;-----For File Info: /sBiasa.player.info <a sound filename with the folder/path>-----
n3=;-----Sorry, This playlist cannot saving a long filename.-----
n4=;-----Sorry, when saving a filename, space (' ') character will be converted to '_'.-----
n5=;-----I found that '$read' or '/write' can't using a long filename... ;((-----
n6=
n7=alias sBiasa.playlist.get.mirc { inc %sBiasa-playlist.get.mirc.count 1 }
n8=alias sBiasa.player.dir { if (%sBiasa-player.dir) { return %sBiasa-player.dir $+ $iif($right(%sBiasa-player.dir,1) != \, \) $+ $1 } | else { return $mircdir } }
n9=alias sBiasa.Player.playlist.load.list { unset %sBiasa-playlist.load.list.file | sBiasa.Player.playlist.mkdir
n10=  set -u0 %sBiasa-playlist.load.list.file $file="Load a playlist..." $mircdirsBiasaLite_Data\playlists\*.txt
n11=  if ($isfile(%sBiasa-playlist.load.list.file)) { cdid -r sBiasa.Player.playlist 100,102 | sBiasa.Player.playlist.list.reshow %sBiasa-playlist.load.list.file }
n12=  unset %sBiasa-playlist.load.list.file
n13=}
n14=alias sBiasa.Player.playlist.sort.list { if ($1 = pathfilename) || ($1 = filename) {
n15=    var %sBiasa-playlist.rem.selected.track = $did(sBiasa.Player.playlist,100).sel
n16=    var %sBiasa-playlist.rem.selected.num = 1, %sBiasa-playlist.rem.selected.lines = $did(sBiasa.Player.playlist,100).lines
n17=    if (%sBiasa-playlist.rem.selected.lines > 1) { cdid -r sBiasa.Player.playlist 101,103
n18=      while (%sBiasa-playlist.rem.selected.num <= %sBiasa-playlist.rem.selected.lines) {
n19=        if ($sBiasa.player(13)) { if ($1 = pathfilename) { cdid -a sBiasa.Player.playlist 101 $gettok($did(sBiasa.Player.playlist,102,%sBiasa-playlist.rem.selected.num),2-,32) }
n20=          elseif ($1 = filename) { cdid -a sBiasa.Player.playlist 101 $nopath($gettok($did(sBiasa.Player.playlist,102,%sBiasa-playlist.rem.selected.num),2-,32))
n21=            cdid -a sBiasa.Player.playlist 103 $replacecs($nopath($gettok($did(sBiasa.Player.playlist,102,%sBiasa-playlist.rem.selected.num),2-,32)),$chr(44),.) $+ , $+ $gettok($did(sBiasa.Player.playlist,102,%sBiasa-playlist.rem.selected.num),2-,32)
n22=        } }
n23=        else { if ($1 = pathfilename) { cdid -a sBiasa.Player.playlist 101 $gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32) }
n24=          elseif ($1 = filename) { cdid -a sBiasa.Player.playlist 101 $nopath($gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32))
n25=            cdid -a sBiasa.Player.playlist 103 $replacecs($nopath($gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32)),$chr(44),.) $+ , $+ $gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32)
n26=        } }
n27=        inc %sBiasa-playlist.rem.selected.num 1
n28=      }
n29=      var %sBiasa-playlist.rem.selected.num = 1
n30=      while (%sBiasa-playlist.rem.selected.num <= %sBiasa-playlist.rem.selected.lines) {
n31=        if ($sBiasa.player(13)) { if ($1 = pathfilename) { if ($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num) != $gettok($did(sBiasa.Player.playlist,102,%sBiasa-playlist.rem.selected.num),2-,32)) {
n32=              cdid -o sBiasa.Player.playlist 102 %sBiasa-playlist.rem.selected.num %sBiasa-playlist.rem.selected.num $+ . $did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num)
n33=              cdid -o sBiasa.Player.playlist 100 %sBiasa-playlist.rem.selected.num %sBiasa-playlist.rem.selected.num $+ . $nopath($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num))
n34=          } }
n35=          elseif ($1 = filename) { if ($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num) != $gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32)) {
n36=              cdid -o sBiasa.Player.playlist 102 %sBiasa-playlist.rem.selected.num %sBiasa-playlist.rem.selected.num $+ . $gettok($did(sBiasa.Player.playlist,103,%sBiasa-playlist.rem.selected.num),2-,44)
n37=              cdid -o sBiasa.Player.playlist 100 %sBiasa-playlist.rem.selected.num %sBiasa-playlist.rem.selected.num $+ . $did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num)
n38=        } } }
n39=        else { if ($1 = pathfilename) {
n40=            if ($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num) != $gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32)) {
n41=              if ($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num) == $gettok(%sBiasa-playlist.select.number,1,32)) { set %sBiasa-playlist.select.number %sBiasa-playlist.rem.selected.num $gettok(%sBiasa-playlist.select.number,2-,32) }
n42=              cdid -o sBiasa.Player.playlist 100 %sBiasa-playlist.rem.selected.num %sBiasa-playlist.rem.selected.num $+ . $did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num)
n43=          } }
n44=          if ($1 = filename) {
n45=            if ($gettok($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num),2-,44) != $gettok($did(sBiasa.Player.playlist,100,%sBiasa-playlist.rem.selected.num),2-,32)) {
n46=              if ($gettok($did(sBiasa.Player.playlist,101,%sBiasa-playlist.rem.selected.num),2-,44) == $gettok(%sBiasa-playlist.select.number,1,32)) { set %sBiasa-playlist.select.number %sBiasa-playlist.rem.selected.num $gettok(%sBiasa-playlist.select.number,2-,32) }
n47=              cdid -o sBiasa.Player.playlist 100 %sBiasa-playlist.rem.selected.num %sBiasa-playlist.rem.selected.num $+ . $gettok($did(sBiasa.Player.playlist,103,%sBiasa-playlist.rem.selected.num),2-,44) 
n48=        } } }
n49=        inc %sBiasa-playlist.rem.selected.num 1
n50=    } }
n51=    cdid -r sBiasa.Player.playlist 101,103
n52=    ;    if ($gettok(%sBiasa-playlist.select.number,1,32) isnum 1-99999) { cdid -kc sBiasa.Player.playlist 100 $gettok(%sBiasa-playlist.select.number,1,32) }
n53=    if (%sBiasa-playlist.rem.selected.track isnum 1-99999) { cdid -kc sBiasa.Player.playlist 100 %sBiasa-playlist.rem.selected.track }
n54=    sBiasa.Player.playlist.data.info.show
n55=    .timerplaylist.save.auto -o 1 3 { sBiasa.Player.playlist.save.proc $fileplaylist }
n56=} }
n57=alias sBiasa.Player.playlist.uncheck.selected { if ($dialog(sBiasa.Player.playlist) = sBiasa.Player.playlist) {
n58=    var %sBiasa-playlist.uncheck.selected.num = 1, %sBiasa-playlist.uncheck.selected.total = $did(sBiasa.Player.playlist,100,0).sel
n59=    while (%sBiasa-playlist.uncheck.selected.num <= %sBiasa-playlist.uncheck.selected.total) {
n60=      cdid -ku sBiasa.Player.playlist 100 $did(sBiasa.Player.playlist,100,%sBiasa-playlist.uncheck.selected.num).sel
n61=      inc %sBiasa-playlist.uncheck.selected.num 1
n62=} } }
n63=alias sBiasa.Player.playlist.delete.list { unset %sBiasa-playlist.delete.file
n64=  sBiasa.Player.playlist.mkdir
n65=  set %sBiasa-playlist.delete.file $sfile($mircdirsBiasaLite_Data\playlists\*.txt,Delete a playlist...,&Delete)
n66=  if ($exists(%sBiasa-playlist.delete.file)) { sBiasa.deleting file %sBiasa-playlist.delete.file }
n67=  unset %sBiasa-playlist.delete.file
n68=}
n69=alias sBiasa.Player.playlist.option { opendialog sBiasa.Player.playlist.option sBiasa.Player.playlist.option $1- }
n70=alias sBiasa.Player.program.browse { unset %sBiasa-playlist.option.player.program
n71=  set %sBiasa-playlist.option.player.program $sfile($iif(%sBiasa-player.program,$nofile(%sBiasa-player.program) $+ *.exe,$mircdir*.exe),Select a Windows mp3 player program file...,&Ok)
n72=  if (($gettok(%sBiasa-playlist.option.player.program,$gettok(%sBiasa-playlist.option.player.program,0,46),46) = exe) || ($gettok(%sBiasa-playlist.option.player.program,$gettok(%sBiasa-playlist.option.player.program,0,46),46) = com)) && ($isfile(%sBiasa-playlist.option.player.program)) { set %sBiasa-player.program %sBiasa-playlist.option.player.program }
n73=  elseif (%sBiasa-playlist.option.player.program) { sBiasa.dialog.info.small Browse Mp3 Player error...:Cannot find that program file or the program file isn't a mp3 player. }
n74=  unset %sBiasa-playlist.option.player.program
n75=  cdid -i sBiasa.Player.playlist.option 123 1 %sBiasa-player.program
n76=}
n77=alias sBiasa.Player.program.checkf { if (%sBiasa-player.program == $null) { sBiasa.Player.program.check } }
n78=alias sBiasa.Player.program.check { if ($isfile(%sBiasa-player.program) != $true) {
n79=    set %sBiasa-player.program $sBiasa.isfile(C:\Program*Files\Winamp\winamp.exe,C:\Winamp\winamp.exe,C:\Program*Files\Windows*Media*Player\mplayer2.exe,C:\Windows\mplayer.exe,C:\Win98\mplayer.exe,C:\Win95\mplayer.exe,C:\Win\mplayer.exe)
n80=    if ($isfile(%sBiasa-player.program) != $true) { sBiasa.Player.program.browse }
n81=} }
n82=alias sBiasa.Player.playlist.add.file { unset %sBiasa-playlist.add.file.text
n83=  set %sBiasa-playlist.add.file.text $file="Select a filename..." $sBiasa.player.dir(*.mp3;*.wav;*.mid)
n84=  if ($isfile(%sBiasa-playlist.add.file.text)) { set %sBiasa-player.dir $nofile(%sBiasa-playlist.add.file.text)
n85=    var %sBiasa-playlist.add.file.nourut = $calc($did(sBiasa.Player.playlist,100).lines + 1)
n86=    if ($sBiasa.player(13)) {
n87=      cdid -i sBiasa.Player.playlist 102 %sBiasa-playlist.add.file.nourut %sBiasa-playlist.add.file.nourut $+ . %sBiasa-playlist.add.file.text
n88=      cdid -i sBiasa.Player.playlist 100 %sBiasa-playlist.add.file.nourut %sBiasa-playlist.add.file.nourut $+ . $nopath(%sBiasa-playlist.add.file.text)
n89=    }
n90=    else { cdid -i sBiasa.Player.playlist 100 %sBiasa-playlist.add.file.nourut %sBiasa-playlist.add.file.nourut $+ . %sBiasa-playlist.add.file.text }
n91=  }
n92=  unset %sBiasa-playlist.add.file.text
n93=  set %sBiasa-playlist.select.number $gettok(%sBiasa-playlist.select.number,1,32) $did(sBiasa.Player.playlist,100).lines
n94=}
n95=alias sBiasa.Player.program.msg.check { inc -u1 %sBiasa-Player.program.msg.check.flood 1 | unset %sBiasa-Player.msg.*
n96=  if (%sBiasa-Player.program.msg.check.flood < 5) {
n97=    if ($sBiasa.player(8)) && ($server) && ($chan(0) >= 1) {
n98=      set %sBiasa-Player.msg.artle $mp3(%sBiasa-playlist.select.text).artist - $mp3(%sBiasa-playlist.select.text).title
n99=      set %sBiasa-Player.msg.length $sBiasa.time.length($gettok(%sBiasa-playlist.select.length,2,32))
n100=      set %sBiasa-Player.msg.file $nopath(%sBiasa-playlist.select.text)
n101=      if (%sBiasa-Player.msg.artle == -) { set %sBiasa-Player.msg.artle %sBiasa-Player.msg.file }
n102=      if ($sBiasa.player(10)) && ($sBiasa.player(11)) {
n103=        if (%sBiasa-player.msgtext == $null) { set %sBiasa-player.msgtext %sBiasa-player.msgtext [!&me& &file&]-s·Bíasa-[&size&/&bitrate&kbit&vbr&/&samplekhz&khz/&modesimple&][&time&] }
n104=        else { if (&size& isin %sBiasa-player.msgtext) { set %sBiasa-player.msg.size $bytes($file(%sBiasa-playlist.select.text).size,3).suf }
n105=          if (&bitrate& isin %sBiasa-player.msgtext) { set %sBiasa-player.msg.bitrate $mp3(%sBiasa-playlist.select.text).bitrate }
n106=          if (&samplehz& isin %sBiasa-player.msgtext) || (&samplekhz& isin %sBiasa-player.msgtext) {
n107=            set %sBiasa-player.msg.samplehz $mp3(%sBiasa-playlist.select.text).sample
n108=            set %sBiasa-player.msg.samplekhz $round($calc(%sBiasa-player.msg.samplehz / 1000),0)
n109=          }
n110=          if ((&vbr& isin %sBiasa-player.msgtext) || (&vbrlo& isin %sBiasa-player.msgtext)) && ($mp3(%sBiasa-playlist.select.text).vbr) { set %sBiasa-player.msg.vbr (VBR) | set %sBiasa-player.msg.vbrlo (vbr) }
n111=          if (&mode& isin %sBiasa-player.msgtext) || (&modesimple& isin %sBiasa-player.msgtext) {
n112=            set %sBiasa-player.msg.mode $mp3(%sBiasa-playlist.select.text).mode
n113=            if (Single isin %sBiasa-player.msg.mode) || (Mono isin %sBiasa-player.msg.mode) { set %sBiasa-player.msg.modesimple Mn }
n114=            elseif (Joint isin %sBiasa-player.msg.mode) && (Stereo isin %sBiasa-player.msg.mode) { set %sBiasa-player.msg.modesimple J·St }
n115=            elseif (Stereo isin %sBiasa-player.msg.mode) { set %sBiasa-player.msg.modesimple St }
n116=        } }
n117=        set %sBiasa-player.msg.form %sBiasa-player.msgtext
n118=      }
n119=      elseif ($sBiasa.player(10)) { set %sBiasa-player.msg.form [!&me& &file&] (&time&) }
n120=      else { set %sBiasa-player.msg.form Playing.. &artist-title& (&time&) }
n121=      set %sBiasa-Player.msg.final $replace(%sBiasa-player.msg.form,&me&,$me,&file&,%sBiasa-Player.msg.file,&artist-title&,%sBiasa-Player.msg.artle,&time&,%sBiasa-Player.msg.length,&size&,%sBiasa-Player.msg.size,&bitrate&,%sBiasa-Player.msg.bitrate,&samplehz&,%sBiasa-Player.msg.samplehz,&samplekhz&,%sBiasa-Player.msg.samplekhz,&mode&,%sBiasa-Player.msg.mode,&modesimple&,%sBiasa-Player.msg.modesimple,&vbr&,%sBiasa-player.msg.vbr,&vbrlo&,%sBiasa-player.msg.vbrlo)
n122=      set %sBiasa-player.msg.do -md
n123=      if ($sBiasa.player(11)) && ($sBiasa.player(12) != $true) { set %sBiasa-player.msg.do -dd }
n124=      if ($sBiasa.player(9)) { set %sBiasa-player.msg.do -a $+ $mid(%sBiasa-player.msg.do,2,2) }
n125=      if ($sBiasa.player(8)) && ($sBiasa.player(9) != $true) { sBiasa.Player.channel.check
n126=        var %sBiasa-Player.msg.num = 1, %sBiasa-Player.msg.total = $gettok(%sBiasa-player.channel,0,44)
n127=        while (%sBiasa-Player.msg.num <= %sBiasa-Player.msg.total) {
n128=          .timer -o 1 $calc($calc(%sBiasa-Player.msg.num - 1) * 60) { myspoken %sBiasa-player.msg.do $gettok(%sBiasa-player.channel,%sBiasa-Player.msg.num,44) %sBiasa-Player.msg.final }
n129=          inc %sBiasa-Player.msg.num 1
n130=      } }
n131=      else { myspoken %sBiasa-player.msg.do %sBiasa-Player.msg.final }
n132=    }
n133=    if ($window(@Information)) {
n134=      if (%sBiasa-Player.msg.artle == $null) { set %sBiasa-Player.msg.artle $mp3(%sBiasa-playlist.select.text).artist - $mp3(%sBiasa-playlist.select.text).title }
n135=      if (%sBiasa-Player.msg.length == $null) { set %sBiasa-Player.msg.length $sBiasa.time.length($gettok(%sBiasa-playlist.select.length,2,32)) }
n136=      if (%sBiasa-Player.msg.file == $null) { set %sBiasa-Player.msg.file $nopath(%sBiasa-playlist.select.text) }
n137=      if (%sBiasa-Player.msg.artle == -) { set %sBiasa-Player.msg.artle %sBiasa-Player.msg.file }
n138=      if (Playing isin $gettok(%sBiasa-playlist.play.status,1,32)) { set -u0 %sBiasa-playlist.select.text.stat Playing: }
n139=      else { set -u0 %sBiasa-playlist.select.text.stat Selected track: }
n140=      if ($gettok(%sBiasa-playlist.select.text,0,46) >= 2) { set -u0 %sBiasa-playlist.select.text.ext $gettok(%sBiasa-playlist.select.text,$gettok(%sBiasa-playlist.select.text,0,46),46) | set -u0 %sBiasa-playlist.select.text.ext $upper($left(%sBiasa-playlist.select.text.ext,1)) $+ $lower($mid(%sBiasa-playlist.select.text.ext,2,$calc($len(%sBiasa-playlist.select.text.ext) - 1))) }
n141=      else { set -u0 %sBiasa-playlist.select.text.ext UnknownFormat }
n142=      ecinfo %sBiasa-playlist.select.text.ext %sBiasa-playlist.select.text.stat %sBiasa-Player.msg.artle ( $+ %sBiasa-Player.msg.length $+ )
n143=  } }
n144=  unset %sBiasa-player.msg.*
n145=}
n146=alias sBiasa.Player.select.chan { opendialog sBiasa.Player.select.chan sBiasa.dialog.select.chan -ma }
n147=on *:DIALOG:sBiasa.Player.select.chan:init:0:{ did -f sBiasa.Player.select.chan 30
n148=  cdialog -t sBiasa.Player.select.chan Bíasa Mp3 Player Channel
n149=  sBiasa.Player.channel.check
n150=  var %sBiasa-Player.select.chan.num = 1, %sBiasa-Player.select.chan.total = $gettok(%sBiasa-player.channel,0,44)
n151=  while (%sBiasa-Player.select.chan.num <= %sBiasa-Player.select.chan.total) {
n152=    cdid -a sBiasa.Player.select.chan 30 $gettok(%sBiasa-player.channel,%sBiasa-Player.select.chan.num,44)
n153=    inc %sBiasa-Player.select.chan.num 1
n154=} }
n155=alias sBiasa.Player.channel.check { if (%sBiasa-player.channel == $null) { set %sBiasa-player.channel #NorthSumatera,#Medan,#Picauly,#horas,#indoflasher,#indoScript | sBiasa.dialog.info.small Mp3 Player Channel error...:There's no channel in the list. The default channel data is shown. You change it but please don't make the list empty, cause you will see this message again. } }
n156=on *:DIALOG:sBiasa.Player.select.chan:sclick:*:{
n157=  if ($did = 51) { unset %sBiasa-Player.select.chan.add* | if ($did(sBiasa.Player.select.chan,30) != $null) && ($did(sBiasa.Player.select.chan,30).lines < 30) {
n158=      set %sBiasa-Player.select.chan.add $iif($left($did(sBiasa.Player.select.chan,30),1) != $chr(35), $chr(35) $+ $did(sBiasa.Player.select.chan,30), $did(sBiasa.Player.select.chan,30))
n159=      var %sBiasa-Player.select.chan.add.num = 1, %sBiasa-Player.select.chan.add.total = $gettok($didtok(sBiasa.Player.select.chan,30,44),0,44)
n160=      while (%sBiasa-Player.select.chan.add.num <= %sBiasa-Player.select.chan.add.total) {
n161=        if (%sBiasa-Player.select.chan.add = $gettok($didtok(sBiasa.Player.select.chan,30,44),%sBiasa-Player.select.chan.add.num,44)) {
n162=          set %sBiasa-Player.select.chan.add.res Already | break
n163=        }
n164=        inc %sBiasa-Player.select.chan.add.num 1
n165=      }
n166=      if (%sBiasa-Player.select.chan.add.res == $null) {
n167=        if ($did(sBiasa.Player.select.chan,30).lines > 15) { sBiasa.dialog.info.small Mp3 Player Channel error...:Sorry, too many channels. You can add only 15 channels in the list. }
n168=        elseif ($len(%sBiasa-Player.select.chan.add) > 30) { sBiasa.dialog.info.small Mp3 Player Channel error...:Sorry, the channel name is too long. The maximum is 30 characters. }
n169=        else { did -a sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.add }
n170=      }
n171=      unset %sBiasa-Player.select.chan.add*
n172=  } }
n173=  elseif ($did = 52) && ($did(sBiasa.Player.select.chan,30).sel != $null) { did -d sBiasa.Player.select.chan 30 $did(sBiasa.Player.select.chan,30).sel }
n174=  elseif ($did = 53) && ($did(sBiasa.Player.select.chan,30).sel != $null) {
n175=    set %sBiasa-Player.select.chan.temp $did(sBiasa.Player.select.chan,30)
n176=    var %sBiasa-Player.select.chan.sel = $did(sBiasa.Player.select.chan,30).sel, %sBiasa-Player.select.chan.total = $gettok($didtok(sBiasa.Player.select.chan,30,44),0,44)
n177=    if (%sBiasa-Player.select.chan.total > 1) {
n178=      did -d sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.sel
n179=      dec %sBiasa-Player.select.chan.sel 1
n180=      if (%sBiasa-Player.select.chan.sel < 1) { var %sBiasa-Player.select.chan.sel = %sBiasa-Player.select.chan.total }
n181=      did -i sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.sel %sBiasa-Player.select.chan.temp
n182=      did -kc sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.sel %sBiasa-Player.select.chan.temp
n183=    }
n184=    unset %sBiasa-Player.select.chan.temp
n185=  }
n186=  elseif ($did = 54) && ($did(sBiasa.Player.select.chan,30).sel != $null) {
n187=    set %sBiasa-Player.select.chan.temp $did(sBiasa.Player.select.chan,30)
n188=    var %sBiasa-Player.select.chan.sel = $did(sBiasa.Player.select.chan,30).sel, %sBiasa-Player.select.chan.total = $gettok($didtok(sBiasa.Player.select.chan,30,44),0,44)
n189=    if (%sBiasa-Player.select.chan.total > 1) {
n190=      did -d sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.sel
n191=      inc %sBiasa-Player.select.chan.sel 1
n192=      if (%sBiasa-Player.select.chan.sel > %sBiasa-Player.select.chan.total) { var %sBiasa-Player.select.chan.sel = 1 }
n193=      did -i sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.sel %sBiasa-Player.select.chan.temp
n194=      did -kc sBiasa.Player.select.chan 30 %sBiasa-Player.select.chan.sel %sBiasa-Player.select.chan.temp
n195=    }
n196=    unset %sBiasa-Player.select.chan.temp
n197=  }
n198=  elseif ($did = 55) { did -r sBiasa.Player.select.chan 30 }
n199=  elseif ($did = 3) {
n200=    if ($didtok(sBiasa.Player.select.chan,30,44) != $null) { set %sBiasa-player.channel $didtok(sBiasa.Player.select.chan,30,44) }
n201=    else { unset %sBiasa-player.channel }
n202=} }
n203=on 1:MP3END:{ if ($filename = %sBiasa-playlist.select.text) { sBiasa.playlist.select.next } }
n204=alias sBiasa.time.length { if ($1 != $null) { if ($1 < 1) { return 0:00 }
n205=    elseif ($1 >= 3600) { if ($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) >= 10) && ($calc($1 - $calc($calc($gettok($calc($1 / 3600),1,46) * 3600) + $calc($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) * 60))) > 10) { return $gettok($calc($1 / 3600),1,46) $+ : $+ $gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) $+ : $+ $calc($1 - $calc($calc($gettok($calc($1 / 3600),1,46) * 3600) + $calc($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) * 60))) }
n206=      elseif ($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) >= 10) { return $gettok($calc($1 / 3600),1,46) $+ : $+ $gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) $+ :0 $+ $calc($1 - $calc($calc($gettok($calc($1 / 3600),1,46) * 3600) + $calc($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) * 60))) }
n207=      elseif ($calc($1 - $calc($calc($gettok($calc($1 / 3600),1,46) * 3600) + $calc($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) * 60))) > 10) { return $gettok($calc($1 / 3600),1,46) $+ :0 $+ $gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) $+ : $+ $calc($1 - $calc($calc($gettok($calc($1 / 3600),1,46) * 3600) + $calc($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) * 60))) }
n208=      else { return $gettok($calc($1 / 3600),1,46) $+ :0 $+ $gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) $+ :0 $+ $calc($1 - $calc($calc($gettok($calc($1 / 3600),1,46) * 3600) + $calc($gettok($calc($calc($1 - $gettok($calc($1 / 3600),1,46) * 3600) / 60),1,46) * 60))) }
n209=    }
n210=    elseif ($1 >= 60) && ($calc($1 - $gettok($calc($1 / 60),1,46) * 60) >= 10) { return $gettok($calc($1 / 60),1,46) $+ : $+ $calc($1 - $gettok($calc($1 / 60),1,46) * 60)) }
n211=    elseif ($1 >= 60) { return $gettok($calc($1 / 60),1,46) $+ :0 $+ $calc($1 - $gettok($calc($1 / 60),1,46) * 60)) }
n212=    elseif ($1 >= 10) { return 0: $+ $calc($1 - $gettok($calc($1 / 60),1,46) * 60)) }
n213=    else { return 0:0 $+ $calc($1 - $gettok($calc($1 / 60),1,46) * 60)) }
n214=  }
n215=  else { return 0:00 }
n216=}
n217=alias sBiasa.deleting { if ($1 = file) && ($isfile($2-)) { opendialog sBiasa.deleting.proc sBiasa.deleting.proc -ma | sBiasa.deleting.proc confirm file $$2- }
n218=  elseif ($1 = dir) && ($isdir($2-)) { opendialog sBiasa.deleting.proc sBiasa.deleting.proc -ma | sBiasa.deleting.proc confirm dir $$2- }
n219=}
n220=dialog sBiasa.deleting.proc {
n221=  title "Bíasa Delete File..."
n222=  size -1 -1 400 111
n223=  button "&Yes", 3, 233 78 76 23, Ok default hide
n224=  button "&No", 4, 315 78 76 23, Cancel hide
n225=  text "", 11, 15 10 371 55
n226=  ;  link $analog, 100, 79 233 165 17
n227=  ;  icon 99, 121 66 79 20, $logobiasa, noborder
n228=}
n229=on *:DIALOG:sBiasa.deleting.proc:sclick:*:{ if ($did == 3) {
n230=    if ($gettok(%sBiasa-deleting.proc,1,32) = file) && ($isfile($gettok(%sBiasa-deleting.proc,2-,32))) { .remove " $+ $gettok(%sBiasa-deleting.proc,2-,32) $+ " }
n231=    elseif ($gettok(%sBiasa-deleting.proc,2,32) = dir) && ($isdir($gettok(%sBiasa-deleting.proc,2-,32))) { .remove " $+ $gettok(%sBiasa-deleting.proc,2-,32) $+ " }
n232=    unset %sBiasa-deleting.proc
n233=  }
n234=  elseif ($did == 4) { unset %sBiasa-deleting.proc }
n235=}
n236=alias sBiasa-playlist.save.file.overwrite { if ($1 != $null) {
n237=    opendialog sBiasa-playlist.save.file.overwrite sBiasa-playlist.save.file.overwrite -ma
n238=    dialog -t sBiasa-playlist.save.file.overwrite Bíasa Playlist Save as... | cdid -v sBiasa-playlist.save.file.overwrite 3,4
n239=    cdid -i sBiasa-playlist.save.file.overwrite 11 1 $$1 already exists. Do you want to replace it?
n240=} }
n241=dialog sBiasa-playlist.save.file.overwrite {
n242=  title "Bíasa Playlist Save..."
n243=  size -1 -1 382 110
n244=  button "&Yes", 3, 214 77 76 23, Ok hide
n245=  button "&No", 4, 296 77 76 23, Cancel default hide
n246=  text "", 11, 15 10 356 60
n247=  ;  link $analog, 100, 79 233 165 17
n248=  ;  icon 99, 121 66 79 20, $logobiasa, noborder
n249=}
n250=on *:DIALOG:sBiasa-playlist.save.file.overwrite:sclick:*:{ if ($did == 3) {
n251=    if ($isfile(%sBiasa-playlist.save.file)) { .remove %sBiasa-playlist.save.file }
n252=    sBiasa.Player.playlist.save.proc %sBiasa-playlist.save.file
n253=  unset %sBiasa-playlist.save.file }
n254=  elseif ($did == 4) { unset %sBiasa-playlist.save.file }
n255=}
n256=alias sBiasa.deleting.proc { if ($1 = confirm) && ($2 != $null) {
n257=    dialog -t sBiasa.deleting.proc Bíasa Confirm File Delete... | cdid -v sBiasa.deleting.proc 3,4
n258=    cdid -i sBiasa.deleting.proc 11 1 Are you sure you want to delete ' $+ $$3- $+ '?
n259=    set %sBiasa-deleting.proc $$2-
n260=} }
n261=alias sBiasa.player.info { set %sBiasa-player.info.file $$1-
n262=  if ($gettok($1-,$gettok($1-,0,46),46) = mp3) || ($gettok($1-,$gettok($1-,0,46),46) = mp2) {
n263=    opendialog sBiasa.player.mp3.info sBiasa.player.mp3.info -ma
n264=    sBiasa.player.info.init mp3 $$1-
n265=} }
n266=dialog sBiasa.player.mp3.info {
n267=  title "Bíasa MPEG file info box + ID3 tag editor"
n268=  size -1 -1 404 192
n269=  button "Save", 3, 9 164 65 23, Ok
n270=  button "Close", 4, 82 164 68 23, Cancel
n271=  button "Remove ID3", 5, 158 164 75 23
n272=  edit "Not found", 100, 4 6 399 23, autohs read
n273=  text "Title", 201, 4 38 49 15, right
n274=  text "Artist", 202, 4 63 49 15, right
n275=  text "Album", 203, 4 88 49 15, right
n276=  text "Year", 204, 4 113 49 15, right
n277=  text "Genre", 205, 99 113 32 15
n278=  text "Comment", 206, 4 138 49 15, right
n279=  edit "", 101, 59 34 179 22, autohs limit 30
n280=  edit "", 102, 59 59 179 22, autohs limit 30
n281=  edit "", 103, 59 84 179 22, autohs limit 30
n282=  edit "", 104, 59 109 35 22, autohs limit 4
n283=  combo 105, 135 109 101 141, sort drop sort
n284=  edit "", 106, 59 134 179 22, autohs limit 30
n285=  box "MPEG info", 30, 242 29 160 160
n286=  text "Size: ", 301, 250 44 140 15
n287=  text "Length: ", 302, 250 58 140 15
n288=  text "MPEG Layer", 303, 250 72 140 15
n289=  text "kbit, frames", 304, 250 86 140 15
n290=  text "hz Joint Stereo", 305, 250 100 140 15
n291=  text "Private: ", 306, 250 114 140 15
n292=  text "CRCs: ", 307, 250 128 140 15
n293=  text "Copyrighted: ", 308, 250 142 140 15
n294=  ;  link $analog, 100, 77 232 165 17
n295=  icon 99, 319 165 79 20, $logobiasa, noborder
n296=}
n297=alias sBiasa.player.info.init { if ($1 = mp3) { cdid -b sBiasa.player.mp3.info 3,5
n298=    if ($exists($2-)) { cdid -i sBiasa.player.mp3.info 100 1 $$2-
n299=      unset %sBiasa-player.info.* | set -u0 %sBiasa-player.info.file " $+ $$2- $+ "
n300=      var %sBiasa-player.info.file.size = $file($$2-).size
n301=      set -u0 %sBiasa-player.info.genre.isfile $isfile($filemp3genre)
n302=      .bread %sBiasa-player.info.file $calc(%sBiasa-player.info.file.size - 128) 128 &id3Tag
n303=      if ($bvar(&id3Tag,1-3).text == TAG) {
n304=        cdid -i sBiasa.player.mp3.info 101 1 $bvar(&id3Tag,4-33).text
n305=        cdid -i sBiasa.player.mp3.info 102 1 $bvar(&id3Tag,34-63).text
n306=        cdid -i sBiasa.player.mp3.info 103 1 $bvar(&id3Tag,64-93).text
n307=        cdid -i sBiasa.player.mp3.info 104 1 $bvar(&id3Tag,94-97).text
n308=        var %sBiasa-player.mp3.info.genre.num = $calc($bvar(&id3Tag,128) + 1)
n309=        if (%sBiasa-player.info.genre.isfile) { set -u0 %sBiasa-player.mp3.info.genre $read -l [ $+ [ %sBiasa-player.mp3.info.genre.num ] ] $filemp3genre }
n310=        cdid -i sBiasa.player.mp3.info 106 1 $bvar(&id3Tag,98-127).text
n311=      }
n312=      else { cdid -af sBiasa.player.mp3.info 101 $nopath($$2-) }
n313=      set %sBiasa-player.mp3.info.temp.vbr (VBR)
n314=      set %sBiasa-player.mp3.info.temp.length $left($mp3($$2-).length,$calc($len($mp3($$2-).length) -3))
n315=      if (%sBiasa-player.mp3.info.temp.length == $null) { set %sBiasa-player.mp3.info.temp.length 0. $+ $left($mp3($$2-).length,2) }
n316=      set %sBiasa-player.mp3.info.temp.frame $left($gettok($calc(%sBiasa-player.mp3.info.temp.length * 38.4),1,46),$calc($len($gettok($calc(%sBiasa-player.mp3.info.temp.length * 38.4),1,46)) - 2)) $+ ??
n317=      cdid -i sBiasa.player.mp3.info 301 1 Size: %sBiasa-player.info.file.size bytes
n318=      cdid -i sBiasa.player.mp3.info 302 1 Length: %sBiasa-player.mp3.info.temp.length seconds
n319=      cdid -i sBiasa.player.mp3.info 303 1 $mp3($$2-).version
n320=      set -u0 %sBiasa-mp3.info.temp.vbr (VBR)
n321=      cdid -i sBiasa.player.mp3.info 304 1 $mp3($$2-).bitrate $+ kbit $+ $iif($mp3($$2-).vbr, %sBiasa-mp3.info.temp.vbr) $+ , %sBiasa-player.mp3.info.temp.frame frames
n322=      cdid -i sBiasa.player.mp3.info 305 1 $mp3($$2-).sample $+ hz, $mp3($$2-).mode
n323=      cdid -i sBiasa.player.mp3.info 306 1 Private: $iif($mp3($$2-).private, Yes, No)
n324=      cdid -i sBiasa.player.mp3.info 307 1 CRCs: $iif($mp3($$2-).crc, Yes, No)
n325=      cdid -i sBiasa.player.mp3.info 308 1 Copyrighted: $iif($mp3($$2-).copyright, Yes, No)
n326=      if ($did(sBiasa.player.mp3.info,105).lines !isnum 1-9999) && (%sBiasa-player.info.genre.isfile) { var %sBiasa-player.mp3.info.genre.n = 1
n327=        while (%sBiasa-player.mp3.info.genre.n <= 148) {
n328=          set -u0 %sBiasa-player.mp3.info.genre.read $read -l [ $+ [ %sBiasa-player.mp3.info.genre.n ] ] $filemp3genre
n329=          if (%sBiasa-player.mp3.info.genre.read) { cdid -a sBiasa.player.mp3.info 105 %sBiasa-player.mp3.info.genre.read }
n330=          else { break }
n331=          inc %sBiasa-player.mp3.info.genre.n 1
n332=      } }
n333=      if ($did(sBiasa.player.mp3.info,105).sel) { cdid -u sBiasa.player.mp3.info 105 }
n334=      if (%sBiasa-player.mp3.info.genre.num isnum 0-147) && ($did(sBiasa.player.mp3.info,105).lines >= 1) && ($did(sBiasa.player.mp3.info,105).lines >= %sBiasa-player.mp3.info.genre.num) && (%sBiasa-player.mp3.info.genre) {
n335=        var %sBiasa-player.mp3.info.genre.n = 1
n336=        while (%sBiasa-player.mp3.info.genre.n <= 148) {
n337=          if (%sBiasa-player.mp3.info.genre = $did(sBiasa.player.mp3.info,105,%sBiasa-player.mp3.info.genre.n).text) { cdid -kc sBiasa.player.mp3.info 105 %sBiasa-player.mp3.info.genre.n | break }
n338=          inc %sBiasa-player.mp3.info.genre.n 1
n339=      } }
n340=      cdid -e sBiasa.player.mp3.info 3,4,5 | unset %sBiasa-player.mp3.info.*
n341=    }
n342=    else { cdid -i sBiasa.player.mp3.info 100 1 Not Found ( $+ $$2 $+ )
n343=      cdid -i sBiasa.player.mp3.info 301 1 File
n344=      cdid -i sBiasa.player.mp3.info 302 1 not
n345=      cdid -i sBiasa.player.mp3.info 303 1 found
n346=      cdid -r sBiasa.player.mp3.info 304,305,306,307,308
n347=      cdid -b sBiasa.player.mp3.info 101,102,103,104,105,106
n348=} } }