begin process at 2012 02 12 05:52:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > WORLDDMT TEXT COLOR V 1.0

WORLDDMT TEXT COLOR V 1.0


 Information sur la source

Note :
Aucune note
Catégorie :AddOns Classé sous :woddmt, couleur text, wtextcolor Niveau :Débutant Date de création :19/08/2008 Date de mise à jour :20/08/2008 17:36:45 Vu / téléchargé :2 564 / 42

Auteur : WorldDMT

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (24)
Ajouter un commentaire et/ou une note


 Description

Cliquez pour voir la capture en taille normale
Oui je sais ce n'est pas du nouveau mais le codage n'est pas pareil

Une fois l'addon est load le dialog s'ouvre pour la configuration

La couleur du texte sélectionné vous ne la trouvez pas dans la sélection du fond pour éviter de mettre la même couleur du texte et le fond

Si le chan là ou vous êtes est en mode +c le texte envoyé sera un texte standard pour ne pas a vous obliger a arrêté l'addon pour pouvoir écrire

Source

  • on *:load:conf.wclr
  • menu status,nicklist,menubar {
  • -
  • WtextColor V1.0
  • .Configurer:conf.wclr
  • .Désinstaller:rem.wclr
  • }
  • alias conf.wclr dialog $iif($dialog(wclr),-v wclr,-m wclr wclr)
  • alias rem.wclr dialog $iif($dialog(dclr),-v dclr,-m dclr dclr)
  • dialog wclr {
  • title "WorldDMT Text Color"
  • size -1 -1 205 218
  • option pixels
  • combo 1, 92 110 100 70, drop
  • combo 2, 92 133 100 69, drop
  • check "Gras", 3, 93 157 40 17
  • check "Souligné", 4, 136 157 60 17
  • text "Couleur texte", 6, 7 112 80 13
  • text "Fond de texte", 7, 7 135 80 13
  • text "WorldDMT Text Color V1.0", 8, 60 194 130 13, disable
  • text "Format du texte", 9, 7 158 80 13
  • box "Configuration", 10, 2 95 201 85
  • box "", 11, 2 180 200 36
  • icon 12, 3 3 201 92, colorpic.jpg, 0 noborder
  • check "OFF", 13, 9 193 39 17, push
  • }
  • dialog dclr {
  • title Désinstaller WtextColor V 1.0
  • size -1 -1 150 40
  • option dbu
  • box ATTENTION!!, 1, 1 2 148 37
  • text Cette action supprime l'addon WtextColor V 1.0 voulez-vous désinstallé WtextColor?, 2, 12 9 125 24, Center
  • button Oui, 3, 45 25 30 12, ok
  • button Non, 4, 75 25 30 12, cancel
  • }
  • on *:dialog:dclr:sclick:3:{
  • if ($dialog(wclr)) dialog -x wclr
  • echo -ae - Désinstallation de l'Addon terminé avec succes
  • echo -ae - merci d'avoir utilisé WtextColor V 1.0
  • echo -ae - WorldDMT
  • unset %wclr %t.g %t.s %t.c %t.f
  • .unload -rs $qt($scriptdirwcolor.data)
  • }
  • on *:dialog:wclr:*:*:{
  • if ($devent == sclick) {
  • set %wclr $did(13).state
  • did -ra $dname 13 $iif(%wclr,ON,OFF)
  • set %t.g $did(3).state
  • set %t.s $did(4).state
  • if ($did == 1) {
  • set %t.c $did(1).sel
  • did -er $dname 2
  • loadbuf -o $dname 2 $qt($scriptdircouleur.data)
  • did -d $dname 2 $did(1).sel
  • if (%t.f == %t.c) {
  • unset %t.f
  • }
  • else did -c $dname 2 $calc(%t.f $iif(%t.c >= %t.f,+ 1))
  • }
  • if ($did == 2) {
  • set %t.f $did(2).sel $iif(%t.c >= $did(2).sel,- 1)
  • }
  • }
  • if ($devent == init) {
  • loadbuf -o $dname 1 $qt($scriptdircouleur.data)
  • loadbuf -o $dname 2 $qt($scriptdircouleur.data)
  • if (%t.c == $null) did -b $dname 2
  • did -d $dname 2 $calc(%t.c + 1)
  • if (%wclr) { did -c $dname 13 | did -ra $dname 13 ON }
  • if (%t.g) did -c $dname 3
  • if (%t.s) did -c $dname 4
  • did -c $dname 1 $iif(%t.c != $null,$calc($ifmatch + 1))
  • did -c $dname 2 $iif(%t.f != $null,$calc(%t.f $iif(%t.c >= %t.f,+ 1)))
  • }
  • }
  • on *:input:*:{
  • if (%wclr) {
  • if (($active != Status Window) && ($left($1,1) !isin !./) && (c !isincs $gettok($chan($active).mode,1,32))) {
  • var %C = $chr(3) $+ $iif(%t.c != $null,%t.c $+ $iif(%t.f != $null,$+($chr(44),%t.f))) $+ $iif(%t.g,$chr(2)) $+ $iif(%t.s,$chr(31))
  • msg $active %C $+ $1-
  • halt
  • }
  • }
  • }
