-----------------------------------
-- Area: Southern San d'Oria
--  NPC: Faulpie
-- Type: Leathercraft Guild Master
-- !pos -178.882 -2 9.891 230
-----------------------------------
local ID = require("scripts/zones/Southern_San_dOria/IDs")
require("scripts/globals/crafting")
require("scripts/globals/missions")
require("scripts/globals/status")
-----------------------------------

function onTrade(player, npc, trade)
    local signed = trade:getItem():getSignature() == player:getName() and 1 or 0
    local newRank = tradeTestItem(player, npc, trade, tpz.skill.LEATHERCRAFT)

    if
        newRank > 9 and
        player:getCharVar("LeathercraftExpertQuest") == 1 and
        player:hasKeyItem(tpz.keyItem.WAY_OF_THE_TANNER)
    then
        if signed ~=0 then
            player:setSkillRank(tpz.skill.LEATHERCRAFT, newRank)
            player:startEvent(649, 0, 0, 0, 0, newRank, 1)
            player:setCharVar("LeathercraftExpertQuest",0)
            player:setLocalVar("LeathercraftTraded",1)
        else
            player:startEvent(649, 0, 0, 0, 0, newRank, 0)
        end
    elseif newRank ~= 0 and newRank <=9 then
        player:setSkillRank(tpz.skill.LEATHERCRAFT, newRank)
        player:startEvent(649, 0, 0, 0, 0, newRank)
        player:setLocalVar("LeathercraftTraded",1)
    end
end

function onTrigger(player, npc)
    local craftSkill = player:getSkillLevel(tpz.skill.LEATHERCRAFT)
    local testItem = getTestItem(player, npc, tpz.skill.LEATHERCRAFT)
    local guildMember = isGuildMember(player, 7)
    local rankCap = getCraftSkillCap(player, tpz.skill.LEATHERCRAFT)
    local expertQuestStatus = 0
    local Rank = player:getSkillRank(tpz.skill.LEATHERCRAFT)
    local realSkill = (craftSkill - Rank) / 32
    local canRankUp = rankCap - realSkill -- used to make sure rank up isn't overridden by ASA mission
    if (guildMember == 1) then guildMember = 150995375; end
    if player:getCharVar("LeathercraftExpertQuest") == 1 then
        if player:hasKeyItem(tpz.keyItem.WAY_OF_THE_TANNER) then
            expertQuestStatus = 550
        else
            expertQuestStatus = 600
        end
    end

    if (player:getCurrentMission(ASA) == tpz.mission.id.asa.THAT_WHICH_CURDLES_BLOOD and guildMember == 150995375 and
        canRankUp >= 3) then
        local item = 0
        local asaStatus = player:getCharVar("ASA_Status")

        -- TODO: Other Enfeebling Kits
        if (asaStatus == 0) then
            item = 2779
        else
            printf("Error: Unknown ASA Status Encountered <%u>", asaStatus)
        end

        -- The Parameters are Item IDs for the Recipe
        player:startEvent(944, item, 2773, 917, 917, 2776, 4103)
    elseif expertQuestStatus == 550 then
        --[[
        Feeding the proper parameter currently hangs the client in cutscene. This may
        possibly be due to an unimplemented packet or function (display recipe?) Work
        around to present dialog to player to let them know the trade is ready to be
        received by triggering with lower rank up parameters.
        --]]
        player:showText(npc, 7014)
        player:showText(npc, 7016)
        player:startEvent(648, testItem, realSkill, 44, guildMember, 0, 0, 0, 0)
    else
        player:startEvent(648, testItem, realSkill, rankCap, guildMember, expertQuestStatus, 0, 0, 0)
    end
end

-- 648  649  760  761  762  763  764  765  770  771  772  773  774  775  944  914
function onEventUpdate(player, csid, option)
end

function onEventFinish(player, csid, option)
    local guildMember = isGuildMember(player, 7)

    if (csid == 648 and option == 2) then
        if guildMember == 1 then
            player:setCharVar("LeathercraftExpertQuest",1)
        end
    elseif (csid == 648 and option == 1) then
        local crystal = 4103 -- dark crystal
        if (player:getFreeSlotsCount() == 0) then
            player:messageSpecial(ID.text.ITEM_CANNOT_BE_OBTAINED, crystal)
        else
            player:addItem(crystal)
            player:messageSpecial(ID.text.ITEM_OBTAINED, crystal)
            signupGuild(player, guild.leathercraft)
        end
    else
        if player:getLocalVar("LeathercraftTraded") == 1 then
            player:tradeComplete()
            player:setLocalVar("LeathercraftTraded",0)
        end
    end
end
