Resulta complicado fusionar el primer evento con un alias. Da la casualidad de el código del "signal" que muestras "lo conozco bien", así que prefiero crear un nuevo evento que haga (creo) lo que pides. Sería algo así:
;==========================================
; FUSION (para ~Draco)
;==========================================
on *:signal:MODOESCRITURA: {
var %numeropalabras = $numtok($1-,32)
var %posicionpalabra = 1
var %negrita =
var %azul = 12
var %finazul =
var %finnegrita =
var %subrayado =
var %finsubrayado =
:relee
%frase^halt = on
var %iniciopalabra = $left($gettok($1-,%posicionpalabra,32),1)
var %restopalabra = $right($gettok($1-,%posicionpalabra,32),-1)
var %numeroletra = 1
while ( %numeroletra <= $len(%restopalabra) ) {
var %leoletrapar = $mid(%restopalabra,%numeroletra,1)
var %leoletraimpar = $mid(%restopalabra,$calc(%numeroletra + 1),1)
var %restopalabrasubrayada = %restopalabrasubrayada $+ %subrayado $+ %leoletrapar $+ %finsubrayado $+ %leoletraimpar
inc %numeroletra 2
}
var %palabra = %negrita $+ %iniciopalabra $+ %finnegrita $+ %azul $+ %restopalabrasubrayada $+ %finazul
var %frase = %frase %palabra
unset %restopalabrasubrayada
if ( %posicionpalabra == %numeropalabras ) { msg $active %frase | return }
inc %posicionpalabra
goto relee
}
Como verás he utilizado nombres de variables bien claros para que se entienda el funcionamiento y poder hacer facilmente los cambios si estos fueran necesarios.
Espero que sea de tu agrado, aunque cada vez me quedo más sorprendido por las cosas que pedís. ¿De verdad que hay canales por el IRC donde os permiten escribir escribir así sin un ban?
Saludos.
