mage-function.lua

local magefunction = {}

function file_unload()

    unalias_element_match()

end

function magefunction.precast(spell, action)

    local eventArgs = { handled = false, cancel = false }
    local spellMap = spell_map[spell.english]

    if job_precast then
        job_precast(spell, action, spellMap, eventArgs)
    end

    if eventArgs.cancel then
        cancel_spell()
        return
    end

    if eventArgs.handled then
        return
    end

    if handled_magic[spell.skill] then
        build_precast_magic_set(spell, action, spellMap, eventArgs)
        build_midcast_magic_set(spell, action, spellMap, eventArgs)

        equip(sets.Casting.Precast)
    elseif sets.JA[spell.english] then
        equip(sets.JA[spell.english])
    end

end

function magefunction.build_precast_magic_set(spell, action, spellMap, eventArgs)

    sets.Casting.Precast = sets.FC

    if sets.FC[spell.skill] then
        sets.Casting.Precast = set_combine(sets.Casting.Precast, sets.FC[spell.skill])

        if sets.FC[spell.skill][spell.english] then
            sets.Casting.Precast = set_combine(sets.Casting.Precast, sets.FC[spell.skill][spell.english])
        elseif sets.FC[spell.skill][spellMap] then
            sets.Casting.Precast = set_combine(sets.Casting.Precast, sets.FC[spell.skill][spellMap])
        end

        if sets.Staves.CastTime[spell.element] then
            sets.Casting.Precast = set_combine(sets.Casting.Precast, sets.Staves.CastTime[spell.element])
        end

    end

end

function magefunction.build_midcast_magic_set(spell, action, spellMap, eventArgs)

    sets.Casting.Midcast = sets[spell.skill] or {}

    if spell.skill == 'ElementalMagic' then
        build_elemental_magic_set(spell, action, spellMap)
    elseif spell.skill == 'HealingMagic' then
        build_healing_magic_set(spell, action, spellMap)
    elseif spell.skill == 'DarkMagic' then
        build_dark_magic_set(spell, action, spellMap)
    elseif spell.skill == 'EnhancingMagic' then
        build_enhancing_magic_set(spell, aciton, spellMap)
    elseif spell.skill == 'EnfeeblingMagic' then
        build_enfeebling_magic_set(spell, action, spellMap)
    elseif spell.skill == 'DivineMagic' then
        build_divine_magic_set(spell, action, spellMap)
    elseif spell.skill == 'Ninjutsu' then
        build_ninjutsu_set(spell, action, spellMap)
    end

    if (spell.skill == 'ElementalMagic' and spellMap ~= 'Debuff') or spellMap == 'Cure' or spell.english:find('Drain') or spell.english:find('Aspir') or (spell.skill == 'DivineMagic' and not spell.english == 'Flash') then
        weather_check(spell, spellMap)
    end

    if build_post_midcast_set then
        build_post_midcast_set(spell, action, spellMap)
    end

end

function magefunction.build_elemental_magic_set(spell, action, spellMap)

    if sets.ElementalMagic[spell.english] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.ElementalMagic[spell.english])
    elseif sets.ElementalMagic[spellMap] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.ElementalMagic[spellMap])
    else
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.ElementalMagic.Damage)
    end

    if spellMap ~= 'Debuff' and spell.element == 'Earth' then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.ElementalMagic.Earth)
    end

end

function magefunction.build_healing_magic_set(spell, action, spellMap)

    if sets.HealingMagic[spell.english] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.HealingMagic[spell.english])
    elseif sets.HealingMagic[spellMap] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.HealingMagic[spellMap])
    end

end

function magefunction.build_dark_magic_set(spell, action, spellMap)

    if sets.DarkMagic[spell.english] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.DarkMagic[spell.english])
    elseif sets.DarkMagic[spellMap] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.DarkMagic[spellMap])
    else
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.DarkMagic.Damage)
    end

end

function magefunction.build_enhancing_magic_set(spell, action, spellMap)

    if sets.EnhancingMagic[spell.name] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.EnhancingMagic[spell.name])
    elseif sets.EnhancingMagic[spellMap] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.EnhancingMagic[spellMap])
    end

end

function magefunction.build_enfeebling_magic_set(spell, action, spellMap)

    if spellMap == 'Potency' then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.EnfeeblingMagic[spell.type])
    end

end

function magefunction.build_divine_magic_set(spell, action, spellMap)

    if sets.DivineMagic[spell.name] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.DivineMagic[spell.name])
    elseif sets.DivineMagic[spellMap] then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.DivineMagic[spellMap])
    else
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.DivineMagic.Damage)
    end

