Bokura_BRD

-- *** Credit goes to Flippant for helping me with Gearswap *** --
-- ** I Use Byrth & Motenten's Functions ** --

function get_sets()
    AccIndex = 1
    AccArray = {"LowACC","MidACC","HighACC"} -- 3 Levels Of Accuracy Sets For TP/WS. First Set Is LowACC. Add More ACC Sets If Needed Then Create Your New ACC Below --
    IdleIndex = 1
    IdleArray = {"Movement","Refresh"} -- Default Idle Set Is Movement --
    Armor = 'None'
    timer_reg = {}
    pianissimo_cycle = false
    Daurdabla = 'OFF' -- Set Default Lock Daurdabla ON or OFF Here --
    Elemental_Staff = 'ON' -- Set Default Precast Elemental Staves ON or OFF Here --
    Lock_Main = 'OFF' -- Set Default Lock Main Weapon ON or OFF Here --
    target_distance = 5 -- Set Default Distance Here --
    select_default_macro_book() -- Change Default Macro Book At The End --

    -- Daurdabla Trigger Songs: Use The Following Songs or Daurdabla Toggle To Equip Daurdabla, Add or Remove Daurdabla Songs --
    DaurdSongs = S{"Army's Paeon","Army's Paeon II","Shining Fantasia","Herb Pastoral","Goblin Gavotte"}

    Cure_Spells = {"Cure","Cure II","Cure III","Cure IV"} -- Cure Degradation --
    Curaga_Spells = {"Curaga","Curaga II"} -- Curaga Degradation --
    sc_map = {SC1 = "ChocoboMazurka", SC2 = "HerbPastoral", SC3 = "GoblinGavotte"} -- 3 Additional Binds. Can Change Whatever JA/WS/Spells You Like Here. Remember Not To Use Spaces. --

    sets.Idle = {}
    -- Idle Sets --
    sets.Idle.Refresh = {}
    sets.Idle.Movement = set_combine(sets.Idle.Refresh,{
            feet="Fili Cothurnes +1"})
    sets.Resting = set_combine(sets.Idle.Movement,{})

    -- PDT Set --
    sets.PDT = {}

    sets.Precast = {}
    -- Song Precast Set (empty = To Fix Club/Staff Issue) --
    sets.Precast.SongCast = {
            sub=empty,
            range=empty,
            ammo="Impatiens"}

    -- Elemental Staves --
    sets.Precast.Lightning = {main='Apamajas I'}
    sets.Precast.Water = {main='Haoma I'}
    sets.Precast.Fire = {main='Atar I'}
    sets.Precast.Ice = {main='Vourukasha I'}
    sets.Precast.Wind = {main='Vayuvata I'}
    sets.Precast.Earth = {main='Vishrava I'}
    sets.Precast.Light = {main='Arka I'}
    sets.Precast.Dark = {main='Xsaeta I'}

    -- Precast Daurdabla Set --
    sets.Precast.Daurdabla = {
            range="Daurdabla",
            ammo=empty}

    -- Fastcast Set --
    sets.Precast.FastCast = {}

    -- Cure Precast Set --
    sets.Precast.Cure = {}

    -- Midcast Base Set --
    sets.Midcast = {}

    -- Song Debuff Set --
    sets.Midcast.Wind = {
            main="Carnwenhan",
            sub="Genbu's Shield",
            range="Gjallarhorn",
            ammo=empty}

    -- Song Buff Set --
    sets.Midcast.WindBuff = {
            main="Carnwenhan",
            sub="Genbu's Shield",
            range="Gjallarhorn",
            ammo=empty}

    sets.Midcast.March = {hands="Fili Manchettes +1"}
    sets.Midcast.Minuet = {body="Fili Hongreline +1"}
    sets.Midcast.Madrigal = {head="Fili Calot +1"}
    sets.Midcast.Ballad = {legs="Fili Rhingrave +1"}
    sets.Midcast.Scherzo = {feet="Fili Cothurnes +1"}
    sets.Midcast.Mazurka = {head="Nahtirah Hat"}
    sets.Midcast.Paeon = {head="Brioso Roundlet +1"}
    sets.Midcast.Finale = {}
    sets.Midcast.Lullaby = {}

    -- Cure Set --
    sets.Midcast.Cure = {}

    -- Curaga Set --
    sets.Midcast.Curaga = {}

    -- Haste Set --
    sets.Midcast.Haste = set_combine(sets.Precast.FastCast,{})

    -- Cursna Set --
    sets.Midcast.Cursna = set_combine(sets.Midcast.Haste,{})

    -- Stoneskin Set --
    sets.Midcast.Stoneskin = set_combine(sets.Midcast.Haste)

    -- JA Sets --
    sets.JA = {}
    sets.JA.Nightingale = {feet="Bihu Slippers +1"}
    sets.JA.Troubadour = {body="Bihu Jstcorps +1"}
    sets.JA["Soul Voice"] = {legs="Bihu Cannions +1"}

    -- Waltz --
    sets.Waltz = {}

    -- Melee Sets --
    sets.Melee = {}
    sets.Melee.MidACC = set_combine(sets.Melee,{})
    sets.Melee.HighACC = set_combine(sets.Melee.MidACC,{})

    -- WS Base Set --
    sets.WS = {}

    sets.WS.Exenterator = {}
    sets.WS.Exenterator.MidACC = set_combine(sets.WS.Exenterator,{})
    sets.WS.Exenterator.HighACC = set_combine(sets.WS.Exenterator.MidACC,{})

    sets.WS.Evisceration = {}
    sets.WS.Evisceration.MidACC = set_combine(sets.WS.Evisceration,{})
    sets.WS.Evisceration.HighACC = set_combine(sets.WS.Evisceration.MidACC,{})

    sets.WS["Mercy Stroke"] = {}
    sets.WS["Mercy Stroke"].MidACC = set_combine(sets.WS["Mercy Stroke"],{})
    sets.WS["Mercy Stroke"].HighACC = set_combine(sets.WS["Mercy Stroke"].MidACC,{})

    sets.WS["Rudra's Storm"] = {}
    sets.WS["Rudra's Storm"].MidACC = set_combine(sets.WS["Rudra's Storm"],{})
    sets.WS["Rudra's Storm"].HighACC = set_combine(sets.WS["Rudra's Storm"].MidACC,{})

    sets.WS["Mordant Rime"] = {}
