Problème de couleurs quand j'écris (il écrit en double)

Question

J'ai installé une source pour pouvoir sélectionner ma couleur d'écriture sur mon script mais il m'écrit mon texte en double. Je ne comprends pas pourquoi. Voici la source:

menu channel,menubar {
  -
  Couleur: /dialog -m couleur couleur
}

dialog couleur {
  title "Couleur Par ..."
  size -1 -1 126 100
  option dbu
  box "Couleur ecriture", 2, 1 0 124 28
  text " Text :", 20, 3 7 30 10
  combo 21, 33 7 30 150, result drop
  text " Fond :", 22, 63 7 30 10
  combo 23, 93 7 30 150, result drop
  check "gras", 24, 3 17 30 10
  check "souligne", 25, 33 17 30 10
  check "inverser", 26, 63 17 30 10
  box "Deco gauche", 1, 63 29 62 20
  check "activer", 10, 66 37 27 10
  edit %couleur.gauche.text, 11, 93 37 30 10, autohs
  box "Deco droite", 3, 1 29 61 20
  check "activer", 30, 3 37 27 10
  edit %couleur.droite.text, 31, 30 37 30 10, autohs
  box "Option", 4, 31 80 65 19
  text "desactive si", 40, 33 87 30 10
  edit %couleur.strip, 41, 63 87 30 10, autohs center
  box "Couleur 1ere Lettre", 5, 1 50 124 29
  text " Text :", 50, 3 58 30 10
  combo 51, 33 58 30 150, result drop
  text " Fond :", 52, 63 59 30 10
  combo 53, 93 58 30 150, result drop
  check "gras", 54, 3 68 30 10
  check "souligne", 55, 33 68 30 10
  check "inverser", 56, 63 68 30 10
  check "maj", 57, 93 68 30 10
  button "OK", 6, 1 83 28 15, ok
  button "Annuler", 7, 97 83 28 15, cancel

}

on *:dialog:couleur:init:*:{
  if ( %couleur.gauche == 1 ) did -c couleur 10
  did -a couleur 21,23,51,53 Blanc
  did -a couleur 21,23,51,53 Noir
  did -a couleur 21,23,51,53 Bleu foncé
  did -a couleur 21,23,51,53 Vert foncé
  did -a couleur 21,23,51,53 Rouge
  did -a couleur 21,23,51,53 Brun
  did -a couleur 21,23,51,53 Violet
  did -a couleur 21,23,51,53 Orange
  did -a couleur 21,23,51,53 Jaune
  did -a couleur 21,23,51,53 Vert clair
  did -a couleur 21,23,51,53 Vert anglais
  did -a couleur 21,23,51,53 Bleu clair
  did -a couleur 21,23,51,53 Bleu Ciel
  did -a couleur 21,23,51,53 Rose
  did -a couleur 21,23,51,53 Gris foncé
  did -a couleur 21,23,51,53 Gris clair
  did -a couleur 21,23,51,53 aucun
  did -a couleur 51,53 identique
  did -c couleur 21 $calc(%couleur.couleur1 + 1)
  did -c couleur 23 $calc(%couleur.couleur2 + 1)
  did -c couleur 51 $calc(%couleur.lettre.couleur1 + 1)
  did -c couleur 53 $calc(%couleur.lettre.couleur2 + 1)
  if (%couleur.gras == ) did -c couleur 24
  if (%couleur.souligne == ) did -c couleur 25
  if (%couleur.inv == ) did -c couleur 26
  if (%couleur.droite == 1) did -c couleur 30
  if (%couleur.lettre.gras == ) did -c couleur 54
  if (%couleur.lettre.souligne == ) did -c couleur 55
  if (%couleur.lettre.inv == ) did -c couleur 56
  if (%couleur.lettre.maj == 1) did -c couleur 57
}

on *:dialog:couleur:sclick:6:{
  set %couleur.gauche $did(10).state
  set %couleur.gauche.text $did(11)
  set %couleur.couleur1 $calc($did(21).sel - 1)
  set %couleur.couleur2 $calc($did(23).sel - 1)
  if ($did(24).state == 1) set %couleur.gras 
  else set %couleur.gras
  if ($did(25).state == 1) set %couleur.souligne 
  else set %couleur.souligne
  if ($did(26).state == 1) set %couleur.inv 
  else set %couleur.inv
  set %couleur.droite $did(30).state
  set %couleur.droite.text $did(31)
  set %couleur.lettre.couleur1 $calc($did(51).sel - 1)
  set %couleur.lettre.couleur2 $calc($did(53).sel - 1)
  if ($did(54).state == 1) set %couleur.lettre.gras 
  else set %couleur.lettre.gras
  if ($did(55).state == 1) set %couleur.lettre.souligne 
  else set %couleur.lettre.souligne
  if ($did(56).state == 1) set %couleur.lettre.inv 
  else set %couleur.lettre.inv
  if ($did(57).state == 1) set %couleur.lettre.maj 1
  else set %couleur.lettre.maj
  set %couleur.strip $did(41)
}

