The Last Dance II: The Show Must Go On

if player.main_job == 'DNC' then
            if missingHP < 40 and spell.target.name == player.name then
                -- Not worth curing yourself for so little.
                -- Don't block when curing others to allow for waking them up.
                add_to_chat(122,'Full HP!')
                eventArgs.cancel = true
                return
            elseif missingHP < 200 then
                if spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				end	
            elseif missingHP < 600 then                
				if spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            elseif missingHP < 1100 then
                if spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[194] < 1 and player.tp > 800 then 
					newWaltz = 'Curing Waltz V'
					waltzID = 194
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            elseif missingHP < 1500 then
                if spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[194] < 1 and player.tp > 800 then 
					newWaltz = 'Curing Waltz V'
					waltzID = 194
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            else
                if spell_recasts[194] < 1 and player.tp > 800 then 
					newWaltz = 'Curing Waltz V'
					waltzID = 194
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            end

function refine_waltz(spell, action, spellMap, eventArgs)
    if spell.type ~= 'Waltz' then
        return
    end
    
    -- Don't modify anything for Healing Waltz or Divine Waltzes
    if spell.english == "Healing Waltz" or spell.english == "Divine Waltz" or spell.english == "Divine Waltz II" then
        return		
    end

    local newWaltz = spell.english
    local waltzID
	local spell_recasts = windower.ffxi.get_spell_recasts()
            
    --if spell.english == "Divine Waltz" or spell.english == "Divine Waltz II" then
    --    if spell_recasts[spell.recast_id] < 1 and player.tp > 400 then
	--		return
	--	else if	spell_recasts[spell.recast_id] < 1 and player.tp > 400 then
    --end
	
    local missingHP
    
    -- If curing ourself, get our exact missing HP
    if spell.target.type == "SELF" then
        missingHP = player.max_hp - player.hp
    -- If curing someone in our alliance, we can estimate their missing HP
    elseif spell.target.isallymember then
        local target = find_player_in_alliance(spell.target.name)
        local est_max_hp = target.hp / (target.hpp/100)
        missingHP = math.floor(est_max_hp - target.hp)
    end
    
    -- If we have an estimated missing HP value, we can adjust the preferred tier used.
    if missingHP ~= nil then
        if player.main_job == 'DNC' then
            if missingHP < 40 and spell.target.name == player.name then
                -- Not worth curing yourself for so little.
                -- Don't block when curing others to allow for waking them up.
                add_to_chat(122,'Full HP!')
                eventArgs.cancel = true
                return
            elseif missingHP < 200 then
                if spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				end	
            elseif missingHP < 600 then                
				if spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            elseif missingHP < 1100 then
                if spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[194] < 1 and player.tp > 800 then 
					newWaltz = 'Curing Waltz V'
					waltzID = 194
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            elseif missingHP < 1500 then
                if spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[194] < 1 and player.tp > 800 then 
					newWaltz = 'Curing Waltz V'
					waltzID = 194
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            else
                if spell_recasts[194] < 1 and player.tp > 800 then 
					newWaltz = 'Curing Waltz V'
					waltzID = 194
				elseif spell_recasts[193] < 1 and player.tp > 650 then
					newWaltz = 'Curing Waltz IV'
					waltzID = 193
				elseif spell_recasts[192] < 1 and player.tp > 500 then
					newWaltz = 'Curing Waltz III'
					waltzID = 192
				elseif spell_recasts[191] < 1 and player.tp > 350 then
					newWaltz = 'Curing Waltz II'
					waltzID = 191
				elseif spell_recasts[190] < 1 and player.tp > 200 then 
					newWaltz = 'Curing Waltz'
					waltzID = 190
				end	
            end
        elseif player.sub_job == 'DNC' then
            if missingHP < 40 and spell.target.name == player.name then
                -- Not worth curing yourself for so little.
                -- Don't block when curing others to allow for waking them up.
                add_to_chat(122,'Full HP!')
                eventArgs.cancel = true
                return
            elseif missingHP < 150 then
                newWaltz = 'Curing Waltz'
                waltzID = 190
            elseif missingHP < 300 then
                newWaltz = 'Curing Waltz II'
                waltzID = 191
            else
                newWaltz = 'Curing Waltz III'
                waltzID = 192
            end
        else
            -- Not dnc main or sub; bail out
            return
        end
    end

    local tpCost = waltz_tp_cost[newWaltz]

    local downgrade
    
    -- Downgrade the spell to what we can afford
    --if player.tp < tpCost and not buffactive.trance then
        --[[ Costs:
            Curing Waltz:     200 TP
            Curing Waltz II:  350 TP
            Curing Waltz III: 500 TP
            Curing Waltz IV:  650 TP
            Curing Waltz V:   800 TP
            Divine Waltz:     400 TP
            Divine Waltz II:  800 TP
        --]]
        
    --    if player.tp < 200 then
    --        add_to_chat(122, 'Insufficient TP ['..tostring(player.tp)..']. Cancelling.')
    --        eventArgs.cancel = true
    --        return
    --    elseif player.tp < 350 then
    --        newWaltz = 'Curing Waltz'
    --    elseif player.tp < 500 then
    --        newWaltz = 'Curing Waltz II'
    --    elseif player.tp < 650 then
    --        newWaltz = 'Curing Waltz III'
    --    elseif player.tp < 800 then
    --        newWaltz = 'Curing Waltz IV'
    --    end
    --    
    --    downgrade = 'Insufficient TP ['..tostring(player.tp)..']. Downgrading to '..newWaltz..'.'
    --end

    
    if newWaltz ~= spell.english then
        send_command('@input /ja "'..newWaltz..'" '..tostring(spell.target.raw))
        --if downgrade then
        --    add_to_chat(122, downgrade)
        --end
        eventArgs.cancel = true
        return
    end

    if missingHP and missingHP > 0 then
        add_to_chat(122,'Trying to cure '..tostring(missingHP)..' HP using '..newWaltz..'.')
    end
