For developers > Server scripts > Functions description > Conferences

"For developers", "Server scripts", "Functions description", "Conferences", "mGetConfUsersList".

Get the list of users in the specified conference, who are currently connected to the server (online).

Syntax

function mGetConfUsersList(const iUID: integer): string;

Parameters and return values

Parameter	Type	Value
iUID	integer	conference numeric ID (UID).

Function result

A list of users UINs divided by commas. If UID specified incorrectly or the conference does not exist — an empty string returns.

Example

The script on the event OnConfMessage that works only in the conference "main", and triggered on the command "!spin".

// ---------------------------------------
// Script created by Alexey Pikurov (support@nsoft-s.com)
// 13.01.2021 15:03:15
// ---------------------------------------
const
  CONF_NAME = 'main';
  ACTIONS_COUNT = 18;
  ACTION_TEXT = 'hug|smoke with|dance with|smile to|spank|do everything with|tell a joke to|make a gift for|kiss|' +
                'smooch|punch|pinch|buy drinks for|give $100 to|' +
                'lick|scratch|ignore|wink to|give flowers to|';
                
function GetSpin(iUID, iUIN: integer): boolean;
var
  sUsersList, sUser1, sUser2, sMsg, sWhat, sData: string;
  UsersList: array of integer;
  iCount, iUserUIN, iWhat, i: integer;
begin
  sUsersList := mGetConfUsersList(iUID);
  SetArrayLength(UsersList, 0);
  iCount := 0;

    while length(sUsersList) > 0 do begin
      iUserUIN := StrToIntDef(Fetch(sUsersList, ','), -1);
      
        if (iUserUIN <> -1) and (iUserUIN <> iUIN) then begin
          inc(iCount);
          SetArrayLength(UsersList, iCount);
          UsersList[iCount - 1] := iUserUIN;
        end;
     end;
  
  sUser1 := mGetUserAttribute(iUIN, 'DisplayName');
  
    if iCount = 0 then begin
      mSendConfMessage(iUID, 0, sUser1 + ', no people for playing the bottle :)', 1);
      result := false;
    end else begin
      iUserUIN := UsersList[Random(iCount)];
      
      sUser2 := mGetUserAttribute(iUserUIN, 'DisplayName');

      mSendConfMessage(iUID, iUIN, '!spin', 1);
      mSendConfMessage(iUID, 0, sUser1 + ' is spinning the bottle...', 1);
      mSendConfMessage(iUID, 0, 'It is spinning... spinning... stoping... and pointing on...', 1);
      mSendConfMessage(iUID, 0, 'On... on... So, the bottle pointed on — ' + sUser2, 1);
  
      iWhat := Random(ACTIONS_COUNT) + 1;
      sData := ACTION_TEXT;
      
        for i := 1 to iWhat do sWhat := Fetch(sData, '|');
        
      mSendConfMessage(iUID, 0, 'And now, ' + sUser1 + ', you need to ' + sWhat + ' ' + sUser2, 1);        
      
      result := true;
    end;
end;

function OnConfMessage(iCID, iUIN, iUID, iMsgType: integer; sConfName, sMsg: string): boolean;
var
  sOutMsg: string;
begin
  if (mGetConfNameByUID(iUID) = CONF_NAME) and (LowerCase(sMsg) = '!spin') then begin
    GetSpin(iUID, iUIN);
        
    result := false;
  end else result := true;
end;

begin

end.

Результат работы скрипта

Alexander

!spin

Elisa

Alexander is spinning the bottle...

It is soinning... spinning... stoping... and poing on...

On... on... So, the bottle pointed on — Helen

And now, Alexander, you need to hug Helen

MyChat Scripts: function mGetConfUsersList, get the list of users in a conference