Bokura_SMN

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

function get_sets()
    AccIndex = 1
    AccArray = {"LowACC","MidACC","HighACC"} -- 3 Levels Of Accuracy Sets For TP & Physical/Magical BloodPactRage. 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'
    Lock_Main = 'OFF' -- Set Default Lock Main Weapon ON or OFF Here --
    message = 'ON' -- Set Default BloodPact Debuff/Buff Messages ON or OFF Here --
    Kiting = 'OFF' -- Set Default Avatar/Sublimation Kiting Set ON or OFF Here --
    Elemental_Staff = 'OFF' -- Set Default Precast Elemental Staff ON or OFF Here --
    target_distance = 5 -- Set Default Distance Here --
    select_default_macro_book() -- Change Default Macro Book At The End --

    Cities = S{
            "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","Nashmau","Tavanazian Safehold",
            "Selbina","Mhaura","Norg","Eastern Adoulin","Western Adoulin","Kazham"}

    -- Avatar Spells --
    Avatars = S{
            "Ramuh","Garuda","Alexander","Fenrir","Titan","Shiva","Ifrit","Diabolos",
            "Leviathan","Carbuncle","Odin","Cait Sith","Atomos"}

    -- To Trigger Auto Elemental Siphon: Use The Following Spirit Spells Again --
    Spirits = S{
            "Fire Spirit","Ice Spirit","Air Spirit","Earth Spirit","Thunder Spirit",
            "Water Spirit","Light Spirit","Dark Spirit"}

    -- Spirit Pacts --
    SpiritPacts = S{
            "FireSpirit","IceSpirit","AirSpirit","EarthSpirit","ThunderSpirit",
            "WaterSpirit","LightSpirit","DarkSpirit"}

    -- Magical BloodPactRage --
    Magical_RagePacts = S{
            'Inferno','Earthen Fury','Tidal Wave','Aerial Blast','Diamond Dust','Judgement Bolt',
            'Fire II','Stone II','Water II','Aero II','Blizzard II','Thunder II',
            'Fire IV','Stone IV','Water IV','Aero IV','Blizzard IV','Thunder IV',
            'Burning Strike','Nether Blast','Flaming Crush','Searing Light',
            'Howling Moon','Ruinous Omen','Level ? Holy','Conflag Strike','Impact'}

    -- Magical BloodPactRage Affected By TP --
    Magical_TP_RagePacts = S{
            'Heavenly Strike','Wind Blade','Holy Mist','Night Terror','Thunderstorm','Geocrush',
            'Meteorite','Meteor Strike','Grand Fall','Lunar Bay','Thunderspark'}

    -- To Trigger The Following BPs: Use The Appropriate Avatar Spells Again --
    -- Can Replace Whatever BPs You Like For Each Listed Avatars --
    BloodPactWard = {
            Garuda = "Fleet Wind", Ifrit = "Inferno Howl", Fenrir = "Ecliptic Growl",
            Titan = "Earthen Armor", Leviathan = "Spring Water", Carbuncle = "Soothing Ruby",
            Diabolos = "Noctoshield"}

    -- Debuff BloodPactWard --
    DebuffBloodPactWard = S{
            'Diamond Storm','Sleepga','Slowga','Tidal Roar','Nightmare','Pavor Nocturnus',
            'Ultimate Terror','Somnolence','Lunar Cry','Lunar Roar','Mewing Lullaby','Eerie Eye'}

    Cure_Spells = {"Cure","Cure II","Cure III","Cure IV"} -- Cure Degradation --
    Curaga_Spells = {"Curaga","Curaga II"} -- Curaga Degradation --
    sc_map = {SC1 = "Garuda", SC2 = "Ramuh", SC3 = "Fenrir"} -- 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="Herald's Gaiters"})
    sets.Resting = {}

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

    -- Kiting Set --
    sets.Kiting = {feet="Herald's Gaiters"}

    -- Sublimation Set --
    sets.Sublimation = {}

    sets.Precast = {}
    -- Fastcast Set (empty = To Fix Club/Staff Issue) --
    sets.Precast.FastCast = {
            sub=empty}

    -- Precast BloodPact --
    sets.Precast.BloodPact = {main="Nirvana"}

    -- 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'}

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

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

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

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

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

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

    -- Enhancing Magic Set --
    sets.Midcast['Enhancing Magic'] = {}

    -- Stoneskin Set --
    sets.Midcast.Stoneskin = set_combine(sets.Midcast['Enhancing Magic'],{})

    -- Avatars Sets
    sets.Avatars = {
            main="Nirvana",
            sub="Oneiros Grip",
            ammo="Seraphicaller"}
    sets.Avatars['Carbuncle'] = set_combine(sets.Avatars,{hands="Carbuncle Mitts"})
    sets.Avatars['Diabolos'] = set_combine(sets.Avatars,{waist="Diabolos's Rope"})

    -- Avatar's Favor Set --
    sets.Favor = set_combine(sets.Avatars,{})

    -- Spirits Set --
    sets.Spirits = set_combine(sets.Avatars,{})

    sets.Midcast.Pet = {}
    -- BloodPactWard/PD Set --
    sets.Midcast.Pet.BloodPactWard = {
            main="Nirvana",
            ammo="Seraphicaller"}

    -- Magic Accuracy For The Listed Debuff BloodPactWard --
    sets.Midcast.Pet.DebuffBloodPactWard = set_combine(sets.Midcast.Pet.BloodPactWard,{})

    sets.Midcast.Pet.Physical_RagePacts = {}
    -- Physical BloodPactRage Sets --
    sets.Midcast.Pet.Physical_RagePacts.LowACC = {}
    sets.Midcast.Pet.Physical_RagePacts.MidACC = set_combine(sets.Midcast.Pet.Physical_RagePacts.LowACC,{})
    sets.Midcast.Pet.Physical_RagePacts.HighACC = set_combine(sets.Midcast.Pet.Physical_RagePacts.MidACC,{})

    sets.Midcast.Pet.Magical_RagePacts = {}
    -- Magical BloodPactRage Sets --
    sets.Midcast.Pet.Magical_RagePacts.LowACC = {}
    sets.Midcast.Pet.Magical_RagePacts.MidACC = set_combine(sets.Midcast.Pet.Magical_RagePacts.LowACC,{})
    sets.Midcast.Pet.Magical_RagePacts.HighACC = set_combine(sets.Midcast.Pet.Magical_RagePacts.MidACC,{})

    sets.Midcast.Pet.Magical_TP_RagePacts = {}
    -- Magical BloodPactRage Affected By TP --
    sets.Midcast.Pet.Magical_TP_RagePacts.LowACC = {}
    sets.Midcast.Pet.Magical_TP_RagePacts.MidACC = set_combine(sets.Midcast.Pet.Magical_TP_RagePacts.LowACC,{})
    sets.Midcast.Pet.Magical_TP_RagePacts.HighACC = set_combine(sets.Midcast.Pet.Magical_TP_RagePacts.MidACC,{})

    -- Shock Squall Set --
    sets.Midcast.Pet['Shock Squall'] = {}

    sets.JA = {}
    -- JA Sets --
    sets.JA['Mana Cede'] = {hands="Beck. Bracers +1"}
    sets.JA['Elemental Siphon'] = set_combine(sets.Midcast.Pet.BloodPactWard,{feet="Beck. Pigaches +1"})
    sets.JA['Astral Flow'] = {head="Glyphic Horn +1"}

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

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

    sets.WS.Shattersoul = {}
    sets.WS.Myrkr = {}
    sets.WS["Garland of Bliss"] = {}

    -- Idle Reive Set --
    sets.Reive = {neck="Arciela's Grace +1"}
