Finished 'What a Pirate Wants' (lol what a Pirate Needs, what a Pirate, whatever keeps rum in my arms and I'm thanking you for giving it to me.)

2025-05-20 08:26:59 -04:00 · 2022-04-02 12:26:18 -04:00
parent 6bbe272d48
commit a6ee42094c
1 changed files with 101 additions and 0 deletions
--- a/Data/scripts/quests/etc/etc3l3.lua
+++ b/Data/scripts/quests/etc/etc3l3.lua
@@ -0,0 +1,101 @@
+require ("global")
+
+--[[
+
+Quest Script
+
+Name: 	What a Pirate Wants
+Code: 	Etc3l3
+Id: 	110746
+Prereq: Level 15, Any Class
+
+]]
+
+-- Sequence Numbers
+SEQ_000	= 0;  -- Talk to Tefh Moshroca.
+SEQ_001 = 1;  -- Talk to Hasthwab.
+
+-- Actor Class Ids
+BADERON			= 1000137;
+TEFH_MOSHROCA	= 1000131;
+HASTHWAB		= 1001064;
+
+-- Quest Markers
+MRKR_MOSHROCA	= 11070301;
+MRKR_HATHWAB	= 11070302;
+
+-- Quest Misc
+RUM_ITEMID		= 11000207;
+
+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(BADERON, QFLAG_PLATE);
+	end
+
+	if (sequence == SEQ_000) then
+		quest:SetENpc(TEFH_MOSHROCA, QFLAG_PLATE);
+        quest:SetENpc(BADERON);
+	elseif (sequence == SEQ_001) then	
+		quest:SetENpc(HASTHWAB, QFLAG_REWARD);
+		quest:SetENpc(TEFH_MOSHROCA);
+	end	
+end
+
+function onTalk(player, quest, npc, eventName)
+	local npcClassId = npc.GetActorClassId();
+	local seq = quest:GetSequence();
+    
+	-- Offer the quest
+	if (npcClassId == BADERON and not player:HasQuest(quest)) then
+		local questAccepted = callClientFunction(player, "delegateEvent", player, quest, "processEventBADERONStart");
+		if (questAccepted == 1) then
+			player:AcceptQuest(quest);
+		end
+		player:EndEvent();
+		return;
+	end
+	
+	-- Quest Progress
+	if (seq == SEQ_000) then
+        if (npcClassId == TEFH_MOSHROCA) then
+            callClientFunction(player, "delegateEvent", player, quest, "processEvent_005");
+			player:SendGameMessage(GetWorldMaster(), 25117, 0x20, RUM_ITEMID); -- You obtain a bottle of Radz-at-Han Reserve.
+			quest:StartSequence(SEQ_001);
+		elseif (npcClassId == BADERON) then
+            callClientFunction(player, "delegateEvent", player, quest, "processEvent_000");
+		end
+	elseif (seq == SEQ_001) then		
+		--Quest Complete
+		if (npcClassId == HASTHWAB) then
+			callClientFunction(player, "delegateEvent", player, quest, "processEvent_010");			
+			callClientFunction(player, "delegateEvent", player, quest, "sqrwa", 200, 1, 1, 9);
+			player:CompleteQuest(quest);
+		elseif (npcClassId == TEFH_MOSHROCA) then
+			callClientFunction(player, "delegateEvent", player, quest, "processEvent_005_01");
+		end
+	end
+	
+	quest:UpdateENPCs();	
+	player:EndEvent();
+end
+
+function getJournalInformation(player, quest)
+	return quest:GetSequence() == SEQ_001 and 1 or 0;
+end
+
+function getJournalMapMarkerList(player, quest)
+    local sequence = quest:getSequence();
+    
+    if (sequence == SEQ_000) then
+		return MRKR_MOSHROCA;
+    elseif (sequence == SEQ_001) then
+        return MRKR_HATHWAB;
+    end
+end