--[[
##############################################################################
S V U I   By: Munglunch
##############################################################################
--]]
--[[ GLOBALS ]]--
local _G = _G;
--LUA
local unpack        = _G.unpack;
local select        = _G.select;
local assert        = _G.assert;
local type          = _G.type;
local error         = _G.error;
local pcall         = _G.pcall;
local print         = _G.print;
local ipairs        = _G.ipairs;
local pairs         = _G.pairs;
local next          = _G.next;
local rawset        = _G.rawset;
local rawget        = _G.rawget;
local tostring      = _G.tostring;
local tonumber      = _G.tonumber;
local getmetatable  = _G.getmetatable;
local setmetatable  = _G.setmetatable;
--STRING
local string        = _G.string;
local upper         = string.upper;
local format        = string.format;
local find          = string.find;
local match         = string.match;
local gsub          = string.gsub;
--MATH
local math          = _G.math;
local floor         = math.floor;
local random        = math.random;
--TABLE
local table         = _G.table;
local tsort         = table.sort;
local tconcat       = table.concat;
local tinsert       = _G.tinsert;
local tremove       = _G.tremove;
local twipe         = _G.wipe;
--BLIZZARD API
local ReloadUI              = _G.ReloadUI;
local GetLocale             = _G.GetLocale;
local CreateFrame           = _G.CreateFrame;
local IsAddOnLoaded         = _G.IsAddOnLoaded;
local InCombatLockdown      = _G.InCombatLockdown;
local GetAddOnInfo          = _G.GetAddOnInfo;
local LoadAddOn             = _G.LoadAddOn;
local SendAddonMessage      = _G.SendAddonMessage;
local LibStub               = _G.LibStub;
local GetAddOnMetadata      = _G.GetAddOnMetadata;
local GetCVarBool           = _G.GetCVarBool;
local GameTooltip           = _G.GameTooltip;
local StaticPopup_Hide      = _G.StaticPopup_Hide;
local ERR_NOT_IN_COMBAT     = _G.ERR_NOT_IN_COMBAT;

local SV = select(2, ...);
local L = SV.L;
--[[
##########################################################
LOCAL VARS
##########################################################
]]--
local incpat 	  = gsub(gsub(FACTION_STANDING_INCREASED, "(%%s)", "(.+)"), "(%%d)", "(.+)");
local changedpat  = gsub(gsub(FACTION_STANDING_CHANGED, "(%%s)", "(.+)"), "(%%d)", "(.+)");
local decpat	  = gsub(gsub(FACTION_STANDING_DECREASED, "(%%s)", "(.+)"), "(%%d)", "(.+)");
local standing    = ('%s:'):format(STANDING);
local reputation  = ('%s:'):format(REPUTATION);
local hideStatic = false;

