on *:INPUT:#:{ 
  if ( %con == on ) {
    if ( $left($1-,1) != / ) { 
      say $replace($1-,$1-,%colour $+ $1-) | halt
    }
  }
}

alias con {
  set %con on
}

alias coff {
  unset %con
}

alias colour {
  if ( $1 == blue ) { set %colour 12 }
  if ( $1 == red ) { set %colour 4 }
  if ( $1 == green ) { set %colour 3 }
  if ( $1 == $null ) { set %colour 1 }
  if ( $1 == brown ) { set %colour 5 }
  if ( $1 == teal ) { set %colour 10 }
  if ( $1 == yellow ) { set %colour 8 }
  if ( $1 == gray ) { set %colour 14 }
  if ( $1 == purple ) { set %colour 6 }
  if ( $1 == orange ) { set %colour 7 }
  if ( $1 == pink ) { set %colour 13 }
}