/ScriptServ

;IRcap8 a39b5d5c25a29663fbd54f82850fcdc4

alias sba.PLIST {
  sbatit $calc($1 - 12) $m(sbaplist)
  if ($2 < 90) { unset %sba.ls1.plist | return }
  if (!$script(mp3player.mrc)) return 

  var %a = $int($calc(($2) / 14 - 3))
  %sba.ls1.plist = 6 $1 $calc($gettok(%sbarra,1,32) - 36) %a 1 0 sbaPlistclick @sba1.plist 0, $+ $calc($window(@sba).w - 74)
  var %y = $calc($1 + $2 - 38)
  %sba.bt = %sba.bt $+ |6 %y 8 mp3menus_+ +|34 %y 8 mp3menus_- -|62 %y 8 mp3menus_bar M|92 %y 8 mp3menus_l L

  ;  if ($3 != redib) || (!$line(@sba1.plist,0)) {
  if ($3 != redib) {
    if (!$window(@sba1.plist)) { window -hl @sba1.plist | PLISTBUF lee }
    else { window -hl @sba1.plist }
  }
  guilista @sba sba.ls1.plist
}

alias SBAPLISTCLICK {
  if (!%plista.donde) { %plista.donde = - }
  if (!$gettok($3-,3,8)) return
  if $1 == 2 { unset %mp3.rnd | zplay %plista.donde $gettok($3-,3,8) | %mp3.pl = $2 | marcaplista | .timerTTTIPMP3 off }
  if $1 == 1 { .timerTTTIPMP3 -m 1 300 TTTIPMP3 $gettok($3-,3,8) }
}
;EOF