require("scripts/globals/settings")
require("scripts/globals/survival_guide_map")

dsp = dsp or {}
dsp.survivalGuide = dsp.survivalGuide or {}

-- Determines if the survival guide teleport cost is like if you had a Rhapsody in White key item. Does not affect UI! (Default: 0)
local SURVIVAL_GUIDE_TELEPORT_COST_GIL = 1000
local SURVIVAL_GUIDE_TELEPORT_COST_TABS = 50

-- This is used for the NationTeleport save/get
local travelType = dsp.teleport.type.SURVIVAL
local cutsceneID = 8500
dsp.survivalGuide.expansions = 3 + (4 * ENABLE_COP) + (8 * ENABLE_TOAU) + (16 * ENABLE_WOTG) + (2048 * ENABLE_SOA)

local optionMap =
{
    TELEPORT = 1,
    UNKNOWN = 2,
    SET_MENU_LAYOUT = 3,
    ADD_FAVORITE = 4,
    REMOVE_FAVORITE = 5,
    REPLACE_FAVORITE = 6,
    TELEPORT_MENU = 7
}

-------------------------------------------------
-- local functions
-------------------------------------------------

local function checkForRegisteredSurvivalGuide(player, guide)
    local group = guide.group
    local hasRegisteredGuide = player:hasTeleport(travelType, guide.groupIndex - 1, guide.group - 1)

    if not hasRegisteredGuide then
        player:messageSpecial(zones[guide.zoneId].text.COMMON_SENSE_SURVIVAL)
        player:addTeleport(travelType, guide.groupIndex - 1, guide.group - 1)

        return false
    end

    return true
end

local function teleportMenuUpdate(player, option)
    local choice = bit.band(option, 0xFF)

    if choice >= optionMap.SET_MENU_LAYOUT and choice <= optionMap.TELEPORT_MENU then
        local favorites = player:getTeleportMenu(travelType)

        local index = bit.rshift(bit.band(option, 0xFF0000), 16)

        if not (choice == optionMap.TELEPORT_MENU) then
            if choice == optionMap.ADD_FAVORITE then
                local temp = 0
                for x = 1, 9 do
                    temp = favorites[x]
                    favorites[x] = index
                    index = temp
                end
            elseif choice == optionMap.REMOVE_FAVORITE then
                for x = 1, 9 do
                    if favorites[x] == index then
                        for x = x, 8 do
                            favorites[x] = favorites[x+1]
						end

                        favorites[9] = -1
                        break
                    end
                end
            elseif choice == optionMap.REPLACE_FAVORITE then
                favorites[bit.rshift(option, 24) + 1] = index
            elseif choice == optionMap.SET_MENU_LAYOUT then
                favorites[10] = (bit.rshift(option, 16) and 1) or 0
            end

            player:setTeleportMenu(travelType, favorites)
        end

        for x = 1, 3 do
           favorites[1] = favorites[1] + favorites[x + 1] * 256 ^ x
           favorites[5] = favorites[5] + favorites[x + 5] * 256 ^ x
         end

         favorites[9] = favorites[9] + favorites[10] * 256

        player:updateEvent(favorites[1], favorites[5], favorites[9])
    end
end

-------------------------------------------------
-- public functions
-------------------------------------------------

dsp.survivalGuide.onTrigger = function(player)
    local currentZoneId = player:getZoneID()
    local tableIndex = zoneIdToGuideIdMap[currentZoneId]
    local guide = survivalGuides[tableIndex]

    if guide then
        -- If this survival guide hasn't been registered yet (saved to database) do that now.
        local foundRegisteredGuide = checkForRegisteredSurvivalGuide(player,
                                                                     guide)

        if foundRegisteredGuide then
            local param = bit.bor(tableIndex, bit.lshift(player:getCurrency("valor_point"), 16))

            -- Get the teleport menu option.
            -- Menu options can be organized by Region or Content.
            -- Default (0) is region.
            local teleportMenu = player:getTeleportMenu(travelType)

            if teleportMenu[10] == 1 then
                param = bit.bor(param, 0x0800)
            end

            if player:hasKeyItem(dsp.keyItem.RHAPSODY_IN_WHITE) then
                -- "Rhapsody in White" key item reduces teleport fee by 80%
                param = bit.bor(param, 0x2000)
            end

            local G1,G2,G3,G4 = unpack(player:getTeleport(travelType))

            -- param 1 = Does nothing.
            -- param 2 = current area, player amount of tabs, fee reducer(s) and menu layout (region/content).
            -- param 3 = gil
            -- param 4 = zones unlocked (group 1), set to -1 to enable all zones in the group.
            -- param 5 = Zones unlocked (group 2), set to -1 to enable all zones in the group.
            -- param 6 = Zones unlocked (group 3), set to -1 to enable all zones in the group.
            -- param 7 = zones unlocked (Zehrun mines and Eastern Adoulin), set to -1 to enable all zones in the group.
            -- param 8 = expansions available.
            player:startEvent(cutsceneID, 0, param, player:getGil(), G1, G2, G3, G4, dsp.survivalGuide.expansions)
        end
    else
        player:PrintToPlayer('Survival guides are not enabled!')
    end
end

dsp.survivalGuide.onEventUpdate = function(player, csid, option)
    teleportMenuUpdate(player, option)
end

dsp.survivalGuide.onEventFinish = function(player, eventId, option)
    if cutsceneID == eventId and bit.band(option, 0xFF) == optionMap.TELEPORT  then
        local selectedMenuId = bit.rshift(option, 16)

        if selectedMenuId <= 97 then
            local guide = survivalGuides[selectedMenuId]
            local currentZoneId = player:getZoneID()

            if guide and not (guide.zoneId == currentZoneId) then
                local teleportCostGil = SURVIVAL_GUIDE_TELEPORT_COST_GIL
                local teleportCostTabs = SURVIVAL_GUIDE_TELEPORT_COST_TABS

                -- If the player has the rhapsody in white, the cost is 10% of original gil or 20% of original tabs.
                -- GIL: 1000 -> 200
                -- TABS: 100 -> 10
                if player:hasKeyItem(dsp.keyItem.RHAPSODY_IN_WHITE) then
                    teleportCostGil = teleportCostGil * .2
                    teleportCostTabs = teleportCostTabs * .2
                end

                local canTeleport = false

                if bit.band(bit.rshift(option, 8), 1) == 1 then
                    -- Paying with tabs
                    if player:getCurrency('valor_point') > teleportCostTabs then
                        player:delCurrency('valor_point', teleportCostTabs)
                        canTeleport = true
                    end
                else
                    if player:getGil() > teleportCostGil then
                        player:delGil(teleportCostGil)
                        canTeleport = true
                    end
                end

                if canTeleport then
                    player:setPos(guide.posX, guide.posY, guide.posZ, guide.posRot, guide.zoneId)
                end
            end
        end
    end
end
