Someone

;on connect join chan
;;;;;;;;;;;;;;;commands;;;;;;;;;;;;;;;
;!autojoin <#channel>
;!removeautojoin <#channel>
;/autojoin joins all the channels on the list
;made by Cracky, edited by Foshizzle
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:CONNECT: { var %i = 1 
  if ($network == swiftIRC) {
    while (%i <= $lines(onjoin.txt)) { 
      /join $read(onjoin.txt, %i) 
      inc %i 
    } 
  } 
}

alias ajoin { var %i = 1 
  while (%i <= $lines(onjoin.txt)) { 
    /join $read(onjoin.txt, %i) 
    inc %i 
  } 
} 

on $*:TEXT:/^[!@.](auto|a(uto)?j(oin)?)/Si:#: { 
  if (($address($nick,2) == $address($me,2)) || ($nick isop $chan)) { 
    if ((!$2) || ($3)) { /notice $nick [JOIN] Incorrect Syntax: !autojoin #channel 
    } 
    elseif $read(onjoin.txt, w, $($+($2),2)) { /notice $nick [JOIN] Sorry $nick $+ , $2 is already on my autojoin list. 
    } 
    else { 
      /write onjoin.txt $2 
      /msg $2 [JOIN] $2 was added to my autojoin list by $nick $+ . 
      /notice $nick [JOIN] Thank you. $2 has now been added to my autojoin list. 
    } 
  } 
  else { /notice $nick [JOIN] You do not have permissions to do that. 
  } 
} 

on $*:TEXT:/^[!@.](rem(ove)?(auto|a(uto)?j(oin)?))/Si:#: { 
  if (($address($nick,2) == $address($me,2)) || $read(botstaff.txt, w, $nick)) { 
    if ((!$2) || ($3)) { /notice $nick [JOIN] Incorrect Syntax: !removeautojoin #channel 
    } 
    elseif !$read(onjoin.txt, w, $($+($2),2)) { /notice $nick [JOIN] Sorry $nick $+ , $2 is not on my autojoin list. 
    } 
    else { 
      /write $($+(-ds,$2),2) onjoin.txt 
      /msg $2 [JOIN] $2 was removed from my autojoin list by $nick $+ . 
      /notice $nick [JOIN] Thank you. $2 has now been removed from my autojoin list. 
    } 
  } 
  else { /notice $nick [JOIN] You do not have permissions to do that. 
  } 
}