$iif(\1 isletter,$+(05,$left(\1,1),14,$right(\1,-1)),04\1))

on *:input:*:{ if (%c1talk && /* !iswm $1) { var %^ $+($upper($left($1,1)),$right($1-,-1)) | say $regsubex(%^,/(\w+|(?!\s)\W)/g,$iif(\1 isletter,$+(05,$left(\1,1),14,$right(\1,-1)),04\1)) | haltdef } }
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Color Talker  
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
menu * {
  .Turn Color Talker $iif(!%c1talk,ON,OFF):{ $iif(!%c1talk,set %c1talk on,unset %c1talk) | echo -a Color Talker Is Now $iif(%c1talk,ON,OFF) }
}