Роботы, плагины и скрипты к чату MyChat. Разработка альтернативных клиентов и различных утилит. Технические вопросы по программированию, замечания и предложения по развитию API
Аватара пользователя
Алексей Пикуров
Версия сервера 7.0 и старше.

Используем событие OnRegistered:

onregisredscript.png
Скрипт для автоматического переименования пользователей WEB-поддержки с сайта
onregisredscript.png (52.06 КБ) Просмотров: 802


Скрипт срабатывает на событие новой регистрации пользователя. Он проверяет, что новый пользователь имеет стандартную группу прав "WEB guests". Если да — переименовывает его, добавляя к нику префикс "(Веб клиент)" из текстовой константы.

Текст скрипта:
Код: Выделить всё
// ---------------------------------------
// Script created by Alexey Pikurov
// 01.06.2018 15:33:51
// ---------------------------------------
const
  PREFIX = '(Веб клиент)';
 
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
var
  sGroupName, sNickName: string;
  x: integer;
begin
  sGroupName := mGetRoleNameByID(iRole);
 
    if sGroupName = 'WEB guests' then begin
      sNickName := mGetUserAttribute(iUIN, 'InternalNickName');
     
        if pos(PREFIX, sNickName) = 0 then mSetUserAttribute(iUIN, 'InternalNickName', PREFIX + ' ' + sNickName);
    end;
end;

begin

end.