--[[
	Ease of use functions for generating quests
]]

--[[
	local quest = {
		q.MakeArc("TalkArc",Entity(24),"Talk to Jared The Brutal","Rats...","I JARED THE BRUTAL. YOU THINK YOU TOUGH? GO KILL 10 RATS!!!"),
		q.MakeArc("KillArc","Rat",10)
		q.MakeArc("TalkArc",Entity(24),"Talk to Jared The Brutal","I kill 10 rats.","HOLY SHIT, YOU KILL 10?? GOOD. YOU BRUTAL NOW. HERE IS REWARD.")
	}
	local reward = function(ply)
		for i=1,10 do
			pcall(function()
				ply:GiveItem("Rat Meat")
			end,function()

			end)
		end
		ply:AddSkill("Hunting",20)
	end
	local Killquest = q.GenerateQuest(quest,reward)
]]

nrequire("itemsystem/quest.lua")
local itm = nrequire("item.lua")
local log = nrequire("log.lua")
local arc = nrequire("arcs.lua")
local typ = nrequire("type.lua")
local q = {}

-- Generates an item that represents a quest
function q.GenerateQuest(questname,arcstbl,rewards)
	typ.checktypes(
		questname,"string",
		arcstbl,"table",
		rewards,"table"
	)
	local q = itm.GetItemByName("Quest")
	q.QuestName = questname
	q.Arcs = arcstbl
	for k,v in pairs(arcstbl) do
		v.Quest = q
	end
	q.Reward = rewards
	return q
end

if SERVER then
	concommand.Add("artery_gen_test_quest",function(ply,cmd,args)
		print("Generating a test quest")
		local qu = {
			arc.MakeArc("Quest Component Gather",ply,"Test item", 3)
		}
		local reward = {
			{"Test item", 1}
		}
		local kq = q.GenerateQuest("My test quest",qu,reward)
		kq.Owner = ply
		xpcall(function()
			ply:GiveItem(kq)
		end,function(err)
			log.error("Failed to add quest:" .. err)
			log.error(debug.traceback())
		end)
	end)
end

return q