CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 12 05:52:06

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

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
- colorpic.jpg 9 413 octets
- couleur.data137 octets
- guide.txt 1 203 octets
- wcolor.data2 800 octets

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...

ALIAS POUR TELECHARGER UNE VIDEO SUR YOUTUBE (MISE A JOUR V1...

WORLDDMT - DETECTEUR DE PSEUDOS ET DE CLONES + AFFICHEUR DE ...

WORLDDMT - STATISTIQUE V 1.0

WORLDDMT - INFOS DES CANAUX V 1.1

Toutes les sources de WorldDMT

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

Toutes les sources de la catégorie AddOns

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

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

CONFLIT ENTRE BOTSERV ET CHANSERV ? par Nordicansa

RE : AIDE par Nico26000

RE : AIDE par WorldDMT

RE : AFFICHAGE DES JOIN/PART/QUIT DANS UNE FENêTRE à PART @JPQ ? par WorldDMT

AIDE par Nico26000

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning