alias setcolour { if ($1 == 0 || !$1) { echo -a $timestamp > 11Text colour 13Unset11. | unset %textcolour }
  else { set %textcolour $base($1,10,10,2) | echo -a $timestamp > 11Text colour changed to $+(13,%textcolour,11.) }
}
alias x1 return $+($chr(3),%textcolour,$1-,$chr(15))
on *:INPUT:*: {
  if (/* !iswm $1- && c !isincs $chan(#).mode && !seen !== $1 && !$inpaste) {
    if ($1 ison $active || $1 == $active) {
      haltdef
      say $replacecs($1-,$1,11»{13 $1 11}«,$2-,$x1($2-),<3,6<133,$+(:,$chr(41)),$+(13:11,$chr(41),),$+($chr(41),:),$+(11,$chr(41),13:),:],13:11],:\,13:11\,:D,13:11D,D:,11D13:,:P,13:11P,:p,13:11p,$+(:,$chr(40)),$+(13:11,$chr(40),),$+($chr(40),:),$+(11,$chr(40),13:),$+(:,$chr(36)),$+(13:11,$chr(36),),$+($chr(36),:),$+(11,$chr(36),13:),:S,13:11S,:s,13:11s,s:,11s13:,xD,13x11D,Dx,11D13x,x],13x11],$+(;,$chr(41)),$+(13;11,$chr(41),),$+($chr(41),;),$+(11,$chr(41),13;),;],13;11],:o,13:11o,o:,11o13:,:O,13:11O,O:,11O13:,:<,13:11<,<:,11<13:,:>,13:11>,>:,11>13:,:F,13:11F,F:,11F13:,:E,13:11E,E:,11E13:,:x,13:11x,x:,11x13:,>.>,11>13.11>,<.<,11<13.11<,>.<,11>13.11<,o.O,11o13.11O,O_O,11O13_11O,O.o,11O13.11o,;o,13;11o,o;,11o13;,;D,13;11D,;p,13;11p,^_^,11^13_11^,<_<,11<13_11<,>_>,11>13_11>)
    }
    else { haltdef
      say $replacecs($1-,$1-,$x1($1-),<3,6<133,$+(:,$chr(41)),$+(13:11,$chr(41),),$+($chr(41),:),$+(11,$chr(41),13:),:],13:11],:\,13:11\,:D,13:11D,D:,11D13:,:P,13:11P,:p,13:11p,$+(:,$chr(40)),$+(13:11,$chr(40),),$+($chr(40),:),$+(11,$chr(40),13:),$+(:,$chr(36)),$+(13:11,$chr(36),),$+($chr(36),:),$+(11,$chr(36),13:),:S,13:11S,:s,13:11s,s:,11s13:,xD,13x11D,Dx,11D13x,x],13x11],$+(;,$chr(41)),$+(13;11,$chr(41),),$+($chr(41),;),$+(11,$chr(41),13;),;],13;11],:o,13:11o,o:,11o13:,:O,13:11O,O:,11O13:,:<,13:11<,<:,11<13:,:>,13:11>,>:,11>13:,:F,13:11F,F:,11F13:,:E,13:11E,E:,11E13:,:x,13:11x,x:,11x13:,>.>,11>13.11>,<.<,11<13.11<,>.<,11>13.11<,o.O,11o13.11O,O_O,11O13_11O,O.o,11O13.11o,;o,13;11o,o;,11o13;,;D,13;11D,;p,13;11p,^_^,11^13_11^,<_<,11<13_11<,>_>,11>13_11>)
    }
  }
}