Miscellany

on *:INVITE:#: { 
  if ($+(*,$chr(44),*) iswm $chan) { notice $Nick I can not/will not join $chan because it has a comma and could be a part all channel. } 
  if ($chan(0) >= 15) { 
    .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 != Ailebot) { halt } 
  .ctcp $nick CCOUNT $chan(0) 
} 
ctcp *:CCOUNT:?: { 
  if ($me != Ailebot) { halt } 
  if ($2 < 35 && %jchan) { .ctcp $nick ENTER %jchan | .unset %jchan } 
} 
ctcp *:ENTER:?: { 
  if ($nick != Ailebot) { halt } 
  .join $2 
}