--[[
##############################################################################
_____/\\\\\\\\\\\____/\\\________/\\\__/\\\________/\\\__/\\\\\\\\\\\_       #
 ___/\\\/////////\\\_\/\\\_______\/\\\_\/\\\_______\/\\\_\/////\\\///__      #
  __\//\\\______\///__\//\\\______/\\\__\/\\\_______\/\\\_____\/\\\_____     #
   ___\////\\\__________\//\\\____/\\\___\/\\\_______\/\\\_____\/\\\_____    #
    ______\////\\\________\//\\\__/\\\____\/\\\_______\/\\\_____\/\\\_____   #
     _________\////\\\______\//\\\/\\\_____\/\\\_______\/\\\_____\/\\\_____  #
      __/\\\______\//\\\______\//\\\\\______\//\\\______/\\\______\/\\\_____ #
       _\///\\\\\\\\\\\/________\//\\\________\///\\\\\\\\\/____/\\\\\\\\\\\_#
        ___\///////////___________\///___________\/////////_____\///////////_#
##############################################################################
S U P E R - V I L L A I N - U I   By: Munglunch                              #
##############################################################################
##########################################################
LOCALIZED LUA FUNCTIONS
##########################################################
]]--
--[[ GLOBALS ]]--
local _G = _G;
local unpack 	= _G.unpack;
local select 	= _G.select;
local pairs 	= _G.pairs;
local ipairs 	= _G.ipairs;
local type 		= _G.type;
local error 	= _G.error;
local pcall 	= _G.pcall;
local tostring 	= _G.tostring;
local tonumber 	= _G.tonumber;
local tinsert 	= _G.tinsert;
local string 	= _G.string;
local math 		= _G.math;
local bit 		= _G.bit;
local table 	= _G.table;
--[[ STRING METHODS ]]--
local lower, upper = string.lower, string.upper;
local find, format, len, split = string.find, string.format, string.len, string.split;
local match, sub, join = string.match, string.sub, string.join;
local gmatch, gsub = string.gmatch, string.gsub;
--[[ MATH METHODS ]]--
local abs, ceil, floor, round = math.abs, math.ceil, math.floor, math.round;  -- Basic
local fmod, modf, sqrt = math.fmod, math.modf, math.sqrt;	-- Algebra
local atan2, cos, deg, rad, sin = math.atan2, math.cos, math.deg, math.rad, math.sin;  -- Trigonometry
local huge, random = math.huge, math.random;  -- Uncommon
--[[ BINARY METHODS ]]--
local band, bor = bit.band, bit.bor;
--[[ TABLE METHODS ]]--
local tremove, tcopy, twipe, tsort, tconcat = table.remove, table.copy, table.wipe, table.sort, table.concat;
--[[
##########################################################
GET ADDON DATA
##########################################################
]]--
local SV = select(2, ...)
local L = SV.L
--[[
##########################################################
LOCAL VARS
##########################################################
]]--
local SuperDockWindowRight, QuestFrame;
local ICON_FILE = [[Interface\AddOns\SVUI\assets\artwork\Icons\DOCK-QUESTS]]
local OBJECTIVE_TRACKER_LINE_WIDTH = _G.OBJECTIVE_TRACKER_LINE_WIDTH;
--[[
##########################################################
PRE VARS/FUNCTIONS
##########################################################
]]--

--[[
##########################################################
CORE FUNCTIONS
##########################################################
]]--
local QuestFrame_OnEvent = function(self, event)
	if(event == "QUEST_AUTOCOMPLETE" and SuperDockWindowRight and QuestFrame) then
		if SuperDockWindowRight.FrameName and _G[SuperDockWindowRight.FrameName] and _G[SuperDockWindowRight.FrameName]:IsShown() then return end
		if not QuestFrame:IsShown() then
			SuperDockWindowRight.FrameName = "SVUI_QuestFrame"
			if not SuperDockWindowRight:IsShown()then
				SuperDockWindowRight:Show()
			end
			SV:CycleDocklets()
			QuestFrame:Show()
			if(QuestFrame.ToolbarButton) then
				QuestFrame.ToolbarButton.IsOpen = true;
				QuestFrame.ToolbarButton:SaveColors("green", "green")
			end
		end
	end
end