end

function pretarget(spell,action)
    if midaction() or pet_midaction() then
        cancel_spell()
        return
    elseif 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 player.status == 'Engaged' then
        if not spell.english == 'Myrkr' and spell.target.distance > target_distance then -- Cancel WS If You Are Out Of Range --
            cancel_spell()
            add_to_chat(123, spell.name..' Canceled: [Out of Range]')
            return
        end
    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)
    elseif spell.english == 'Shiva' and pet.isvalid then -- Change Shiva Spell To Sleepga When Shiva Is Present --
        cancel_spell()
        send_command('input /pet "Sleepga" <t>')
    elseif spell.english == 'Ramuh' and pet.isvalid then -- Change Ramuh Spell To Shock Squall When Ramuh Is Present --
        cancel_spell()
        send_command('input /pet "Shock Squall" <t>')
    elseif Avatars:contains(spell.english) and pet.isvalid then
        cancel_spell()
        send_command('input /pet "'..BloodPactWard[pet.name]..'" <me>;wait 5;Release')
    elseif Spirits:contains(spell.english) and pet.isvalid then
        cancel_spell()
        send_command('ElementalSiphon;wait 1;Release')
    elseif buffactive['Light Arts'] or buffactive['Addendum: White'] then
        if spell.english == "Light Arts" and not buffactive['Addendum: White'] then
            cancel_spell()
            send_command('input /ja Addendum: White <me>')
        elseif spell.english == "Manifestation" then
            cancel_spell()
            send_command('input /ja Accession <me>')
        elseif spell.english == "Alacrity" then
            cancel_spell()
            send_command('input /ja Celerity <me>')
        elseif spell.english == "Parsimony" then
            cancel_spell()
            send_command('input /ja Penury <me>')
        end
    elseif buffactive['Dark Arts'] or buffactive['Addendum: Black'] then
        if spell.english == "Dark Arts" and not buffactive['Addendum: Black'] then
            cancel_spell()
            send_command('input /ja Addendum: Black <me>')
        elseif spell.english == "Accession" then
            cancel_spell()
            send_command('input /ja Manifestation <me>')
        elseif spell.english == "Celerity" then
            cancel_spell()
            send_command('input /ja Alacrity <me>')
        elseif spell.english == "Penury" then
            cancel_spell()
            send_command('input /ja Parsimony <me>')
        end
    end
