Gearswap Support Thread

function aftercast(spell, action)
    update_gear()
end

function pet_aftercast(spell)
    update_pet_gear()
end

function status_change(new, old)
    update_gear()
end

function pet_status_change(new, old)
    update_pet_gear()
end

function update_gear()
    if player.status == 'Engaged' then
        equip(sets.Engaged)
    elseif player.status == 'Idle' then
        equip(sets.aftercast.None)
    else
        equip(sets.Resting)
    end

    update_pet_gear()
end

function update_pet_gear()
    if pet.isvalid then
        if player.status == 'Resting' then
            add_to_chat(8,'----- You cannot Rest with an avatar out. -----')
        end
        if string.find(pet.name, 'Spirit') then
            equip(sets.aftercast.Spirit)
        end
        if pet.status == 'Engaged' then
            if world.time >= 17*60 or world.time < 7*60 then
                equip(sets.aftercast.night_time)
            else
                equip(sets.aftercast.days_time)
            end
        elseif pet.status == 'Idle' then
            equip(sets.aftercast.Perp_Normal)
        end
    end
end

	state.ElementMode = M{['description'] = 'Element Mode'}
	state.ElementMode:options('Stone','Water','Aero','Fire','Blizzard','Thunder')

	elseif cmdParams[1]:lower() == 'nuke' then
		handle_elements(cmdParams)
		eventArgs.handled = true
	end

function handle_elements(cmdParams)
	-- cmdParams[1] == 'nuke'
	-- cmdParams[2] == tier to cast
	-- cmdParams[3] == target(s)

	local nuke = state.ElementMode.value
	local tier = cmdParams[2]:lower()
	local target = cmdParams[3]:lower()
	
	if tier == 'i' then
		if target == 'ra' then
			send_command('input /ma "" <t>')
		elseif target == 'aga' then
			send_command('input /ma "" <t>')
		else
			send_command('input /ma "'..nuke..'" <t>')
		end
	else
		if target == 'ra' then
			send_command('input /ma "" <t>')
		elseif target == 'aga' then
			send_command('input /ma "" <t>')
		else
			send_command('input /ma "'..nuke..''..tier..'" <t>')
		end
	end
end

function job_setup()

    -- example macro command: /console gs c nuke aja fire to cast Firaja

    nukes = {}
    nukes.nuke4 = {['Fire']='Fire IV', ['Blizzard']='Blizzard IV', ['Aero']='Aero IV', ['Stone']='Stone IV',
        ['Thunder']='Thunder IV', ['Water']='Water IV'}
    nukes.nuke5 = {['Fire']='Fire V', ['Blizzard']='Blizzard V', ['Aero']='Aero V', ['Stone']='Stone V',
        ['Thunder']='Thunder V', ['Water']='Water V'}
    nukes.aja = {['Fire']='Firaja', ['Blizzard']='Blizzaja', ['Aero']='Aeroja', ['Stone']='Stoneja',
        ['Thunder']='Thundaja', ['Water']='Waterja'}
end

-------------------------------------------------------------------------------------------------------------------
-- User self-commands.
-------------------------------------------------------------------------------------------------------------------

-- Called for custom player commands.
function job_self_command(cmdParams, eventArgs)
    if cmdParams[1]:lower() == 'nuke' then
        handle_nukes(cmdParams)
        eventArgs.handled = true
    end
end

function handle_nukes(cmdParams)
    if areas.Cities:contains(world.area) then
        add_to_chat(8, 'You cannot nuke in town.')
        return
    end

    if not cmdParams[3] then
        add_to_chat(8,'No nuke-type or nuke-element given.')
        return
    end
    
    local nuke_type = cmdParams[2]:lower()
    local nuke_element = cmdParams[3]:lower()

    if not nukes[nuke_type] then
        add_to_chat(123,'Unknown nuke type: '..tostring(nuke_type))
        return
    end

    if not nukes[nuke_element] then
        add_to_chat(123,'Unknown nuke element: '..tostring(nuke_element))
        return
    end

    if nukes[nuke_type][nuke_element] then
        -- Leave out target; let Shortcuts auto-determine it.
        send_command('@input /ma "'..nukes[nuke_type][nuke_element]..'"')
    else
        add_to_chat(122, '-- The spell you are trying to cast has not been defined. --')
    end
end