on *:load:conf.wclr
menu status,nicklist,menubar {
  -
  WtextColor V1.0
  .Configurer:conf.wclr
  .Désinstaller:rem.wclr
}
alias conf.wclr dialog $iif($dialog(wclr),-v wclr,-m wclr wclr)
alias rem.wclr dialog $iif($dialog(dclr),-v dclr,-m dclr dclr)
dialog wclr {
  title "WorldDMT Text Color"
  size -1 -1 205 218
  option pixels
  combo 1, 92 110 100 70, drop
  combo 2, 92 133 100 69, drop
  check "Gras", 3, 93 157 40 17
  check "Souligné", 4, 136 157 60 17
  text "Couleur texte", 6, 7 112 80 13
  text "Fond de texte", 7, 7 135 80 13
  text "WorldDMT Text Color V1.0", 8, 60 194 130 13, disable
  text "Format du texte", 9, 7 158 80 13
  box "Configuration", 10, 2 95 201 85
  box "", 11, 2 180 200 36
  icon 12, 3 3 201 92, colorpic.jpg, 0 noborder
  check "OFF", 13, 9 193 39 17, push
}
dialog dclr {
  title Désinstaller WtextColor V 1.0
  size -1 -1 150 40
  option dbu
  box ATTENTION!!, 1, 1 2 148 37
  text Cette action supprime l'addon WtextColor V 1.0 voulez-vous désinstallé WtextColor?, 2, 12 9 125 24, Center
  button Oui, 3, 45 25 30 12, ok
  button Non, 4, 75 25 30 12, cancel
}
on *:dialog:dclr:sclick:3:{
  if ($dialog(wclr)) dialog -x wclr
  echo -ae  - Désinstallation de l'Addon terminé avec succes
  echo -ae  - merci d'avoir utilisé WtextColor V 1.0
  echo -ae  - WorldDMT
  unset %wclr %t.g %t.s %t.c %t.f
  .unload -rs $qt($scriptdirwcolor.data)
}
on *:dialog:wclr:*:*:{
  if ($devent == sclick) {
    set %wclr $did(13).state
    did -ra $dname 13 $iif(%wclr,ON,OFF)
    set %t.g $did(3).state
    set %t.s $did(4).state
    if ($did == 1) {
      set %t.c $did(1).sel
      did -er $dname 2
      loadbuf -o $dname 2 $qt($scriptdircouleur.data)
      did -d $dname 2 $did(1).sel
      if (%t.f == %t.c) {
        unset %t.f
      }
      else did -c $dname 2 $calc(%t.f $iif(%t.c >= %t.f,+ 1))
    }
    if ($did == 2) {
      set %t.f $did(2).sel $iif(%t.c >= $did(2).sel,- 1)
    }
  }
  if ($devent == init) {
    loadbuf -o $dname 1 $qt($scriptdircouleur.data)
    loadbuf -o $dname 2 $qt($scriptdircouleur.data)
    if (%t.c == $null) did -b $dname 2
    did -d $dname 2 $calc(%t.c + 1)
    if (%wclr) { did -c $dname 13 | did -ra $dname 13 ON }
    if (%t.g) did -c $dname 3
    if (%t.s) did -c $dname 4
    did -c $dname 1 $iif(%t.c != $null,$calc($ifmatch + 1))
    did -c $dname 2 $iif(%t.f != $null,$calc(%t.f $iif(%t.c >= %t.f,+ 1)))
  }
}
on *:input:*:{
  if (%wclr) {
    if (($active != Status Window) && ($left($1,1) !isin !./) && (c !isincs $gettok($chan($active).mode,1,32))) {
      var %C = $chr(3) $+ $iif(%t.c != $null,%t.c $+ $iif(%t.f != $null,$+($chr(44),%t.f))) $+ $iif(%t.g,$chr(2)) $+ $iif(%t.s,$chr(31))
      msg $active %C $+ $1-
      halt
    }
  }
}

 Conclusion

Pour installer loadez le fichier wcolor.data
  
  Si c'est compliqué mettez le dossier WormdDMT Text Color V1.0 dans le dossier
  de votre mirc et vous tapez
  
  //load -rs $qt(WorldDMT Text Color V 1.0\wcolor.data)

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   WorldDMT Text Color V 1.0

Télécharger le zip


 Historique

