on *:join:#: { 
  if ($nick == $me) { 
    autojoin1 
  } 
} 
alias autojoin1 { 
  set $+(%,autjoin.,$network) 
  var %Chan 1
  While (%chan <= $chan(0)) { 
    set  $+(%,autojoin.,$network) $($+(%,autojoin.,$network),2) $chan(%chan)
    inc %chan 
  } 
  echo -a $($+(%,autojoin.,$network),2)
} 
alias autojoin { 
  join $replace($($+(%,autjoin.,$network),2),$chr(35)),$chr(44))
}