The journal update msg shows even when completing quests now. Added Revenge on the Reavers, Till Death Do Us Part, Beryl Overboard, Have You Seen My Son, and Food for Thought.

2025-05-20 08:26:59 -04:00 · 2022-03-01 14:29:59 -05:00
parent 96f9119cca
commit f491c63b98
6 changed files with 663 additions and 2 deletions
--- a/Data/scripts/quests/etc/etc1l6.lua
+++ b/Data/scripts/quests/etc/etc1l6.lua
@@ -0,0 +1,104 @@
+require ("global")
+
+--[[
+
+Quest Script
+
+Name: 	Beryl Overboard
+Code: 	Etc1l6
+Id: 	110639
+Prereq: Level 20, Any DoW/DoM, Requires Etc1l5
+
+]]
+
+-- Sequence Numbers
+SEQ_000	= 0;  -- Kill Beryl Crabs.
+SEQ_001	= 1;  -- Talk to Nanapiri.
+
+-- Actor Class Ids
+ENPC_NANAPIRI 		= 1000136;
+BNPC_BERYL_CRAB 	= 2107613;
+
+-- Quest Markers
+MRKR_CRAB_AREA		= 11063901;
+MRKR_NANAPIRI		= 11063902;
+
+-- Counters
+COUNTER_QUESTITEM	= 0;
+
+-- Quest Details
+OBJECTIVE_AMOUNT	= 8;
+
+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_NANAPIRI, QFLAG_PLATE);
+	elseif (sequence == SEQ_000) then
+        quest:SetENpc(ENPC_NANAPIRI);
+		quest:SetENpc(BNPC_BERYL_CRAB);
+	elseif (sequence == SEQ_001) then
+		quest:SetENpc(ENPC_NANAPIRI, QFLAG_REWARD);
+	end	
+end
+
+function onTalk(player, quest, npc, eventName)
+	local npcClassId = npc.GetActorClassId();
+	local seq = quest:GetSequence();
+    
+	-- Offer the quest
+	if (npcClassId == ENPC_NANAPIRI and seq == SEQ_ACCEPT) then
+		local questAccepted = callClientFunction(player, "delegateEvent", player, quest, "processEventNanapiriStart");
+		if (questAccepted == 1) then
+			player:AcceptQuest(quest);
+		end
+		player:EndEvent();
+		return;	
+	-- Quest Progress
+	elseif (seq == SEQ_000) then
+        if (npcClassId == ENPC_NANAPIRI) then
+            callClientFunction(player, "delegateEvent", player, quest, "processEvent005_2");
+		end
+	--Quest Complete
+	elseif (seq == SEQ_001) then
+		if (npcClassId == ENPC_NANAPIRI) then
+			callClientFunction(player, "delegateEvent", player, quest, "processEvent010");
+			callClientFunction(player, "delegateEvent", player, quest, "sqrwa", 200, 1, 1, 9);
+            player:CompleteQuest(quest);
+		end
+	end
+	
+	quest:UpdateENPCs();	
+	player:EndEvent();
+end
+
+-- TODO FINISH THIS
+function onKillBNpc(player, quest, bnpc)
+	if (bnpc == BNPC_BERYL_CRAB) then
+		local counterAmount = quest:GetData():IncCounter(COUNTER_QUESTITEM);
+		attentionMessage(player, 51062, 0, counterAmount, 4); -- You obtain <item>
+        if (counterAmount >= OBJECTIVE_AMOUNT) then
+			attentionMessage(player, 25225, quest:GetQuestId()); -- Objectives complete!
+			quest:StartSequence(SEQ_001);
+		end
+	end
+end
+
+function getJournalInformation(player, quest)
+	return quest:GetData():GetCounter(COUNTER_QUESTITEM);
+end
+
+function getJournalMapMarkerList(player, quest)
+    local sequence = quest:getSequence();
+    
+    if (sequence == SEQ_000) then
+		return MRKR_CRAB_AREA;
+    elseif (sequence == SEQ_001) then
+        return MRKR_NANAPIRI;
+    end
+end