Accueil > > > ADD-ON COULEUR & CORRECTEUR DE TEXTE PAR DEVORZ
ADD-ON COULEUR & CORRECTEUR DE TEXTE PAR DEVORZ
Information sur la source
Description
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
- ;##################
- ;#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-,])
- }
;##################
;#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
Historique
- 29 juillet 2008 17:26:38 :
- j'avais oublier d'enlever les splay %son.module que je me servais pour mon script.
- 29 juillet 2008 20:29:51 :
- Modification
- 07 août 2008 00:03:16 :
- .
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Remote (complexe ?) de couleur [ par bobvador ]
Bonjour en fait je ne sais pas si c'est possible mais est ce que la création d'un remote pouvant permettre-des couleurs différentes entre plusieurs sa
pb de couleur [ par djblackhead ]
je suis en pleine creation de script et je suis arreté par un pb assez chiant : je souhaiterai ( avec une remote ) modifier les paramettre d'affichage
couleurs help [ par LL_Keke ]
Salut voila,j'ai un système de couleur avec deco et tous et j'aimerai ke sur certain chan la deco n'apparaisse pas mais ke les couleur des lettres et
couleur d'ecriture [ par InFerNaLeX ]
on *:INPUT:*:{ if (($pos($1,!) = 1) || ($pos($1,/) = 1)) { /say 1,0 $1- } else { /say 6,0 $1- }}bonjour j'ai mis ca pour ecrire en mauve et retiré
couleurs [ par yo252yo ]
Bon j'ai cherché, et même si ca parait con pour vous je suis débutant.Je personalise WQuizz et j'aimerai savoir comment on fait pour mettre de la cou
Gros Pbm avec les addons couleurs [ par DeViL66 ]
Salut, Alors j'ai un gros problème avec tout les addons couleurs !!Dès que j'essaye d'en installer un sur mon script, tout va parfaitement,
Commande pour changer la couleur de la nicklist ? [ par Squallou ]
Hello tout les gens !!!Je scripte une tite fenetre de thèmes graphiques (fond d'écran, couleurs) et je cherche comment changer les couleurs
mettre des couleurs sur mIRC vierge [ par teddy9303 ]
Bonjour tout le monde, voilà j'ai téléchargé la dernière version de irc (6.16) et j'ai essayé de mettre des addon couleu
Couleur d'ecriture [ par diament_fox ]
Bonjour , voila j'ai un leger probleme avec la remotte de couleur d'ecriture ci -> http://www.ircfr.com/codes/ADDON-COULEUR-SALON-PRIVEE-AMSG-AME_3
Xchat-> ecriture en couleur auto. [ par voxxx ]
Bonjour, Je voulais savoir si il existe un plug in ou un moyen pour ecrire en couleur automatiquement sous Xchat. Parce que le clik droit et ctrl-K e
|
Derniers Blogs
TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : ON RAWMODERE : ON RAWMODE par WorldDMT
Cliquez pour lire la suite par WorldDMT AVERTISSMENT ET KIKKAVERTISSMENT ET KIKK par mouhcine951990
Cliquez pour lire la suite par mouhcine951990
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
Comparez les prix

HTC Magic
Entre 429€ et 429€
|