end

    if spell.english == "Divine Waltz" or spell.english == "Divine Waltz II" then
        if spell_recasts[262] < 1 and player.tp > 800 then
			newWaltz = 'Divine Waltz II'
			waltzID = 262
		elseif spell_recasts[262] > 1 and player.tp > 400 then
			newWaltz = 'Divine Waltz'
			waltzID = 195
			return
		end	
    end 

function get_target_missing_hp(target)
    if target.type == "SELF" then
        return player.max_hp - player.hp
    end

    if not target.isallymember then
        return
    end

    local target = find_player_in_alliance(target.name)

    return math.floor((target.hp / (target.hpp / 100)) - target.hp)
end

function get_dnc_level()
    if player.sub_job == "DNC" then
        return player.sub_job_level
    end

    return player.main_job_level
end

function refine_waltz(spell)
    if player.tp < 200 then
        add_to_chat(122, "No TP!")
        cancel_spell()
        return
    end

    local dncLevel = get_dnc_level()
    local spellRecasts = windower.ffxi.get_spell_recasts()
    local missingHP = get_target_missing_hp(spell.target)

    if not missingHP then
        return true
    end

    if spell.target.type == "SELF" and missingHP < 40 then
        add_to_chat(122, "Full HP!")
        cancel_spell()
        return
    end

    local waltzes =
        table.filter(
        {
            {id = 190, name = "Curing Waltz", level = 15, tp = 200, hp = 300},
            {id = 191, name = "Curing Waltz II", level = 30, tp = 350, hp = 600},
            {id = 192, name = "Curing Waltz III", level = 45, tp = 500, hp = 1000},
            {id = 193, name = "Curing Waltz IV", level = 70, tp = 650, hp = 1500},
            {id = 194, name = "Curing Waltz V", level = 87, tp = 800, hp = 2000}
        },
        function(waltz)
            return waltz.level <= dncLevel and waltz.tp <= player.tp and spellRecasts[waltz.id] < 1
        end
    )

    local newWaltz = "Curing Waltz"
    for _, waltz in ipairs(waltzes) do
        if waltz.hp > missingHP then
            break
        end

        newWaltz = waltz.name
    end

    if newWaltz ~= spell.english then
        send_command('@input /ja "' .. newWaltz .. '" ' .. tostring(spell.target.raw))
        cancel_spell()
        return
    end

    return true
end

if spell.english:startswith("Curing Waltz") and not refine_waltz(spell) then
    return
end