Couleur TEXT

Question

Hello à tous,

voila je suis confronter à un souci avec mon script.en effet il a un fond noir et quand certaine personne écrive bah .. je vois rien faut je surligne la phrase de l'user pour pouvoir lire.en cherchant un peut sur le site je suis tomber sur un code de Pada pour détecter une couleur et je me demander si ont pouvais s'en servir pour quand il détecte la couleur noir il me la change en blanche ou grise affin que je puisse lire les user qu'il écrivent en noir

$regex($1-,/\0030?1 $chr(44) ?0?0?\s*\002?\s*\w/x) 


est ce que quelqu'un aurais t'il une solution svp ?

WorldDMT · Answer

salut

tape Alt+k et modifie la couleur du text

Amelie_lyon · Answer

coucou les loulous

j'utilise cette regex pour la détection d'une couleur mais j'arrive pas à faire en sorte qu'elle détecte la couleur écriture noir ou écriture noir sur un fond noir quelqu'un peut 'il m'aider svp ? 
la le code trouver ici 

if $regex($1-,,/\0030?4 $chr(44) ?0?0?\s*\002?\s*\w/x) { kick ... }

et moi j'ai ajouter ceci a mon script dans le On text 

if $regex($1-,/\0030?1 $chr(44) ?0?0?\s*\002?\s*\w/x) { ignore -k $gettok($ial($nick).host,1,1) } 

le souci c'est qu'il met en ignore tous le monde :(  

merci de votre aides

Amelie_lyon · Answer

re coucou ,

après chercher un peut plus je suis tomber sur la source de TropNul
et j'ai ajouter ceci à mon on ^*:TEXT


Alias SColor {
  Var %z = $iif($isid,Return,Echo >)
  If ($regex($1-,/[[:cntrl:]]/g) > 0) {
    Var %b $color(background) , %dat $1- , %r = $+($chr(3),$iif(%b == 0,01,$abs($calc(%b -16))))
    Var %i' (?:\x2?\x1F?|\x1F?\x2?) , %i $+(%i',\x3,%i') , %h = (\x2?[^0-9][^\x3\xF]+) , %m = (\x2?[^\x3\xF]+)
    Var %j = (1([0-5]),1\4|0([0-9]),0\5|0([2-9]),\6|([0-9]),0\7|([2-9]),\8) %m $+ $chr(124) $+ (0([01]),\11|([01]),\12) %h
    If ($len(%b) == 1) {
      If $regex(%b,/[02-9]/) { Var %k = ((0? %b )\x2C(0? %b )[^ $+ %b $+ -9]|(0? %b )[^\x2C]) %m }
      Else { Var %k = (01,01|01,1[^0-5]|1,1[^0-5]|1,01|0?1[^0-9]((?<=\x2C)[^0-9])|(01)[^\x2C]|1[^0-5\x2C]) %m }
    }
    Else { Var %k = (( %b )\x2C( %b )|( %b )[^\x2C]|( %b )\x2C[^0-9]) %m }
    Var %c /( %i ( %k ))/gix , %d /( %i ( %j ))/gix
    Var %dat = $regsubex(%dat,%c,$+($chr(15),%r,\2,$chr(15)))
    %z $regsubex(%dat,%d,$+($chr(15),%r,>,\2,$chr(15)))
  }
  Else { %z $color(info) $+ * /SColor: insufficient parameters - paramètres insuffisants }
}


et mit $SColor($1-) 

le problème est que si l'user écris de la même couleur que le fond de mon script il indique le code couleur :

|11:55:14|Test:1,01yOp

y'a t'il un moyen de cacher le 1,01 ? c'est assez génant :( 

merci de votre aide

Couleur TEXT

3 réponses

Votre réponse

Discussions similaires