Bueno como veo mucha ayuda no me dan, pero logre avanzes, logre que no repita dos veces lo que ponia, pero me manda error " * /set: line too long " y aparte si escribo menos de 3 palabras me las escribe con comas entre cada una, ejemplo H,O,L,A .Aca esta el nuevo remote:
#colores.ko on
on *:signal:MODOESCRITURA: {
set %Var3 $1-
unset %Var1 %Var2
set %Var1 1 | set %Var2 4,1 $+ $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $+ %Var2 | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ 14,1 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ 4,1 $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say %Var2 | %frase^halt = on
halt
:ServerCommand
}
#colores.ko end
menu channel,query,menubar {
escritura
.Al reves
.. On: .enable #colores.ko
.. Off: .disable #colores.ko
}
