Autor Tema: Escritura multicolor  (Leído 4610 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Red_Erik

  • Visitante
Escritura multicolor
« en: Agosto 23, 2008, 11:44:15 pm »
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..

Código: [Seleccionar]
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.

Desconectado Lokiyo

  • Administrador
  • Héroe
  • *****
  • Mensajes: 739
  • Karma: +22/-2
  • Sexo: Masculino
    • El revoltijo de Lokiyo
Re: Escritura multicolor
« Respuesta #1 en: Agosto 24, 2008, 11:16:11 pm »
 :D :D
Me encanta  ;D

Muy bueno Red_Erik :)

 

anything