on *:input:*: {
  if ($left($1,1) isin %couleur.strip ) goto fin
  if (c isin $chan($active).mode) { msg $active $1- | halt }
  set %couleur $iif(%couleur.couleur1 < 16, $+ %couleur.couleur1 $+ $iif(%couleur.couleur2 < 16,$chr(44) $+ %couleur.couleur2 $+ %couleur.gras $+ %couleur.souligne $+ %couleur.inv))
  set %couleur.lettre.text $iif(%couleur.lettre.couleur1 == 17,%couleur.couleur1,$iif(%couleur.lettre.couleur1 < 16,%couleur.lettre.couleur1))
  set %couleur.lettre.fond $iif(%couleur.lettre.couleur2 == 17,$chr(44) $+ %couleur.couleur2,$iif(%couleur.lettre.couleur2 < 16,$chr(44) $+ %couleur.lettre.couleur2))
  set %couleur.lettre.couleur $iif(%couleur.lettre.couleur1 != 16, $+ %couleur.lettre.text $+ $iif(%couleur.lettre.couleur2 != 16,%couleur.lettre.fond))
  set %couleur.lettre $iif(%couleur.lettre.couleur1 != 16,%couleur.lettre.couleur $+ %couleur.lettre.gras $+ %couleur.lettre.souligne $+ %couleur.lettre.inv)
  var %out = $iif($1 ison $active,%couleur $+ $chr(32) $+  $+ $1 $+  :,$iif(%couleur.lettre.couleur1 != 16 && #! !isin $active,%couleur.lettre $+ $chr(32) $+ $iif(%couleur.lettre.maj == 1,$upper($left($1,1)),$left($1,1)) $+ %couleur.lettre $+ %couleur $+ $iif($mid($1,2,1) isnum,$chr(32)) $+ $right($1,$calc($len($1) - 1)),%couleur $+ $chr(32) $+ $1)) $2-
  if (#! !isin $active) {    if (%couleur.gauche 1) var %out %couleur.gauche.text $+ %out    if (%couleur.droite 1) var %out %out $+ %couleur $+ $chr(32) $+ %couleur.droite.text
  }
  msg $active %out
  halt
  :fin
}

Voila, merci de me répondre...

cs_PiZZaMaN · Answer

Soit tu as un autre addon de couleurs installé, soit tu utilises MTS. Personnellement je n'ecris pas en couleurs (je trouve ça un peu nul), mais j'ai déjà testé et ac l'engine MTS de kte ça marche pas.

Camanche · Answer

Je ne pense pas, j'ai fait mon script à partir de MIRC6.3 donc il n'y avait pas d'add-on dessus. C'est quoi ça MTS? Si quelqu'un a une autre idée...

cs_PiZZaMaN · Answer

MTS c'est un systeme de themes pour mIRC :) tu devrais chercher un peu ça peut peut etre t'interesser...
Sinon essaye un on ^*:input pour masquer le msg de mirc (me semble que c'est ce qu'il faut faire)

cs_Kolibot · Answer

Mirc 6.3 wow déjà!!  :-p  
Pour MTS, tu as pleins de définitions :) Comme : 
Microsoft Transaction Server
Methods for Testing and Specification 

By Koli  :approve)

cs_PiZZaMaN · Answer

Je parle du mIRC Theme System si je ne m'abuse (ou si c'est pas ça c'en est pas loin). 
Quant au 6.3 c surement une erreur de sa part ;)

Camanche · Answer

Et je le mets où ce "on ^*:input" parce que je suis perdu là... :(

cs_PiZZaMaN · Answer

a la place de là ou ya on *:input:
 :) je te garantis pas que ça marchera par contre ...

Camanche · Answer

Bah ça me fait comme si il n'y avait pas d'add-on, enfin si ça me met la sélection mais ça ne me change pa les couleurs du texte.

cs_PiZZaMaN · Answer

Arf... alors je peux plus t'aider je pensais vraiment que ça marcherait ça :/

Camanche · Answer

Enfait j'écris en gras d'origine et par contre quand je tape !op ça m'enlève le gras, c'est une bonne piste :). Tu serais pas sur un chat par hasard?

Alerion · Answer

oui... recherche si tu a déja un autre input, et si oui ( comme c'est le cas vu le traitement du !op, recherche ton echo -a ; Le halt empèche mIRC de traiter le input par lui même mais mIRC continue de traiter les autres input des autres remotes.

 ;) 
Et Quidni!

mflfdwpd · Answer

:big) Camanche g eu le meme prob mais avec un autre script est en fait je me suis rendu compte qu'apres avoir faits le menage il a fonctionnait normalement donc pour moi c que tu a tester plein de couleur est que tu en a oublier

au prire si sa marche toujour po recomence ;)  :(

rachad_ · Answer

| halt } a la fin

fjxokt · Answer

no brain...

Problème de couleurs quand j'écris (il écrit en double)

14 réponses

Votre réponse

Discussions similaires