Positron_WHM.lua

function get_sets()
	sets = {}
	sets.precast = {}
	sets.midcast = {}
	sets.aftercast = {}

	include("common/job_change.lua")
	
	include("func/buffactive_movementspeed.lua") -- buffactive_movementspeed()
	include("func/buffactive_sublimation.lua") -- buffactive_sublimation()
	include("func/obi_check.lua") -- obi_check()

	include("all/dispelga.lua") -- sets.dispelga
	include("all/impact.lua") -- sets.impact
	include("all/obi.lua") -- sets.obi
	include("all/quickmagic.lua") -- sets.quickmagic
	include("all/th.lua") -- sets.th

	include("all/precast-enhancing.lua") -- sets.precast.enhancing
	include("all/precast-stoneskin.lua") -- sets.precast.stoneskin

	include("all/midcast-stoneskin.lua") -- sets.midcast.stoneskin

	include("whm/divinecaress.lua") -- sets.divinecaress
	include("whm/dt.lua") -- sets.dt
	include("whm/fastcast.lua") -- sets.fastcast
	include("whm/hpdown.lua") -- sets.hpdown
	include("whm/idle.lua") -- sets.idle
	include("whm/movementspeed.lua") -- sets.movementspeed
	include("whm/sublimation.lua") -- sets.sublimation
	include("whm/tp.lua") -- sets.tp
	include("whm/weapon.lua") -- sets.weapon
	include("whm/ws.lua") -- sets.ws
	include("whm/ws-accuracy.lua") -- sets.ws.accuracy
	include("whm/ws-clubskill.lua") -- sets.ws.clubskill
	include("whm/ws-dark.lua") -- sets.ws.dark
	include("whm/ws-hp.lua") -- sets.ws.hp
	include("whm/ws-multihit.lua") -- sets.ws.multihit

	include("whm/precast-benediction.lua") -- sets.precast.benediction
	include("whm/precast-devotion.lua") -- sets.precast.devotion
	include("whm/precast-healing.lua") -- sets.precast.healing
	include("whm/precast-martyr.lua") -- sets.precast.martyt

	include("whm/midcast-aquaveil.lua") -- sets.midcast.aquaveil
	include("whm/midcast-auspice.lua") -- sets.midcast.auspice
	include("whm/midcast-banish.lua") -- sets.midcast.banish
	include("whm/midcast-barspell.lua") -- sets.midcast.barspell
	include("whm/midcast-barstatus.lua") -- sets.midcast.barstatus
	include("whm/midcast-curaga.lua") -- sets.midcast.curaga
	include("whm/midcast-cursna.lua") -- sets.midcast.cursna
	include("whm/midcast-divine.lua") -- sets.midcast.divine
	include("whm/midcast-healing.lua") -- sets.midcast.healing
	include("whm/midcast-enfeebling.lua") -- sets.midcast.enfeebling
	include("whm/midcast-enhancing.lua") -- sets.midcast.enhancing
	include("whm/midcast-elemental.lua") -- sets.midcast.elemental
	include("whm/midcast-holy.lua") -- sets.midcast.holy
	include("whm/midcast-regen.lua") -- sets.midcast.regen
	include("whm/midcast-statusremoval.lua") -- sets.midcast.statusremoval

	_ACCURACY_WS = T {
		"Brainshaker",
		"Shell Crusher",
	}

	_DARK_WS = T {
		"Cataclysm"
	}

	_MAGICAL_WS = T {
		"Cataclysm",
		"Flash Nova",
		"Seraph Strike"
	}

	_MOONLIGHT = T {
		"Moonlight",
		"Starlight"
	}

	_MULTI_HIT_WS = T {
		"Hexa Strike",
		"Realmrazer"
	}

	_STATUSREMOVAL = T {
		"Poisona",
		"Paralyna",
		"Blindna",
		"Silena",
		"Stona",
		"Viruna",
		"Cursna",
		"Erase",
		"Esuna",
		"Sacrifice"
	}

	_BARSTATUS_SPELLS = T {
		"Baramnesia",
		"Baramnesra",
		"Barvirus",
		"Barvira",
		"Barparalyze",
		"Barparalyzra",
		"Barsilence",
		"Barsilencera",
		"Barpetrify",
		"Barpetra",
		"Barpoison",
		"Barpoisonra",
		"Barblind",
		"Barblindra",
		"Barsleep",
		"Barsleepra"
	}

	_WEAPON_SWAP_SPELLS = T {
		"Dispelga",
		"Holy",
		"Holy II"
	}

	send_command(macrobook_cmd..porter_cmd..lockstyle_cmd)
end

function sub_job_change(new, old)
	send_command("wait 10; \
	input /lockstyleset 23; \
	gs equip sets.idle")
end