function SV:VendorGrays(destroy, silent, request)
	if((not MerchantFrame or not MerchantFrame:IsShown()) and (not destroy) and (not request)) then
		SV:AddonMessage(L["You must be at a vendor."])
		return
	end

	local totalValue = 0;
	local canDelete = 0;

	for bagID = 0, 4 do
		for slot = 1, GetContainerNumSlots(bagID) do
			local itemLink = GetContainerItemLink(bagID, slot)
			if(itemLink) then
				local name, link, quality, iLevel, reqLevel, class, subclass, maxStack, equipSlot, texture, vendorPrice = GetItemInfo(itemLink)
				if(vendorPrice) then
					local itemCount = select(2, GetContainerItemInfo(bagID, slot))
					local sellPrice = vendorPrice * itemCount
					local itemID = GetContainerItemID(bagID, slot);
					if(destroy) then
						if(find(itemLink, "ff9d9d9d")) then
							if(not request) then
								PickupContainerItem(bagID, slot)
								DeleteCursorItem()
							end
							totalValue = totalValue + sellPrice;
							canDelete = canDelete + 1
						elseif(SV.Inventory:VendorCheck(itemID, bagID, slot)) then
							if(not request) then
								PickupContainerItem(bagID, slot)
								DeleteCursorItem()
							end
							totalValue = totalValue + sellPrice;
							canDelete = canDelete + 1
						end
					elseif(sellPrice > 0) then
						if(quality == 0) then
							if(not request) then
								UseContainerItem(bagID, slot)
								PickupMerchantItem()
							end
							totalValue = totalValue + sellPrice
						elseif(SV.Inventory and (not request) and SV.Inventory:VendorCheck(itemID, bagID, slot)) then
							totalValue = totalValue + sellPrice
						end
					end
				end
			end
		end
	end

	if request then return totalValue end

	if(not silent) then
		if(totalValue > 0) then
			local prefix, strMsg
			local gold, silver, copper = floor(totalValue / 10000) or 0, floor(totalValue%10000 / 100) or 0, totalValue%100;

			if(not destroy) then
				strMsg = ("%s |cffffffff%s%s%s%s%s%s|r"):format(L["Vendored gray items for:"], gold, L["goldabbrev"], silver, L["silverabbrev"], copper, L["copperabbrev"])
				SV:AddonMessage(strMsg)
			else
				if(canDelete > 0) then
					prefix = ("|cffffffff%s%s%s%s%s%s|r"):format(gold, L["goldabbrev"], silver, L["silverabbrev"], copper, L["copperabbrev"])
					strMsg = (L["Deleted %d gray items. Total Worth: %s"]):format(canDelete, prefix)
					SV:AddonMessage(strMsg)
				else
					SV:AddonMessage(L["No gray items to delete."])
				end
			end
		elseif(destroy) then
			SV:AddonMessage(L["No gray items to delete."])
		end
	end
end
--[[
##########################################################
INVITE AUTOMATONS
##########################################################
]]--
function SV:PARTY_INVITE_REQUEST(event, invitedBy)
	if(not self.db.Extras.autoAcceptInvite) then return; end

	if(QueueStatusMinimapButton:IsShown() or IsInGroup()) then return end
	if(GetNumFriends() > 0) then
		ShowFriends()
	end
	if(IsInGuild()) then
		GuildRoster()
	end

	hideStatic = true;
	local invited = false;

	for f = 1, GetNumFriends() do
		local friend = gsub(GetFriendInfo(f), "-.*", "")
		if(friend == invitedBy) then
			AcceptGroup()
			invited = true;
			self:AddonMessage("Accepted an Invite From Your Friends!")
			break;
		end
	end

	if(not invited) then
		for b = 1, BNGetNumFriends() do
			local _, _, _, _, friend = BNGetFriendInfo(b)
			invitedBy = invitedBy:match("(.+)%-.+") or invitedBy;
			if(friend == invitedBy) then
				AcceptGroup()
				invited = true;
				self:AddonMessage("Accepted an Invite From Your Friends!")
				break;
			end
		end
	end

	if(not invited) then
		for g = 1, GetNumGuildMembers(true) do
			local guildMate = gsub(GetGuildRosterInfo(g), "-.*", "")
			if(guildMate == invitedBy) then
				AcceptGroup()
				invited = true;
				self:AddonMessage("Accepted an Invite From Your Guild!")
				break;
			end
		end
	end

	if(invited) then
		local popup = StaticPopup_FindVisible("PARTY_INVITE")
		if(popup) then
			popup.inviteAccepted = 1
			StaticPopup_Hide("PARTY_INVITE")
		else
			popup = StaticPopup_FindVisible("PARTY_INVITE_XREALM")
			if(popup) then
				popup.inviteAccepted = 1
				StaticPopup_Hide("PARTY_INVITE_XREALM")
			end
		end
	end
