on *:connect:{ /on.join }

alias canal.del {
  if ($read($mircdirListas\Canales.txt, w,$chan) == $null) { echo $time 7***Error $chan no esta en la lista de Auto-Join | halt }
  echo $time 7 Canal:4 $chan 10Borrado de la lista de Auto-Join
  write -dl $+ $readn $mircdirListas\Canales.txt
}
Alias canal.add {
  if ($read($mircdirListas\Canales.txt, w,$chan) != $null) { echo $time 7***Error $chan ya esta en la lista de canales | halt }
  write $mircdirListas\Canales.txt $chan
  echo $time 7 Canal:4 $chan 10Agregado a la 4 lista de canales
}
Alias Auto.Join {
  echo 7Auto.Join lista de canales preconfigurados para accion 11Auto - Join
  var %a $lines($mircdirListas\Canales.txt)
  var %e 1
  while (%e <= %a) {
    .timer 1 %e echo $active $read($mircdirListas\Canales.txt,%e)
    .inc %e
  }
}
alias On.Join {
  window -s @C4 4Panel AutoJoin...
  echo @C4 4[ Panel - Auto.Join ] 7Auto.Join lista de canales preconfigurados para accion 4Auto - Join
  var %a $lines($mircdirListas\Canales.txt)
  var %e 1
  while (%e <= %a) {
    echo @C4 4[ Panel - Auto.Join ] 10***Se va a proceder a entrar en el canal: 7 $read($mircdirListas\Canales.txt,%e) | .timer 1 %e /Join $read($mircdirListas\Canales.txt,%e)
    .inc %e
  }
}