1
Fork 0
mirror of https://bitbucket.org/Ioncannon/project-meteor-server.git synced 2025-04-22 12:47:46 +00:00
project-meteor-server/Data/scripts/quests/etc/etc1g6.lua

135 lines
No EOL
4.1 KiB
Lua

require ("global")
--[[
Quest Script
Name: The Ultimate Prank
Code: Etc1g6
Id: 110660
Prereq: Level 35, Any DoW/DoM, Etc1g4 complete
]]
-- Sequence Numbers
SEQ_000 = 0; -- Talk to Sylbyrt.
SEQ_001 = 1; -- Kill Wandering Wights.
SEQ_002 = 2; -- Talk to Sylbyrt.
SEQ_003 = 3; -- Talk to Nicoliaux.
-- Actor Class Ids
ENPC_SYLBYRT = 1000428;
ENPC_NICOLIAUX = 1000409;
BNPC_WANDERING_WIGHT = 2101908;
-- Quest Markers
MRKR_WIGHT_AREA = 11066001;
MRKR_SYLBYRT = 11066002;
MRKR_NICOLIAUX = 11066004;
-- Counters
COUNTER_QUESTITEM = 0;
COUNTER_QUESTITEM2 = 1;
-- Quest Details
ITEM_CEDAR_MARIONETTE = 11000146;
OBJECTIVE_ITEMID = 11000145;
OBJECTIVE_AMOUNT = 3;
function onStart(player, quest)
quest:StartSequence(SEQ_000);
end
function onFinish(player, quest)
end
function onStateChange(player, quest, sequence)
if (sequence == SEQ_ACCEPT) then
quest:SetENpc(ENPC_NICOLIAUX, QFLAG_PLATE);
elseif (sequence == SEQ_000) then
quest:SetENpc(ENPC_SYLBYRT, QFLAG_PLATE);
quest:SetENpc(ENPC_NICOLIAUX);
elseif (sequence == SEQ_001) then
quest:SetENpc(ENPC_SYLBYRT);
quest:SetENpc(BNPC_WANDERING_WIGHT);
elseif (sequence == SEQ_002) then
quest:SetENpc(ENPC_SYLBYRT, QFLAG_PLATE);
elseif (sequence == SEQ_003) then
quest:SetENpc(ENPC_SYLBYRT);
quest:SetENpc(ENPC_NICOLIAUX, QFLAG_REWARD);
end
end
function onTalk(player, quest, npc, eventName)
local npcClassId = npc.GetActorClassId();
local seq = quest:GetSequence();
-- Offer the quest
if (npcClassId == ENPC_NICOLIAUX and seq == SEQ_ACCEPT) then
local questAccepted = callClientFunction(player, "delegateEvent", player, quest, "processEventNicoliauxStart");
if (questAccepted == 1) then
player:AcceptQuest(quest);
end
player:EndEvent();
return;
-- Quest Progress
elseif (seq == SEQ_000) then
if (npcClassId == ENPC_SYLBYRT) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent000", 2, OBJECTIVE_AMOUNT);
quest:StartSequence(SEQ_001);
elseif (npcClassId == ENPC_NICOLIAUX) then
callClientFunction(player, "delegateEvent", player, quest, "followEvent000");
end
elseif (seq == SEQ_001) then
if (npcClassId == ENPC_SYLBYRT) then
callClientFunction(player, "delegateEvent", player, quest, "followEvent010", 2, OBJECTIVE_AMOUNT);
end
elseif (seq == SEQ_002) then
if (npcClassId == ENPC_SYLBYRT) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent010", 2, OBJECTIVE_AMOUNT);
quest:GetData():IncCounter(COUNTER_QUESTITEM2);
quest:StartSequence(SEQ_003);
end
--Quest Complete
elseif (seq == SEQ_003) then
if (npcClassId == ENPC_NICOLIAUX) then
callClientFunction(player, "delegateEvent", player, quest, "processEvent020");
callClientFunction(player, "delegateEvent", player, quest, "sqrwa", 200, 1, 1, 9);
player:CompleteQuest(quest);
elseif (npcClassId == ENPC_SYLBYRT) then
callClientFunction(player, "delegateEvent", player, quest, "followEvent020");
end
end
quest:UpdateENPCs();
player:EndEvent();
end
function onKillBNpc(player, quest, bnpc)
if (quest:GetSequence() == SEQ_001 and bnpc == BNPC_WANDERING_WIGHT) then
local counterAmount = quest:GetData():IncCounter(COUNTER_QUESTITEM);
attentionMessage(player, 25226, OBJECTIVE_ITEMID, 1, counterAmount, OBJECTIVE_AMOUNT); -- You obtain <item> (X of Y)
if (counterAmount >= OBJECTIVE_AMOUNT) then
attentionMessage(player, 25225, quest:GetQuestId()); -- Objectives complete!
quest:StartSequence(SEQ_002);
end
end
end
function getJournalInformation(player, quest)
return quest:GetData():GetCounter(COUNTER_QUESTITEM), quest:GetData():GetCounter(COUNTER_QUESTITEM2), 0, 0, OBJECTIVE_AMOUNT;
end
function getJournalMapMarkerList(player, quest)
local sequence = quest:getSequence();
if (sequence == SEQ_000) then
return MRKR_SYLBYRT;
elseif (sequence == SEQ_001) then
return MRKR_WIGHT_AREA;
elseif (sequence == SEQ_002) then
return MRKR_SYLBYRT;
elseif (sequence == SEQ_003) then
return MRKR_NICOLIAUX;
end
end