Add-on couleur & correcteur de texte par devorz

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 560 fois - Téléchargée 16 fois

Contenu du snippet

VOila je vien de le finir hier et je voulé savoir les avis des Utilisateur du client mIRC ceux qu'ils en pensent tous est de mois sauf la correction ( dialog de moi )

Source / Exemple :


;##################
;#Scripting: Ecriture,Correcteur.              
;#
;#Auteur: /* devorZ */              
;#
;#Année: 2008               
;#
;#Pour Ouvrir le dialog /Ecriture     
;#
;##################

On *:load:{
  .echo -a Addon - Couleurs par devor14Z
  write correction.txt devorz devorZ
} 

alias Ecriture { if (!$dialog(Ecriture))  dialog -m Ecriture Ecriture }
dialog ecriture {
  title "- Ecriture - /Ecriture"
  size -1 -1 169 153
  option dbu
  button "Blanc", 2, 7 11 36 8
  button "Noir", 3, 44 11 36 8
  button "Bleu Foncé", 13, 7 20 36 8
  button "Rouge", 14, 7 29 36 8
  button "Mauve", 15, 7 38 36 8
  button "Gris", 16, 7 74 36 8
  button "Jaune", 17, 7 47 36 8
  button "Bleu Sombre", 18, 7 56 36 8
  button "Bleu", 19, 7 65 36 8
  button "Vert fluo", 20, 44 47 36 8
  button "Rose", 21, 44 74 36 8
  button "Vert", 22, 44 20 36 8
  button "Marron Foncé", 23, 44 29 36 8
  button "Marron Clair", 24, 44 38 36 8
  button "Bleu Ciel", 25, 44 56 36 8
  button "Gris Clair", 26, 44 65 36 8
  button "Désactiver Couleurs", 44, 3 117 163 11, flat
  button "Aperçu", 45, 97 107 69 9, flat
  button "Ok", 46, 3 141 163 11, flat ok cancel
  button "Blanc", 31, 89 11 36 8
  button "Noir", 32, 126 11 36 8
  button "Bleu Foncé", 33, 89 20 36 8
  button "Rouge", 34, 89 29 36 8
  button "Mauve", 35, 89 38 36 8
  button "Gris", 36, 89 74 36 8
  button "Jaune", 37, 89 47 36 8
  button "Bleu Sombre", 38, 89 65 36 8
  button "Bleu", 39, 89 56 36 8
  button "Vert fluo", 40, 126 47 36 8
  button "Rose", 41, 126 65 36 8
  button "Vert", 42, 126 20 36 8
  button "Marron Foncé", 43, 126 29 36 8
  button "Marron Clair", 47, 126 38 36 8
  button "Bleu Ciel", 48, 126 56 36 8
  button "Gris Clair", 49, 126 74 36 8
  button "Correcteur", 4, 3 128 163 11, flat
  check "", 9, 21 93 6 8
  text "Désactiver Couleurs si :", 11, 3 107 59 8
  edit "", 50, 63 107 31 9
  text "Ecriture :", 1, 7 3 25 8
  text "Fond :", 5, 89 3 25 8
  text "1 ère lettre en Majuscule", 6, 28 93 60 8
  box "", 7, 3 -1 81 87
  box "", 8, 85 -1 81 87
  check "", 10, 94 93 6 8
  text "Gras", 30, 101 93 13 8
  check "", 12, 119 93 6 8
  text "Souligné", 27, 126 93 21 8
  box "", 51, 18 86 132 19
}
on *:dialog:ecriture:*:*:{
  if ($devent == edit) {
    if ($did = 6) { set %deco.gauche $did(6) }
    if ($did = 8) { set %deco.droite $did(8) }
    if ($did = 50) { set %symboles $did(50) }
  }
  if ($devent == Init) {
    if %deco.gauche { did -a ecriture 6 %deco.gauche }
    if %deco.droite { did -a ecriture 8 %deco.droite }
    if %symboles { did -a ecriture 50 %symboles }
    if (%Maj == On) { did -c Ecriture 9 }
    if (%souligne == $chr(31)) { did -c ecriture 12 }
    if (%gras == $chr(2)) { did -c ecriture 10 }
    if ($did = 2) { did -a ecriture 28 }
  }
  if ($devent == sclick) {
    if ($did(9).state == 1) { set %Maj On | unset %normal } 
    else { unset %unset %maj | set %normal on }
    if ($did(12).state == 1) { set %souligne $chr(31) } 
    else {  unset %souligne   }
    if ($did(10).state == 1) {  set %gras $chr(2) } 
    else {  unset %gras }
    if ($did = 2) { set %couleur $chr(3) $+ $chr(48) $+ $chr(48) | Echo -a Vous avez Défini la couleur Blanche }
    if ($did = 3) { set %couleur $chr(3) $+ $chr(48) $+ $chr(49) | Echo -a Vous avez Défini la couleur Noir }
    if ($did = 13) { set %couleur $chr(3) $+ $chr(48) $+ $chr(50) | Echo -a Vous avez Défini la couleur Bleu Foncé }
    if ($did = 22) { set %couleur $chr(3) $+ $chr(48) $+ $chr(51) | Echo -a Vous avez Défini la couleur Vert }
    if ($did = 14) { set %couleur $chr(3) $+ $chr(48) $+ $chr(52) | Echo -a Vous avez Défini la couleur Rouge }
    if ($did = 23) { set %couleur $chr(3) $+ $chr(48) $+ $chr(53) | Echo -a Vous avez Défini la couleur Marron Foncé }
    if ($did = 15) { set %couleur $chr(3) $+ $chr(48) $+ $chr(54) | Echo -a Vous avez Défini la couleur Mauve }
    if ($did = 24) { set %couleur $chr(3) $+ $chr(48) $+ $chr(55) | Echo -a Vous avez Défini la couleur Marron Clair }
    if ($did = 17) { set %couleur $chr(3) $+ $chr(48) $+ $chr(56) | Echo -a Vous avez Défini la couleur Jaune }
    if ($did = 20) { set %couleur $chr(3) $+ $chr(48) $+ $chr(57) | Echo -a Vous avez Défini la couleur Vert fluo  }
    if ($did = 18) { set %couleur $chr(3) $+ $chr(49) $+ $chr(48) | Echo -a Vous avez Défini la couleur Bleu Sombre }
    if ($did = 25) { set %couleur $chr(3) $+ $chr(49) $+ $chr(49) | Echo -a Vous avez Défini la couleur Bleu Ciel }
    if ($did = 19) { set %couleur $chr(3) $+ $chr(49) $+ $chr(50) | Echo -a Vous avez Défini la couleur Bleu }
    if ($did = 21) { set %couleur $chr(3) $+ $chr(49) $+ $chr(51) | Echo -a Vous avez Défini la couleur Rose }
    if ($did = 16) { set %couleur $chr(3) $+ $chr(49) $+ $chr(52) | Echo -a Vous avez Défini la couleur Gris }
    if ($did = 26) { set %couleur $chr(3) $+ $chr(49) $+ $chr(53) | Echo -a Vous avez Défini la couleur Gris Clair }
    if ($did = 44) { unset %couleur | unset %fond | unset %gras | unset %souligne | Echo -a Désactivation des Couleur(s) }
    if ($did = 45) { Echo -a Voicie la couleur que tu a choisie : %deco.gauche %souligne $+ %gras $+ %couleur $+ %fond $+ COULEUR %deco.droite }
    if ($did = 4) { dialog -m correcteur correcteur }
    if ($did = 31) { set %fond , $+ $chr(48) $+ $chr(48) | Echo -a Vous avez Défini le Fond Blanche }
    if ($did = 32) { set %fond , $+ $chr(48) $+ $chr(49) | Echo -a Vous avez Défini le Fond Noir }
    if ($did = 33) { set %fond , $+ $chr(48) $+ $chr(50) | Echo -a Vous avez Défini le Fond Bleu Foncé }
    if ($did = 42) { set %fond , $+ $chr(48) $+ $chr(51) | Echo -a Vous avez Défini le Fond Vert }
    if ($did = 34) { set %fond , $+ $chr(48) $+ $chr(52) | Echo -a Vous avez Défini le Fond Rouge }
    if ($did = 43) { set %fond , $+ $chr(48) $+ $chr(53) | Echo -a Vous avez Défini le Fond Marron Foncé }
    if ($did = 35) { set %fond , $+ $chr(48) $+ $chr(54) | Echo -a Vous avez Défini le Fond Mauve }
    if ($did = 47) { set %fond , $+ $chr(48) $+ $chr(55) | Echo -a Vous avez Défini le Fond Clair }
    if ($did = 37) { set %fond , $+ $chr(48) $+ $chr(56) | Echo -a Vous avez Défini le Fond Jaune }
    if ($did = 40) { set %fond , $+ $chr(48) $+ $chr(57) | Echo -a Vous avez Défini le Fond Vert fluo  }
    if ($did = 38) { set %fond , $+ $chr(49) $+ $chr(48) | Echo -a Vous avez Défini le Fond Bleu Sombre }
    if ($did = 48) { set %fond , $+ $chr(49) $+ $chr(49) | Echo -a Vous avez Défini le Fond Bleu Ciel }
    if ($did = 39) { set %fond , $+ $chr(49) $+ $chr(50) | Echo -a Vous avez Défini le Fond Bleu }
    if ($did = 41) { set %fond , $+ $chr(49) $+ $chr(51) | Echo -a Vous avez Défini le Fond Rose }
    if ($did = 36) { set %fond , $+ $chr(49) $+ $chr(52) | Echo -a Vous avez Défini le Fond Gris }
    if ($did = 49) { set %fond , $+ $chr(49) $+ $chr(53) | Echo -a Vous avez Défini le Fond Gris Clair }
  }
}
ctcp *:VERSION:*:{
  timer 1 2 ctcpreply $nick VERSION 1Addon Color par 1devor14Z | HALT
} 
alias correct dialog -m correcteur correcteur
dialog Correcteur {
  title "- Correcteur - /Correct"
  size -1 -1 93 120
  option dbu
  button "Ajouter", 1, 9 10 37 12, flat
  button "Enlever", 2, 46 10 37 12, flat
  button "Désactiver", 4, 46 22 37 12, flat
  button "Activer", 5, 9 22 37 12, flat
  button "Fermer", 6, 2 109 88 10, flat ok cancel
  box "", 7, 2 0 89 107
  list 3, 9 36 75 64, size vsbar
}
On *:dialog:correcteur:init:*:{
  loadbuf -o correcteur 3 correction.txt
}
on *:Dialog:correcteur:sclick:*:{
  if ($did = 5) { correction status 1 }
  if ($did = 4) { correction status 0 }
  if ($did = 1) { correction add $$?="Le mot qui sera remplacé" $$?="Mot qui remplacera" | did -r $dname 3 | loadbuf -o $dname 3 correction.txt }
  if ($did = 2) { 
    if ($did(3).sel) {
      write -dl $+ $did(3).sel correction.txt
      did -r $dname 3
      loadbuf -o $dname 3 correction.txt
    }
  }
}
On *:dialog:correcteur:dclick:*:{
  if ($did = 3) { echo -a $did(correcteur,$did).seltext }
}
alias correction {
  if ($1 == ADD) {
    if ($3) {
      var %ù 1
      while ($read(divers/correction.txt,%ù)) {
        if ($gettok($ifmatch,1,32) == $2) { echo -a $timestamp ( Correction ) Le mot $+(",$2,") est déjà dans la liste. | halt }
        inc %ù
      }
      write correction.txt $2-
      echo -a $timestamp ( Correction ) Le mot $+(",$2,") sera désormais remplacé par $+(",$3-,")
    }
    else { echo -a $timestamp ( Correction ) Syntaxe : /correction ADD Mot a remplacer Remplacer par... }
  }
  elseif ($1 == DEL) {
    if ($2 && !$3) {
      var %o 1
      while ($read(correction.txt,%o)) {
        if ($gettok($ifmatch,1,32) == $2) { write $+(-dl,%o) correction.txt | echo -a $timestamp ( Correction ) Le mot $+(",$2,") a été supprimé de la liste. | halt }
        inc %o
      }
      echo -a $timestamp ( Correction ) Le mot $+(",$2,") est introuvable dans la liste.
    }
    else { echo -a $timestamp ( Correction ) Syntaxe : /correction DEL Mot }
  }
  elseif ($1 == LIST) {
    if (!$2) {
      echo -a $timestamp ( Correction ) Liste des mots corrigés.
      var %^ 1
      while ($read(correction.txt,%^)) { echo -a $timestamp ( Correction ) Le mot $+(",$gettok($ifmatch,1,32),") est remplacé par $+(",$gettok($ifmatch,2-,32),") | inc %^ }
      echo -a $timestamp ( Correction ) Fin de la liste des mots corrigés.
    }
    else { echo -a $timestamp ( Correction ) Syntaxe : /correction LIST }
  }
  elseif ($1 == STATUS) {
    if ($istok(0.1,$2,46) && !$3) {
      $iif($2,set,unset) %correction 1
    echo -a $timestamp ( Correction ) La correction est maintenant $iif($2,activée,désactivée.)    }
    else { echo -a $timestamp ( Correction ) Syntaxe : /correction STATUS 0|1 }
  }
}
alias corrige {
  var %a = $1- ,%e = 1
  if (%correction) {
    while ($gettok(%a,%e,32)) {
      if ($read(correction.txt,s,$strip($v1))) { var %a = $puttok(%a,$ifmatch,%e,32) }
      inc %e $iif($numtok($ifmatch,32) > 1,$calc($numtok($ifmatch,32) + 1))
    }
  }
  return %a
}
on *:INPUT:*:{
  If (%Normal == on) {
    if ($left($1,1) == !) || ($left($1,1) == .) { say $1- | halt }
    if ($left($1-,1) !isin %symboles) { say  $+(%souligne,%gras,$iif(!%c,$+(%couleur,%fond)),$corrige($1-,%c)) | halt }
  }
  If (%Maj == on) {
    if ($left($1,1) == !) || ($left($1,1) == .) { say $1- | halt }
    var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
    if ($left($1-,1) !isin %symboles) { say  $+(%souligne,%gras,$iif(!%c,$+(%couleur,%fond,,$corrige(%c,%textmaj)))) | halt }
  }
  If (%devorz == on) {
    if ($left($1,1) == !) || ($left($1,1) == .) { say $1- | halt }
    if ($left($1-,1) !isin %symboles) { msg $active $chr(3) $+ $chr(2) $+ $1 $chr(2) $+ $2- | halt }
  }
  :fin
}

