--
-- ZubanLib Library Functions
-- Version: 0.1.2
-- Author: Zuban (chumpnet@hotmail.com)
--

ZubanLib = {
	Const = {
		Texture = {
			HAWK = "Interface\\Icons\\Spell_Nature_RavenForm";
			MONKEY = "Interface\\Icons\\Ability_Hunter_AspectOfTheMonkey";
			CHEETAH = "Interface\\Icons\\Ability_Mount_JungleTiger";
		};
	};
	
	-- action bar
	Action = {
		BAG_VALUE = -2;
		NUM_SLOTS = 120;
	};
	
	-- paper doll
	Inventory = {
		BAG_VALUE = -1;
		NUM_SLOTS = 18;
	};
	
	-- bags
	Container = {};
	
	-- spellbook
	Spell = {};
	
	-- buffs
	Buff = {};
	
	-- write
	IO = {
		Chat = {};
		Screen = {};
	};
	
	-- stores extra cursor values
	Cursor = {};
};

--
-- Util functions
--

-- 
-- http://lua-users.org/wiki/RetiredLuaFaq
--
function ZubanLib.Clone(t)	-- return a copy of the table t
	local new = {};		-- create a new table
	local i, v = next(t, nil);	-- i is an index of t, v = t[i]

	while i do
		if (type(v) == "table") then
			v = ZubanLib.Clone(v);
		end
	
		new[i] = v;
		i, v = next(t, i);	-- get next index
	end
	
	return new;
end

function ZubanLib.IsBoolean(value)
	return (value == true or value == false);
end
  
function ZubanLib.ToString(value)
	if (value == nil) then
		return "nil";
	elseif (ZubanLib.IsBoolean(value)) then
		if (value) then
			return "true";
		else
			return "false";
		end
	else
		return value;
	end
end

function ZubanLib.InCombat()
	if (MGplayer ~= nil) then
		-- compatibility with MiniGroup addon created by Kaitlin
		return MGplayer.inCombat;
	elseif (PlayerFrame ~= nil) then
		return PlayerFrame.inCombat;
	else
		return nil;
	end
end

function ZubanLib.SetScale(frame, scale)
	return frame:SetScale(UIParent:GetScale() * scale);
end

--
-- Action functions
--

function ZubanLib.Action.GoToPage(page)
	page = tonumber(page);
	
	if (page > 0) then
		if (CURRENT_ACTIONBAR_PAGE ~= page) then
			CURRENT_ACTIONBAR_PAGE = page;
			ChangeActionBarPage();
		end
	end
end

function ZubanLib.Action.FindSlotByName(name, rank)
	local textName, textRank;

	for slot = 1, ZubanLib.Action.NUM_SLOTS do
		GameTooltip:SetAction(slot);
		textName = GameTooltipTextLeft1:GetText();
		textRank = GameTooltipTextRight1:GetText();

		if (textName == name and (rank == nil or rank == "" or textRank == rank)) then
			return slot;
		end		
	end
	
	return nil;
end

function ZubanLib.Action.FindSlotByTexture(name)
	local count, text, texture;

	for slot = 1, ZubanLib.Action.NUM_SLOTS do
		count = GetActionCount(slot);
		text = GetActionText(slot);
		texture = GetActionTexture(slot);

		if (count == 0 and text == nil and texture == name) then
			return slot;
		end		
	end
	
	return nil;
end

--
-- Inventory functions
--

function ZubanLib.Inventory.FindSlotByName(name)
	local itemName;
	
	for slot = 1, ZubanLib.Inventory.NUM_SLOTS do
		itemName = GetInventoryItemName(slot);
		
		if(itemName == name) then
			return slot;
		end
	end
	
	return nil;
end

--
-- Container functions
--

function ZubanLib.Container.FindBagSlotByName(name)
	local itemLink;

	for bag = 0, NUM_BAG_FRAMES do
		for slot = 1, GetContainerNumSlots(bag) do
			itemLink = GetContainerItemLink(bag, slot);

			if (itemLink) then
				--ZubanLib.IO.Chat.Write(itemLink);
				if (itemLink == name) then
					return bag, slot;
				end
			end
		end
	end

	return nil, nil;
end

function ZubanLib.Container.CountByName(name)
	local total = 0;
	local itemLink;
	local itemcount;
	
	for bag = 0, NUM_BAG_FRAMES do
		for slot = 1, GetContainerNumSlots(bag) do
			itemLink = GetContainerItemLink(bag, slot);

			if (itemLink ~= nil) then
				local _,_,itemLink = string.find(itemLink, "^.*%[(.*)%].*$");
				local _,_,name = string.find(name, "^.*%[(.*)%].*$");

				if  (itemLink == name) then
					_, itemcount = GetContainerItemInfo(bag, slot);
					total = total + itemcount;
				end
			end
		end
	end

	return total;
end

function ZubanLib.FindBagSlotByName(name)
	local slot = ZubanLib.Inventory.FindSlotByName(name);
	
	if (slot) then
		return ZubanLib.Inventory.BAG_VALUE, slot;
	else
		return ZubanLib.Container.FindSlotByName(name);
	end
end

--
-- spellbook functions
--

function ZubanLib.Spell.FindIDByName(name, subName, bookType)
	local numSkillLineTabs = GetNumSpellTabs();
	local tabName, texture, offset, numSpells;
	local skillLineTab;
	local spellName, subSpellName;

	if (not bookType) then
		bookType = BOOKTYPE_SPELL;
	end
	
	for i = 1, numSkillLineTabs do
		tabName, texture, offset, numSpells = GetSpellTabInfo(i);

		for id = offset + 1, offset + numSpells do
			spellName, subSpellName = GetSpellName(id, bookType);
			
			--ZubanLib.IO.Chat.Write(id.." "..spellName.." "..subSpellName.." "..name);
			
			if (spellName == name and (not subName or subName == subSpellName)) then
				return id;
			end
		end
	end
	
	return nil;
end

function ZubanLib.Spell.CastSpellByName(name, subName, bookType)
	if (not bookType) then
		bookType = BOOKTYPE_SPELL;
	end

	local id = ZubanLib.Spell.FindIDByName(name, subName, bookType);
	
	if (id) then
		return CastSpell(id, bookType);
	end
end

function ZubanLib.Buff.FindIDByTexture(name, unit)
	if (not unit) then
		unit = "player";
	end
	
	local id = 1;
	local buff = UnitBuff(unit, id);

	while (buff) do
		if (buff == name) then
			return id;
		end
		
		id = id + 1;
		buff = UnitBuff(unit, id);
	end
	
	return nil;
end

--
-- output functions
--

function ZubanLib.IO.Chat.Warn(message)
	ZubanLib.IO.Chat.Write(message, 1, 0.2, 0.2);
end

function ZubanLib.IO.Chat.Write(message, red, green, blue, frame)
	if (not red) then
		red = 1;
	end
    
	if (not green) then
		green = 1;
	end

	if (not blue) then
		blue = 1;
	end
	
	if (frame) then
		frame:AddMessage(message, red, green, blue, 1.0, UIERRORS_HOLD_TIME);
	elseif (DEFAULT_CHAT_FRAME)	then
		DEFAULT_CHAT_FRAME:AddMessage(message, red, green, blue);
	end
end

function ZubanLib.IO.Screen.Warn(message)
	ZubanLib.IO.Screen.Write(message, 1, 0.2, 0.2);
end

function ZubanLib.IO.Screen.Write(message, red, green, blue)
	ZubanLib.IO.Chat.Write(message, red, green, blue, UIErrorsFrame);
end

--
-- cursor object
--

local BasePickupContainer = PickupContainerItem;

function PickupContainerItem(bag, slot)
	local result = BasePickupContainer(bag, slot);
	
	if (CursorHasItem()) then
		ZubanLib.Cursor:PickupContainerItem(bag, slot);
	end
	
	return result;
end

local BasePickupAction = PickupAction;

function PickupAction(slot)
	ZubanLib.Cursor:PickupAction(slot);
	return BasePickupAction(slot);
end

local BasePickupSpell = PickupSpell;

function PickupSpell(id, bookType)
	local result = BasePickupSpell(id, bookType);

	if (CursorHasSpell()) then
		ZubanLib.Cursor:PickupSpell(id, bookType);
	end
	
	return result;
end

function ZubanLib.Cursor:PickupContainerItem(bag, slot)
	local link = GetContainerItemLink(bag, slot);
	local texture, itemcount, locked, quality, readable = GetContainerItemInfo(bag, slot);

	self.Attributes = {};
	self.Attributes.Location = "Container";
	self.Attributes.Name = link;
	self.Attributes.Bag = bag;
	self.Attributes.Slot = slot;
	self.Attributes.Texture = texture;
	self.Attributes.Count = itemcount;
	self.Attributes.Locked = locked;
	self.Attributes.Quality = quality;
	self.Attributes.Readable = readable;
	
	--self:Write();
end

function ZubanLib.Cursor:PickupAction(slot)
	local count = GetActionCount(slot);
	local text = GetActionText(slot);
	local texture = GetActionTexture(slot);

	self.Attributes = {};
	self.Attributes.Location = "Action";
	self.Attributes.Slot = slot;
	self.Attributes.Count = count;
	self.Attributes.Text = text;
	self.Attributes.Texture = texture;

	if (GameTooltip ~= nil) then
		GameTooltipTextLeft1:SetText("");
		GameTooltipTextRight1:SetText(""); -- clear the rank
		GameTooltip:SetAction(slot);

		local name = GameTooltipTextLeft1:GetText();
		local rank = GameTooltipTextRight1:GetText();
	
		self.Attributes.Name = name;
		self.Attributes.Rank = rank;
	
		--[[
		local lines = GameTooltip:NumLines();
		self.Attributes.Lines = lines;

		for i = 1, lines do
			textLeft = getglobal("GameTooltipTextLeft"..i);
			if (textLeft ~= nil) then
				self.Attributes["Left"..i] = textLeft:GetText();
			end
			
			textRight = getglobal("GameTooltipTextRight"..i);
			if (textRight ~= nil) then
				self.Attributes["Right"..i] = textRight:GetText();
			end
		end
		]]
	end
	
	--self:Write();
end

function ZubanLib.Cursor:PickupSpell(id, bookType)
	local name, rank = GetSpellName(id, bookType);
	local texture = GetSpellTexture(id, bookType);
	--local start, duration, enable = GetSpellCooldown (id, bookType);
	--local passive = IsSpellPassive(id, bookType);
	
	self.Attributes = {};
	self.Attributes.Location = "Spell";
	self.Attributes.ID = id;
	self.Attributes.BookType = bookType;
	self.Attributes.Name = name;
	self.Attributes.Rank = rank;
	self.Attributes.Texture = texture;
	--self.Attributes.Start = start;
	--self.Attributes.Duration = duration;
	--self.Attributes.Enable = enable;
	--self.Attributes.Passive = passive;

	--self:Write();
end

function ZubanLib.Cursor:Clear()
	self.Attributes = {};
end

function ZubanLib.Cursor.WriteAttribute(key, value)
	ZubanLib.IO.Chat.Write(ToString(key)..": "..ToString(value));
end

function ZubanLib.Cursor:Write()
	if (self.Attributes ~= nil) then
		table.foreach(self.Attributes, ZubanLib.Cursor.WriteAttribute);
	end
end