BRD (mule) Lua January 2018

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 = {"Full","DT","Warp"} -- Default Idle Set Is Movement --
    Armor = 'None'
    timer_reg = {}
    pianissimo_cycle = false
    Terpander = 'OFF' -- Set Default Lock Terpander ON or OFF Here --
    Elemental_Staff = 'OFF' -- Set Default Precast Elemental Staves ON or OFF Here --
    Lock_Main = 'OFF' -- Set Default Lock Main Weapon ON or OFF Here --
    target_distance = 6 -- Set Default Distance Here --
    send_command('input /macro book 2;wait .1;input /macro set 1') -- Change Default Macro Book Here --

    -- Terpander Trigger Songs: Use The Following Songs or Terpander Toggle To Equip Terpander, Add or Remove Terpander Songs --
    DaurdSongs = S{}

    Cure_Spells = {"Cure","Cure II","Cure III","Cure IV"} -- Cure Degradation --
    Curaga_Spells = {"Curaga","Curaga II"} -- Curaga Degradation --

    sets.Idle = {}
    -- Idle Sets --
    sets.Idle = {
            head="Inyanga Tiara +1",
            body="Artsieq Jubbah",
            hands="Inyan. Dastanas +2",
            legs="Assid. Pants +1",
            feet="Fili Cothurnes +1",
            neck="Twilight Torque",
            waist="Flume Belt",
            left_ear="Ethereal Earring",
            right_ear="Hearty Earring",
            left_ring="Defending Ring",
            right_ring="Inyanga Ring",
            back="Moonbeam Cape"}
    sets.Idle.Full = set_combine(sets.Idle,{})
    sets.Idle.DT = set_combine(sets.Idle,{})
    sets.Idle.Warp = set_combine(sets.Idle,{
            ring2="Warp Ring"})

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

    sets.Precast ={
            head="Inyanga Tiara +1",
            body="Inyanga Jubbah +1",
            hands="Inyan. Dastanas +2",
            legs="Lengo Pants",
            feet="Inyan. Crackows +1",
            waist="Witful Belt",
            left_ear="Loquac. Earring",
            left_ring="Defending Ring",
            right_ring="Prolix Ring",
            back={ name="Intarabus's Cape", augments={'"Fast Cast"+10',}}}

    -- Song Precast Set (empty = To Fix Club/Staff Issue) --
    sets.Precast.SongCast = {
            head="Fili Calot +1",
            body="Inyanga Jubbah +1",
            hands="Inyan. Dastanas +2",
            legs="Lengo Pants",
            feet="Coalrake Sabots",
            neck="Aoidos' Matinee",
            waist="Witful Belt",
            left_ear="Loquac. Earring",
            left_ring="Defending Ring",
            right_ring="Prolix Ring",
            back={ name="Intarabus's Cape", augments={'"Fast Cast"+10',}}}

    -- Elemental Staves --
    sets.Precast.Lightning = {}
    sets.Precast.Water = {}
    sets.Precast.Fire = {}
    sets.Precast.Ice = {}
    sets.Precast.Wind = {}
    sets.Precast.Earth = {}
    sets.Precast.Light = {}
    sets.Precast.Dark = {}

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

    -- Fastcast Set --
    sets.Precast.FastCast = {
            head="Inyanga Tiara +1",
            body="Inyanga Jubbah +1",
            hands="Inyan. Dastanas +2",
            legs="Artsieq Hose",
            feet="Inyan. Crackows +1",
            neck="Aoidos' Matinee",
            waist="Witful Belt",
            left_ear="Loquac. Earring",
            left_ring="Defending Ring",
            right_ring="Prolix Ring",
            back={ name="Intarabus's Cape", augments={'"Fast Cast"+10',}}}

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

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

    -- Song Debuff Set --
    sets.Midcast.Wind = {
            range="Eminent Flute",
            head="Fili Calot +1",
            neck="Moonbow Whistle",
            ear1="Gwati Earring",
            ear2="Hecate's Earring",
            body="Fili Hongreline +1",
            hands="Inyan. Dastanas +2",
            waist="Harfner's Sash",
            legs="Inyanga Shalwar +2",
            feet="Brioso Slippers +1",
            back={ name="Intarabus's Cape", augments={'"Fast Cast"+10',}}}

    -- Song Buff Set --
    sets.Midcast.WindBuff = {
            range="Eminent Flute",
            head="Fili Calot +1",
            neck="Moonbow Whistle",
            ear1="Loquac. Earring",
            ear2="Musical Earring",
            body="Fili Hongreline +1",
            hands="Inyan. Dastanas +2",
            waist="Harfner's Sash",
            legs="Inyanga Shalwar +2",
            feet="Brioso Slippers +1",
            back={ name="Intarabus's Cape", augments={'"Fast Cast"+10',}}}

    sets.Midcast.March = {hands="Fili Manchettes +1"}
    sets.Midcast.Minuet = {body="Fili Hongreline +1"}
    sets.Midcast.Madrigal = {head="Fili Calot +1","Intarabus's Cape"}
    sets.Midcast.Ballad = {} -- legs="Fili Rhingrave" --
    sets.Midcast.Scherzo = {feet="Fili Cothurnes +1"}
    sets.Midcast.Mazurka = {}
    sets.Midcast.Paeon = {} -- head="Brioso Roundlet" --
    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,{
            head="Inyanga Tiara +1",
            body="Inyanga Jubbah +1",
            hands="Inyan. Dastanas +2",
            legs="Artsieq Hose",
            feet="Inyan. Crackows +1",
            neck="Aoidos' Matinee",
            waist="Witful Belt",
            left_ear="Loquac. Earring",
            left_ring="Defending Ring",
            right_ring="Prolix Ring",
            back={ name="Intarabus's Cape", augments={'"Fast Cast"+10',}}})

    -- 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"}
    sets.JA.Troubadour = {body="Bihu Justaucorps"}
    sets.JA["Soul Voice"] = {legs="Bihu Cannions"}

    -- Waltz --
    sets.Waltz = {}

    -- Melee Sets --
    sets.Melee ={
        head="Inyanga Tiara +1",
        body="Inyanga Jubbah +1",
        hands="Chironic Gloves",
        legs="Artsieq Hose",
        feet="Battlecast Gaiters",
        neck="Lissome Necklace",
        waist="Windbuffet Belt",
        left_ear="Cessance Earring",
        right_ear="Brutal Earring",
        left_ring="Petrov Ring",
        right_ring="Pernicious Ring",
        back="Enuma Mantle"}
    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 Terpander == 'ON' then
                    equip(sets.Precast.Terpander)
                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
        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,{})
            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 Terpander == 'ON' then
                equip(sets.Precast.Terpander)
            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)
    if Armor == 'PDT' or buffactive.Terror or buffactive.Stun or buffactive.Petrification or buffactive.Sleep 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,{})
        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,loss)
    buff = string.lower(buff)
    if gain then
        add_to_chat(158,'--- Gained: ['..buff..']')
    elseif loss then
        add_to_chat(123,'--- Lost: ['..buff..']')
    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 == 'pdt' 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 == 'mainlock' 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 == 'terpander' then -- Terpander Toggle --
        if Terpander == 'ON' then
            Terpander = 'OFF'
            add_to_chat(123,'Terpander: [OFF]')
        else
            Terpander = 'ON'
            add_to_chat(158,'Terpander: [ON]')
        end
        status_change(player.status)
    elseif command == 'acc' then -- Accuracy Level Toggle --
        AccIndex = (AccIndex % #AccArray) + 1
        status_change(player.status)
        add_to_chat(155,'Accuracy Level: ' .. AccArray[AccIndex])
    elseif command == 'update' then -- Auto Update Gear Toggle --
        status_change(player.status)
        add_to_chat(155,'Auto Update Gear')
    elseif command == 'distance' then -- Distance Toggle --
        if player.target.distance then
            target_distance = math.floor(player.target.distance*10)/10
            add_to_chat(155,'Distance: '..target_distance)
        else
            add_to_chat(123,'No Target Selected')
        end
    elseif command == 'idle' then -- Idle Toggle --
        IdleIndex = (IdleIndex % #IdleArray) + 1
        add_to_chat(155,'Idle Set: '..IdleArray[IdleIndex])
        status_change(player.status)
    elseif command:match('^SC%d$') then
        send_command('//' .. sc_map[command])
    end
end

function equip_song_gear(spell)
    if DaurdSongs:contains(spell.english) then
        equip(sets.Precast.Terpander)
        add_to_chat(158,'Terpander: [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 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