end

function magefunction.build_ninjutsu_set(spell, action, spellMap)

    -- TODO: Build Ninjutsu Sets for midcast

end

function magefunction.weather_check(spell, spellMap)

    if spell.element == world.day_element or spell.element == world.weather_element then
        sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.Obis.Default)

        if spellMap ~= 'Helix' then
            sets.Casting.Midcast = set_combine(sets.Casting.Midcast, sets.Obis[spell.element])
        end
    end

end

function magefunction.midcast(spell, action)

    if handled_magic[spell.skill] then
        equip(sets.Casting.Midcast)
    end

end

function magefunction.aftercast(spell, action)

    if T{'Idle', 'Resting', 'Engaged'}:contains(player.status) then
        equip(sets[player.status])
    end

end

function magefunction.buff_change(buff, gain)

    if job_buff_change then
        job_buff_change(buff, gain)
    end

    if buff == 'Sandstorm' then
        update_idle_set()
    end

end

function magefunction.status_change(new, old)

    if T{'Zoning', 'Fishing', 'Event', 'Dead'}:contains(old) then
        return
    end

    if T{'Idle', 'Resting', 'Engaged'}:contains(new) then
        equip(sets[new])
    end

end

function magefunction.self_command(command)

    local commandParams = command:split(' ')
    local eventArgs = { handled = false }

    if job_self_command then
        job_self_command(commandParams, eventArgs)
    end

    if eventArgs.handled then return end

    -- Handles matching spell element to day element
    if spell_type[commandParams[1]] then
        cast_element_match(commandParams)
    elseif commandParams[1] == 'update' then
        if commandParams[2] == 'idle' then
            update_idle_set()
        end
    end

end

--[[ cast_element_match info
    spell_type: mapped table containing stype, description, default_tier, max_tier, default_target
    cmdParams: parameters passed from the self_command function,
        expected values are <tier> <target> in that order, both values are optional
--]]
function magefunction.cast_element_match(cmdParams)

    local sType = spell_type[cmdParams[1]].stype
    local tier = spell_type[cmdParams[1]].default_tier
    local max_tier = spell_type[cmdParams[1]].max_tier
    local target = spell_type[cmdParams[1]].default_target
    local spell = element_match[world.day_element][sType]

    if not cmdParams[2] then
        if tier ~= 1 then
            windower.add_to_chat(123, 'Placeholder')
            spell = spell .. ' ' .. tier_map[tier]
        end
    elseif tonumber(cmdParams[2]) then
        temp_tier = tonumber(cmdParams[2])
        if temp_tier > 1 and temp_tier < max_tier then
            spell = spell .. ' ' .. tier_map[temp_tier]
        elseif temp_tier ~= 1 then
            windower.add_to_chat(123, 'Invalid tier passed to function for [' .. sType .. '], defaulting to tier [' .. tier .. '].')

            if tier ~= 1 then
                spell = spell .. ' ' .. tier_map[tier]
            end
        end

        target = cmdParams[3] or target
    else
        target = cmdParams[2]
    end

    windower.send_command('input /ma "' .. spell .. '" ' .. target)
end

--[[ update_idle_set()
    updates Idle set with Desert Boots if used and keeps Sublimation set if sublimation active
    --]]
function update_idle_set()

    if world.weather_element == 'Earth' or buffactive.Sandstorm then
        sets.Idle = set_combine(sets.Idle, sets.Kite)
    else
        sets.Idle = sets.Idle.Default
    end

    if buffactive['Sublimation: Activated'] then
        sets.Idle = set_combine(sets.Idle, sets.Sublimation)
    end

end

--[[ alias_element_match()
    adds alias commands for casting spells matching the element of the day
--]]
function magefunction.alias_element_match()

    for i,v in pairs(spell_type) do
        windower.send_command('alias ' .. i .. ' gs c ' .. i)
    end

end

--[[ unalias_element_match()
    removes alias commands for casting spells matching the element of the day
--]]
function magefunction.unalias_element_match()

    for i,v in pairs(spell_type) do
        windower.send_command('unalias ' .. i)
    end

end

--[[ This function can be removed if you don't use desert boots
    calls Idle set update on any weather change to accomodate Desert Boots usage
    --]]
windower.register_event('weather change', function(id, name)

    if player.status == 'Zoning' then return end

    windower.send_command('gs c update idle')

end)

return magefunction