Скрипт для Грации. Самостоятельно измените ID пакетов для других хроник.
Код:
procedure SendMs(msg: string; dest: integer);
begin
buf:=#$49; //Грация
//buf:=#$38; //Интерлюдия
WriteS(Msg);
WriteD(dest);
WriteS('');
SendToServerEx(Name);
end;
...
if (ConnectName=Name) and FromClient then
begin
case pck[1] of
//************************************************************************
#$49: UserCommands; //Say2:s(Text)d(Type)s(Target) Грация
//#$38: UserCommands; //Say2:s(Text)d(Type)s(Target) Интерлюдия
end;
end;