end
--[[
##########################################################
REPAIR AUTOMATONS
##########################################################
]]--
function SV:MERCHANT_SHOW()
	if(self.db.Extras.vendorGrays) then
		self:VendorGrays()
	end
	local autoRepair = self.db.Extras.autoRepair;
	local guildRepair = (autoRepair == "GUILD");
	if IsShiftKeyDown() or autoRepair == "NONE" or not CanMerchantRepair() then return end
	local repairCost,canRepair = GetRepairAllCost()

	if repairCost > 0 then
		local loan = GetGuildBankWithdrawMoney()
		if(guildRepair and ((not CanGuildBankRepair()) or (loan ~= -1 and (repairCost > loan)))) then
			guildRepair = false
		end
		if canRepair then
			RepairAllItems(guildRepair)
			local x,y,z= repairCost % 100,floor((repairCost % 10000)/100), floor(repairCost / 10000)
			if(guildRepair) then
				self:AddonMessage("Repairs Complete! ...Using Guild Money!\n"..GetCoinTextureString(repairCost,12))
			else
				self:AddonMessage("Repairs Complete!\n"..GetCoinTextureString(repairCost,12))
			end
		else
			self:AddonMessage("The Minions Say You Are Too Broke To Repair! They Are Laughing..")
		end
	end
end
--[[
##########################################################
REP AUTOMATONS
##########################################################
]]--
function SV:CHAT_MSG_COMBAT_FACTION_CHANGE(event, msg)
	if not self.db.Extras.autorepchange then return end
	local _, _, faction, amount = msg:find(incpat)
	if not faction then
		_, _, faction, amount = msg:find(changedpat) or msg:find(decpat)
	end
	if faction and faction ~= GUILD_REPUTATION then
		local active = GetWatchedFactionInfo()
		for factionIndex = 1, GetNumFactions() do
			local name = GetFactionInfo(factionIndex)
			if name == faction and name ~= active then
				SetWatchedFactionIndex(factionIndex)
				local strMsg = ("Watching Faction: %s"):format(name)
				self:AddonMessage(strMsg)
				break
			end
		end
	end
end
--[[
##########################################################
QUEST AUTOMATONS
##########################################################
]]--
function SV:AutoQuestProxy()
	if(IsShiftKeyDown()) then return false; end
    if(((not QuestIsDaily()) or (not QuestIsWeekly())) and (self.db.Extras.autodailyquests)) then return false; end
    if(QuestFlagsPVP() and (not self.db.Extras.autopvpquests)) then return false; end
    return true
end

function SV:QUEST_GREETING()
    if(self.db.Extras.autoquestaccept == true and self:AutoQuestProxy()) then
        local active,available = GetNumActiveQuests(), GetNumAvailableQuests()
        if(active + available == 0) then return end
        if(available > 0) then
        	for i = 1, available do
            	SelectAvailableQuest(i)
            end
        end
        if(active > 0) then
            for i = 1, active do
            	SelectActiveQuest(i)
            end
        end
    end
end

do
	local ACTIVE_QUESTS = {};

	local function ParseGossipAvailableQuests(...)
		local logCount = GetNumQuestLogEntries()
		twipe(ACTIVE_QUESTS)
		for i=1, logCount do
			local title, level, suggestedGroup, isHeader, isCollapsed, isComplete = GetQuestLogTitle(i)
			ACTIVE_QUESTS[title] = isComplete;
		end
		for i=1, select("#", ...), 6 do
			local title = select(i, ...);
			if(ACTIVE_QUESTS[title] == nil) then
				SelectGossipAvailableQuest(i);
			end
		end
	end

	local function ParseGossipActiveQuests(...)
		for i=1, select("#", ...), 6 do
			local title = select(i, ...);
			if(ACTIVE_QUESTS[title]) then
				SelectGossipActiveQuest(i);
			end
		end
	end

	function SV:GOSSIP_SHOW()
	    if(self.db.Extras.autoquestaccept == true and self:AutoQuestProxy()) then
	    	local numOther = GetNumGossipOptions()
	    	ParseGossipAvailableQuests(GetGossipAvailableQuests())
	    	ParseGossipActiveQuests(GetGossipActiveQuests())
	    end
	end
end

function SV:QUEST_DETAIL()
    if(self.db.Extras.autoquestaccept == true and self:AutoQuestProxy()) then
        if(not QuestGetAutoAccept()) then
			AcceptQuest()
		else
			CloseQuest()
		end
    end
