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

Ce site au démarrage

begin process at 2010 07 30 01:42:36

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

MENU DES COULEURS EN PICWIN

Information sur la source

Note :

7,00 / 10

Catégorie :AddOns Classé sous :couleur, color, picwin, menu Niveau :Débutant Date de création :31/07/2005 Date de mise à jour :31/07/2005 15:30:22 Vu :2 805

Auteur : HilliX

Ecrire un message privé

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Pour changer la couleur de votre écriture.

Source

/*
Menu Des Couleurs en picwin
Addon Par HilliX
*/
alias color {
window -aBCpz +b @color -1 -1 200 230
drawfill -rs @color $rgb(210,210,210) $rgb(255,255,255) 0 0
drawline @color 1 1 0 13 173 13 173 13 187 -1 176 10 200 10
drawfill -rs @color $rgb(190,190,190) $rgb(210,210,210) 2 2
drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 180 9
drawline -r @color $rgb(130,130,130) 1 178 9 188 -1
drawline -r @color $rgb(130,130,130) 1 0 12 173 12 173 12 186 -1
drawline -r @color $rgb(220,220,220) 1 0 12 0 0 0 0 185 0
drawtext -ro @color $rgb(60,60,60) tahoma 10 7 0 Menu Des Couleurs
drawline -r @color $rgb(60,60,60) 2 189 2 194 7
drawline -r @color $rgb(60,60,60) 2 194 2 189 7
drawline @color 1 1 0 214 16 230 16 230 181 230 181 230 198 213
drawline -r @color $rgb(130,130,130) 1 197 215 197 227 197 227 184 227
drawline -r @color $rgb(220,220,220) 1 197 215 184 228
drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 196 226 2 226
drawline -r @color $rgb(130,130,130) 1 0 215 12 227 -1 227
drawline -r @color $rgb(220,220,220) 1 0 230 0 215
drawline -r @color $rgb(230,230,230) 1 70 215 70 207 77 200 130 200
drawline -r @color $rgb(100,100,100) 1 70 215 123 215 130 208 130 200
drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 80 210
drawtext -r @color $rgb(60,60,60) tahoma 10 85 202 Fermer
var %i 1 , %txt 1ere lettre.Texte.Dernière lettre , %coef 0
while (%i <= 3) {
drawrect @color 14 1 5 $calc(22 + %coef) 188 50
drawtext -rb @color $rgb(100,100,100) $rgb(210,210,210) tahoma 10 12 $calc(16 + %coef) $gettok(%txt,%i,46)
drawdot -r @color $rgb(210,210,210) 1 11 $calc(22 + %coef)
check 15 52 Majuscule
check 85 52 Gras
check 135 52 Souligné
check 50 112 Gras
check 110 112 Souligné
check 50 172 Gras
check 110 172 Souligné
drawtext -r @color $rgb(60,60,60) tahoma 10 10 $calc(30 + %coef) Couleur:
drawtext -r @color $rgb(60,60,60) tahoma 10 110 $calc(30 + %coef) Fond:
drawrect @color 1 1 50 $calc(31 + %coef) 50 12
drawrect @color 1 1 138 $calc(31 + %coef) 50 12
drawline @color 1 1 88 $calc(31 + %coef) 88 $calc(43 + %coef)
drawline @color 1 1 176 $calc(31 + %coef) 176 $calc(43 + %coef)
drawline -r @color $rgb(200,200,200) 1 51 $calc(41 + %coef) 87 $calc(41 + %coef) 87 $calc(41 + %coef) 87 $calc(31 + %coef)
drawline -r @color $rgb(110,110,110) 1 51 $calc(41 + %coef) 51 $calc(32 + %coef) 51 $calc(32 + %coef) 88 $calc(32 + %coef)
drawline -r @color $rgb(150,150,150) 1 89 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(31 + %coef)
drawline -r @color $rgb(240,240,240) 1 89 $calc(41 + %coef) 89 $calc(32 + %coef) 89 $calc(32 + %coef) 99 $calc(32 + %coef)
drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 52 $calc(33 + %coef)
drawtext -r @color $rgb(100,100,100) webdings 11 89 $calc(27 + %coef) 6
drawline -r @color $rgb(240,240,240) 1 139 $calc(41 + %coef) 175 $calc(41 + %coef) 175 $calc(41 + %coef) 175 $calc(31 + %coef)
drawline -r @color $rgb(110,110,110) 1 139 $calc(41 + %coef) 139 $calc(32 + %coef) 139 $calc(32 + %coef) 176 $calc(32 + %coef)
drawline -r @color $rgb(150,150,150) 1 177 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(31 + %coef)
drawline -r @color $rgb(200,200,200) 1 177 $calc(41 + %coef) 177 $calc(32 + %coef) 177 $calc(32 + %coef) 187 $calc(32 + %coef)
drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 140 $calc(33 + %coef)
drawtext -r @color $rgb(100,100,100) webdings 11 177 $calc(27 + %coef) 6
inc %i
inc %coef 60
}
drawrect -f @color $right($hget(color,c.1),2) 1 53 34 33 6
drawrect -f @color $right($hget(color,c.2),2) 1 53 94 33 6
drawrect -f @color $right($hget(color,c.3),2) 1 53 154 33 6
if ($hget(color,f.1)) { drawrect -f @color $right($hget(color,f.1),2) 1 141 34 33 6 }
else {
drawrect @color 1 1 141 34 33 6
drawline @color 1 1 141 39 146 34
drawline @color 1 1 150 39 155 34
drawline @color 1 1 160 39 165 34
drawline @color 1 1 169 39 174 34
}
if ($hget(color,f.2)) { drawrect -f @color $right($hget(color,f.2),2) 1 141 94 33 6 }
else {
drawrect @color 1 1 141 94 33 6
drawline @color 1 1 141 99 146 94
drawline @color 1 1 150 99 155 94
drawline @color 1 1 160 99 165 94
drawline @color 1 1 169 99 174 94
}
if ($hget(color,f.3)) { drawrect -f @color $right($hget(color,f.3),2) 1 141 154 33 6 }
else {
drawrect @color 1 1 141 154 33 6
drawline @color 1 1 141 159 146 154
drawline @color 1 1 150 159 155 154
drawline @color 1 1 160 159 165 154
drawline @color 1 1 169 159 174 154
}
if ($hget(color,maj)) { drawtext -r @color $rgb(100,100,100) webdings 12 15 48 a }
if ($hget(color,g.1)) { drawtext -r @color $rgb(100,100,100) webdings 12 85 48 a }
if ($hget(color,s.1)) { drawtext -r @color $rgb(100,100,100) webdings 12 135 48 a }
if ($hget(color,g.2)) { drawtext -r @color $rgb(100,100,100) webdings 12 50 108 a }
if ($hget(color,s.2)) { drawtext -r @color $rgb(100,100,100) webdings 12 110 108 a }
if ($hget(color,g.3)) { drawtext -r @color $rgb(100,100,100) webdings 12 50 168 a }
if ($hget(color,s.3)) { drawtext -r @color $rgb(100,100,100) webdings 12 110 168 a }
}
menu @color {
mouse:{
if ($inrect($mouse.x,$mouse.y,187,0,8,8)) && (!$hget(color,b.close)) {
drawline -r @color $rgb(230,230,230) 1 187 9 187 0 197 0
drawline -r @color $rgb(60,60,60) 1 188 9 196 9 196 0
hadd color b.close on
}
elseif (!$inrect($mouse.x,$mouse.y,187,0,8,8)) && ($hget(color,b.close)) {
drawrect -r @color $rgb(170,170,170) 1 187 0 10 10
hdel color b.close
}
}
sclick:{
if ($inrect($mouse.x,$mouse.y,187,0,8,8)) {
drawline -r @color $rgb(60,60,60) 1 187 9 187 0 197 0
drawline -r @color $rgb(230,230,230) 1 188 9 196 9 196 0
.timerclose -m 1 150 window -c @color
}
elseif ($inpoly($mouse.x,$mouse.y,70,215,70,207,77,200,130,200,130,208,123,215)) {
drawline -r @color $rgb(100,100,100) 1 70 215 70 207 77 200 130 200
drawline -r @color $rgb(230,230,230) 1 70 215 123 215 130 208 130 200
.timerclose -m 1 150 window -c @color
}
elseif ($inrect($mouse.x,$mouse.y,15,52,55,10)) {
if ($hget(color,maj)) { drawrect -f @color 0 1 17 54 6 6 | hadd color maj }
else { drawtext -r @color $rgb(100,100,100) webdings 12 15 48 a | hadd color maj on }
}
elseif ($inrect($mouse.x,$mouse.y,85,52,30,10)) {
if ($hget(color,g.1)) { drawrect -f @color 0 1 87 54 6 6 | hadd color g.1 }
else { drawtext -r @color $rgb(100,100,100) webdings 12 85 48 a | hadd color g.1 }
}
elseif ($inrect($mouse.x,$mouse.y,135,52,50,10)) {
if ($hget(color,s.1)) { drawrect -f @color 0 1 137 54 6 6 | hadd color s.1 }
else { drawtext -r @color $rgb(100,100,100) webdings 12 135 48 a | hadd color s.1 }
}
elseif ($inrect($mouse.x,$mouse.y,50,112,30,10)) {
if ($hget(color,g.2)) { drawrect -f @color 0 1 52 114 6 6 | hadd color g.2 }
else { drawtext -r @color $rgb(100,100,100) webdings 12 50 108 a | hadd color g.2 }
}
elseif ($inrect($mouse.x,$mouse.y,110,112,50,10)) {
if ($hget(color,s.2)) { drawrect -f @color 0 1 112 114 6 6 | hadd color s.2 }
else { drawtext -r @color $rgb(100,100,100) webdings 12 110 108 a | hadd color s.2 }
}
elseif ($inrect($mouse.x,$mouse.y,50,172,30,10)) {
if ($hget(color,g.3)) { drawrect -f @color 0 1 52 174 6 6 | hadd color g.3 }
else { drawtext -r @color $rgb(100,100,100) webdings 12 50 168 a | hadd color g.3 }
}
elseif ($inrect($mouse.x,$mouse.y,110,172,50,10)) {
if ($hget(color,s.3)) { drawrect -f @color 0 1 112 174 6 6 | hadd color s.3 }
else { drawtext -r @color $rgb(100,100,100) webdings 12 110 168 a | hadd color s.3 }
}
elseif ($inpoly($mouse.x,mouse.y,0,0,0,13,173,13,187,0)) { move $calc($mouse.dx - $window(@color).x) $calc($mouse.dy - $window(@color).y) }
var %i 1 , %coef 0
while (%i <= 3) {
if ($inrect($mouse.x,$mouse.y,88,$calc(31 + %coef),12,12)) {
drawline -r @color $rgb(240,240,240) 1 89 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(31 + %coef)
drawline -r @color $rgb(150,150,150) 1 89 $calc(41 + %coef) 89 $calc(32 + %coef) 89 $calc(32 + %coef) 99 $calc(32 + %coef)
c.scroll 51 $calc(44 + %coef) %i
}
if ($inrect($mouse.x,$mouse.y,176,$calc(31 + %coef),12,12)) {
drawline -r @color $rgb(240,240,240) 1 177 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(31 + %coef)
drawline -r @color $rgb(150,150,150) 1 177 $calc(41 + %coef) 177 $calc(32 + %coef) 177 $calc(32 + %coef) 187 $calc(32 + %coef)
f.scroll 139 $calc(44 + %coef) %i
}
inc %i
inc %coef 60
}
hsave -o color color.hsh
}
}
alias -l check {
if (!$3) halt
drawline -r @color $rgb(100,100,100) 1 $1 $calc($2 + 10) $1 $2 $1 $2 $calc($1 + 10) $2
drawline -r @color $rgb(80,80,80) 1 $calc($1 + 1) $calc($2 + 9) $calc($1 + 1) $calc($2 + 1) $calc($1 + 1) $calc($2 + 1) $calc($1 + 9) $calc($2 + 1)
drawline -r @color $rgb(220,220,220) 1 $calc($1 + 1) $calc($2 + 10) $calc($1 + 10) $calc($2 + 10) $calc($1 + 10) $calc($2 + 10) $calc($1 + 10) $calc($2 - 1)
drawline -r @color $rgb(210,210,210) 1 $calc($1 + 2) $calc($2 + 9) $calc($1 + 9) $calc($2 + 9) $calc($1 + 9) $calc($2 + 9) $calc($1 + 9) $2
drawfill -rs @color $rgb(255,255,255) $rgb(210,210,210) $calc($1 + 3) $calc($2 + 3)
drawtext -r @color $rgb(60,60,60) tahoma 10 $calc($1 + 12) $calc($2 - 1) $3
}
alias -l c.scroll {
window -hpB +b @c.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
window -ahpB +b @c.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
drawline -r @c.scroll $rgb(240,240,240) 1 38 57 38 0 47 0 38 0 38 48 47 48 38 48 38 11 47 11
drawline -r @c.scroll $rgb(180,180,180) 1 39 57 47 57 47 0 47 46 39 46 47 46 47 9 38 9
drawline @c.scroll 1 1 37 0 37 60 37 47 48 47 48 10 37 10
drawfill -rs @c.scroll $rgb(170,170,170) $rgb(255,255,255) 1 1
drawline -r @c.scroll $rgb(130,130,130) 1 0 60 0 0 36 0
drawline -r @c.scroll $rgb(240,240,240) 1 1 57 36 57 36 0
drawfill -rs @c.scroll $rgb(200,200,200) $rgb(255,255,255) 40 2 40 50
drawfill -rs @c.scroll $rgb(170,170,170) $rgb(255,255,255) 40 40
drawrect -f @c.scroll 0 1 2 3 32 8
drawrect -f @c.scroll 1 1 2 14 32 8
drawrect -f @c.scroll 2 1 2 25 32 8
drawrect -f @c.scroll 3 1 2 36 32 8
drawrect -f @c.scroll 4 1 2 47 32 8
hadd color c.s.up 0
hadd color c.s.down 4
hadd color c.s.num $3
}
menu @c.scroll {
sclick:{
if ($inrect($mouse.x,$mouse.y,37,0,10,10)) {
drawline -r @c.scroll $rgb(240,240,240) 1 38 9 47 9 47 0
drawline -r @c.scroll $rgb(150,150,150) 1 38 9 38 0 47 0
.timerup -m 1 150 drawline -r @c.scroll $rgb(150,150,150) 1 38 9 47 9 47 0
.timerup` -m 1 150 drawline -r @c.scroll $rgb(240,240,240) 1 38 9 38 0 47 0
if $hget(color,c.s.up) != 0 {
hdec color c.s.up
hdec color c.s.down
drawrect -f @c.scroll $hget(color,c.s.up) 1 2 3 32 8
drawrect -f @c.scroll $calc($hget(color,c.s.up) + 1) 1 2 14 32 8
drawrect -f @c.scroll $calc($hget(color,c.s.up) + 2) 1 2 25 32 8
drawrect -f @c.scroll $calc($hget(color,c.s.up) + 3) 1 2 36 32 8
drawrect -f @c.scroll $hget(color,c.s.down) 1 2 47 32 8
}
}
elseif ($inrect($mouse.x,$mouse.y,37,48,10,10)) {
drawline -r @c.scroll $rgb(240,240,240) 1 38 57 47 57 47 47
drawline -r @c.scroll $rgb(150,150,150) 1 38 57 38 48 48 48
.timerdown -m 1 150 drawline -r @c.scroll $rgb(240,240,240) 1 38 57 38 48 47 48
.timerdown` -m 1 150 drawline -r @c.scroll $rgb(150,150,150) 1 38 57 47 57 47 47
if $hget(color,c.s.down) != 15 {
hinc color c.s.up
hinc color c.s.down
drawrect -f @c.scroll $hget(color,c.s.up) 1 2 3 32 8
drawrect -f @c.scroll $calc($hget(color,c.s.up) + 1) 1 2 14 32 8
drawrect -f @c.scroll $calc($hget(color,c.s.up) + 2) 1 2 25 32 8
drawrect -f @c.scroll $calc($hget(color,c.s.up) + 3) 1 2 36 32 8
drawrect -f @c.scroll $hget(color,c.s.down) 1 2 47 32 8
}
}
var %i 1 , %coef 0
while (%i <= 5) {
var %x $calc(3 + %coef)
if ($inrect($mouse.x,$mouse.y,2,%x,32,8)) {
var %item c. $+ $hget(color,c.s.num) , %y $calc(34 + (($hget(color,c.s.num) - 1) * 60))
hadd color %item $+ $iif($len($calc($hget(color,c.s.up) + (%i - 1))) = 1,0 $+ $calc($hget(color,c.s.up) + (%i - 1)),$calc($hget(color,c.s.up) + (%i - 1)))
hsave -o color color.hsh
drawrect -f @color $right($hget(color,%item),2) 1 53 %y 33 6
window -c @c.scroll
drawline -r @color $rgb(150,150,150) 1 89 41 98 41 98 41 98 31
drawline -r @color $rgb(240,240,240) 1 89 41 89 32 89 32 99 32
drawline -r @color $rgb(150,150,150) 1 89 101 98 101 98 101 98 91
drawline -r @color $rgb(240,240,240) 1 89 101 89 92 89 92 99 92
drawline -r @color $rgb(150,150,150) 1 89 161 98 161 98 161 98 151
drawline -r @color $rgb(240,240,240) 1 89 161 89 152 89 152 99 152
}
inc %i
inc %coef 11
}
}
}
alias -l f.scroll {
window -hpB +b @f.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
window -ahpB +b @f.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
drawline -r @f.scroll $rgb(240,240,240) 1 38 57 38 0 47 0 38 0 38 48 47 48 38 48 38 11 47 11
drawline -r @f.scroll $rgb(180,180,180) 1 39 57 47 57 47 0 47 46 39 46 47 46 47 9 38 9
drawline @f.scroll 1 1 37 0 37 60 37 47 48 47 48 10 37 10
drawfill -rs @f.scroll $rgb(170,170,170) $rgb(255,255,255) 1 1
drawline -r @f.scroll $rgb(130,130,130) 1 0 60 0 0 36 0
drawline -r @f.scroll $rgb(240,240,240) 1 1 57 36 57 36 0
drawfill -rs @f.scroll $rgb(200,200,200) $rgb(255,255,255) 40 2 40 50
drawfill -rs @f.scroll $rgb(170,170,170) $rgb(255,255,255) 40 40
drawrect -f @f.scroll 0 1 2 3 32 8
drawrect -f @f.scroll 1 1 2 14 32 8
drawrect -f @f.scroll 2 1 2 25 32 8
drawrect -f @f.scroll 3 1 2 36 32 8
drawrect -f @f.scroll 4 1 2 47 32 8
hadd color f.s.up 0
hadd color f.s.down 4
hadd color f.s.num $3
}
menu @f.scroll {
sclick:{
if ($inrect($mouse.x,$mouse.y,37,0,10,10)) {
drawline -r @f.scroll $rgb(240,240,240) 1 38 9 47 9 47 0
drawline -r @f.scroll $rgb(150,150,150) 1 38 9 38 0 47 0
.timerup -m 1 150 drawline -r @f.scroll $rgb(150,150,150) 1 38 9 47 9 47 0
.timerup` -m 1 150 drawline -r @f.scroll $rgb(240,240,240) 1 38 9 38 0 47 0
if $hget(color,f.s.up) != 0 {
hdec color f.s.up
hdec color f.s.down
drawrect -f @f.scroll $hget(color,f.s.up) 1 2 3 32 8
drawrect -f @f.scroll $calc($hget(color,f.s.up) + 1) 1 2 14 32 8
drawrect -f @f.scroll $calc($hget(color,f.s.up) + 2) 1 2 25 32 8
drawrect -f @f.scroll $calc($hget(color,f.s.up) + 3) 1 2 36 32 8
drawrect -f @f.scroll $hget(color,f.s.down) 1 2 47 32 8
}
}
elseif ($inrect($mouse.x,$mouse.y,37,48,10,10)) {
drawline -r @f.scroll $rgb(240,240,240) 1 38 57 47 57 47 47
drawline -r @f.scroll $rgb(150,150,150) 1 38 57 38 48 48 48
.timerdown -m 1 150 drawline -r @f.scroll $rgb(240,240,240) 1 38 57 38 48 47 48
.timerdown` -m 1 150 drawline -r @f.scroll $rgb(150,150,150) 1 38 57 47 57 47 47
if $hget(color,f.s.down) != 16 {
hinc color f.s.up
hinc color f.s.down
drawrect -f @f.scroll $hget(color,f.s.up) 1 2 3 32 8
drawrect -f @f.scroll $calc($hget(color,f.s.up) + 1) 1 2 14 32 8
drawrect -f @f.scroll $calc($hget(color,f.s.up) + 2) 1 2 25 32 8
drawrect -f @f.scroll $calc($hget(color,f.s.up) + 3) 1 2 36 32 8
drawrect -f @f.scroll $iif($hget(color,f.s.down) == 16,0,$hget(color,f.s.down)) 1 2 47 32 8
}
if $hget(color,f.s.down) == 16 {
drawrect @f.scroll 1 1 2 47 32 8
drawfill -rs @f.scroll $rgb(170,170,170) $rgb(255,255,255) 3 48
drawline @f.scroll 1 1 2 54 9 47
drawline @f.scroll 1 1 10 54 17 47
drawline @f.scroll 1 1 18 54 25 47
drawline @f.scroll 1 1 26 54 33 47
}
}
var %i 1 , %coef 0
while (%i <= 5) {
var %x $calc(3 + %coef)
if ($inrect($mouse.x,$mouse.y,2,%x,32,8)) {
var %item f. $+ $hget(color,f.s.num) , %y $calc(34 + (($hget(color,f.s.num) - 1) * 60))
hadd color %item , $+ $iif($len($calc($hget(color,f.s.up) + (%i - 1))) = 1,0 $+ $calc($hget(color,f.s.up) + (%i - 1)),$calc($hget(color,f.s.up) + (%i - 1)))
if $hget(color,%item) == ,16 { hadd color %item }
hsave -o color color.hsh
drawrect -f @color $iif(($hget(color,%item)),$right($hget(color,%item),2),0) 1 141 %y 33 6
window -c @f.scroll
drawline -r @color $rgb(150,150,150) 1 177 41 186 41 186 41 186 31
drawline -r @color $rgb(240,240,240) 1 177 41 177 32 177 32 187 32
drawline -r @color $rgb(150,150,150) 1 177 101 186 101 186 101 186 91
drawline -r @color $rgb(240,240,240) 1 177 101 177 92 177 92 187 92
drawline -r @color $rgb(150,150,150) 1 177 161 186 161 186 161 186 151
drawline -r @color $rgb(240,240,240) 1 177 161 177 152 177 152 187 152
if (!$hget(color,%item)) {
drawrect -rf @color $rgb(170,170,170) 1 141 %y 33 6
drawrect @color 1 1 141 %y 33 6
drawline @color 1 1 141 $calc(%y + 5) 146 %y
drawline @color 1 1 150 $calc(%y + 5) 155 %y
drawline @color 1 1 160 $calc(%y + 5) 165 %y
drawline @color 1 1 169 $calc(%y + 5) 174 %y
}
}
inc %i
inc %coef 11
}
}
}
alias -l move {
if ($window(@color)) window @color $calc($mouse.dx - $1) $calc($mouse.dy - $2)
if ($mouse.key & 1) .timer $+ $ticks -m 1 0 move $1-
}
On *:LOAD:{
hmake color 50
hadd color maj on
hadd color g.1
hadd color s.1
hadd color g.2
hadd color s.2
hadd color g.3
hadd color s.3
hadd color c.1 01
hadd color f.1
hadd color c.2 01
hadd color f.2
hadd color c.3 01
hadd color f.3
hsave -o color color.hsh
}
On *:START:{ if (!$hget(color)) { hmake color 50 | hload color color.hsh } }
On *:ACTIVE:*:{
if ($window(@c.scroll)) && $active != @c.scroll {
drawline -r @color $rgb(150,150,150) 1 89 41 98 41 98 41 98 31
drawline -r @color $rgb(240,240,240) 1 89 41 89 32 89 32 99 32
drawline -r @color $rgb(150,150,150) 1 89 101 98 101 98 101 98 91
drawline -r @color $rgb(240,240,240) 1 89 101 89 92 89 92 99 92
drawline -r @color $rgb(150,150,150) 1 89 161 98 161 98 161 98 151
drawline -r @color $rgb(240,240,240) 1 89 161 89 152 89 152 99 152
window -c @c.scroll
}
if ($window(@f.scroll)) && $active != @f.scroll {
drawline -r @color $rgb(150,150,150) 1 177 41 186 41 186 41 186 31
drawline -r @color $rgb(240,240,240) 1 177 41 177 32 177 32 187 32
drawline -r @color $rgb(150,150,150) 1 177 101 186 101 186 101 186 91
drawline -r @color $rgb(240,240,240) 1 177 101 177 92 177 92 187 92
drawline -r @color $rgb(150,150,150) 1 177 161 186 161 186 161 186 151
drawline -r @color $rgb(240,240,240) 1 177 161 177 152 177 152 187 152
window -c @f.scroll
}
}
On *:INPUT:*:{
if $left($1,1) == / { $1- | haltdef }
else {
if $len($1-) = 1 { say $hget(color,g.1) $+ $hget(color,s.1) $+ $hget(color,c.1) $+ $hget(color,f.1) $+ $iif(($hget(color,maj)),$upper($left($1-,1)),$left($1-,1)) }
if $len($1-) = 2 { say $hget(color,g.1) $+ $hget(color,s.1) $+ $hget(color,c.1) $+ $hget(color,f.1) $+ $iif(($hget(color,maj)),$upper($left($1-,1)),$left($1-,1)) $+ $+ $hget(color,g.2) $+ $hget(color,s.2) $+ $hget(color,c.2) $+ $hget(color,f.2) $+ $right($1-,1) }
else { say $hget(color,g.1) $+ $hget(color,s.1) $+ $hget(color,c.1) $+ $hget(color,f.1) $+ $iif(($hget(color,maj)),$upper($left($1-,1)),$left($1-,1)) $+ $+ $hget(color,g.2) $+ $hget(color,s.2) $+ $hget(color,c.2) $+ $hget(color,f.2) $+ $right($left($1-,-1),-1) $+ $+ $hget(color,g.3) $+ $hget(color,s.3) $+ $hget(color,c.3) $+ $hget(color,f.3) $+ $right($1-,1) }
haltdef
}
}

