!join and !leave for Aotik

ON !*:TEXT:*:#: {
  tokenize 32 $strip($1-,burci)
  if ($1 == !join) {
    var %c = $chr(35) $+ $nick
    if ($me ison %c) { .msg $chan ( $+ $nick $+ ): Error, I am already into $qt(%c) channel! | return }
    set %chans $addtok(%chans,%c,44)
    .join -n %c
  }
  if ($1 == !leave) || ($1 == !part) {
    set %chans $remtok(%chans,$chan,1,44)
    .part $chan Supporting Deleted!
  }
}

ON *:CONNECT: {
  if (%chans) { .timer[JOIN_SUPPORT] 1 3 join -n %chans }
}