function user_setup()
	state.ElementMode = M{['description'] = 'Element Mode'}
	state.ElementMode:options('Stone','Water','Aero','Fire','Blizzard','Thunder')

	send_command('bind f11 gs c cycle ElementMode')
end

function job_setup()
	nukes = {}
	nukes.t1 = {['Stone']='Stone',['Water']='Water',['Aero']='Aero',['Fire']='Fire',['Blizzard']='Blizzard',['Thunder']='Thunder'}
	nukes.t2 = {['Stone']='Stone II',['Water']='Water II',['Aero']='Aero II',['Fire']='Fire II',['Blizzard']='Blizzard II',['Thunder']='Thunder II'}
	nukes.t3 = {['Stone']='Stone III',['Water']='Water III',['Aero']='Aero III',['Fire']='Fire III',['Blizzard']='Blizzard III',['Thunder']='Thunder III'}
	nukes.t4 = {['Stone']='Stone IV',['Water']='Water IV',['Aero']='Aero IV',['Fire']='Fire IV',['Blizzard']='Blizzard IV',['Thunder']='Thunder IV'}
	nukes.t5 = {['Stone']='Stone V',['Water']='Water V',['Aero']='Aero V',['Fire']='Fire V',['Blizzard']='Blizzard V',['Thunder']='Thunder V'}
	nukes.t6 = {['Stone']='Stone VI',['Water']='Water VI',['Aero']='Aero VI',['Fire']='Fire VI',['Blizzard']='Blizzard VI',['Thunder']='Thunder VI'}
	nukes.aga1 = {['Stone']='Stonega',['Water']='Waterga',['Aero']='Aeroga',['Fire']='Firaga',['Blizzard']='Blizzaga',['Thunder']='Thundaga'}
	nukes.aga2 = {['Stone']='Stonega II',['Water']='Waterga II',['Aero']='Aeroga II',['Fire']='Firaga II',['Blizzard']='Blizzaga II',['Thunder']='Thundaga II'}
	nukes.aga3 = {['Stone']='Stonega III',['Water']='Waterga III',['Aero']='Aeroga III',['Fire']='Firaga III',['Blizzard']='Blizzaga III',['Thunder']='Thundaga III'}
	nukes.aja = {['Stone']='Stoneja',['Water']='Waterja',['Aero']='Aeroja',['Fire']='Firaja',['Blizzard']='Blizzaja',['Thunder']='Thundaja'}
	nukes.ra1 = {['Stone']='Stonera',['Water']='Watera',['Aero']='Aerora',['Fire']='Fira',['Blizzard']='Blizzara',['Thunder']='Thundara'}
	nukes.ra2 = {['Stone']='Stonera II',['Water']='Watera II',['Aero']='Aerora II',['Fire']='Fira II',['Blizzard']='Blizzara II',['Thunder']='Thundara II'}
end

-------------------------------------------------------------------------------------------------------------------
-- User self-commands.
-------------------------------------------------------------------------------------------------------------------

-- Called for custom player commands.
function job_self_command(cmdParams, eventArgs)
	if cmdParams[1]:lower() == 'nuke' then
		handle_nukes(cmdParams)
		eventArgs.handled = true
	end
end

function handle_nukes(cmdParams)

	-- example macro command: "/console gs c nuke aja" when ElementMode is set to Fire to cast Firaja

	if areas.Cities:contains(world.area) then
		add_to_chat(8, 'You cannot nuke in town.')
		return
	end

	local nuke_type = cmdParams[2]:lower()
	local nuke_element = state.ElementMode.value

	if nukes[nuke_type] then
		-- Leave out target; let Shortcuts auto-determine it.
		send_command('@input /ma "'..nukes[nuke_type][nuke_element]..'"')
	else
		add_to_chat(122, '-- The spell you are trying to cast has not been defined. --')
	end
end

-------------------------------------------------------------------------------------------------------------------
-- Automatic HP/MP Cure Downgrade Function
-------------------------------------------------------------------------------------------------------------------

-- Global intercept on precast.
function job_precast(spell, action, spellMap, eventArgs)
	refine_cure(spell, action, spellMap, eventArgs)
end

local cure_mp_cost = {['Cure'] = 8, ['Cure II'] = 24, ['Cure III'] = 46, ['Cure IV'] = 88, ['Cure V'] = 135, ['Cure VI'] = 227}

