Mush端颜色处理

suwuji

使用范例：
脚本调用
cprint("$HIG$你$HIY$好") --本地输出

sprint("$HIG$你$HIY$好") --模拟服务端信息

--当前行内色彩替换

recolor("aqua","yellow")   --触发器当前行色彩修改，调试好后勾选屏蔽显示

1. --[[
   
2.     cprint.lua
   
3. ]]
   
4. 
   
5. function cprint_ansi_color_init()
   
6.     local ESC = '\27'
   
7.     return {
   
8.         -- 前景色
   
9.         BLK = ESC.."[30m", -- 黑色
   
10.         RED = ESC.."[31m", -- 红色
    
11.         GRN = ESC.."[32m", -- 绿色
    
12.         YEL = ESC.."[33m", -- 黄色
    
13.         BLU = ESC.."[34m", -- 蓝色
    
14.         MAG = ESC.."[35m", -- 紫色
    
15.         CYN = ESC.."[36m", -- 青色
    
16.         WHT = ESC.."[37m", -- 白色
    
17.         -- 加强前景色
    
18.         GRA = ESC.."[1;30m", -- 灰色
    
19.         HIR = ESC.."[1;31m", -- 亮红
    
20.         HIG = ESC.."[1;32m", -- 亮绿
    
21.         HIY = ESC.."[1;33m", -- 亮黄
    
22.         HIB = ESC.."[1;34m", -- 亮蓝
    
23.         HIM = ESC.."[1;35m", -- 亮紫
    
24.         HIC = ESC.."[1;36m", -- 亮青
    
25.         HIW = ESC.."[1;37m", -- 亮白
    
26.         -- 背景色
    
27.         BBLK = ESC.."[40m", --黑色
    
28.         BRED = ESC.."[41m", --红色
    
29.         BGRN = ESC.."[42m", --绿色
    
30.         BYEL = ESC.."[43m", -- 黄色
    
31.         BBLU = ESC.."[44m", --蓝色
    
32.         BMAG = ESC.."[45m", --紫色
    
33.         BCYN = ESC.."[46m", --青色
    
34.         BWHT = ESC.."[47m", -- 白色
    
35.         -- 加强背景色，一般不用会引起前景变色
    
36.         HBRED = ESC.."[41;1m", -- 亮红
    
37.         HBGRN = ESC.."[42;1m", -- 亮绿
    
38.         HBYEL = ESC.."[43;1m", -- 亮黄
    
39.         HBBLU = ESC.."[44;1m", -- 亮蓝
    
40.         HBMAG = ESC.."[45;1m", -- 亮紫
    
41.         HBCYN = ESC.."[46;1m", -- 亮青
    
42.         HBWHT = ESC.."[47;1m", -- 亮白
    
43.         --字形控
    
44.         B = ESC.."[1m", --加重
    
45.         I = ESC.."[3m", --斜体
    
46.         U = ESC.."[4m", --下划线
    
47.         REV = ESC.."[7m", --反色
    
48.         HIREV = ESC.."[1;7m", --高亮反色
    
49.         BLINK = ESC.."[5m", --闪烁,mushclient里BLINK和I显示一致
    
50.         CROSS = ESC.."[9m", --删除线
    
51.         -- 返回普通
    
52.         NOR = ESC.."[2;37;0m",
    
53.     }
    
54. end
    
55. 
    
56. if ansi_color==nil then ansi_color = cprint_ansi_color_init() end
    
57. 
    
58. function ansi(str)
    
59.     if str==nil or str=="%$" or str=="nil" then return "" end
    
60.     local s,e = string.find(str,"%$([^%$]+)%$")
    
61.     if s~=nil and e~=nil then
    
62.         local mc = string.sub(str,s+1,e-1)
    
63.         if ansi_color[mc]==nil then
    
64.             print("$"..mc..'$没有此颜色定义！可用的有:\n')
    
65.             for k,v in pairs(ansi_color) do
    
66.                 print("$"..k.."$")
    
67.             end
    
68.             print('\n')
    
69.             return ansi(string.sub(str,1,s-1))..ansi(string.sub(str,e+1))
    
70.         else
    
71.             return ansi(string.sub(str,1,s-1))..ansi_color[mc]..ansi(string.sub(str,e+1))
    
72.         end
    
73.     else
    
74.         return str
    
75.     end
    
76. end
    
77. 
    
78. ----获取当前行的styles--
    
79. function styles()
    
80.     return GetStyleInfo(GetLinesInBufferCount())
    
81. end
    
82. 
    
83. ----获取当前行info--
    
84. function infos()
    
85.     return GetLineInfo(GetLinesInBufferCount())
    
86. end
    
87. 
    
88. ----当前行色彩数--
    
89. function styles_count()
    
90.     return table.getn(styles())
    
91. end
    
92. 
    
93. function rgbname(color)
    
94.     return RGBColourToName(color)
    
95. end
    
96. 
    
97. --
    
98. function debugcolor()
    
99.     local sall = styles()
    
100.     for k,v in ipairs(sall) do
     
101.         ColourTell(RGBColourToName(v.textcolour),RGBColourToName(v.backcolour),v.text)
     
102.     end
     
103.     ColourNote(0,0,"")
     
104.     for k,v in ipairs(sall) do
     
105.         print(RGBColourToName(v.textcolour)..","..RGBColourToName(v.backcolour).."=>"..v.text)
     
106.     end
     
107. end
     
108. 
     
109. --色彩文字替换显示函数（自定义显示效果）
     
110. function recolor(textcolour,new_textcolour,backcolour,new_backcolour,text,new_text)
     
111. 
     
112.     if textcolour==nil and backcolour==nil and text==nil then
     
113.         debugcolor()
     
114.         return
     
115.     end
     
116.    
     
117.     local sall = styles()
     
118.     for k,v in ipairs(sall) do
     
119.    
     
120.         local forecolor = ""
     
121.         local backcolor = ""
     
122.         local tt = ""
     
123.         if textcolour and textcolour==RGBColourToName(v.textcolour) then
     
124.             forecolor = new_textcolour
     
125.         else
     
126.             forecolor = RGBColourToName(v.textcolour)
     
127.         end
     
128.         
     
129.         if backcolour and backcolour==RGBColourToName(v.backcolour) then
     
130.             backcolor = new_backcolour
     
131.         else
     
132.             backcolor = RGBColourToName(v.backcolour)
     
133.         end
     
134.         if text and text==v.text then
     
135.             --替换
     
136.             if new_text~=nil then
     
137.                 tt = new_text
     
138.             else
     
139.                 tt = v.text
     
140.             end
     
141.         else
     
142.             --不替换
     
143.             tt = v.text
     
144.         end
     
145.         
     
146.         ColourTell(forecolor,backcolor,tt)
     
147.     end
     
148.     ColourNote(0,0,"")
     
149. end
     
150. 
     
151. ----本地彩色文字输出（提示用）--
     
152. function cprint(str)
     
153.     AnsiNote(ansi(str)..ansi_color.NOR)
     
154. end
     
155. 
     
156. ----模拟服务端文字输出（可触发）--
     
157. function sprint(str)
     
158.     Simulate(ansi(str)..ansi_color.NOR)
     
159. end
     
160. 
     
161. 
     
162. 
     

复制代码

xxhy

功能不错，支持一下~