on *:JOIN:#:if ( ( $nick == DragonKnight ) && ( *.purplesurge.com iswm $server ) ) set %ajoin $addtok(%ajoin,$chan,32)
on *:PART:#:if ( ( $nick == DragonKnight ) && ( *.purplesurge.com iswm $server ) ) set %ajoin $remtok(%ajoin,$chan,32)
alias ajoin {
  var %count = 1
  while ( %count <= $numtok(%ajoin,32) ) {
    join $gettok(%ajoin,%count,32)
    inc %count 1
  }
}
on *:LOAD:{
  var %count = 1
  var %count = 1
  while ( %count <= $scon(0) ) {
    scon %count
    if ( ( $me == DragonKnight ) && ( *.purplesurge.com iswm $server ) ) break
    inc %count 1
  }
  var %count = 1
  while ( %count <= $chan(0) ) {
    set %ajoin $addtok(%ajoin,$chan(%count),32)
    inc %count 1
  }
}