alias cc1 return $+($chr(3),01,$1-)
alias cc2 return $+($chr(3),10,$1-)
on *:part:#: if ($nick == $me) remini chans.ini $chan
on *:invite:#: {
  if ($me == CookieScript) {
    if (!$readini(chans.ini,$chan,nick)) {
      var %c $gettok([01] $null,$r(1,2),32)
      .notice CookieScript $+ %c JOIN $chan
      msg #CookieScript $cc1( •••) $cc1($chr(40)) $+ $cc2(INVITE) $+ $cc1($chr(41)) $cc1(I was invited to) $cc2($chan) $cc1(by) $cc2($nick) $+ $cc1(.) $cc1(I sent:) $cc2(Grr $+ %c)
      set %j $+ $chan $nick
    }
    else msg #CookieScript $cc1( •••) $cc1($chr(40)) $+ $cc2(INVITE) $+ $cc1($chr(41)) $cc2($nick) $cc1(tried inviting me to) $cc2($chan) $cc1(but) $cc2($readini(chans.ini,$chan,nick)) $cc1(was already on the channel.)
  }
}
on *:notice:JOIN *:?: {
  if ($nick == CookieScript) {
    if ($chan(0) == 30) || ($me ison $2-) $iif($me !ison $2-,.notice Cookiescript REJOIN $2-)
    else $1-
  }
}
on *:notice:REJOIN *:?: {
  if ($me == CookieScript) {
    .notice CookieScript $+ $gettok([01] $null,$r(1,2),32) JOIN $2-
  }
}
on *:join:#: {
  if ($me != CookieScript) { halt }
  if ($nick == $me) {
    msg # 1••• (10JOIN1):10 $me 1bot has joined $chan - Bot tag:10 $right($iif($me == CookieScript,[00],$me),4) - 1Made by: 10Omg1 - Invited by:10 $iif(%j [ $+ [ $chan ] ],$v1,[Auto-Join]) 1- Any problems? Join #Innocence to tell us! 1- Try out DropParty 10/invite dropparty $chan 1-
    if ($($+(%,j,$chan),2)) unset %j $+ $chan
    writeini chans.ini $chan nick $me
  }
}

on $*:TEXT:/^[!@~.^](part|leave|gtfo)/Si:#: {
  if ($nick isop $chan || $nick ishop $chan) && ($2 == $me) || ($2 == All) {
    remini chans.ini $chan
    .msg #CookieScript Ive been parted from $chan by10 $nick $+ 1. Reason:10 $iif($3,$3-,No Reason)
    part $chan 1Requested by10 $+($nick,.) 1You can invite me back in by doing 10/invite $me $chan
  }
}

on *:KICK:#: {
  if ($knick == $me) { .msg #CookieScript I was kicked from $chan by10 $nick $+ 1. Reason:10 $1-
    remini chans.ini $chan
  }
}


on $*:TEXT:/^[!@.]blchan/Si:#: {
  if (%admin [ $+ [ $address($nick,2) ] ] == yes) {
    if (%blackl [ $+ [ $2 ] ] == Yes) { notice $nick $2 is already blacklisted. | halt }
    set %blackl $+ $2 YES
    set %blackreason $+ $2 $iif($3,$3-,No Reason)
    notice $nick Channel $2 has been blacklisted!
  }
}
on $*:TEXT:/^[!@.]rblchan/Si:#: {
  if (%admin [ $+ [ $address($nick,2) ] ] == Yes) {
    if (%blackl [ $+ [ $2 ] ] != Yes) { notice $nick $2 has not been blacklisted before. | halt }
    unset %blackl $+ $2
    unset %blackreason $+ $2
    notice $nick Channel $2 has been un-blacklisted!
  }
}