MQEmulator.net • -

201436.lua - Quest File

General Info

Quest File

-- 201436.lua
-- Trial of Hanging Tribunal
-- items: 31599, 31846

-- @variable hanging_flag
--  0 - Trial is available
--  1 - Trial is unavailable
local hanging_flag        = 0;
local trial_group_id      = 0;
local client_id           = 0; -- character ID, not entity ID
local mob_list            = { 201456, 201457, 201458, 201459, 201460, 201461, 201471, 201472, 201473, 201474 }

-- 30min Cooldown on a Successful Completion
local cooldown_timer      = 1800000;

-- 15min from a Failure or a Win to boot the players out of the trial and clean up the corpses
local eject_timer         =  900000;

function event_say(e)
   local qglobals = eq.get_qglobals(e.self, e.other);

if (qglobals["pop_poj_mavuin"] ~= nil) then 
      if (e.message:findi("hail")) then 
        e.self:Emote(" fixes you with a dark, peircing gaze. 'What do you want, mortal? Are you [" .. eq.say_link( "prepared", false, "prepared") .. "]?");
      elseif (e.message:findi("prepared")) then
        e.self:Say("Very well. When you are ready, you may [" .. eq.say_link( "begin the trial of hanging", false, "begin the trial of hanging" ) .. "]. Act quickly to destroy the spirits of suffocation before their victims perish. We shall judge the mark of your success.");
         
      elseif (e.message:findi("begin the trial of hanging")) then
         if ( hanging_flag == 0 ) then 
            e.self:Say("Then begin.");

-- Move the Player and their Group tot he trial room.
            local trial_group = e.other:GetGroup();
            if (trial_group ~= nil and trial_group.valid) then
               MoveGroup( trial_group, e.self:GetX(), e.self:GetY(), e.self:GetZ(), 75, 490, -1094, 73, 180); 
               trial_group_id = trial_group:GetID();
            else
               client_id = e.other:CharacterID();
               e.other:MovePC(201, 490, -1094, 73, 360); -- Zone: pojustice
            end

-- Move To: 201, 500, -1045, 73.1
            eq.spawn2(201448, 0, 0, 490, -1094, 73, 360); -- NPC: #Event_Hanging_Control

-- Set a variable to indicate the Trial is unavailable.
            hanging_flag = 1;
         else
            e.self:Say("I'm sorry, the Trial of Hanging is currently unavilable to you.");
         end
      elseif (e.message:findi("what evidence of mavuin") ) then
         if ( e.other:HasItem(31846) ) then
            eq.set_global("pop_poj_tribunal", "1", 5, "F");
            eq.set_global("pop_poj_hanging", "1", 5, "F");
            e.other:Message(4, "You receive a character flag!");
         end
		elseif (e.message:findi("i seek knowledge") ) then
			local marks = { 31796, 31842, 31844, 31845, 31846 , 31960 }
			local has_six = 1;
			for k,v in pairs(marks) do
				if (not e.other:HasItem(v)) then
					has_six = 0;
				end
			end

if (has_six == 1) then 
				if (not e.other:HasItem(31599)) then 
					-- give 31599 to e.other
					e.other:SummonItem(31599); -- Item: The Mark of Justice
				end
			elseif (has_six == 0) then
				e.self:Say("You have done well, mortal, but there are more trials yet for you to complete.");
			end
      end
   end
end

function event_timer(e)
   if (e.timer == "ejecttimer") then
      eq.stop_timer(e.timer);
      local trial_group = eq.get_entity_list():GetGroupByID(trial_group_id);
      if (trial_group ~= nil and trial_group.valid) then
			MoveGroup( trial_group, 490, -1094, 73, 140, 456, 825, 9, 180); 
      else
          local client_e = eq.get_entity_list():GetClientByCharID(client_id);
          if (client_e ~= nil and client_e.valid) then
              client_e.other:MovePC( 201, 456, 825, 9, 360 ); -- Zone: pojustice
              client_e.other:Message( 3, "A mysterious force translocates you.");
          end
      end

HandleCorpses(450, -1120, 72, 120);