end

function pretarget(spell,action)
    if spell.action_type == 'Magic' and buffactive.silence then -- Auto Use Echo Drops If You Are Silenced --
        cancel_spell()
        send_command('input /item "Echo Drops" <me>')
    elseif spell.type == "WeaponSkill" and spell.target.distance > target_distance and player.status == 'Engaged' then -- Cancel WS If You Are Out Of Range --
        cancel_spell()
        add_to_chat(123, spell.name..' Canceled: [Out of Range]')
        return
    elseif spell.type == "BardSong" and spell.target.name == player.name and buffactive.Pianissimo then -- Change Target From <me> To <t> When Pianissimo Is Active --
        change_target('<t>')
    elseif spell.type == 'BardSong' and spell.target.type and spell.target.type == 'PLAYER' and not buffactive.Pianissimo and not spell.target.charmed and not pianissimo_cycle then -- Auto Pianoissimo When You Cast A Song On A Player --
        cancel_spell()
        pianissimo_cycle = true
        send_command('input /ja "Pianissimo" <me>;wait 1.5;input /ma "'..spell.name..'" '..spell.target.name..';')
        return
    elseif spell.english:ifind("Cure") and player.mp<actualCost(spell.mp_cost) then
        degrade_spell(spell,Cure_Spells)
    elseif spell.english:ifind("Curaga") and player.mp<actualCost(spell.mp_cost) then
        degrade_spell(spell,Curaga_Spells)
    end
    if spell.name ~= 'Pianissimo' then
        pianissimo_cycle = false
    end
end

