on 1:input:*: {
  if (!%co1) || (!%co2) { echo -a Please set the colors in the menu, or disable the talker. | halt }
  elseif (/ !iswm $left($1,1)) && (Status Window !iswm $active) && (!$regex($1,/^(\.|!)/)) {
    var %x 1
    while (%x <= $gettok($1-,0,32)) {
      var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
      var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
      inc %x
    }
    msg $active %text
    halt
  }
  if ($regex($1,/^(\.|!)/)) {
    msg $active $1-
  }
}