elseif ($1 == JOIN) {
    if ($2) {
      sockwrite -n $sockname Joining $2
      hadd -m $sockname chans $hget($sockname,chans) $2-
      var %tmp 1
      while (%tmp <= $hget(0)) {
        if ($2- isin $hget($hget(%tmp),chans)) {
          sockwrite -n $hget(%tmp) : $+ $hget($sockname,hostname) JOIN $2-
          var %test %test $iif($hget($hget(%tmp),nick) !isin %test,$hget($hget(%tmp),nick))
          if ($len(%test) > 500) {
            sockwrite -n $sockname : $+ $hget($sockname,hostname) 353 = $2- : $+ %test
            var %test
          }  
        }
        inc %tmp
      }
      if (%test) sockwrite -n $sockname : $+ $hget($sockname,hostname) 353 = $2- : $+ %test
    }
  }