Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias csc { dialog -md typec typec }
- #color on
- dialog typec {
- title "Color by Videl"
- size -1 -1 140 140
- option dbu
- box "Color 1", 1, 70 90 30 25
- box "Color 2", 2, 105 90 30 25
- check "Single Color", 3, 5 90 41 7
- check "Color w/ BG", 4, 5 100 40 7
- check "Random Color", 5, 5 110 45 7
- check "Alternating Color w/ BG", 6, 5 130 65 7
- check "Alternating Color", 7, 5 120 50 7
- combo 8, 74 99 23 50, size drop
- combo 9, 109 99 23 50, size drop
- button "Set", 10, 90 130 20 9, ok
- button "Cancel", 11, 115 130 20 9, cancel
- check "Bold", 12, 74 118 20 7
- text "This is a color script by videl. Select the type of color you would like to use and then choose the appropriate color for your use, using the chart below. Click set to enable it. Enjoy!" 13, 5 1 130 27
- text "0 white 8 yellow", 16, 5 31 50 7
- text "1 black 9 lightgreen", 17, 5 38 60 7
- text "2 blue 10 cyan", 18, 5 45 50 7
- text "3 green 11 lightcyan", 19, 5 52 60 7
- text "4 lightred 12 lightblue", 20, 5 59 60 7
- text "5 brown 13 pink", 21, 5 66 50 7
- text "6 purple 14 grey", 22, 5 73 50 7
- text "7 orange 15 lightgrey", 23, 5 80 60 7
- link "gokus.nimbus@hotmail.com", 25, 66 80 69 7
- text "You can find me on irc as Videl or email me at:", 26, 66 65 70 15
- text "Thanks for using my color script <3", 27, 66 33 70 20
- text "?????????????????????????????????????????????", 28, 3 27 135 4
- }
- on *:dialog:typec:init:0:{
- var %f 0
- while (%f <= 15) {
- if ($len(%f) < 2) {
- did -a typec 8,9 $+(0,%f)
- inc %f
- }
- else {
- did -a typec 8,9 %f
- inc %f
- }
- }
- }
- on *:dialog:typec:sclick:3:{
- if ($did(typec,3).state == 1) {
- did -b typec 4,5,6,7,9
- }
- else {
- did -eu typec 3,4,5,6,7,8,9
- }
- }
- on *:dialog:typec:sclick:4:{
- if ($did(typec,4).state == 1) {
- did -b typec 3,5,6,7
- }
- else {
- did -eu typec 3,4,5,6,7,8,9
- }
- }
- on *:dialog:typec:sclick:5:{
- if ($did(typec,5).state == 1) {
- did -b typec 3,4,6,7,8,9
- }
- else {
- did -eu typec 3,4,5,6,7,8,9
- }
- }
- on *:dialog:typec:sclick:6:{
- if ($did(typec,6).state == 1) {
- did -b typec 3,4,5,7
- }
- else {
- did -eu typec 3,4,5,6,7,8,9
- }
- }
- on *:dialog:typec:sclick:7:{
- if ($did(typec,7).state == 1) {
- did -b typec 3,4,5,6
- }
- else {
- did -eu typec 3,4,5,6,7,8,9
- }
- }
- on *:dialog:typec:sclick:11:{
- .disable #color
- }
- on *:dialog:typec:sclick:10:{
- unset %sc | unset %bg1 | unset %bg2 | unset %ab1 | unset %ab2 | unset %a1 | unset %a2 | unset %bold
- set %bold $did(12).state
- if ($did(3).state == 1) && ($did(12).state == 0) {
- .enable #single
- set %sc $did(8).seltext
- }
- if ($did(3).state == 1) && ($did(12).state == 1) {
- .enable #bs
- set %sc $did(8).seltext
- }
- if ($did(4).state == 1) && ($did(12).state == 0) {
- .enable #cwb
- set %bg1 $did(8).seltext
- set %bg2 $did(9).seltext
- }
- if ($did(4).state == 1) && ($did(12).state == 1) {
- .enable #withbb
- set %bg1 $did(8).seltext
- set %bg2 $did(9).seltext
- }
- if ($did(5).state == 1) && ($did(12).state == 0) {
- .enable #r
- }
- if ($did(5).state == 1) && ($did(12).state == 1) {
- .enable #randomb
- }
- if ($did(6).state == 1) && ($did(12).state == 0) {
- .enable #acb
- set %ab1 $did(8).seltext
- set %ab2 $did(9).seltext
- }
- if ($did(6).state == 1) && ($did(12).state == 1) {
- .enable #backaltb
- set %ab1 $did(8).seltext
- set %ab2 $did(9).seltext
- }
- if ($did(7).state == 1) && ($did(12).state == 0) {
- .enable #ac
- set %a1 $did(8).seltext
- set %a2 $did(9).seltext
- }
- if ($did(7).state == 1) && ($did(12).state == 1) {
- .enable #altb
- set %a1 $did(8).seltext
- set %a2 $did(9).seltext
- }
- }
- #color end
- #cwb on
- ;color w/ background
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) {
- var %x = $+ %bg1
- var %z = %bg2
- say %x $+ , $+ %z $+ $1-
- halt
- }
- }
- #cwb end
- #r off
- ;random color
- on *:input:*: {
- var %r = $r(1,15)
- if (/* !iswm $1) && (!$ctrlenter) && ($len(%r) < 2) {
- var %c = $+(0,,,%r)
- say $+($chr(3),%c,$1-)
- halt
- }
- elseif (/* !iswm $1) && (!$ctrlenter) {
- say $+($chr(3),%r,$1-)
- halt
- }
- }
- #r end
- #single on
- ;single color
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) {
- say $+(,%sc,$1-,)
- halt
- }
- }
- #single end
- #ac off
- ;alternating color
- alias ctalker {
- var %x
- .echo -q $regsub($1,/(.)(.?)/g, $+ %a1 $+ \1 $+ %a2 $+ \2,%x)
- return %x
- }
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
- say $$ctalker($1-)
- halt
- }
- }
- #ac end
- #acb off
- ;alternating color w/ background
- alias ctalker {
- var %x = $+ %ab1 $+ , $+ %ab2 $+ \1 $+ %ab2 $+ , $+ %ab1 $+ \2
- .echo -q $regsub($1,/(.)(.?)/g,%x,%x)
- return %x
- }
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
- say $$ctalker($1-)
- halt
- }
- }
- #acb end
- #withbb off
- ;Bold color w/ background
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) {
- var %x = $+ %bg1
- var %z = %bg2
- say %x $+ , $+ %z $+ $1-
- halt
- }
- }
- #withbb end
- #randomb off
- ;Bold random color
- on *:input:*: {
- var %r = $r(1,6)
- if (/* !iswm $1) && (!$ctrlenter) && ($len(%r) < 2) {
- var %c = $+(0,,,%r)
- say $+ %c $+ $1-
- halt
- }
- elseif (/* !iswm $1) && (!$ctrlenter) {
- say $+ %r $+ $1-
- halt
- }
- }
- #randomb end
- #bs off
- ;Bold single color
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) {
- say $+(,%sc,$1-,)
- halt
- }
- }
- #bs end
- #altb off
- ;Bold alternating color
- alias ctalker {
- var %x
- .echo -q $regsub($1,/(.)(.?)/g, $+ %a1 $+ \1 $+ %a2 $+ \2,%x)
- return %x
- }
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
- say $$ctalker($1-)
- halt
- }
- }
- #altb end
- #backaltb off
- ;Bold alternating color w/ background
- alias ctalker {
- var %x = $+ %ab1 $+ , $+ %ab2 $+ \1 $+ %ab2 $+ , $+ %ab1 $+ \2
- .echo -q $regsub($1,/(.)(.?)/g,%x,%x)
- return %x
- }
- on *:input:*:{
- if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
- say $$ctalker($1-)
- halt
- }
- }
- #backaltb end
- menu * {
- Videl's Color
- .Change Options: .enable #color | csc
- $iif($group(#color) == on,$style(1)) Color On: .enable #color
- $iif($group(#color) == off,$style(1)) Color Off: .disable #color #single #cwb #r #acb #ac #bs #withbb #randomb #backaltb #altb | echo -a *Color Script Disabled | unset %sc | unset %bg1 | unset %bg2 | unset %ab1 | unset %ab2 | unset %a1 | unset %a2 | unset %bold
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement