Colour Changer (1 through 13).

on *:input:*:{ 
  if (%mycolor > 13) {
    set %mycolor 1 
  }
  elseif (/* !iswm $1) && (!$ctrlenter) { 
    set %mycolor $calc(%mycolor + 1)
    var %message1  $+ %mycolor $+ $1-
    say %message1
    halt 
  }
}