-- Utility function for automatically adjusting the cure spell being used to match HP needs and MP limits.
-- Handle spell changes before attempting any precast stuff.
function refine_cure(spell, action, spellMap, eventArgs)
	-- Only handles single-target cures.
	if not spell.english:startswith('Cure') then
		return
	end

	local newCure = spell.english

	local missingHP
	
	-- If curing ourself, get our exact missing HP
	if spell.target.type == "SELF" then
		missingHP = player.max_hp - player.hp
	-- If curing someone in our alliance, we can estimate their missing HP
	elseif spell.target.isallymember then
		local target = find_player_in_alliance(spell.target.name)
		local est_max_hp = target.hp / (target.hpp/100)
		missingHP = math.floor(est_max_hp - target.hp)
	end

	-- If we have an estimated missing HP value, we can adjust the preferred spell used.
	if missingHP ~= nil then
		if player.main_job == 'WHM' then
			if missingHP < 40 and spell.target.name == player.name then
				-- Not worth curing yourself for so little.
				-- Don't block when curing others to allow for waking them up.
				add_to_chat(122,'Full HP!')
				eventArgs.cancel = true
				return
			elseif missingHP < 150 then
				newCure = 'Cure'
			elseif missingHP < 350 then
				newCure = 'Cure II'
			elseif missingHP < 650 then
				newCure = 'Cure III'
			elseif missingHP < 1000 then
				newCure = 'Cure IV'
			elseif missingHP < 1600 then
				newCure = 'Cure V'
			else
				newCure = 'Cure VI'
			end
		-- Rdm, Sch and Pld have high skill and up to Cure IV
		elseif player.main_job == 'RDM' or player.main_job == 'SCH' or player.main_job == 'PLD' then
			if missingHP < 40 and spell.target.name == player.name then
				-- Not worth curing yourself for so little.
				-- Don't block when curing others to allow for waking them up.
				add_to_chat(122,'Full HP!')
				eventArgs.cancel = true
				return
			elseif missingHP < 150 then
				newCure = 'Cure'
			elseif missingHP < 350 then
				newCure = 'Cure II'
			elseif missingHP < 650 then
				newCure = 'Cure III'
			else
				newCure = 'Cure IV'
			end
		-- Subbing /whm or /rdm gets you up to Cure IV
		elseif player.sub_job == 'WHM' or player.sub_job == 'RDM' then
			if missingHP < 40 and spell.target.name == player.name then
				-- Not worth curing yourself for so little.
				-- Don't block when curing others to allow for waking them up.
				add_to_chat(122,'Full HP!')
				eventArgs.cancel = true
				return
			elseif missingHP < 150 then
				newCure = 'Cure'
			elseif missingHP < 300 then
				newCure = 'Cure II'
			elseif missingHP < 550 then
				newCure = 'Cure III'
			else
				newCure = 'Cure IV'
			end
		-- Subbing /sch or /pld gets you up to Cure III
		elseif player.sub_job == 'SCH' or player.sub_job == 'PLD' then
			if missingHP < 40 and spell.target.name == player.name then
				-- Not worth curing yourself for so little.
				-- Don't block when curing others to allow for waking them up.
				add_to_chat(122,'Full HP!')
				eventArgs.cancel = true
				return
			elseif missingHP < 150 then
				newCure = 'Cure'
			elseif missingHP < 300 then
				newCure = 'Cure II'
			else
				newCure = 'Cure III'
			end
		else
			return
		end
	end

	local mpCost = cure_mp_cost[newCure]

	if buffactive['Light Arts'] or buffactive['Addendum: White'] then
		mpCost = math.floor(mpCost * 0.9)
	elseif buffactive['Dark Arts'] or buffactive['Addendum: Black'] then
		mpCost = math.floor(mpCost * 1.1)
	end

	local downgrade

	-- Downgrade the spell to what we can actually afford
	if player.mp < mpCost and not (buffactive['Manafont'] or buffactive['Mana Well']) then
		if player.mp < 8 then
			add_to_chat(122, 'Insufficient MP ['..tostring(player.mp)..']. Cancelling.')
			eventArgs.cancel = true
			return
		elseif player.mp < 24 then
			newCure = 'Cure'
		elseif player.mp < 46 then
			newCure = 'Cure II'
		elseif player.mp < 88 then
			newCure = 'Cure III'
		elseif player.mp < 135 then
			newCure = 'Cure IV'
		elseif player.mp < 227 then
			newCure = 'Cure V'
		end

		downgrade = 'Insufficient MP ['..tostring(player.mp)..'] to completely heal '..tostring(spell.target.name)..'. Changing spell to '..newCure..'.'
	end

	if newCure ~= spell.english then
		send_command('@input /ma "'..newCure..'" '..tostring(spell.target.raw))
		if downgrade then
			add_to_chat(122, downgrade)
		end
		eventArgs.cancel = true
		return
	end

	if missingHP and missingHP > 0 then
		add_to_chat(122,'Trying to heal '..tostring(missingHP)..' HP using '..newCure..'.')
	end