alias say { msg $active $1- }
alias msg {
  .msg $1-
  var %color $colnick($1,$me)
  if ($window($1)) echo -t $1 $+($chr(3),%color) $+ $+($chr(3),14,«,$chr(2),$chr(3),1,$left($remove($nick(#,$me).pnick,$me),1),$me,$chr(3),14,») $2-
  else echo -at - $+ $> Msg $1 $+ : $+([, $+ $2-,])
}

Conclusion :


merci de me faire part des bugs

A voir également

Ajouter un commentaire Commentaires
Messages postés
871
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1
salut
1- que ça marche je doute car une fois que tu tape sur la couleur du font sans tapé une couleur de text ça marche plus

2- que c'est bien presenté je ne pense pas aussi t'a des choses qui sont là pour rien

comme ":fin" sur la ligne 229 c'est quoi ce truc??

et autres choses t'a meme pas pris en consideration que tout ce qu'on a dit
Messages postés
217
Date d'inscription
dimanche 17 juin 2007
Statut
Membre
Dernière intervention
13 février 2012

Bon ben .... plus rien a dire a par que je trouve que c'est vraiment bien présenté =] et que sa marche lol
Messages postés
435
Date d'inscription
jeudi 27 avril 2006
Statut
Membre
Dernière intervention
17 octobre 2008

N'empêche que le principe c'est du vu et du revu mm si tu compulse 2 codes en même temps. et je maintien ce n'est absolument pas un correcteur orthographique juste un $replace un peu tuné.

A la base si j'ai maté ton code c'est que je pensai trouver du socket pour le correcteur orthographique ce qui aurai rendu le code déjà bcp plus intéressant.

Donc, que ton code manque d'originalité, ma foi ce n'est pas si grave à condition que le codage soit propre et élégant, d'ailleurs j'aurai préféré que tu réponde à mes remarques de codage qui auraient pu faire avancer ta source et lui donner alors un intérêt plutôt que vouloir mordicus chercher du poil sur des œufs.
Messages postés
871
Date d'inscription
jeudi 6 juillet 2006
Statut
Membre
Dernière intervention
6 janvier 2012
1
je ne sais pas si tu compte combien de commentaires tu reçoi ou tu ne prend pas en comtpe de ce qu'on dit

tu as toujours le code qui ne fonctionne pas a cause de ça

if ($devent == dclick
if ($did = 3) { echo -a $did(correcteur,$did).seltext }
}

et a cause de

loadbuf -o $dname 3 DIVERS/correction.txt


sans avoir arranger ça le code ne fonctionne pas au niveau de correction

et aussi %couleur si on apuis sur %fond sans apuillé sur %couleur tu aura un ",Ntext" c'est moche ça :/

et c'est important de changer si non ton code est considéré qu'il ne fonctionne pas
Messages postés
46
Date d'inscription
dimanche 27 juillet 2008
Statut
Membre
Dernière intervention
21 février 2009
1
isoka dit : Bonjour,

-pour l'intérêt de la source et son originalité malheureusement le principe est deja trop vu.
-pour le titre, ce n'est pas un correcteur orthographique, juste un code de remplacement de mot
-pour le codage :
je repond : sur le site y'a aucun Add-on de couleurs avec un Remplacement de mot orthographique il y en a que un seul mais il est pas précis si tu met mdr MdR meme si tu fait mdrr sa va faire MdR lorsque le mien est bcp plus précis enfin pour te répondre .. car mon add-on y'a pas sur le site ^^
Afficher les 17 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.