/ScriptServ

;IRcap8 96ad3ce0e2c106d2673ab845e446de10
alias setup_cartel {
  cuagr @setup 136 90 140 25 $s(96)

  cuagr @setup 200 120 368 48

  %setup.op = 330 190 cartel.aw $s(287)

  %setup.cb = 330 142 220 cartel.m $s(288) $+  $+ ! $+ $s(289)

  %setup.ls1 = 145 106 150 14 1 0 returncartel.ONOFF @hash1 0,20,20

  cartel.lista
  guilista @setup setup.ls1
  guidib @setup
}

alias -l S return $hget(setup,$1)

alias CARTEL.LISTA {
  window -c @hash1 | window -hl @hash1

  var %t = $s(290)
  var %e = notifyunotifyquerynoticeinvitecuacctcpcondesconopdeopbankicksendfilercvfilesentflood
  var %i = 1

  while ($gettok(%t,%i,22)) {
    var %g = $gettok(%e,%i,22)
    aline @hash1 $replace($group(#cartel. [ $+ [ %g ] ]),on,#/#on,off,#/#off) $+ $chr(8) $+ %g $+ $chr(8) $+ $ifmatch
    inc %i
  }
}

alias cartel.ONOFF if (!%tmp.1click) { set -u1 %tmp.1click on | .timer1CLICK -mo 1 20 onoff $gettok($sline(@hash1,1),2,8) }
alias -l onoff {
  if $group(#cartel. [ $+ [ $1 ] ]) == on { .disable #cartel. [ $+ [ $1 ] ] } | else { .enable #cartel. [ $+ [ $1 ] ] }
  cartel.lista
  guilista @setup setup.ls1
  guidib @setup
  unset %tmp.1click
}

;EOF-dt