MacroGenerator.lua

local myname, Cork = ...

local function GetMacroID()
	for i=(MAX_ACCOUNT_MACROS+1),(MAX_ACCOUNT_MACROS+MAX_CHARACTER_MACROS) do if GetMacroInfo(i) == "Cork" then return i end end
end

function Cork.GenerateMacro()
	if InCombatLockdown() then return end

	local id = GetMacroID()
	if id then PickupMacro(id)
	elseif select(2, GetNumMacros()) < MAX_CHARACTER_MACROS then
		local body, ic, ooc
		local icon = "INV_MISC_QUESTIONMARK"
		local c = Cork.MYCLASS
		if c == "DEATHKNIGHT" then ooc = 3714
		elseif c == "HUNTER"  then -- ooc = 13165 -- dead spell
		elseif c == "SHAMAN"  then -- ooc = 324 -- dead spell
		elseif c == "WARLOCK" then -- ooc = 6201
		elseif c == "WARRIOR" then -- ooc = 6673 -- dead spell
		elseif c == "MONK"    then -- ooc = 115921 -- dead spell
		elseif c == "ROGUE"   then ooc = 2823
		elseif c == "DRUID"   then ic, ooc = 22812, nil -- 1126 -- dead spell
		elseif c == "MAGE"    then ic, ooc = 30482, nil -- 1459 -- dead spell
		elseif c == "PALADIN" then -- ic, ooc = 20165, 19740 -- dead spells
		elseif c == "PRIEST"  then -- ic, ooc = 588, 21562 -- dead spells
		end
		if ic and ooc then
			ic, ooc = GetSpellInfo(ic), GetSpellInfo(ooc)
			body = "#showtooltip [combat] "..ic.."; "..ooc.."\n/cast [combat] "..ic.."\n/stopmacro [combat]\n/click CorkFrame"
		elseif ooc then
			local ooc, _, texture = GetSpellInfo(ooc)
			texture = texture:upper():match("^INTERFACE\\ICONS\\(.+)")
			if texture then
				icon = texture
				body = "/click CorkFrame"
			else
				body = "#showtooltip "..ooc.."\n/click CorkFrame"
			end
		elseif ic then
			ic = GetSpellInfo(ic)
			body = "#showtooltip [combat] "..ic.."\n/cast [combat] "..ic.."\n/stopmacro [combat]\n/click CorkFrame"
		else
			body = "/click CorkFrame"
		end
		local id = CreateMacro("Cork", icon, body, true)
		PickupMacro(id)
	end
end