écriture multicolore

Question

Bonjour, 

Je n'arrive pas à trouver pourquoi à l'exécution de ce petit alias, une ligne vide s'affiche alors que l'effet escompté est une couleur différente pour chaque lettre composant le mot ou la phrase, je dois oublier un truc quelque part.... :(

multi {
  set %textc
  set %ct 1
  set %cc 1
  :deb 
  if (%cc == 1) { set %textc %textc 1 $+ $mid(%tn,%ct,1) }
  if (%cc == 2) { set %textc %textc 2 $+ $mid(%tn,%ct,1) }
  if (%cc == 3) { set %textc %textc 3 $+ $mid(%tn,%ct,1) }
  if (%cc == 4) { set %textc %textc 4 $+ $mid(%tn,%ct,1) }
  if (%cc == 5) { set %textc %textc 5 $+ $mid(%tn,%ct,1) }
  if (%cc == 6) { set %textc %textc 6 $+ $mid(%tn,%ct,1) }
  if (%cc == 7) { set %textc %textc 7 $+ $mid(%tn,%ct,1) }
  if (%cc == 8) { set %textc %textc 8 $+ $mid(%tn,%ct,1) }
  if (%cc == 9) { set %textc %textc 9 $+ $mid(%tn,%ct,1) }
  if (%cc == 10) { set %textc %textc 10 $+ $mid(%tn,%ct,1) }
  if (%cc == 11) { set %textc %textc 11 $+ $mid(%tn,%ct,1) }
  if (%cc == 12) { set %textc %textc 12 $+ $mid(%tn,%ct,1) }
  if (%cc == 13) { set %textc %textc 13 $+ $mid(%tn,%ct,1) }
  set %ct %ct + 1
  set %cc %cc + 1
  if (%cc == 13) { set %cc 1 }
  if (%ct <= $len(%tn)) goto deb
  say %textc
}

WorldDMT · Answer

salut

pas de var %tn

et ajoute un $+ avant la couleur

mais il existe quelque chose plus simple avec $regsubex

Mauricelepoisson · Answer

bonsoir,

comment ça pas de var %tn ?

WorldDMT · Answer

bah tu as set tout les variable mais pas de %tn ajouté
donc ajoute var %tn $1- et tu aura la solution
mais il va falloir ajouté "$+" avant les couleurs
donc comme ça

multi { 
  set %textc 
  set %ct 1 
  set %cc 1 
  var %tn $1-
  :deb 
  if (%cc == 1) { set %textc %textc $+ 1 $+ $mid(%tn,%ct,1) } 
  if (%cc == 2) { set %textc %textc $+ 2 $+ $mid(%tn,%ct,1) } 
  if (%cc == 3) { set %textc %textc $+ 3 $+ $mid(%tn,%ct,1) } 
  if (%cc == 4) { set %textc %textc $+ 4 $+ $mid(%tn,%ct,1) } 
  if (%cc == 5) { set %textc %textc $+ 5 $+ $mid(%tn,%ct,1) } 
  if (%cc == 6) { set %textc %textc $+ 6 $+ $mid(%tn,%ct,1) } 
  if (%cc == 7) { set %textc %textc $+ 7 $+ $mid(%tn,%ct,1) } 
  if (%cc == 8) { set %textc %textc $+ 8 $+ $mid(%tn,%ct,1) } 
  if (%cc == 9) { set %textc %textc $+ 9 $+ $mid(%tn,%ct,1) } 
  if (%cc == 10) { set %textc %textc $+ 10 $+ $mid(%tn,%ct,1) } 
  if (%cc == 11) { set %textc %textc $+ 11 $+ $mid(%tn,%ct,1) } 
  if (%cc == 12) { set %textc %textc $+ 12 $+ $mid(%tn,%ct,1) } 
  if (%cc == 13) { set %textc %textc $+ 13 $+ $mid(%tn,%ct,1) } 
  set %ct %ct + 1 
  set %cc %cc + 1 
  if (%cc == 13) { set %cc 1 } 
  if (%ct <= $len(%tn)) goto deb 
  say %textc 
  halt
}

mais je t'ai dis regarde les $regsubex tu peux le faire plus simple avec

Mauricelepoisson · Answer

ah oui que je suis bête !!! merci WorldMT ! ça saute aux yeux purée et je ne le voyais pas ! merci

Mauricelepoisson · Answer

Message amical pour WolrdDMT :-)

Bonsoir, 

ça m'a un peu "piqué" d'avoir été aussi aveugle sur le coup de la variable alors après un gros "brainstorming" et l'aide d'un pote "éclairé" voici un travail plus présentable et bien plus efficace que mon précédent code ;-) 

multi {
  set %multi.b 2 
  set %multi.n 1
  set %multi.x 3
  :multi.g
  set %multi.c $mid($1-,%multi.n,1) $+  $+ %multi.x
  set %multi.b %multi.b $+ %multi.c
  inc %multi.n
  set %multi.x $iif(%multi.x == 7,2,$calc(%multi.x + 1))
  if (%multi.n <= $len($1-)) goto multi.g
  say %multi.b
  unset %multi.*
}

WorldDMT · Answer

tu as dis que tu as un probleme tu n'a pas demandé d'amelioré le code 
il existe la loop while en mIRC et ce code n'est pas tres efficace dsl :p

si tu essayais un truc

tape salut1 mon ami2 ça va5 
là tu aura rien que les lettres sans les chiffre :)

si tu veux amelioré bah t'a cas demendé je t'aiderai

écriture multicolore

6 réponses

Votre réponse

Discussions similaires