Рисунки символами в чате

[NLObP]

Скрипт для Грации. Самостоятельно измените 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;