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

Ce site au démarrage

begin process at 2012 02 10 01:23:00

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

COULEUR D'ÉCRITURE EN PICWIN

Information sur la source

Note :

9,00 / 10

Catégorie :AddOns Classé sous :picwin, couleurs, ecriture Niveau :Débutant Date de création :17/08/2006 Date de mise à jour :29/10/2006 10:23:03 Vu :7 944

Auteur : atlantisfr

Ecrire un message privé

Site perso

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Cette add-ons vous permetera de personnaliser votre écriture tout simplement :)
Pour l'ouvrir tapez : /couleurs

Source

alias couleurs {
set %ccolor texte
set %ccombo non
window -BCdg0k0pRz +dl @couleurs 0 0 337 144
drawfill -r @couleurs $rgb(218,240,252) 1 10 10
drawrect -f @couleurs 2 2 0 0 337 15
drawtext -roc @couleurs $rgb(250,250,250) Tahoma 10 5 3 200 20 Systeme Couleurs par atlantisfr
drawrect @couleurs 2 2 0 15 337 129
drawrect -f @couleurs 4 2 323 3 11 11
drawrect @couleurs 0 1 323 3 11 11
drawrect -f @couleurs 3 2 310 3 11 11
drawrect @couleurs 0 1 310 3 11 11
drawrect -f @couleurs 15 2 5 20 100 20
drawrect @couleurs 2 2 5 20 100 20
drawrect -f @couleurs 15 2 103 20 20 20
drawrect @couleurs 2 2 103 20 20 20
drawtext -oc @couleurs 2 Webdings 12 107 20 160 12 6
drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte
drawline @couleurs 2 2 130 20 130 75
drawrect -f @couleurs 0 2 137 20 20 20
drawrect @couleurs 2 2 137 20 20 20
drawrect -f @couleurs 1 2 162 20 20 20
drawrect @couleurs 2 2 162 20 20 20
drawrect -f @couleurs 2 2 187 20 20 20
drawrect @couleurs 2 2 187 20 20 20
drawrect -f @couleurs 3 2 212 20 20 20
drawrect @couleurs 2 2 212 20 20 20
drawrect -f @couleurs 4 2 237 20 20 20
drawrect @couleurs 2 2 237 20 20 20
drawrect -f @couleurs 5 2 262 20 20 20
drawrect @couleurs 2 2 262 20 20 20
drawrect -f @couleurs 6 2 287 20 20 20
drawrect @couleurs 2 2 287 20 20 20
drawrect -f @couleurs 7 2 312 20 20 20
drawrect @couleurs 2 2 312 20 20 20
drawrect -f @couleurs 8 2 137 43 20 20
drawrect @couleurs 2 2 137 43 20 20
drawrect -f @couleurs 9 2 162 43 20 20
drawrect @couleurs 2 2 162 43 20 20
drawrect -f @couleurs 10 2 187 43 20 20
drawrect @couleurs 2 2 187 43 20 20
drawrect -f @couleurs 11 2 212 43 20 20
drawrect @couleurs 2 2 212 43 20 20
drawrect -f @couleurs 12 2 237 43 20 20
drawrect @couleurs 2 2 237 43 20 20
drawrect -f @couleurs 13 2 262 43 20 20
drawrect @couleurs 2 2 262 43 20 20
drawrect -f @couleurs 14 2 287 43 20 20
drawrect @couleurs 2 2 287 43 20 20
drawrect -f @couleurs 15 2 312 43 20 20
drawrect @couleurs 2 2 312 43 20 20
drawrect -f @couleurs 15 2 180 65 12 12
drawrect @couleurs 2 2 180 65 12 12
drawtext -oc @couleurs 2 Tahoma 10 195 65 100 20 Texte
if (%ctexte != $null) drawrect -f @couleurs %ctexte 1 182 67 8 8
drawrect -f @couleurs 15 2 137 65 12 12
drawrect @couleurs 2 2 137 65 12 12
drawtext -oc @couleurs 2 Tahoma 10 152 65 100 20 Fond
if (%fond != $null) drawrect -f @couleurs %fond 1 139 67 8 8
drawline @couleurs 2 2 5 80 332 80
drawtext -oc @couleurs 2 Tahoma 10 5 85 110 20 Décoration à gauche :
drawtext -oc @couleurs 2 Tahoma 10 5 103 110 20 Décoration à droite :
drawrect -f @couleurs 15 2 115 83 218 17
drawrect @couleurs 2 2 115 83 218 17
if (%cedit != $null) drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit
drawrect -f @couleurs 15 2 110 102 223 17
drawrect @couleurs 2 2 110 102 223 17
if (%ccedit != $null) drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit
drawline @couleurs 2 2 5 122 332 122
drawrect -f @couleurs 15 2 5 126 12 12
drawrect @couleurs 2 2 5 126 12 12
drawtext -oc @couleurs 2 Tahoma 10 20 126 100 20 Gras
if (%cgras == ) drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 •
drawrect -f @couleurs 15 2 47 126 12 12
drawrect @couleurs 2 2 47 126 12 12
drawtext -oc @couleurs 2 Tahoma 10 62 126 100 20 Souligner
if (%csouligner == ) drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 •
drawrect -f @couleurs 15 2 113 126 12 12
drawrect @couleurs 2 2 113 126 12 12
drawtext -oc @couleurs 2 Tahoma 10 128 126 100 20 Majuscule
if (%cmajuscule == on) drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 •
drawline @couleurs 2 2 180 125 180 139
drawrect -f @couleurs 15 2 184 125 148 15
drawrect @couleurs 2 2 184 125 148 15
drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider
drawrect -f @couleurs 15 2 5 65 12 12
drawrect @couleurs 2 2 5 65 12 12
drawtext -oc @couleurs 2 Tahoma 10 20 65 100 20 Activer/Désactiver
if (%cactive == on) drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 •
drawrect -f @couleurs 15 2 281 65 12 12
drawrect @couleurs 2 2 281 65 12 12
drawtext -oc @couleurs 2 Tahoma 10 296 65 100 20 Aucune
if (%ctexte == $null) { drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
if (%cfond == $null) { drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
}
on *:keydown:@couleurs:*:{
if ($keyval != 8) {
if ($keyval == 32) {
if (%ed == 1) { set %ccedit2 %ccedit $+ $chr(160) | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
if (%ed == 2) { set %cedit2 %cedit $+ $chr(160) | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
}
else {
if (%ed == 1) { set %ccedit2 %ccedit $+ $keychar | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
if (%ed == 2) { set %cedit2 %cedit $+ $keychar | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
}
}
else {
if (%ed == 1) {
set %ccedit2 $left(%ccedit,$calc($len(%ccedit) - 1)) | set %ccedit %ccedit2 | drawrect -f @couleurs 15 1 110 102 223 17 | drawrect @couleurs 2 2 110 102 223 17
if (%ccedit) { drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit }
}
if (%ed == 2) {
set %cedit2 $left(%cedit,$calc($len(%cedit) - 1)) | set %cedit %cedit2 | drawrect -f @couleurs 15 1 115 83 218 17 | drawrect @couleurs 2 2 115 83 218 17
if (%cedit) { drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
}
}
}
alias -l couleurs.move {
if ($window(@couleurs)) window @couleurs $calc($mouse.dx - $1) $calc($mouse.dy - $2)
if ($mouse.key & 1) .timer $+ $ticks -m 1 0 couleurs.move $1-
}
menu @couleurs {
mouse: {
if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
else { drawrect @couleurs 2 2 137 20 20 20 }
if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
else { drawrect @couleurs 2 2 137 20 20 20 }
if $inrect($mouse.x,$mouse.y,162,20,20,20) { drawrect @couleurs 14 2 162 20 20 20 }
else { drawrect @couleurs 2 2 162 20 20 20 }
if $inrect($mouse.x,$mouse.y,187,20,20,20) { drawrect @couleurs 14 2 187 20 20 20 }
else { drawrect @couleurs 2 2 187 20 20 20 }
if $inrect($mouse.x,$mouse.y,212,20,20,20) { drawrect @couleurs 14 2 212 20 20 20 }
else { drawrect @couleurs 2 2 212 20 20 20 }
if $inrect($mouse.x,$mouse.y,237,20,20,20) { drawrect @couleurs 14 2 237 20 20 20 }
else { drawrect @couleurs 2 2 237 20 20 20 }
if $inrect($mouse.x,$mouse.y,262,20,20,20) { drawrect @couleurs 14 2 262 20 20 20 }
else { drawrect @couleurs 2 2 262 20 20 20 }
if $inrect($mouse.x,$mouse.y,287,20,20,20) { drawrect @couleurs 14 2 287 20 20 20 }
else { drawrect @couleurs 2 2 287 20 20 20 }
if $inrect($mouse.x,$mouse.y,312,20,20,20) { drawrect @couleurs 14 2 312 20 20 20 }
else { drawrect @couleurs 2 2 312 20 20 20 }
if $inrect($mouse.x,$mouse.y,137,43,20,20) { drawrect @couleurs 14 2 137 43 20 20 }
else { drawrect @couleurs 2 2 137 43 20 20 }
if $inrect($mouse.x,$mouse.y,162,43,20,20) { drawrect @couleurs 14 2 162 43 20 20 }
else { drawrect @couleurs 2 2 162 43 20 20 }
if $inrect($mouse.x,$mouse.y,187,43,20,20) { drawrect @couleurs 14 2 187 43 20 20 }
else { drawrect @couleurs 2 2 187 43 20 20 }
if $inrect($mouse.x,$mouse.y,212,43,20,20) { drawrect @couleurs 14 2 212 43 20 20 }
else { drawrect @couleurs 2 2 212 43 20 20 }
if $inrect($mouse.x,$mouse.y,237,43,20,20) { drawrect @couleurs 14 2 237 43 20 20 }
else { drawrect @couleurs 2 2 237 43 20 20 }
if $inrect($mouse.x,$mouse.y,262,43,20,20) { drawrect @couleurs 14 2 262 43 20 20 }
else { drawrect @couleurs 2 2 262 43 20 20 }
if $inrect($mouse.x,$mouse.y,287,43,20,20) { drawrect @couleurs 14 2 287 43 20 20 }
else { drawrect @couleurs 2 2 287 43 20 20 }
if $inrect($mouse.x,$mouse.y,312,43,20,20) { drawrect @couleurs 14 2 312 43 20 20 }
else { drawrect @couleurs 2 2 312 43 20 20 }
if $inrect($mouse.x,$mouse.y,184,125,148,15) { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 14 Tahoma 10 240 126 100 20 Valider }
else { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider }
if $inrect($mouse.x,$mouse.y,323,3,11,11) { drawdot -f @couleurs 0 4 330 10 | drawrect @couleurs 0 1 323 3 11 11 }
else { drawrect -f @couleurs 4 2 323 3 11 11 | drawrect @couleurs 0 1 323 3 11 11 }
if $inrect($mouse.x,$mouse.y,310,3,11,11) { drawdot -f @couleurs 0 4 317 10 | drawrect @couleurs 0 1 310 3 11 11 }
else { drawrect -f @couleurs 3 2 310 3 11 11 | drawrect @couleurs 0 1 310 3 11 11 }
}
sclick:{
if ($inrect($mouse.x,$mouse.y,5,65,12,12)) {
if (%cactive == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 • | set %cactive on }
else { drawrect -f @couleurs 15 2 7 67 8 8 | set %cactive $null }
}
if $inrect($mouse.x,$mouse.y,184,125,148,15) { window -c @couleurs }
if ($inrect($mouse.x,$mouse.y,5,126,12,12)) {
if (%cgras == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 • | set %cgras }
else { drawrect -f @couleurs 15 2 7 128 8 8 | set %cgras $null }
}
if ($inrect($mouse.x,$mouse.y,47,126,12,12)) {
if (%csouligner == $null) { drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 • | set %csouligner }
else { drawrect -f @couleurs 15 2 49 128 8 8 | set %csouligner $null }
}
if ($inrect($mouse.x,$mouse.y,113,126,12,12)) {
if (%cmajuscule == off) { drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 • | set %cmajuscule on }
else { drawrect -f @couleurs 15 2 115 128 8 8 | set %cmajuscule off }
}
if ($mouse.y < 15) { couleurs.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
if ($inrect($mouse.x,$mouse.y,323,3,11,11)) { window -c @couleurs }
if ($inrect($mouse.x,$mouse.y,310,3,11,11)) { window -n @couleurs }
if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
if ($inrect($mouse.x,$mouse.y,103,20,20,20)) {
if (%ccombo == non) {
set %ccombo oui | drawrect -f @couleurs 15 2 5 38 100 20 | drawrect @couleurs 2 2 5 38 100 20
if (%ccolor == fond) { drawtext -oc @couleurs 2 Tahoma 10 10 42 100 20 Couleurs du Texte }
else { drawtext -oc @couleurs 2 Tahoma 10 12 42 100 20 Couleurs du Fond }
}
else { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
}
if ($inrect($mouse.x,$mouse.y,12,42,100,20)) { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
if ($inrect($mouse.x,$mouse.y,12,42,100,20)) {
if (%ccolor == texte) { set %ccolor fond | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Fond }
else { set %ccolor texte | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte }
}
if ($inrect($mouse.x,$mouse.y,137,20,20,20)) {
if (%ccolor == texte) { set %ctexte 00 | drawrect -f @couleurs 0 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 0 | set %cfond ,00 | drawrect -f @couleurs 0 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,162,20,20,20)) {
if (%ccolor == texte) { set %ctexte 01 | drawrect -f @couleurs 1 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 1 | set %cfond ,01 | drawrect -f @couleurs 1 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,197,20,20,20)) {
if (%ccolor == texte) { set %ctexte 02 | drawrect -f @couleurs 2 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 2 | set %cfond ,02 | drawrect -f @couleurs 2 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,212,20,20,20)) {
if (%ccolor == texte) { set %ctexte 03 | drawrect -f @couleurs 3 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 3 | set %cfond ,03 | drawrect -f @couleurs 3 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,237,20,20,20)) {
if (%ccolor == texte) { set %ctexte 04 | drawrect -f @couleurs 4 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 4 | set %cfond ,04 | drawrect -f @couleurs 4 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,262,20,20,20)) {
if (%ccolor == texte) { set %ctexte 05 | drawrect -f @couleurs 5 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 5 | set %cfond ,05 | drawrect -f @couleurs 5 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,297,20,20,20)) {
if (%ccolor == texte) { set %ctexte 06 | drawrect -f @couleurs 6 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 6 | set %cfond ,06 | drawrect -f @couleurs 6 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,312,20,20,20)) {
if (%ccolor == texte) { set %ctexte 07 | drawrect -f @couleurs 7 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 7 | set %cfond ,07 | drawrect -f @couleurs 7 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,137,43,20,20)) {
if (%ccolor == texte) { set %ctexte 08 | drawrect -f @couleurs 8 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 8 | set %cfond ,08 | drawrect -f @couleurs 8 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,162,43,20,20)) {
if (%ccolor == texte) { set %ctexte 09 | drawrect -f @couleurs 9 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 9 | set %cfond ,09 | drawrect -f @couleurs 9 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,197,43,20,20)) {
if (%ccolor == texte) { set %ctexte 10 | drawrect -f @couleurs 10 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 10 | set %cfond ,10 | drawrect -f @couleurs 10 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,212,43,20,20)) {
if (%ccolor == texte) { set %ctexte 11 | drawrect -f @couleurs 11 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 11 | set %cfond ,11 | drawrect -f @couleurs 11 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,237,43,20,20)) {
if (%ccolor == texte) { set %ctexte 12 | drawrect -f @couleurs 12 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 12 | set %cfond ,12 | drawrect -f @couleurs 12 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,262,43,20,20)) {
if (%ccolor == texte) { set %ctexte 13 | drawrect -f @couleurs 13 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 13 | set %cfond ,13 | drawrect -f @couleurs 13 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,297,43,20,20)) {
if (%ccolor == texte) { set %ctexte 14 | drawrect -f @couleurs 14 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 14 | set %cfond ,14 | drawrect -f @couleurs 14 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,312,43,20,20)) {
if (%ccolor == texte) { set %ctexte 15 | drawrect -f @couleurs 15 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
else { set %fond 15 | set %cfond ,15 | drawrect -f @couleurs 15 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
}
if ($inrect($mouse.x,$mouse.y,281,65,12,12)) {
if (%ccolor == texte) { set %ctexte $null | drawrect -f @couleurs 15 1 182 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
else { set %fond 15 | set %cfond $null | drawrect -f @couleurs 15 1 139 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
}
}
Fermer la fenêtre:window -c @couleurs
Minimiser la fenêtre:window -n @couleurs
}
On *:input:*:{
If (%cactive == on) {
if ($left($1,1) isin /!-+) { goto stop }
if (c isincs $gettok($chan($active).mode,1,32)) { goto stop }
if (%cmajuscule != on) {
msg $active $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ $1- $+ %csouligner $+ %cgras $+ %ccedit $+ | halt
}
:fin
if (%cmajuscule == on) {
var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
msg $active $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ %textmaj $+ %csouligner $+ %cgras $+ %ccedit $+ | halt
}
:stop
}
}

alias couleurs {
  set %ccolor texte
  set %ccombo non
  window -BCdg0k0pRz +dl @couleurs 0 0 337 144
  drawfill -r @couleurs $rgb(218,240,252) 1 10 10
  drawrect -f @couleurs 2 2 0 0 337 15
  drawtext -roc @couleurs $rgb(250,250,250) Tahoma 10 5 3 200 20 Systeme Couleurs par atlantisfr
  drawrect @couleurs 2 2 0 15 337 129
  drawrect -f @couleurs 4 2 323 3 11 11
  drawrect @couleurs 0 1 323 3 11 11
  drawrect -f @couleurs 3 2 310 3 11 11
  drawrect @couleurs 0 1 310 3 11 11
  drawrect -f @couleurs 15 2 5 20 100 20
  drawrect @couleurs 2 2 5 20 100 20
  drawrect -f @couleurs 15 2 103 20 20 20
  drawrect @couleurs 2 2 103 20 20 20
  drawtext -oc @couleurs 2 Webdings 12 107 20 160 12 6
  drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte
  drawline @couleurs 2 2 130 20 130 75
  drawrect -f @couleurs 0 2 137 20 20 20
  drawrect @couleurs 2 2 137 20 20 20
  drawrect -f @couleurs 1 2 162 20 20 20
  drawrect @couleurs 2 2 162 20 20 20
  drawrect -f @couleurs 2 2 187 20 20 20
  drawrect @couleurs 2 2 187 20 20 20
  drawrect -f @couleurs 3 2 212 20 20 20
  drawrect @couleurs 2 2 212 20 20 20
  drawrect -f @couleurs 4 2 237 20 20 20
  drawrect @couleurs 2 2 237 20 20 20
  drawrect -f @couleurs 5 2 262 20 20 20
  drawrect @couleurs 2 2 262 20 20 20
  drawrect -f @couleurs 6 2 287 20 20 20
  drawrect @couleurs 2 2 287 20 20 20
  drawrect -f @couleurs 7 2 312 20 20 20
  drawrect @couleurs 2 2 312 20 20 20
  drawrect -f @couleurs 8 2 137 43 20 20
  drawrect @couleurs 2 2 137 43 20 20
  drawrect -f @couleurs 9 2 162 43 20 20
  drawrect @couleurs 2 2 162 43 20 20
  drawrect -f @couleurs 10 2 187 43 20 20
  drawrect @couleurs 2 2 187 43 20 20
  drawrect -f @couleurs 11 2 212 43 20 20
  drawrect @couleurs 2 2 212 43 20 20
  drawrect -f @couleurs 12 2 237 43 20 20
  drawrect @couleurs 2 2 237 43 20 20
  drawrect -f @couleurs 13 2 262 43 20 20
  drawrect @couleurs 2 2 262 43 20 20
  drawrect -f @couleurs 14 2 287 43 20 20
  drawrect @couleurs 2 2 287 43 20 20
  drawrect -f @couleurs 15 2 312 43 20 20
  drawrect @couleurs 2 2 312 43 20 20
  drawrect -f @couleurs 15 2 180 65 12 12
  drawrect @couleurs 2 2 180 65 12 12
  drawtext -oc @couleurs 2 Tahoma 10 195 65 100 20 Texte
  if (%ctexte != $null) drawrect -f @couleurs %ctexte 1 182 67 8 8
  drawrect -f @couleurs 15 2 137 65 12 12
  drawrect @couleurs 2 2 137 65 12 12
  drawtext -oc @couleurs 2 Tahoma 10 152 65 100 20 Fond
  if (%fond != $null) drawrect -f @couleurs %fond 1 139 67 8 8
  drawline @couleurs 2 2 5 80 332 80
  drawtext -oc @couleurs 2 Tahoma 10 5 85 110 20 Décoration à gauche :
  drawtext -oc @couleurs 2 Tahoma 10 5 103 110 20 Décoration à droite :
  drawrect -f @couleurs 15 2 115 83 218 17
  drawrect @couleurs 2 2 115 83 218 17
  if (%cedit != $null) drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit
  drawrect -f @couleurs 15 2 110 102 223 17
  drawrect @couleurs 2 2 110 102 223 17
  if (%ccedit != $null) drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit
  drawline @couleurs 2 2 5 122 332 122
  drawrect -f @couleurs 15 2 5 126 12 12
  drawrect @couleurs 2 2 5 126 12 12
  drawtext -oc @couleurs 2 Tahoma 10 20 126 100 20 Gras
  if (%cgras == ) drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 • 
  drawrect -f @couleurs 15 2 47 126 12 12
  drawrect @couleurs 2 2 47 126 12 12
  drawtext -oc @couleurs 2 Tahoma 10 62 126 100 20 Souligner
  if (%csouligner == ) drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 •
  drawrect -f @couleurs 15 2 113 126 12 12
  drawrect @couleurs 2 2 113 126 12 12
  drawtext -oc @couleurs 2 Tahoma 10 128 126 100 20 Majuscule
  if (%cmajuscule == on) drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 •
  drawline @couleurs 2 2 180 125 180 139
  drawrect -f @couleurs 15 2 184 125 148 15
  drawrect @couleurs 2 2 184 125 148 15
  drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider
  drawrect -f @couleurs 15 2 5 65 12 12
  drawrect @couleurs 2 2 5 65 12 12
  drawtext -oc @couleurs 2 Tahoma 10 20 65 100 20 Activer/Désactiver 
  if (%cactive == on) drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 •
  drawrect -f @couleurs 15 2 281 65 12 12
  drawrect @couleurs 2 2 281 65 12 12 
  drawtext -oc @couleurs 2 Tahoma 10 296 65 100 20 Aucune
  if (%ctexte == $null) { drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
  if (%cfond == $null) { drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
}
on *:keydown:@couleurs:*:{
  if ($keyval != 8) {
    if ($keyval == 32) {
      if (%ed == 1) { set %ccedit2 %ccedit $+ $chr(160) | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
      if (%ed == 2) { set %cedit2 %cedit $+ $chr(160) | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
    }
    else {
      if (%ed == 1) { set %ccedit2 %ccedit $+ $keychar | set %ccedit %ccedit2 | drawtext -oc @couleurs 2 Tahoma 10 115 104 218 17 %ccedit }
      if (%ed == 2) { set %cedit2 %cedit $+ $keychar | set %cedit %cedit2 | drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
    }
  }
  else {
    if (%ed == 1) {
      set %ccedit2 $left(%ccedit,$calc($len(%ccedit) - 1)) | set %ccedit %ccedit2 | drawrect -f @couleurs 15 1 110 102 223 17 | drawrect @couleurs 2 2 110 102 223 17
      if (%ccedit) { drawtext -oc @couleurs 2 Tahoma 10 115 104 223 17 %ccedit }
    }
    if (%ed == 2) {
      set %cedit2 $left(%cedit,$calc($len(%cedit) - 1)) | set %cedit %cedit2 | drawrect -f @couleurs 15 1 115 83 218 17 | drawrect @couleurs 2 2 115 83 218 17
      if (%cedit) { drawtext -oc @couleurs 2 Tahoma 10 120 85 218 17 %cedit }
    }
  }
}
alias -l couleurs.move {
  if ($window(@couleurs)) window @couleurs $calc($mouse.dx - $1) $calc($mouse.dy - $2)
  if ($mouse.key & 1) .timer $+ $ticks -m 1 0 couleurs.move $1-
}
menu @couleurs {
  mouse: {
    if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
    else { drawrect @couleurs 2 2 137 20 20 20 }
    if $inrect($mouse.x,$mouse.y,137,20,20,20) { drawrect @couleurs 14 2 137 20 20 20 }
    else { drawrect @couleurs 2 2 137 20 20 20 }
    if $inrect($mouse.x,$mouse.y,162,20,20,20) { drawrect @couleurs 14 2 162 20 20 20 }
    else { drawrect @couleurs 2 2 162 20 20 20 }
    if $inrect($mouse.x,$mouse.y,187,20,20,20) { drawrect @couleurs 14 2 187 20 20 20 }
    else { drawrect @couleurs 2 2 187 20 20 20 }
    if $inrect($mouse.x,$mouse.y,212,20,20,20) { drawrect @couleurs 14 2 212 20 20 20 }
    else { drawrect @couleurs 2 2 212 20 20 20 }
    if $inrect($mouse.x,$mouse.y,237,20,20,20) { drawrect @couleurs 14 2 237 20 20 20 }
    else { drawrect @couleurs 2 2 237 20 20 20 }
    if $inrect($mouse.x,$mouse.y,262,20,20,20) { drawrect @couleurs 14 2 262 20 20 20 }
    else { drawrect @couleurs 2 2 262 20 20 20 }
    if $inrect($mouse.x,$mouse.y,287,20,20,20) { drawrect @couleurs 14 2 287 20 20 20 }
    else { drawrect @couleurs 2 2 287 20 20 20 }
    if $inrect($mouse.x,$mouse.y,312,20,20,20) { drawrect @couleurs 14 2 312 20 20 20 }
    else { drawrect @couleurs 2 2 312 20 20 20 }
    if $inrect($mouse.x,$mouse.y,137,43,20,20) { drawrect @couleurs 14 2 137 43 20 20 }
    else { drawrect @couleurs 2 2 137 43 20 20 }
    if $inrect($mouse.x,$mouse.y,162,43,20,20) { drawrect @couleurs 14 2 162 43 20 20 }
    else { drawrect @couleurs 2 2 162 43 20 20 }
    if $inrect($mouse.x,$mouse.y,187,43,20,20) { drawrect @couleurs 14 2 187 43 20 20 }
    else { drawrect @couleurs 2 2 187 43 20 20 }
    if $inrect($mouse.x,$mouse.y,212,43,20,20) { drawrect @couleurs 14 2 212 43 20 20 }
    else { drawrect @couleurs 2 2 212 43 20 20 }
    if $inrect($mouse.x,$mouse.y,237,43,20,20) { drawrect @couleurs 14 2 237 43 20 20 }
    else { drawrect @couleurs 2 2 237 43 20 20 }
    if $inrect($mouse.x,$mouse.y,262,43,20,20) { drawrect @couleurs 14 2 262 43 20 20 }
    else { drawrect @couleurs 2 2 262 43 20 20 }
    if $inrect($mouse.x,$mouse.y,287,43,20,20) { drawrect @couleurs 14 2 287 43 20 20 }
    else { drawrect @couleurs 2 2 287 43 20 20 }
    if $inrect($mouse.x,$mouse.y,312,43,20,20) { drawrect @couleurs 14 2 312 43 20 20 }
    else { drawrect @couleurs 2 2 312 43 20 20 }
    if $inrect($mouse.x,$mouse.y,184,125,148,15) { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 14 Tahoma 10 240 126 100 20 Valider }
    else { drawrect -f @couleurs 15 2 186 127 144 11 | drawtext -oc @couleurs 2 Tahoma 10 240 126 100 20 Valider }
    if $inrect($mouse.x,$mouse.y,323,3,11,11) { drawdot -f @couleurs 0 4 330 10 | drawrect @couleurs 0 1 323 3 11 11 }
    else { drawrect -f @couleurs 4 2 323 3 11 11  | drawrect @couleurs 0 1 323 3 11 11 }
    if $inrect($mouse.x,$mouse.y,310,3,11,11) { drawdot -f @couleurs 0 4 317 10 | drawrect @couleurs 0 1 310 3 11 11 }
    else { drawrect -f @couleurs 3 2 310 3 11 11 | drawrect @couleurs 0 1 310 3 11 11 }
  }
  sclick:{ 
    if ($inrect($mouse.x,$mouse.y,5,65,12,12)) {
      if (%cactive == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 63 100 20 • | set %cactive on }
      else { drawrect -f @couleurs 15 2 7 67 8 8 | set %cactive $null }
    }
    if $inrect($mouse.x,$mouse.y,184,125,148,15) { window -c @couleurs }
    if ($inrect($mouse.x,$mouse.y,5,126,12,12)) { 
      if (%cgras == $null) { drawtext -oc @couleurs 2 Tahoma 12 7 124 100 20 • | set %cgras  }
      else { drawrect -f @couleurs 15 2 7 128 8 8 | set %cgras $null }
    }
    if ($inrect($mouse.x,$mouse.y,47,126,12,12)) { 
      if (%csouligner == $null) { drawtext -oc @couleurs 2 Tahoma 12 49 124 150 20 • | set %csouligner  }
      else { drawrect -f @couleurs 15 2 49 128 8 8 | set %csouligner $null }
    }
    if ($inrect($mouse.x,$mouse.y,113,126,12,12)) { 
      if (%cmajuscule == off) { drawtext -oc @couleurs 2 Tahoma 12 115 124 100 20 • | set %cmajuscule on }
      else { drawrect -f @couleurs 15 2 115 128 8 8 | set %cmajuscule off }
    }
    if ($mouse.y < 15) { couleurs.move $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
    if ($inrect($mouse.x,$mouse.y,323,3,11,11)) { window -c @couleurs }
    if ($inrect($mouse.x,$mouse.y,310,3,11,11)) { window -n @couleurs }
    if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
    if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
    if ($inrect($mouse.x,$mouse.y,115,83,218,17)) { set %ed 2 }
    if ($inrect($mouse.x,$mouse.y,110,102,223,17)) { set %ed 1 }
    if ($inrect($mouse.x,$mouse.y,103,20,20,20)) { 
      if (%ccombo == non) { 
        set %ccombo oui | drawrect -f @couleurs 15 2 5 38 100 20 | drawrect @couleurs 2 2 5 38 100 20
        if (%ccolor == fond) { drawtext -oc @couleurs 2 Tahoma 10 10 42 100 20 Couleurs du Texte }
        else { drawtext -oc @couleurs 2 Tahoma 10 12 42 100 20 Couleurs du Fond }
      }
      else { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
    }
    if ($inrect($mouse.x,$mouse.y,12,42,100,20)) { set %ccombo non | drawrect -fr @couleurs $rgb(218,240,252) 2 5 40 100 20 }
    if ($inrect($mouse.x,$mouse.y,12,42,100,20)) {
      if (%ccolor == texte) { set %ccolor fond | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Fond }
      else { set %ccolor texte | drawrect -f @couleurs 15 2 7 22 96 16 | drawtext -oc @couleurs 2 Tahoma 10 10 23 100 20 Couleurs du Texte }
    }
    if ($inrect($mouse.x,$mouse.y,137,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 00 | drawrect -f @couleurs 0 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 0 | set %cfond ,00 | drawrect -f @couleurs 0 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    }  
    if ($inrect($mouse.x,$mouse.y,162,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 01 | drawrect -f @couleurs 1 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 1 | set %cfond ,01 | drawrect -f @couleurs 1 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,197,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 02 | drawrect -f @couleurs 2 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 2 | set %cfond ,02 | drawrect -f @couleurs 2 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,212,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 03 | drawrect -f @couleurs 3 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 3 | set %cfond ,03 | drawrect -f @couleurs 3 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,237,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 04 | drawrect -f @couleurs 4 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 4 | set %cfond ,04 | drawrect -f @couleurs 4 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,262,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 05 | drawrect -f @couleurs 5 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 5 | set %cfond ,05 | drawrect -f @couleurs 5 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,297,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 06 | drawrect -f @couleurs 6 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 6 | set %cfond ,06 | drawrect -f @couleurs 6 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,312,20,20,20)) {
      if (%ccolor == texte) { set %ctexte 07 | drawrect -f @couleurs 7 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 7 | set %cfond ,07 | drawrect -f @couleurs 7 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,137,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 08 | drawrect -f @couleurs 8 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 8 | set %cfond ,08 | drawrect -f @couleurs 8 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,162,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 09 | drawrect -f @couleurs 9 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 9 | set %cfond ,09 | drawrect -f @couleurs 9 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,197,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 10 | drawrect -f @couleurs 10 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 10 | set %cfond ,10 | drawrect -f @couleurs 10 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,212,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 11 | drawrect -f @couleurs 11 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 11 | set %cfond ,11 | drawrect -f @couleurs 11 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,237,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 12 | drawrect -f @couleurs 12 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 12 | set %cfond ,12 | drawrect -f @couleurs 12 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,262,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 13 | drawrect -f @couleurs 13 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 13 | set %cfond ,13 | drawrect -f @couleurs 13 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,297,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 14 | drawrect -f @couleurs 14 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 14 | set %cfond ,14 | drawrect -f @couleurs 14 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,312,43,20,20)) {
      if (%ccolor == texte) { set %ctexte 15 | drawrect -f @couleurs 15 1 182 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
      else { set %fond 15 | set %cfond ,15 | drawrect -f @couleurs 15 1 139 67 8 8 | drawrect -f @couleurs 15 2 283 68 8 7 }
    } 
    if ($inrect($mouse.x,$mouse.y,281,65,12,12)) {
      if (%ccolor == texte) { set %ctexte $null | drawrect -f @couleurs 15 1 182 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 182 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
      else { set %fond 15 | set %cfond $null | drawrect -f @couleurs 15 1 139 67 8 8 | drawtext -oc @couleurs 2 Tahoma 12 139 63 100 20 • | drawtext -oc @couleurs 2 Tahoma 12 283 63 100 20 • }
    } 
  }
  Fermer la fenêtre:window -c @couleurs
  Minimiser la fenêtre:window -n @couleurs
}

On *:input:*:{
  If (%cactive == on) {
    if ($left($1,1) isin /!-+) { goto stop }
    if (c isincs $gettok($chan($active).mode,1,32)) { goto stop }
    if (%cmajuscule != on) {
      msg $active  $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ $1- $+ %csouligner $+ %cgras $+ %ccedit $+  | halt
    }
    :fin
    if (%cmajuscule == on) {
      var %textmaj = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))
      msg $active  $+ %ctexte $+ %cfond $+ %cedit $+ %csouligner $+ %cgras $+ %textmaj $+ %csouligner $+ %cgras $+ %ccedit $+  | halt
    }
    :stop
  }
}

Historique

17 août 2006 18:16:03 :: Modification : 1) Rajout du clique droit.
17 août 2006 19:25:21 :: Bug pour utiliser une seule couleure
26 août 2006 20:02:38 :: Conseil de wims et rétrécissement du code
29 octobre 2006 10:23:03 :: Le mode +c

Sources du même auteur

SPEED (JEU EN PICWIN)

CALCULATRICE EN PICWIN

AUTO CONNEXION

Toutes les sources de atlantisfr

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

Sources en rapport avec celle ci

LAZER (JEU EN PICWIN) par Zova

[DLL] DESSINER COMME LES PICWINS SUR UNE DIALOGBOX (BONUS: J... par uaip

PANNEAU DE CONFIGURATION POUR CHANGER D'ÉCRITURE par ScriptingBen

ADD-ON COULEUR & CORRECTEUR DE TEXTE PAR DEVORZ par devorZ

PACMAN ONLINE - 4 JOUEURS par wims

Commentaires et avis

Commentaire de VestaX le 18/08/2006 10:40:46

J'avoue qu'il y a du boulot, ca m'as l'air pas mal. Mais quel interet de le faire en picwin ?

Commentaire de atlantisfr le 18/08/2006 11:21:52

L'intéret de le fair en picwin est de mettre les couleurs au lieu des noms de couleurs (Sa fait largement mieu je trouve), les picwin offre une interface beaucoup plus jolie.

Commentaire de lebaronrouge le 18/08/2006 19:33:10

[ L'intéret de le fair en picwin est de mettre les couleurs au lieu des noms de couleurs (Sa fait largement mieu je trouve) ]

Bin avec un dialogue tout bête tu peux tout ausi bien mettre aussi les couleurs via une palette sous forme d'icone/image qui selectionnera tout aussi bien les couleurs choisies selont celles que tu click , c'est ce que je suis en train de faire pour mon script :))
Avec la dll MDX y'a moyen de faire pratiquement aussi beau et avec un code largement moins long , parce que la pour un si petit addon ca en fait des lignes , maintenant juste pour le fun et la performance de ce que tu as fais c'est chouette j'aime bien ;o)

Commentaire de atlantisfr le 19/08/2006 03:25:54

Je suis d'accord lebaronrouge mais une dll ne rendra jamais un dialog aussi beau qu'une fenêtre en picwin :) Puis comme je disais à un ami, une personne vois ma source en picwin et la même en dialog avec des dlls ... Il ne va pas perdre son temps à charger le dialog avec les dlls mais va plutôt load mon add-ons je pense :)

Commentaire de talking le 19/08/2006 13:15:44

Salut. En effet, il y a du boulot et je te félicite. Je trouve l'interface en PW assez agréable. Au sujet des dialogs et PW, celà peut dépendre des gouts, certains peuvent préférer de bons dialogs à des PW, c'est un choix. Il y a juste un truc que tu peux peut être optimiser :

if (%ccedit != $null) devient if (%ccedit)

et

if (%cfond == $null) devient if (!%cfond)

Tu mérites un 9. Bonne continuation

Commentaire de lebaronrouge le 20/08/2006 12:50:46

Un dialogue ne peut pas être aussi beau? ca dépend , voila un exemple de ce que je viens de faire et je ne vois pas grande différence : http://lebaronrouge1.free.fr/lol/colorbox.png
Ca me parait asser propre et net non? , apres question de gout ou choi :)
Je vais tenter à l'occasion le même mais en picwin juste pour voir.

Commentaire de atlantisfr le 20/08/2006 16:10:03

leraonrouge si tu préféres la facilitée des dlls c'est ton choix, moi j'aime pas trop utiliser de dlls. Quand je peux les évités, je les évite. Aprés c'est surtout une question de gout.

Commentaire de lebaronrouge le 23/08/2006 22:13:23

Je ne critique pas ta source loin de la , je ne sait pas encore faire de picwin , je trouve juste que le petit + esthétique est léger et que les dll c'est bien pratique et permet de belle chose avec des codes moins longs.
Je vais me mettre au picwin prochainement , peut-être serais-je un futur convaincu.
A ce propos j'aurai apprécié , en tant que novice en picwin , que ta source soit commenté.
Ca m'aurait fait une bonne base pour apprendre je pense car le code me parait déja bien propre et clair et bien que novice j'en comprend les bases , ca m'aurait donc largement instruit avec les commentaires en plus.

bonne continuation ;o)

Commentaire de wims le 24/08/2006 00:45:04

Tu ne vérifie pas si le mode +c est activé sur le salon

Commentaire de lebaronrouge le 25/08/2006 10:09:30

remarque pertinente wims ;o)

Commentaire de COOLMAN002 le 31/08/2006 00:12:43

la si je metsle mode +C (qui n'a aucun rapport) ca va le prendre comme un +c.
Si je mets le mode +k coucou, ca va le prendre comme un +c.

Pourquoi ne pas faire un $iif pour mettre/ne pas mettre la majuscule en debut de phrase ?

$+($upper($left($1-,1)),$right($1-,$calc($len($1-) - 1)))

euh.. pk pas utiliser $mid($1-,1) ?

(A quoi sert ce :fin ?)

Commentaire de AgoRa_ScripT le 06/10/2006 18:57:53

la série des drawrect peut être remplacée par une boucle a mon avis :)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

couleurs [ par Corneliani ] Salut tlm,voila dans nicklist les op sont en rougeset les voices en bleu mais quand il ecrive sur le chan leurs nick est de couleurs de noir donc je v couleurs [ par Corneliani ] Salut tlm,voila dans nicklist les op sont en rougeset les voices en bleu mais quand il ecrive sur le chan leurs nick est de couleurs de noir donc je v couleurs [ par Corneliani ] Salut tlm,voila dans nicklist les op sont en rougeset les voices en bleu mais quand il ecrive sur le chan leurs nick est de couleurs de noir donc je v NICKLIST CLIGNOTANTE EN COULEURS [ par Nenya ] Comme on approche de noel, je me demandais comment faire pour avoir une nicklist clignotante et en couleurs pour faire comme une guirlande, je l'avais Nicklist en couleurs et clignotante [ par Nenya ] Comme on approche de noel, je me demandais comment faire pour avoir une nicklist clignotante et en couleurs pour faire comme une guirlande, je l'avais Dégradé de couleurs [ par Force ] bonjour, j' ai récemment téléchargé un script sur www.paradisiaque.fr.fm, le script, c' est Paradize Script, et j' aurai voulu prendre seulement le dé Addons Couleurs [ par Nazario ] Je voudrait savoir si qq1 qui lira cette questions connait un bon addons couleurs à me passer car mon ScripT est mort et j'aimerais bien le réveiller saleté de couleurs ... [ par Arnaout ] Salut tout le monde ! En fait je bosse sur un ptit script pour IRC mais chui tombé sur un probs de couleurs assez chiant ..Vous savez la barre ou est 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 degradé de couleurs [ par Snoopynette ] Bah j'aimerai savoir cmt on fai pour pouvoir ecrire avec 4 couleurs. Parce que ba je pige po :xMici de me repondre

Nos sponsors

Derniers Blogs

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

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

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

Creation d-un site internet similaire a Meetic CDC Disponible
Budget : 8 000€
Integration E commerce d-une application graphique interactive
Budget : 4 000€
URGENT-Developpement d-un annuaire
Budget : 13 000€

Logiciels

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
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.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
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011