Display two colors in a single chinese character

\\local ch_string1 = "你往\n"; ch_string2 = string.sub(ch_string1, 1, 1)..ANSI(1,35)..string.sub(ch_string1, 2); Simulate(ANSI(0)..ch_string1..ch_string2)

Sent  packet: 22 (3 bytes) at 星期五, 九月 23, 2016, 6:20:17 下午

i..                69 0d 0a

Incoming packet: 36 (213 bytes) at 星期五, 九月 23, 2016, 6:20:18 下午

.A...W...a....:.   a7 41 a8 ad a4 57 c4 e2 b1 61 b5 db a6 b3 3a 0a
.     .[36m(.{.{   0d 20 20 20 20 20 1b 5b 33 36 6d 28 b0 7b c3 7b
).[37m .[36m(...   29 1b 5b 33 37 6d 20 1b 5b 33 36 6d 28 b6 e4 b6
..@.T).[37m .[1m   e4 a7 40 c5 54 29 1b 5b 33 37 6d 20 1b 5b 31 6d
..[0mt.[1m..[0mQ   b8 1b 5b 30 6d 74 1b 5b 31 6d a4 1b 5b 30 6d 51
.[1m..[0mr.[37;0   1b 5b 31 6d a6 1b 5b 30 6d 72 1b 5b 33 37 3b 30
m/Holy Cross....   6d 2f 48 6f 6c 79 20 43 72 6f 73 73 0a 0d 0a 0d
<.[32m2903.[37m/   3c 1b 5b 33 32 6d 32 39 30 33 1b 5b 33 37 6d 2f
2903...R .[35m13   32 39 30 33 a5 cd a9 52 20 1b 5b 33 35 6d 31 33
52.[37m/1352....   35 32 1b 5b 33 37 6d 2f 31 33 35 32 ba eb af ab
 .[36m2238.[37m/   20 1b 5b 33 36 6d 32 32 33 38 1b 5b 33 37 6d 2f
2238...O .[33m45   32 32 33 38 c5 e9 a4 4f 20 1b 5b 33 33 6d 34 35
0.[37m/418...O 9   30 1b 5b 33 37 6d 2f 34 31 38 a4 ba a4 4f 20 39
6989>              36 39 38 39 3e

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="Remove_colour_code"
   author="Nick Gammon"
   id="cc152a5618bce5870c579574"
   language="Lua"
   purpose="Removes embedded colour from Big5 codes"
   date_written="2016-09-24 08:25:50"
   date_modified="2016-09-25 08:01:42"
   requires="4.90"
   version="2.0"
   >
</plugin>

<!--  Script  -->
<script>
<![CDATA[

function OnPluginPacketReceived (sText)
  -- BIG5:   -- 0x81 to 0xFE, 0x40 to 0x7E or 0xA1 to 0xFE

  -- look for sequence x ESC [ m ESC [ 31 m y
  sText = string.gsub (sText, "([\129-\254])(\027%[m\027%[[0-9;]*m)([\064-\126\161-\254])", "%1%3%2")

  -- look for sequence x ESC [ 31 m y
  sText = string.gsub (sText, "([\129-\254])(\027%[[0-9;]*m)([\064-\126\161-\254])", "%1%3%2")

  return sText
end -- function

]]>
</script>
</muclient>

i
你身上攜帶著有:
     (閃爍) (嗡嗡作響) 桃花束腰/belt
     (閃爍) (嗡嗡作響) 蠻荒之刃/fierce blade
     (閃爍) (嗡嗡作響) 上古神兵/ancient weapon
     (閃爍) (嗡嗡作響) 黑洞牆/blackhole wall
     (閃爍) (嗡嗡作響) 微電腦裝置/micro processor
     生命水晶/life crystal
     魔法方塊/Magic Box

<2903/2903生命 1352/1352精神 2238/2238體力 450/418內力 96989>

Sent  packet: 90 (3 bytes) at 星期六, 九月 24, 2016, 3:11:46 下午

i..                69 0d 0a

Incoming packet: 129 (753 bytes) at 星期六, 九月 24, 2016, 3:11:46 下午

.A...W...a....:.   a7 41 a8 ad a4 57 c4 e2 b1 61 b5 db a6 b3 3a 0a
.     .[36m(.{.{   0d 20 20 20 20 20 1b 5b 33 36 6d 28 b0 7b c3 7b
).[37m .[36m(...   29 1b 5b 33 37 6d 20 1b 5b 33 36 6d 28 b6 e4 b6
..@.T).[37m .[1;   e4 a7 40 c5 54 29 1b 5b 33 37 6d 20 1b 5b 31 3b
31m..[m.[1m..[1;   33 31 6d ae 1b 5b 6d 1b 5b 31 6d e7 1b 5b 31 3b
31m..[m.[1m..[1;   33 31 6d aa 1b 5b 6d 1b 5b 31 6d e1 1b 5b 31 3b
31m..[m.[1m..[1;   33 31 6d a7 1b 5b 6d 1b 5b 31 6d f4 1b 5b 31 3b
31m..[m.[1my.[m/   33 31 6d b8 1b 5b 6d 1b 5b 31 6d 79 1b 5b 6d 2f
belt..     .[36m   62 65 6c 74 0a 0d 20 20 20 20 20 1b 5b 33 36 6d
(.{.{).[37m .[36   28 b0 7b c3 7b 29 1b 5b 33 37 6d 20 1b 5b 33 36
m(.....@.T).[37m   6d 28 b6 e4 b6 e4 a7 40 c5 54 29 1b 5b 33 37 6d
 .[31m..[mZ.[31m   20 1b 5b 33 31 6d c6 1b 5b 6d 5a 1b 5b 33 31 6d
..[m..[1m..[m..[   af 1b 5b 6d ee 1b 5b 31 6d a4 1b 5b 6d a7 1b 5b
1m.[36m..[m.[36m   31 6d 1b 5b 33 36 6d a4 1b 5b 6d 1b 5b 33 36 6d
b.[m/fierce blad   62 1b 5b 6d 2f 66 69 65 72 63 65 20 62 6c 61 64
e..     .[36m(.{   65 0a 0d 20 20 20 20 20 1b 5b 33 36 6d 28 b0 7b
.{).[37m .[36m(.   c3 7b 29 1b 5b 33 37 6d 20 1b 5b 33 36 6d 28 b6
....@.T).[37m .[   e4 b6 e4 a7 40 c5 54 29 1b 5b 33 37 6d 20 1b 5b
1m.[34m..[36mW.[   31 6d 1b 5b 33 34 6d a4 1b 5b 33 36 6d 57 1b 5b
34m..[36mj.[37m.   33 34 6d a5 1b 5b 33 36 6d 6a 1b 5b 33 37 6d af
.[m..[1m..[mL/an   1b 5b 6d ab 1b 5b 31 6d a7 1b 5b 6d 4c 2f 61 6e
cient weapon..     63 69 65 6e 74 20 77 65 61 70 6f 6e 0a 0d 20 20
   .[36m(.{.{).[   20 20 20 1b 5b 33 36 6d 28 b0 7b c3 7b 29 1b 5b
37m .[36m(.....@   33 37 6d 20 1b 5b 33 36 6d 28 b6 e4 b6 e4 a7 40
.T).[37m .[m.[1;   c5 54 29 1b 5b 33 37 6d 20 1b 5b 6d 1b 5b 31 3b
30m...}.[m.[1m.U   33 30 6d b6 c2 ac 7d 1b 5b 6d 1b 5b 31 6d c7 55
.[m.[1;31m..[m.[   1b 5b 6d 1b 5b 31 3b 33 31 6d c0 1b 5b 6d 1b 5b
31m..[m.[0m/blac   33 31 6d f0 1b 5b 6d 1b 5b 30 6d 2f 62 6c 61 63
khole wall..       6b 68 6f 6c 65 20 77 61 6c 6c 0a 0d 20 20 20 20
 .[36m(.{.{).[37   20 1b 5b 33 36 6d 28 b0 7b c3 7b 29 1b 5b 33 37
m .[36m(.....@.T   6d 20 1b 5b 33 36 6d 28 b6 e4 b6 e4 a7 40 c5 54
).[37m ..[m.[1mL   29 1b 5b 33 37 6d 20 b7 1b 5b 6d 1b 5b 31 6d 4c
..[m.[0mq..[m.[1   b9 1b 5b 6d 1b 5b 30 6d 71 b8 1b 5b 6d 1b 5b 31
m...[m.[0m...[m.   6d a3 b8 1b 5b 6d 1b 5b 30 6d cb b8 1b 5b 6d 1b
[1mm.[m.[0m/micr   5b 31 6d 6d 1b 5b 6d 1b 5b 30 6d 2f 6d 69 63 72
o processor..      6f 20 70 72 6f 63 65 73 73 6f 72 0a 0d 20 20 20
  ...R..../life    20 20 a5 cd a9 52 a4 f4 b4 b9 2f 6c 69 66 65 20
crystal..     .[   63 72 79 73 74 61 6c 0a 0d 20 20 20 20 20 1b 5b
33m.].[34m.k.[35   33 33 6d c5 5d 1b 5b 33 34 6d aa 6b 1b 5b 33 35
m...[36m...[0m/M   6d a4 e8 1b 5b 33 36 6d b6 f4 1b 5b 30 6d 2f 4d
agic Box....<.[3   61 67 69 63 20 42 6f 78 0a 0d 0a 0d 3c 1b 5b 33
2m2903.[37m/2903   32 6d 32 39 30 33 1b 5b 33 37 6d 2f 32 39 30 33
...R .[35m1352.[   a5 cd a9 52 20 1b 5b 33 35 6d 31 33 35 32 1b 5b
37m/1352.... .[3   33 37 6d 2f 31 33 35 32 ba eb af ab 20 1b 5b 33
6m2238.[37m/2238   36 6d 32 32 33 38 1b 5b 33 37 6d 2f 32 32 33 38
...O .[33m450.[3   c5 e9 a4 4f 20 1b 5b 33 33 6d 34 35 30 1b 5b 33
7m/418...O 96989   37 6d 2f 34 31 38 a4 ba a4 4f 20 39 36 39 38 39
>                  3e

你身上攜帶著有:
     (閃爍) (嗡嗡作響) 桃花束腰/belt
     (閃爍) (嗡嗡作響) 蠻荒之刃/fierce blade
     (閃爍) (嗡嗡作響) 上古神兵/ancient weapon
     (閃爍) (嗡嗡作響) 黑洞ソ牆/blackhole wall
     (閃爍) (嗡嗡作響) 微電腦裝置/micro processor
     生命水晶/life crystal
     魔法方/Magic Box

<2903/2903生命 1352/1352精神 2238/2238體力 450/418內力 96989

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="Remove_colour_code"
   author="Nick Gammon"
   id="cc152a5618bce5870c579574"
   language="Lua"
   purpose="Removes embedded colour from Big5 codes"
   date_written="2016-09-24 08:25:50"
   date_modified="2016-09-25 16:36:42"
   requires="4.90"
   version="3.1"
   >
</plugin>

<!--  Script  -->
<script>
<![CDATA[

-- save typing function names with "lpeg" in front of them:
local P, V, R, C, S, Cs = lpeg.P, lpeg.V, lpeg.R, lpeg.C, lpeg.S, lpeg.Cs

local Big5_first  = R"\129\254"   -- start of Big5 code (0x81 to 0xFE)
local Big5_second = R"\064\126" + R"\161\254"  -- end of Big5 code (0x40 to 0x7E or 0xA1 to 0xFE)

-- grammar for parsing the packet
grammar = P {
           "big5",      --> this tells LPEG which rule to process first

           -- An ANSI colour sequence is: ESC [ digits or ";" then "m"
           ColourCode   = P"\027" * P"[" * S"0123456789;"^0 * P"m",

           -- We look for the first BIG5 code (0x81 to 0xFE) followed by one or more ANSI sequences
           --  followed by the second BIG5 code (0x40 to 0x7E or 0xA1 to 0xFE)
           big5         = C (Big5_first) * C (V"ColourCode"^1) * C (Big5_second),
           }

-- swap the order so that the first and second BIG5 byte are together
-- followed by the colour code that was between them
local function substituteFunction (first, colour, second)
  return first .. second .. colour
end -- substituteFunction

-- call the substitution function on a match

-- test for: Ordinary Big5 (Big5_first followed by Big5_second)
--       or: Big5 with colour in the middle
--       or: skip one character

pattern = Cs(((Big5_first * Big5_second) + (grammar / substituteFunction) + 1)^0)

-- handle incoming packet
function OnPluginPacketReceived (sText)
  return lpeg.match(pattern, sText)
end -- function

]]>
</script>
</muclient>

i
你身上攜帶著有:
     (嗡嗡作響) 小少爺之神力長靴/Childe boots
     (嗡嗡作響) 阿拉蕾之神力手套/Arale gauntlets
     生命水晶/life crystal
     魔法方塊/Magic Box

Sent  packet: 99 (3 bytes) at 星期日, 九月 25, 2016, 10:48:59 上午

i..                69 0d 0a

Incoming packet: 142 (332 bytes) at 星期日, 九月 25, 2016, 10:48:59 上午

.A...W...a....:.   a7 41 a8 ad a4 57 c4 e2 b1 61 b5 db a6 b3 3a 0a
.     .[36m(....   0d 20 20 20 20 20 1b 5b 33 36 6d 28 b6 e4 b6 e4
.@.T).[37m .p...   a7 40 c5 54 29 1b 5b 33 37 6d 20 a4 70 a4 d6 b7
....[36m...O...u   dd a4 a7 1b 5b 33 36 6d af ab a4 4f aa f8 b9 75
.[0m/Childe boot   1b 5b 30 6d 2f 43 68 69 6c 64 65 20 62 6f 6f 74
s..     .[36m(..   73 0a 0d 20 20 20 20 20 1b 5b 33 36 6d 28 b6 e4
...@.T).[37m ...   b6 e4 a7 40 c5 54 29 1b 5b 33 37 6d 20 aa fc a9
......[35m...O..   d4 c1 a2 a4 a7 1b 5b 33 35 6d af ab a4 4f a4 e2
.M.[0m/Arale gau   ae 4d 1b 5b 30 6d 2f 41 72 61 6c 65 20 67 61 75
ntlets..     ...   6e 74 6c 65 74 73 0a 0d 20 20 20 20 20 a5 cd a9
R..../life cryst   52 a4 f4 b4 b9 2f 6c 69 66 65 20 63 72 79 73 74
al..     .[33m.]   61 6c 0a 0d 20 20 20 20 20 1b 5b 33 33 6d c5 5d
.[34m.k.[35m...[   1b 5b 33 34 6d aa 6b 1b 5b 33 35 6d a4 e8 1b 5b
36m...[0m/Magic    33 36 6d b6 f4 1b 5b 30 6d 2f 4d 61 67 69 63 20
Box....<.[32m290   42 6f 78 0a 0d 0a 0d 3c 1b 5b 33 32 6d 32 39 30
3.[37m/2903...R    33 1b 5b 33 37 6d 2f 32 39 30 33 a5 cd a9 52 20
.[35m1352.[37m/1   1b 5b 33 35 6d 31 33 35 32 1b 5b 33 37 6d 2f 31
352.... .[36m223   33 35 32 ba eb af ab 20 1b 5b 33 36 6d 32 32 33
8.[37m/2238...O    38 1b 5b 33 37 6d 2f 32 32 33 38 c5 e9 a4 4f 20
.[33m450.[37m/41   1b 5b 33 33 6d 34 35 30 1b 5b 33 37 6d 2f 34 31
8...O 96989>       38 a4 ba a4 4f 20 39 36 39 38 39 3e

xycxy

xyxcy