Роботы, плагины и скрипты к чату MyChat. Разработка альтернативных клиентов и различных утилит. Технические вопросы по программированию, замечания и предложения по развитию API
Аватара пользователя
Edir Bakhaev
Здравствуйте!
Подскажите пожалуйста по скрипту. Как сделать чтоб сообщения были простыми. Т.е. не обязательные к прочтению.

Код: Выделить всё
const
  sPath = 'C:\msg\broadcast\'; // путь, откуда брать файлы для сообщений
  sGroup = 'msg';
var
  sFileName, sMsg, sUsersList: string;
begin
  sFileName := sPath + FormatDatetime('hh.nn', Now) + '.txt';
  //sFileName := sPath +'14.50.txt';
 
    if FileExists(sFileName) then begin
//      mLogScript(sFileName, '');
      sMsg := Trim(LoadTextFromFile(sFileName, 0));
      sUsersList := mGetUsersListInGroupByName(sGroup);
//      mLogScript(sMsg, '');
     
        if (length(sMsg) > 0) and (length(sUsersList) > 0) then begin
//          mLogScript('OK', '');
          mSendBroadcast(sMsg, sUsersList, EndOfTheDay(Now), 1);
        end; 
    end;
end.
Аватара пользователя
Алексей Пикуров
Здравствуйте.

Я перенёс ваше сообщения в раздел с вопросами о скриптах и изменил тему, чтобы было понятно, о чём конкретно вопрос.

В вашем скрипте вызывается функция mSendBroadcast. Вот справка по ней.

Четвёртый параметр функции отвечает за тип оповещения, если вам не нужно, чтобы требовалось прочтение, поставьте 0 вместо 1.