autojoin v2

on *:start:{
 s irc.freenode.org -i nick altnick- ident fullname goes here
}

on *:connect:{
  if ($network == freenode) { .mode $me +ix }
  .timer 1 6 join -n %aj. [ $+ [ $network ] ]
}

on *:NOTICE:*This nickname is registered*:*:{
  if ($nick == NickServ) && ($network == freenode) { .ns id YOURNickServPWDHERE }
}

menu status {
  Autojoin on $network
  .List
  ..$submenu($channel_list($1))
  .Join list now:join -n %aj. [ $+ [ $network ] ]
}

menu channel {
  Autojoin on $network
  .Add $chan:set $+(%,aj,.,$network) $addtok($eval($+(%,aj,.,$network),2),$chan,44)
  .Remove $chan:set $+(%,aj,.,$network) $remtok($eval($+(%,aj,.,$network),2),$chan,44)
  .-
  .Join list now:join -n %aj. [ $+ [ $network ] ]
  .-
  .$submenu($channel_list($1))
}

alias channel_list {
  if ($istok(begin end,$1,32)) return -
  else return $gettok($($+(%,aj.,$network),2),$1,44) :noop
}