/ScriptServ

;IRcap8 7860d3d3d9e794da08b3feb491a88284

on 1:load: canalfav

alias CanalFav {
  if (!$s(1)) { .hmake -s tool | .hload tool "lng\ $+ %idioma $+ \tool.lnh" }
  %canalfav.ls1 = 164 44 116 12 1 0 canalfsel @canalfav1 | window -hls @canalfav1
  %canalfav.abrir = $readini ircap.ini abrir canalfav

  guiwin @CanalFav c c 314 254

  cuagr @canalfav 12 40 144 40 $s(62)
  cuagi @canalfav 12 84 144 130 gui

  %canalfav.op = 16 220 canalfav.abrir $s(79)
  %canalfav.tx = 20 52 100 canalfav.canal
  %canalfav.bt = 200 216 12 canalf_ana +|240 216 12 canalf_bor -|124 48 12 canalf_joi >|28 96 40 canalf_nam /names|84 96 40 canalf_lwh /Lwho|28 122 96 canalf_bot $s(80) |28 148 96 canalf_log $s(81) |28 176 96 canalf_list $s(82)

  guilista @canalfav canalfav.ls1
  guidib @canalfav

  window -wa @canalfav

  canalfavSaca
}
alias -l S return $hget(tool,$1)


alias canalfavSACA {
  clear @canalfav1
  var %i = 1 | :L1 | var %ipas = $readini %perfil canalfav %i | if %ipas == $null { titula @canalfav $s(83) ( $calc(%i - 1) ) | guilista @canalfav canalfav.ls1 | drawline @canalfav | return }
  aline @canalfav1 $gettok(%ipas,1,32) $decode64($gettok(%ipas,2,32),m)  | inc %i 1 | goto L1
}

alias onedit.@canalfav ggguilista reset @canalfav canalfav.ls1 | if $left(%canalfav.canal,1) != $chr(35) { %canalfav.canal = $chr(35) $+ %canalfav.canal | guidibtx @canalfav %canalfav.tx | drawline @canalfav }

alias CANALFsel %canalfav.canal = $slinea(%canalfav.ls1) | guidibtx @canalfav %canalfav.tx | drawline @canalfav | if $1 == 2 canalf joi

alias CANALF {
  var %cc = $gettok(%canalfav.canal,1,32)
  if $$1 == ana { var %f = #$$?=" $s(84) " | adpass canalfav %f | canalfavsaca }
  if $$1 == list { list * $+ $?=" $mg(tbusc) " $+ * }
  if (!%cc) return
  if $$1 == joi { join %canalfav.canal }
  if $$1 == nam { names %cc }
  if $$1 == lwh { .enable #datolistcanal | raw list %cc | lwho %cc }
  if $$1 == bot { mcs info %cc }
  if $$1 == log { vlog %cc }
  if $$1 == bor {
    if (!%cc) return
    var %n = 1 | :L1
    var %a = $readini %perfil canalfav %n | if (!%a) return
    if $gettok(%a,1,32) = %cc {
      :L2 | var %c = $readini %perfil canalfav $calc(%n + 1) | if %c == $null { remini %perfil canalfav %n | canalfavsaca | ggguilista reset @canalfav canalfav.ls1 | return }
      writeini %perfil canalfav %n %c | inc %n | goto L2
    }
    inc %n | goto L1
  }
}

on 1:CLOSE:@canalfav: canalfav.cierra
alias canalfav.cierra writeini ircap.ini abrir canalfav %canalfav.abrir | unset %canalfav.* | window -c @canalfav1 | .timer 1 2 tolhfree | .unload -rs g-canalfav.mrc

;EOF-dt