diff --git a/Data/scripts/quests/wld/wld0g2.lua b/Data/scripts/quests/wld/wld0g2.lua
index 4a10e407..fbad2186 100644
--- a/Data/scripts/quests/wld/wld0g2.lua
+++ b/Data/scripts/quests/wld/wld0g2.lua
@@ -76,7 +76,7 @@ function onTalk(player, quest, npc)
 		local incCounter = false;
 		local data = quest:GetData();
 		
-        if (npcClassId == SWAENHYLT) then
+        if (classId == SWAENHYLT) then
             callClientFunction(player, "delegateEvent", player, quest, "processEvent000_2");
         elseif (classId == FLAVIELLE) then
 			if (not data:GetFlag(FLAG_TALKED_FLAVIELLE)) then
diff --git a/Data/scripts/quests/wld/wld0l2.lua b/Data/scripts/quests/wld/wld0l2.lua
new file mode 100644
index 00000000..8d86277c
--- /dev/null
+++ b/Data/scripts/quests/wld/wld0l2.lua
@@ -0,0 +1,164 @@
+require("global");
+
+--[[
+
+Quest Script
+
+Name:   Letting Out Orion's Belt
+Code:   Wld0l2
+Id:     110772
+Prereq: Level 10 on any class.
+Notes:  Rewards 200 gil
+
+]]
+
+-- Sequence Numbers
+SEQ_000 = 0;  -- Talk to the four gourmands.
+SEQ_001 = 1;  -- Return to Ahldskyf.
+
+-- Actor Class Ids
+AHLDSKYF		= 1000332;
+FZHUMII			= 1000226;
+SHOSHOMA		= 1000334;
+DACA_JINJAHL 	= 1000202;
+AENTFOET		= 1000064;
+
+-- Quest Markers
+MRKR_FZHUMII		= 11110101;
+MRKR_SHOSHOMA		= 11110102;
+MRKR_DACA_JINJAHL	= 11110103;
+MRKR_AENTFOET		= 11110104;
+MRKR_AHLDSKYF		= 11110105;
+
+-- Quest Flags
+FLAG_TALKED_FZHUMII	 		= 0;
+FLAG_TALKED_SHOSHOMA 		= 1;
+FLAG_TALKED_DACA_JINJAHL 	= 2;
+FLAG_TALKED_AENTFOET 		= 3;
+
+-- Quest Counters
+COUNTER_TALKED          	= 0;
+
+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(AHLDSKYF, QFLAG_PLATE);
+	elseif (sequence == SEQ_000) then
+		local data = quest:GetData();
+        quest:SetENpc(AHLDSKYF);
+		quest:SetENpc(FZHUMII,      (not data:GetFlag(FLAG_TALKED_FZHUMII) and QFLAG_PLATE or QFLAG_NONE));
+		quest:SetENpc(SHOSHOMA,     (not data:GetFlag(FLAG_TALKED_SHOSHOMA) and QFLAG_PLATE or QFLAG_NONE));
+		quest:SetENpc(DACA_JINJAHL, (not data:GetFlag(FLAG_TALKED_DACA_JINJAHL) and QFLAG_PLATE or QFLAG_NONE));
+		quest:SetENpc(AENTFOET,   	(not data:GetFlag(FLAG_TALKED_AENTFOET) and QFLAG_PLATE or QFLAG_NONE));
+    elseif (sequence == SEQ_001) then 
+        quest:SetENpc(AHLDSKYF, QFLAG_REWARD);
+    end
+end
+
+function onTalk(player, quest, npc)
+    local sequence = quest:getSequence();
+    local classId = npc:GetActorClassId();
+    
+	if (sequence == SEQ_ACCEPT and classId == AHLDSKYF) then		
+		local questAccepted = callClientFunction(player, "delegateEvent", player, quest, "processEventAhldskyffStart");
+		if (questAccepted == 1) then
+			player:AcceptQuest(quest);
+		end
+		player:EndEvent();
+		return;	
+	elseif (sequence == SEQ_000) then
+		local incCounter = false;
+		local data = quest:GetData();
+		
+        if (classId == AHLDSKYF) then
+            callClientFunction(player, "delegateEvent", player, quest, "processEventAhldskyffStart_1");    
+		elseif (classId == FZHUMII) then
+			if (not data:GetFlag(FLAG_TALKED_FZHUMII)) then
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent000");
+				data:SetFlag(FLAG_TALKED_FZHUMII);
+                incCounter = true;
+			else
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent000_1");
+			end
+		elseif (classId == SHOSHOMA) then
+			if (not data:GetFlag(FLAG_TALKED_SHOSHOMA)) then
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent005");
+				data:SetFlag(FLAG_TALKED_SHOSHOMA);
+                incCounter = true;
+			else
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent005_1");
+			end    
+		elseif (classId == DACA_JINJAHL) then
+			if (not data:GetFlag(FLAG_TALKED_DACA_JINJAHL)) then
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent010");
+				data:SetFlag(FLAG_TALKED_KEKETO);
+                incCounter = true;
+			else
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent010_1");
+			end
+		elseif (classId == AENTFOET) then
+			if (not data:GetFlag(FLAG_TALKED_AENTFOET)) then
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent015");
+				data:SetFlag(FLAG_TALKED_AENTFOET);
+                incCounter = true;
+			else
+				callClientFunction(player, "delegateEvent", player, quest, "processEvent015_1");
+			end
+		end
+		
+		-- Increase objective counter & play relevant messages
+		if (incCounter == true) then
+            local counterAmount = data:IncCounter(COUNTER_TALKED);
+
+            attentionMessage(player, 51063, 0, counterAmount, 4); -- ????. (... of 5)
+            
+            if (seq000_checkCondition(data)) then -- All lost souls spoken to
+                attentionMessage(player, 25225, quest:GetQuestId()); -- "Letting Out Orion's Belt" objectives complete!
+                quest:UpdateENPCs(); -- Band-aid for a QFLAG_PLATE issue
+                quest:StartSequence(SEQ_001);
+            end
+        end
+    elseif (sequence == SEQ_001) then
+        if (classId == AHLDSKYF) then
+            callClientFunction(player, "delegateEvent", player, quest, "processEvent020");
+			callClientFunction(player, "delegateEvent", player, quest, "sqrwa", 200, 1, 1, 9);
+			player:CompleteQuest(quest);        
+        end  
+    end
+    player:EndEvent()
+	quest:UpdateENPCs();
+end
+
+-- Check if all souls are talked to
+function seq000_checkCondition(data)
+	return (data:GetFlag(FLAG_TALKED_FZHUMII) and
+			data:GetFlag(FLAG_TALKED_SHOSHOMA) and
+			data:GetFlag(FLAG_TALKED_DACA_JINJAHL) and
+			data:GetFlag(FLAG_TALKED_AENTFOET));
+end
+
+function getJournalMapMarkerList(player, quest)
+    local sequence = quest:getSequence();
+	local data = quest:GetData();
+    local possibleMarkers = {};
+    
+    if (sequence == SEQ_000) then
+        if (not data:GetFlag(FLAG_TALKED_FZHUMII)) then table.insert(possibleMarkers, MRKR_FZHUMII); end
+        if (not data:GetFlag(FLAG_TALKED_SHOSHOMA)) then table.insert(possibleMarkers, MRKR_SHOSHOMA); end
+        if (not data:GetFlag(FLAG_TALKED_DACA_JINJAHL)) then table.insert(possibleMarkers, MRKR_DACA_JINJAHL); end
+        if (not data:GetFlag(FLAG_TALKED_AENTFOET)) then table.insert(possibleMarkers, MRKR_AENTFOET); end
+    elseif (sequence == SEQ_001) then
+        table.insert(possibleMarkers, MRKR_AHLDSKYF);
+    end
+    
+    return unpack(possibleMarkers)
+end
+
+
+
diff --git a/Data/scripts/quests/wld/wld0l4.lua b/Data/scripts/quests/wld/wld0l4.lua
new file mode 100644
index 00000000..9d5a7b94
--- /dev/null
+++ b/Data/scripts/quests/wld/wld0l4.lua
@@ -0,0 +1,93 @@
+require ("global")
+
+--[[
+
+Quest Script
+
+Name: 	Sniffing Out a Profit
+Code: 	Wld0l4
+Id: 	110774
+Prereq: Level 37, Any Class, Requires "Letting Out Orion's Belt"
+
+]]
+
+-- Sequence Numbers
+SEQ_000	= 0;  -- Talk to Ryssfloh.
+SEQ_001	= 1;  -- Talk to Faine.
+
+-- Actor Class Ids
+AHLDSKYF 	= 1000332;
+FAINE	 	= 1001608;
+
+-- Quest Markers
+MRKR_FAINE		= 11110301;
+MRKR_AHLDSKYF	= 11110302;
+
+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(AHLDSKYF, QFLAG_PLATE);
+	end
+
+	if (sequence == SEQ_000) then
+        quest:SetENpc(AHLDSKYF);
+		quest:SetENpc(FAINE, QFLAG_PLATE);
+	elseif (sequence == SEQ_001) then	
+		quest:SetENpc(FAINE);
+		quest:SetENpc(AHLDSKYF, QFLAG_REWARD);
+	end	
+end
+
+function onTalk(player, quest, npc, eventName)
+	local npcClassId = npc.GetActorClassId();
+	local seq = quest:GetSequence();
+    
+	-- Offer the quest
+	if (npcClassId == AHLDSKYF and not player:HasQuest(quest)) then
+		local questAccepted = callClientFunction(player, "delegateEvent", player, quest, "processEventAhldskyffStart");
+		if (questAccepted == 1) then
+			player:AcceptQuest(quest);
+		end
+		player:EndEvent();
+		return;
+	end
+	
+	-- Quest Progress
+	if (seq == SEQ_000) then
+        if (npcClassId == AHLDSKYF) then
+            callClientFunction(player, "delegateEvent", player, quest, "processEvent000");
+		elseif (npcClassId == FAINE) then
+			callClientFunction(player, "delegateEvent", player, quest, "processEvent005");
+			quest:StartSequence(SEQ_001);
+		end
+	elseif (seq == SEQ_001) then
+		--Quest Complete
+		if (npcClassId == AHLDSKYF) then
+			callClientFunction(player, "delegateEvent", player, quest, "processEvent010");
+			callClientFunction(player, "delegateEvent", player, quest, "sqrwa", 200, 1, 1, 9);
+            player:CompleteQuest(quest);
+		elseif (npcClassId == FAINE) then
+			callClientFunction(player, "delegateEvent", player, quest, "processEvent005_2");
+			quest:StartSequence(SEQ_001);
+		end
+	end
+	
+	quest:UpdateENPCs();	
+	player:EndEvent();
+end
+
+function getJournalMapMarkerList(player, quest)
+    local sequence = quest:getSequence();
+    
+    if (sequence == SEQ_000) then
+		return MRKR_FAINE;
+    elseif (sequence == SEQ_001) then
+        return MRKR_AHLDSKYF;
+    end
+end
\ No newline at end of file