AUTO JOIN

dialog autojoin {
  title "¤¤ Auto-Join ¤¤"
  size -1 -1 170 261
  button "Enregistrer", 1, 7 210 155 24, ok
  box "Option / Entrer un channel", 2, 2 120 166 138
  list 3, 8 17 155 100 
  edit "", 4, 8 135 154 22, autohs
  button "&Ajouter", 5, 7 160 74 24
  button "&Modifier", 6, 87 160 74 24
  button "&Supprimer", 7, 7 185 74 24
  button "&Joindre tout", 8, 87 185 74 24
  check "Activer / Désactiver", 10, 9 235 120 21
  box "Salons", 11, 2 2 166 117
}

on *:dialog:autojoin:init:*:{
  did -b autojoin 5,6,7
  if ($group(#autojoin) == ON) { did -c autojoin 10 }
  if (%autojoin.delai !== $null) { did -a autojoin 13 %autojoin.delai }
  autojoin.update
}

on *:dialog:autojoin:edit:*:{
  if ($did(4) == $null) { did -b autojoin 5,6 }
  else { did -e autojoin 5,6 }
  if ($did(3).sel == $null) { did -b autojoin 6 }
  else { did -e autojoin 6 }
  if ($left($did(4),1) !== $chr(35)) { var %autojoin.edit = $chr(35) $+ $did(4) }
  else { var %autojoin.edit = $did(4) }
  if ($findtok(%autojoin.canaux,%autojoin.edit,0,44) == 1) { did -b autojoin 5,6 }
  if ($did == 13) {
    if ($did(13) !isnum) { did -r autojoin 13 | unset %autojoin.delai }
    else { set %autojoin.delai $did(13) }
} }
on *:dialog:autojoin:sclick:*:{
  if ($did == 5) {
    if ($left($did(4),1) !== $chr(35)) { var %autojoin.ajout = $chr(35) $+ $did(4) }
    else { var %autojoin.ajout = $did(4) }
    set %autojoin.canaux $sorttok($addtok(%autojoin.canaux,%autojoin.ajout,44),44)
    autojoin.update
  }
  elseif ($did == 6) {
    if ($left($did(autojoin,4),1) !== $chr(35)) { var %autojoin.modif = $chr(35) $+ $did(4) }
    else { var %autojoin.modif = $did(4) }
    set %autojoin.canaux $sorttok($reptok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),%autojoin.modif,1,44),44)
    autojoin.update
  }
  elseif ($did == 7) {
    set %autojoin.canaux $remtok(%autojoin.canaux,$gettok(%autojoin.canaux,$did(3).sel,44),44)
    autojoin.update
  }
  if ($did == 3 && $did(3).sel !== $null) { did -ra autojoin 4 $did(3,$did(3).sel) }
  elseif ($did == 8) { if ($server != $null) { autojoin.join } }
  elseif ($did == 10) {
    if ($did(10).state == 0) { .disable #autojoin }
    else { .enable #autojoin }
  }
  if ($did(3).sel == $null) { did -b autojoin 5,6,7 }
  else { did -e autojoin 6,7 }
  if ($did == 3) { did -b autojoin 6 }
}
alias autojoin.update {
  did -r autojoin 3,4
  if (%autojoin.canaux !== $null) {
    did -e autojoin 8,10
    var %autojoin.loop.n = 1
    :loop
    did -a autojoin 3 $gettok(%autojoin.canaux,%autojoin.loop.n,44)
    inc %autojoin.loop.n
    if ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) { goto loop }
  }
  else {
    unset %autojoin.canaux
    .disable #autojoin
    did -ub autojoin 8,10
} }
alias autojoin.join {
  var %autojoin.loop.n = 1
  while ($gettok(%autojoin.canaux,%autojoin.loop.n,44) !== $null) { 
    if (%autojoin.delai !== $null) { .timer 1 $calc(%autojoin.delai * %autojoin.loop.n) join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
    else { join $gettok(%autojoin.canaux,%autojoin.loop.n,44) }
    inc %autojoin.loop.n
} }
#autojoin on
on *:connect:autojoin.join
#autojoin end
}