end

function precast(spell,action)
    if midaction() or pet_midaction() then
        cancel_spell()
        return
    elseif spell.action_type == 'Magic' then
        if buffactive.silence or spell.target.distance > 16+target_distance then -- Cancel Magic or Ninjutsu 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 == "SummonerPact" then
                if Avatars:contains(spell.english) or Spirits:contains(spell.english) then
                    if Cities:contains(world.area) then
                        cancel_spell()
                        add_to_chat(123,'Unable To Summon Pacts In Town')
                        return
                    else
                        equip(sets.Precast.FastCast)
                    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
            elseif sets.Precast[spell.skill] then
                equip(sets.Precast[spell.skill])
            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
            if sets.WS[spell.english] then
                equip(sets.WS[spell.english])
            end
        end
    elseif spell.type == "JobAbility" then
        if sets.JA[spell.english] then
            equip(sets.JA[spell.english])
        end
    elseif spell.type:startswith('BloodPact') then
        equip(sets.Precast.BloodPact)
    elseif spell.english == 'Spectral Jig' and buffactive.Sneak then
        cast_delay(0.2)
        send_command('cancel Sneak')
    end
    if sets.Precast[spell.element] and Elemental_Staff == 'ON' then
        equip(sets.Precast[spell.element])
    end
end

function midcast(spell,action)
    equipSet = {}
    if pet_midaction() then
        return
    elseif 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 equipSet[spell.skill] then
            equipSet = equipSet[spell.skill]
        end
    elseif equipSet[spell.english] then
        equipSet = equipSet[spell.english]
    end
    equip(equipSet)
end

function aftercast(spell,action)
    if pet_midaction() then
        return
    elseif not spell.type:startswith('BloodPact') then
        status_change(player.status)
    end
end

function status_change(new,old)
    check_equip_lock()
    if Armor == 'PDT' then
        equip(sets.PDT)
    elseif pet.isvalid then
        if SpiritPacts:contains(pet.name) then
            equip(sets.Spirits)
        elseif buffactive["Avatar's Favor"] then
            equip(sets.Favor)
        else
            equip(sets.Avatars)
            if sets.Avatars[pet.name] then
                equip(sets.Avatars[pet.name])
            end
        end
        if Kiting == 'ON' then
            equip(sets.Kiting)
        end
    elseif buffactive["Sublimation: Activated"] then
        equip(sets.Sublimation)
        if Kiting == 'ON' then
            equip(sets.Kiting)
        end
    elseif new == 'Engaged' then
        equip(sets.Melee)
    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,sets.Reive)
        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() and not pet_midaction() then
        status_change(player.status)
    end
end

