MyChat add-ons: developing, technical questions, testing, documentation and other useful information
User avatar
Alona Kutsenko
The script is handled to the event OnPrivateRequest on the server. It works in MyChat version 5.22 and higher.

Code: Select all
function OnPrivateRequest(iCID, iUIN, iUINTo, iRole, iRoleReciever, iTask: integer): boolean;
var
  s,
  sIP,                            //user IP address in WEB support
  sWEBSupportBrowserInfo,         // browser information
  sWEBSupportRefLink,             // reflink
  sWEBSupportsSysLanguage,        // browser local language
  sWEBSupportsPlatformOS: string; // user operating system
 
  iCIDTo: integer;
begin
  if mGetRoleNameByID(iRole) = 'WEB guests' then begin
    sIP                     := mGetUserAttribute(iUIN, 'IP_Address');
    sWEBSupportBrowserInfo  := mGetUserAttribute(iUIN, 'WEBSupportBrowserInfo');
    sWEBSupportRefLink      := mGetUserAttribute(iUIN, 'WEBSupportRefLink');
    sWEBSupportsSysLanguage := mGetUserAttribute(iUIN, 'WEBSupportSysLanguage');
    sWEBSupportsPlatformOS  := mGetUserAttribute(iUIN, 'WEBSupportPlatformOS');
   
    s := '---------------' + CRLF +
         '-=WEB Support=-' + CRLF + CRLF +
         'IP: ' + sIP;
     
      if length(sWEBSupportBrowserInfo) > 0 then s := s + CRLF + 'Browser: ' + sWEBSupportBrowserInfo + CRLF;
      if length(sWEBSupportRefLink) > 0 then s := s + CRLF + 'Reflink: ' + sWEBSupportRefLink;
      if length(sWEBSupportsSysLanguage) > 0 then s := s + CRLF + 'System language: ' + sWEBSupportsSysLanguage;
      if length(sWEBSupportsPlatformOS) > 0 then s := s + CRLF + 'OS: ' + sWEBSupportsPlatformOS;
     
    mSendPrivateMessage(iUIN, iUINTo, s, 21, true);
   
    iCIDTo := mGetUserCID(iUINTo);
    mSendCustomMsgToClientConsoleByCID(iCIDTo, 'WEB support session from UIN ' + inttostr(iUIN), 'newmsg', false, true, 78);
  end;

  result := true;
end;

begin

end.


Looks like this:
web-sup-info.png
web-sup-info.png (17.77 KiB) Viewed 6101 times

Help: https://nsoft-s.com/en/mcserverhelp/index.html?scriptseventsonprivaterequest.htm