20 août 2008 11:04:35 :
mise a jour des commentaires
20 août 2008 17:34:40 :
erreur de frape :p
20 août 2008 17:36:45 :
.

 Sources du même auteur

AVOIR UNE LISTE D'UTILISATEUR EN COULEURS SELON LEURS SEXE P...
Source avec une capture ALIAS POUR TELECHARGER UNE VIDEO SUR YOUTUBE (MISE A JOUR V1...
Source avec Zip Source avec une capture WORLDDMT - DETECTEUR DE PSEUDOS ET DE CLONES + AFFICHEUR DE ...
Source avec Zip Source avec une capture WORLDDMT - STATISTIQUE V 1.0
Source avec Zip Source avec une capture WORLDDMT - INFOS DES CANAUX V 1.1

 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

Commentaires et avis

Commentaire de PaDa le 19/08/2008 19:58:43

Première remarque (et la seule, flemme de lire le code) : !$regex($chan($active).mode,c))
Ca peut bloquer alors que le chan est pas en +c, non ? Je te laisse te creuser la tête, mais je crois bien que j'ai raison ^^

Commentaire de ISoKa le 19/08/2008 22:15:46

perso je capte pas l'intérêt des regex dans ce cas, des outils beaucoup plus simple et rapides aurait été plus adéquats

Commentaire de KhaVv le 19/08/2008 22:31:53

Hello, ok c'est bien codé etc.. mais rien d'exceptionnel ton add-on.. puis y'en a des dizaines sur le site..

Commentaire de wims le 19/08/2008 23:50:55

Je confirme la remarque de Pada, si le salon contient un clé avec un c dedans, t'es ownz, il faut regardé le premier mot dans les modes retournés, et il faut vérifié la case des char.
if (c !isincs $gettok($chan($active).mode,1,32)) { couleur autorisé }

Je suis également d'accord avec IsoKa, ton utilisation des regex est completement inutile et abusé, mais bon c'est ton choix, on peut pas te dire "nan, n'utilise pas les regex"

if ((!$regex($active,^Status+))
Il se passe quoi si un pseudo commence par Status ?

unset %wclr %t.*
le wildcard peut etre dangereux ici, tu devrait etre plus spécifique.

did -d $dname 2 $did(1).sel - 1
manque pas un $calc là ? en fait ça devrait même etre la valeur de la variable setté juste au dessus, qui elle normalement contient la bonne valeur, avant de posté tes codes, faudrait les testés!
Bon j'ai maté vite fait, mais sinon le reste a l'air correcte, dommage que cela n'est rien d'original.

Une petite note pour l'installation, il faut éviter maintenant de dire "installé dans votre mircdir"
Car depuis que mirc est réglé pour Vista, il utilise par defaut le dossier prévus pour stocké les donnée pour les application (application data), ce qui fait que mirc utilise deux dossier, un avec le .exe et un autre pour stocké les données.

Commentaire de WorldDMT le 20/08/2008 09:54:32

salut
merci pour cette remarque PADA je ne savais pas ça encore ^^
mais la question pour WIMS stp pk "c !isincs $gettok($chan($active).mode,1,32)"
esque ça marche pas avec c !isin $chan($active).mode ?! si non pk?

utilisation des regex c'est pour eviter plusieur condition exp:

!$regex($left($1,1),^(!|/|[.]))

if ($left($1,1) != !) || ($left($1,1) != .) || ($left($1,1) != /)

mais si non j'ai bien pus faire "if ($left($1,1) isin !./)"

si je n'avais pas fais celà je n'aurai pas de commantaires danc moin d'infos :p

pour did -d $dname 2 $did(1).sel - 1
oui tu a raison WIMS le -1 n'a pas de role c'est juste qu'il ne fesait pas d'eefet c'est pk j'avais pas fais attention

j'ai bien testé avant de posté tout marche intact sauf que les cas que vous avez dis c'est pas obligé que ça arrive a chaque moment que le pseudo commance par "status" ou la clé "c" tu vois donc je ne pouvais pas le constaté seul :)

pour ta derniere remarque pour le mircdir j'ai vista pro sauf si j'ai mal compris ce que tu voulais dire mais esque ça peut faire un probleme si on met le dossier dans le mircdir??

si non je met a jour dejà les remarques
merci

Commentaire de ISoKa le 20/08/2008 17:18:30

($left($1,1) isin !./) <<<< pas plutot ($left($1,1) !isin !./) ?

Commentaire de WorldDMT le 20/08/2008 17:39:27

oui t'a raison isoka faute de frappe juste :) merci j'ai corrigé

Commentaire de wims le 20/08/2008 18:01:35

"WIMS stp pk "c !isincs $gettok($chan($active).mode,1,32)"
esque ça marche pas avec c !isin $chan($active).mode ?! si non pk?"

