MQEmulator.net • -

instance_requests.lua - Quest File

General Info

Quest File

local InstanceRequests = {}

function InstanceRequests.ValidateRequest(groupOrRaid, instance, version,  min_players, max_players, min_level, item_requirements, global_requirements, requestor, event_globals)
  local invalidRequest = { ["valid"] = false, ["flags"] = 0 };

local player_list = nil;
  local player_list_count = 0;
  if (groupOrRaid == 'raid') then
    player_list = requestor:GetRaid();
    player_list_count = player_list:RaidCount();
  else 
    if (groupOrRaid == 'group') then
      player_list = requestor:GetGroup();
      player_list_count = player_list:GroupCount();
    end
  end

local instance_id = eq.get_instance_id(instance, version);
  local basicRequirementsAreValid =
    InstanceRequests.BasicRequirementsAreValid(requestor, instance_id, min_players, max_players, min_level, player_list, player_list_count);
  if (basicRequirementsAreValid == false) then
    return invalidRequest;
  end

-- Check each client for the required globals
  if (global_requirements ~= nil) then
    local reqs = InstanceRequests.PlayersHaveQuestGlobals(requestor, player_list, player_list_count, global_requirements);
    if (reqs == false) then
      return invalidRequest;
    end
  end

local requestor_bits = InstanceRequests.GetClientLockoutBits(requestor, event_globals);
  for i = 0, player_list_count - 1, 1 do
    local member = player_list:GetMember(i);
    if (member.valid == false) then
      requestor:Message(13, "All members of the group/raid need to be in " .. eq.get_zone_long_name() .. ". " );
      return invalidRequest;
    end
    if (member:IsClient()) then
      local member_v = member:CastToClient();
      if (item_requirements ~= nil) then
        local member_has_valid_items = InstanceRequests.ValidateItemRequirements(member_v, item_requirements);
        if (member_has_valid_items == false) then
          requestor:Message(13, member_v:GetCleanName() .. " is missing a required item.");
          return invalidRequest; 
        end
      end
      local member_bits = InstanceRequests.GetClientLockoutBits(member_v, event_globals);
      local compared_bits = bit.bxor(requestor_bits, bit.bor(requestor_bits, member_bits));
      --conflicting lockouts, but not a GM over level 80 with GM status turned on
      if (compared_bits > 0 and (requestor:Admin() <= 80  or (requestor:Admin() > 80 and requestor:GetGM() == false))) then
        requestor:Message(13, member_v:GetCleanName().." has the following lockouts:");
        InstanceRequests.DisplayLockouts(requestor, member_v, event_globals);
        return invalidRequest;
      end
    end
  end

return { ["valid"] = true, ["flags"] = requestor_bits };
end

function InstanceRequests.ValidateRequestOLD(groupOrRaid, instance, version,  min_players, max_players, min_level, item_requirements, requestor, event_globals)
  local invalidRequest = { ["valid"] = false, ["flags"] = 0 };

return { ["valid"] = true, ["flags"] = requestor_bits };
end

function InstanceRequests.BasicRequirementsAreValid(requestor, instance_id, min_players, max_players, min_level, player_list, player_list_count)
  if (player_list.valid == false) then
    requestor:Message(13, "You are not in a valid group/raid.");
    return false;
  end

if (instance_id ~= nil and instance_id ~= 0) then
    requestor:Message(13, "You are already in an instance.");
    return false;
  end

if (player_list_count < min_players or player_list_count > max_players) then
    requestor:Message(13, "You do not meet the player count requirement.  You have " .. player_list_count .. " players.  You must have at least " .. min_players .. " and no more than " .. max_players .. ". ");
    return false;
  end

if (player_list:GetLowestLevel() < min_level) then
    requestor:Message(13, "All members must be over level " .. min_level .. ".");
    return false;
  end

return true;
end

function InstanceRequests.ValidateItemRequirements(client, item_requirements)
  if (item_requirements.require_any ~= nil) then
    for i, id in ipairs(item_requirements.require_any) do
      if (client:HasItem(id) == true) then
        return true;
      end
    end
    return false;
  else
    local required_ids = item_requirements.require_all or item_requirements;
    for i, id in ipairs(required_ids) do
      if (client:HasItem(id) == false) then
        return false;
      end
    end
    return true;
  end
