local Player = FindMetaTable("Player")

--The Quests from this point down have not been added to any npc yet, and probolly are under cunstruction
local Quest = {}
Quest.Name = "quest_gatherantlionshell"
Quest.PrintName = "The Legendary Beast!"
Quest.Story = "Hey! You! Yeah, you! I can help you. Have you ever heard of a beast called, the Antlion Guard!? I hear it has a shell as hard as rock! Bring me its shell, and i can make you a sheild. It wont be free tho. I'll need some cash too!"
Quest.Level = 16
Quest.ObtainItems = {}
Quest.ObtainItems["antlion_shell"] = 1
Quest.ObtainItems["money"] = 500
Quest.GainedExp = 600
Quest.GainedItems = {}
Quest.GainedItems["armor_shield_antlionshell"] = 1
Register.Quest(Quest)

function Player:AddQuest(strQuest, tblInfo)
    if !ValidEntity(self) then return end
    local tblQuestTable = QuestTable(strQuest)
    if !self:GetQuest(strQuest) && tblQuestTable then
        self.Data.Quests[strQuest] = {}
        local tblNewQuestTable = {}
        tblNewQuestTable.Done = false
        for strNPC, intToKill in pairs(tblQuestTable.Kill or {}) do
            tblNewQuestTable.Kills = tblNewQuestTable.Kills or {}
            tblNewQuestTable.Kills[strNPC] = 0
        end
        self:UpdateQuest(strQuest, tblInfo or tblNewQuestTable)
    end
end

function Player:QuestItem(strItem)
    local tblItemTable = ItemTable(strItem)
    if !tblItemTable.QuestItem or self:GetQuest(tblItemTable.QuestItem) then
        if !self:HasCompletedQuest(tblItemTable.QuestItem) then
            return true
        end
        return false
    end
    return false
end

function Player:HasCompletedQuest(strQuest)
    if self:GetQuest(strQuest) && self:GetQuest(strQuest).Done then
        return true
    end
    return false
end

function Player:GetQuest(strQuest)
    if !ValidEntity(self) then return end
    self.Data.Quests = self.Data.Quests or {}
    return self.Data.Quests[strQuest]
end

function Player:UpdateQuest(strQuest, tblInfo)
    if !ValidEntity(self) then return end
    if self:GetQuest(strQuest) then
        table.Merge(self.Data.Quests[strQuest], tblInfo or self.Data.Quests[strQuest] or {})
        if SERVER then
            SendUsrMsg("UD_UpdateQuest", self, {strQuest, tblInfo or self.Data.Quests[strQuest]})
            self:SaveGame()
        end
        if CLIENT && GAMEMODE.QuestMenu then
            GAMEMODE.QuestMenu:LoadQuests()
        end
        return true
    end
    self:AddQuest(strQuest, tblInfo)
end

function Player:AddQuestKill(strNPC)
    if !ValidEntity(self) then return end
    local tblGivePlayers = {self}
    if #(self.Squad or {}) > 1 then tblGivePlayers = self.Squad end
    for _, ply in pairs(tblGivePlayers) do
        if ValidEntity(ply) then
            for strQuest, tblInfo in pairs(ply.Data.Quests or {}) do
                local tblQuestTable = QuestTable(strQuest)
                if tblInfo.Kills && tblInfo.Kills[strNPC] && tblInfo.Kills[strNPC] + 1 <= tblQuestTable.Kill[strNPC] then
                    tblInfo.Kills[strNPC] = tblInfo.Kills[strNPC] + 1
                    ply:UpdateQuest(strQuest, tblInfo)
                end
            end
        end
    end
end

function Player:CanAcceptQuest(strQuest)
    if !ValidEntity(self) then return false end
    local tblQuestTable = QuestTable(strQuest)
    if tblQuestTable && self:GetLevel() >= tblQuestTable.Level && !self:GetQuest(strQuest) then
        if tblQuestTable.QuestNeeded && !self:HasCompletedQuest(tblQuestTable.QuestNeeded) then return false end
        return true
    end
    return false
end

function Player:CanTurnInQuest(strQuest)
    if !ValidEntity(self) then return false end
    local tblQuestTable = QuestTable(strQuest)
    local tblPlayerQuestTable = self:GetQuest(strQuest)
    if tblQuestTable && !tblPlayerQuestTable.Done && tblPlayerQuestTable then
        for strNPC, intKillAmount in pairs(tblQuestTable.Kill or {}) do
            if tblPlayerQuestTable.Kills[strNPC] < intKillAmount then return false end
        end
        for strItem, intAmountNeeded in pairs(tblQuestTable.ObtainItems or {}) do
            if !self:HasItem(strItem, intAmountNeeded) then return false end
        end
        if self:HasRoomFor(tblQuestTable.GainedItems, -self:TotalWeightOf(tblQuestTable.ObtainItems or {})) then
            return true
        end
    end
end

if SERVER then
    function KillNPC(npcTarget, plyKiller, weapon)
        if npcTarget:GetNWInt("level") > 0 && plyKiller:IsPlayer() then
            local tblNPCTable = NPCTable(npcTarget:GetNWString("npc"))
            if !tblNPCTable then return end
            plyKiller:AddQuestKill(npcTarget:GetNWString("npc"))
        end
    end
    hook.Add("OnNPCKilled", "KillNPC", KillNPC)

    function Player:TurnInQuest(strQuest)
        if !ValidEntity(self) then return end
        if !self.UseTarget.Quest or self.UseTarget:GetPos():Distance(self:GetPos()) > 100 then return end
        local tblQuestTable = QuestTable(strQuest)
        if self:CanTurnInQuest(strQuest) then
            self:TakeItems(tblQuestTable.ObtainItems)
            self:GiveItems(tblQuestTable.GainedItems)
            self:ConCommand("play xhosters/iQuestComplete.wav")
            if tblQuestTable.GainedExp && tblQuestTable.GainedExp > 0 then
                self:GiveExp(tblQuestTable.GainedExp, true)
            end
            self.Data.Quests[strQuest].Done = true
            self:UpdateQuest(strQuest)
        end
    end
    concommand.Add("UD_TurnInQuest", function(ply, command, args) ply:TurnInQuest(args[1]) end)

    function Player:AcceptQuest(strQuest)
        if !ValidEntity(self) then return end
        if !self.UseTarget.Quest or self.UseTarget:GetPos():Distance(self:GetPos()) > 100 then return end
        if self:CanAcceptQuest(strQuest) then
            if QuestTable(strQuest).StartingItems then
                if self:HasRoomFor(QuestTable(strQuest).StartingItems) then
                    self:GiveItems(QuestTable(strQuest).StartingItems)
                    self:AddQuest(strQuest)
                    self:ConCommand("play xhosters/iQuestActivate.wav"
                end
            else
            self:ConCommand("play xhosters/iQuestActivate.wav")
                self:AddQuest(strQuest)
            end
        end
    end
    concommand.Add("UD_AcceptQuest", function(ply, command, args) ply:AcceptQuest(args[1]) end)
end

if CLIENT then
    usermessage.Hook("UD_UpdateQuest", function(usrMsg)
    self:ConCommand("play xhosters/iQuestUpdate.wav")
        local strQuest = usrMsg:ReadString()
        local strIncomingInfo = usrMsg:ReadString()
        --print(string.len(strQuest .. strIncomingInfo))
        --print(strQuest .. strIncomingInfo)
        LocalPlayer():UpdateQuest(strQuest, glon.decode(strIncomingInfo))
    end)
end