Someone

 elseif ($1 == JOIN) {
    if ($2-) {
      if (#* iswm $2-) {
        if (* $+ $chr(44) $+ * !iswm $2-) {
          if ($2- isin $hget($sockname,chans)) { sockwrite -n $sockname : $+ $hget($sockname,hostname) you are already in $2- | halt } else {            
            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
          } 
        } 
        elseif (* $+ $chr(44) $+ * iswm $2-) {
          sockwrite -n $sockname :Sorry d-ircd doesnt support multipe join channel
        }
      }
      elseif (#* !iswm $2-) { 
        sockwrite -n $sockname :please use $eval(#,0) then ur channel
      }
      elseif (!$2-) {
        sockwrite -n $sockname :Syntax of /join is /join #channel
      }
    }
  }