end

function InstanceRequests.GetLockedOutEvents(locked_bits, event_globals)
  local locked = {}
  for i, v in ipairs(event_globals) do
    if (bit.band(locked_bits, 2^(i-1)) == 1) then
      table.insert(locked, v[2])
    end
  end
  return locked;
end

function InstanceRequests.GetClientLockoutBits(client, event_globals)
  local qglobals = eq.get_qglobals(client);
  local client_bits = 0;
  for i, v in ipairs(event_globals) do
    if (qglobals[v[1]] ~= nil) then
      client_bits = bit.bor(client_bits, 2^(i-1));
    end
  end
  return client_bits;
end

function InstanceRequests.GetLockoutEndTimeForHours(hours)
  return os.time() + (hours * 3600)
end

function InstanceRequests.DisplayLockouts(requestor, client, event_globals)
  local qglobals = eq.get_qglobals(client);
  local hasLockouts = false;
  for i, v in ipairs(event_globals) do
    if (tonumber(qglobals[v[1]]) ~= nil) then
      local diff =  tonumber(qglobals[v[1]]) - os.time();
      local timeString = "";
      if (diff > 0) then
        local minutes = math.floor(diff / 60);
        local hours = 0;
        local days = 0;
        if (minutes >= 60) then
          hours = math.floor(minutes / 60);
          minutes = math.mod(minutes,60);
          if (hours >= 24) then
            days = math.floor(hours / 24);
            hours = math.mod(hours,24);
          end
        end
        if (days>0) then timeString = timeString..days.."D " end
        if (hours>0) then timeString = timeString..hours.."H " end
        if (minutes>0) then timeString = timeString..minutes.."M" end
        requestor:Message(13,v[2].." - Remaining Lockout: "..timeString);
        hasLockouts = true;
      end
    end
  end
  if (requestor == client and hasLockouts == false) then
    requestor:Message(13, "You currently have no instance lockouts.");
  end
end

function InstanceRequests.PlayersHaveQuestGlobals(requestor, player_list, player_list_count, required_globals)
  local retval = true;
  for i = 0, player_list_count -1, 1 do
    local member = player_list:GetMember(i);
    if (member.valid and member:IsClient()) then
      local member_v = member:CastToClient();
      local member_check = InstanceRequests.PlayerHasQuestGlobals(requestor, member_v, required_globals);
      if (member_check == false) then
        retval = false;
      end
    end
  end
  return retval;
end

function InstanceRequests.PlayerHasQuestGlobals(requestor, member, required_globals)
  local member_globals = eq.get_qglobals(member);
  local retval = true;
  for k,v in pairs(required_globals) do
    if (member_globals[v[1]] == nil) then
      requestor:Message(13, member:GetName() .. " " .. v[2] );
      retval = false;
    end
  end
  return retval;
end

-- Check all the members of the raid or group for a specific quest_global, if they they 
-- have that quest_global print out the associated description with the players name
-- so the requestor can punt them from the raid and try again.
-- If any of the players have the lockout then 'true' is returned
-- otherwise false is returned
function InstanceRequests.CheckPlayersForLockout(thing, global, globals_desc, requestor)
  local retval = false;
  local player_list = nil;
  local player_list_count = 0;
  if (thing == 'raid') then
    player_list = requestor:GetRaid();
    player_list_count = player_list:RaidCount();
  elseif (thing == 'group') then
    player_list = requestor:GetGroup();
    player_list_count = player_list:GroupCount();
  end

for i = 0, player_list_count -1, 1 do
    local member = player_list:GetMember(i);
    if (member.valid and member:IsClient()) then
      local member_v = member:CastToClient();
      local member_globals = eq.get_qglobals(member_v);
      if (member_globals[global] ~= nil) then
        requestor:Message(13, member_v:GetName() .. ' has ' .. globals_desc);
        retval = true;
      end
    end
  end
  return retval;
end
return InstanceRequests;

Source: 17 Jan 2022
Quest Source: 28 May 2022