--==<<          JackBlonder's quest functions             >>==--
--==<<                   Version 0.95		              >>==--
--==<<====================================================>>==--
function AcceptQuestByName(_name)
	
	local DEBUG = false

	local questNPC
	
	-- Target NPC again to get updated questlist
	repeat questNPC = RoMScript("UnitName('target')") until questNPC
				if DEBUG then
					printf("questNPC: %s\n",questNPC)
				end
	player:target_NPC(questNPC)	
	
	_name = _name or "all"
	local questToAccept = _name
				if DEBUG then
					printf("questToAccept: %s\n",questToAccept)
				end
	local questOnBoard
	local isQuest
	local availableQuests
		  repeat availableQuests = RoMScript("GetNumQuest(1)") until availableQuests -- Get number of available quests
				if DEBUG then
					printf("Number of available quests: %d\n",availableQuests)
				end
	local i

	
	-- Accept all available quests
	if (questToAccept == "" or questToAccept == "all") then
		for i=1,availableQuests do

			repeat
				repeat questOnBoard = normaliseString(RoMScript("GetQuestNameByIndex(1, "..i..")")) until questOnBoard -- Get questname
					if DEBUG then
						printf("questOnBoard / Index: %s \t %d\n",questOnBoard,i)
						sendMacro("OnClick_QuestListButton(1, "..i..")") -- Clicks the quest
						yrest(100)
						sendMacro("AcceptQuest()") -- Accepts the quest
						yrest(100)
						printf("Queststatus: %s \n",getQuestStatus(questOnBoard))
					else
						RoMScript("OnClick_QuestListButton(1, "..i..")") -- Clicks the quest
						yrest(100)
						RoMScript("AcceptQuest()") -- Accepts the quest
						yrest(100)
					end

			until (getQuestStatus(questOnBoard)=="incomplete" or getQuestStatus(questOnBoard)=="complete") -- Try again if accepting didn't work
			printf("Quest accepted: %s\n",questOnBoard)
			
		end
	
	-- Accept a quest by quest name
	else
		for i=1,availableQuests do
			repeat questOnBoard = normaliseString(RoMScript("GetQuestNameByIndex(1, "..i..")")) until questOnBoard -- Get questname
						if DEBUG then
							printf("questOnBoard: %s \n",questOnBoard)
						end
			isQuest = compareQuestnames(questOnBoard,questToAccept)
						if DEBUG then
							printf("isQuest: %s \n",isQuest)
						end
			if (isQuest) then
				repeat
					RoMScript("OnClick_QuestListButton(1,"..i..")") -- Clicks the quest
					yrest(100)
					RoMScript("AcceptQuest()") -- Accepts the quest
					yrest(100)
						if DEBUG then
							printf("Queststatus: %s \n",getQuestStatus(questOnBoard))
						end
				until (getQuestStatus(questOnBoard)=="incomplete" or getQuestStatus(questOnBoard)=="complete") -- Try again if accepting didn't work
				printf("Quest accepted: %s\n",questOnBoard)
				break
			elseif i==availableQuests then
				printf("Questname not found: %s\n",questToAccept) -- Quest not found
			end
			
		end
	end
end

function CompleteQuestByName(_name, _rewardnumber)

	local DEBUG = false

	local questNPC
	
	-- Target NPC again to get updated questlist
	repeat questNPC = RoMScript("UnitName('target')") until questNPC
				if DEBUG then
					printf("questNPC: %s\n",questNPC)
				end
	player:target_NPC(questNPC)	
	
	_name = _name or "all"
	local questToComplete = _name
				if DEBUG then
					printf("questToComplete: %s\n",questToComplete)
				end
	local questOnBoard = ""
	local isQuest
	local availableQuests 
		  repeat availableQuests = RoMScript("GetNumQuest(3)") until availableQuests~= nil
				if DEBUG then
					printf("Number of available quests: %d\n",availableQuests)
				end
	local i
	
	-- Complete all available quests
	if (questToComplete == "" or questToComplete == "all") then
		for i=1,availableQuests do
			repeat
				repeat questOnBoard = normaliseString(RoMScript("GetQuestNameByIndex(3, "..i..")")) until questOnBoard -- Get questname
						if DEBUG then
							printf("questOnBoard / Index: %s \t %d\n",questOnBoard,i)
						end
				RoMScript("OnClick_QuestListButton(3, "..i..")") -- Clicks the quest
				yrest(100)
				if _rewardnumber then
							if DEBUG then
								printf("_rewardnumber: %d \n",_rewardnumber)
							end
					RoMScript("SpeakFrame_ClickQuestReward(SpeakQuestReward1_Item".._rewardnumber..")")
					yrest(100)
				end
				RoMScript("CompleteQuest()") -- Completes the quest
				yrest(100)
			until (getQuestStatus(questOnBoard)~="complete")
			printf("Quest completed: %s\n",questOnBoard)
			
		end
	
	-- Complete a quest by quest name
	else
		for i=1,availableQuests do
			repeat questOnBoard = normaliseString(RoMScript("GetQuestNameByIndex(3, "..i..")")) until questOnBoard -- Get questname
						if DEBUG then
							printf("questOnBoard / Index: %s \t %d\n",questOnBoard,i)
						end
			isQuest = compareQuestnames(questOnBoard,questToComplete)
			if (isQuest) then
				repeat
					RoMScript("OnClick_QuestListButton(3,"..i..")") -- Clicks the quest
					yrest(100)
					if _rewardnumber then
							if DEBUG then
								printf("_rewardnumber: %d \n",_rewardnumber)
							end
						RoMScript("SpeakFrame_ClickQuestReward(SpeakQuestReward1_Item".._rewardnumber..")")
						yrest(100)
					end
					RoMScript("CompleteQuest()") -- Completes the quest

					yrest(100)
							if DEBUG then
								printf("Queststatus: %s \n",getQuestStatus(questOnBoard))
							end
				until (getQuestStatus(questOnBoard)~="complete")
				printf("Quest completed: %s\n",questOnBoard)
				break
			elseif i==availableQuests then
				printf("Questname not found: %s\n",questToComplete)
			end
			 
		end
	end
end

function AcceptAllQuests()
	AcceptQuestByName()
end
function CompleteAllQuests()
	CompleteQuestByName()
end

function normaliseString(_str)
	_str = string.gsub(_str, string.char(45), ".")	-- Delete "-" in string
	_str = string.gsub(_str, string.char(34), ".")	-- Delete """ in string
	_str = string.lower(_str) -- Lower case
	return _str
end

function compareQuestnames(_name, _string)
	--_name = normaliseString(_name)
	--printf("_name: %s\n",_name)
	_string = normaliseString(_string)
	--printf("_string: %s\n",_string)
	
	if string.find(_name,_string) then
			return true
	else
			return false
	end
end