[LUA] FFXI WHM LUA

-- updated 8/21/2014 by Quixacotl. --

function get_sets()
    ------------------
    -- Precast Sets --
    ------------------

    sets.precast = {}

    sets.precast.FC = {ammo="Incantor Stone",
        head="Nahtirah Hat", neck="Orison Locket",
        ear2="Loquac. Earring",
        body="Vanir Cotehardie", hands="Gendewitha Gages",
        ring1="Prolix Ring",
        back="Swith Cape", waist="Goading Belt",
        legs="Orvail Pants +1",feet="Chelona Boots +1"}

    sets.precast.FC['Enhancing Magic'] = set_combine(sets.precast.FC,
        {waist="Siegel Sash"})

    sets.precast.FC.Stoneskin = set_combine(sets.precast.FC['Enhancing Magic'],
        {head="Umuthi Hat"})

    sets.precast.FC['Healing Magic'] = set_combine(sets.precast.FC,
        {legs="Orsn. Pantaln. +2"})

    sets.precast.FC.StatusRemoval = sets.precast.FC['Healing Magic']

    sets.precast.FC.Cure = set_combine(sets.precast.FC['Healing Magic'],
        {main="Arka IV",sub="Achaq Grip",ammo="Impatiens"})

    sets.precast.FC.Curaga = sets.precast.FC.Cure

    sets.precast.SneakInvis = {back="Skulker's Cape"}


    ------------------
    -- Midcast Sets --
    ------------------

    sets.midcast = {}

    sets.midcast.Cure = {main="Arka IV",
        sub="Achaq Grip", ammo="Incantor Stone",
        head="Orison Cap +2", neck="Orison Locket",
        ear1="Lifestorm Earring",ear2="Orison Earring",
        body="Orison Bliaud +2", hands="Theophany Mitts",
        ring1="Prolix Ring",ring2="Sirona's Ring",
        back="Orison Cape", waist="Goading Belt",
        legs="Orison Pantaloons +2",feet="Theo. Duckbills"}

    sets.midcast.Curaga = sets.midcast.Cure

    sets.midcast['Enhancing Magic'] = {
        head="Umuthi Hat", neck="Colossus's Torque",
        body="Manasa Chasuble", hands="Dynasty Mitts",
        back="Mending Cape", waist="Olympus Sash",
        legs="Piety Pantaloons",feet="Orison Duckbills +2"}

    sets.midcast.Protectra = {
        ring1="Prolix Ring", ring2="Sheltered Ring",
        legs="Piety Pantaloons", feet="Piety Duckbills"}

    sets.midcast.Shellra = {
        ring1="Prolix Ring", ring2="Sheltered Ring",
        legs="Piety Pantaloons", feet="Piety Duckbills"}

    sets.midcast.Stoneskin = {waist="Siegel Sash"}

    sets.midcast.Cursna = {
        head="Orison Cap +2", neck="Malison Medallion",
        body="Orison Bliaud +2", hands="Hieros Mittens",
        ring1="Ephedra Ring",ring2="Sirona's Ring",
        back="Mending Cape",waist="Goading Belt",
        legs="Theophany Pantaloons",feet="Gendewitha Galoshes"}

    sets.midcast.StatusRemoval = {
        head="Orison Cap +2",legs="Orison Pantaloons +2"}

    sets.midcast.Auspice = {hands="Dynasty Mitts",feet="Orison Duckbills +2"}

    sets.midcast.BarSpell = {
        head="Orison Cap +2", neck="Colossus's Torque",
        body="Orison Bliaud +2", hands="Orison Mitts +2",
        back="Mending Cape", waist="Olympus Sash",
        legs="Piety Pantaloons",feet="Orison Duckbills +2"}

    sets.midcast.Regen = {
        main="Bolelabunga", sub="Genbu's Shield",
        body="Piety Briault", hands="Orison Mitts +2",
        legs="Theophany Pantaloons"}

    sets.midcast['Divine Magic'] = {
        main="Bolelabunga", sub="Genbu's Shield",
        head="Buremte Hat", neck="Colossus's Torque",
        ear1="Psystorm Earring", ear2="Lifestorm Earring",
        body="Vanir Cotehardie", hands="Yaoyotl Gloves",
        ring2="Sangoma Ring",
        back="Refraction Cape", waist="Goading Belt",
        legs="Theophany Pantaloons",feet="Gendewitha Galoshes"}

    sets.midcast['Dark Magic'] = {
        main="Bolelabunga", sub="Genbu's Shield",
        head="Buremte Hat", neck="Aesir Torque",
        ear1="Psystorm Earring", ear2="Lifestorm Earring",
        body="Vanir Cotehardie", hands="Yaoyotl Gloves",
        ring1="Strendu Ring", ring2="Sangoma Ring",
        back="Refraction Cape", waist="Demonry Sash",
        legs="Bokwus Slops",feet="Piety Duckbills"}

    sets.midcast['Enfeebling Magic'] = {
        head="Buremte Hat", neck="Weike Torque",
        ear1="Psystorm Earring",ear2="Lifestorm Earring",
        body="Vanir Cotehardie", hands="Yaoyotl Gloves",
        ring1="Aquasoul Ring", ring2="Sangoma Ring",
        back="Refraction Cape", waist="Demonry Sash",
        legs="Bokwus Slops",feet="Piety Duckbills"}


    ----------------------
    -- Status Gear Sets --
    ----------------------

    sets.Idle = {main="Bolelabunga",
        sub="Genbu's Shield", ammo="Incantor Stone",
        head="Buremte Hat", neck="Wiglen Gorget",
        ear1="Lifestorm Earring", ear2="Orison Earring",
        body="Orison Bliaud +2", hands="Theophany Mitts",
        ring1="Paguroidea Ring", ring2="Sheltered Ring",
        back="Trepidity Mantle", waist="Siegel Sash",
        legs="Piety Pantaloons", feet="Manabyss Pigaches"}

    sets.Idle.Town = {main="Bolelabunga",
        sub="Genbu's Shield", ammo="Incantor Stone",
        head="Buremte Hat", neck="Wiglen Gorget",
        ear1="Lifestorm Earring", ear2="Orison Earring",
        body="Orison Bliaud +2", hands="Theophany Mitts",
        ring1="Paguroidea Ring", ring2="Sheltered Ring",
        back="Trepidity Mantle", waist="Siegel Sash",
        legs="Piety Pantaloons", feet="Manabyss Pigaches"}

    sets.Resting = {main="Iridal Staff",
        sub="Achaq Grip", ammo="Clarus Stone",
        head="Buremte Hat",
        ear2="Antivenom Earring",
        neck="Eidolon Pendant",
        body="Gendewitha Bliaut", hands="Serpentes Cuffs",
        waist="Austerity Belt",
        legs="Nares Trews", feet="Chelona Boots"}

    sets.Engaged = {ammo="Incantor Stone",
        head="Buremte Hat", neck="Wiglen Gorget",
        ear1="Lifestorm Earring", ear2="Orison Earring",
        body="Orison Bliaud +2", hands="Theophany Mitts",
        ring1="Paguroidea Ring", ring2="Sheltered Ring",
        back="Trepidity Mantle", waist="Siegel Sash",
        legs="Piety Pantaloons", feet="Manabyss Pigaches"}

    ----------------------
    -- Weaponskill sets --
    ----------------------

    sets.WS = {}
    sets.WS['Spirit Taker'] = set_combine(sets.Engaged,{
        neck="Aife's Medal",
        back="Pahtli Cape",
        waist="Kuku Stone",
        })

    sets.WS['Retribution'] = sets.WS['Spirit Taker']
    sets.WS['Shattersoul'] = sets.WS['Spirit Taker']
    sets.WS['Myrkr'] = sets.WS['Spirit Taker']
    sets.WS['Realmrazer'] = sets.WS['Spirit Taker']
    sets.WS['Mystic Boon'] = sets.WS['Spirit Taker']
    sets.WS['Dagan'] = sets.WS['Spirit Taker']
    sets.WS['Hexa Strike'] = sets.WS['Spirit Taker']
    sets.WS['Black Halo'] = sets.WS['Spirit Taker']

    ---------------------------------
    -- Precast sets to enhance JAs --
    ---------------------------------

    sets.JA = {}
    sets.JA['Benediction'] = {body="Piety Briault"}

    -----------------------------------
    -- Variables and notes to myself --
    -----------------------------------

    BarSpells = S{"Barstonra", "Barwatera", "Baraera", "Barfira", "Barblizzara", "Barthundra", "Barstone", "Barwater", "Baraero", "Barfire", "Barblizzard", "Barthunder"}

    NaSpells = S{"Esuna", "Paralyna", "Silena", "Viruna", "Erase", "Stona", "Blindna", "Poisona"}

    NoBlink = S{"Escape", "Retrace", "Warp", "Warp II", "Teleport-Altep", "Teleport-Dem", "Teleport-Mea", "Teleport-Holla", "Teleport-Vahzl", "Teleport-Yhoat", "Recall-Jugner", "Recall-Meriph", "Recall-Pashh"}


    -- City areas for town gear and behavior.
    areas = {}
    areas.Cities = S{
        "Eastern Adoulin", "Western Adoulin",
        "Ru'Lude Gardens", "Upper Jeuno", "Lower Jeuno", "Port Jeuno",
        "Port Windurst", "Windurst Waters", "Windurst Woods",
        "Windurst Walls", "Heavens Tower",
        "Port San d'Oria", "Northern San d'Oria", "Southern San d'Oria",
        "Port Bastok", "Bastok Markets",
        "Bastok Mines", "Metalworks",
        "Aht Urhgan Whitegate",
        "Tavanazian Safehold",
        "Nashmau", "Selbina",
        "Mhaura", "Norg", "Kazham"}

    send_command('input /macro book 1;wait .1;input /macro set 2')