local function CreateQuestFrame()
	SuperDockWindowRight = _G.SuperDockWindowRight
	local ObjectiveTrackerFrame = _G.ObjectiveTrackerFrame

	if(not SV.db.general.questWatch) then
		ObjectiveTrackerFrame:RemoveTextures(true)

		QuestFrame = CreateFrame("Frame", "SVUI_QuestFrame", UIParent);
		QuestFrame:SetSize(200, ObjectiveTrackerFrame:GetHeight());
		QuestFrame:SetPoint("TOPRIGHT", UIParent, "RIGHT", -200, 100);

		ObjectiveTrackerFrame:ClearAllPoints()
		ObjectiveTrackerFrame:SetClampedToScreen(false)
		ObjectiveTrackerFrame:SetParent(QuestFrame)
		ObjectiveTrackerFrame:SetAllPoints(QuestFrame)
		ObjectiveTrackerFrame:SetFrameLevel(QuestFrame:GetFrameLevel()  +  1)
		ObjectiveTrackerFrame.ClearAllPoints = SV.fubar;
		ObjectiveTrackerFrame.SetPoint = SV.fubar;
		ObjectiveTrackerFrame.SetAllPoints = SV.fubar;

		ObjectiveTrackerFrame.BlocksFrame:RemoveTextures(true)
		ObjectiveTrackerFrame.BlocksFrame.QuestHeader:RemoveTextures(true)
		ObjectiveTrackerFrame.BlocksFrame.AchievementHeader:RemoveTextures(true)
		ObjectiveTrackerFrame.BlocksFrame.ScenarioHeader:RemoveTextures(true)
		ObjectiveTrackerFrame.HeaderMenu:RemoveTextures(true)
		ObjectiveTrackerFrame.BlockDropDown:RemoveTextures(true)

		SV.Mentalo:Add(QuestFrame, "Quest Watch");
	else
		local bgTex = [[Interface\BUTTONS\WHITE8X8]]
		local bdTex = SV.Media.bar.glow

		QuestFrame = CreateFrame("Frame", "SVUI_QuestFrame", SuperDockWindowRight);
		QuestFrame:SetFrameStrata("BACKGROUND");
		SV:RegisterDocklet("SVUI_QuestFrame", "Quest Watch", ICON_FILE, false, true)

		local listFrame = CreateFrame("ScrollFrame", nil, QuestFrame);
		listFrame:SetPoint("TOPLEFT", QuestFrame, -62, 0);
		listFrame:SetPoint("BOTTOMRIGHT", QuestFrame, -31, 21);
		listFrame:EnableMouseWheel(true);

		local scrollFrame = CreateFrame("Slider", nil, listFrame);
		scrollFrame:SetHeight(listFrame:GetHeight());
		scrollFrame:SetWidth(18);
		scrollFrame:SetPoint("TOPRIGHT", QuestFrame, "TOPRIGHT", -3, 0);
		scrollFrame:SetBackdrop({bgFile = bgTex, edgeFile = bdTex, edgeSize = 4, insets = {left = 3, right = 3, top = 3, bottom = 3}});
		scrollFrame:SetFrameLevel(6)
		scrollFrame:SetFixedPanelTemplate("Transparent", true);
		scrollFrame:SetThumbTexture("Interface\\Buttons\\UI-ScrollBar-Knob");
		scrollFrame:SetOrientation("VERTICAL");
		scrollFrame:SetValueStep(5);
		scrollFrame:SetMinMaxValues(1, 420);
		scrollFrame:SetValue(1);

		listFrame.slider = scrollFrame;
		listFrame:SetScript("OnMouseWheel", function(self, delta)
			local scroll = self:GetVerticalScroll();
			local value = (scroll - (20  *  delta));
			if value < -1 then
				value = 0
			end
			if value > 420 then
				value = 420
			end
			self:SetVerticalScroll(value)
			self.slider:SetValue(value)
		end)

		ObjectiveTrackerFrame:ClearAllPoints()
		ObjectiveTrackerFrame:SetClampedToScreen(false)
		ObjectiveTrackerFrame:SetParent(listFrame)
		ObjectiveTrackerFrame:SetHeight(500)
		ObjectiveTrackerFrame:SetPoint("TOPRIGHT", listFrame, "TOPRIGHT", -31, 0)
		ObjectiveTrackerFrame:SetFrameLevel(listFrame:GetFrameLevel()  +  1)
		if listFrame then
			OBJECTIVE_TRACKER_LINE_WIDTH = (listFrame:GetWidth() - 100);
		else
			OBJECTIVE_TRACKER_LINE_WIDTH = (ObjectiveTrackerFrame:GetWidth() - 100);
		end
		ObjectiveTrackerFrame:SetWidth(OBJECTIVE_TRACKER_LINE_WIDTH)

		listFrame:SetScrollChild(ObjectiveTrackerFrame)
		scrollFrame:SetScript("OnValueChanged", function(self, argValue)
			listFrame:SetVerticalScroll(argValue)
		end)
		scrollFrame:ClearAllPoints()
		scrollFrame:SetPoint("TOPRIGHT", QuestFrame, "TOPRIGHT", -3, 0)

		ObjectiveTrackerFrame.BlocksFrame:RemoveTextures(true)
		ObjectiveTrackerFrame.BlocksFrame:SetPoint("TOPLEFT", ObjectiveTrackerFrame, "TOPLEFT", 87, 0)
		ObjectiveTrackerFrame.BlocksFrame:SetPoint("BOTTOMLEFT", ObjectiveTrackerFrame, "BOTTOMLEFT", 87, 0)
		ObjectiveTrackerFrame.BlocksFrame:SetWidth(OBJECTIVE_TRACKER_LINE_WIDTH)
		ObjectiveTrackerFrame.ClearAllPoints = SV.fubar;
		ObjectiveTrackerFrame.SetPoint = SV.fubar;
		ObjectiveTrackerFrame.SetAllPoints = SV.fubar;

		local eventHandler = CreateFrame("Frame")
		eventHandler:RegisterEvent("QUEST_AUTOCOMPLETE")
		eventHandler:SetScript("OnEvent", QuestFrame_OnEvent)
	end
end

SV:NewScript(CreateQuestFrame)