function AcceptQuestByName(_name)
	
	_name = _name or "All"
	local questToAccept = string.lower(_name) 
		  string.gsub(questToAccept, string.char(45), " ")	-- Delete "-" in questname
	local questOnBoard = ""
	local availableQuests = RoMScript("GetNumQuest(1)")
	local i
	
	-- Accept all available quests
	if (_name == "" or _name == "All" or _name == "ALL" or _name == "all") then
		for i = 1,availableQuests do
			repeat
				questOnBoard = RoMScript("GetQuestNameByIndex(1, "..i..")")
				RoMScript("OnClick_QuestListButton(1, "..i..")") -- Clicks the quest
				yrest(100)
				RoMScript("AcceptQuest()") -- Accepts the quest
				yrest(100)
			until (getQuestStatus(questOnBoard)=="incomplete")
			printf("Quest accepted: %s\n",questOnBoard)
		end
	
	-- Accept a quest by quest name
	else
		for i = 1,availableQuests do
			questOnBoard = RoMScript("GetQuestNameByIndex(3, "..i..")")  -- Get questname
			string.gsub(questOnBoard, string.char(45), " ")	-- Delete "-" in questname
			questOnBoard = string.lower(questOnBoard) -- Lower case
			
			if questOnBoard == questToAccept then
				repeat
					RoMScript("OnClick_QuestListButton(1,"..i..")") -- Clicks the quest
					yrest(100)
					RoMScript("AcceptQuest()") -- Accepts the quest
					yrest(100)
				until (getQuestStatus(questOnBoard)=="incomplete")
				printf("Quest accepted: %s\n",questOnBoard)
				break
			elseif i==availableQuests then
				printf("Questname not found: %s\n",questToAccept)
			end
		end
	end
end

function CompleteQuestByName(_name)

	_name = _name or "All"
	local questToComplete = string.lower(_name) 
		  string.gsub(questToComplete, string.char(45), " ")	-- Delete "-" in questname
	local questOnBoard = ""
	local availableQuests = RoMScript("GetNumQuest(3)")
	local i
	
	-- Complete all available quests
	if (_name == "" or _name == "All" or _name == "ALL" or _name == "all") then
		for i = 1,availableQuests do
			repeat
				questOnBoard = RoMScript("GetQuestNameByIndex(3, "..i..")")
				RoMScript("OnClick_QuestListButton(3, "..i..")") -- Clicks the quest
				yrest(100)
				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
			questOnBoard = RoMScript("GetQuestNameByIndex(3, "..i..")")  -- Get questname
			string.gsub(questOnBoard, string.char(45), " ")	-- Delete "-" in questname
			questOnBoard = string.lower(questOnBoard) -- Lower case

			if questOnBoard == questToComplete then
				repeat
					RoMScript("OnClick_QuestListButton(3,"..i..")") -- Clicks the quest
					yrest(100)
					RoMScript("CompleteQuest()") -- Completes the quest
					yrest(100)
				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