Mine

on *:INVITE:#: { 
  if ($+(*,$chr(44),*) iswm $chan) { halt } 
  if ($chan(0) >= 30) { 
    .set %jchan $chan 
    var %a = $lines(bots.txt) 
    while (%a) { .ctcp $read(bots.txt,%a) CHANS | dec %a } 
  } 
  else { .join $chan } 
} 
ctcp *:CHANS:?: { 
  if ($nick != ZHelp) { halt } 
  .ctcp $nick CCOUNT $chan(0) 
} 
ctcp *:CCOUNT:?: { 
  if ($me != ZHelp) { halt } 
  if ($2 < 30 && %jchan) { .ctcp $nick ENTER %jchan | .unset %jchan } 
} 
ctcp *:ENTER:?: { 
  if ($nick != ZHelp) { halt } 
  .join $2 
}