eq.stop_timer("proximitycheck");

elseif (e.timer == "cooldown") then
      eq.stop_timer(e.timer);

hanging_flag   = 0;
      client_id      = 0;
      trial_group_id = 0;

eq.stop_timer("proximitycheck");
      e.self:Shout("The Trial of Hanging is now Available.");

elseif (e.timer == "proximitycheck") then
      -- The proximitycheck timer is primarily for when a trial has failed
      -- This check will allow the trial to be re-attempted as soon as
      -- everyone has left the trial room (or they are kicked out after
      -- 15minutes by the ejecttimer).

eq.stop_timer(e.timer);
      -- Check to see if all the PCs have left the Trial area; if so
      -- Clean Corpses up and release thoe hold.
      if ( ProximityCheck(490, -1094, 73, 120) == false) then 
         eq.stop_timer("cooldown");
         eq.stop_timer("ejecttimer");
         eq.set_timer("ejecttimer", 100);
         eq.set_timer("cooldown", 200);
      end
   end
end

function event_signal(e)
   if (e.signal == 0) then

elseif (e.signal == 1) then
      -- Trial was successful
      -- 30min till next Trial can start
      -- 15min Eject Timer to kick any PC out of the Trial Room
      eq.set_timer("ejecttimer", eject_timer);
      eq.set_timer("cooldown"  , cooldown_timer);

elseif (e.signal == 2) then
      -- Trial Failed
      eq.set_timer("ejecttimer", eject_timer);
      eq.set_timer("cooldown"  , eject_timer);
      eq.set_timer("proximitycheck", 10000);

end

function event_trade(e)
   local item_lib = require("items");

if (item_lib.check_turn_in(e.trade, {item1 = 31846})) then
      eq.set_global("pop_poj_tribunal", "1", 5, "F");
      eq.set_global("pop_poj_hanging", "1", 5, "F");
      e.other:Message(4, "You receive a character flag!");
      e.other:SummonItem(31846); -- Item: Mark of Suffocation
   end

item_lib.return_items(e.self, e.other, e.trade);
end

function MoveGroup(trial_group, src_x, src_y, src_z, distance, tgt_x, tgt_y, tgt_z, tgt_h, msg)
   if ( trial_group ~= nil) then
      local trial_count = trial_group:GroupCount();

for i = 0, trial_count - 1, 1 do
         local mob_v = trial_group:GetMember(i);

if (mob_v ~= nil and mob_v.valid and mob_v:IsClient()) then
            local client_v = mob_v:CastToClient();

if (client_v.valid) then
               -- check the distance and port them up if close enough
               if (client_v:CalculateDistance(src_x, src_y, src_z) <= distance) then
                  -- port the player up
                  client_v:MovePC(201, tgt_x, tgt_y, tgt_z, tgt_h); -- Zone: pojustice

if (msg) then
                     client_v:Message(3, msg);
                  end					
               end
            end
         end
      end
   end
end

function HandleCorpses(src_x, src_y, src_z, dist)

-- Move Player Corpses from the Trial Area to the Grave Yard
   local clist = eq.get_entity_list():GetCorpseList();
   if ( clist ~= nil ) then
      for corpse in clist.entries do
         if ( corpse:IsPlayerCorpse() ) then
             if (corpse:CalculateDistance(src_x, src_y, src_z) < dist) then
               corpse:GMMove(58, -47, 2);      
             end
         elseif ( corpse:IsNPCCorpse() ) then
            if (corpse:CalculateDistance(src_x, src_y, src_z) < dist) then
               corpse:Delete();
            end
          end
      end
   end
end

function ProximityCheck(chk_x, chk_y, chk_z, dist)

local players_in_prox = false;
   local clist = eq.get_entity_list():GetClientList();

if ( clist ~= nil ) then
      for client in clist.entries do
         if (client:CalculateDistance(chk_x, chk_y, chk_z) < dist) then
            players_in_prox = true;
         end
      end
   end

return players_in_prox;
end

Source: 17 Jan 2022
Quest Source: 28 May 2022