mirrors/project-meteor-server
1
Fork 0
mirror of https://bitbucket.org/Ioncannon/project-meteor-server.git synced 2025-04-23 05:07:47 +00:00
Code Activity
project-meteor-server/Data/scripts/quests/etc/etc5l3.lua

253 lines
9.2 KiB
Lua
Raw Normal View History

Hildibrand series of quests all in. Requires inn dream handling and some retail accuracy double-checking to finish it off. Misc script fixes also. =============================== Nudgenpc.lua - Added a command variation Testmapobj.lua - Added !help documentation DftWil.lua - Corrected an npc name/function Player.cs - Changed Dalamud packet to default to 7, not 0. Fixes the moon not displaying in a specific Hildibrand cutscene Etc5g0.lua - Made quest accepting retail-accurate with how it displayed messages/ended the TalkEvent Etc5g1.lua - Added Bed !. Kinda kludged in atm since it's a pre-accepted quest state. Etc5u1.lua - Same as above Etc5l1.lua - Quest "Private Eyes" scripted. Etc5l2.lua - Quest "Mysteries of the Red Moon" scripted Etc5l3.lua - Quest "Prophecy Inspection" scripted
2022-04-13 11:45:49 -04:00
require("global");
--[[
Quest Script
Name: Prophecy Inspection
Code: Etc5l3
Id: 110841
Prereq: Level 20. Man5l2 (Mysteries of the Red Moon) complete. [110840]
Notes:
]]
-- Sequence Numbers
SEQ_000 = 0; -- Head to the Coffer & Coffin
SEQ_005 = 5; -- Help out Alret
SEQ_010 = 10; -- Talk to Alret
-- Actor Class Ids
KOPURU_FUPURU = 1002047;
VKOROLON = 1000458;
MYTESYN = 1000167;
COFFER_AND_COFFIN_PUSH = 1090090;
BED_LIMSA = 1200378;
BED_GRIDANIA = 1200379;
BED_ULDAH = 1200380;
HILDIBRAND = 1001995;
NASHU_MHAKARACCA = 1001996;
ALRET = 1002114;
BOMB_BANE_1 = 1080090;
BOMB_BANE_2 = 1080091;
BOMB_BANE_3 = 1080092;
BOMB_BANE_4 = 1080093;
BOMB_BANE_5 = 1080094;
-- Quest Markers
MRKR_COFFIN = 11072204;
MRKR_BANE_1 = 11072205;
MRKR_BANE_2 = 11072206;
MRKR_BANE_3 = 11072207;
MRKR_BANE_4 = 11072208;
MRKR_BANE_5 = 11072209;
MRKR_ALRET = 11072210;
-- Quest Flags
FLAG_SEQ005_BANE_1 = 0;
FLAG_SEQ005_BANE_2 = 1;
FLAG_SEQ005_BANE_3 = 2;
FLAG_SEQ005_BANE_4 = 3;
FLAG_SEQ005_BANE_5 = 4;
-- Quest Counter
COUNTER_BANE = 0;
-- Quest Item
ITEM_HIDLIBRAND_DOSSIER = 10011252;
ITEM_BOMB_BANE = 11000230;
function onStart(player, quest)
quest:StartSequence(SEQ_000);
end
function onFinish(player, quest)
end
function onStateChange(player, quest, sequence)
local data = quest:GetData();
-- Quest not accepted: Set up actors to let you retrieve the item & initiate the log-in check at the Inn
if (sequence == SEQ_ACCEPT) then
quest:SetENpc(KOPURU_FUPURU, QFLAG_NORM);
quest:SetENpc(VKOROLON, QFLAG_NORM);
quest:SetENpc(MYTESYN, QFLAG_NORM);
quest:SetENpc(BED_ULDAH, 5);
quest:SetENpc(BED_GRIDANIA, 5);
quest:SetENpc(BED_LIMSA, 5);
-- Quest started
elseif (sequence == SEQ_000) then
quest:SetENpc(COFFER_AND_COFFIN_PUSH, QFLAG_MAP, false, true, false, true);
elseif (sequence == SEQ_005) then
local bane1Flag = data:GetFlag(FLAG_SEQ005_BANE_1) and QFLAG_NONE or QFLAG_PLATE;
local bane2Flag = data:GetFlag(FLAG_SEQ005_BANE_2) and QFLAG_NONE or QFLAG_PLATE;
local bane3Flag = data:GetFlag(FLAG_SEQ005_BANE_3) and QFLAG_NONE or QFLAG_PLATE;
local bane4Flag = data:GetFlag(FLAG_SEQ005_BANE_4) and QFLAG_NONE or QFLAG_PLATE;
local bane5Flag = data:GetFlag(FLAG_SEQ005_BANE_5) and QFLAG_NONE or QFLAG_PLATE;
quest:SetENpc(COFFER_AND_COFFIN_PUSH, QFLAG_MAP, false, true, false, true);
quest:SetENpc(HILDIBRAND);
quest:SetENpc(NASHU_MHAKARACCA);
quest:SetENpc(ALRET);
quest:SetENpc(BOMB_BANE_1, bane1Flag);
quest:SetENpc(BOMB_BANE_2, bane2Flag);
quest:SetENpc(BOMB_BANE_3, bane3Flag);
quest:SetENpc(BOMB_BANE_4, bane4Flag);
quest:SetENpc(BOMB_BANE_5, bane5Flag);
-- Quest finished
elseif (sequence == SEQ_010) then
quest:SetENpc(HILDIBRAND);
quest:SetENpc(NASHU_MHAKARACCA);
quest:SetENpc(ALRET, QFLAG_REWARD);
end
end
function onTalk(player, quest, npc)
local sequence = quest:getSequence();
local classId = npc:GetActorClassId();
if (sequence == SEQ_ACCEPT) then
if (classId == KOPURU_FUPURU) then
callClientFunction(player, "delegateEvent", player, quest, "processEventKOPURUStart");
elseif (classId == VKOROLON) then
callClientFunction(player, "delegateEvent", player, quest, "processEventKOROLONStart");
elseif (classId == MYTESYN) then
callClientFunction(player, "delegateEvent", player, quest, "processEventMYTESYNStart");
end
giveDossierItem(player);
player:SendGameMessage(player, GetWorldMaster(), 51149, MESSAGE_TYPE_SYSTEM, ITEM_HIDLIBRAND_DOSSIER);
elseif (sequence == SEQ_005) then
local data = quest:GetData();
local incCounter = false;
if (classId == HILDIBRAND) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_1");
elseif (classId == NASHU_MHAKARACCA) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_2");
elseif (classId == ALRET) then
if (sequence == SEQ_005) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_3");
end
elseif (classId == BOMB_BANE_1) then
if not (data:GetFlag(FLAG_SEQ005_BANE_1)) then
incCounter = true;
data:SetFlag(FLAG_SEQ005_BANE_1);
end
elseif (classId == BOMB_BANE_2) then
if not (data:GetFlag(FLAG_SEQ005_BANE_2)) then
incCounter = true;
data:SetFlag(FLAG_SEQ005_BANE_2);
end
elseif (classId == BOMB_BANE_3) then
if not (data:GetFlag(FLAG_SEQ005_BANE_3)) then
incCounter = true;
data:SetFlag(FLAG_SEQ005_BANE_3);
end
elseif (classId == BOMB_BANE_4) then
if not (data:GetFlag(FLAG_SEQ005_BANE_4)) then
incCounter = true;
data:SetFlag(FLAG_SEQ005_BANE_4);
end
elseif (classId == BOMB_BANE_5) then
if not (data:GetFlag(FLAG_SEQ005_BANE_5)) then
incCounter = true;
data:SetFlag(FLAG_SEQ005_BANE_5);
end
end
if (incCounter == true) then
counterAmount = data:IncCounter(COUNTER_BANE);
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_4", counterAmount, 5);
wait(1);
if (counterAmount >= 5) then
attentionMessage(player, 25225, quest:GetQuestId()); -- "Seeing the Seers" objectives complete!
quest:GetData():ClearData();
quest:UpdateENPCs(); -- Band-aid for a QFLAG_PLATE issue
quest:StartSequence(SEQ_010);
end
end
elseif (sequence == SEQ_010) then
if (classId == HILDIBRAND) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_1");
elseif (classId == NASHU_MHAKARACCA) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_2");
elseif (classId == ALRET) then -- Finish the quest
callClientFunction(player, "delegateEvent", player, quest, "processEvent_020");
--TO-DO: Get the scaled EXP for this sqrwa figured out
--TO-DO: Also confirm reward was issued before flagging quest as complete
callClientFunction(player, "delegateEvent", player, quest, "sqrwa", 1000, 1, 1, 9);
GetWorldManager():WarpToPublicArea(player);
player:CompleteQuest(quest);
end
end
player:EndEvent()
quest:UpdateENPCs();
end
function onPush(player, quest, npc)
local sequence = quest:getSequence();
local classId = npc.GetActorClassId();
if (classId == COFFER_AND_COFFIN_PUSH) then
if (sequence == SEQ_000) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent_005");
player:EndEvent();
attentionMessage(player, 25246, ITEM_BOMB_BANE, 1);
quest:StartSequence(SEQ_005);
end
GetWorldManager():WarpToPrivateArea(player, "PrivateAreaMasterPast", 5, -1732.891, 56.119, -307.285, -2.785);
actor = player.CurrentArea:FindActorInZoneByUniqueID("etc5l3_nashu");
actor:ChangeState(ACTORSTATE_SITTING_ONFLOOR); -- Band-aid to get her sitting.
end
player:EndEvent();
end
function getJournalInformation(player, quest)
-- Bugged on the client's end and never shows?
return 0, ITEM_BOMB_BANE;
end
function getJournalMapMarkerList(player, quest)
local sequence = quest:getSequence();
local data = quest:GetData();
local possibleMarkers = {};
if (sequence == SEQ_000) then
return MRKR_COFFIN;
elseif (sequence == SEQ_005) then
local data = quest:GetData();
if (not data:GetFlag(FLAG_SEQ005_BANE_1)) then table.insert(possibleMarkers, MRKR_BANE_1); end
if (not data:GetFlag(FLAG_SEQ005_BANE_2)) then table.insert(possibleMarkers, MRKR_BANE_2); end
if (not data:GetFlag(FLAG_SEQ005_BANE_3)) then table.insert(possibleMarkers, MRKR_BANE_3); end
if (not data:GetFlag(FLAG_SEQ005_BANE_4)) then table.insert(possibleMarkers, MRKR_BANE_4); end
if (not data:GetFlag(FLAG_SEQ005_BANE_5)) then table.insert(possibleMarkers, MRKR_BANE_5); end
return unpack(possibleMarkers)
elseif (sequence == SEQ_010) then
return MRKR_ALRET;
end
end
function giveDossierItem(player)
local invCheck = player:getItemPackage(INVENTORY_NORMAL):addItem(ITEM_HIDLIBRAND_DOSSIER, 1, 1);
if (invCheck == INV_ERROR_SUCCESS) then
player:SendGameMessage(player, GetWorldMaster(), 25246, MESSAGE_TYPE_SYSTEM_ERROR, ITEM_HIDLIBRAND_DOSSIER, 1);
return true;
end
end
Copy permalink