function precast(spell, position)
	-- WS Engaged Check
	if spell.type == "WeaponSkill" and player.status ~= "Engaged" then
		cancel_spell()
		return
	end

	-- WS Distance Check
	_RANGE_MULTIPLIER = 1.642276421172564
	if spell.type == "WeaponSkill" and
		spell.target.distance >
		(spell.range * _RANGE_MULTIPLIER + spell.target.model_size)
	then
		add_to_chat(8, spell.name .. " aborted due to target out of range.")
		cancel_spell()
		return
	end

	if spell.type == "Scholar" then
		return
	end
	equip(sets.quickmagic, sets.fastcast)
	if spell.skill == "Healing Magic" then
		equip(sets.precast.healing)
	elseif spell.skill == "Enhancing Magic" then
		equip(sets.precast.enhancing)
		if spell.english:contains("Stoneskin") then
			equip(sets.precast.stoneskin)
		end
	elseif spell.type == "JobAbility" then
		if spell.english == "Benediction" then
			equip(sets.precast.benediction)
		elseif spell.english == "Devotion" then
			equip(sets.precast.devotion)
		elseif spell.english == "Martyr" then
			equip(sets.precast.martyr)
		end
	elseif spell.type == "WeaponSkill" then
		equip(sets.ws)
		if _DARK_WS:contains(spell.name) then
			equip(sets.ws.dark)
			obi_check(spell)
		elseif _ACCURACY_WS:contains(spell.name) then
			equip(sets.ws.accuracy)
		elseif _MAGICAL_WS:contains(spell.name) then
			equip(sets.ws.magical)
			obi_check(spell)
		elseif _MULTI_HIT_WS:contains(spell.name) then
			equip(sets.ws.multihit)
		elseif _MOONLIGHT:contains(spell.english) then
			equip(sets.ws.clubskill)
		elseif spell.english:contains("Dagan") then
			equip(sets.ws.hp)
		end
	elseif spell.english:contains("Impact") then
		equip(sets.impact)
	elseif spell.english:contains("Dispelga") then	
		_PREVIOUS_WEAPONS = sets.weapon
		if sets.dispelga.main ~= player.equipment.main then
			_PREVIOUS_WEAPONS = T {
				main = player.equipment.main,
				sub = player.equipment.sub
			}
		end
		equip(sets.dispelga)
	elseif _WEAPON_SWAP_SPELLS:contains(spell.english) then
		_PREVIOUS_WEAPONS = T {
			main = player.equipment.main,
			sub = player.equipment.sub
		}
	end
end

function midcast(spell)
	if spell.type == "Scholar" then
		return
	end
	if spell.skill == "Healing Magic" then
		equip(sets.idle, sets.dt, sets.midcast.healing)
		if spell.english:contains("Curaga") or spell.english:contains("Cura") then
			equip(sets.midcast.curaga)
			obi_check(spell)
		elseif _STATUSREMOVAL:contains(spell.name) then
			equip(sets.midcast.statusremoval)
			if spell.name:contains("Cursna") then
				equip(sets.midcast.cursna)
			end
			if buffactive['Divine Caress'] then
				equip(sets.divinecaress)
			end
		else
			obi_check(spell)
		end
	elseif spell.skill == "Enfeebling Magic" then
		equip(sets.idle, sets.dt, sets.midcast.enfeebling)
		if spell.english:contains("Dia") then
			equip(sets.th)
		elseif spell.english:contains("Dispelga") then
			equip(sets.dispelga)
		end
	elseif spell.skill == "Enhancing Magic" then
		equip(sets.idle, sets.dt, sets.midcast.enhancing)
		if spell.english:contains("Erase") then
			equip(sets.midcast.healing)
		elseif spell.english:contains("Regen") then
			equip(sets.midcast.regen)
		elseif spell.english:contains("Stoneskin") then
			equip(sets.midcast.stoneskin)
		elseif spell.english:contains("Bar") then
			equip(sets.midcast.barspell)
			if _BARSTATUS_SPELLS:contains(spell.english) then
				equip(sets.midcast.barstatus)
			end
		elseif spell.english:contains("Auspice") then
			equip(sets.midcast.auspice)
		elseif spell.english:contains("Aquaveil") then
			equip(sets.midcast.aquaveil)
		end
	elseif spell.skill == "Divine Magic" then
		equip(sets.idle, sets.dt, sets.midcast.enfeebling, sets.midcast.divine)
		if spell.english:contains("Holy") then
			equip(sets.midcast.elemental, sets.midcast.holy)
			obi_check(spell)
		elseif spell.english:contains("Banish") then
			equip(sets.midcast.elemental, sets.midcast.banish)
			obi_check(spell)
		end
	elseif spell.skill == "Dark Magic" then
		equip(sets.idle, sets.dt, sets.midcast.enfeebling)
	elseif spell.skill == "Elemental Magic" then
		if spell.english:contains("Impact") then
			equip(sets.impact)
		end
	end
end

function aftercast(spell)
	if spell.type == "Scholar" then
		return
	end
	if player.status == "Idle" then
		equip(sets.idle)
		-- if spell.english == "Sublimation" or buffactive_sublimation() then
			-- equip(sets.sublimation)
		-- end
	elseif player.status == "Engaged" then
		equip(sets.tp)
	end
	if _WEAPON_SWAP_SPELLS:contains(spell.english) then
		equip(_PREVIOUS_WEAPONS)
	end
end

function status_change(new, old)
	if new == "Engaged" then
		equip(sets.tp)
	elseif new == "Idle" then
		equip(sets.idle)
		-- if buffactive_sublimation() then
			-- equip(sets.sublimation)
		-- end
	end
end

function buff_change(name, gain, buff_details)
	if _MOVEMENT_SPEED_BUFFS:contains(name) then
		if gain then
			sets.idle = set_combine(sets.idle, sets.movementspeed)
			if player.status == "Idle" then
				equip(sets.idle)
			end
		else
			include("whm/idle.lua") -- sets.idle
			if player.status == "Idle" then
				equip(sets.idle)
			end
		end
	end
end

function self_command(command)
	if command == "hp" then
		send_command(
			'gs equip sets.hpdown; \
		wait 1; \
		gs equip sets.idle; \
		gs disable all; \
		input /ma "Cure IV" <me>; \
		wait 3; \
		gs enable all;'
		)
	end
end