[LUA] FFXI RDM LUA

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

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

    sets.precast = {}
    sets.precast.FC = {
        head="Atrophy Chapeau", ear2="Loquac. Earring",
        body="Vitivation Tabard", hands="Gendewitha Gages",
        ring1="Prolix Ring",
        back="Swith Cape", waist="Goading Belt",
        legs="Orvail Pants +1",feet="Chelona Boots"}

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

    sets.precast.Stoneskin = set_combine(sets.precast.FC, {head="Umuthi Hat", waist="Siegel Sash"})

    sets.precast.Impact = set_combine(sets.precast.FC, {
        head=empty, body="Twilight Cloak"})

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


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

    sets.midcast = {}
    sets.midcast.Cure = {main="Arka IV", sub="Achaq Grip",
        head="Gendewitha Caubeen", neck="Estoqueur's Collar",
        ear1="Lifestorm Earring",ear2="Loquacious Earring",
        body="Gendewitha Bliaut", hands="Bokwus Gloves",
        ring1="Prolix Ring", ring2="Sirona's Ring",
        back="Swith Cape", waist="Goading Belt",
        legs="Atrophy Tights",feet="Hagondes Sabots"}

    sets.midcast.Curaga = sets.midcast.Cure

    sets.midcast['Enhancing Magic'] = {
        head="Umuthi Hat", neck="Estoqueur's Collar",
        body="Vitivation Tabard", hands="Atrophy Gloves",
        ring1="Prolix Ring",
        back="Estoqueur's Cape", waist="Olympus Sash",
        legs="Atrophy Tights",feet="Estq. Houseaux +2"}

    sets.midcast.Refresh = {legs="Estqr. Fuseau +2"}

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

    sets.midcast['Enfeebling Magic'] = {
        main="Ngqoqwanb", sub="Mephitis Grip",
        range="Aureole",
        head="Atrophy Chapeau", neck="Atzintli Necklace",
        ear1="Lifestorm Earring",ear2="Psystorm Earring",
        body="Atrophy Tabard", hands="Hagondes Cuffs",
        ring1="Strendu Ring", ring2="Sangoma Ring",
        back="Refraction Cape", waist="Goading Belt",
        legs="Bokwus Slops",feet="Bokwus Boots"}

    sets.midcast['Dia III'] = set_combine(sets.midcast['Enfeebling Magic'], {head="Vitivation Chapeau"})

    sets.midcast['Slow II'] = set_combine(sets.midcast['Enfeebling Magic'], {head="Vitivation Chapeau"})

    sets.midcast['Elemental Magic'] = {
        main="Ngqoqwanb", sub="Mephitis Grip",
        range="Aureole",
        head="Hagondes Hat", neck="Atzintli Necklace",
        ear1="Friomisi Earring", ear2="Hecate's Earring",
        body="Hagondes Coat", hands="Hagondes Cuffs",
        ring1="Strendu Ring",ring2="Acumen Ring",
        back="Refraction Cape", waist="Goading Belt",
        legs="Hagondes Pants",feet="Hagondes Sabots"}

    sets.midcast.Impact = set_combine(sets.midcast['Elemental Magic'], {head=empty,body="Twilight Cloak"})

    sets.midcast['Dark Magic'] = {
        main="Ngqoqwanb", sub="Mephitis Grip",
        range="Aureole",
        head="Atrophy Chapeau +1", neck="Weike Torque",
        ear1="Lifestorm Earring", ear2="Psystorm Earring",
        body="Atrophy Tabard", hands="Gendewitha Gages",
        ring1="Prolix Ring",ring2="Sangoma Ring",
        back="Refraction Cape", waist="Goading Belt",
        legs="Bokwus Slops",feet="Bokwus Boots"}

    -- sets.midcast.Stun = set_combine(sets.midcast['Dark Magic'], {})

    sets.midcast.Drain = set_combine(sets.midcast['Dark Magic'], {})

    sets.midcast.Aspir = sets.midcast.Drain


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

    sets.Idle = {main="Bolelabunga",
        sub="Genbu's Shield", range="Aureole",
        head="Buremte Hat", neck="Wiglen Gorget",
        ear1="Lifestorm Earring", ear2="Orison Earring",
        body="Hagondes Coat", hands="Umuthi Gloves",
        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", range="Aureole",
        head="Buremte Hat", neck="Wiglen Gorget",
        ear1="Lifestorm Earring", ear2="Orison Earring",
        body="Orison Bliaud +2", hands="Umuthi Gloves",
        ring1="Paguroidea Ring", ring2="Sheltered Ring",
        back="Trepidity Mantle", waist="Siegel Sash",
        legs="Piety Pantaloons", feet="Manabyss Pigaches"}

    sets.Resting = {main="Chatoyant Staff",
        sub="Achaq Grip", ammo="Clarus Stone",
        head="Vitivation Chapeau", neck="Wiglen Gorget",
        ear2="Antivenom Earring",
        body="Atrophy Tabard", hands="Serpentes Cuffs",
        ring1="Sheltered Ring", ring2="Paguroidea Ring",
        waist="Austerity Belt",
        legs="Hagondes Pants", feet="Chelona Boots"}

    sets.Engaged = {ammo="Jukukik Feather",
        head="Buremte Hat", neck="Asperity Necklace",
        ear1="Bladeborn Earring", ear2="Steelflash Earring",
        body="Hagondes Coat", hands="Umuthi Gloves",
        ring1="Rajas Ring",ring2="K'ayres Ring",
        back="Atheling Mantle", waist="Goading Belt",
        legs="Hagondes Pants",feet="Manabyss Pigaches"}


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

    sets.WS = {ammo="Jukukik Feather",
        head="Buremte Hat", neck="Asperity Necklace",
        ear1="Brutal Earring", ear2="Moonshade Earring",
        body="Hagondes Coat", hands="Umuthi Gloves",
        ring1="Rajas Ring",ring2="K'ayres Ring",
        back="Atheling Mantle", waist="Windbuffet Belt",
        legs="Hagondes Pants",feet="Manabyss Pigaches"}

    sets.WS['Chant du Cygne'] = set_combine(sets.WS,{})
    sets.WS['Requiescat'] = set_combine(sets.WS,{})
    sets.WS['Sanguine Blade'] = set_combine(sets.WS, {
        ammo="Witchstone",
        head="Hagondes Hat", neck="Eddy Necklace",
        ear1="Friomisi Earring",ear2="Hecate's Earring",
        body="Hagondes Coat", hands="Yaoyotl Gloves",
        ring1="Strendu Ring",ring2="Acumen Ring",
        back="Toro Cape",
        legs="Hagondes Pants",feet="Hagondes Sabots"})

    sets.WS['Spirit Taker'] = set_combine(sets.WS, {
        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['Chainspell'] = {body="Vitivation Tabard"}

    -----------------------------------
    -- Variables and notes to myself --
    -----------------------------------
    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"}

    main_weapons = {}
    main_weapons = S{"Excalibur", "Burtgang", "Murgleis", "Almace",
    "Anahera Saber", "Buramenk'ah", "Egeking", "Xiutleato", "Camatlatia",
    "Halachuinic Sword", "Cama. Blade"}

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

end


function precast(spell)
    if spell.action_type == 'Magic' then
        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.name == 'Impact' then
            equip(sets.precast.Impact)
        elseif sets.precast[spell.name] then
            equip(sets.precast[spell.name])
        elseif sets.precast[spell.skill] then
                    equip(sets.precast[spell.skill])
        else
            equip(sets.precast.FC)
        end
    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)
    end
end

function midcast(spell)
    if main_weapons:contains(player.equipment.main) or player.status == 'Engaged' then
        disable('main','sub','range','ammo')
    else
        enable('main','sub','range','ammo')
    end

    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)
        end
    elseif spell.skill == "Enhancing Magic" then
        -- add_to_chat(8,'--------- Enhancing Magic ---------') -- for debugging
        if spell.name:startswith('Refresh') then
            equip(sets.midcast.Refresh)
        elseif 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 == "Stoneskin" then
            equip(sets.midcast.Stoneskin)
        elseif NoBlink:contains(spell.name) then
            return
        else
            equip(sets.midcast['Enhancing Magic'])
        end
    elseif spell.skill == "Elemental Magic" then
        if spell.name == 'Impact' then
            equip(sets.midcast.Impact)
        else
            equip(sets.midcast['Elemental Magic'])
        end
    elseif spell.skill == "Enfeebling Magic" then
        if spell.name == 'Dia III' then
            equip(sets.midcast['Dia III'])
        elseif spell.name == 'Slow II' then
            equip(sets.midcast['Slow II'])
        else
            equip(sets.midcast['Enfeebling 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 main_weapons:contains(player.equipment.main) or player.status == 'Engaged' then
        equip(sets.Engaged)
        disable('main','sub','range','ammo')
    elseif player.status == 'Idle' then
        enable('main','sub','range','ammo')
        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
        enable('main','sub','range','ammo')
        equip(sets.Resting)
    end
end