/*
Menu Des Couleurs en picwin
Addon Par HilliX
*/

alias color {
  window -aBCpz +b @color -1 -1 200 230
  drawfill -rs @color $rgb(210,210,210) $rgb(255,255,255) 0 0
  drawline @color 1 1 0 13 173 13 173 13 187 -1 176 10 200 10
  drawfill -rs @color $rgb(190,190,190) $rgb(210,210,210) 2 2
  drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 180 9
  drawline -r @color $rgb(130,130,130) 1 178 9 188 -1
  drawline -r @color $rgb(130,130,130) 1 0 12 173 12 173 12 186 -1
  drawline -r @color $rgb(220,220,220) 1 0 12 0 0 0 0 185 0
  drawtext -ro @color $rgb(60,60,60) tahoma 10 7 0 Menu Des Couleurs
  drawline -r @color $rgb(60,60,60) 2 189 2 194 7
  drawline -r @color $rgb(60,60,60) 2 194 2 189 7
  drawline @color 1 1 0 214 16 230 16 230 181 230 181 230 198 213
  drawline -r @color $rgb(130,130,130) 1 197 215 197 227 197 227 184 227
  drawline -r @color $rgb(220,220,220) 1 197 215 184 228
  drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 196 226 2 226
  drawline -r @color $rgb(130,130,130) 1 0 215 12 227 -1 227
  drawline -r @color $rgb(220,220,220) 1 0 230 0 215
  drawline -r @color $rgb(230,230,230) 1 70 215 70 207 77 200 130 200
  drawline -r @color $rgb(100,100,100) 1 70 215 123 215 130 208 130 200
  drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 80 210
  drawtext -r @color $rgb(60,60,60) tahoma 10 85 202 Fermer
  var %i 1 , %txt 1ere lettre.Texte.Dernière lettre , %coef 0
  while (%i <= 3) {
    drawrect @color 14 1 5 $calc(22 + %coef) 188 50
    drawtext -rb @color $rgb(100,100,100) $rgb(210,210,210) tahoma 10 12 $calc(16 + %coef) $gettok(%txt,%i,46)
    drawdot -r @color $rgb(210,210,210) 1 11 $calc(22 + %coef)
    check 15 52 Majuscule
    check 85 52 Gras
    check 135 52 Souligné
    check 50 112 Gras
    check 110 112 Souligné
    check 50 172 Gras
    check 110 172 Souligné
    drawtext -r @color $rgb(60,60,60) tahoma 10 10 $calc(30 + %coef) Couleur: 
    drawtext -r @color $rgb(60,60,60) tahoma 10 110 $calc(30 + %coef) Fond:
    drawrect @color 1 1 50 $calc(31 + %coef) 50 12
    drawrect @color 1 1 138 $calc(31 + %coef) 50 12
    drawline @color 1 1 88 $calc(31 + %coef) 88 $calc(43 + %coef)
    drawline @color 1 1 176 $calc(31 + %coef) 176 $calc(43 + %coef)
    drawline -r @color $rgb(200,200,200) 1 51 $calc(41 + %coef) 87 $calc(41 + %coef) 87 $calc(41 + %coef) 87 $calc(31 + %coef)
    drawline -r @color $rgb(110,110,110) 1 51 $calc(41 + %coef) 51 $calc(32 + %coef) 51 $calc(32 + %coef) 88 $calc(32 + %coef)
    drawline -r @color $rgb(150,150,150) 1 89 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(31 + %coef)
    drawline -r @color $rgb(240,240,240) 1 89 $calc(41 + %coef) 89 $calc(32 + %coef) 89 $calc(32 + %coef) 99 $calc(32 + %coef)
    drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 52 $calc(33 + %coef)
    drawtext -r @color $rgb(100,100,100) webdings 11 89 $calc(27 + %coef) 6
    drawline -r @color $rgb(240,240,240) 1 139 $calc(41 + %coef) 175 $calc(41 + %coef) 175 $calc(41 + %coef) 175 $calc(31 + %coef)
    drawline -r @color $rgb(110,110,110) 1 139 $calc(41 + %coef) 139 $calc(32 + %coef) 139 $calc(32 + %coef) 176 $calc(32 + %coef)
    drawline -r @color $rgb(150,150,150) 1 177 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(31 + %coef)
    drawline -r @color $rgb(200,200,200) 1 177 $calc(41 + %coef) 177 $calc(32 + %coef) 177 $calc(32 + %coef) 187 $calc(32 + %coef)
    drawfill -rs @color $rgb(170,170,170) $rgb(210,210,210) 140 $calc(33 + %coef)
    drawtext -r @color $rgb(100,100,100) webdings 11 177 $calc(27 + %coef) 6
    inc %i
    inc %coef 60
  }
  drawrect -f @color $right($hget(color,c.1),2) 1 53 34 33 6
  drawrect -f @color $right($hget(color,c.2),2) 1 53 94 33 6
  drawrect -f @color $right($hget(color,c.3),2) 1 53 154 33 6
  if ($hget(color,f.1)) { drawrect -f @color $right($hget(color,f.1),2) 1 141 34 33 6 }
  else {           
    drawrect @color 1 1 141 34 33 6
    drawline @color 1 1 141 39 146 34
    drawline @color 1 1 150 39 155 34
    drawline @color 1 1 160 39 165 34
    drawline @color 1 1 169 39 174 34
  }
  if ($hget(color,f.2)) { drawrect -f @color $right($hget(color,f.2),2) 1 141 94 33 6 }
  else {           
    drawrect @color 1 1 141 94 33 6
    drawline @color 1 1 141 99 146 94
    drawline @color 1 1 150 99 155 94
    drawline @color 1 1 160 99 165 94
    drawline @color 1 1 169 99 174 94
  }
  if ($hget(color,f.3)) { drawrect -f @color $right($hget(color,f.3),2) 1 141 154 33 6 }
  else {           
    drawrect @color 1 1 141 154 33 6
    drawline @color 1 1 141 159 146 154
    drawline @color 1 1 150 159 155 154
    drawline @color 1 1 160 159 165 154
    drawline @color 1 1 169 159 174 154
  }
  if ($hget(color,maj)) { drawtext -r @color $rgb(100,100,100) webdings 12 15 48 a }
  if ($hget(color,g.1)) { drawtext -r @color $rgb(100,100,100) webdings 12 85 48 a }
  if ($hget(color,s.1)) { drawtext -r @color $rgb(100,100,100) webdings 12 135 48 a }
  if ($hget(color,g.2)) { drawtext -r @color $rgb(100,100,100) webdings 12 50 108 a }
  if ($hget(color,s.2)) { drawtext -r @color $rgb(100,100,100) webdings 12 110 108 a }
  if ($hget(color,g.3)) { drawtext -r @color $rgb(100,100,100) webdings 12 50 168 a }
  if ($hget(color,s.3)) { drawtext -r @color $rgb(100,100,100) webdings 12 110 168 a }
}

menu @color {
  mouse:{
    if ($inrect($mouse.x,$mouse.y,187,0,8,8)) && (!$hget(color,b.close)) { 
      drawline -r @color $rgb(230,230,230) 1 187 9 187 0 197 0
      drawline -r @color $rgb(60,60,60) 1 188 9 196 9 196 0
      hadd color b.close on
    }
    elseif (!$inrect($mouse.x,$mouse.y,187,0,8,8)) && ($hget(color,b.close)) { 
      drawrect -r @color $rgb(170,170,170) 1 187 0 10 10
      hdel color b.close
    }
  }
  sclick:{
    if ($inrect($mouse.x,$mouse.y,187,0,8,8)) {
      drawline -r @color $rgb(60,60,60) 1 187 9 187 0 197 0
      drawline -r @color $rgb(230,230,230) 1 188 9 196 9 196 0
      .timerclose -m 1 150 window -c @color
    }
    elseif ($inpoly($mouse.x,$mouse.y,70,215,70,207,77,200,130,200,130,208,123,215)) { 
      drawline -r @color $rgb(100,100,100) 1 70 215 70 207 77 200 130 200
      drawline -r @color $rgb(230,230,230) 1 70 215 123 215 130 208 130 200
      .timerclose -m 1 150 window -c @color
    }
    elseif ($inrect($mouse.x,$mouse.y,15,52,55,10)) { 
      if ($hget(color,maj)) { drawrect -f @color 0 1 17 54 6 6 | hadd color maj } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 15 48 a | hadd color maj on }
    }
    elseif ($inrect($mouse.x,$mouse.y,85,52,30,10)) { 
      if ($hget(color,g.1)) { drawrect -f @color 0 1 87 54 6 6 | hadd color g.1 } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 85 48 a | hadd color g.1  }
    }
    elseif ($inrect($mouse.x,$mouse.y,135,52,50,10)) { 
      if ($hget(color,s.1)) { drawrect -f @color 0 1 137 54 6 6 | hadd color s.1 } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 135 48 a | hadd color s.1  }
    }
    elseif ($inrect($mouse.x,$mouse.y,50,112,30,10)) { 
      if ($hget(color,g.2)) { drawrect -f @color 0 1 52 114 6 6 | hadd color g.2 } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 50 108 a | hadd color g.2  }
    }
    elseif ($inrect($mouse.x,$mouse.y,110,112,50,10)) { 
      if ($hget(color,s.2)) { drawrect -f @color 0 1 112 114 6 6 | hadd color s.2 } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 110 108 a | hadd color s.2  }
    }
    elseif ($inrect($mouse.x,$mouse.y,50,172,30,10)) { 
      if ($hget(color,g.3)) { drawrect -f @color 0 1 52 174 6 6 | hadd color g.3 } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 50 168 a | hadd color g.3  }
    }
    elseif ($inrect($mouse.x,$mouse.y,110,172,50,10)) { 
      if ($hget(color,s.3)) { drawrect -f @color 0 1 112 174 6 6 | hadd color s.3 } 
      else { drawtext -r @color $rgb(100,100,100) webdings 12 110 168 a | hadd color s.3  }
    }
    elseif ($inpoly($mouse.x,mouse.y,0,0,0,13,173,13,187,0)) { move $calc($mouse.dx - $window(@color).x) $calc($mouse.dy - $window(@color).y) } 
    var %i 1 , %coef 0
    while (%i <= 3) {
      if ($inrect($mouse.x,$mouse.y,88,$calc(31 + %coef),12,12)) { 
        drawline -r @color $rgb(240,240,240) 1 89 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(41 + %coef) 98 $calc(31 + %coef)
        drawline -r @color $rgb(150,150,150) 1 89 $calc(41 + %coef) 89 $calc(32 + %coef) 89 $calc(32 + %coef) 99 $calc(32 + %coef)
        c.scroll 51 $calc(44 + %coef) %i
      }
      if ($inrect($mouse.x,$mouse.y,176,$calc(31 + %coef),12,12)) { 
        drawline -r @color $rgb(240,240,240) 1 177 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(41 + %coef) 186 $calc(31 + %coef)
        drawline -r @color $rgb(150,150,150) 1 177 $calc(41 + %coef) 177 $calc(32 + %coef) 177 $calc(32 + %coef) 187 $calc(32 + %coef)
        f.scroll 139 $calc(44 + %coef) %i
      }
      inc %i
      inc %coef 60
    }
    hsave -o color color.hsh
  }
} 


alias -l check {
  if (!$3) halt
  drawline -r @color $rgb(100,100,100) 1 $1 $calc($2 + 10) $1 $2 $1 $2 $calc($1 + 10) $2
  drawline -r @color $rgb(80,80,80) 1 $calc($1 + 1) $calc($2 + 9) $calc($1 + 1) $calc($2 + 1) $calc($1 + 1) $calc($2 + 1) $calc($1 + 9) $calc($2 + 1)
  drawline -r @color $rgb(220,220,220) 1 $calc($1 + 1) $calc($2 + 10) $calc($1 + 10) $calc($2 + 10) $calc($1 + 10) $calc($2 + 10) $calc($1 + 10) $calc($2 - 1)
  drawline -r @color $rgb(210,210,210) 1 $calc($1 + 2) $calc($2 + 9) $calc($1 + 9) $calc($2 + 9) $calc($1 + 9) $calc($2 + 9) $calc($1 + 9) $2 
  drawfill -rs @color $rgb(255,255,255) $rgb(210,210,210) $calc($1 + 3) $calc($2 + 3)
  drawtext -r @color $rgb(60,60,60) tahoma 10 $calc($1 + 12) $calc($2 - 1) $3 
}

alias -l c.scroll {
  window -hpB +b @c.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
  window -ahpB +b @c.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
  drawline -r @c.scroll $rgb(240,240,240) 1 38 57 38 0 47 0 38 0 38 48 47 48 38 48 38 11 47 11
  drawline -r @c.scroll $rgb(180,180,180) 1 39 57 47 57 47 0 47 46 39 46 47 46 47 9 38 9
  drawline @c.scroll 1 1 37 0 37 60 37 47 48 47 48 10 37 10
  drawfill -rs @c.scroll $rgb(170,170,170) $rgb(255,255,255) 1 1
  drawline -r @c.scroll $rgb(130,130,130) 1 0 60 0 0 36 0
  drawline -r @c.scroll $rgb(240,240,240) 1 1 57 36 57 36 0
  drawfill -rs @c.scroll $rgb(200,200,200) $rgb(255,255,255) 40 2 40 50
  drawfill -rs @c.scroll $rgb(170,170,170) $rgb(255,255,255) 40 40
  drawrect -f @c.scroll 0 1 2 3 32 8
  drawrect -f @c.scroll 1 1 2 14 32 8
  drawrect -f @c.scroll 2 1 2 25 32 8
  drawrect -f @c.scroll 3 1 2 36 32 8
  drawrect -f @c.scroll 4 1 2 47 32 8
  hadd color c.s.up 0
  hadd color c.s.down 4
  hadd color c.s.num $3
}

menu @c.scroll {
  sclick:{
    if ($inrect($mouse.x,$mouse.y,37,0,10,10)) { 
      drawline -r @c.scroll $rgb(240,240,240) 1 38 9 47 9 47 0
      drawline -r @c.scroll $rgb(150,150,150) 1 38 9 38 0 47 0
      .timerup -m 1 150 drawline -r @c.scroll $rgb(150,150,150) 1 38 9 47 9 47 0 
      .timerup` -m 1 150 drawline -r @c.scroll $rgb(240,240,240) 1 38 9 38 0 47 0
      if $hget(color,c.s.up) != 0 {
        hdec color c.s.up
        hdec color c.s.down
        drawrect -f @c.scroll $hget(color,c.s.up) 1 2 3 32 8
        drawrect -f @c.scroll $calc($hget(color,c.s.up) + 1) 1 2 14 32 8
        drawrect -f @c.scroll $calc($hget(color,c.s.up) + 2) 1 2 25 32 8
        drawrect -f @c.scroll $calc($hget(color,c.s.up) + 3) 1 2 36 32 8
        drawrect -f @c.scroll $hget(color,c.s.down) 1 2 47 32 8
      }
    }
    elseif ($inrect($mouse.x,$mouse.y,37,48,10,10)) {
      drawline -r @c.scroll $rgb(240,240,240) 1 38 57 47 57 47 47
      drawline -r @c.scroll $rgb(150,150,150) 1 38 57 38 48 48 48
      .timerdown -m 1 150 drawline -r @c.scroll $rgb(240,240,240) 1 38 57 38 48 47 48
      .timerdown` -m 1 150 drawline -r @c.scroll $rgb(150,150,150) 1 38 57 47 57 47 47
      if $hget(color,c.s.down) != 15 {
        hinc color c.s.up
        hinc color c.s.down
        drawrect -f @c.scroll $hget(color,c.s.up) 1 2 3 32 8
        drawrect -f @c.scroll $calc($hget(color,c.s.up) + 1) 1 2 14 32 8
        drawrect -f @c.scroll $calc($hget(color,c.s.up) + 2) 1 2 25 32 8
        drawrect -f @c.scroll $calc($hget(color,c.s.up) + 3) 1 2 36 32 8
        drawrect -f @c.scroll $hget(color,c.s.down) 1 2 47 32 8
      }
    }
    var %i 1 , %coef 0
    while (%i <= 5) {
      var %x $calc(3 + %coef)
      if ($inrect($mouse.x,$mouse.y,2,%x,32,8)) {
        var %item c. $+ $hget(color,c.s.num) , %y $calc(34 + (($hget(color,c.s.num) - 1) * 60))
        hadd color %item  $+ $iif($len($calc($hget(color,c.s.up) + (%i - 1))) = 1,0 $+ $calc($hget(color,c.s.up) + (%i - 1)),$calc($hget(color,c.s.up) + (%i - 1)))
        hsave -o color color.hsh
        drawrect -f @color $right($hget(color,%item),2) 1 53 %y 33 6
        window -c @c.scroll
        drawline -r @color $rgb(150,150,150) 1 89 41 98 41 98 41 98 31
        drawline -r @color $rgb(240,240,240) 1 89 41 89 32 89 32 99 32
        drawline -r @color $rgb(150,150,150) 1 89 101 98 101 98 101 98 91
        drawline -r @color $rgb(240,240,240) 1 89 101 89 92 89 92 99 92
        drawline -r @color $rgb(150,150,150) 1 89 161 98 161 98 161 98 151
        drawline -r @color $rgb(240,240,240) 1 89 161 89 152 89 152 99 152
      }
      inc %i
      inc %coef 11
    }
  }
}

alias -l f.scroll {
  window -hpB +b @f.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
  window -ahpB +b @f.scroll $calc($window(@color).x + $1) $calc($window(@color).y + $2) 50 60
  drawline -r @f.scroll $rgb(240,240,240) 1 38 57 38 0 47 0 38 0 38 48 47 48 38 48 38 11 47 11
  drawline -r @f.scroll $rgb(180,180,180) 1 39 57 47 57 47 0 47 46 39 46 47 46 47 9 38 9
  drawline @f.scroll 1 1 37 0 37 60 37 47 48 47 48 10 37 10
  drawfill -rs @f.scroll $rgb(170,170,170) $rgb(255,255,255) 1 1
  drawline -r @f.scroll $rgb(130,130,130) 1 0 60 0 0 36 0
  drawline -r @f.scroll $rgb(240,240,240) 1 1 57 36 57 36 0
  drawfill -rs @f.scroll $rgb(200,200,200) $rgb(255,255,255) 40 2 40 50
  drawfill -rs @f.scroll $rgb(170,170,170) $rgb(255,255,255) 40 40
  drawrect -f @f.scroll 0 1 2 3 32 8
  drawrect -f @f.scroll 1 1 2 14 32 8
  drawrect -f @f.scroll 2 1 2 25 32 8
  drawrect -f @f.scroll 3 1 2 36 32 8
  drawrect -f @f.scroll 4 1 2 47 32 8
  hadd color f.s.up 0
  hadd color f.s.down 4
  hadd color f.s.num $3
}


menu @f.scroll {
  sclick:{
    if ($inrect($mouse.x,$mouse.y,37,0,10,10)) { 
      drawline -r @f.scroll $rgb(240,240,240) 1 38 9 47 9 47 0
      drawline -r @f.scroll $rgb(150,150,150) 1 38 9 38 0 47 0
      .timerup -m 1 150 drawline -r @f.scroll $rgb(150,150,150) 1 38 9 47 9 47 0 
      .timerup` -m 1 150 drawline -r @f.scroll $rgb(240,240,240) 1 38 9 38 0 47 0
      if $hget(color,f.s.up) != 0 {
        hdec color f.s.up
        hdec color f.s.down
        drawrect -f @f.scroll $hget(color,f.s.up) 1 2 3 32 8
        drawrect -f @f.scroll $calc($hget(color,f.s.up) + 1) 1 2 14 32 8
        drawrect -f @f.scroll $calc($hget(color,f.s.up) + 2) 1 2 25 32 8
        drawrect -f @f.scroll $calc($hget(color,f.s.up) + 3) 1 2 36 32 8
        drawrect -f @f.scroll $hget(color,f.s.down) 1 2 47 32 8
      }
    }
    elseif ($inrect($mouse.x,$mouse.y,37,48,10,10)) {
      drawline -r @f.scroll $rgb(240,240,240) 1 38 57 47 57 47 47
      drawline -r @f.scroll $rgb(150,150,150) 1 38 57 38 48 48 48
      .timerdown -m 1 150 drawline -r @f.scroll $rgb(240,240,240) 1 38 57 38 48 47 48
      .timerdown` -m 1 150 drawline -r @f.scroll $rgb(150,150,150) 1 38 57 47 57 47 47
      if $hget(color,f.s.down) != 16 {
        hinc color f.s.up
        hinc color f.s.down
        drawrect -f @f.scroll $hget(color,f.s.up) 1 2 3 32 8
        drawrect -f @f.scroll $calc($hget(color,f.s.up) + 1) 1 2 14 32 8
        drawrect -f @f.scroll $calc($hget(color,f.s.up) + 2) 1 2 25 32 8
        drawrect -f @f.scroll $calc($hget(color,f.s.up) + 3) 1 2 36 32 8
        drawrect -f @f.scroll $iif($hget(color,f.s.down) == 16,0,$hget(color,f.s.down)) 1 2 47 32 8
      }
      if $hget(color,f.s.down) == 16 {
        drawrect @f.scroll 1 1 2 47 32 8
        drawfill -rs @f.scroll $rgb(170,170,170) $rgb(255,255,255) 3 48
        drawline @f.scroll 1 1 2 54 9 47
        drawline @f.scroll 1 1 10 54 17 47
        drawline @f.scroll 1 1 18 54 25 47
        drawline @f.scroll 1 1 26 54 33 47
      }
    }
    var %i 1 , %coef 0
    while (%i <= 5) {
      var %x $calc(3 + %coef)
      if ($inrect($mouse.x,$mouse.y,2,%x,32,8)) {
        var %item f. $+ $hget(color,f.s.num) , %y $calc(34 + (($hget(color,f.s.num) - 1) * 60))
        hadd color %item , $+ $iif($len($calc($hget(color,f.s.up) + (%i - 1))) = 1,0 $+ $calc($hget(color,f.s.up) + (%i - 1)),$calc($hget(color,f.s.up) + (%i - 1)))
        if $hget(color,%item) == ,16 { hadd color %item }
        hsave -o color color.hsh
        drawrect -f @color $iif(($hget(color,%item)),$right($hget(color,%item),2),0) 1 141 %y 33 6
        window -c @f.scroll
        drawline -r @color $rgb(150,150,150) 1 177 41 186 41 186 41 186 31
        drawline -r @color $rgb(240,240,240) 1 177 41 177 32 177 32 187 32
        drawline -r @color $rgb(150,150,150) 1 177 101 186 101 186 101 186 91
        drawline -r @color $rgb(240,240,240) 1 177 101 177 92 177 92 187 92
        drawline -r @color $rgb(150,150,150) 1 177 161 186 161 186 161 186 151
        drawline -r @color $rgb(240,240,240) 1 177 161 177 152 177 152 187 152
        if (!$hget(color,%item)) { 
          drawrect -rf @color $rgb(170,170,170) 1 141 %y 33 6
          drawrect @color 1 1 141 %y 33 6
          drawline @color 1 1 141 $calc(%y + 5) 146 %y
          drawline @color 1 1 150 $calc(%y + 5) 155 %y
          drawline @color 1 1 160 $calc(%y + 5) 165 %y
          drawline @color 1 1 169 $calc(%y + 5) 174 %y
        }
      }
      inc %i
      inc %coef 11
    }
  }
}

alias -l move {
  if ($window(@color)) window @color $calc($mouse.dx - $1) $calc($mouse.dy - $2)
  if ($mouse.key & 1) .timer $+ $ticks -m 1 0 move $1-
}

On *:LOAD:{
  hmake color 50
  hadd color maj on
  hadd color g.1
  hadd color s.1
  hadd color g.2
  hadd color s.2
  hadd color g.3
  hadd color s.3
  hadd color c.1 01
  hadd color f.1
  hadd color c.2 01
  hadd color f.2
  hadd color c.3 01
  hadd color f.3
  hsave -o color color.hsh
}

On *:START:{ if (!$hget(color)) { hmake color 50 | hload color color.hsh } }

On *:ACTIVE:*:{
  if ($window(@c.scroll)) && $active != @c.scroll { 
    drawline -r @color $rgb(150,150,150) 1 89 41 98 41 98 41 98 31
    drawline -r @color $rgb(240,240,240) 1 89 41 89 32 89 32 99 32
    drawline -r @color $rgb(150,150,150) 1 89 101 98 101 98 101 98 91
    drawline -r @color $rgb(240,240,240) 1 89 101 89 92 89 92 99 92
    drawline -r @color $rgb(150,150,150) 1 89 161 98 161 98 161 98 151
    drawline -r @color $rgb(240,240,240) 1 89 161 89 152 89 152 99 152
    window -c @c.scroll
  }
  if ($window(@f.scroll)) && $active != @f.scroll {
    drawline -r @color $rgb(150,150,150) 1 177 41 186 41 186 41 186 31
    drawline -r @color $rgb(240,240,240) 1 177 41 177 32 177 32 187 32
    drawline -r @color $rgb(150,150,150) 1 177 101 186 101 186 101 186 91
    drawline -r @color $rgb(240,240,240) 1 177 101 177 92 177 92 187 92
    drawline -r @color $rgb(150,150,150) 1 177 161 186 161 186 161 186 151
    drawline -r @color $rgb(240,240,240) 1 177 161 177 152 177 152 187 152
    window -c @f.scroll
  }
}