end

-- Initialization function for this job file.
function get_sets()
	mote_include_version = 2

	-- Load and initialize the include file.
	include('Mote-Include.lua')
	include('CureMod.lua')
end

-- Function to reset values to their defaults.
-- User command format: gs c reset [field]
-- Or: gs c reset all
function handle_reset(cmdParams)
    if #cmdParams == 0 then
        if _global.debug_mode then add_to_chat(123,'handle_reset: parameter failure: reset type not specified') end
        return
    end
    
    local state_var = get_state(cmdParams[1])

    local oldVal
    local newVal
    local descrip
    
    if state_var then
        oldVal = state_var.value
        state_var:reset()
        newVal = state_var.value
        
        local descrip = state_var.description or cmdParams[1]
        if job_state_change then
            job_state_change(descrip, newVal, oldVal)
        end

        add_to_chat(122,descrip..' is now '..state_var.current..'.')
        handle_update({'auto'})
    elseif cmdParams[1]:lower() == 'all' then
        for k,v in pairs(state) do
            if v._type == 'mode' then
                oldVal = v.value
                v:reset()
                newVal = v.value
                
                descrip = state_var.description
                if descrip and job_state_change then
                    job_state_change(descrip, newVal, oldVal)
                end
            end
        end

        if job_reset_state then
            job_reset_state('all')
        end

        if job_state_change then
            job_state_change('Reset All')
        end

        add_to_chat(122,"All state vars have been reset.")
        handle_update({'auto'})
    elseif job_reset_state then
        job_reset_state(cmdParams[1])
    else
        add_to_chat(123,'Mote-Libs: Reset: Unknown field ['..cmdParams[1]..']')
    end
end

function init_gear_sets()
    -- Elemental Ring/Twilight Cape/Obi --
    sets.Obi = {}
    sets.Obi.Thunder = {ring1="Zodiac Ring", back="Twilight Cape", waist='Rairin Obi'}
    sets.Obi.Water = {ring1="Zodiac Ring", back="Twilight Cape", waist='Suirin Obi'}
    sets.Obi.Fire = {ring1="Zodiac Ring", back="Twilight Cape", waist='Karin Obi'}
    sets.Obi.Ice = {ring1="Zodiac Ring", back="Twilight Cape", waist='Hyorin Obi'}
    sets.Obi.Wind = {ring1="Zodiac Ring", back="Twilight Cape", waist='Furin Obi'}
    sets.Obi.Earth = {ring1="Zodiac Ring", back="Twilight Cape", waist='Dorin Obi'}
    sets.Obi.Light = {ring1="Zodiac Ring", back="Twilight Cape", waist='Korin Obi'}
    sets.Obi.Dark = {ring1="Zodiac Ring", back="Twilight Cape", waist='Anrin Obi'}

    sets.midcast['Elemental Magic'] = { } -- Nuking Gear
    sets.magic_burst = {neck="Mizukage-no-Kubikazari"}
end

function job_post_midcast(spell, action, spellMap, eventArgs)
    if spell.skill == 'Elemental Magic' then
        if state.MagicBurst.value then
            equip(sets.magic_burst)
        end
        if spell.element == world.day_element or spell.element == world.weather_element then
            equip(sets.midcast['Elemental Magic'], sets.Obi[spell.element])
        end
    end
end

function job_post_midcast(spell, action, spellMap, eventArgs)
    if spell.skill == 'Elemental Magic' then
        if state.MagicBurst.value then
            equip(sets.magic_burst)
        end
        if spell.element == world.day_element or spell.element == world.weather_element then
            equip(sets.midcast['Elemental Magic'], {ring1="Zodiac Ring", back="Twilight Cape", waist="Hachirin-no-Obi"})
        end
    end
end