[LUA] FFXI THF LUA

-- Updated 06/01/2014

function get_sets()
    sets.JA = {}
    sets.JA.Conspirator = {body="Raider's Vest +2"}
    sets.JA.Accomplice = {head="Raid. Bonnet +2"}
    sets.JA.Collaborator = {head="Raid. Bonnet +2"}
    sets.JA['Perfect Dodge'] = {hands="Plun. Armlets"}
    sets.JA.Steal = {
        head="Assassin's Bonnet +2",
        neck="Rabbit Charm",
        hands="Thief's Kote",
        waist="Key Ring Belt",
        legs="Assassin's Culottes",
        feet="Pillager's Poulaines"
        }
    sets.JA.Flee = {feet="Pillager's Poulaines"}
    sets.JA.Despoil = {legs="Raid. Culottes +1", feet="Raid. Poulaines +2"}
    sets.JA.Mug = {head="Assassin's Bonnet +2"}
    sets.JA.Waltz = {
        head="Whirlpool Mask",
        neck="Dualism Collar",
        body="Iuitl Vest",
        hands="Buremte Gloves",
        ring1="Omega Ring",
        ring2="Angel's Ring",
        waist="Aristo Belt",
        legs="Nahtirah Trousers",
        feet="Iuitl Gaiters"
        }

    sets.JA.Step = {ear1="Choreia Earring"}

    sets.WS = {
        head="Whirlpool Mask",
        neck="Asperity Necklace",
        ear1="Bladeborn Earring",
        ear2="Steelflash Earring",
        body="Manibozho Jerkin",
        hands="Iuitl Wristbands",
        ring1="Rajas Ring",
        ring2="Thundersoul Ring",
        back="Atheling Mantle",
        waist="Caudata Belt",
        legs="Manibozho Brais",
        feet="Iuitl Gaiters"
        }
    sets.WS.SA = {}
    sets.WS.TA = {}
    sets.WS.SATA = {}

    sets.WS["Evisceration"] = set_combine(sets.WS, {})
    sets.WS.SA["Evisceration"] = set_combine(sets.WS["Evisceration"],{hands="Raid. Armlets +2"})
    sets.WS.TA["Evisceration"] = sets.WS.SA["Evisceration"]
    sets.WS.SATA["Evisceration"] = sets.WS.TA["Evisceration"]

    sets.WS["Rudra's Storm"] = set_combine(sets.WS, {})
    sets.WS.SA["Rudra's Storm"] = set_combine(sets.WS["Rudra's Storm"],{hands="Raid. Armlets +2"})
    sets.WS.TA["Rudra's Storm"] = sets.WS.SA["Rudra's Storm"]
    sets.WS.SATA["Rudra's Storm"] = sets.WS.TA["Rudra's Storm"]

    sets.WS["Exenterator"] = set_combine(sets.WS, {})
    sets.WS.SA["Exenterator"] = set_combine(sets.WS["Exenterator"],{hands="Raid. Armlets +2"})
    sets.WS.TA["Exenterator"] = set_combine(sets.WS.SA["Exenterator"],{})
    sets.WS.SATA["Exenterator"] = sets.WS.TA["Exenterator"]

    sets.WS["Dancing Edge"] = set_combine(sets.WS, {neck="Soil Gorget"})
    sets.WS.SA["Dancing Edge"] = set_combine(sets.WS['Dancing Edge'], {hands="Raid. Armlets +2"})
    sets.WS.TA["Dancing Edge"] = set_combine(sets.WS.SA["Dancing Edge"],{})
    sets.WS.SATA["Dancing Edge"] = sets.WS.TA["Dancing Edge"]

    sets.WS["Aeolian Edge"] = {
        head="Whirlpool Mask",
        neck="Moepapa Medal",
        ear1="Thunder Pearl",
        ear2="Psystorm Earring",
        body="Iuitl Vest",
        hands="Buremte Gloves",
        ring1="Rajas Ring",
        ring2="Thundersoul Ring",
        back="Nifty Mantle",
        waist="Caudata Belt",
        legs="Nahtirah Trousers",
        feet="Iuitl Gaiters"
        }

    sets.WS["Cyclone"] = sets.WS["Aeolian Edge"]

    TP_Set_Names = {"Low Man","Delay Cap","Evasion","TH"}

    sets.TP = {}
    sets.TP['Low Man'] = {
        -- range="Raider's Bmrng.",
        head="Whirlpool Mask",
        neck="Asperity Necklace",
        ear1="Dudgeon Earring",
        ear2="Heartseeker Earring",
        body="Manibozho Jerkin",
        hands="Iuitl Wristbands",
        ring1="Rajas Ring",
        ring2="K'ayres Ring",
        back="Atheling Mantle",
        waist="Patentia Sash",
        legs="Manibozho Brais",
        feet="Manibozho Boots"
        }

    sets.TP['TH'] = {
        -- range="Raider's Bmrng.",
        head="Whirlpool Mask",
        neck="Asperity Necklace",
        ear1="Dudgeon Earring",
        ear2="Heartseeker Earring",
        body="Manibozho Jerkin",
        hands="Plun. Armlets",
        ring1="Rajas Ring",
        ring2="K'ayres Ring",
        back="Atheling Mantle",
        waist="Patentia Sash",
        legs="Manibozho Brais",
        feet="Raid. Poulaines +2"}

    sets.TP['Delay Cap'] = {
        -- ammo="Potestas Bomblet",
        head="Iuitl Headgear",
        neck="Asperity Necklace",
        ear1="Bladeborn Earring",
        ear2="Steelflash Earring",
        body="Manibozho Jerkin",
        hands="Iuitl Wristbands",
        ring1="Rajas Ring",
        ring2="K'ayres Ring",
        back="Atheling Mantle",
        waist="Windbuffet Belt",
        legs="Manibozho Brais",
        feet="Manibozho Boots"
        }

    sets.TP.Evasion = {
        -- ranged="Aliyat Chakram",
        head="Whirlpool Mask",
        neck="Houyi's Gorget",
        ear1="Novia Earring",
        ear2="Ethereal Earring",
        body="Qaaxo Harness",
        hands="Iuitl Wristbands",
        ring1="Beeline Ring",
        ring2="Stormsoul Ring",
        back="Fravashi Mantle",
        waist="Flume Belt",
        legs="Nahtirah Trousers",
        feet="Iuitl Gaiters"
        }

    Idle_Set_Names = {'Town','Normal'}

    sets.Idle = {}
    sets.Idle.Normal = {
        head="Whirlpool Mask",
        neck="Wiglen Gorget",
        ear1="Dudgeon Earring",
        ear2="Heartseeker Earring",
        body="Qaaxo Harness",
        hands="Iuitl Wristbands",
        ring1="Sheltered Ring",
        ring2="Paguroidea Ring",
        back="Fravashi Mantle",
        waist="Flume Belt",
        legs="Nahtirah Trousers",
        feet="Manibozho Boots"
        }

    sets.Idle.Town = set_combine(sets.Idle.Normal,{feet="Pillager's Poulaines"})

    send_command('input /macro book 7;wait .1;input /macro set 4')

    TP_Index = 1
    Idle_Index = 1
