<?xml version="1.0" encoding="utf-8"?>
<waypoints>
<onLoad>


player:sleep()
  	questtype 		= "daily" -- "public" or "daily";
	swapClass 		= false;				-- Do ClassSwapping for levelling Second Class?
	minPlayerLevel	= 86;				-- minimum PlayerLevel to accept the Quest.
	questGiverId 	= (123971) -- 'Caslin Amust'
	questNameId	= (427340) -- 'Energetic Sequencing'
	questName 		= GetIdName(questNameId);
	houseMaidId     = (124025) -- Udzill Tjark
	UseDailyTickets = false;              -- this needs home sweet home 7day or regular
	
	time = os.time();		-- Startingtime of Waypoint
	
	EventMonitorStart("faris", "CHAT_MSG_SYSTEM")
	
   for k,v in pairs(settings.profile.skills) do
         v.AutoUse = false
   end;    --disable skills eg buffs --  may need  loadProfile()   after this if you continue the code and need skills again.	
	
	

function housetoquest()	

end

function questtohouse()

end

function swClass()

	end


	local function releaseQuest()
		player:target_NPC(123971) -- 'Caslin Amust'
		yrest(2000)
		CompleteQuestByName(427340) -- 'Energetic Sequencing'
		yrest(2000)
		AcceptQuestByName(427340) -- 'Energetic Sequencing'
		yrest(2000)
		player:target_NPC(123971) -- 'Caslin Amust'
		yrest(2000);
		ChoiceOptionByName(getTEXT("SC_Q427293_1")) -- 'Right then! Let's get cracking!'
		yrest(2000)
	end	
	

	local function doQuest()
		repeat
			local time, moreToCome, _name, _message = EventMonitorCheck("faris","4,1",true)
			if _message then
				string.lower(_message)
				print("1 ".._message)
			end
			if _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE01")) then -- 'Earth'
				yrest(1500); 
				player:target_Object(getTEXT("Sys124015_name")) -- 'Earth Elemental Rune' 
				player:target_Object(getTEXT("Sys124015_name")) -- 'Earth Elemental Rune' 
			elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE02")) then -- 'Water'
				yrest(1500);
				player:target_Object(getTEXT("Sys124013_name")) -- 'Earth Elemental Rune' 
				player:target_Object(getTEXT("Sys124013_name")) -- 'Earth Elemental Rune' 
			elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE03")) then -- 'Earth'
				yrest(1500);
				player:target_Object(getTEXT("Sys124012_name")) -- 'Fire Elemental Rune' 
				player:target_Object(getTEXT("Sys124012_name")) -- 'Fire Elemental Rune' 
			elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE04")) then -- 'Earth'
				yrest(1500);
				player:target_Object(getTEXT("Sys124014_name")) -- 'Wind Elemental Rune' 
				player:target_Object(getTEXT("Sys124014_name")) -- 'Wind Elemental Rune' 
			elseif _message and string.find(_message, getTEXT("SYS_MAGIC_TYPE05")) then -- 'Light'
				yrest(1500);
				player:target_Object(getTEXT("Sys124016_name")) -- 'Light Elemental Rune' 
				player:target_Object(getTEXT("Sys124016_name")) -- 'Light Elemental Rune' 
			elseif _message and string.find(_message, "finished!") then
				player:target_NPC(123971) -- 'Caslin Amust'
				yrest(2000)
				ChoiceOptionByName(getTEXT("SC_Q427293_1")) -- 'Right then! Let's get cracking!'
				yrest(2000)
			end
			player:update()
			
		queststate = getQuestStatus(427340) -- 'Energetic Sequencing'
   		until queststate == "complete"
	end

	

	
	while (true) do
		local empties = inventory:itemTotalCount(0);
		print("  8 ")
		if 1 > empties then
		print("  9 ")
			-- Wait for user to make some space in inventory.
			cprintf(cli.yellow,"Not much space left in inventory. Are you sure you want to continue with only %d spaces left?\n",empties)
			player:sleep();
		end;
		if not player:hasBuff(506684) then -- Unbridled Enthusiasm
			inventory:useItem(207200)
		end		
		local dqCount, dqPerDay = RoMScript("Daily_count()");
		if dqCount > 9 then
			inventory:update();
			player:update();
			if inventory:itemTotalCount(202434) > 0 then
				inventory:useItem(202434);
				yrest(2000)
			else
				break
			end
		else
			--housetoquest()	
				releaseQuest()
				doQuest()
			--questtohouse()
			--repeat
			--	yrest(500)
			--until player:target_NPC(houseMaidId) -- housemaid 
			yrest(150);
			--ChoiceOptionByName(getTEXT("SO_110581_1")) -- 'I want to switch my primary and secondary class.'
			yrest(150);
			--swClass()	
			yrest(500)
			player:update()
			--housetoquest()
		end
	end
	player:target_NPC(123971) -- 'Caslin Amust'
	yrest(2000)
	CompleteQuestByName(427340) -- 'Energetic Sequencing'
	yrest(2000)
	loadPaths("far energetic")
	
</onLoad>		
</waypoints>