;;join
on *:TEXT:*:#:{
   if ($1 == .join) {
    if ($ulevel >= 3) {
        if (!$2) {
          .msg $chan [Join] Invalid Syntax
        }
        elseif ($me ison $2) {
          .msg $chan [Join] I am already in $2
        }
        elseif (#* !iswm $2) {
          .msg $chan [Join] $2 is not a proper channel.
        }
        elseif (*,* iswm $2) {
          .msg $chan [Join] $2 is a blocked channel. Reason: blacklisted
        }
        else {
          set %j.chan $2
          set %jj.chan $chan
          set %jj.nick $nick
          join $2 $3
          write settings.txt [Join] Channel: $2
          write settings.txt [Join] Admin: $nick
          write settings.txt [Join] Time: $asctime
          .msg $chan [Join] I have successfully joined $2
    }
  }
}
raw 403:*:{ .msg $chan [Join] No such channel }
raw 405:*:{ .msg $chan [Join] Target change too fast. Please wait a few seconds }
raw 439:*:{ .msg $chan [Join] You have joined too many channels }
raw 471:*:{ .msg $chan [Join] Cannot join $2 $+ . Reason: (+l)  }
raw 473:*:{ .msg $chan [Join] Cannot join $2 $+ . Reason: (+i)  }
raw 474:*:{ .msg $chan [Join] Cannot join $2 $+ . Reason: (+b)  }
raw 475:*:{ .msg $chan [Join] Cannot join $2 $+ . Reason: (+k)  }