www.nsoft-s.com

Добавлено: **Ср июн 19, 2019 3:19 pm**

добрый день
подскажите, что не так в скрипте?
на const спотыкается
спасибо!

function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
begin
  const
  iUIN1 = 84;
  iUIN2 = 93;
var
  iUINFrom, iUINTo: integer;
  sMsg: string;
begin
  sMsg := mGetLastPrivateMessage(iUINFrom, iUINTo);
  
    if iUINTo = iUIN1 then mSendPrivateMessage(iUINFrom, iUIN2, sMsg)
      else if iUINTo = iUIN2 then mSendPrivateMessage(iUINFrom, iUIN1, sMsg);
end.

  result := true;
end;

Добавлено: **Ср июн 19, 2019 3:45 pm**

Что-то вы накрутили

Код: Выделить всё

const
  iUIN1 = 84;
  iUIN2 = 93;

function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
  iUINFrom, iUINTo: integer;
  sMsg: string;
begin
  sMsg := mGetLastPrivateMessage(iUINFrom, iUINTo);
  
    if iUINTo = iUIN1 then mSendPrivateMessage(iUINFrom, iUIN2, sMsg)
      else if iUINTo = iUIN2 then mSendPrivateMessage(iUINFrom, iUIN1, sMsg);

  result := true;
end;

begin

end.

Добавлено: **Ср июн 19, 2019 3:50 pm**

Отделил ваше сообщение в отдельную тему.

Добавлено: **Чт июн 20, 2019 11:45 am**

Спасибо за помощь. Не компилируется -
[11:40:49] (Error "copy"): [Error] (13:13): Duplicate identifier 'iUINTo'
[11:43:27] (Error "copy"): [Error] (14:3): Duplicate identifier 'sMsg'
[11:43:47] (Error "copy"): [Error] (16:11): Unknown identifier 'mGetLastPrivateMessage'

может быть версия сервера у меня не та? 7.3.0

Добавлено: **Чт июн 20, 2019 11:47 am**

Нет, у вас просто ошибки в скрипте из-за невнимательности и функции mGetLastPrivateMessage больше не существует.

Duplicate identifier

Два раза описана переменная с одинаковым названием.

Что конкретно вы хотите сделать?

Добавлено: **Чт июн 20, 2019 12:02 pm**

я взял с форума Ваш скрипт. мне нужно, чтобы два пользователя взаимно обменивались всеми приватными входящими сообщениями
iUIN1 = 84;
iUIN2 = 93;

Добавлено: **Чт июн 20, 2019 12:06 pm**

обменивались всеми приватными входящими сообщениями

Как это?

Допустим, для UIN 84 приходит сообщение от Elisa (UIN 0). Он должен дубликат отправить для UIN 93 от своего имени?

Добавлено: **Чт июн 20, 2019 1:09 pm**

Держите, как вариант:

Код: Выделить всё

const
  iUIN1 = 84;
  iUIN2 = 93;
  
function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
  sNickFrom, sNickTo: string;
  iUINCopy: integer;
begin
  if (iUINTo = iUIN1) and (iUIN <> iUIN2) then iUINCopy := iUIN2 else
  if (iUINTo = iUIN2) and (iUIN <> iUIN1) then iUINCopy := iUIN1 else iUINCopy := -1;
  
  if iUINCopy <> -1 then begin
    sNickFrom := mGetUserAttribute(iUIN, 'DisplayName');
    sNickTo := mGetUserAttribute(iUINTo, 'DisplayName');
    
    mSendPrivateMessage(0, iUINCopy, 'Message from ' + sNickFrom + ' —> ' + sNickTo, 1, true);
    mSendPrivateMessage(0, iUINCopy, sMsg, iMsgType, true);
  end;  

  result := true;
end;

begin

end.

Все сообщения-дубликаты будут приходить от имени встроенного робота.

Добавлено: **Чт июн 20, 2019 1:23 pm**

Спасибо, от имени робота наверное даже лучше, чем в оригинале - там от имени исходного отправителя было...

Хорошего дня!

С Уважением,

Юрий Цветков

www.nsoft-s.com

Скрипт для дублирования сообщений не компилируется, подскажите, где ошибка

Скрипт для дублирования сообщений не компилируется, подскажите, где ошибка

Re: Дублирование сообщений на разные устройства

Re: Скрипт не компилируется, подскажите, где ошибка

Re: Скрипт не компилируется, подскажите, где ошибка

Re: Скрипт не компилируется, подскажите, где ошибка

Re: Скрипт не компилируется, подскажите, где ошибка

Re: Скрипт не компилируется, подскажите, где ошибка

Re: Скрипт не компилируется, подскажите, где ошибка

Re: Скрипт не компилируется, подскажите, где ошибка