Not sure if g00r00 did this on purpose with A42, but Mystic is reading MCI color commands now.. It's a nice surprise for someone who also runs CNet Amiga BBS and has my local messages bases networked between the tw systems..
What are those codes - do you have a reference link/document?
I wasn't able to find anything myself but I can paste you what I came up with. I am not entirely sure its 100% accurate and probably not complete as far as cursor movement functions and so on but I think the colors are correct at least.
The codes are 3 digit and start with ASCII 25. SetFore and SetBack are just your standard DOS foreground/background numbers.
Hope that helps.
If GotCNETY Then Begin
If (Ch = #25) and (ColorCode = '') Then Begin
AddChar(#25);
Exit;
End;
ColorCode := ColorCode + Ch;
If Length(ColorCode) = 2 Then Begin
Found := True;
Case ColorCode[1] of
'c' : Case UpCase(ColorCode[2]) of
'0' : SetFore(0);
'1' : SetFore(4);
'2' : SetFore(2);
'3' : SetFore(6);
'4' : SetFore(1);
'5' : SetFore(5);
'6' : SetFore(3);
'7' : SetFore(7);
'8' : SetFore(8);
'9' : SetFore(12);
'A' : SetFore(10);
'B' : SetFore(14);
'C' : SetFore(9);
'D' : SetFore(13);
'E' : SetFore(11);
'F' : SetFore(15);
Else
Found := False;
End;
'n' : Case ColorCode[2] of
'1' : MoveXY (1, CursorY + 1);
Else
Found := False;
End;
'q' : Case ColorCode[2] of
'1' : ;
Else
Found := False;
End;
'z' : Case ColorCode[2] of
'0' : SetBack(0);
'1' : SetBack(4);
'2' : SetBack(2);
'3' : SetBack(6);
'4' : SetBack(1);
'5' : SetBack(5);
'6' : SetBack(3);
'7' : SetBack(7);
Else
Found := False;
End;
Else
Found := False;
End;
If Not Found Then Begin
AddChar (#25);
OneChar (ColorCode[1]);
OneChar (ColorCode[2]);
End;
GotCNETY := False;
ColorCode := '';
End;
Exit;
End
--- Mystic BBS v1.12 A42 2018/12/31 (Windows/32)
* Origin: Sector 7 [Mystic BBS WHQ] (21:1/108)