Change event, message, and highlight colours via script.
alias display {
if ($istok(event message highlight,$1,32)) {
if (!$com($wsh)) {
.comopen $wsh wscript.shell
if (!$comerr) && ($com($wsh)) {
var %keys = $+($(%o,),$str(LLD,8),$str(LLU,8),DDDDD)
if ($1 = event) %keys = %keys $+ $str(T,10)
if ($1 = message) %keys = %keys $+ $str(T,11)
if ($1 = highlight) %keys = %keys $+ $str(T,12)
noop $com($wsh,sendkeys,1,string,$keystroke(%keys))
%keys = $+($str(U,17),$str(D,$iif($2 isnum,$2,0)),~)
.comclose $wsh $com($wsh,sendkeys,1,string,$keystroke(%keys))
}
}
}
}
alias -l keystroke return $replace($1,D,{DOWN},T,{TAB},U,{UP},L,{LEFT})
alias -l wsh return obj.display.options