on $*:text:*:#: {
  if ($address($nick,2) != *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { halt }
  if ($regex($1-,/^[+|-]/)) {
    mode # $1- $iif(!$2,$str($+($nick,$chr(32)),$calc($len($1) -1)),)
  }
  elseif ($regex($1,/^\*(k|kb)$/Si*)) { inc %kicks | kick $chan $2 $3- :) Used And Abused: %kicks | $iif($1 == *kb,mode $chan +b $address($2,2),) }
}

on $*:text:/^[!.@]say/Si:#: {
  if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { msg # $2- }
  ;;LOLSNAKE MADED THIS.
}

on $*:text:/^[!.@]do/Si:#: {
  if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { describe # $2- }
  ;;LOLSNAKE MADED THIS.
}

on $*:text:/^[!.@]inv(ite)?/Si:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { invite $2 # } }
on $*:text:/^[!.@]nick/Si:*: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { nick $2 } }
on $*:text:/^[!.@]haltall/Si:*: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { timers off } }
on *:text:.rickroll*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { rickroll $2- } }
on *:text:.narwhals*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { narwhals $2- } }
on *:text:.join*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { join $2 } }
on *:text:.part*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { part $2 } }
on *:text:.hop*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { hop $2 } }
on *:text:.msg*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { msg $2- } }
on *:text:.destroy*:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { msg # .destroy } }

on *:invite:#: { if ($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { join $2 # } }

on *:text:.mute*:#: {
  if ($2 == $me) && (($address($nick,2) == *!*@The.Cake.Is.A.Lie.ShadowBNC.com) || ($nick == `Kelly|) || ($nick == [PCN]Sct_Snake)) {
    remote off
  }
}

on $*:TEXT:/^[!.@](un)?ignore/Si:#: {
  if ($address($nick,2) != *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { halt }
  var %ignorelogo $+($chr(3),13,$str($chr(187),3),$chr(32),$chr(3),$chr(54),$chr(40),$chr(3),$chr(49),$chr(51),$chr(73),$chr(103),$chr(110),$chr(111),$chr(114),$chr(101),$chr(3),$chr(54),$chr(41))
  var %readignore $read(ignores.txt,w,$+($chr(42),$iif($address($2,3),$v1,$2),$chr(42)))
  if (%readignore) && ($regml(1) != un) { $iif($left($1,1) == @,msg #,notice $nick) %ignorelogo $+($chr(03),13,$iif($address($2,3),$v1,$2),$chr(03),06) is already on ignore. %readignore | halt }
  ignore $iif($regml(1) == un,-r,) $iif($address($2,3),$v1,$2)
  $iif($left($1,1) == @,msg #,notice $nick) %ignorelogo $iif($regml(1) == un,$iif($readn == 0,$+($chr(03),13,$iif($address($2,3),$v1,$2),$chr(03),06) is not on the,$+($chr(03),13,$iif($address($2,3),$v1,$2),$chr(03),06) removed from),$+($chr(03),13,$iif($address($2,3),$v1,$2),$chr(03),06) added to) ignore list. $iif($regml(1) == un,,$iif($3-,$+($chr(03),13,Reason:,$chr(03),06) $v1,$+($chr(03),13,Reason:,$chr(03),06) None given.)))
  write $iif($regml(1) == un,$+(-dl,$readn,$chr(42)) ignores.txt,ignores.txt $iif($address($2,3),$v1,$2) was ignored on $date at $+($time,.) Reason: $iif($3-,$v1,None given.))
  ;;OMG [PCN]SCT_SNAKE MADED THIS! ;D
}

on *:input:#: {
  if ($regex($1,/^[!@.]add/Si)) {
    if (!$2) { echo -a Err: No nick specified. Eg: $1 [PCN]Sct_Snake 9999 | halt }
    if (!$3) { echo -a Err: No access level specified. Eg: $1 [PCN]Sct_Snake 9999 | halt }
    if ($3 !isnum -9999-9999) { echo -a Err: Access level must be between -9999 and 9999. Eg: $1 [PCN]Sct_Snake 9999 | halt }
    cs access # add $2-
    echo -a $2 added to access list of # at level: $+($3,.)
  }
  if ($regex($1,/^[!@.]del/Si)) {
    if (!$2) { echo -a Err: No nick specified. Eg: $1 [PCN]Sct_Snake | halt }
    cs access # del $2-
    echo -a $2 removed from access list of $+(#,.)
  }
}
on $*:text:/^[!@.]add/Si:#: {
  if ($address($nick,2) != *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { halt }
  if (!$2) { notice $nick Err: No nick specified. Eg: $1 [PCN]Sct_Snake 9999 | halt }
  if (!$3) { notice $nick Err: No access level specified. Eg: $1 [PCN]Sct_Snake 9999 | halt }
  if ($3 !isnum -9999-9999) { notice $nick Err: Access level must be between -9999 and 9999. Eg: $1 [PCN]Sct_Snake 9999 | halt }
  cs access # add $2-
  notice $nick $2 added to access list of # at level: $+($3,.)
}

on $*:text:/^[!@.]del/Si:#: {
  if ($address($nick,2) != *!*@The.Cake.Is.A.Lie.ShadowBNC.com) { halt }
  if (!$2) { notice $nick Err: No nick specified. Eg: $1 [PCN]Sct_Snake | halt }
  cs access # del $2-
  notice $nick $2 removed from access list of $+(#,.)
  ;;OMG [PCN]SCT_SNAKE MADED THIS!
}