Color Wheel
Global +colors commands to display the possible ANSI and Xterm 256 colors.
Functions:
ansi(),
cand(),
colordepth(),
columns(),
cor(),
extract(),
gte(),
if(),
iter(),
ljust(),
lnum(),
not(),
setq(),
strmatch(),
v().
Features:
color substitutions,
regexp commands.
Compatibility:
TinyMUX.
Instructions
Copy and paste the below code into a compatible MUSH or MUX.
MUSHCode for Color Wheel
@create ColorWheel
@lock ColorWheel==me
&COLORWHEEL ColorWheel=$^\+(colors|colours)(/brief|/full|)$:@pemit %#=To color text%, use the following %%x* codes. %rTo end the color and return to normal text%, use %%xn.%r[setq(1,black red green yellow blue magenta cyan white)][setq(2,%xx %xr %xg %xy %xb %xm %xc %xw)][setq(3,x r g y b m c w)][setq(4,extract(v(palette),1,8,|))][setq(5,extract(v(palette),9,8,|))][setq(6,cor(strmatch(%2,/full),cand(not(strmatch(%2,/brief)),gte(colordepth(%#),8))))][iter(lnum(1,8),%r[ljust(%%x[extract(%q3,##,1)] [ansi(extract(%q3,##,1),extract(%q1,##,1))][if(%q6, ([ansi(<#[extract(%q4,##,1,|)]>,#[extract(%q4,##,1,|)])]))],25)]%%xh%%x[extract(%q3,##,1)]%xh [ansi(extract(%q3,##,1),extract(%q1,##,1))]%xn[if(%q6, ([ansi(<#[extract(%q5,##,1,|)]>,#[extract(%q5,##,1,|)])]))])]%r[if(%q6,%rColor Cube:%r[columns(iter(extract(v(palette),17,216,|),ansi(<#%i0>,#%i0),|),12)]%rGrayscale:%r[columns(iter(extract(v(palette),233,24,|),ansi(<#%i0>,#%i0),|),12)])]%rThis sample of colors is based upon your client capabilities. Use +colors/brief or +colors/full to show the ANSI or 256-color sample.
@set ColorWheel/COLORWHEEL = regexp
&PALETTE ColorWheel=000000|BB0000|00BB00|BBBB00|0000BB|BB00BB|00BBBB|BBBBBB|555555|FF5555|55FF55|FFFF55|5555FF|FF55FF|55FFFF|FFFFFF|000000|00005F|000087|0000AF|0000D7|0000FF|005F00|005F5F|005F87|005FAF|005FD7|005FFF|008700|00875F|008785|0087AF|0087D7|0087FF|00AF00|00AF5F|00AF87|00AFAF|00AFD7|00AFFF|00D700|00D75F|00D787|00D7AF|00D7D7|00D7FF|00FF00|00FF5A|00FF87|00FFAF|00FFD7|00FFFF|5F0000|5F005F|5F0087|5F00AF|5F00D7|5F00FF|5F5F00|5F5F5F|5F5F87|5F5FAF|5F5FD7|5F5FFF|5F8700|5F875F|5F8787|5F87AF|5F87D7|5F87FF|5FAF00|5FAF5F|5FAF87|5FAFAF|5FAFD7|5FAFFF|5FD700|5FD75F|5FD787|5FD7AF|5FD7D7|5FD7FF|5FFF00|5FFF5F|5FFF87|5FFFAF|5FFFD7|5FFFFF|870000|87005F|870087|8700AF|8700D7|8700FF|875F00|875F5F|875F87|875FAF|875FD7|875FFF|878700|87875F|878787|8787AF|8787D7|8787FF|87AF00|87AF5F|87AF87|87AFAF|87AFD7|87AFFF|87D700|87D75A|87D787|87D7AF|87D7D7|87D7FF|87FF00|87FF5F|87FF87|87FFAF|87FFD7|87FFFF|AF0000|AF005F|AF0087|AF00AF|AF00D7|AF00FF|AF5F00|AF5F5F|AF5F87|AF5FAF|AF5FD7|AF5FFF|AF8700|AF875F|AF8787|AF87AF|AF87D7|AF87FF|AFAF00|AFAF5F|AFAF87|AFAFAF|AFAFD7|AFAFFF|AFD700|AFD75F|AFD787|AFD7AF|AFD7D7|AFD7FF|AFFF00|AFFF5F|AFFF87|AFFFAF|AFFFD7|AFFFFF|D70000|D7005F|D70087|D700AF|D700D7|D700FF|D75F00|D75F5F|D75F87|D75FAF|D75FD7|D75FFF|D78700|D7875A|D78787|D787AF|D787D7|D787FF|D7AF00|D7AF5A|D7AF87|D7AFAF|D7AFD7|D7AFFF|D7D700|D7D75F|D7D787|D7D7AF|D7D7D7|D7D7FF|D7FF00|D7FF5F|D7FF87|D7FFAF|D7FFD7|D7FFFF|FF0000|FF005F|FF0087|FF00AF|FF00D7|FF00FF|FF5F00|FF5F5F|FF5F87|FF5FAF|FF5FD7|FF5FFF|FF8700|FF875F|FF8787|FF87AF|FF87D7|FF87FF|FFAF00|FFAF5F|FFAF87|FFAFAF|FFAFD7|FFAFFF|FFD700|FFD75F|FFD787|FFD7AF|FFD7D7|FFD7FF|FFFF00|FFFF5F|FFFF87|FFFFAF|FFFFD7|FFFFFF|080808|121212|1C1C1C|262626|303030|3A3A3A|444444|4E4E4E|585858|626262|6C6C6C|767676|808080|8A8A8A|949494|9E9E9E|A8A8A8|B2B2B2|BCBCBC|C6C6C6|D0D0D0|DADADA|E4E4E4|EEEEEE
@lock ColorWheel==me
&COLORWHEEL ColorWheel=$^\+(colors|colours)(/brief|/full|)$:@pemit %#=To color text%, use the following %%x* codes. %rTo end the color and return to normal text%, use %%xn.%r[setq(1,black red green yellow blue magenta cyan white)][setq(2,%xx %xr %xg %xy %xb %xm %xc %xw)][setq(3,x r g y b m c w)][setq(4,extract(v(palette),1,8,|))][setq(5,extract(v(palette),9,8,|))][setq(6,cor(strmatch(%2,/full),cand(not(strmatch(%2,/brief)),gte(colordepth(%#),8))))][iter(lnum(1,8),%r[ljust(%%x[extract(%q3,##,1)] [ansi(extract(%q3,##,1),extract(%q1,##,1))][if(%q6, ([ansi(<#[extract(%q4,##,1,|)]>,#[extract(%q4,##,1,|)])]))],25)]%%xh%%x[extract(%q3,##,1)]%xh [ansi(extract(%q3,##,1),extract(%q1,##,1))]%xn[if(%q6, ([ansi(<#[extract(%q5,##,1,|)]>,#[extract(%q5,##,1,|)])]))])]%r[if(%q6,%rColor Cube:%r[columns(iter(extract(v(palette),17,216,|),ansi(<#%i0>,#%i0),|),12)]%rGrayscale:%r[columns(iter(extract(v(palette),233,24,|),ansi(<#%i0>,#%i0),|),12)])]%rThis sample of colors is based upon your client capabilities. Use +colors/brief or +colors/full to show the ANSI or 256-color sample.
@set ColorWheel/COLORWHEEL = regexp
&PALETTE ColorWheel=000000|BB0000|00BB00|BBBB00|0000BB|BB00BB|00BBBB|BBBBBB|555555|FF5555|55FF55|FFFF55|5555FF|FF55FF|55FFFF|FFFFFF|000000|00005F|000087|0000AF|0000D7|0000FF|005F00|005F5F|005F87|005FAF|005FD7|005FFF|008700|00875F|008785|0087AF|0087D7|0087FF|00AF00|00AF5F|00AF87|00AFAF|00AFD7|00AFFF|00D700|00D75F|00D787|00D7AF|00D7D7|00D7FF|00FF00|00FF5A|00FF87|00FFAF|00FFD7|00FFFF|5F0000|5F005F|5F0087|5F00AF|5F00D7|5F00FF|5F5F00|5F5F5F|5F5F87|5F5FAF|5F5FD7|5F5FFF|5F8700|5F875F|5F8787|5F87AF|5F87D7|5F87FF|5FAF00|5FAF5F|5FAF87|5FAFAF|5FAFD7|5FAFFF|5FD700|5FD75F|5FD787|5FD7AF|5FD7D7|5FD7FF|5FFF00|5FFF5F|5FFF87|5FFFAF|5FFFD7|5FFFFF|870000|87005F|870087|8700AF|8700D7|8700FF|875F00|875F5F|875F87|875FAF|875FD7|875FFF|878700|87875F|878787|8787AF|8787D7|8787FF|87AF00|87AF5F|87AF87|87AFAF|87AFD7|87AFFF|87D700|87D75A|87D787|87D7AF|87D7D7|87D7FF|87FF00|87FF5F|87FF87|87FFAF|87FFD7|87FFFF|AF0000|AF005F|AF0087|AF00AF|AF00D7|AF00FF|AF5F00|AF5F5F|AF5F87|AF5FAF|AF5FD7|AF5FFF|AF8700|AF875F|AF8787|AF87AF|AF87D7|AF87FF|AFAF00|AFAF5F|AFAF87|AFAFAF|AFAFD7|AFAFFF|AFD700|AFD75F|AFD787|AFD7AF|AFD7D7|AFD7FF|AFFF00|AFFF5F|AFFF87|AFFFAF|AFFFD7|AFFFFF|D70000|D7005F|D70087|D700AF|D700D7|D700FF|D75F00|D75F5F|D75F87|D75FAF|D75FD7|D75FFF|D78700|D7875A|D78787|D787AF|D787D7|D787FF|D7AF00|D7AF5A|D7AF87|D7AFAF|D7AFD7|D7AFFF|D7D700|D7D75F|D7D787|D7D7AF|D7D7D7|D7D7FF|D7FF00|D7FF5F|D7FF87|D7FFAF|D7FFD7|D7FFFF|FF0000|FF005F|FF0087|FF00AF|FF00D7|FF00FF|FF5F00|FF5F5F|FF5F87|FF5FAF|FF5FD7|FF5FFF|FF8700|FF875F|FF8787|FF87AF|FF87D7|FF87FF|FFAF00|FFAF5F|FFAF87|FFAFAF|FFAFD7|FFAFFF|FFD700|FFD75F|FFD787|FFD7AF|FFD7D7|FFD7FF|FFFF00|FFFF5F|FFFF87|FFFFAF|FFFFD7|FFFFFF|080808|121212|1C1C1C|262626|303030|3A3A3A|444444|4E4E4E|585858|626262|6C6C6C|767676|808080|8A8A8A|949494|9E9E9E|A8A8A8|B2B2B2|BCBCBC|C6C6C6|D0D0D0|DADADA|E4E4E4|EEEEEE