/ScriptServ

;IRcap8 96ad3ce0e2c106d2673ab845e446de10
alias setup_mp3player {
  %setup.mp3.i = $iif(i isincs %mp3flag,on,off)
  %setup.mp3.x = $iif(x isincs %mp3flag,on,off)
  cuagi @setup 132 220 436 92 gui $s(269)
  cuagr @setup 132 72 436 128
  %setup.op = 144 88 #LlegaSonido $s(270) |160 104 setup.mp3.i/setupmp3v $s(271) |144 160 setup.mp3.x/setupmp3v $s(272) |144 132 #mp3playrcvd $s(273) |420 88 #enviofichero $s(282)
  %setup.tx = 144 236 412  banner.mp3
  %setup.bt = 144 256 68 SETUPmp3b_1 $s(147) |240 256 68 SETUPmp3b_2 $s(274) |144 284 68 ircapweb_ayuda $s(281)
  %setup.cb = 460 288 88 mp3.banner $s(275) $+ /MSG/AMSG/ME/AME $+ $s(276) |460 264 88 mp3.ctcp $s(277) $+ SOUNDMP3 $+ $s(278)
}
alias setupmp3v {
  %mp3flag = $remove(%mp3flag,i,x)
  if (%setup.mp3.i == on) %mp3flag = %mp3flag $+ i
  if (%setup.mp3.x == on) %mp3flag = %mp3flag $+ x
}

alias SETUPmp3b {
  goto $1
  :1 | write $nofile(%perfil) $+ bannersmp3.txt %banner.mp3 | var %a = $?!=" $mg(guardado) " | return
  :2 | loads listador | $listador($mg2(mp3ba),$mg(aceptar),$nofile(%perfil) $+ bannersmp3.txt,setupmp3b mp3 <item>,1) | return
  :mp3 | if $2- != $null { %banner.mp3 = $2- } | muestrasetup
}
alias -l S return $hget(setup,$1)
alias -l MG2 return $replace($readini(lng\ $+ %idioma $+ \setup.ini,setup,$1),&1,$2,&2,$3,&3,$4,&4,$5)

;EOF-dt