function pet_midcast(spell)
    if spell.english == 'Perfect Defense' then
        equip(sets.Midcast.Pet.BloodPactWard)
    elseif spell.type == 'BloodPactWard' then
        if DebuffBloodPactWard:contains(spell.english) then
            equip(sets.Midcast.Pet.DebuffBloodPactWard)
        elseif sets.Midcast.Pet[spell.english] then
            equip(sets.Midcast.Pet[spell.english])
        else
            equip(sets.Midcast.Pet.BloodPactWard)
        end
    elseif spell.type == 'BloodPactRage' then
        if Magical_RagePacts:contains(spell.english) then
            equip(sets.Midcast.Pet.Magical_RagePacts[AccArray[AccIndex]])
        elseif Magical_TP_RagePacts:contains(spell.english) then
            equip(sets.Midcast.Pet.Magical_TP_RagePacts[AccArray[AccIndex]])
        else
            equip(sets.Midcast.Pet.Physical_RagePacts[AccArray[AccIndex]])
        end
    end
end

function pet_aftercast(spell)
    if not spell.interrupted and message == 'ON' then
        if spell.english == "Ecliptic Howl" then
            if world.moon_pct > 89 then
                send_command('input /p [Ecliptic Howl] ACC +25 | EVA +1')
            elseif world.moon_pct > 74 then
                send_command('input /p [Ecliptic Howl] ACC +21 | EVA +5')
            elseif world.moon_pct > 59 then
                send_command('input /p [Ecliptic Howl] ACC +17 | EVA +9')
            elseif world.moon_pct > 39 then
                send_command('input /p [Ecliptic Howl] ACC +13 | EVA +13')
            elseif world.moon_pct > 24 then
                send_command('input /p [Ecliptic Howl] ACC +9 | EVA +17')
            elseif world.moon_pct > 9 then
                send_command('input /p [Ecliptic Howl] ACC +5 | EVA +21')
            else
                send_command('input /p [Ecliptic Howl] ACC +1 | EVA +25')
            end
        elseif spell.english == "Ecliptic Growl" then
            if world.moon_pct > 89 then
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 7 | INT/MND/CHR/AGI 1')
            elseif world.moon_pct > 74 then
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 6 | INT/MND/CHR/AGI 2')
            elseif world.moon_pct > 59 then
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 5 | INT/MND/CHR/AGI 3')
            elseif world.moon_pct > 39 then
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 4 | INT/MND/CHR/AGI 4')
            elseif world.moon_pct > 24 then
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 3 | INT/MND/CHR/AGI 5')
            elseif world.moon_pct > 9 then
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 2 | INT/MND/CHR/AGI 6')
            else
                send_command('input /p [Ecliptic Growl] STR/DEX/VIT 1 | INT/MND/CHR/AGI 7')
            end
        elseif spell.english == "Lunar Cry" then
            if world.moon_pct > 89 then
                send_command('input /p [Lunar Cry] Enemy ACC -31 | Enemy EVA -1')
            elseif world.moon_pct > 74 then
                send_command('input /p [Lunar Cry] Enemy ACC -26 | Enemy EVA -6')
            elseif world.moon_pct > 59 then
                send_command('input /p [Lunar Cry] Enemy ACC -21 | Enemy EVA -11')
            elseif world.moon_pct > 39 then
                send_command('input /p [Lunar Cry] Enemy ACC -16 | Enemy EVA -16')
            elseif world.moon_pct > 24 then
                send_command('input /p [Lunar Cry] Enemy ACC -11 | Enemy EVA -21')
            elseif world.moon_pct > 9 then
                send_command('input /p [Lunar Cry] Enemy ACC -6 | Enemy EVA -26')
            else
                send_command('input /p [Lunar Cry] Enemy ACC -1 | Enemy EVA -31')
            end
        elseif spell.english == "Dream Shroud" then
            if world.time <= (0*60) or world.time >= (1*60) then
                send_command('input /p [Dream Shroud] MAB +13 | MDB +1')
            elseif (world.time <= (1*60) or world.time >= (2*60)) or (world.time <= (23*60) or world.time >= (0*60)) then
                send_command('input /p [Dream Shroud] MAB +12 | MDB +2')
            elseif (world.time <= (2*60) or world.time >= (3*60)) or (world.time <= (22*60) or world.time >= (23*60)) then
                send_command('input /p [Dream Shroud] MAB +11 | MDB +3')
            elseif (world.time <= (3*60) or world.time >= (4*60)) or (world.time <= (21*60) or world.time >= (22*60)) then
                send_command('input /p [Dream Shroud] MAB +10 | MDB +4')
            elseif (world.time <= (4*60) or world.time >= (5*60)) or (world.time <= (20*60) or world.time >= (21*60)) then
                send_command('input /p [Dream Shroud] MAB +9 | MDB +5')
            elseif (world.time <= (5*60) or world.time >= (6*60)) or (world.time <= (19*60) or world.time >= (20*60)) then
                send_command('input /p [Dream Shroud] MAB +8 | MDB +6')
            elseif (world.time <= (6*60) or world.time >= (7*60)) or (world.time <= (18*60) or world.time >= (19*60)) then
                send_command('input /p [Dream Shroud] MAB +7 | MDB +7')
            elseif (world.time <= (7*60) or world.time >= (8*60)) or (world.time <= (17*60) or world.time >= (18*60)) then
                send_command('input /p [Dream Shroud] MAB +6 | MDB +8')
            elseif (world.time <= (8*60) or world.time >= (9*60)) or (world.time <= (16*60) or world.time >= (17*60)) then
                send_command('input /p [Dream Shroud] MAB +5 | MDB +9')
            elseif (world.time <= (9*60) or world.time >= (10*60)) or (world.time <= (15*60) or world.time >= (16*60)) then
                send_command('input /p [Dream Shroud] MAB +4 | MDB +10')
            elseif (world.time <= (10*60) or world.time >= (11*60)) or (world.time <= (14*60) or world.time >= (15*60)) then
                send_command('input /p [Dream Shroud] MAB +3 | MDB +11')
            elseif (world.time <= (11*60) or world.time >= (12*60)) or (world.time <= (13*60) or world.time >= (14*60)) then
                send_command('input /p [Dream Shroud] MAB +2 | MDB +12')
            elseif world.time <= (12*60) or world.time >= (13*60) then
                send_command('input /p [Dream Shroud] MAB +1 | MDB +13')
            end
        elseif spell.english == "Sleepga" then
            send_command('wait 30;input /echo Sleep Effect: [WEARING OFF IN 30 SEC.];wait 15;input /echo Sleep Effect: [WEARING OFF IN 15 SEC.];wait 10;input /echo Sleep Effect: [WEARING OFF IN 5 SEC.]')
        end
    end
    status_change(player.status)
end

function pet_change(pet,gain)
    status_change(player.status)
end

-- In Game: //gs c (command), Macro: /console gs c (command), Bind: gs c (command) --
function self_command(command)
    if command == 'C1' then -- BloodPact Accuracy Toggle --
        AccIndex = (AccIndex % #AccArray) + 1
        add_to_chat(158,'BloodPact Accuracy Level: '..AccArray[AccIndex])
        status_change(player.status)
    elseif command == 'C2' then -- Kiting Toggle --
        if Kiting == 'ON' then
            Kiting = 'OFF'
            add_to_chat(123,'Kiting Set: [Unlocked]')
        else
            Kiting = 'ON'
            add_to_chat(158,'Kiting Set: [Locked]')
        end
        status_change(player.status)
    elseif command == 'C5' then -- Auto Update Gear Toggle --
        status_change(player.status)
        add_to_chat(158,'Auto Update Gear')
    elseif command == 'C7' then
        if Armor == 'PDT' then -- PDT Toggle --
            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 == 'C9' then -- Message Toggle --
        if message == 'ON' then
            message = 'OFF'
            add_to_chat(123,'Message: [OFF]')
        else
            message = 'ON'
            add_to_chat(158,'Message: [ON]')
        end
        status_change(player.status)
    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 actualCost(originalCost)
    if buffactive["Penury"] then
        return originalCost*.5
    elseif buffactive["Light Arts"] then
        return originalCost*.9
    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 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, 15)
    elseif player.sub_job == 'RDM' then
        set_macro_page(2, 15)
    elseif player.sub_job == 'SCH' then
        set_macro_page(3, 15)
    else
        set_macro_page(1, 15)
    end
end