end

function SV:QUEST_ACCEPT_CONFIRM()
    if(self.db.Extras.autoquestaccept == true and self:AutoQuestProxy()) then
        ConfirmAcceptQuest()
        StaticPopup_Hide("QUEST_ACCEPT_CONFIRM")
    end
end

function SV:QUEST_PROGRESS()
	if(IsShiftKeyDown()) then return false; end
  if(self.db.Extras.autoquestcomplete == true and IsQuestCompletable()) then
      CompleteQuest()
  end
end

function SV:QUEST_COMPLETE()
	if(not self.db.Extras.autoquestcomplete and (not self.db.Extras.autoquestreward)) then return end
	if(IsShiftKeyDown()) then return false; end
	local rewards = GetNumQuestChoices()
	local rewardsFrame = QuestInfoFrame.rewardsFrame;
	if(rewards > 1) then
		local auto_select = QuestFrameRewardPanel.itemChoice or QuestInfoFrame.itemChoice;
		local selection, value = 1, 0;

		for i = 1, rewards do
			local iLink = GetQuestItemLink("choice", i)
			if iLink then
				local iValue = select(11,GetItemInfo(iLink))
				if iValue and iValue > value then
					value = iValue;
					selection = i
				end
			end
		end

		local chosenItem = QuestInfo_GetRewardButton(rewardsFrame, selection)

		if chosenItem.type == "choice" then
			QuestInfoItemHighlight:ClearAllPoints()
			QuestInfoItemHighlight:SetAllPoints(chosenItem)
			QuestInfoItemHighlight:Show()
			QuestInfoFrame.itemChoice = chosenItem:GetID()
			self:AddonMessage("A Minion Has Chosen Your Reward!")
		end

		auto_select = selection

		if self.db.Extras.autoquestreward == true then
			GetQuestReward(auto_select)
		end
	else
		if(self.db.Extras.autoquestcomplete == true) then
			GetQuestReward(rewards)
		end
	end
end

local AutoRelease_OnEvent = function(self, event)
	local isInstance, instanceType = IsInInstance()
	if(isInstance and instanceType == "pvp") then
		local spell = GetSpellInfo(20707)
		if(SV.class ~= "SHAMAN" and not(spell and UnitBuff("player", spell))) then
			RepopMe()
		end
	end
	for i=1,GetNumWorldPVPAreas() do
		local _,localizedName, isActive = GetWorldPVPAreaInfo(i)
		if(GetRealZoneText() == localizedName and isActive) then RepopMe() end
	end
end
--[[
##########################################################
BUILD FUNCTION / UPDATE
##########################################################
]]--
local function InitializeAutomations()
	--print("InitializeAutomations")
	SV:RegisterEvent('PARTY_INVITE_REQUEST')
	SV:RegisterEvent('CHAT_MSG_COMBAT_FACTION_CHANGE')
	SV:RegisterEvent('MERCHANT_SHOW')
	SV:RegisterEvent('QUEST_COMPLETE')
	SV:RegisterEvent('QUEST_GREETING')
	SV:RegisterEvent('GOSSIP_SHOW')
	SV:RegisterEvent('QUEST_DETAIL')
	SV:RegisterEvent('QUEST_ACCEPT_CONFIRM')
	SV:RegisterEvent('QUEST_PROGRESS')

	if SV.db.Extras.pvpautorelease then
		local autoReleaseHandler = CreateFrame("frame")
		autoReleaseHandler:RegisterEvent("PLAYER_DEAD")
		autoReleaseHandler:SetScript("OnEvent", AutoRelease_OnEvent)
	end

	if(SV.db.Extras.skipcinematics) then
		local skippy = CreateFrame("Frame")
		skippy:RegisterEvent("CINEMATIC_START")
		skippy:SetScript("OnEvent", CinematicFrame_CancelCinematic)
		MovieFrame:SetScript("OnEvent", GameMovieFinished)
	end
end

SV:NewScript(InitializeAutomations)