end

function precast(spell)
    if sets.JA[spell.english] then
        equip(sets.JA[spell.english])
    elseif spell.type == "WeaponSkill" then
        if sets.WS[spell.english] then
            equip(sets.WS[spell.english])
        end
        if buffactive['sneak attack'] and buffactive['trick attack'] and sets.WS.SATA[spell.english] then
            equip(sets.WS.SATA[spell.english])
        elseif buffactive['sneak attack'] and sets.WS.SA[spell.english] then
            equip(sets.WS.SA[spell.english])
        elseif buffactive['trick attack'] and sets.WS.TA[spell.english] then
            equip(sets.WS.TA[spell.english])
        else
            equip(sets.WS)
        end
    elseif string.find(spell.english,'Waltz') then
        equip(sets.JA.Waltz)
    elseif string.find(spell.english,'Step') then
        equip(sets.JA.Step)
    end
end

function midcast(spell,action)
    if spell.english == 'Spectral Jig' or spell.english:startswith('Monomi') then
        send_command('cancel 71')
    end
end

function aftercast(spell)
    if player.status == 'Engaged' then
        equip(sets.TP[TP_Set_Names[TP_Index]])
    else
        equip(sets.Idle[Idle_Set_Names[Idle_Index]])
    end
end

function status_change(new,old)
    if T{'Idle','Resting'}:contains(new) then
        equip(sets.Idle[Idle_Set_Names[Idle_Index]])
    elseif new == 'Engaged' then
        equip(sets.TP[TP_Set_Names[TP_Index]])
    end
end

function buff_change(buff,gain_or_loss)
    if buff == "Sneak Attack" then
        soloSA = gain_or_loss
    elseif buff == "Trick Attack" then
        soloTA = gain_or_loss
    end
end

function self_command(command)
    if command:lower() == 'toggle' then
        TP_Index = TP_Index +1
        if TP_Index > #TP_Set_Names then
            TP_Index = 1
        end
        add_to_chat(8,'----- TP Set changed to '..TP_Set_Names[TP_Index]..' -----')
        equip(sets.TP[TP_Set_Names[TP_Index]])
    elseif command:lower() == 'idle' then
        Idle_Index = Idle_Index +1
        if Idle_Index > #Idle_Set_Names then
            Idle_Index = 1
        end
        add_to_chat(8,'----- Idle Set changed to '..Idle_Set_Names[Idle_Index]..' -----')
        equip(sets.Idle[Idle_Set_Names[Idle_Index]])
    end
end