Page 1 sur 1

[PERL Xchat] Sortie de texte en double

Publié : sam. 21 déc. 2013, 20:42
par Moya
Bonjour, je voudrais savoir comment intercepter le texte de sortie (celui que l'ont envoie sur un canal) afin de qu'il sorte en couleur.
j'ai fait un script mais le texte sort deux fois, une fois en couleur et une fois en 'normal'

Code : Tout sélectionner

my $hook = Xchat::hook_print( "Your Message" , "ecris" );
sub ecris {
   my $sortie = $_[0][1];
   my $print = $vert.$gras.uc(substr($sortie,0,1)).$violet.substr($sortie,1);
   my $chan = Xchat::get_info('channel');
   Xchat::command("SAY $print");
   Xchat::EAT_ALL;
}

Voila :)
Merci