Si eres de los que disfrutas siendo baneado de los canales por tu afición a poner colorines en tus textos, este es tu addon.
Ya sabes: copia, pega en un fichero de texto nuevo, etc, etc..
on *:UNLOAD: {
unset %frase.coloreada %leo.letra %color.fr | unload -rs $script
}
#multik-2000 off
on *:signal:MODOESCRITURA: {
var %n = 1 , %nc = 1
while ( %n <= $len( $1-) ) {
set %leo.letra $mid($1-,%n,1) | if ( %leo.letra == $chr(32) ) { set %leo.letra $chr(160) }
if ( %leo.letra isnum ) { set %leo.letra $chr(2) $+ $chr(2) $+ %leo.letra }
set %frase.coloreada %frase.coloreada $+ $+ $gettok(%color.fr,%nc,44) $+ %leo.letra
inc %n | inc %nc | if (%nc > $numtok(%color.fr,44) ) var %nc = 1
}
msg $active %frase.coloreada | %frase^halt = on
unset %frase.coloreada %leo.letra
}
#multik-2000 end
menu channel,query,menubar {
escritura
.Multicolores
.. activar multicolores: .enable #multik-2000 | if ( !%color.fr ) { set %color.fr 6,1,2,4,3,5 }
.. desactivar multicolores: .disable #multik-2000
.. elegir colores: guiacolor | set %color.fr $$?="número de cada color (separado por comas)"
}
Si ademas de un ban te ganas un akick por un par de meses, las reclamaciones en la ventanilla 4, con póliza de 50 y papel timbrado.
