on *:input:#: { if ($left($1,1) != /) && ($1 ison $chan) { if ($1 isop $chan) { msg $chan 4*12|¤|4@ $+ $1 $+ 12|¤|4* $999 $2- haltdef } elseif ($1 ishop $chan) { msg $chan 7*12|¤|7% $+ $1 $+ 12|¤|7* $999 $2- haltdef } elseif ($1 isvoice $chan) { msg $chan 2*12|¤|2+ $+ $1 $+ 12|¤|2* $999 $2- haltdef } elseif ($1 isreg $chan) { msg $chan 10*12|¤|10 $+ $1 $+ 12|¤|10* $999 $2- haltdef } } } alias big { if ($bigtext.unsupp($1-)) { echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-) return } var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/ var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text) while (%i <= $len(%text)) { if ($mid(%text, %i, 1) == $chr(3)) { var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3)) if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) { var %m $regml(mtcol, 1) var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m inc %i $len(%m) } } else { tokenize 32 $bigtext.char($mid(%text, %i, 1)) var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5) ; if ($bigtext.kern($mid(%text, %i, 2))) { var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .) ; } } inc %i } say $bigtext.format(%lia) say $bigtext.format(%lib) say $bigtext.format(%lic) say $bigtext.format(%lid) say $bigtext.format(%lie) } ; You may customize this alias however you want to. ; It is Big Text's font, used above. ; The return value consists of dots and X's, to denote ; unlit and lit points in the font, respectively; ; there are 5 tokens of the same length, each ; corresponding to a line in the 5-line output. ; Note how the . and X's look like the characters; ; you can use this to your advantage! alias -l bigtext.char { if ($1 === $chr(32)) || ($1 === $null) return $& ... $& ... $& ... $& ... $& ... if ($1 === $chr(160)) return $& ..... $& ..... $& ..... $& ..... $& ..... elseif ($1 == 0) return $& 12.XXXX. $& 4XX..XX $& 12XX.XXX $& 4XXX.XX $& 12.XXXX. elseif ($1 == 1) return $& 12.XXXX $& 4XX.XX $& 12...XX $& 4...XX $& 12...XX elseif ($1 == 2) return $& 12XXXXX. $& 4....XX $& 12..XX.. $& 4XX.... $& 12XXXXXX elseif ($1 == 3) return $& 12XXXXX. $& 4....XX $& 12.XXXX. $& 4....XX $& 12XXXXX. elseif ($1 == 4) return $& 12.....XXX. $& 4...XX.XX. $& 12.XX...XX. $& 4XXXXXXXXX $& 12......XX. elseif ($1 == 5) return $& 12XXXXX $& 4XX... $& 12XXXX. $& 4...XX $& 12XXXX. elseif ($1 == 6) return $& 12.XXXX. $& 4XX.... $& 12XXXXX. $& 4XX..XX $& 12.XXXX. elseif ($1 == 7) return $& 12XXXXXX $& 4...XX. $& 12..XX.. $& 4.XX... $& 12XX.... elseif ($1 == 8) return $& 12.XXXX. $& 4XX..XX $& 12.XXXX. $& 4XX..XX $& 12.XXXX. elseif ($1 == 9) return $& 12.XXXX. $& 4XX..XX $& 12.XXXXX $& 4....XX $& 12.XXXX. elseif ($1 == A) return $& 12.XXXX. $& 4XX..XX $& 12XXXXXX $& 4XX..XX $& 12XX..XX elseif ($1 == B) return $& 12XXXXX. $& 4XX..XX $& 12XXXXX. $& 4XX..XX $& 12XXXXX. elseif ($1 == C) return $& 12.XXXX. $& 4XX..XX $& 12XX.... $& 4XX..XX $& 12.XXXX elseif ($1 == D) return $& 12XXXX.. $& 4XX.XX. $& 12XX..XX $& 4XX..XX $& 12XXXXX. elseif ($1 == E) return $& 12XXXXX $& 4XX... $& 12XXXX. $& 4XX... $& 12XXXXX elseif ($1 == F) return $& 12XXXXX $& 4XX... $& 12XXXX. $& 4XX... $& 12XX... elseif ($1 == G) return $& 12.XXXX. $& 4XX.... $& 12XX.XXX $& 4XX..XX $& 12.XXXXX elseif ($1 == H) return $& 12XX...XX $& 4XX...XX $& 12XXXXXXX $& 4XX...XX $& 12XX...XX elseif ($1 == I) return $& 12XXXX $& 4.XX. $& 12.XX. $& 4.XX. $& 12XXXX elseif ($1 == J) return $& 12....XX $& 4....XX $& 12....XX $& 4XX..XX $& 12.XXXX. elseif ($1 == K) return $& 12XX..XX $& 4XX.XX. $& 12XXXX.. $& 4XX.XX. $& 12XX..XX elseif ($1 == L) return $& 12XX... $& 4XX... $& 12XX... $& 4XX... $& 12XXXXX elseif ($1 == M) return $& 12XX....XX $& 4XXX..XXX $& 12XXXXXXXX $& 4XX.XX.XX $& 12XX....XX elseif ($1 == N) return $& 12XX..XX $& 4XXX.XX $& 12XXXXXX $& 4XX.XXX $& 12XX..XX elseif ($1 == O) return $& 12.XXXX. $& 4XX..XX $& 12XX..XX $& 4XX..XX $& 12.XXXX. elseif ($1 == P) return $& 12.XXXXX. $& 4.XX..XX $& 12.XXXXX. $& 4.XX.... $& 12.XX.... elseif ($1 == Q) return $& 12.XXXX.. $& 4XX..XX. $& 12XX..XX. $& 4XX..XX. $& 12.XXXXXX elseif ($1 == R) return $& 12XXXXX. $& 4XX..XX $& 12XXXXX. $& 4XX..XX $& 12XX..XX elseif ($1 == S) return $& 12XXXXXX $& 4XX.... $& 12XXXXXX $& 4....XX $& 12XXXXXX elseif ($1 == T) return $& 12XXXXXX $& 4..XX.. $& 12..XX.. $& 4..XX.. $& 12..XX.. elseif ($1 == U) return $& 12XX..XX $& 4XX..XX $& 12XX..XX $& 4XX..XX $& 12XXXXXX elseif ($1 == V) return $& 12XX....XX $& 4XX....XX $& 12.XX..XX. $& 4..XXXX.. $& 12...XX... elseif ($1 == W) return $& 12XX...XX $& 4XX...XX $& 12XX.X.XX $& 4XXXXXXX $& 12.XX.XX. elseif ($1 == X) return $& 12XX...XX $& 4.XX.XX. $& 12..XXX.. $& 4.XX.XX. $& 12XX...XX elseif ($1 == Y) return $& 12XX..XX $& 4XX..XX $& 12.XXXX. $& 4..XX.. $& 12..XX.. elseif ($1 == Z) return $& 12XXXXXX $& 4...XX. $& 12..XX.. $& 4.XX... $& 12XXXXXX elseif ($1 == $chr(35)) return $& 12.XX..XX. $& 4XXXXXXXX $& 12.XX..XX. $& 4XXXXXXXX $& 12.XX..XX. elseif ($1 == ') return $& 12.XX $& 4XX. $& 12... $& 4... $& 12... elseif ($1 == ") return $& 12XX..XX $& 4XX..XX $& 12...... $& 4...... $& 12...... elseif ($1 == +) return $& 12...... $& 4..XX.. $& 12XXXXXX $& 4..XX.. $& 12...... elseif ($1 == =) return $& ...... $& 12XXXXXX $& ...... $& 4XXXXXX $& ...... elseif ($1 == -) return $& ...... $& ...... $& 12XXXXXX $& ...... $& ...... elseif ($1 == _) return $& ...... $& ...... $& ...... $& ...... $& 4XXXXXX elseif ($1 == ¯) return $& 12XXXXXX $& ...... $& ...... $& ...... $& ...... elseif ($1 == °) return $& 12.XXX. $& 4XX.XX $& 12.XXX. $& ..... $& ..... elseif ($1 == :) return $& 12.. $& 4XX $& 12.. $& 4XX $& .. elseif ($1 == !) return $& 12XX $& 4XX $& 12XX $& .. $& 4XX elseif ($1 == ?) return $& 12XXX. $& 4..XX $& 12.XX. $& .... $& 4.XX. elseif ($1 == .) return $& .. $& .. $& .. $& .. $& 12XX elseif ($1 == /) return $& 12....XX $& 4...XX. $& 12..XX.. $& 4.XX... $& 12XX.... elseif ($1 == \) return $& 12XX.... $& 4.XX... $& 12..XX.. $& 4...XX. $& 12....XX elseif ($1 == $chr(40)) return $& 12...XX $& 4.XX.. $& 12XX... $& 4.XX.. $& 12...XX elseif ($1 == $chr(41)) return $& 12XX... $& 4..XX. $& 12...XX $& 4..XX. $& 12XX... elseif ($1 == $chr(37)) return $& 12XX..XX $& 4...XX. $& 12..XX.. $& 4.XX... $& 12XX..XX elseif ($1 == [) return $& 12XXXXX $& 4XX... $& 12XX... $& 4XX... $& 12XXXXX elseif ($1 == ]) return $& 12XXXXX $& 4...XX $& 12...XX $& 4...XX $& 12XXXXX elseif ($1 == |) return $& 12.XX. $& 4.XX. $& 12.XX. $& 4.XX. $& 12.XX. elseif ($1 == <) return $& 12....XX $& 4..XX.. $& 12XX.... $& 4..XX.. $& 12....XX elseif ($1 == >) return $& 12XX.... $& 4..XX.. $& 12....XX $& 4..XX.. $& 12XX.... elseif ($1 == ¸) return $& .... $& .... $& 12.XX. $& 4..XX $& 12XXX. elseif ($1 == ,) return $& ... $& ... $& 12XXX $& 4.XX $& 12XX. } ; Returns all unsupported characters within a Big Text message ; Supported characters are a-z, space, digits, #'"+=°:!?./\()%-[]<>|¸, alias bigtext.unsupp { var %res, %dummy = $regsub($1-, /[]a-z 0-9# $+ $chr(44) $+ '+=°:!?./\\()%[|<>_¯"¸-]/igS, $null, %res) return %res } ; Returns $true if a space should be added between two characters, ; or $false if not. ; Note: This is here only for aesthetic purposes. :) alias bigtext.kern { var %res $true if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]°|°[J/]|L'|\/\/|\\\\|¯J|[_¯]¯|[¯T_]_|>\.|\.<)$/i)) %res = $false return %res } ; Takes an input string of the form: ; .XX..XX....XX.XX.XXXXX ; And formats it for display. alias bigtext.format { var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/ while (%i <= $len($1-)) { if ($mid($1-, %i, 1) == $chr(3)) { if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) { if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) { %curcolor = $gettok($regml(mtcol, 1), 1, 44) if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15) } inc %i $len($regml(mtcol, 1)) } elseif (%curcolor) { %curcolor = if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15) } } else { %current = $iif($mid($1-, %i, 1) == ., 0, 1) if (%previous != %current) { %previous = %current if (%curcolor) { if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor else %res = %res $+ $chr(3) } else %res = %res $+ $chr(22) } %res = %res $+ $chr(160) } inc %i } return %res } alias bigc { if ($bigtext.unsupp($1-)) { echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-) return } var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/ var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text) while (%i <= $len(%text)) { if ($mid(%text, %i, 1) == $chr(3)) { var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3)) if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) { var %m $regml(mtcol, 1) var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m inc %i $len(%m) } } else { tokenize 32 $bigtext.char($mid(%text, %i, 1)) var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5) ; if ($bigtext.kern($mid(%text, %i, 2))) { var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .) ; } } inc %i } say $bigtext.format(%lia) say $bigtext.format(%lib) say $bigtext.format(%lic) say $bigtext.format(%lid) say $bigtext.format(%lie) } ; You may customize this alias however you want to. ; It is Big Text's font, used above. ; The return value consists of dots and X's, to denote ; unlit and lit points in the font, respectively; ; there are 5 tokens of the same length, each ; corresponding to a line in the 5-line output. ; Note how the . and X's look like the characters; ; you can use this to your advantage! alias -l bigtext.char { if ($1 === $chr(32)) || ($1 === $null) return $& ... $& ... $& ... $& ... $& ... if ($1 === $chr(160)) return $& ..... $& ..... $& ..... $& ..... $& ..... elseif ($1 == 0) return $& 2.XXXX. $& 2XX..XX $& 2XX.XXX $& 2XXX.XX $& 2.XXXX. elseif ($1 == 1) return $& 3.XXXX $& 3XX.XX $& 3...XX $& 3...XX $& 3...XX elseif ($1 == 2) return $& 4XXXXX. $& 4....XX $& 4..XX.. $& 4XX.... $& 4XXXXXX elseif ($1 == 3) return $& 5XXXXX. $& 5....XX $& 5.XXXX. $& 5....XX $& 5XXXXX. elseif ($1 == 4) return $& 6.....XXX. $& 6...XX.XX. $& 6.XX...XX. $& 6XXXXXXXXX $& 6......XX. elseif ($1 == 5) return $& 7XXXXX $& 7XX... $& 7XXXX. $& 7...XX $& 7XXXX. elseif ($1 == 6) return $& 8.XXXX. $& 8XX.... $& 8XXXXX. $& 8XX..XX $& 8.XXXX. elseif ($1 == 7) return $& 9XXXXXX $& 9...XX. $& 9..XX.. $& 9.XX... $& 9XX.... elseif ($1 == 8) return $& 10.XXXX. $& 10XX..XX $& 10.XXXX. $& 10XX..XX $& 10.XXXX. elseif ($1 == 9) return $& 11.XXXX. $& 11XX..XX $& 11.XXXXX $& 11....XX $& 11.XXXX. elseif ($1 == A) return $& 12.XXXX. $& 4.XX..XX $& 12XXXXXX $& 4.XX..XX $& 12XX..XX elseif ($1 == B) return $& 13XXXXX. $& 13XX..XX $& 13XXXXX. $& 13XX..XX $& 13XXXXX. elseif ($1 == C) return $& 2.XXXX. $& 2XX..XX $& 2XX.... $& 2XX..XX $& 2.XXXX elseif ($1 == D) return $& 3XXXX.. $& 3XX.XX. $& 3XX..XX $& 3XX..XX $& 3XXXXX. elseif ($1 == E) return $& 4XXXXX $& 4XX... $& 4XXXX. $& 4XX... $& 4XXXXX elseif ($1 == F) return $& 5XXXXX $& 5XX... $& 5XXXX. $& 5XX... $& 5XX... elseif ($1 == G) return $& 6.XXXX. $& 6XX.... $& 6XX.XXX $& 6XX..XX $& 6.XXXXX elseif ($1 == H) return $& 7XX...XX $& 7XX...XX $& 7XXXXXXX $& 7XX...XX $& 7XX...XX elseif ($1 == I) return $& 8XXXX $& 8.XX. $& 8.XX. $& 8.XX. $& 8XXXX elseif ($1 == J) return $& 9....XX $& 9....XX $& 9....XX $& 9XX..XX $& 9.XXXX. elseif ($1 == K) return $& 10XX..XX $& 10XX.XX. $& 10XXXX.. $& 10XX.XX. $& 10XX..XX elseif ($1 == L) return $& 11XX... $& 11XX... $& 11XX... $& 11XX... $& 11XXXXX elseif ($1 == M) return $& 12XX....XX $& 12XXX..XXX $& 12XXXXXXXX $& 12XX.XX.XX $& 12XX....XX elseif ($1 == N) return $& 13XX..XX $& 13XXX.XX $& 13XXXXXX $& 13XX.XXX $& 13XX..XX elseif ($1 == O) return $& 2.XXXX. $& 2XX..XX $& 2XX..XX $& 2XX..XX $& 2.XXXX. elseif ($1 == P) return $& 3XXXXX. $& 3XX..XX $& 3XXXXX. $& 3XX.... $& 3XX.... elseif ($1 == Q) return $& 4.XXXX.. $& 4XX..XX. $& 4XX..XX. $& 4XX..XX. $& 4.XXXXXX elseif ($1 == R) return $& 5XXXXX. $& 5XX..XX $& 5XXXXX. $& 5XX..XX $& 5XX..XX elseif ($1 == S) return $& 6XXXXXX $& 6XX.... $& 6XXXXXX $& 6....XX $& 6XXXXXX elseif ($1 == T) return $& 7XXXXXX $& 7..XX.. $& 7..XX.. $& 7..XX.. $& 7..XX.. elseif ($1 == U) return $& 8XX..XX $& 8XX..XX $& 8XX..XX $& 8XX..XX $& 8.XXXX. elseif ($1 == V) return $& 9XX....XX $& 9XX....XX $& 9.XX..XX. $& 9..XXXX.. $& 9...XX... elseif ($1 == W) return $& 10XX...XX $& 10XX...XX $& 10XX.X.XX $& 10XXXXXXX $& 10.XX.XX. elseif ($1 == X) return $& 11XX...XX $& 11.XX.XX. $& 11..XXX.. $& 11.XX.XX. $& 11XX...XX elseif ($1 == Y) return $& 12XX..XX $& 12XX..XX $& 12.XXXX. $& 12..XX.. $& 12..XX.. elseif ($1 == Z) return $& 13XXXXXX $& 13...XX. $& 13..XX.. $& 13.XX... $& 13XXXXXX elseif ($1 == $chr(35)) return $& .XX..XX. $& XXXXXXXX $& .XX..XX. $& XXXXXXXX $& .XX..XX. elseif ($1 == ') return $& .XX $& XX. $& ... $& ... $& ... elseif ($1 == ") return $& XX..XX $& XX..XX $& ...... $& ...... $& ...... elseif ($1 == +) return $& ...... $& ..XX.. $& XXXXXX $& ..XX.. $& ...... elseif ($1 == =) return $& ...... $& XXXXXX $& ...... $& XXXXXX $& ...... elseif ($1 == -) return $& ...... $& ...... $& XXXXXX $& ...... $& ...... elseif ($1 == _) return $& ...... $& ...... $& ...... $& ...... $& XXXXXX elseif ($1 == ¯) return $& XXXXXX $& ...... $& ...... $& ...... $& ...... elseif ($1 == °) return $& .XXX. $& XX.XX $& .XXX. $& ..... $& ..... elseif ($1 == :) return $& .. $& XX $& .. $& XX $& .. elseif ($1 == !) return $& XX $& XX $& XX $& .. $& XX elseif ($1 == ?) return $& XXX. $& ..XX $& .XX. $& .... $& .XX. elseif ($1 == .) return $& .. $& .. $& .. $& .. $& XX elseif ($1 == /) return $& ....XX $& ...XX. $& ..XX.. $& .XX... $& XX.... elseif ($1 == \) return $& XX.... $& .XX... $& ..XX.. $& ...XX. $& ....XX elseif ($1 == $chr(40)) return $& ...XX $& .XX.. $& XX... $& .XX.. $& ...XX elseif ($1 == $chr(41)) return $& XX... $& ..XX. $& ...XX $& ..XX. $& XX... elseif ($1 == $chr(37)) return $& XX..XX $& ...XX. $& ..XX.. $& .XX... $& XX..XX elseif ($1 == [) return $& XXXXX $& XX... $& XX... $& XX... $& XXXXX elseif ($1 == ]) return $& XXXXX $& ...XX $& ...XX $& ...XX $& XXXXX elseif ($1 == |) return $& .XX. $& .XX. $& .XX. $& .XX. $& .XX. elseif ($1 == <) return $& ....XX $& ..XX.. $& XX.... $& ..XX.. $& ....XX elseif ($1 == >) return $& XX.... $& ..XX.. $& ....XX $& ..XX.. $& XX.... elseif ($1 == ¸) return $& .... $& .... $& .XX. $& ..XX $& XXX. elseif ($1 == ,) return $& ... $& ... $& XXX $& .XX $& XX. } ; Returns all unsupported characters within a Big Text message ; Supported characters are a-z, space, digits, #'"+=°:!?./\()%-[]<>|¸, alias bigtext.unsupp { var %res, %dummy = $regsub($1-, /[]a-z 0-9# $+ $chr(44) $+ '+=°:!?./\\()%[|<>_¯"¸-]/igS, $null, %res) return %res } ; Returns $true if a space should be added between two characters, ; or $false if not. ; Note: This is here only for aesthetic purposes. :) alias bigtext.kern { var %res $true if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]°|°[J/]|L'|\/\/|\\\\|¯J|[_¯]¯|[¯T_]_|>\.|\.<)$/i)) %res = $false return %res } ; Takes an input string of the form: ; .XX..XX....XX.XX.XXXXX ; And formats it for display. alias bigtext.format { var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/ while (%i <= $len($1-)) { if ($mid($1-, %i, 1) == $chr(3)) { if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) { if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) { %curcolor = $gettok($regml(mtcol, 1), 1, 44) if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15) } inc %i $len($regml(mtcol, 1)) } elseif (%curcolor) { %curcolor = if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15) } } else { %current = $iif($mid($1-, %i, 1) == ., 0, 1) if (%previous != %current) { %previous = %current if (%curcolor) { if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor else %res = %res $+ $chr(3) } else %res = %res $+ $chr(22) } %res = %res $+ $chr(160) } inc %i } return %res