end


function precast(spell)
    if NoBlink:contains(spell.name) then
        return
    elseif spell.name == 'Sneak' or spell.name == 'Invisible' and spell.target.name == player.name then
        equip(sets.precast.SneakInvis)
    elseif spell.english == "Stoneskin" then
        equip(sets.precast.FC.Stoneskin)
    elseif sets.precast[spell.name] then
        equip(sets.precast[spell.name])
    elseif spell.name:startswith('Cure') then
        equip(sets.precast.FC.Cure)
    elseif spell.name:startswith('Curaga') then
        equip(sets.precast.FC.Curaga)
    elseif sets.JA[spell.name] then
        equip(sets.JA[spell.name])
    elseif sets.WS[spell.name] then
        equip(sets.WS[spell.name])
    elseif spell.type == "WeaponSkill" then
        equip(sets.WS)
    elseif spell.skill == "Enhancing Magic" then
        equip(sets.precast.FC['Enhancing Magic'])
    elseif spell.skill == "Healing Magic" then
        equip(sets.precast.FC['Healing Magic'])
    else
        equip(sets.precast.FC)
    end
end

function midcast(spell)
    -- if sets.midcast[spell.name] then
        -- equip(sets.midcast[spell.name])
    if spell.skill == "Healing Magic" then
        -- add_to_chat(8,'--------- Healing Magic ---------') -- for debugging
        if spell.name:startswith('Cure') then
            equip(sets.midcast.Cure)
        elseif spell.name:startswith('Curaga') then
            equip(sets.midcast.Curaga)
        elseif spell.name == "Cursna" then
            equip(sets.midcast.Cursna)
        elseif NaSpells:contains(spell.name) then
            equip(sets.midcast.StatusRemoval)
        end
    elseif spell.skill == "Enhancing Magic" then
        -- add_to_chat(8,'--------- Enhancing Magic ---------') -- for debugging
        if spell.english == 'Sneak' and spell.target.name == player.name then
            send_command('cancel 71')
        elseif spell.english == 'Blink' then
            send_command('cancel 36')
        elseif spell.english == "Auspice" then
            equip(sets.midcast.Auspice)
        elseif spell.english == "Stoneskin" then
            equip(sets.midcast.Stoneskin)
        elseif spell.english == "Erase" then
            equip(sets.midcast.StatusRemoval)
        elseif BarSpells:contains(spell.name) then
            equip(sets.midcast.BarSpell)
        elseif spell.name:startswith('Regen') then
            equip(sets.midcast.Regen)
        elseif spell.name:startswith('Protect') then
            equip(sets.midcast.Protectra)
        elseif spell.name:startswith('Shell') then
            equip(sets.midcast.Shellra)
        elseif NoBlink:contains(spell.name) then
            return
        else
            equip(sets.midcast['Enhancing Magic'])
        end
        elseif sets.midcast[spell.skill] then
                equip(sets.midcast[spell.skill])
        end
end

function aftercast(spell)
    update_gear()
end

function status_change(new,old)
    update_gear()
end

function self_command(command)
    if command:lower() == 'toggle' then
        update_gear()
    end
end

function update_gear()
    if player.status == 'Engaged' then
        equip(sets.Engaged)
    elseif player.status == 'Idle' then
        if areas.Cities:contains(world.area) then
            add_to_chat(8,'----- You are at '..world.area..'. Town gear equipped! -----')
            equip(sets.Idle.Town)
        else
            send_command('input /lockstyle on')
            equip(sets.Idle)
        end
    else
        equip(sets.Resting)
    end
end