on *:JOIN:#:{
  if (BotNick isin $me) {
    write BotIn.txt $chan
  }
}
on *:INVITE:#:{
  if (BotNick isin $me) {
    if ($read(BotIn.txt,w,$chan)) { ;if a bot is in the channel;
      notice $nick There is a limit to one bot per channel, if this is in error please report to #BotChannel 
    }
    else {
      join $chan
      msg $chan $botgreet
    }
  }
}
on *:Kick:#:{ 
  if (BotNick isin $me) {
    write $+(-ds,$chan) BotIn.txt
  }
}
on *:Part:#:{
  if (BotNick isin $me) {
    write $+(-ds,$chan) BotIn.txt
  }
}