function precast(spell,action)
    if spell.action_type == 'Magic' then
        if buffactive.silence or spell.target.distance > 16+target_distance then -- Cancel Magic or Ninjutsu or BardSong If You Are Silenced or Out of Range --
            cancel_spell()
            add_to_chat(123, spell.name..' Canceled: [Silenced or Out of Casting Range]')
            return
        else
            if spell.type == 'BardSong' then
                if Daurdabla == 'ON' then
                    equip(sets.Precast.Daurdabla)
                else
                    if buffactive.Nightingale then
                        equip_song_gear(spell)
                        return
                    else
                        equip_song_gear(spell)
                        equip(sets.Precast.SongCast)
                    end
                end
            elseif spell.english:startswith('Cur') and spell.english ~= "Cursna" then
                equip(sets.Precast.Cure)
            elseif spell.english == 'Utsusemi: Ni' then
                if buffactive['Copy Image (3)'] then
                    cancel_spell()
                    add_to_chat(123, spell.name .. ' Canceled: [3 Images]')
                    return
                else
                    equip(sets.Precast.FastCast)
                end
            else
                equip(sets.Precast.FastCast)
            end
        end
    elseif spell.type == "WeaponSkill" then
        if player.status ~= 'Engaged' then -- Cancel WS If You Are Not Engaged. Can Delete It If You Don't Need It --
            cancel_spell()
            add_to_chat(123,'Unable To Use WeaponSkill: [Disengaged]')
            return
        else
            equipSet = sets.WS
            if equipSet[spell.english] then
                equipSet = equipSet[spell.english]
            end
            if equipSet[AccArray[AccIndex]] then
                equipSet = equipSet[AccArray[AccIndex]]
            end
            if spell.english == "Evisceration" and player.tp > 2990 then
                equipSet = set_combine(equipSet,{ear1="Jupiter's Pearl"})
            end
            equip(equipSet)
        end
    elseif spell.type == "JobAbility" then
        if sets.JA[spell.english] then
            equip(sets.JA[spell.english])
        end
    elseif spell.type == "Waltz" then
        refine_waltz(spell,action)
        equip(sets.Waltz)
    elseif spell.english == 'Spectral Jig' and buffactive.Sneak then
        cast_delay(0.2)
        send_command('cancel Sneak')
    end
    if sets.Precast[spell.element] and not buffactive.Nightingale and Elemental_Staff == 'ON' then
        equip(sets.Precast[spell.element])
    end
end

function midcast(spell,action)
    equipSet = {}
    if spell.action_type == 'Magic' then
        equipSet = sets.Midcast
        if equipSet[spell.english] then
            equipSet = equipSet[spell.english]
        elseif spell.english:startswith('Cur') and spell.english ~= "Cursna" then
            if spell.english:startswith('Cure') then
                equipSet = equipSet.Cure
            elseif spell.english:startswith('Cura') then
                equipSet = equipSet.Curaga
            end
            if world.day_element == spell.element or world.weather_element == spell.element then
                equipSet = set_combine(equipSet,{back="Twilight Cape",waist="Hachirin-no-Obi"})
            end
        elseif spell.english == "Stoneskin" then
            if buffactive.Stoneskin then
                send_command('@wait 2.8;cancel stoneskin')
            end
            equipSet = equipSet.Stoneskin
        elseif spell.english == "Sneak" then
            if spell.target.name == player.name and buffactive['Sneak'] then
                send_command('cancel sneak')
            end
            equipSet = equipSet.Haste
        elseif spell.english:startswith('Utsusemi') then
            if spell.english == 'Utsusemi: Ichi' and (buffactive['Copy Image'] or buffactive['Copy Image (2)'] or buffactive['Copy Image (3)']) then
                send_command('@wait 1.7;cancel Copy Image*')
            end
            equipSet = equipSet.Haste
        elseif spell.english == 'Monomi: Ichi' then
            if buffactive['Sneak'] then
                send_command('@wait 1.7;cancel sneak')
            end
            equipSet = equipSet.Haste
        elseif spell.type == 'BardSong' then
            if Daurdabla == 'ON' then
                equip(sets.Precast.Daurdabla)
            else
                equip_song_gear(spell)
            end
        end
    end
    equip(equipSet)
end

function aftercast(spell,action)
    if midaction() then
        return
    else
        status_change(player.status)
    end
end

function status_change(new,old)
    check_equip_lock()
    if Armor == 'PDT' then
        equip(sets.PDT)
    elseif new == 'Engaged' then
        equipSet = sets.Melee
        if equipSet[AccArray[AccIndex]] then
            equipSet = equipSet[AccArray[AccIndex]]
        end
        equip(equipSet)
    elseif new == 'Idle' then
        equipSet = sets.Idle
        if equipSet[IdleArray[IdleIndex]] then
            equipSet = equipSet[IdleArray[IdleIndex]]
        end
        if buffactive['Reive Mark'] then -- Equip Arciela's Grace +1 During Reive --
            equipSet = set_combine(equipSet,{neck="Arciela's Grace +1"})
        end
        if world.area:endswith('Adoulin') then
            equipSet = set_combine(equipSet,{body="Councilor's Garb"})
        end
        equip(equipSet)
    elseif new == 'Resting' then
        equip(sets.Resting)
    end
end

function buff_change(buff,gain)
    buff = string.lower(buff)
    if buff == "aftermath: lv.3" then -- AM3 Timer/Countdown --
        if gain then
            send_command('timers create "Aftermath: Lv.3" 180 down;wait 150;input /echo Aftermath: Lv.3 [WEARING OFF IN 30 SEC.];wait 15;input /echo Aftermath: Lv.3 [WEARING OFF IN 15 SEC.];wait 5;input /echo Aftermath: Lv.3 [WEARING OFF IN 10 SEC.]')
        else
            send_command('timers delete "Aftermath: Lv.3"')
            add_to_chat(123,'AM3: [OFF]')
        end
    elseif buff == 'weakness' then -- Weakness Timer --
        if gain then
            send_command('timers create "Weakness" 300 up')
        else
            send_command('timers delete "Weakness"')
        end
    end
    if not midaction() then
        status_change(player.status)
    end
end

-- In Game: //gs c (command), Macro: /console gs c (command), Bind: gs c (command) --
function self_command(command)
    if command == 'C1' then
        send_command('input /ma "Victory March" <me>')
        add_to_chat(158,'Melee Speed II: [Victory March]')
    elseif command == 'C2' then
        send_command('input /ma "Advancing March" <me>')
        add_to_chat(158,'Melee Speed: [Advancing March]')
    elseif command == 'C3' then
        send_command('input /ma "Valor Minuet V" <me>')
        add_to_chat(158,'Melee Attack: [Valor Minuet V]')
    elseif command == 'C5' then
        send_command('input /ma "Valor Minuet IV" <me>')
        add_to_chat(158,'Melee Attack: [Valor Minuet IV]')
    elseif command == 'C9' then
        send_command('input /ma "Blade Madrigal" <me>')
        add_to_chat(158,'Melee Accuracy II: [Blade Madrigal]')
    elseif command == 'C10' then
        send_command('input /ma "Sword Madrigal" <me>')
        add_to_chat(158,'Melee Accuracy: [Sword Madrigal]')
    elseif command == 'C15' then -- PDT Toggle --
        if Armor == 'PDT' then
            Armor = 'None'
            add_to_chat(123,'PDT Set: [Unlocked]')
        else
            Armor = 'PDT'
            add_to_chat(158,'PDT Set: [Locked]')
        end
        status_change(player.status)
    elseif command == 'C17' then -- Lock Main Weapon Toggle --
        if Lock_Main == 'ON' then
            Lock_Main = 'OFF'
            add_to_chat(123,'Main Weapon: [Unlocked]')
        else
            Lock_Main = 'ON'
            add_to_chat(158,'Main Weapon: [Locked]')
        end
        status_change(player.status)
    elseif command == 'C7' then -- Daurdabla Toggle --
        if Daurdabla == 'ON' then
            Daurdabla = 'OFF'
            add_to_chat(123,'Daurdabla: [OFF]')
        else
            Daurdabla = 'ON'
            add_to_chat(158,'Daurdabla: [ON]')
        end
        status_change(player.status)
    elseif command == 'C16' then -- Accuracy Level Toggle --
        AccIndex = (AccIndex % #AccArray) + 1
        status_change(player.status)
        add_to_chat(158,'Accuracy Level: ' .. AccArray[AccIndex])
    elseif command == 'C12' then -- Auto Update Gear Toggle --
        status_change(player.status)
        add_to_chat(158,'Auto Update Gear')
    elseif command == 'C8' then -- Distance Toggle --
        if player.target.distance then
            target_distance = math.floor(player.target.distance*10)/10
            add_to_chat(158,'Distance: '..target_distance)
        else
            add_to_chat(123,'No Target Selected')
        end
    elseif command == 'C6' then -- Idle Toggle --
        IdleIndex = (IdleIndex % #IdleArray) + 1
        add_to_chat(158,'Idle Set: '..IdleArray[IdleIndex])
        status_change(player.status)
    elseif command:match('^SC%d$') then
        send_command('//' .. sc_map[command])
    end
end

function check_equip_lock() -- Lock Equipment Here --
    if player.equipment.left_ring == "Warp Ring" or player.equipment.left_ring == "Capacity Ring" or player.equipment.right_ring == "Warp Ring" or player.equipment.right_ring == "Capacity Ring" then
        disable('ring1','ring2')
    elseif player.equipment.back == "Mecisto. Mantle" or player.equipment.back == "Aptitude Mantle +1" or player.equipment.back == "Aptitude Mantle" then
        disable('back')
    elseif Lock_Main == 'ON' then
        disable('main','sub')
    else
        enable('main','sub','ring1','ring2','back')
    end
end

function equip_song_gear(spell)
    if DaurdSongs:contains(spell.english) then
        equip(sets.Precast.Daurdabla)
        add_to_chat(158,'Daurdabla: [ON]')
    else
        if spell.target.type == 'MONSTER' then
            equip(sets.Midcast.Wind)
            if string.find(spell.english,'Finale') then equip(sets.Midcast.Finale) end
            if string.find(spell.english,'Lullaby') then equip(sets.Midcast.Lullaby) end
        else
            equip(sets.Midcast.WindBuff)
            if string.find(spell.english,'March') then equip(sets.Midcast.March) end
            if string.find(spell.english,'Minuet') then equip(sets.Midcast.Minuet) end
            if string.find(spell.english,'Madrigal') then equip(sets.Midcast.Madrigal) end
            if string.find(spell.english,'Ballad') then equip(sets.Midcast.Ballad) end
            if string.find(spell.english,'Scherzo') then equip(sets.Midcast.Scherzo) end
            if string.find(spell.english,'Mazurka') then equip(sets.Midcast.Mazurka) end
            if string.find(spell.english,'Paeon') then equip(sets.Midcast.Paeon) end
        end
    end
end

function actualCost(originalCost)
    if buffactive["Penury"] then
        return originalCost*.5
    elseif buffactive["Light Arts"] or buffactive["Addendum: White"] then
        return originalCost*.9
    elseif buffactive["Dark Arts"] or buffactive["Addendum: Black"] then
        return originalCost*1.1
    else
        return originalCost
    end
end

function degrade_spell(spell,degrade_array)
    spell_index = table.find(degrade_array,spell.name)
    if spell_index > 1 then
        new_spell = degrade_array[spell_index - 1]
        change_spell(new_spell,spell.target.raw)
        add_to_chat(8,spell.name..' Canceled: ['..player.mp..'/'..player.max_mp..'MP::'..player.mpp..'%] Casting '..new_spell..' instead.')
    end
end

function change_spell(spell_name,target)
    cancel_spell()
    send_command('//'..spell_name..' '..target)
end

function refine_waltz(spell,action)
    if spell.type ~= 'Waltz' then
        return
    end

    if spell.name == "Healing Waltz" or spell.name == "Divine Waltz" then
        return
    end

    local newWaltz = spell.english
    local waltzID

    local missingHP

    if spell.target.type == "SELF" then
        missingHP = player.max_hp - player.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 missingHP ~= nil then
        if player.sub_job == 'DNC' then
            if missingHP < 40 and spell.target.name == player.name then
                add_to_chat(123,'Full HP!')
                cancel_spell()
                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
            return
        end
    end

    local waltzTPCost = {['Curing Waltz'] = 20, ['Curing Waltz II'] = 35, ['Curing Waltz III'] = 50}
    local tpCost = waltzTPCost[newWaltz]

    local downgrade

    if player.tp < tpCost then

        if player.tp < 20 then
            add_to_chat(123, 'Insufficient TP ['..tostring(player.tp)..']. Cancelling.')
            cancel_spell()
            return
        elseif player.tp < 35 then
            newWaltz = 'Curing Waltz'
        elseif player.tp < 50 then
            newWaltz = 'Curing Waltz II'
        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(8, downgrade)
        end
        cancel_spell()
        return
    end

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

function find_player_in_alliance(name)
    for i,v in ipairs(alliance) do
        for k,p in ipairs(v) do
            if p.name == name then
                return p
            end
        end
    end
end

function sub_job_change(newSubjob, oldSubjob)
    select_default_macro_book()
end

function set_macro_page(set,book)
    if not tonumber(set) then
        add_to_chat(123,'Error setting macro page: Set is not a valid number ('..tostring(set)..').')
        return
    end
    if set < 1 or set > 10 then
        add_to_chat(123,'Error setting macro page: Macro set ('..tostring(set)..') must be between 1 and 10.')
        return
    end

    if book then
        if not tonumber(book) then
            add_to_chat(123,'Error setting macro page: book is not a valid number ('..tostring(book)..').')
            return
        end
        if book < 1 or book > 20 then
            add_to_chat(123,'Error setting macro page: Macro book ('..tostring(book)..') must be between 1 and 20.')
            return
        end
        send_command('@input /macro book '..tostring(book)..';wait .1;input /macro set '..tostring(set))
    else
        send_command('@input /macro set '..tostring(set))
    end
end

function select_default_macro_book()
    -- Default macro set/book
    if player.sub_job == 'WHM' then
        set_macro_page(1, 3)
    elseif player.sub_job == 'BLM' then
        set_macro_page(2, 3)
    elseif player.sub_job == 'DNC' then
        set_macro_page(3, 3)
    elseif player.sub_job == 'NIN' then
        set_macro_page(5, 3)
    elseif player.sub_job == 'WAR' then
        set_macro_page(10, 3)
    else
        set_macro_page(1, 3)
    end
end