C'est super difficile de comprendre ce que tu dis.
Tu dis que tu as essayé et que ça marche pas ?
OU tu veux savoir pourquoi il faut mettre ça ?
OU un mix des deux ?

En gros si un salon n'a que +nt et que je fait //mode #salon +k coca-cola

$chan($chan).mode = +ntk coca-cola

et avec ton truc d'avant, ça allait betement dire "oui, ya le mode +c, car ya coca-cola" donc non, il faut regarde uniquement le premier mot :)

Pour le $mircdir, sur Vista, mirc stock les données (mirc.ini, et autre) dans le dossier prévu a cet effet pour les programmes car par exemple, mirc n'aura pas forcément l'accès pour écrire dans c:\program files\ sur les user qui ne sont pas admin sur la machine.Donc si c'est le cas, $mircdir retourne ce repertoire, et $mircexe retourne le chemin du mirc.exe (quand tu as installé, par exemple tu lui a dis d'install dans c:\mirc) bah $mircexe retournera ce repertoire avec le nom du fichier.


Commentaire de WorldDMT le 20/08/2008 18:24:38

non j'ai pas dis que j'ai essayé ou pas :p

si tu veu je reprend ma question un version differante

WIMS stp pourquoi tu a fais "c !isincs $gettok($chan($active).mode,1,32)"
esque en fesant "c !isin $chan($active).mode" ça marche pas? au lieu de mettre $gettok

je demandais juste pourquoi $gettok mais en m'expliquant le +k coca-cola j'ai compris c'est tout ^^

merci

Commentaire de RCA ArKanis le 22/08/2008 13:24:40

cs = case sensitive. En gros, il fait la différence entre +C et +c
c'est bien la version cs qu'il faut utiliser ici

Commentaire de djul51 le 24/08/2008 18:51:57

Tu aurais dû ajouter la possibilité de configurer aussi la couleur du pseudo d'une personne lorsque on la highlight et aussi la possibilité de temporairement désactiver les couleurs (boutons ON/OFF/Valider ?). Sinon le dialog est simple, c'est pas mal :]

Commentaire de WorldDMT le 26/08/2008 12:01:44

salut DJUL51
"aussi la possibilité de temporairement désactiver les couleurs"
mais il y a le bouton ON/OFF ça active/desactive les couleurs

Commentaire de Zova le 26/08/2008 18:55:14

Pas grand chose à dire au niveau du code, pas superbement innovant, mais j'avouerai que c'est plutôt pas mal codé mais j'aurai préféré avoir droit à une picwin car les dialogs ça reste plutôt banal. Enfin juste une question de goûts/préférences...

Voilà, bon scripting

Commentaire de PaDa le 27/08/2008 11:35:19

Troll detected.

Commentaire de WorldDMT le 27/08/2008 12:08:38

salut
PADA "Troll detected"

c'est quoi ça stp :p tu peu m'expliqué?

Commentaire de PaDa le 27/08/2008 12:39:37

Click here : http://fr.wikipedia.org/wiki/Troll_(Internet_et_Usenet)

Commentaire de wims le 27/08/2008 13:03:09

Sans dire que c'est un Troll, n'a t-il pas raison ?

Commentaire de PaDa le 27/08/2008 13:11:20

Don't know, j'ai pas envie de rentrer dans le débat dialogues/picwins honnêtement. C'est peut-être pas un troll, c'est juste une discussion stérile et fatiguante.

Commentaire de wims le 27/08/2008 14:08:43

Oui, j'ai bien compris ce que tu avais vu dans son post, mais j'ai dis ça parce que ça peut ne pas faire plaisir de voir qu'on est considéré comme un troll, alors que ce n'étais pas le but.Sans rentré dans un débat de merde, une picwin sera toujours plus belle qu'un dialog parce que le mec aura passé du temps dessus :p

Commentaire de PaDa le 27/08/2008 14:27:36

Tu dis ça parce que tu as pas vu mes picwins ;-)
Je retire le mot "troll" !

Commentaire de wims le 27/08/2008 15:29:03

Si tes picwins ressemble a "un code que j'ai vu??" pour écrire très gros, je vois très bien le genre ;(

Commentaire de PaDa le 27/08/2008 15:48:55

Je ne répondrai pas.

Commentaire de Zova le 27/08/2008 20:10:30

En effet ce n'était pas un troll, j'exposai juste mon avis concernant la source en donnant une idée envisageable afin que la source se démarque un peu de toutes celles qui sont similaires mais bon ça reste simplement mon avis sur la chose..

Commentaire de PaDa le 27/08/2008 22:36:52

Toutes mes excuses dans ce cas :o)

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,763 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales