Accueil > > > MENU DES COULEURS EN PICWIN
MENU DES COULEURS EN PICWIN
Information sur la source
Description
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
Commentaires et avis
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
Copie en couleur [ par Princedelavil ]
Salut à tous, j'ai un petit probleme tout con (j'ai honte de demander ca lol)Je possede predator script et electrik script. Et lorsque je copie u
Aide Dialog/Picwin [ par AgoRa_ScripT ]
Bonjour, Je cherche à savoir comment intégrer une fenêtre picwin dans un dialog. Je crois que c'est possible, mais je me rapelle plus
les -c automatique dans les combo [ par Deoxirachi ]
on 1:dialog:couleur:init:0: { did -a couleur 3 Aucune did -a couleur 5 Aucune did -a couleur 23 Aucune did -a couleur 24 Aucun
Aide sur picwin [ par TyB_ ]
Salut la compagnie, c'est possible de faire genre une "listview" (comme mdx) mais en picwin ? Si, oui. Dites moi comment on fait svp =)
Projet mirc script (picwin,socket) avec les membres IrcFr ! [ par Huitre ]
Oyez Oyez braves gens, Scriptsdb.org ose mettre en doute la qualité des scripteurs de ircfr ! Je reclame justice en leur demontrant le talent de
Aide: Picwin [ par Mc_AbBeR ]
Voila, Je cherche comment changer l'écriture d'un fenetre picwin.Merci d'Avance
Aide: Picwin et Calculatrice [ par Mc_AbBeR ]
Bonjour,Je cherche comment faire une zone de texte (disable) en picwin, et un bouton. Puis comment calculer (calculatrice).Merci d'Avance
nicklist [ par resistant ]
petite question : ya tu moyen de savoir dans la nicklist combien de personne ont (ex. la couleur rouge )? la seule chose que jai reussi a faire c de s
|
Derniers Blogs
TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : ON RAWMODERE : ON RAWMODE par WorldDMT
Cliquez pour lire la suite par WorldDMT AVERTISSMENT ET KIKKAVERTISSMENT ET KIKK par mouhcine951990
Cliquez pour lire la suite par mouhcine951990
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|