On *:INPUT:*:{
  if $left($1,1) == / { $1- | haltdef }
  else {
    if $len($1-) = 1 { say $hget(color,g.1) $+ $hget(color,s.1) $+ $hget(color,c.1) $+ $hget(color,f.1) $+ $iif(($hget(color,maj)),$upper($left($1-,1)),$left($1-,1)) }
    if $len($1-) = 2 { say $hget(color,g.1) $+ $hget(color,s.1) $+ $hget(color,c.1) $+ $hget(color,f.1) $+ $iif(($hget(color,maj)),$upper($left($1-,1)),$left($1-,1)) $+  $+ $hget(color,g.2) $+ $hget(color,s.2) $+ $hget(color,c.2) $+ $hget(color,f.2) $+ $right($1-,1) }
    else { say $hget(color,g.1) $+ $hget(color,s.1) $+ $hget(color,c.1) $+ $hget(color,f.1) $+ $iif(($hget(color,maj)),$upper($left($1-,1)),$left($1-,1)) $+  $+ $hget(color,g.2) $+ $hget(color,s.2) $+ $hget(color,c.2) $+ $hget(color,f.2) $+ $right($left($1-,-1),-1) $+  $+ $hget(color,g.3) $+ $hget(color,s.3) $+ $hget(color,c.3) $+ $hget(color,f.3) $+ $right($1-,1) } 
    haltdef
  }
}

Historique

31 juillet 2005 15:30:22 :: petit bug corigé :)

Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

AVOIR UNE LISTE D'UTILISATEUR EN COULEURS SELON LEURS SEXE P... par WorldDMT

LAZER (JEU EN PICWIN) par Zova

ARKATOOL (MENU INTERACTIF DU STYLE LECTEUR MP3) par RCA ArKanis

SYSTEME COLOR par Atlantis37

COULEURS DE TEXTES MEGA !!! par Tony333

Commentaires et avis

Commentaire de AgoRa_ScripT le 31/07/2005 15:51:44

Slt, chez moi il y a un gros bug, la fênetre picwin prend tout l'écran, et quand je clik sur un scroll a chake fois j'ai une nouvelle fenêtre picwin.
Tu devrais peut-être expliquer comment faire fonctionner le code pour les plus débutants.
Beau design sinon.

@+

Commentaire de HilliX le 31/07/2005 16:25:06

Le problème de la taille de la fenètre je ne comprend pas pourquoi y ce passe ca...
Pour les scroll et les nouvelles fenètre que ca engendre c'est voulu...

Commentaire de AgoRa_ScripT le 31/07/2005 16:30:34

Regarde l'add-on de MaX_62, il est très bien fait, ça pourra surment t'aider. http://www.ircfr.com/code.aspx?ID=32109

@+

Commentaire de IceTempest le 04/08/2005 11:41:57

Niveau design : agréable
Mais après, niveau codage, je débute à peine le picwin.
Quelques explications seraient la bien venus.
7/10
Bonne continuation

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

nick en color [ par Niap ] Voila j'aimerais savoir cmt on fait pour metre des couleurs la ou ya tout les nick du chan.j'crois ki faut un remotemettre moi en une couleurmetre les les combo comment les remplir? [ par Deoxirachi ] Salut j'aimerai savoir comment on rempli les combo dans un dialog (surout pour les dialog de couleur (sans colorcombo)) par exemple dans celui-la: dia couleur pour menu Mirc [ par sirius93 ] bonjour je suis actuellement en train de crée un script Mirc pour ma radio web je souhaite mètre un peut de couleur au Click droit ex : Click droit su Tut0riel Couleur ?? [ par HatMan ] je cherche un tuto sur les couleur pour me faire un script avez vous cela ?? nicklist [ par MecModeKiller ] jcroi ke je rempli le forum a moi tout seul mdrmerci bcp de m'aidévou sorié pa comment faire pour modifié les couleur et laparence de la nicklist ( a Deux Scripts HORS DU COMMUN à réaliser [ par TiFoXy ] Salut tout le monde!Deux questions:1/ Comment puis-je faire en sorte qu'un menu nicklist,query ne s'affiche que si je suis sur un chan déterminé ?Exem Activation et désactivation autovoice par menu [ par sarevok ] Bon, voilà... Je sais comment on personnalise un menu (de façon basique)et je sais comment on fait un autovoice (par l'onglet remote)Mais je voudrais Je Cherche Tutoriel pour couleur svp [ par T0x1K ] Voila , c est assé urgent donc... Changer les couleur De L'heure a gauche! [ par Jp2A ] Voila Je voudrais changer les couleur de l'heure a gauche g deja fé:on ^1:text:*:#:{if ($nick isop $chan) { echo $chan 0,24(15 $time 4) 2<

Nos sponsors

Derniers Blogs

[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey

VIVE LES MOCKS ET LES POCOS par vLabz

[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson

DéVELOPPEMENT MOBILE : .NET COMPACT FRAMEWORK & LIMITATIONS par Pi-R

IPHONE VERSUS WP7 CODING par Nicolas

Forum

RE : NOUVEAU SERVEUR IRC CHERCHE IRCOPS par ptifou123

RE : BOT DE SCRABBLE SUR IRC par FloAvril

BESOIN D'AIDE SVP par bux945

RE : BOT DE SCRABBLE SUR IRC par RubenxD

UNREAL ANOPE LINK DOCUMENTATION SERVER TCHAT par snip74

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Modifications site institutionnel EZ Publish - republication
Budget : 2 000€
URGENT Conversion adresse coordonn?es GPS Excel
Budget : 500€
Realisations videos publicite Commerces France
Budget : 200 000€

Logiciels

Academy System (12.0.2.0)
ACADEMY SYSTEM (12.0.2.0)

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

Cliquez pour télécharger Academy System
Xilisoft iPod Vidéo Convertisseur 6 (6.0.3.0419)
XILISOFT IPOD VIDéO CONVERTISSEUR 6 (6.0.3.0419)

Xilisoft iPod Vidéo Convertisseur est un outil puissant de conversion d'iPod, facile à utiliser. ...

Cliquez pour télécharger Xilisoft iPod Vidéo Convertisseur 6
Xilisoft iPhone Vidéo Convertisseur 6 (6.0.3.0419)
XILISOFT IPHONE VIDéO CONVERTISSEUR 6 (6.0.3.0419)

Xilisoft iPhone Vidéo Convertisseur est le meilleur logiciel de conversion iPhone qui peut facile...

Cliquez pour télécharger Xilisoft iPhone Vidéo Convertisseur 6
Xilisoft iPad Vidéo Convertisseur 6 (6.0.3.0419)
XILISOFT IPAD VIDéO CONVERTISSEUR 6 (6.0.3.0419)

Il s'agit d'un logiciel polyvalent pour convertir les formats vidéo/audio populaires en formats p...

Cliquez pour télécharger Xilisoft iPad Vidéo Convertisseur 6
Xilisoft HD Vidéo Convertisseur 6 (6.0.3.0421)
XILISOFT HD VIDéO CONVERTISSEUR 6 (6.0.3.0421)

Xilisoft HD Vidéo Convertisseur est un outil professionnel de conversion HDTV, conçu pour transfo...

Cliquez pour télécharger Xilisoft HD Vidéo Convertisseur 6