tekkub / cork
watch download tarball
public
Forks8Right
Watchers14Right
Description: WoW Addon - Generic reminder framework
Homepage: http://www.tekkub.net/
Clone URL: git://github.com/tekkub/cork.git
Click here to lend your support to: cork and make a donation at www.pledgie.com !
cork / MacroGenerator.lua
100644 36 lines (31 sloc) 1.524 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

local MAX_ACCOUNT_MACROS, MAX_CHARACTER_MACROS = 36, 18
 
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 _, c = UnitClass("player")
		if c == "DEATHKNIGHT" then ooc = GetSpellInfo(3714)
		elseif c == "HUNTER"  then ooc = GetSpellInfo(13165)
		elseif c == "SHAMAN"  then ooc = GetSpellInfo(324)
		elseif c == "WARLOCK" then ooc = GetSpellInfo(687)
		elseif c == "WARRIOR" then ooc = GetSpellInfo(6673)
		elseif c == "DRUID"   then ic, ooc = GetSpellInfo(22812), GetSpellInfo(GetSpellInfo(21562)) or GetSpellInfo(1126)
		elseif c == "MAGE"    then ic, ooc = GetSpellInfo(168),   GetSpellInfo(GetSpellInfo(23028)) or GetSpellInfo(1459)
		elseif c == "PALADIN" then ic, ooc = GetSpellInfo(21084), GetSpellInfo(GetSpellInfo(25782)) or GetSpellInfo(19740)
		elseif c == "PRIEST"  then ic, ooc = GetSpellInfo(588),   GetSpellInfo(GetSpellInfo(21849)) or GetSpellInfo(1243) end
		if ic and ooc then
			body = "#showtooltip [combat] "..ic.."; "..ooc.."\n/cast [combat] "..ic.."\n/stopmacro [combat]\n/click CorkFrame"
		elseif ooc then
			body = "#showtooltip "..ooc.."\n/click CorkFrame"
		else
			body = "/click CorkFrame"
		end
		local id = CreateMacro("Cork", 1, body, true)
		PickupMacro(id)
	end
end