Miscellany

ON *:INVITE:#:{
if ($me != Boot) notice $nick Please invite Boot instead: /invite Boot $chan
  if ($isignored($nick) || ($chan == #rsmarket) || ($chan == #finalownage)) halt
  if (*price* iswm $chan && $chan != #RsPrices) halt
  if (*value* iswm $chan) halt
  IF (%kicked. [ $+ [ $chan ] ] >= 3) {
    notice $nick *** [7Invitation]: I have been kicked from $chan 3 times. Channel is Blacklisted. $&
Talk to Booty if you want me to rejoin again.
    halt
  }
  else {
    if ($chan(0) >= 30) {
  set -u15 %invitedby $nick
  set -u15 %invitedchan $chan
var %x = 1
while ($read(Bots.txt,%x)) .ctcp $read(bots.txt,%a) CHANS | inc %x
}
else {
join $chan
    set -u15 %invited. [ $+ [ $chan ] ] $nick
    %autojoin.channels = %autojoin.channels $+ , $+ $chan
  }
}
  set -u15 %invitedby $nick
  set -u15 %invitedchan $chan
} 

ctcp *:CHANS:?: { 
  if ($nick != Boot) { halt } 
  .ctcp $nick CCOUNT $chan(0)
  halt 
} 
ctcp *:CCOUNT:?: { 
  if ($me != Boot) { halt } 
  if ($2 < 30 && %invitedchan) { .ctcp $nick ENTER %invitedchan %invitedby } 
  halt
} 
ctcp *:ENTER:?: { 
  if ($nick != Boot) { halt } 
  .join $2 
  halt
}