 local DGV = DugisGuideViewer
if not DGV then return end
local LuaUtils = LuaUtils 
DugisLastPosition = nil

local DGU = DugisGuideUser

local CarboniteVersion = "0"

local IsLegion = select(4, GetBuildInfo()) >= 70000
local IsLegionPatch = select(4, GetBuildInfo()) >= 70100

if DugisGuideViewer.carboniteloaded then
	CarboniteVersion = C_AddOns.GetAddOnMetadata("Carbonite", "Version"):match("^([%d.]+)");
end

local pins = LibStub("HereBeDragons-Pins-2.0-Dugis")

local DugisArrow, L = DGV:RegisterModule("DugisArrow"), DugisLocals
DugisArrowGlobal = DugisArrow 

local MinimumRecalculateRoutes_sec = 15
local pingAnimationDelayHandler 

DGV.isAccuratePositionAvailable = true

DugisArrow.essential = true
local _, wayframe, wrongInstanceFloor
local InCombatLockdown, DoOutOfCombat, DoOutOfCombatCancelOld = InCombatLockdown, DGV.DoOutOfCombat, DGV.DoOutOfCombatCancelOld
local BeginAutoroutine, InterruptAutoroutine, YieldAutoroutine, GetRunningAutoroutine, RegisterReaction, RegisterFunctionPathReaction, tPool, DebugPrint, anchor = 
	DGV.BeginAutoroutine, DGV.InterruptAutoroutine, DGV.YieldAutoroutine, DGV.GetRunningAutoroutine, DGV.RegisterReaction, DGV.RegisterFunctionPathReaction, DGV.tPool, DGV.DebugPrint, DugisArrowAnchorFrame
local GetSpellInfo = C_Spell.GetSpellInfo

local function UpdatePingPosition()
	local animation = GetPingAnimation()
	animation:SetPoint(wayframe.arrow3D.dot:GetPoint(1))
	animation:Play()

 	local color = DugisArrow:GetDistancedArrowPingColor()
	local alpha = color[4]
	animation.Expand:SetVertexColor(color[1], color[2], color[3])
	animation.Expand:SetDesaturated(true)
	animation.ExpandEmpty:SetVertexColor(color[1], color[2], color[3])
	animation.ExpandEmpty:SetDesaturated(true)
	animation:SetAlpha(alpha)
end

--"foundRoute", "noRouteFound", "searching", "noTracking"
local function SetArrowState(state, isFirstWaypointItem)
	local stateHasChanged = DugisArrow.state ~= state
	DugisArrow.state = state
	DugisArrow.isFirstWaypointItem = isFirstWaypointItem
	DugisArrowGlobal.lastAngle = nil

	if DGV.Modules.GPSArrowModule then
		DGV.Modules.GPSArrowModule.UpdateParentAnchor()
	end

    if stateHasChanged and DugisArrowGlobal.SetScale then
        DugisArrowGlobal:SetScale()
    end
end

local pingAnimationAlpha = 0

SetArrowState("noTracking")

DugisArrow.UpdateToyButtonVisibility_pending = false
function DugisArrow.UpdateToyButtonVisibility()
    if wayframe.arrow:IsShown() then
        wayframe.toyButton:Hide()

		if wayframe.toyButton:GetParent() ~= UIParent then
			wayframe.toyButton:SetParent(UIParent)
			wayframe.toyButton:SetPoint("CENTER", UIParent,  0, 0) 
		end
    end
    DugisArrow.UpdateToyButtonVisibility_pending = false
end

function DugisArrow.UpdateToyButton_(itemId)
    local _, toyName, icon = C_ToyBox.GetToyInfo(itemId);
    if icon and toyName then
        wayframe.toyButton:SetAttribute("type", "item")
        wayframe.toyButton:SetAttribute("item", toyName)
        wayframe.toyButton.icon:SetTexture(icon)
        wayframe.toyButton.icon:Show()
        
        if not wayframe.arrow:IsShown() then
			wayframe.toyButton:Show()
			if wayframe.toyButton:GetParent() ~= wayframe then
				wayframe.toyButton:SetParent(wayframe)
				wayframe.toyButton:SetPoint("CENTER", wayframe,  0, 0) 
			end
            wayframe.button:Hide()
        end
        
        DoOutOfCombat(DugisArrow.UpdateToyButtonVisibility)
        return true
    else
        wayframe.toyButton:Hide()
    end
end
    
function DugisArrow:IsEnabled3DArrow()
	return DGV.isAccuratePositionAvailable and DGV:UserSetting(DGV_DISTANCED_ARROW) and not DugisArrow:IsFirstWaypointAnItem()
end

function DugisArrow:IsFirstWaypointAnItem() 
    local waypoint = DugisArrow.getFirstWaypoint and DugisArrow:getFirstWaypoint()
    local isItem = waypoint and waypoint.itemID
    return isItem
end

function DugisArrow:Is3DArrowVisible()
	return wayframe.arrow3D.dot:IsShown() and wayframe:IsShown() and wayframe:GetAlpha() == 1
end

function DugisArrow:UpdateToyButton(itemId)
    --itemId = 153039
    local itemId = tonumber(itemId)
    if itemId and PlayerHasToy(itemId) then
        if not DugisArrow.UpdateToyButton_(itemId) then
            LuaUtils:Delay(2, function()
                DugisArrow.UpdateToyButton_(itemId)
            end)
        end
    end
end    

local function GetOnPlaceAnimation(parent)
	if DGV.onPlaceAnimation then 
		return DGV.onPlaceAnimation
	end	

	local animation = CreateFrame("FRAME", nil, parent or UIParent, "OnPlaceAnimation")
	animation:SetSize(40, 40)
	
	animation.Play = function() 
		if animation:IsShown() then
			return 
		end
		animation.DriverAnimation:Play()
		animation.ScaleAnimation:Play()
		animation.RotateAnimation:Play()
		animation:Show()
	end

	animation.Stop = function()
		if not animation:IsShown() then
			return 
		end
		animation.DriverAnimation:Stop()
		animation.ScaleAnimation:Stop()
		animation.RotateAnimation:Stop()
		animation:Hide()
	end

	animation.Stop()

	DGV.onPlaceAnimation = animation
	
	return animation
end

function GetPingAnimation(parent)
	if DGV.pingAnimation then 
		return DGV.pingAnimation
	end	

	local animation = CreateFrame("FRAME", nil, parent or DugisGuideViewer.wayframe, "PingAnimation")
	animation:SetSize(50, 50)
	
	animation:SetFrameLevel(wayframe:GetFrameLevel() - 1)

	animation.Play = function() 
		if animation:IsShown() then
			return 
		end
		if not animation.DriverAnimation:IsPlaying() then
			animation.DriverAnimation:Play()
			animation.ScaleAnimation:Play()
		end
		animation:Show()
	end

	animation.Stop = function()
		if not animation:IsShown() then
			return 
		end
		animation.DriverAnimation:Stop()
		animation.ScaleAnimation:Stop()
		animation:Hide()
	end

	animation.Stop()

	DGV.pingAnimation = animation
	
	return animation
end
        
local function CreateArrowFrame()
	if not DugisArrowFrame then
		wayframe = CreateFrame("Button", "DugisArrowFrame", UIParent)
		wayframe:SetFrameStrata("MEDIUM")
		wayframe:SetFrameLevel(3)
		wayframe.arrow = wayframe:CreateTexture("BACKGROUND")
		wayframe.arrow:SetColorTexture(0,0,0,1);

		wayframe.arrow3D = {}
		wayframe.arrow3D.arrow = wayframe:CreateTexture("BACKGROUND")
		wayframe.arrow3D.arrow:SetColorTexture(0,0,0,1);
		wayframe.arrow3D.dot = wayframe:CreateTexture("BACKGROUND")
		wayframe.arrow3D.dot:SetColorTexture(0,0,0,1);
		wayframe.arrow3D.dot:SetDrawLayer("Background", 0)

		wayframe.arrow3D.dot2 = wayframe:CreateTexture("BACKGROUND")
		wayframe.arrow3D.dot2:SetColorTexture(0,0,0,1);
		wayframe.arrow3D.dot2:Hide()
		wayframe.arrow3D.dot2:SetDrawLayer("Background", 1)



		wayframe.button = CreateFrame("Button", "DugisArrowActionButton", UIParent, "SecureActionButtonTemplate")
		wayframe.button:SetFrameStrata("MEDIUM")
		wayframe.button:SetFrameLevel(5)
		wayframe.button:SetNormalTexture("Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\IconBorder")
		wayframe.button:SetPushedTexture("Interface\\Buttons\\UI-Quickslot-Depress")
		wayframe.button:SetHighlightTexture("Interface\\Buttons\\ButtonHilight-Square")
		wayframe.button.texture = wayframe.button:CreateTexture(nil, "ARTWORK")
		wayframe.button.texture:SetTexture("Interface\\Icons\\INV_Misc_Bag_08")
		wayframe.button.texture:SetAllPoints(wayframe.button)
		wayframe.button.background = wayframe.button:CreateTexture(nil, "BACKGROUND")
		wayframe.button.background:SetColorTexture(1, 1, 1, 0)
		wayframe.button.background:SetPoint("CENTER", wayframe.button)
		wayframe.button.background:SetHeight(48)
		wayframe.button.background:SetWidth(48)
		wayframe.button:RegisterForClicks("LeftButtonUp", "RightButtonUp")		
        
        wayframe.toyButton = CreateFrame("BUTTON",nil, wayframe, "SecureActionButtonTemplate")
        wayframe.toyButton.icon = wayframe.toyButton:CreateTexture(nil, "ARTWORK")
		wayframe.toyButton.icon:SetTexture("Interface\\Icons\\INV_Misc_Bag_08")
		wayframe.toyButton.icon:SetAllPoints(wayframe.toyButton)        
        
        wayframe.toyButton:SetPoint("CENTER", wayframe,  0, 0)   
        wayframe.toyButton:SetFrameStrata("TOOLTIP")        

        wayframe.toyButton:SetSize(50, 50)
        wayframe.toyButton:Hide()
        
        wayframe.toyButton.icon:SetTexCoord(0,1,0,1)
        wayframe.toyButton.icon:SetAllPoints(wayframe.toyButton)
        wayframe.toyButton.icon:Show()
       
		wayframe.toyButton:SetNormalTexture("Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\IconBorder")
        wayframe.toyButton:SetMovable(true)
        wayframe.toyButton:RegisterForDrag("LeftButton")
        
        wayframe.toyButton:SetScript("OnMouseUp", function(_, button)
			if button == "RightButton" then
                DugisArrow.WayFrame_OnClick()
			end		
		end)    
        
        wayframe.toyButton:SetScript("OnDragStart", function(self)
             DugisArrow.OnActionButtonDragStart()
        end)
        
        wayframe.toyButton:SetScript("OnDragStop", function(self)
             DugisArrow.OnActionButtonDragStop() 
        end)

        
		wayframe.progress = DugisProgressIcon
		DugisProgressIcon:SetScript("OnMouseUp", function(_, button)
			if button == "RightButton" then
				DugisArrow.WayFrame_OnClick()
			end
		end)
		
		wayframe.progress:SetPoint("CENTER", wayframe)
		--wayframe.button:SetPoint("CENTER", 0, 35)
		wayframe.progress:Hide()
		wayframe.button:Hide()
		wayframe:Hide()
	end
	return wayframe
end
CreateArrowFrame()

function DugisArrow:GetBadColor()
	return DugisGuideUser.DGV_BAD_COLOR or DugisGuideViewer.defaultBadArrowColor
end

function DugisArrow:GetMiddleColor()
	return DugisGuideUser.DGV_MIDDLE_COLOR or DugisGuideViewer.defaultMiddleArrowColor
end

function DugisArrow:GetGoodColor()
	return DugisGuideUser.DGV_GOOD_COLOR or DugisGuideViewer.defaultGoodArrowColor
end

function DugisArrow:GetExactColor()
	return DugisGuideUser.DGV_EXACT_COLOR or DugisGuideViewer.defaultExactArrowColor
end

function DugisArrow:GetQuestingAreaColor()
	return DugisGuideUser.DGV_QUESTING_AREA_COLOR or DugisGuideViewer.defaultQuestingAreaColor
end

function DugisArrow:GetDistancedArrowPingColor()
	local res = DugisGuideUser.DGV_DISTANCED_ARROW_PING_COLOR or DugisGuideViewer.defaultDistancedArrowPingColor
	if res[4] == nil then
		res[4] = DugisGuideViewer.defaultDistancedArrowPingColor[4]
	end
	return res
end

local lastSaveWaypoints = GetTime()
function DugisArrow:SaveWaypoints(force)

	if not DGV:UserSetting(DGV_ENABLED_GUIDE_SHARING) then
		return
	end

	if (GetTime() - lastSaveWaypoints) < 1 and not force then
		return
	end

	lastSaveWaypoints = GetTime()

	local alreadyAdded = {}

	DugisGuideUser.waypoints = {}
	if DugisArrow.waypoints then
		for index, point in pairs(DugisArrow.waypoints) do
			local new = {}
			--for some reason the same waypoint were added multiple times to the DugisGuideUser.waypoints. The key variable is to prevent such case.
			local key = tostring(point.questId or "") .. tostring(point.map or "") .. tostring(point.x or "").. tostring(point.y or "") ..(point.desc or "")..(point.type or "")

			if not alreadyAdded[key] then
				DugisGuideUser.waypoints[index] = new
				for _, prop in pairs({"isRouteWaypoint", "guideIndex", "questId", "map", "x" , "y", "cue", "itemID", "spellID", "isLFGTeleport", "isWTag", "spellRequirement","floor", "tomtom", "desc", "isRouteDestination", "flightMasterID", "destID", "isCorpseWaypoint",  "noTrigger", "uid", "type" }) do
					new[prop] = point[prop]
				end
				alreadyAdded[key] = true
			end
		end
	end

end

function DugisArrow:RestoreWaypoints()
	if not DGV:UserSetting(DGV_ENABLED_GUIDE_SHARING) then
		return
	end
		
	if DugisGuideUser.waypoints then
		if DugisArrow.waypoints and #DugisArrow.waypoints > 0 and #DugisGuideUser.waypoints > 0 then
			DugisArrow.waypoints = {}
		end

		for index, point in pairs(DugisGuideUser.waypoints) do
			DugisArrow.PlaceWaypoint(point)
		end
	end

	DugisArrow:SaveWaypoints(true)
end

function DugisArrow:Initialize()
	DGV.DugisArrow = DugisArrow

	DGV.WaypointsShown = true

	DugisArrow.CLASSIC_UP 	= "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\ArrowsC"
	DugisArrow.CLASSIC_DOWN = "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\ArrowsC-Down"
	DugisArrow.MODERN_UP 	= "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\Arrows"
	DugisArrow.MODERN_DOWN 	= "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\Arrows-Down"
	DugisArrow.STAIRS	= "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\stair"
    DugisArrow.NOROUTE	= "Interface\\Icons\\INV_Misc_Map_01"

	local DADEFAULT = {}
	DADEFAULT["arrow"]			= true
	DADEFAULT["arrow_locked"]	= false
	DADEFAULT["gps_locked"]	    = false
	DADEFAULT["arrow_size"]		= 1
	DADEFAULT["arrow_textsize"]	= 1	
    
	SetArrowState("noTracking")

	local OnUpdate

	local index, waypoint

	local function InterpolateTwoColors(n, r1, g1, b1, r2, g2, b2)
		return LuaUtils.inOutQuad(n, r1, r2), LuaUtils.inOutQuad(n, g1, g2), LuaUtils.inOutQuad(n, b1, b2)
	end 
	
	--normalizedDirection has values from 0 to 1. 1 for excelent direction. 0 for oposite/very bad direction
	local function ColorGradient(normalizedDirection)
		local gradientTable = {} 
		gradientTable[1] = DugisArrow:GetBadColor()
		gradientTable[2] = DugisArrow:GetMiddleColor()
 		gradientTable[3] = DugisArrow:GetGoodColor()
		gradientTable[4] = DugisArrow:GetExactColor()
		
		local directionRanges = { {0, 0.3333}, {0.3333, 0.95}, {0.95, 1} }
		
		local color1, color2
		local interpolation

        for index, range in pairs(directionRanges) do
			local v1 = range[1]
			local v2 = range[2]
			if normalizedDirection >= v1 and normalizedDirection < v2 then
				color1 = gradientTable[index]
				color2 = gradientTable[index + 1]
				interpolation = (normalizedDirection - v1) / (v2 - v1)
			end
		end
		
		local r1, g1, b1
		local r2, g2, b2
		
		if color1 then 
			r1, g1, b1 = unpack(color1)
		end  
		
		if color2 then 
			r2, g2, b2 = unpack(color2)
		end
		
		--if normalizedDirection > 0.98 then
		--	return unpack(DugisArrow:GetExactColor())
		--end
		
		return InterpolateTwoColors(interpolation, r1, g1, b1, r2, g2, b2)
	end

	wayframe = CreateArrowFrame()

	DugisGuideViewer.wayframe = wayframe
	
	local titleframe = DugisArrowTitleFrame
	if not titleframe then
		titleframe = CreateFrame("Frame", "DugisArrowTitleFrame", wayframe)
		wayframe.title = titleframe:CreateFontString("OVERLAY", nil, "GameFontHighlightSmall")
        wayframe.title:SetWidth(400)
        
		wayframe.status = titleframe:CreateFontString("OVERLAY", nil, "GameFontNormalSmall")
		wayframe.tta = titleframe:CreateFontString("OVERLAY", nil, "GameFontNormalSmall")
		wayframe.title:SetPoint("TOP", wayframe, "BOTTOM", 0, 0)
		wayframe.status:SetPoint("TOP", wayframe.title, "BOTTOM", 0, 0)
		wayframe.tta:SetPoint("LEFT", wayframe.status, "RIGHT", 0, 0)
	end
	
	local lfgFrame = DugisArrowLFGFrame
	local function GetCreateArrowLFGFrame()
		if not lfgFrame then
			lfgFrame = CreateFrame("Frame", "DugisArrowLFGFrame", wayframe, "DugisArrowLFGFrameTemplate")
			lfgFrame:EnableMouse(true)
			lfgFrame:SetMovable(true)
			lfgFrame:SetUserPlaced(true)
			lfgFrame:SetPoint("LEFT", wayframe, "RIGHT")
			lfgFrame.button:SetFrameStrata("TOOLTIP")
			lfgFrame:Hide()
		end
		return lfgFrame
	end

	local default_font_name, default_font_size, default_font_flags = wayframe.title:GetFont()

	function DugisArrow.OnDragStart(self, button)
		if InCombatLockdown() or (DugisArrow:Is3DArrowVisible() and DugisArrow.state == "foundRoute") then
			return
		end
		
		local isGPSShown = GPSArrowScroll:GetAlpha() ~= 0 and GPSArrow:IsShown()
	
		if DGV:UserSetting(DGV_GPS_MERGE_WITH_DUGI_ARROW) then
			if isGPSShown and DugisArrow:GetSetting("gps_locked") then
				return
			end
			if not isGPSShown and DugisArrow:GetSetting("arrow_locked") then
				return
			end
		else
			if DugisArrow:GetSetting("arrow_locked") then
				return
			end
		end
		
		--wayframe.button:SetPoint("TOPLEFT", wayframe,  15, 0)
		anchor.moving = true
		anchor:StartMoving()
	end

	local function UpdateDugisArrowActionButtonPos()
		local left = anchor:GetLeft()
		local top = anchor:GetTop()

		if left then
			wayframe.button:SetPoint("TOPLEFT", UIParent, "TOPLEFT",  left + wayframe:GetWidth() * 0.5 - wayframe.button:GetWidth() * 0.5, -(GetScreenHeight()-top)  - wayframe:GetHeight() * 0.5 + wayframe.button:GetHeight() * 0.5 )
		end
	end

	function DugisArrow.OnDragStop(self, button)
		anchor:StopMovingOrSizing()
		if not InCombatLockdown() then
			anchor.moving = false
			UpdateDugisArrowActionButtonPos()
			
			if DugisGuideViewer.Modules.GPSArrowModule then
				DugisGuideViewer.Modules.GPSArrowModule.FixTopPosition()
			end
		end
	end
	
	function DugisArrow.OnActionButtonDragStart()
		if not InCombatLockdown() then
			DugisArrow.OnDragStart(wayframe)
		end
	end
	
	function DugisArrow.OnActionButtonDragStop(force)
		if not InCombatLockdown() or force then
			DugisArrow.OnDragStop(wayframe)
		end
	end
    
	wayframe:SetScript("OnDragStart", DugisArrow.OnDragStart)
	wayframe:SetScript("OnDragStop", DugisArrow.OnDragStop)
	wayframe:SetScript("OnMouseUp", function(_, button)
		if DugisArrow.state == "noRouteFound" then
			if button == "LeftButton" then
				WorldMapFrame:Show()
				
				local firstWaypoint = DugisArrow:getFirstWaypoint()
				
				if firstWaypoint and firstWaypoint.map then
					LuaUtils:DugiSetMapByID(firstWaypoint.map)
					DGV:UpdateMapPingForNoRoutePath()
				end
			end
		else
			if button == "LeftButton" then
				DugisArrow.RefreshRoute(0)
			end
		end
    end)
    
	wayframe:RegisterForDrag("LeftButton")
	wayframe.button:SetScript("OnDragStart", DugisArrow.OnActionButtonDragStart)
	wayframe.button:SetScript("OnDragStop",  DugisArrow.OnActionButtonDragStop)
	wayframe.button:RegisterForDrag("LeftButton")
	wayframe.arrow = wayframe:CreateTexture("OVERLAY")
	wayframe.arrow:SetAllPoints()
	local status = wayframe.status
	local tta = wayframe.tta
	local arrow = wayframe.arrow

	local active_point, arrive_distance, showDownArrow, point_title
	active_point = {}
	
	function DugisArrow:GetActivePoint()
		return active_point
	end
	
	local function UseTomTomArrow()
		return DGV:UserSetting(DGV_TOMTOMARROW) and DGV.tomtomloaded
	end
	
	local function UseCarboniteArrow()
		return DGV:UserSetting(DGV_CARBONITEARROW) and DGV.carboniteloaded and Nx.Map
	end

	function DugisArrow:Show()
		if not DugisArrow.waypoints then return end

		if DugisGuideViewer:UserSetting(DGV_DUGIARROW) and not UseTomTomArrow() and not UseCarboniteArrow() and not InCombatLockdown() then
			wayframe:Show()
			if DGV.Modules.GPSArrowModule then
				DGV.Modules.GPSArrowModule.UpdateVisibility()
			end
		end
	end
	
	local function HideDugiWayframe()
		local waypoints = DugisArrow.waypoints
		if not waypoints or #waypoints<1 then 	
			wayframe:Hide()
			if DGV.Modules.GPSArrowModule then
				DGV.Modules.GPSArrowModule.UpdateVisibility()
			end
			wayframe.button:Hide()
		end
	end

	function DugisArrow:Hide()
		local waypoints = DugisArrow.waypoints
		if not waypoints or #waypoints<1 then 
			DoOutOfCombat(HideDugiWayframe)
		end
	end
	
	local function ShouldShowStairs()
		--return wrongInstanceFloor or --Don't really need anymore
		--	(active_point.waypoint and 
		--		(active_point.waypoint.cue=="upstairs" or active_point.waypoint.cue=="downstairs"))
	end
    
	local function WayFrame_OnClick(self, button)
        if DGV:UserSetting(DGV_CTRL_RIGHT_CLICK_ARROW_MENU) and not IsControlKeyDown() then
            return
        end
				
		if DugisArrow.state == "foundRoute" or DugisArrow.state == "noRouteFound" then
			local menu = DugisGuideViewer.ArrowMenu:CreateMenu("wayframe_menu")
			DugisGuideViewer.ArrowMenu:CreateMenuTitle(menu, "Dugi Arrow")
			DugisArrow:PopulateMenu(menu)
			menu:ShowAtCursor()
		end
	end   

	DugisArrow.WayFrame_OnClick = WayFrame_OnClick

	function DugisArrow:setArrowTexture(preventModelReload)
		if wayframe.arrow3D.arrow:IsShown() then
			wayframe.arrow:Hide()
			if not InCombatLockdown() then
				wayframe.button:Hide() 
			end
			return
		end

		local setTexture
		if ShouldShowStairs() then
			setTexture = DugisArrow.STAIRS
			arrow:SetTexCoord(0,1,0,1)
			arrow:SetVertexColor(1,1,1,1)
		else
			if not DugisArrow:IsEnabled3DArrow() then
				if DugisGuideViewer:UserSetting(DGV_CLASSICARROW) then
					DugisArrow.arrowTexture = DugisArrow.CLASSIC_UP
					DugisArrow.arrowDownTexture = DugisArrow.CLASSIC_DOWN
				else
					DugisArrow.arrowTexture = DugisArrow.MODERN_UP
					DugisArrow.arrowDownTexture = DugisArrow.MODERN_DOWN
				end

				if showDownArrow then 
					setTexture = DugisArrow.arrowDownTexture 
				else 
					setTexture = DugisArrow.arrowTexture 
				end
			end
		end

		arrow:ClearAllPoints()
        
		if DugisArrow.state == "noRouteFound" then 
			wayframe.arrow3D.arrow:Hide()
			wayframe.arrow3D.dot:Hide()
			wayframe.arrow3D.dot2:Hide()
			
            setTexture = DugisArrow.NOROUTE
			DugisArrow:SetScale()
            arrow:SetTexCoord(0,1,0,1)

			arrow:SetPoint("TOPLEFT", 10,-10)
			arrow:SetPoint("BOTTOMRIGHT", -10,10)
            wayframe.arrow:SetVertexColor(1,1,1)
        else
			arrow:SetAllPoints()
		end

		if setTexture ~= DugisArrow.currentTexture then
			arrow:SetTexture(setTexture)
			DugisArrow.currentTexture = setTexture
			DugisArrow:SetScale()
		end
	end

	--Waypoint 1



	local DESCRIPTION_FORMAT = L["Waypoint %d"]
	local DESCRIPTION_PATTERN = L["Waypoint (%d+)"]
	local function GetNextManualWaypointDescription()
		local highest = 0
		if DugisArrow.waypoints then
			for k, v in ipairs(DugisArrow.waypoints) do
				if v.desc then
					local match = v.desc:match(DESCRIPTION_PATTERN)
					if match then
						local num = tonumber(match)
						highest = math.max(highest, num)
					end
				end
			end
		end
		return string.format(DESCRIPTION_FORMAT, highest+1)
	end
	
	local function point_OnClick(self, button)
		local point = self.point
		local menu = DugisGuideViewer.ArrowMenu:CreateMenu("point_menu")
		DugisGuideViewer.ArrowMenu:CreateMenuTitle(menu, point.desc)
		local remove = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Remove Waypoint")
		remove:SetFunction(function () DugisArrow:SetNextWaypoint(point)  end)
		local removeAll = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Remove All Waypoints")
		removeAll:SetFunction(function () DugisGuideViewer:RemoveAllWaypoints()  end)
		menu:ShowAtCursor()
	end

	do
		if not DugisArrowTooltip then
			local tooltip = CreateFrame("GameTooltip", "DugisArrowTooltip", UIParent, "GameTooltipTemplate")
			tooltip:SetFrameStrata("TOOLTIP")
		end
	end

	local function arrow_OnEnter(self, button)
		if DugisArrow.state == "noRouteFound" then
				
			local filename, _, _ = GameTooltipTextLeft1:GetFont()
			DugisArrowTooltipTextLeft1:SetFont(filename, 11)
				
			DugisArrowTooltip:SetOwner(wayframe, "ANCHOR_TOPLEFT")
			DugisArrowTooltip:AddLine("Waypoint arrow not available. Click here to check the world map", 1, 1, 1, 1, true)

			DugisArrowTooltip:Show()
			DugisArrowTooltip:ClearAllPoints()
			DugisArrowTooltip:SetPoint("BOTTOMLEFT", wayframe, "BOTTOMRIGHT", 10, 0)

		else
			if wrongInstanceFloor then
				DugisArrowTooltip:SetParent(self)
				DugisArrowTooltip:SetOwner(self, "ANCHOR_CURSOR")
				DugisArrowTooltip:AddLine("Waypoint is on a different floor")
				DugisArrowTooltip:Show()
			end
		end
	end

	local function arrow_OnLeave(self, button)
		DugisArrowTooltip:Hide()
	end

	do
		local tooltip = CreateFrame("GameTooltip", "DugisWaypointTooltip", UIParent, "GameTooltipTemplate")
		tooltip:SetFrameStrata("TOOLTIP")
	end

	local function point_OnEnter(self, button)
		if UIParent:IsVisible() then
			DugisWaypointTooltip:SetParent(UIParent)
		else
			DugisWaypointTooltip:SetParent(self)
		end

		DugisWaypointTooltip:SetOwner(self, "ANCHOR_BOTTOMLEFT")
		DugisWaypointTooltip:AddLine(string.format("%s (%.2f, %.2f)", self.point.desc or "", self.point.x or 0, self.point.y or 0))
		DugisWaypointTooltip:Show()
	end

	local function point_OnLeave(self, button)
		DugisWaypointTooltip:Hide()
	end
	
	local pointCache
	local function GetCreatePoint()
		if not pointCache then pointCache = DGV.UIFrameCache:New("Button", "DugisArrowMapPoint", DugisMapOverlayFrame) end
		local worldpoint = pointCache:GetFrame()
		worldpoint:RegisterForClicks("RightButtonUp")
		worldpoint:SetScript("OnClick", point_OnClick)
		worldpoint:SetScript("OnEnter", point_OnEnter)
		worldpoint:SetScript("OnLeave", point_OnLeave)
		if not worldpoint.icon then
			worldpoint.icon = worldpoint:CreateTexture("ARTWORK")
			worldpoint.icon:SetAllPoints()
		end
		worldpoint.icon:Show()

		return worldpoint
	end	
    
	local GPSArrowPointCache
	local function GetCreateGPSArrowPoint()
		if GPSArrow then
			if not GPSArrowPointCache then GPSArrowPointCache = DGV.UIFrameCache:New("Button", "DugisArrowBattlefieldMapDDPoint", GPSArrow.map_overlay) end
		end
		local worldpoint = GPSArrowPointCache:GetFrame()
        
		if GPSArrow then
			worldpoint:SetFrameStrata(GPSArrow.map_overlay:GetFrameStrata())
			worldpoint:SetFrameLevel(100)
		end
		worldpoint:RegisterForClicks("RightButtonUp")
		worldpoint:SetScript("OnClick", point_OnClick)
		worldpoint:SetScript("OnEnter", point_OnEnter)
		worldpoint:SetScript("OnLeave", point_OnLeave)
		if not worldpoint.icon then
			worldpoint.icon = worldpoint:CreateTexture()
			worldpoint.icon:SetAllPoints()
		end
		worldpoint.icon:Show()

		return worldpoint
	end

	local miniPointCache
	local function GetCreateMinimapPoint()
		if not miniPointCache then miniPointCache = DGV.UIFrameCache:New("Button", "DugisArrowMinimapPoint", DugisMinimapOverlayFrame) end
		local minipoint = miniPointCache:GetFrame()
		minipoint:RegisterForClicks("RightButtonUp")
		minipoint:SetScript("OnClick", point_OnClick)
		minipoint:SetScript("OnUpdate", DugisArrow.Minimap_OnUpdate)
		minipoint:SetScript("OnEnter", point_OnEnter)
		minipoint:SetScript("OnLeave", point_OnLeave)

		if not minipoint.icon then
			minipoint.icon = minipoint:CreateTexture("ARTWORK")
			minipoint.icon:SetAllPoints()
		end

		if not minipoint.arrow then
			minipoint.arrow = minipoint:CreateTexture("BACKGROUND")
			minipoint.arrow:SetTexture("Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\TrackingArrow")
			minipoint.arrow:SetPoint("CENTER", 0 ,0)
			minipoint.arrow:SetHeight(40)
			minipoint.arrow:SetWidth(40)
		end
		
		minipoint.arrow:Hide()
		minipoint.icon:Show()
        
        if not minipoint.GetName_org then
            minipoint.GetName_org = minipoint.GetName
            minipoint.GetName = function()
            
                local stack = debugstack()
                local isCalledByMinimapButtonFrameAddon = (string.find(stack, "MinimapButtonFrame") ~= nil)
                
                --To prevent MinimapButtonFrame addon anchoring waypoints
                if isCalledByMinimapButtonFrameAddon then
                    return "ActionBar"
                else
                    return minipoint:GetName_org()
                end
                
            end
        end

		return minipoint
	end
	
	function DugisArrow:FinalizeWaypointIcon() 
		DugisGuideUser.FinalizeWaypoint = true
		local waypoint = DugisArrow:getFinalWaypoint()
		if waypoint then 
			RemoveWaypointAt(DugisArrow:getNumWaypoints())	
			DugisArrow:AddWaypoint(waypoint.map, waypoint.floor, waypoint.x, waypoint.y, waypoint.desc, waypoint.guideIndex, waypoint.questId, waypoint.isRouteDestination, waypoint.isWTag)
		end
	end
	
	local recalculationQueue, recalculationPoints
	local function InterruptRecalculation()
		if recalculationQueue then
			while recalculationQueue:Length()>0 do
				recalculationQueue:Remove(1):Pool()
			end
			recalculationQueue:Pool()
			recalculationQueue = nil
		end
		if recalculationPoints then
			while recalculationPoints:Length()>0 do
				recalculationPoints:Remove(1):Pool()
			end
			recalculationPoints:Pool()
			recalculationPoints = nil
		end
		InterruptAutoroutine("RecalculateRoutes")
	end
	
	local function SetGPSArrowPointPos(point, x, y)
		LuaUtils.ClearAndSetPoint(point.GPSArrowPoint, "CENTER", GPSArrow.map_overlay, "TOPLEFT", x,  y)
	end
	
	local function PlaceWaypoint(point)
		local mapID, _, x, y, desc, type = point.map, point.floor, point.x, point.y, point.desc, point.type
		local mapFloor = DGV.UiMapId2Floor(mapID)
        if not x then return end
		point.worldmap = GetCreatePoint()
		point.minimap = GetCreateMinimapPoint()
		
		if GPSArrow then
			point.GPSArrowPoint = GetCreateGPSArrowPoint()
		end
		point.minimap.point = point
		point.worldmap.point = point
		
		if GPSArrow then
			point.GPSArrowPoint.point = point
		end

		local lastWaypoint, isCircular, isWTag, skip
		local guideIndex = DugisGuideUser.WaypointGuideIndex		
		local virtual = 0
		
		if guideIndex and DugisGuideViewer:GuideOn() and DugisGuideViewer.chardb.EssentialsMode ~= 1 and DGV:isValidGuide(CurrentTitle) and DugisGuideViewer.tags then 
			if #DGV:getCoords(guideIndex) == 1 and not DugisGuideUser.FinalizeWaypoint then 
				virtual = 1 
			end
			lastWaypoint = #DGV:getCoords(guideIndex) - 1 + DugisArrow:GetTotalRouteWaypoints()
			local tag = DugisGuideViewer.tags[guideIndex]
			if tag then
				isWTag = tag:match("(|LOOP|)")~=nil
				isCircular = tag:match("(|W|)")~=nil
			end
		end --need this for single waypoints with routes. 
		
		point.isWTag = isWTag
		point.isCircular = isCircular
		point.type = type

		
		point.worldmap.icon:SetDrawLayer("ARTWORK", 5)
		local alpha = (DGV.GetCurrentMapDungeonLevel_dugi()~=mapFloor and .5) or 1
		point.worldmap.icon:SetAlpha(alpha)
		point.worldmap:Show()
		point.worldmap.shown = true


		function point:UpdateSize()
			if self.worldmap.baseSize then
				self.worldmap:SetWidth(self.worldmap.baseSize)
				self.worldmap:SetHeight(self.worldmap.baseSize)

				if GPSArrow then
					self.GPSArrowPoint:SetHeight((self.GPSArrowPoint.baseSize or 1) * 16 / (GPSArrow.scale or 1))
					self.GPSArrowPoint:SetWidth((self.GPSArrowPoint.baseSize or 1) * 16 / (GPSArrow.scale or 1))
				end
			end
		end
		
		point:UpdateSize()
        
		local alpha = (DGV.GetCurrentMapDungeonLevel_dugi()~=mapFloor and .5) or 1
		
		if GPSArrow then
			point.GPSArrowPoint.icon:SetAlpha(1)
			point.GPSArrowPoint:Show()
			point:UpdateSize()
		end
		
		point.minimap.icon:SetAlpha(alpha)

		if not DugisArrow.waypoints then
			DugisGuideUser.waypoints = {}
			DugisArrow.waypoints = {}
		end

		local last = DugisArrow.waypoints[#DugisArrow.waypoints]

		if last then
			if last.x == point.x and last.y == point.y and last.map == point.map then
				--Preventing two waypoints at the same place. The older is replacee by the new one. 
				RemoveWaypointAt(#DugisArrow.waypoints)
			end
		end
		table.insert(DugisArrow.waypoints, point)

		--DebugPrint("Point placed at x:"..x.."y:"..y.."mapID"..mapID)
		if DugisGuideViewer.WaypointsShown and not UseCarboniteArrow() then
			DugisGuideViewer:PlaceIconOnWorldMap( WorldMapButton, point.worldmap, mapID, mapFloor, x/100, y/100 )
            
			if GPSArrow then
				local w, h = GPSArrow.map_overlay:GetWidth(), -GPSArrow.map_overlay:GetHeight()
				SetGPSArrowPointPos(point, (x/100) * w,  (y/100) * h)
			end
            
			DugisGuideViewer:PlaceIconOnMinimap( point.minimap, mapID, mapFloor, x/100, y/100 )
		end
		
		if UseCarboniteArrow() then
			if CarboniteVersion > "5.4.0" then
				if Nx.db.profile.Map.RouteUse then Nx.db.profile.Map.RouteUse = false end
			else
				if Nx.Travel.GOpts and Nx.Travel.GOpts["MapRouteUse"] then Nx.Travel.GOpts["MapRouteUse"] = false end
			end
			
			local opts = {}
			local map = Nx.Map:GetMap (1)
			local wx, wy = map:GetWorldPos (mapID, x, y)
			
			opts.title = desc
			point.carbonite = map:SetTarget ("Goto", wx, wy, wx, wy, nil, nil, opts.title or "", true, mapID)
			wayframe.progress:SetPoint("CENTER", NxHUD, 0, -43)
			if mapFloor and mapFloor > 0 then 
				UIErrorsFrame:AddMessage("Warning! waypoint might be inaccurate\nIndoor map is not supported by Carbonite",1,0,0,1) 
				LuaUtils:PlaySoundFile(567455)
			end
			
		elseif UseTomTomArrow() then
			local opts = {}
			opts.title = desc
			point.tomtom = TomTom:AddWaypoint(mapID, x/100, y/100, opts)
		end
		
		if UseTomTomArrow() then
			local first = DugisArrow:getFirstWaypoint()
			TomTom:SetCrazyArrow(  first.tomtom, 5, first.desc )
		elseif not UseTomTomArrow() and not UseCarboniteArrow() and DugisArrow:getNumWaypoints() == 1 then
			DugisArrow:setArrow( point.map, point.floor, point.x, point.y, point.desc, point )
		end

        DGV:UpdateMapPingForNoRoutePath()
        
		DugisArrow:WaypointsChanged()
		DugisArrow:UpdateWaypointsTexture()

		return point
	end

	function DugisArrow:UpdateWaypointsTexture()
		local last = DugisArrow.waypoints[#DugisArrow.waypoints]
		local texture
		 
		for i, point in pairs(DugisArrow.waypoints) do
			local isCircular, isWTag = point.isCircular, point.isWTag
			local minimapSize, worldmapSize, gpsSize

			if isCircular and point == last then
				--texture = DGV:getIcon(DGV.actions[guideIndex], guideIndex )
				texture = "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\circular"
				worldmapSize = 34
				minimapSize = 32
				
			elseif isWTag and point == last then
				texture = "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\waypoint_g"
				worldmapSize = 18.5
				minimapSize = 16.5
			else
				texture = "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\waypoint"
				worldmapSize = 18.5
				minimapSize = 16.5
			end

			local specialIcon = false

			if point.type == "static-portal" or point.type == "bound-teleport" then
				texture = "Interface\\MINIMAP\\Dungeon_Icon"
				worldmapSize = 37
				minimapSize = 25
				gpsSize = 2
				specialIcon = true
			end

			if point.type == "flighmaster" then
				texture = "Interface\\MINIMAP\\TRACKING\\FlightMaster"
				worldmapSize = 16
				minimapSize = 16.5
				specialIcon = true
			end

			if point.type == "boat" then
				texture = "Interface\\MINIMAP\\TRACKING\\StableMaster"
				worldmapSize = 16
				minimapSize = 16.5
				specialIcon = true
			end

			point.minimap:SetHeight(minimapSize)
			point.minimap:SetWidth(minimapSize)

			point.worldmap:SetHeight(worldmapSize)
			point.worldmap:SetWidth(worldmapSize)
			point.worldmap.baseSize = worldmapSize

			point.worldmap.icon:SetTexture(texture)
			point.minimap.icon:SetTexture(texture)

			if GPSArrow  then
				point.GPSArrowPoint.baseSize = gpsSize or 1
			end

			if specialIcon then
				point.worldmap:SetFrameLevel(10)
				point.minimap:SetFrameLevel(10)
				if GPSArrow then
					point.GPSArrowPoint:SetFrameLevel(10)
				end
			else
				point.worldmap:SetFrameLevel(2001)
				point.minimap:SetFrameLevel(12)

				if GPSArrow then
					point.GPSArrowPoint:SetFrameLevel(4)
				end
			end

			if GPSArrow then
				point.GPSArrowPoint.icon:SetTexture(texture)
			end			
		end
	end
	
	DugisArrow.PlaceWaypoint = PlaceWaypoint

	function DugisArrow:OnMapChanged() 
        local tbl = DugisArrow.waypoints or {}
        for _, waypoint in pairs(tbl) do
			waypoint:UpdateSize()
		end
    
        DGV:UpdateCurrentBeaconMode()
	end


	local function AddWaypoint(mapID, x, y, desc, extraData)
		if DGV.currentAutoroutine and DGV.currentAutoroutine.key=="RecalculateRoutes" then
			local point = DGV.GetCreateTable()
			point.desc = desc
			
            
			point.map = mapID
			point.floor = mapFloor
			point.x = x
			point.y = y
			if not recalculationPoints then
				recalculationPoints = DGV.GetCreateTable()
			end
			recalculationPoints:Insert(point)
			return point
		end
		
		local point = DGV.GetCreateTable()
		point.desc = desc
		
		point.map = mapID
		point.floor = mapFloor
		point.x = x
		point.y = y
		return PlaceWaypoint(point)
	end
	
	function DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc, cue)
		local point = AddWaypoint(mapID, (x or 0)*100, (y or 0)*100, desc)
		point.isRouteWaypoint = true
		point.cue = cue
		return point
	end
	
	function DGV:AddCorpseWaypoint(mapID, mapFloor, x, y, desc) -- prevents duplicates of "My Corpse" waypoints
		if DugisArrow:getNumWaypoints() > 0 then 
			for i = 1, #DugisArrow.waypoints do 
				if DugisArrow.waypoints[i] and (DugisArrow.waypoints[i].isCorpseWaypoint or DugisArrow.waypoints[i].desc == L["My Corpse"]) then 
					return
				end
			end 
		end		
		DGV:AddCorpseWaypointChecked(mapID, mapFloor, x, y, desc)	
	end
	
	function DGV:AddCorpseWaypointChecked(mapID, mapFloor, x, y, desc)
		local point = AddWaypoint(mapID, x*100, y*100, desc)
		point.isCorpseWaypoint = true
		return point
	end
	
	function DGV:AddRouteWaypointWithNoTrigger(mapID, x, y, desc)
		local point = DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc)
		point.noTrigger = true
		return point
	end
	
	function DGV:AddRouteWaypointWithDestinationTrigger(mapID, mapFloor, x, y, desc, destID)
		local point = DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc)
		point.destID = destID
		return point
	end
	
	function DGV:AddRouteWaypointWithItem(mapID, mapFloor, x, y, desc, itemID)
		local point = DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc)
		point.itemID = itemID
		return point
	end
	
	function DGV:AddRouteWaypointWithSpell(mapID, mapFloor, x, y, desc, spellID)
		local point = DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc)
		point.spellID = spellID
		return point
	end
	
	function DGV:AddRouteWaypointWithSpellRequirement(mapID, mapFloor, x, y, desc, spellID)
		local point = DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc)
		point.spellRequirement = spellID
		return point
	end
	
	function DGV:AddLFGTeleportWaypoint(mapID, mapFloor, x, y, desc)
		local point = DGV:AddRouteWaypoint(mapID, mapFloor, x, y, desc)
		point.isLFGTeleport = true
		point.destID = mapID
		return point
	end

    
    function DGV:AddCustomRouteWaypoint(x, y, desc, zoneNameOrId, mapFloor)
		local m,f = DGV:GetCurrentMapID()
     
		if m==-1 then m=0 end
		if zoneNameOrId then
			local id = DugisGuideViewer:GetZoneIdByName(zoneNameOrId)
       
			if id then 
                m=id
			else
				m=zoneNameOrId
			end
		end
        
		if mapFloor then f=mapFloor end
        
       if not DugisArrow.waypoints or #DugisArrow.waypoints == 0 then
            return DugisArrow:AddWaypoint( m, f, x * 100, y * 100, desc)
       else
            return DGV:AddRouteWaypoint( m, f, x, y, desc)
       end
	end
    
	function DGV:AddCustomWaypoint(x, y, desc, zoneNameOrId, mapFloor, qid, preventMapChange, extraData, onEnd)
		local m,f = DGV:GetCurrentMapID()
		if m==-1 then m=0 end
		if zoneNameOrId then
			local id = DugisGuideViewer:GetZoneIdByName(zoneNameOrId)
			if id then m=id
			else
				m=zoneNameOrId
			end
		end
		if mapFloor then f=mapFloor end
		--DGV:DebugFormat("AddCustomWaypoint AddWaypoint", "args", {m, f, x*100, y*100, desc, nil, nil, qid})

		DugisArrow:AddWaypoint( m, f, x*100, y*100, desc, nil, qid, true, nil, preventMapChange, extraData, onEnd)
		--if DugisArrow:getNumWaypoints() == 1 then
		--	DugisGuideViewer.DugisArrow:setArrow( m, f, x*100, y*100, desc)
		--end
	end

	function DGV:AddManualWaypoint(x, y, zoneNameOrId, mapFloor, preventMapChange)
		if zoneNameOrId and not tonumber(zoneNameOrId) then
			zoneNameOrId = DGV:GetZoneIdByName(zoneNameOrId)
		end
		DGV:AddCustomWaypoint(x, y, GetNextManualWaypointDescription(), zoneNameOrId, mapFloor, nil, preventMapChange)
	end
	
	function DugisArrow:LocalCoordinate(m, f, x, y)
    
        local TaxiData = DugisGuideViewer.Modules.TaxiData
    
		--DGV:DebugFormat("LocalCoordinate", "args", {m, f, x, y})
		if m==-1 then return end
		local currentId,currentFloor = DGV:GetCurrentMapID()
		if currentId~=m then
			LuaUtils:DugiSetMapByID(m)
		end
        
        local positionMapInfo = C_Map.GetMapInfoAtPosition(m, x,y);	
        
		if currentId~=m then
			LuaUtils:DugiSetMapByID(currentId)
		end
		if positionMapInfo and positionMapInfo.mapID then
			local altId = positionMapInfo.mapID
			if altId then
				local altFloor = f
				if TaxiData.NonZeroOpenWorldFloors[altId] then
					altFloor=1
				end
				x,y = DGV:TranslateWorldMapPositionGlobal(
					m,x, y, 
					altId)
				m = altId
				f = altFloor
			end
		end
		--DGV:DebugFormat("LocalCoordinate", "actualMapName", actualMapName,  "return", {m, f, x, y})
		return m, f, x, y
	end
    
	function DugisMapOverlayFrame_OnMouseUp(self, ...)
		local mouseButton, button = ...
		if not DugisGuideViewer.tomtomloaded
			and not DugisGuideViewer.carboniteloaded
			and DGV:UserSetting(DGV_MANUALWAYPOINT)
			and (IsControlKeyDown() or IsShiftKeyDown())
		then
			if mouseButton == "RightButton" then
				local cX, cY = DugisGuideViewer:GetCurrentCursorPosition(DugisMapOverlayFrame)
				if IsControlKeyDown() then DugisGuideViewer:RemoveAllWaypoints() end
				local actualID = DGV:GetCurrentMapID()
                actualID, f, cX, cY = DugisArrow:LocalCoordinate(actualID, f, cX, cY)
				if not cY then return end
				DGV:AddManualWaypoint(cX, cY, actualID, f, true)
			elseif mouseButton == "LeftButton" then
				--[[if DGV.Modules.WorldMapTracking:ShowMenu(DugisMapOverlayFrame) then
					return
				end]]
                DugisArrow.old_WorldMapButtonOnClick(self, ...)
			end
		else
            DugisArrow.old_WorldMapButtonOnClick(self, ...)
		end
	end

    function DugisArrow.UpdateProgressBarPosition()
        local Taxi = DugisGuideViewer.Modules.Taxi 
        local GPS = DGV.Modules.GPSArrowModule
        if Taxi then 
            if GPS and GPSArrowBorder:IsShown() and GPSArrow:IsShown() and GPS.ShuldBeGPSShown()  then
				local h = GPSArrowBorder:GetHeight()
				LuaUtils.ClearAndSetPoint(Taxi.progressBar.Bar, "CENTER", GPSArrowBorder, "CENTER", 0, h * 0.5 + 23)
			elseif wayframe.arrow:IsShown() then
				LuaUtils.ClearAndSetPoint(Taxi.progressBar.Bar, "CENTER", wayframe,"CENTER", 0, 50)
            else
				LuaUtils.ClearAndSetPoint(Taxi.progressBar.Bar, "CENTER", UIParent, 0, 200)
            end
        end
    end
    
	function DugisArrow:VisitFlightmaster(npc, cont , x, y)
    
        if DGV:UserSetting(DGV_SHOW_FLIGHT_LEFT_TIME) then
            --Checking clicked flightmaster coordinates
            local cont = DGV.GetCurrentMapContinent_dugi()
                
            local fullData = DGV.Modules.TaxiData:GetFullData()
            local npcTbl1 = fullData[cont][npc]
            
            if not npcTbl1 then return end
            
            local npc1x, npc1y = DGV:UnpackXY(npcTbl1.coord)
            
            local Taxi = DugisGuideViewer.Modules.Taxi 
            if Taxi then
                Taxi.currentDestinationFMx = npc1x * 100
                Taxi.currentDestinationFMy = npc1y * 100
                Taxi.currentDestinationFMm = npcTbl1.m
                Taxi.initialDistance = DGV:GetDistanceFromPlayer(Taxi.currentDestinationFMm, 0, Taxi.currentDestinationFMx, Taxi.currentDestinationFMy)  
                Taxi.onTaxiStartTime = GetTime()
                
                DugisArrow.UpdateProgressBarPosition()
                
                Taxi.progressBar:Show()
                --ObjectiveTrackerProgressBar_SetValue(Taxi.progressBar, 0);
                --Taxi.progressBar.Bar.Label:SetText("0.0%   00:00")
            end
        end
		if npc and DugisArrow.waypoints then
			for _, waypoint in pairs(DugisArrow.waypoints) do
				if waypoint.flightMasterID and 
					waypoint.flightMasterID==npc
				then 
					DGV.DugisArrow:SetNextWaypoint(waypoint)
					return
				end
			end
		end
	end
	
	hooksecurefunc("TakeTaxiNode", function(id)
		if DugisArrow.loaded then
			local x,y = TaxiNodePosition(id)
			y = 1 - y
			local cont = DGV.GetCurrentMapContinent_dugi()
			local lookupTable = DGV.Modules.TaxiData:GetLookupTable()
			if lookupTable then
				local conttable = lookupTable[cont]
				if conttable then
					local destNpc = conttable[DGV:PackXY(x,y)]
					if destNpc then
						DugisArrow:VisitFlightmaster(destNpc, cont, x,y)
                    end
				end
			end
		end
	end)

	local function GetPOIWaypointDescription(poiButton)
		--DGV:DebugFormat("GetPOIWaypointDescription", "poiButton", poiButton)
		local questId = poiButton.questID or (poiButton.quest and poiButton.quest.questId)

		local logIndex = C_QuestLog.GetLogIndexForQuestID(questId)

		if logIndex == nil then
			if questId then
				return C_TaskQuest.GetQuestInfoByQuestID(questId);
			end
		end

		local guideIndex = DugisGuideViewer:GetUnfinishedGuideIndexByQID(questId)
		local desc = C_QuestLog.GetInfo(logIndex).title;

		if guideIndex then
			desc = DugisGuideViewer:GetQuestDescription(guideIndex)			
		elseif poiButton and poiButton.style == "normal" and GetQuestLogCompletionText(logIndex) then
			desc = "|cffffd200"..GetQuestLogCompletionText(logIndex).."|r"
		elseif poiButton then
			desc = "|cffffd200"..(C_QuestLog.GetInfo(logIndex).title or " ").."|r"
		end
		return desc
	end

	-- C_TaskQuest.GetQuestZoneID and C_TaskQuest.GetQuestLocation are returning nil right now.
	-- It seems unlikely this will continue, but ¯\_(ツ)_/¯
	local function GetQuestLocation(questId)
		local templates = {"QuestPinTemplate", "WorldMap_WorldQuestPinTemplate"}
		for _, template in ipairs(templates) do
			for pin in WorldMapFrame:EnumeratePinsByTemplate(template) do
				if pin.questID == questId then
					return pin:GetPosition()
				end
			end
		end
	end

	function DugisArrow:QuestPOIWaypoint(poiButton, reset)
		--DGV:DebugFormat("QuestPOIWaypoint", "WorldMapFrame:IsShown() ", WorldMapFrame:IsShown() )
		if 
			not UseTomTomArrow() 			
		then
			local questId = poiButton.questID or poiButton.questId or (poiButton.quest and poiButton.quest.questId)

			local m, f
			local desc = GetPOIWaypointDescription(poiButton)
			--local posX, posY = C_TaskQuest.GetQuestLocation(questId, C_TaskQuest.GetQuestZoneID(questId) or DGV:GetCurrentMapID())
			local posX, posY = GetQuestLocation(questId)
			
			if not posX and not poiButton.worldQuest then --if fail to try landmark coord
				posX, posY = poiButton.normalizedX, poiButton.normalizedY
				local index = DGV:GetQuestLogIndexByQID(questId)
				if index then 
					desc = C_QuestLog.GetInfo(index).title
				elseif questId then
					m = C_TaskQuest.GetQuestZoneID(questId)
					if not m then m = DGV:GetCurrentMapID() end
					local questLineInfo = C_QuestLine.GetQuestLineInfo(questId, m)
					local taskQuestInfo = C_TaskQuest.GetQuestInfoByQuestID(questId)
					if questLineInfo then 
						desc = L["Accept"].." |cffffd200"..questLineInfo.questName.."|r" --Yellow quest icon (!)
					elseif taskQuestInfo then 
						desc = L["Accept"].." |cffffd200"..taskQuestInfo.."|r" --Blue quest icon (!) 
					end
				end 
			end		
            
            if poiButton.worldQuest == true or poiButton.worldQuest == false then --false for bonus objectives
                --reset = true
                desc = C_TaskQuest.GetQuestInfoByQuestID(questId);
				if desc then 
					desc = "|cffffd200"..desc.."|r"..L[" (World Quest)"]
				end				
				m = C_TaskQuest.GetQuestZoneID(questId)
				if m then LuaUtils:DugiSetMapByID(m) end
				--f = DGV.GetCurrentMapDungeonLevel()
                --posX, posY = C_TaskQuest.GetQuestLocation(questId, m)
				posX, posY = GetQuestLocation(questId)
            elseif posX then 
				m, f = DGV:GetCurrentMapID() --needed for quest in microdungeons
            else
                m, f = LuaUtils:DugiGetQuestWorldMapAreaID(questId)
            end
            
			if m and not posX then  --this is needed otherwise QuestPOIGetIconInfo returns nil for POI not in current map.
				LuaUtils:DugiSetMapByID(m) 
				--posX, posY = C_TaskQuest.GetQuestLocation(questId, C_TaskQuest.GetQuestZoneID(questId) or DGV:GetCurrentMapID())
				local posX, posY = GetQuestLocation(questId)
			end 
			if m == 321 and f == 0 then --force floor fix for orgrimmar
				f = 1
			end
			if reset then 
				DugisGuideViewer:RemoveAllWaypoints() 
			end
			if posX and posX > 0 then
				DGV:AddCustomWaypoint(posX, posY, desc, m, f, questId, nil, nil, function()
					local extraData = DGV.GetIconData("QuestPOI", poiButton, questId)
					SetExtraData(extraData) 
				end)

				if DugisGuideViewer:IsModuleLoaded("Target") then DoOutOfCombat(DugisGuideViewer.Modules.Target.Frame.Hide, DugisGuideViewer.Modules.Target.Frame) end
			end
		end
	end

	function DGV.GetIconData(iconType, poiButton, extraId)
		if iconType == "LandMark" then
			if not poiButton.Texture then
				return
			end

			if poiButton.Texture:GetTexture() == 1121272 then
				local a, b, c, d = poiButton.Texture:GetTexCoord()
				if a == 0 and b == 0 and c == 0 and d == 1 then
					return 
				end
			end
			
			local extraData = {icon = poiButton.Texture:GetTexture(), 
			iconCoords = {poiButton.Texture:GetTexCoord()}}

			return extraData
		end

		if iconType == "QuestPOI" then
			local questId = extraId
			local accepted = DugisGuideViewer:IsQuestAccepted(questId)
			local completed = DugisGuideViewer:IsQuestCompleted(questId)
			local turnedIn =  DugisGuideViewer:IsQuestTurnedIn(questId)

			local extraData = {icon = "Interface\\QuestFrame\\AutoQuest-Parts", 
			iconCoords = {0.3046875, 0.41796875, 0.03125, 0.9375}, 
			icon2 =  completed and [[Interface\AddOns\DugisGuideViewerZ\Artwork\turnin]] or [[Interface\AddOns\DugisGuideViewerZ\Artwork\accept]], 
			iconCoords2 = {0, 1, 0, 1}}
			return extraData
		end
	end

	--local landmarkType, name, description, textureIndex, x, y, mapLinkID, inBattleMap, graveyardID, areaID, poiID, isObjectIcon, atlasIcon = GetMapLandmarkInfo(i);	
	function DugisArrow:LandMarkPOIWaypoint(poiButton, reset)
		if not poiButton then return end
		local posX, posY = poiButton.normalizedX, poiButton.normalizedY
		local m, f = DGV:GetCurrentMapID()
		if reset then DugisGuideViewer:RemoveAllWaypoints() end
		if posX then 
			DGV:AddCustomWaypoint(posX, posY, poiButton.name, m, f, questId, nil, nil, function()
				local extraData = DGV.GetIconData("LandMark", poiButton)
				SetExtraData( extraData) 
			end) 
		end
	end	

	function DugisArrow:OnQuestLogChanged(isInThread)
		if DugisGuideViewer.wqtloaded then return end
		local wp = DugisArrow:getFirstWaypoint()
		if not wp or wp.guideIndex or not wp.questId then return end
		
		if IsLegionPatch then 
			if (QuestUtils_IsQuestWorldQuest(wp.questId) and QuestUtils_IsQuestWatched(wp.questId)) or select(2, GetTaskInfo(wp.questId)) then 
				return 
			end		
		else
			if (QuestMapFrame_IsQuestWorldQuest(wp.questId) and QuestUtils_IsQuestWatched(wp.questId)) or select(2, GetTaskInfo(wp.questId)) then 
				return 
			end
		end
		for i=1,C_QuestLog.GetNumQuestLogEntries() do
			local qid = C_QuestLog.GetInfo(i).questID
			if qid==wp.questId  then
				return
			end
		end
		DugisArrow:SetNextWaypoint(wp, isInThread)
	end
	
    local disabledClicksDugisArrow = false
	function DugisArrow:DisableMapClicks()
		if not DugisGuideViewer.carboniteloaded then
            disabledClicksDugisArrow = true 
		end
	end
	
	function DugisArrow:EnableMapClicks()
        disabledClicksDugisArrow = false
		if not DugisGuideViewer.carboniteloaded and not DugisArrow.old_WorldMapButtonOnClick then
            DugisArrow.old_WorldMapButtonOnClick = WorldMapFrame.ScrollContainer:GetScript("OnMouseDown")
            WorldMapFrame.ScrollContainer:SetScript("OnMouseDown", function(...)
                if not disabledClicksDugisArrow then
                    DugisMapOverlayFrame_OnMouseUp(...)
                end
            end)   
		end
	end
	
	local function UpdatePosition(setMapToCurrentZone)

		local prev_map, prev_floor = DugisArrow.map, DugisArrow.floor
		local _,_,_,x =  DugisGuideViewer:GetPlayerPosition()

		if not WorldMapFrame:IsVisible() and not 
			(DugisGuideViewer.carboniteloaded and NxMap1 and NxMap1:IsVisible()) and x
		then --NxMap1 is the Carbonite map
			DugisArrow.map, DugisArrow.floor, DugisArrow.pos_x, DugisArrow.pos_y = DugisGuideViewer:GetPlayerPosition()

		else --World Map Minimized
			local x, y = DGV:GetPlayerMapPosition()
			local floors = 0
			
			DugisArrow.pos_x, DugisArrow.pos_y = x, y
		end

		local isInInstance = IsInInstance()

		if setMapToCurrentZone then
			if isInInstance and (DugisArrow.map ~= prev_map or DugisArrow.floor ~= prev_floor) then
				DebugPrint("Map Change Detected")
				LuaUtils:DugiSetMapToCurrentZone()
			end
		end
	end

	function DugisArrow:initArrow()
		if not DugisMapOverlayFrame then
			DugisArrow.map_overlay = CreateFrame("FRAME", "DugisMapOverlayFrame", WorldMapFrame.ScrollContainer.Child)
			DugisArrow.map_overlay:SetAllPoints()
			--[[Need to change this FrameLevel value carefully
				Known levels:
				Quest blue area:2006, quests:2825,2224, 2725, 2229, 2726 flightmasters:2013, pets: 2015
			]]
			DugisArrow.map_overlay:SetFrameLevel(2005)
			DugisArrow.map_overlay:SetFrameStrata("MEDIUM")
		end

		if not DugisMinimapOverlayFrame then
			DugisArrow.minimap_overlay = CreateFrame("FRAME", "DugisMinimapOverlayFrame", Minimap)
			DugisArrow.minimap_overlay:SetAllPoints()
			DugisArrow.minimap_overlay:SetFrameLevel(11)
			DugisArrow.minimap_overlay:SetFrameStrata("LOW")
		end
		DugisArrow:EnableMapClicks()
		
		if DugisGuideViewer:UserSetting(DGV_CLASSICARROW) then
			wayframe.arrow:SetTexture(DugisArrow.CLASSIC_UP)
		else
			wayframe.arrow:SetTexture(DugisArrow.MODERN_UP)
		end

		if not DugisArrowDb or not DugisArrow:GetSetting("arrow_size") then DugisArrow:LoadDefaultSettings() end

		-- Player Position Variables
		DugisArrow.continent = 0;
		DugisArrow.zone = 0;
		DugisArrow.pos_x = 0;
		DugisArrow.pos_y = 0;
		DugisArrow.map = 0

		-- Update Variables
		DugisArrow.updatestart = 0;
		DugisArrow.updateend = 0;
		DugisArrow.updatelast = 0;

		DugisMapOverlayFrame:Show()
		DugisMinimapOverlayFrame:Show()
		UpdatePosition(true)

	end

	function DugisArrow:ResetPosition()
		anchor:ClearAllPoints()
		anchor:SetPoint("CENTER", 0, 300)
		DugisArrow:SetSetting("arrow_locked", false)
		DugisArrow:SetSetting("gps_locked", DADEFAULT["gps_locked"])
		DugisArrow:SetSetting("arrow_size", DADEFAULT["arrow_size"])
		DugisArrow:SetSetting("arrow_textsize", DADEFAULT["arrow_textsize"])
		DugisArrow:Show()
	end

	function DugisArrow:SetScale(scale)
		if InCombatLockdown() then return end
		if scale then
			DugisArrow:SetSetting("arrow_size", scale)
		else
			scale = DugisArrow:GetSetting("arrow_size")
		end


		local width, height = 60, 60
		local titleX, titleY = 0, -5

		if DugisArrow.state == "foundRoute" and not showDownArrow then
			width, height = 80 * scale, 60 * scale
		end

		if DugisArrow.state == "foundRoute" and showDownArrow then
			width, height = 70 * scale, 92 * scale
		end

		if DugisArrow.state == "noRouteFound" then
			width, height = 80 * scale * 0.8, 80 * scale * 0.8
		end

		if wayframe.button:IsShown() then
			width, height = wayframe.button:GetWidth() * 1.3, wayframe.button:GetWidth() * 1.3
		end

		if not InCombatLockdown() then
			--Controls not streched to the wayframe parent.
			local buttonSize = 40 
            wayframe.button:SetHeight(buttonSize * scale)
            wayframe.button:SetWidth(buttonSize * scale)
                
            wayframe.toyButton:SetWidth(buttonSize * scale)
            wayframe.toyButton:SetHeight(buttonSize * scale)
		end

		if wayframe:IsShown() then
			wayframe.title:SetPoint("TOP", wayframe, "BOTTOM", titleX, titleY)
		else
			if DGV.Modules.GPSArrowModule then
				DGV.Modules.GPSArrowModule.UpdateTitlePosition()
			end
		end

		anchor:SetWidth(width)
		anchor:SetHeight(height)
		wayframe:SetWidth(width)
		wayframe:SetHeight(height)

		UpdateDugisArrowActionButtonPos()
	end

	function DugisArrow:SetTextScale(scale)
		if scale then
			DugisArrow:SetSetting("arrow_textsize", scale)
		else
			scale = DugisArrow:GetSetting("arrow_textsize")
		end

		wayframe.title:SetFont(default_font_name, default_font_size * scale, default_font_flags)
		wayframe.status:SetFont(default_font_name, default_font_size * scale, default_font_flags)
		wayframe.tta:SetFont(default_font_name, default_font_size * scale, default_font_flags)

		if DGV.Modules.GPSArrowModule then
			DGV.Modules.GPSArrowModule.title:SetFont(default_font_name, default_font_size * scale, default_font_flags)
			DGV.Modules.GPSArrowModule.status:SetFont(default_font_name, default_font_size * scale, default_font_flags)
			DGV.Modules.GPSArrowModule.tta:SetFont(default_font_name, default_font_size * scale, default_font_flags)
		end
		
	end

	function DugisArrow:setArrow(m, f, x, y, desc, waypoint)
		active_point.m, active_point.f, active_point.x, active_point.y = m, f, x/100, y/100
		active_point.waypoint = waypoint
		wayframe.title:SetText(desc)
		if DGV.Modules.GPSArrowModule then
			DGV.Modules.GPSArrowModule.title:SetText(desc)
		end
		DugisArrow:Show()
	end

	function DugisArrow:PrintStatus()
		DebugPrint("Player Status:")

		self:PrintBool("map", DugisArrow.map)
		self:PrintBool("floor", DugisArrow.floor)
		self:PrintBool("pos_x", DugisArrow.pos_x)
		self:PrintBool("pos_y", DugisArrow.pos_y)

		DebugPrint("Waypoint Status:")
		self:PrintBool("map", active_point.m)
		self:PrintBool("floor", active_point.f)
		self:PrintBool("pos_x", active_point.x)
		self:PrintBool("pos_y", active_point.y)
	end



	function DugisArrow:DebugZ()
		local k, v
		DebugPrint("---------DugisArrow.waypoints:")
		if DugisArrow.waypoints then
			for k, v in ipairs(DugisArrow.waypoints) do
				DebugPrint("Index:"..k.." x coord:"..v.x.." y coord:"..v.y.." map:"..v.map.." floor:"..(v.floor or 0))
			end
		else
			DebugPrint("Empty")
		end

		self:PrintBool("WrongInstanceFloor", wrongInstanceFloor)
		DebugPrint("---------")
	end

	function DugisArrow:PrintBool(name, data)
		if type(data) == "boolean" then
			if data == true then DebugPrint(name.." == true")
			elseif data == false then DebugPrint(name.." == false")
			elseif data == nil then DebugPrint(name.." == nil") end
		else
			if data then DebugPrint(name.." == "..data) else DebugPrint(name.." == nil") end
		end
	end
	
	local function UpdateLFDFrame()
		local lfgMap,lfgId = DugisArrow:GetFirstWaypointLFGDestination()
		local fmap,_ = DugisGuideViewer:ReturnTag("F", DugisGuideUser.CurrentQuestIndex)
		
		if lfgId and (DugisArrow.map~=lfgMap or (DugisArrow.map~=lfgMap and fmap==lfgMap)) and not DGV:IsLFGQueued() then
			--Disable for now, sometime it appears for some map even though character is the correct map
			--GetCreateArrowLFGFrame()
			--lfgFrame.button.queue = lfgId
			--lfgFrame:Show()
		else
			if lfgFrame then lfgFrame:Hide() end
		end
		
	end
    
	function DGV.CheckForFinalWaypoints()
		if DGV:UserSetting(DGV_CLEAR_FINAL_WAYPOINT) then
			local playerX, playerY, playerM = DGV:GetPlayerLocalPosition(true)
			local lastPoint = DugisArrow.waypoints and DugisArrow.waypoints[#DugisArrow.waypoints]
			local distToLast

			if lastPoint then
				distToLast = DugisGuideViewer:ComputeDistance(playerM, nil, playerX, playerY, lastPoint.map, nil, lastPoint.x * 0.01, lastPoint.y * 0.01)
			end		

			if distToLast and distToLast <= 15 then
				DGV:RemoveAllWaypoints()
				UIErrorsFrame:AddMessage("Waypoint reached.",1,1,1,1)
			end
		end 
	end    

	local OnPlayerStopTriggered = false
	
	local function OnPlayerStop()
		DGV.TriggerPingAnimation(5)
	end

	local last_distance = 0
	local tta_throttle = 0
	local speed = 0
	local speed_count = 0

	local lastPlayerX, lastPlayerY 
	
	DugisArrowGlobal.lastAngle = -1000

	local function OnUpdate(self, elapsed)
		wayframe:SetPoint("TOPLEFT", anchor)
		local text = ""

		local playerX, playerY, playerM = DGV:GetPlayerLocalPosition(true)

		if playerX == lastPlayerX and playerY == lastPlayerY then
			if not OnPlayerStopTriggered then
				OnPlayerStopTriggered = true
				OnPlayerStop()
			end
		else
			OnPlayerStopTriggered = false
		end

		lastPlayerX, lastPlayerY  = playerX, playerY
		
		local dist, dx, dy = DugisGuideViewer:ComputeDistance(playerM, nil, playerX, playerY, active_point.m, nil, active_point.x, active_point.y)

		if DGV.Modules.GPSArrowModule then
			DGV.Modules.GPSArrowModule.DistanceChanged(dist, dx, dy, active_point.m, active_point.f)
		end

		if anchor.moving then
			UpdateDugisArrowActionButtonPos()
		end

		if playerM == active_point.m and active_point.m then
			local pos = C_Map.GetPlayerMapPosition(active_point.m, "player")


			DGV.isAccuratePositionAvailable = pos ~= nil

			if pos then
				local pX, pY = pos:GetXY()
				dx, dy = -(pX - active_point.x), -(pY - active_point.y)
			end
		end

        DGV.CheckForFinalWaypoints()
	
		--if not DugisArrow.pos_x or not DugisArrow.pos_y or not DugisArrow:GetSetting("arrow") then
		if dist and dx and dy then

			local mdist = dist * 0.9144
			if GetLocale() == "enUS" then
				if dist > 9999 then
					text = math.floor(0.5 + dist/1760).." mil"
				else
					text = math.floor(0.5 + dist).." yd"
				end
			else
				if mdist > 9999 then
					text = math.floor(0.5 + mdist/1000).." km"
				else
					text = math.floor(0.5 + mdist).." m"
				end
			end

			status:SetText(text)
			
			if DGV.Modules.GPSArrowModule then
				DGV.Modules.GPSArrowModule.status:SetText(text)
			end

			tta_throttle = tta_throttle + elapsed

			if tta_throttle >= 1 then
				--print("dist="..dist.."Map="..DugisArrow.map.."Floor="..DugisArrow.floor.."xpos="..DugisArrow.pos_x.."ypos="..DugisArrow.pos_y.."map="..active_point.m.."floor="..active_point.f.."ap_x="..active_point.x.."ap_y"..active_point.y)
				-- Calculate the speed in yards per sec at which we're moving
				local current_speed = (last_distance - dist) / tta_throttle

				if last_distance == 0 then
				current_speed = 0
				end

				--DebugPrint("last_distance"..last_distance.."dist"..dist.."current_speed"..current_speed)
				if speed_count < 2 then
					speed = (speed + current_speed) / 2
					speed_count = speed_count + 1
				else
					speed_count = 0
					speed = current_speed
				end

				if speed > 0 then
					local eta = math.abs(dist / speed)
					if eta > 2^42 then
						wayframe.status:SetPoint("TOP", wayframe.title, "BOTTOM", -21, 0)
						wayframe.tta:SetPoint("LEFT", wayframe.status, "RIGHT", 8, 0)

						tta:SetText("***")
						
						if DGV.Modules.GPSArrowModule then
							LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.status, "TOP", DGV.Modules.GPSArrowModule.title, "BOTTOM", -21, 0)
							LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.tta, "LEFT", DGV.Modules.GPSArrowModule.status, "RIGHT", 8, 0)
							DGV.Modules.GPSArrowModule.tta:SetText("***")
						end
					elseif eta > 3600 then
						wayframe.status:SetPoint("TOP", wayframe.title, "BOTTOM", -24, 0)
						wayframe.tta:SetPoint("LEFT", wayframe.status, "RIGHT", 8, 0)

						tta:SetFormattedText("%01d:%02d:%02d", eta / 3600, eta % 24, eta %60)
						
						if DGV.Modules.GPSArrowModule then
							LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.status, "TOP", DGV.Modules.GPSArrowModule.title, "BOTTOM", -24, 0)
							LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.tta, "LEFT", DGV.Modules.GPSArrowModule.status, "RIGHT", 8, 0)
							DGV.Modules.GPSArrowModule.tta:SetFormattedText("%01d:%02d:%02d", eta / 3600, eta % 24, eta %60)
						end
					else
						wayframe.status:SetPoint("TOP", wayframe.title, "BOTTOM", -21, 0)
						wayframe.tta:SetPoint("LEFT", wayframe.status, "RIGHT", 8, 0)
						tta:SetFormattedText("%01d:%02d", eta / 60, eta % 60)
						
						if DGV.Modules.GPSArrowModule then
							LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.status, "TOP", DGV.Modules.GPSArrowModule.title, "BOTTOM", -21, 0)
							LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.tta, "LEFT", DGV.Modules.GPSArrowModule.status, "RIGHT", 8, 0)
							DGV.Modules.GPSArrowModule.tta:SetFormattedText("%01d:%02d", eta / 60, eta % 60)
						end
					end
				else
					wayframe.status:SetPoint("TOP", wayframe.title, "BOTTOM", -21, 0)
					wayframe.tta:SetPoint("LEFT", wayframe.status, "RIGHT", 8, 0)
					tta:SetText("***")
					
					if DGV.Modules.GPSArrowModule then
						LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.status, "TOP", DGV.Modules.GPSArrowModule.title, "BOTTOM", -21, 0)
						LuaUtils.ClearAndSetPoint(DGV.Modules.GPSArrowModule.tta, "LEFT", DGV.Modules.GPSArrowModule.status, "RIGHT", 8, 0)
						DGV.Modules.GPSArrowModule.tta:SetText("***")
					end					
				end

				last_distance = dist
				tta_throttle = 0
			end

			local angleRadFor3DArrow = 0

			--An angle of the line between the player and the next waypoit
			local angleRad 
			if active_point.waypoint then 
				angleRad = pins:GetVectorToIcon(active_point.waypoint.minimap)
			end 
			--An angle of player facing
			local playerRad = LuaUtils.GetPlayerFacing_dugi()

			if not angleRad then
				--Fallback
				angleRad = math.atan2(-dx, -dy) + 2 * math.pi
			end

			angleRad = angleRad - playerRad
			angleRadFor3DArrow = angleRad

			if ShouldShowStairs() then
				DugisArrow:SetScale()

				DugisArrow:setArrowTexture( )
			elseif (dist and dist <= 20 and DugisGuideViewer:ReturnTag("W", DugisGuideUser.CurrentQuestIndex)) or (dist and dist <= 10) then
				if not showDownArrow  and not InCombatLockdown() then
					if not showDownArrow then
						pingAnimationAlpha = 0
					end
					showDownArrow = true
					DugisArrow:SetScale()
					DugisArrow:setArrowTexture( )
					arrow:SetVertexColor(1, 0.85, 0)
				end
				if showDownArrow then 
					local cell = math.floor(mod(GetTime() * 60, 55))
	
					local column = cell % 9
					local row = floor(cell / 9)
	
					local xstart = (column * 53) / 512
					local ystart = (row * 70) / 512
					local xend = ((column + 1) * 53) / 512
					local yend = ((row + 1) * 70) / 512
					arrow:SetTexCoord(xstart,xend,ystart,yend)
	
					if DugisGuideViewer:IsPlayerAtBlizzardDestination() then
						local r, g, b = unpack(DugisArrow:GetQuestingAreaColor())
						arrow:SetVertexColor(r, g, b)
					end	
				end

				
			else
				if showDownArrow and not InCombatLockdown() then
					if showDownArrow then
						pingAnimationAlpha = 0
					end
					showDownArrow = false
					DugisArrow:SetScale()
					DugisArrow:setArrowTexture(true)
				elseif showDownArrow then 
					local cell = math.floor(mod(GetTime() * 60, 55))
	
					local column = cell % 9
					local row = floor(cell / 9)
	
					local xstart = (column * 53) / 512
					local ystart = (row * 70) / 512
					local xend = ((column + 1) * 53) / 512
					local yend = ((row + 1) * 70) / 512
					arrow:SetTexCoord(xstart,xend,ystart,yend)
	
					if DugisGuideViewer:IsPlayerAtBlizzardDestination() then
						local r, g, b = unpack(DugisArrow:GetQuestingAreaColor())
						arrow:SetVertexColor(r, g, b)
					end	
				else 	

			
				local angle = angleRad

					if angleRad ~= DugisArrowGlobal.lastAngle or DGV.arrowUpdateRequst then
						DGV.arrowUpdateRequst = false
						DugisArrowGlobal.lastAngle = angleRad
					
						local perc = math.abs((math.pi - math.abs(angleRad)) / math.pi)
						if perc > 1 then perc = 2 - perc end
					
						local r,g,b
						
						if UnitInVehicle("player") then 
							r,g,b = 1,0.5,0
						else 
							r,g,b = ColorGradient(perc)
						end

						
						--To remove original light-yellow color from arrow
						arrow:SetDesaturated(true)
						
						arrow:SetVertexColor(r,g,b)
	
						if DugisGuideViewer:IsPlayerAtBlizzardDestination() then
							local r, g, b = unpack(DugisArrow:GetQuestingAreaColor())
							arrow:SetVertexColor(r, g, b)
						end

						local twoPi = math.pi * 2
						local cell = floor(angleRad / twoPi * 108 + 0.5) % 108
						local column = cell % 9
						local row = floor(cell / 9)
	
						local xstart = (column * 56) / 512
						local ystart = (row * 42) / 512
						local xend = ((column + 1) * 56) / 512
						local yend = ((row + 1) * 42) / 512
						arrow:SetTexCoord(xstart,xend,ystart,yend)
					end	
				end
			end


			local screenW = GetScreenWidth()
			local screenH = GetScreenHeight()

			if DugisArrow:IsEnabled3DArrow() and DugisArrow.state == "foundRoute" then
		
				local eccentricity = 0.6

				local diameterXPercent = 9 * (DugisGuideViewer:GetDB(DGV_DISTANCED_ARROW_SIZE) or 3)
				local diameterYPercent = diameterXPercent * eccentricity


				local diameterX = diameterXPercent * 0.01 * screenW 
				local diameterY = diameterYPercent * 0.01 * screenH
				local x = diameterX * 0.5 * math.sin(angleRadFor3DArrow) 
				local y = diameterY * 0.6 * math.cos(angleRadFor3DArrow) 

				wayframe.arrow3D.arrow:SetRotation(angleRadFor3DArrow)
				wayframe.arrow3D.arrow:SetSize(25, 25)
				wayframe.arrow3D.arrow:SetPoint("CENTER", 0 ,0) 
				wayframe.arrow3D.arrow:SetTexture("Interface\\Navigation\\IngameNavigationUI")
				wayframe.arrow3D.arrow:SetTexCoord(0, 0.38, 0.55, 1)

				local dotX, dotY = 
					20 * math.sin(angleRadFor3DArrow),
					-20 * math.cos(angleRadFor3DArrow)
				wayframe.arrow3D.dot:SetPoint("CENTER", dotX, dotY)
				wayframe.arrow3D.dot2:SetPoint("CENTER", dotX, dotY)

				wayframe.arrow3D.dot:SetSize(26, 26)
				wayframe.arrow3D.dot2:SetSize(13, 13)
					
				local finalWaypont = DGV.Modules.DugisArrow:getFinalWaypoint()

				if finalWaypont then
					local stepIndex = finalWaypont and finalWaypont.guideIndex
					
					local currentStepIcon = stepIndex and DGV:getIcon(DGV.actions[stepIndex], stepIndex)

					local icon = currentStepIcon or 
					"Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\waypoint"
					local coords = {0, 1, 0, 1}

					local icon2 = nil
					local coords2 = {0, 1, 0, 1}
	
					if icon == "Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\waypoint" 
					and DugisGuideUser.finalWaypointInfo and DugisGuideUser.finalWaypointInfo.icon then
						icon = DugisGuideUser.finalWaypointInfo.icon
						coords = DugisGuideUser.finalWaypointInfo.iconCoords
						icon2 = DugisGuideUser.finalWaypointInfo.icon2
						coords2 = DugisGuideUser.finalWaypointInfo.iconCoords2
						if currentStepIcon then
							icon2 = nil
						end
					end

					wayframe.arrow3D.dot:SetTexCoord(unpack(coords))
					wayframe.arrow3D.dot:SetTexture(icon)

					wayframe.arrow3D.dot2:SetTexCoord(unpack(coords))
					wayframe.arrow3D.dot2:SetTexture(icon)

					if icon2 then
						wayframe.arrow3D.dot2:SetTexCoord(unpack(coords2))
						wayframe.arrow3D.dot2:SetTexture(icon2)
						wayframe.arrow3D.dot2.shown = true
					else
						wayframe.arrow3D.dot2.shown = false
					end
				end

				local animation = GetOnPlaceAnimation(wayframe)

				if showDownArrow and wayframe.shown3dOnPlaceAnimation then
					animation:SetPoint("CENTER", 0, -17)
				else
					animation:SetPoint("CENTER", 20 * math.sin(angleRadFor3DArrow), -20 * math.cos(angleRadFor3DArrow))
				end

				if showDownArrow then
					if wayframe.shown3dArrow then
						wayframe.shown3dArrow = false
					end

					if not wayframe.shown3dOnPlaceAnimation then
						wayframe.shown3dOnPlaceAnimation = true
					end
					
					GetOnPlaceAnimation(wayframe):Play()
					GetPingAnimation():Stop()
				else
					if not wayframe.shown3dArrow then
						wayframe.shown3dArrow = true
					end

					if wayframe.shown3dOnPlaceAnimation then
						wayframe.shown3dOnPlaceAnimation = false
					end
					
					GetOnPlaceAnimation(wayframe):Stop()
				end
				
				UpdatePingPosition()

				arrow:Hide()
				pingAnimationAlpha = pingAnimationAlpha + elapsed

				if pingAnimationAlpha > 1 then
					pingAnimationAlpha = 1
				end

				if GPSArrowScroll:GetAlpha() == 0 then
					wayframe:SetAlpha(pingAnimationAlpha)
				end

				if showDownArrow and wayframe.shown3dOnPlaceAnimation then
					wayframe:SetPoint("TOPLEFT", UIParent, screenW * 0.5 - wayframe:GetWidth() * 0.4, -screenH * 0.5 + (diameterY * 0.6))
				else
					wayframe:SetPoint("TOPLEFT", UIParent, screenW * 0.5 - x - wayframe:GetWidth() * 0.4, -screenH * 0.5 + y)
				end

			
			else
				if wayframe.shown3dArrow then
					wayframe.shown3dArrow = false
				end

				if wayframe.shown3dOnPlaceAnimation then
					wayframe.shown3dOnPlaceAnimation = false
				end
			
				GetOnPlaceAnimation(wayframe).Stop()
				GetPingAnimation():Stop()
				arrow:Show()
			end

			if DGV.dontDisplayPingAnimation then
				GetPingAnimation():Stop()
			end

			SetArrowState("foundRoute")

		elseif active_point.m == 715 or --To force teleport portal regardless of cooldown
		DugisArrow.map == 715 or
		active_point.m == 709 or
		DugisArrow.map == 709 or
		active_point.m == 734 or
		DugisArrow.map == 734 or		
		active_point.m == 735 or
		DugisArrow.map == 735		
		then
			wayframe.arrow:Hide()
			
			status:SetText("***")
			if DGV.Modules.GPSArrowModule then
				DGV.Modules.GPSArrowModule.status:SetText("***")
			end
		else
			local animation = GetOnPlaceAnimation(wayframe)
			animation:Stop()
	
			GetPingAnimation():Stop()
		end

		DugisArrow:setArrowTexture( )


		DugisArrow:UPDATE(nil, nil, true) 
		DugisArrow:SetScale()
	end

	function DugisGuideViewer:CheckForArrowChange()
		if DugisArrow.map ~= active_point.m then
			wrongInstanceFloor = true
		else
			wongInstanceFloor = nil
		end
	end

	local lastElapsed = 0
	local function AlwaysUpdate(reaction, event, elapsed)
		-- Update Player Position
		UpdatePosition(false)
	
		if ((elapsed - DugisArrow.updatelast) > 1 ) then
			DugisArrow:UPDATE(nil, nil, true)
			DugisArrow.updatelast = elapsed
		end
		DugisGuideViewer.Ants:UpdateAntTrail(elapsed-lastElapsed)
		lastElapsed = elapsed
		
		if DugisArrow:getNumWaypoints() > 1 and not (DugisGuideViewer.carboniteloaded and DugisGuideViewer:UserSetting(DGV_CARBONITEARROW)) then
			if DugisArrow:DidPlayerReachWaypoint() then
				DugisArrow:SetNextWaypoint()
				DugisArrow:setArrowTexture( )
			end
		end				
		
		if DugisArrow.recalculateRoutesAwaiting and not DugisArrow.recalculatingRoutes then
			DugisArrow.RecalculateRoutes()
			DugisArrow.recalculateRoutesAwaiting = false
		end
		
	end

	function DugisArrow:UPDATE(_, _, preventModelReload)
		if DGV:UserSetting(DGV_GPS_MERGE_WITH_DUGI_ARROW) and DugisArrow:IsEnabled3DArrow() then
			local  _, parent = GPSArrowScroll:GetPoint()

			if DGV.wayframe == parent then
				DugisGuideViewer.Modules.GPSArrowModule.UpdateMerged() 
			end
		end

		DugisGuideViewer:CheckForFloorChange()
		DugisGuideViewer:CheckForArrowChange()	
		
		if not DugisGuideUser.FinalizeWaypoint then
			DugisArrow:FinalizeWaypointIcon() 
		end
		DugisGuideViewer:UpdateTravelToLocation()	
		
		DugisArrow:setArrowTexture(true)	

		-- Update Arrow	
		if wayframe.shown3dArrow and DugisArrow.state == "foundRoute"  then
			wayframe.arrow3D.arrow:Show()
			wayframe.arrow3D.dot:Show()
			if wayframe.arrow3D.dot2.shown then
				wayframe.arrow3D.dot2:Show()
			else
				wayframe.arrow3D.dot2:Hide()
			end
			wayframe.arrow:Hide()
		else
			wayframe.arrow3D.arrow:Hide()
			wayframe.arrow3D.dot:Hide()
			wayframe.arrow3D.dot2:Hide()
		end

		if wayframe.shown3dOnPlaceAnimation then
			wayframe.arrow3D.arrow:Hide()
			wayframe.arrow3D.dot:Hide()
			wayframe.arrow3D.dot2:Hide()
			wayframe.arrow:Hide()
		end

		if DugisArrow.UpdateArrowFrameVisibility then
			DugisArrow.UpdateArrowFrameVisibility()
		end
	end

	function DugisArrow:GetSetting(variable)

		if variable and DugisArrowDb then
			return DugisArrowDb[variable]
		end
	end

	function DugisArrow:SetSetting(variable, value)

		if DugisArrowDb and variable then
			if not value then DugisArrowDb[variable] = false
			else DugisArrowDb[variable] = value end
		end
	end

	function DugisArrow:ResetSettings()
		DugisArrowDb = {}
	end

	function DugisArrow:LoadDefaultSettings()
		DugisArrowDb = DADEFAULT
	end

	local function spacer()
		local htex = DugisGuideViewer.ArrowMenu:CreateIconTexture(item, 10)
		htex:SetVertexColor(1, 1, 1, 0)
		return htex
	end

	function DugisArrow:PopulateMenu(menu)
		local remove = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Remove Waypoint")
		remove:SetFunction(function () DugisArrow:ClearArrow() end)

		local removeAll = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Remove All Waypoints")
		removeAll:SetFunction(function () DugisGuideViewer:RemoveAllWaypoints()  end)

		local refresh = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Refresh")
		refresh:SetFunction(function () 
			DugisArrow.RefreshRoute(0)
		end)
		
		if waypoints then
			local wp = waypoints[#waypoints]
			if wp then
				DugisGuideViewer:RemoveAllWaypoints()
				local map, floor, x, y, desc, guideIndex, isWTag, questId = wp.map, wp.floor, wp.x, wp.y, wp.desc, wp.guideIndex, wp.isWTag, wp.questId
				LuaUtils:Delay(1, function()
					DugisArrow.SetWaypointInfo(map, floor, x, y, desc, guideIndex, isWTag, questId, true)
				end)
			end
		end

		local lock = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, not DugisArrow:GetSetting("arrow_locked") and "Lock Arrow" or "Unlock Arrow")
		local ltex = DugisGuideViewer.ArrowMenu:CreateIconTexture(item, 10)
		lock:SetFunction(function () local arrow_locked = not DugisArrow:GetSetting("arrow_locked"); DugisArrow:SetSetting("arrow_locked", arrow_locked); end)
		lock:AddTexture(ltex, true)
		lock:AddTexture(spacer(), false)
		ltex:SetVertexColor(1, 1, 1, DugisArrow:GetSetting("arrow_locked") and 1 or 0)
		
		local lockGPS = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, not DugisArrow:GetSetting("gps_locked") and "Lock Zone Map" or "Unlock Zone Map")
		local ltex = DugisGuideViewer.ArrowMenu:CreateIconTexture(item, 10)
		lockGPS:SetFunction(function () local gps_locked = not DugisArrow:GetSetting("gps_locked"); DugisArrow:SetSetting("gps_locked", gps_locked); end)
		lockGPS:AddTexture(ltex, true)
		lockGPS:AddTexture(spacer(), false)
		ltex:SetVertexColor(1, 1, 1, DugisArrow:GetSetting("gps_locked") and 1 or 0)

		local scale = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Arrow Scale")
		scale:ClearAllPoints()
		local scale_menu = DugisGuideViewer.ArrowMenu:CreateMenu("scale_menu")
		scale:SetSubmenu(scale_menu)
		scale_menu:Hide()

		scale:AddTexture(spacer(), true)
		for i = 5, 15 do
			local it = DugisGuideViewer.ArrowMenu:CreateMenuItem(scale_menu, string.format("%d%%", i * 10))
			local ix = i
			it:SetFunction(function () DugisArrow:SetScale(ix / 10) end)
			local icon = DugisGuideViewer.ArrowMenu:CreateIconTexture(item, 10)
			if DugisArrow:GetSetting("arrow_size") == ix / 10 then
				icon:SetVertexColor(1, 1, 1, 1)
			else
				icon:SetVertexColor(1, 1, 1, 0)
			end
			it:AddTexture(icon)
		end

		local tscale = DugisGuideViewer.ArrowMenu:CreateMenuItem(menu, "Text Scale")
		tscale:ClearAllPoints()
		
		local tscale_menu = DugisGuideViewer.ArrowMenu:CreateMenu("tscale_menu")
		tscale:SetSubmenu(tscale_menu)
		tscale_menu:Hide()
		tscale:AddTexture(spacer(), true)
		for i = 5, 15 do
			local it = DugisGuideViewer.ArrowMenu:CreateMenuItem(tscale_menu, string.format("%d%%", i * 10))
			local ix = i
			it:SetFunction(function () DugisArrow:SetTextScale(ix / 10) end)
			local icon = DugisGuideViewer.ArrowMenu:CreateIconTexture(item, 10)
			if DugisArrow:GetSetting("arrow_textsize") == ix / 10 then
				icon:SetVertexColor(1, 1, 1, 1)
			else
				icon:SetVertexColor(1, 1, 1, 0)
			end
			it:AddTexture(icon)
		end

	end

	wayframe:RegisterForClicks("RightButtonUp")
	wayframe:SetScript("OnClick", WayFrame_OnClick)
	wayframe.button:HookScript("OnClick", 
		function(self, button)
			if button=="RightButton" then
				WayFrame_OnClick(self, button)
			end
		end)
	wayframe:SetScript("OnEnter", arrow_OnEnter)
	wayframe:SetScript("OnLeave", arrow_OnLeave)

	--[[
	hooksecurefunc("WorldMapLevelDropDown_Update", function()
		DebugPrint("WorldMapLevelDropDown_Update")
		DugisArrow:onMapChangeUpdateArrow( )
	end)
	--]]
	
	local UID = 0
	local function SetWaypointMembers(point, guideIndex, isWTag, questId)
		point.guideIndex = guideIndex
		point.questId = questId or (DGV.qid and DGV.qid[guideIndex])
		point.isWTag = isWTag
        
		UID = UID + 1
		point.uid = UID
		DugisArrow:WaypointsChanged()
	end
	
	local function SetWaypointMembersPostCalculation(mapID, mapFloor, x, y, desc, point, guideIndex, isWTag, questId)
		if not point then
			--DGV:DebugFormat("DugisArrow:AddWaypoint No route found")
			point = AddWaypoint(mapID, x, y, desc)
		end

		if point then
			point.isRouteWaypoint = nil
			point.isRouteDestination = true
			SetWaypointMembers(point, guideIndex, isWTag, questId)
		end
	end
	
	local function SetSmartWaypointRoutine(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, preventMapChange, extraData, dontUpdateIcons, onEnd)
		DugisArrow:SetProgressSpinner()
		local last = DugisArrow.waypoints and DugisArrow.waypoints[#DugisArrow.waypoints]
		local point = DGV:SetSmartWaypoint(mapID, mapFloor, x, y, desc, 
			last and last.map, 
			last and last.floor, 
			last and last.x, 
			last and last.y, 
			preventMapChange,
			extraData,
			dontUpdateIcons)

		SetWaypointMembersPostCalculation(mapID, mapFloor, x, y, desc, point, guideIndex, isWTag, questId)
		if onEnd then 
			onEnd() 
		end

		DugisArrow:WaypointsChanged()
	end
	
	local waypointInfoQueue
	local function InterruptSetSmartWaypoint()
		InterruptAutoroutine("SetSmartWaypoint")
		if not waypointInfoQueue then return end
		while waypointInfoQueue:Length()>0 do
			waypointInfoQueue:Remove(1):Pool()
		end
		waypointInfoQueue:Pool()
		waypointInfoQueue = nil
	end
	
	local function QueueWaypointInfo(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation, extraData, onEnd)
		if not waypointInfoQueue then
			waypointInfoQueue = DGV.GetCreateTable()
		end
		waypointInfoQueue:Insert(DGV.GetCreateTable(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation, extraData))

		if onEnd then onEnd() end
	end

	DGV.TriggerPingAnimation = function(duration)
		DGV.dontDisplayPingAnimation = false

		if pingAnimationDelayHandler then
			pingAnimationDelayHandler:Cancel()
		end
		pingAnimationDelayHandler = LuaUtils:Delay(duration or 5, function()
			DGV.dontDisplayPingAnimation = true
		end)
	end
	
	local SetQueuedWaypointInfo
	local function SetWaypointInfo(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation, preventMapChange, extraData, dontUpdateIcons, onEnd)
		DGV.SendDataToClients("SWI", {mapID, mapFloor, x, y, guideIndex, isWTag, questId, forceCalculation, desc}, 9)

		InterruptRecalculation()

		DGV.TriggerPingAnimation(5)

        local disabledTaxiSystem = not DGV:UserSetting(DGV_USETAXISYSTEM) or isWTag or IsInInstance()
		if disabledTaxiSystem or (DugisArrow:getNumWaypoints()>0 and not forceCalculation) then

			local point = AddWaypoint(mapID, x, y, desc, extraData)
			SetWaypointMembers(point, guideIndex, isWTag, questId)

			if onEnd then onEnd() end
			return true
		else
			BeginAutoroutine("SetSmartWaypoint", SetSmartWaypointRoutine, mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, preventMapChange, extraData, dontUpdateIcons, onEnd):OnCompletion(SetQueuedWaypointInfo)
			return false
		end
	end
	
	DugisArrow.SetWaypointInfo = SetWaypointInfo
	
	SetQueuedWaypointInfo = function()
		if waypointInfoQueue then
			while waypointInfoQueue:Length()>0 do
				local info = waypointInfoQueue:Remove(1)
				local complete = SetWaypointInfo(info:Pool())
				if not complete then
					break
				end
			end
			if waypointInfoQueue:Length()==0 then
				waypointInfoQueue:Pool()
				waypointInfoQueue = nil
			end
		end
	end
	
	function DugisArrow:AddWaypoint( mapID, mapFloor, x, y, desc, guideIndex, questId, forceCalculation, isWTag, preventMapChange, extraData, onEnd)
		--DGV:DebugFormat("AddWaypoint", "mapID", mapID, "mapFloor", mapFloor, "x", x, "y", y, "desc", desc)
		DugisGuideUser.WaypointGuideIndex = guideIndex

		if not isWTag and guideIndex and DugisGuideViewer:IsModuleLoaded("Guides") and DugisGuideViewer.tags[guideIndex] then
			isWTag = DugisGuideViewer.tags[guideIndex]:match("(|LOOP|)")~=nil
		end
		
		local waypointAutoroutine = GetRunningAutoroutine("SetSmartWaypoint")
		if waypointAutoroutine then
			QueueWaypointInfo(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation, extraData, onEnd)
		else
			SetWaypointInfo(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation, preventMapChange, extraData, nil,  onEnd)
		end
	end

	function DugisArrow:getNumWaypoints( )
		return (DugisArrow.waypoints and #DugisArrow.waypoints) or 0
	end

	function DugisArrow:getFirstWaypoint()
		if DugisArrow.waypoints then
			return DugisArrow.waypoints[1]

		end
	end
	
	function DugisArrow:getFinalWaypoint()
		if DugisArrow.waypoints then
			return DugisArrow.waypoints[DugisArrow:getNumWaypoints()]
		end
	end	

	local maxsetnext = 0
	function DugisArrow:SetNextWaypoint(removeMe, isInThread)
        LuaUtils:RestIfNeeded(isInThread)
        
		if maxsetnext > 15 then return end --Stops endless loop if 2 waypoints are very close together with |LOOP| tag which can crash the game
		maxsetnext = maxsetnext + 1
			
		local waypoint, firstWaypoint

		--DebugPrint("SetNextWaypoint stack:"..debugstack())
		--DebugPrint("SetNextWaypoint removeMe:"..tostring(removeMe).." getNumWaypoints:"..getNumWaypoints())
		if DugisArrow:getNumWaypoints() > 1 or removeMe then
			waypoint = DugisArrow:DidPlayerReachWaypoint()
			waypoint = removeMe or DugisArrow:getFirstWaypoint()
			--waypoint = removeMe or ((waypoint.isWTag or waypoint.isRouteWaypoint) and waypoint) or DugisArrow:getFirstWaypoint()
			
			if not waypoint.isWTag or waypoint.isRouteWaypoint or removeMe then 
				DugisArrow:RemoveWaypoint(waypoint)				
				if DugisGuideViewer:UserSetting(DGV_WAYPOINT_PING) then LuaUtils:PlaySoundFile(567455) end
				UIErrorsFrame:AddMessage("Waypoint reached.",1,1,1,1)
			elseif DugisArrow:DidPlayerReachWaypoint() ~= DugisArrow:getFinalWaypoint() then	
                 local map, floor, x, y, desc, guideIndex, questId, isWTag 
                 = waypoint.map, waypoint.floor, waypoint.x, waypoint.y, waypoint.desc, waypoint.guideIndex, waypoint.questId, waypoint.isWTag
				DugisArrow:RemoveWaypoint(waypoint)	
                
				DugisArrow:AddWaypoint(map, floor, x, y, desc, guideIndex, questId, false, isWTag)  --creates problems with recalculation, revisit later. 
				if DugisGuideViewer:UserSetting(DGV_WAYPOINT_PING) then LuaUtils:PlaySoundFile(567455) end
				UIErrorsFrame:AddMessage("Waypoint reached.",1,1,1,1)				
			end

			firstWaypoint = DugisArrow:getFirstWaypoint()

			if firstWaypoint and firstWaypoint ~= waypoint then
				if UseTomTomArrow() then
					TomTom:SetCrazyArrow( firstWaypoint.tomtom, 5, firstWaypoint.desc )
				else
					DugisArrow:setArrow( firstWaypoint.map, firstWaypoint.floor, firstWaypoint.x, firstWaypoint.y, firstWaypoint.desc, firstWaypoint )
					DugisArrow:WaypointsChanged()
				end
			end
			
			if waypoint and not waypoint.isWTag and DugisArrow:DidPlayerReachWaypoint() and not removeMe and not waypoint.isRouteWaypoint then
				DugisArrow:SetNextWaypoint(isInThread)
			elseif waypoint and waypoint.isWTag and DugisArrow:DidPlayerReachWaypoint() and (DugisArrow:DidPlayerReachWaypoint() ~= DugisArrow:getFinalWaypoint()) and not removeMe and not waypoint.isRouteWaypoint then
				DugisArrow:SetNextWaypoint(isInThread)
			end				
		end
		maxsetnext = 0
	end

    --this function should return only the closest point
	function DugisArrow:DidPlayerReachWaypoint()
		local dist
		local minimumdist = 15 
        local matchedWaypoints = {}

		for _, waypoint in pairs(DugisArrow.waypoints) do
			dist = DugisGuideViewer:GetDistanceFromPlayer(waypoint.map, waypoint.floor, waypoint.x, waypoint.y)
			--if dist then DebugPrint("dist="..dist) end
			if waypoint.isWTag then minimumdist = 15 end
			
			if dist and dist < minimumdist and 
				not waypoint.flightMasterID and 
				not waypoint.destID and
				not waypoint.spellRequirement and
				not waypoint.noTrigger and
				not waypoint.isCorpseWaypoint
			then
				local pmap, pfloor, px, py = DGV:GetPlayerPosition()
--DGV:DebugFormat("DidPlayerReachWaypoint", "pfloor", pfloor, "waypoint", waypoint)
				if pmap==waypoint.map then
                    matchedWaypoints[#matchedWaypoints + 1] = {waypoint, dist}
				end
			end
			if 
				waypoint.destID and
				waypoint.destID==DugisArrow.map and
				not WorldMapFrame:IsShown() --DugisArrow.map isn't reliable when the map is opened and manipulated, but destID is only used after a teleport scenario, after which the map will always be closed.
			then
                --matchedWaypoints[#matchedWaypoints + 1] = {waypoint, dist} --This was removing outdoor to indoor waypoint
			end
		end
        
        if #matchedWaypoints > 0 then
            local closest, minDistance = matchedWaypoints[1][1], matchedWaypoints[1][2]
            minDistance = minDistance or 0
            for _, item in pairs(matchedWaypoints) do
                local dist = item[2] or 0
                if dist < minDistance then
                    minDistance = dist
                    closest = item[1]
                end
            end
            
            return closest
        end
	end
    
	function DugisArrow:DidPlayerReachPlace(x, y, m, f)
		local dist
		local minimumdist = 15 

        local dist = DugisGuideViewer:GetDistanceFromPlayer(m, f, x, y)
        
        if dist and dist < minimumdist then
            local _, pfloor = DGV:GetPlayerPosition()
            if pfloor == f then
                return true
            end
        end
    end

	--was not used
	
	function DugisGuideViewer:PrintCoords()
		for _, waypoint in pairs(DugisArrow.waypoints) do
			DebugPrint("waypoints uid:"..waypoint.uid.." M:"..waypoint.map.." F:"..waypoint.floor.." X:"..waypoint.x.." Y:"..waypoint.y.." desc:"..waypoint.desc)
		end
	end
	
	function RemoveWaypointAt(index)
		local waypoint = table.remove(DugisArrow.waypoints, index)
		if waypoint.tomtom then DugisArrow:RemoveTomTomWaypoint(waypoint.tomtom) end

		waypoint.worldmap.icon:Hide()
		waypoint.worldmap:Hide()
		waypoint.worldmap.shown = false
        
		DugisGuideViewer:RemoveMinimapIcon(waypoint.minimap)
		DugisGuideViewer:RemoveWorldMapIcon(waypoint.worldmap)
        
		if DGV.Modules.GPSArrowModule then 
			waypoint.GPSArrowPoint.icon:Hide()
			waypoint.GPSArrowPoint:Hide()
		end
        
        
		pointCache:ReleaseFrame(waypoint.worldmap)
		miniPointCache:ReleaseFrame(waypoint.minimap)
		
		if DGV.Modules.GPSArrowModule then 
			GPSArrowPointCache:ReleaseFrame(waypoint.GPSArrowPoint)
		end
		tPool(waypoint)
		if DugisArrow:getNumWaypoints() == 0 then 
			DugisArrow:Hide()
		end
		
		DugisArrow:SaveWaypoints()

		return
	end

	function DugisGuideViewer:RemoveAllWaypoints()
		DGV.SendDataToClients("RAW")
		InterruptRecalculation()
		InterruptSetSmartWaypoint()
		if UseCarboniteArrow() then 
			local map = Nx.Map:GetMap (1)
			if map then 
				map:ClearTargets()
			end
		end
		if DugisArrow.waypoints then
			while #DugisArrow.waypoints>0 do
				RemoveWaypointAt(1)
			end
			DugisGuideUser.waypoints = nil
			DugisArrow.waypoints = nil
			DugisArrow.waypointsRemoved = true
		end
		DugisArrow:Hide()
		DugisArrow:WaypointsChanged("removed-all-waypoints")
	end

    
	function DugisGuideViewer:RemoveAllWaypointsFromZone(zoneName)

        InterruptRecalculation()
        InterruptSetSmartWaypoint()

        if UseCarboniteArrow() then 
            local map = Nx.Map:GetMap (1)
            map:ClearTargets()
        end

        if DugisArrow.waypoints then

            for i=#DugisArrow.waypoints,1,-1 do
            
                local name = DGV:GetMapNameFromID(DugisArrow.waypoints[i].map)
            
                if name == zoneName then
                    RemoveWaypointAt(i)
                end
            end            

            if #DugisArrow.waypoints == 0 then
				DugisGuideUser.waypoints = nil
				DugisArrow.waypoints = nil
                DugisArrow:Hide()
            end

        end
        
        DugisArrow:Hide()
        DugisArrow:WaypointsChanged()
	end

    
	function DugisArrow:ClearArrow( )
		DugisArrow:SetNextWaypoint(DugisArrow:getFirstWaypoint())
	end

	function DugisArrow:RemoveWaypoint(waypoint, suppressChangedEvent)
		--DebugPrint("Try to delete waypoint:"..waypoint.x..","..waypoint.y)
		local index = 1
		while index<=#(DugisArrow.waypoints) do
			local val = DugisArrow.waypoints[index]
			if val == waypoint then
				RemoveWaypointAt(index)
				break
			elseif val.isRouteWaypoint then
				RemoveWaypointAt(index)
			else
				index = index+1
			end
		end
		if not suppressChangedEvent then
			DugisArrow:WaypointsChanged()
		end
	end

	function DugisGuideViewer:RemoveMinimapIcon(point)
		DugisGuideViewer:RemoveIconFromMinimap(point)
	end
	
	function DugisArrow.UpdateWaypointsVisibility()
		if DugisArrow.waypoints then
		
			local hiddenRest = false
		
			for i=1, #DugisArrow.waypoints do
				local waypoint = DugisArrow.waypoints[i]
				
				waypoint.hiddenRestOnMinimap = hiddenRest
				
				if hiddenRest then
					waypoint.minimap.icon:Hide()
					waypoint.minimap.arrow:Hide()
					
					if waypoint.minimapVisualLine then
						waypoint.minimapVisualLine:Hide()
					end
					if waypoint.minimapVisualLineEffect then
						waypoint.minimapVisualLineEffect:Hide()
					end
				end
			
				if waypoint.minimap.edge then
					hiddenRest = true
				end

				
			end

			DugisArrow:SaveWaypoints()
		end
	end
	

	local minimap_counts = {}
	local rad_135 = math.rad(135)
	local square_half = math.sqrt(0.5)
	function DugisArrow.Minimap_OnUpdate(self, elapsed)

		--todo
		local dist,x,y = 0 --DugisGuideViewer.astrolabe:GetDistanceToIcon(self)
		if not dist then
			self:Hide()
			return
		end

		minimap_counts[self] = (minimap_counts[self] or 0) + elapsed
		
		if minimap_counts[self] < 0.1 then 
			return 
		end
		
		minimap_counts[self] = 0

		local edge = pins:IsMinimapIconOnEdge(self) 
		self.edge = edge
		
		if ShouldShowStairs() then
			self.icon:Hide()
			self.arrow:Hide()
		elseif edge then
			self.icon:Hide()
			self.arrow:Show()
            
            if not DugisArrow.UpdateToyButtonVisibility_pending then
                DugisArrow.UpdateToyButtonVisibility_pending = true
                DoOutOfCombat(DugisArrow.UpdateToyButtonVisibility)
            end

			local angle = pins:GetVectorToIcon(self)

			angle = (angle or 0) + rad_135
			if GetCVar("rotateMinimap") == "1" then
				local cring = LuaUtils.GetPlayerFacing_dugi()
				angle = angle - cring
			end

			local sin,cos = math.sin(angle) * square_half, math.cos(angle) * square_half
			self.arrow:SetTexCoord(0.5-sin, 0.5+cos, 0.5+cos, 0.5+sin, 0.5-cos, 0.5-sin, 0.5+sin, 0.5-cos)
		else
			self.icon:Show()
			self.arrow:Hide()
		end
		
		DugisArrow.UpdateWaypointsVisibility()
	end

	function DugisArrow:RemoveTomTomWaypoint(waypoint)
		DugisArrow.CallingRemoveWaypoint = true
		TomTom:RemoveWaypoint(waypoint)
		DugisArrow.CallingRemoveWaypoint = nil
	end

	function DugisArrow:GetTotalRouteWaypoints()
		local waypoints = DugisGuideViewer.DugisArrow.waypoints
		local total = 0
		if waypoints then
			for _, waypoint in pairs(waypoints) do
				if waypoint.isRouteWaypoint then total = total + 1 end
			end
		end
		return total
	end	

	function DugisArrow:GetFirstWaypointGuideIndex()
		local waypoints = DugisGuideViewer.DugisArrow.waypoints
		if waypoints then
			for _, waypoint in pairs(waypoints) do
				if waypoint.guideIndex then return waypoint.guideIndex end
			end
		end
		return nil
	end

	function DugisArrow:GetFirstWaypointQuestId()
		local waypoints = DugisGuideViewer.DugisArrow.waypoints
		if waypoints then
			for _, waypoint in pairs(waypoints) do
				if waypoint.questId then return waypoint.questId end
			end
		end
		return nil
	end

	function DugisArrow:GetFirstWaypointLFGDestination()
		local waypoints = DugisGuideViewer.DugisArrow.waypoints
		if waypoints then
			for _, waypoint in pairs(waypoints) do
				local lfd = DGV:GetLFD(waypoint.map)
				if lfd then return waypoint.map,lfd end
			end
		end
		if DugisGuideViewer:ReturnTag("F", DugisGuideUser.CurrentQuestIndex) then 
			local fmap,_ = DugisGuideViewer:ReturnTag("F", DugisGuideUser.CurrentQuestIndex)
			local lfd = DGV:GetLFD(fmap)
			if lfd then return fmap,lfd end
		end
		return nil
	end
	
	function SetWayFrameItem(itemID)
		local itemName = C_Item.GetItemInfo(itemID)
		wayframe.button:SetAttribute("itemid", itemID)
		wayframe.button:SetAttribute("type", "item")
		wayframe.button:SetAttribute('*' .. "item" .. '2', itemName)
		wayframe.button:RegisterForClicks('LeftButtonUp', 'RightButtonDown')
		if wayframe:IsShown() then
			wayframe.button:Show()
		end
		DugisArrow:SetScale()
		DugisArrow:UpdateToyButton(itemID)
	end
	
	function SetWayFrameSpell(spellID)
        
		wayframe.button:SetAttribute("type1", "spell")
		wayframe.button:SetAttribute("spell1", 
			GetSpellInfo(spellID).name)
		if wayframe:IsShown() then
			wayframe.button:Show()
		end
		DugisArrow:SetScale()
        
        DugisArrow:UpdateToyButton(spellID)
	end
	
	local function SetWayFrameLFGTeleport()
		wayframe.button:SetAttribute("type1", "macro")
		wayframe.button:SetAttribute("macrotext", "/run LFGTeleport(1)")
		if wayframe:IsShown() then
			wayframe.button:Show()
		end
		DugisArrow:SetScale()
	end
	
	function DugisArrow:SetProgressSpinner()
		wayframe.shown3dArrow = false
		SetArrowState("searching")
	end

	local function HideInvisibleGPSWaypoints()
		--Hidding GPS waypoints that should not be visible
        for _, waypoint in pairs(DugisArrowGlobal.waypoints) do
			if not waypoint.worldmap.shown then
				waypoint.GPSArrowPoint:Hide()
			end
		end
	end	

	function DugisGuideViewer:OnMapChangeUpdateGPSArrow( )
		if DugisArrow.waypoints  then
			local oldContinentId, continentId = DGV.GetCurrentMapContinent_dugi()
			for index, waypoint in pairs(DugisArrow.waypoints) do
				local w, h = GPSArrow.map_overlay:GetWidth(), -GPSArrow.map_overlay:GetHeight()
				local x, y = DGV:TranslateWorldMapPosition(waypoint.map, _, waypoint.x/100, waypoint.y/100,  DGV:GetDisplayedOrPlayerMapId())
				if x and y and w and h then
					SetGPSArrowPointPos(waypoint, x * w,  y * h)
					
					if x > 1 or x < 0 or y > 1 or y < 0 then
						waypoint.GPSArrowPoint:Hide()
					else
						waypoint.GPSArrowPoint:Show()
					end
                else
                    waypoint.GPSArrowPoint:Hide()
                end
			end
			
			HideInvisibleGPSWaypoints()
		end
	end	
	
	 DugisArrow.UpdateArrowFrameVisibility = function()
		wayframe.progress:Hide()
		wayframe.title:Show()
		
		if DGV.Modules.GPSArrowModule then
			DGV.Modules.GPSArrowModule.title:Show()
		end
	
		if active_point.waypoint and 
			active_point.waypoint.cue 
		then
			
		elseif active_point.waypoint and 
			active_point.waypoint.itemID 
		then
			wayframe.arrow:Hide()
			wayframe.button.texture:SetTexture(
				GetItemIcon(active_point.waypoint.itemID))
			DoOutOfCombatCancelOld("UpdVisibility2", SetWayFrameItem, active_point.waypoint.itemID)
		elseif active_point.waypoint and 
				active_point.waypoint.spellID
		then
			wayframe.arrow:Hide()
			wayframe.button.texture:SetTexture(
				GetSpellInfo(active_point.waypoint.spellID).iconID)
			DoOutOfCombatCancelOld("UpdVisibility3", SetWayFrameSpell, active_point.waypoint.spellID)
		elseif active_point.waypoint and 
				active_point.waypoint.isLFGTeleport
		then
			wayframe.arrow:Hide()
			wayframe.button.texture:SetTexture("Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\dungeon.tga")
			DoOutOfCombatCancelOld("UpdVisibility4", SetWayFrameLFGTeleport)
		else
		if not DugisArrow:IsEnabled3DArrow() and  (DugisArrow.state ~= "noTracking") then
				wayframe.arrow:Show()
			end
			DoOutOfCombatCancelOld("UpdVisibility5", DugisArrow.UpdateToyButtonVisibility)
			DoOutOfCombatCancelOld("UpdVisibility6", wayframe.button.Hide,wayframe.button)
		end

		if DugisArrow.state == "searching" then
			wayframe.tta:SetText("")
			wayframe.title:Hide()
			wayframe.status:SetText("")
			
			if DGV.Modules.GPSArrowModule then
				DGV.Modules.GPSArrowModule.tta:SetText("")
				DGV.Modules.GPSArrowModule.title:Hide()
				DGV.Modules.GPSArrowModule.status:SetText("")
			end
			 
			wayframe.arrow:Hide()
			DoOutOfCombatCancelOld("UpdVisibility7", wayframe.button.Hide,
				wayframe.button)
			wayframe.progress:Show()
		end

		if DugisArrow.state == "noRouteFound" then
			if wayframe.button:IsShown() then
				wayframe.arrow:Hide()
			else
				wayframe.arrow:Show()
			end
		end


		DugisArrow:setArrowTexture(true)
	end

	function DugisArrow:WaypointsChanged(reason)
		DugisArrow:SaveWaypoints()

		UpdateLFDFrame()

		local waypoints = DugisArrow.waypoints
		local finalWaypoint 
	
		if not waypoints or #waypoints<1 then
			DoOutOfCombat(HideDugiWayframe)
		else 
			finalWaypoint = #waypoints
		end
		
		--DebugPrint("Debug WaypointsChanged: SmallFrame.Frame.Waypoint="..tostring(SmallFrame.Frame.Waypoint))
		local guideIndex = DugisArrow:GetFirstWaypointGuideIndex()
		--local dist = DugisGuideViewer:ComputeDistance(DugisArrow.map, DugisArrow.floor, DugisArrow.pos_x, DugisArrow.pos_y, active_point.m, active_point.f, active_point.x, active_point.y)

		if DGV:IsModuleLoaded("Guides") then
            for index = 1, DGV.GetLastUsedStepIndex() do
                local rowObj = DGV.visualRows[index]
                
                if rowObj and rowObj.frame then
                    if rowObj.frame.WayPoint and guideIndex==index then
                        rowObj.frame.WayPoint:SetNormalTexture("Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\waypoint_selected.tga")
                    else
                        rowObj.frame.WayPoint:SetNormalTexture("Interface\\AddOns\\DugisGuideViewerZ\\Artwork\\waypoint.tga")
                    end
                end
            end
		end
		local questId = DugisArrow:GetFirstWaypointQuestId()
		--if DGV.ItemButton then DoOutOfCombat(DGV.ItemButton.Hide, DGV.ItemButton) end
		DGV.Modules.ItemButton:SetUseItemByQID(questId)
		if guideIndex then
			DGV:SetTarget(guideIndex)
			if DGV:IsModelDataOn() then
				DGV:ShowModel(guideIndex)
			end
			if waypoints and #waypoints>0 then
				finalWaypoint = #waypoints
				--dist = DugisGuideViewer:ComputeDistance(waypoints[finalWaypoint].map, waypoints[finalWaypoint].floor, waypoints[finalWaypoint].x, waypoints[finalWaypoint].y, active_point.m, active_point.f, active_point.x, active_point.y)
			end
			
			if waypoints[finalWaypoint].x ~= DugisGuideUser.PreviewPointx and waypoints[finalWaypoint].y ~= DugisGuideUser.PreviewPointy and active_point and active_point.waypoint and not active_point.waypoint.isWTag then
				if not DugisGuideViewer:IsPlayerAtBlizzardDestination() then
					DGV.MapPreview:FadeInMap()
					DugisGuideUser.PreviewPointx = waypoints[finalWaypoint].x
					DugisGuideUser.PreviewPointy = waypoints[finalWaypoint].y
				end
			end
		elseif questId then
			local questPOI = DGV:IterateQuestPOIs(function(poi)
				local id = poi.questId or (poi.quest and poi.quest.questId)
				if id==questId then return poi end
			end)
			if questPOI then
				DGV:WipeModels()
				DGV:WipeTargetNPCs()
				DGV:IterateGuideIndicesWithQID(questId, function(index)
					local action = DGV.actions[index]
					if questPOI.type==QUEST_POI_NUMERIC then
						if action=="C" or action=="N" or action=="K" then
							if DGV:IsModelDataOn() then
								DGV.Modules.ModelViewer:AddIndexModels(index)
							end
							DGV.Modules.Target:AddIndexNPCs(index)
						elseif action=="T" then
							return true
						end
					else
						if action=="T" then
							if DGV:IsModelDataOn() then
								DGV.Modules.ModelViewer:AddIndexModels(index)
							end
							DGV.Modules.Target:AddIndexNPCs(index)
							return true
						end
					end
				end)
				if DGV:IsModelDataOn() then
					DGV.Modules.ModelViewer:Finalize()
				end
				DGV:FinalizeTarget()
			end

			if waypoints and #waypoints>0 then
				finalWaypoint = #waypoints
				--dist = DugisGuideViewer:ComputeDistance(waypoints[finalWaypoint].map, waypoints[finalWaypoint].floor, waypoints[finalWaypoint].x, waypoints[finalWaypoint].y, active_point.m, active_point.f, active_point.x, active_point.y)
			end
			if waypoints[finalWaypoint].x ~= DugisGuideUser.PreviewPointx and waypoints[finalWaypoint].y ~= DugisGuideUser.PreviewPointy and active_point and active_point.waypoint and not active_point.waypoint.isWTag then
				if not DugisGuideViewer:IsPlayerAtBlizzardDestination() then
					DGV.MapPreview:FadeInMap()
					DugisGuideUser.PreviewPointx = waypoints[finalWaypoint].x
					DugisGuideUser.PreviewPointy = waypoints[finalWaypoint].y
				end
			end
		end
		UpdateLFDFrame()
		if questId then DGV:SafeSetMapQuestId(questId) end
        
        DGV:UpdateMapPingForNoRoutePath(true)
		
		if DGV.Modules.GPSArrowModule then
			DGV.Modules.GPSArrowModule.WaypointsChanged()
		end
		
		DugisGuideViewer:OnMapChangeUpdateGPSArrow( )
		
		DGV:WorldMapFrameOnHide()
		
		local waypoint = DugisArrow:getFirstWaypoint()

		local isFirstWaypointItem = waypoint and waypoint.itemID

		if waypoint and (waypoint.map and waypoint.floor and waypoint.x and waypoint.y or isFirstWaypointItem) then
			SetArrowState("foundRoute", isFirstWaypointItem)
		else
			if reason == "removed-all-waypoints" then
				SetArrowState("noTracking")
			else
				SetArrowState("noRouteFound")
			end
		end
		
	end

	--Notify us when TomTom removes waypoints, so we can delete our ant trail
	if DugisGuideViewer.tomtomloaded then
		local function hook_RemoveWayPoint(self, tomtomway)
			if DugisArrow.waypoints and not DugisArrow.CallingRemoveWaypoint then
				for index, waypoint in ipairs(DugisArrow.waypoints) do
					if tomtomway[3]*100 == waypoint.x and tomtomway[4]*100 == waypoint.y then
						DugisArrow:SetNextWaypoint(waypoint)
					end
				end
			end
		end
		hooksecurefunc(TomTom, "RemoveWaypoint", hook_RemoveWayPoint)
	end

	if DugisGuideViewer.tomtomloaded then
		local function hook_RemoveAllWaypoints(self)
			DugisGuideViewer:RemoveAllWaypoints()
		end
		hooksecurefunc(StaticPopupDialogs["TOMTOM_REMOVE_ALL_CONFIRM"], "OnAccept", hook_RemoveAllWaypoints)
	end
	
	function DGV:UNIT_SPELLCAST_SUCCEEDED(event, unit, cast, spellID)
        if unit == "player" then
            DugisGuideViewer:OnCastingSpell(spellID)
        end
    
		if unit=="player" and DugisArrow.waypoints then
			--DGV:DebugFormat("UNIT_SPELLCAST_SUCCEEDED", "spellID", spellID)
			for _, waypoint in pairs(DugisArrow.waypoints) do
				if spellID and (waypoint.spellRequirement==spellID or waypoint.spellID==spellID) then
					DugisArrow:SetNextWaypoint(waypoint)
					break
				end
			end
		end
	end

    function DGV:UpdateMapPingForNoRoutePath(hideOnly)
        local currentMapId = DGV:GetCurrentMapID()
        --local currentFloor = DGV.GetCurrentMapDungeonLevel()

        if not DugisGuideViewer.Modules.MapPreview.WaypointMapPing then
            DugisGuideViewer.Modules.MapPreview:InitializeWaypointMapPing()
        end

        local lastWaypoint = DugisArrowGlobal:getFinalWaypoint(); 
		
		if not  DugisGuideViewer.Modules.MapPreview.WaypointMapPing then
			return 
		end

        if lastWaypoint then
            local x, y = DugisGuideViewer:Waypoint2MapCoordinates(lastWaypoint)
            DugisGuideViewer.Modules.MapPreview.WaypointMapPing:SetPoint("CENTER", DugisMapOverlayFrame, "TOPLEFT", x, y)
            
            if currentMapId == lastWaypoint.map  and (DugisArrow.state ~= "foundRoute") then
                if not hideOnly then
                    DugisGuideViewer.Modules.MapPreview.WaypointMapPing:Show()
                end
            else
                DugisGuideViewer.Modules.MapPreview.WaypointMapPing:Hide()
            end
        else
            DugisGuideViewer.Modules.MapPreview.WaypointMapPing:Hide()
        end
    end

	--local orig_WorldMapQuestPOI_OnClick = WorldMapQuestPOI_OnClick
	function DugisArrow:Load()
		DugisArrow:initArrow()
		DGV:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED")
		DugisArrow:SetScale()
		DugisArrow:SetTextScale()
		
		function DugisArrow:WorldMapQuestPOI_OnClick(self, button, down)
			if button == "RightButton" and (IsControlKeyDown() or IsShiftKeyDown()) then
				DugisArrow:QuestPOIWaypoint(self, IsControlKeyDown())
			end
		end

		wayframe:SetScript("OnUpdate", OnUpdate)
		DugisArrow:Show()

		function DGV:OnMapChangeUpdateArrow( )
            DGV:UpdateMapPingForNoRoutePath(true)
			--DebugPrint("##################onMapChangeUpdateArrow")
			if DugisArrow.waypoints and not UseCarboniteArrow() then
				local oldContinentId, continentId = DGV.GetCurrentMapContinent_dugi()
                local c, z, m = oldContinentId, 0, DGV:GetCurrentMapID()
				for index, waypoint in pairs(DugisArrow.waypoints) do
					DugisGuideViewer:PlaceIconOnWorldMap( WorldMapButton, waypoint.worldmap, waypoint.map, waypoint.floor, waypoint.x/100, waypoint.y/100)
				end
			end
		end
		
		DGV.RegisterStopwatchReaction(0):WithAction(AlwaysUpdate)
			:DisposeOn(RegisterFunctionPathReaction("DugisGuideViewer.Modules.DugisArrow", "Unload"))
			
		local function PlayerUnghost()
			if DugisArrow.waypoints and #DugisArrow.waypoints > 0 and not UnitIsDeadOrGhost("player") then
				for i = 1, #DugisArrow.waypoints do 
					if DugisArrow.waypoints[i] and (DugisArrow.waypoints[i].isCorpseWaypoint or DugisArrow.waypoints[i].desc == L["My Corpse"]) then 
						RemoveWaypointAt(i)
					end
				end
			end
			
			local waypoint = DugisArrow:getFirstWaypoint()

			if waypoint then
				if UseTomTomArrow() then
					TomTom:SetCrazyArrow( waypoint.tomtom, 5, waypoint.desc )
				else
					DugisArrow:setArrow( waypoint.map, waypoint.floor, waypoint.x, waypoint.y, waypoint.desc, waypoint )
					DugisArrow:WaypointsChanged()
				end
			end
			--[[ old way doesn't work with essential mode
			if active_point and active_point.waypoint and active_point.waypoint.isCorpseWaypoint then
				DGV.DugisArrow:SetNextWaypoint(active_point.waypoint)
			end]]			
		end		
		DGV.RegisterReaction("PLAYER_UNGHOST"):WithAction(PlayerUnghost)
			:DisposeOn(RegisterFunctionPathReaction("DugisGuideViewer.Modules.DugisArrow", "Unload"))
		DGV.RegisterReaction("PLAYER_ALIVE"):WithAction(PlayerUnghost)
			:DisposeOn(RegisterFunctionPathReaction("DugisGuideViewer.Modules.DugisArrow", "Unload"))			
			
		local function DiffRecalculationPoints()
			if not recalculationPoints or not DugisArrow.waypoints then 
				return 
			end
			local diffDetected = recalculationPoints:Length()~=#DugisArrow.waypoints
			if not diffDetected then
				for index, diff in recalculationPoints:IPairs() do
					local live = DugisArrow.waypoints[index]
					if 
						live.map~=diff.map or
						live.floor~=diff.floor or
						live.y~=diff.y or
						live.x~=diff.x or
						live.desc~=diff.desc
					then
						diffDetected = true
						break
					end
				end
			end
--DGV:DebugFormat("DiffRecalculationPoints", "diffDetected", diffDetected, "recalculationPoints==nil", recalculationPoints==nil)
			if diffDetected then
				while #DugisArrow.waypoints>0 do
					RemoveWaypointAt(1)
				end
				while recalculationPoints:Length()>0 do
					PlaceWaypoint(recalculationPoints:Remove(1))
				end
				DugisArrow:WaypointsChanged()
			else
				while recalculationPoints:Length()>0 do
					tPool(recalculationPoints:Remove(1))
				end
			end
			recalculationPoints:Pool()
			recalculationPoints = nil
		end
			
			
		local RecalculateRoutesRoutine_lastTime = 0
		local function RecalculateRoutesRoutine()
			if (GetTime() - RecalculateRoutesRoutine_lastTime) < MinimumRecalculateRoutes_sec then
				return
			end

			DugisArrow.recalculatingRoutes = true

			local last
            
            if not recalculationQueue then
				DugisArrow.recalculatingRoutes = false
                return
            end
			
			RecalculateRoutesRoutine_lastTime = GetTime()
            
			for index,location in recalculationQueue:IPairs() do
				local point
				local mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation = location:Unpack()
				if index==1 or forceCalculation then
					point = DGV:SetSmartWaypoint(mapID, mapFloor, x, y, desc, 
						last and last.map, 
						last and last.floor, 
						last and last.x, 
						last and last.y,
						nil,
						nil,
						true)
					if not point then
						point = AddWaypoint(mapID, x, y, desc)
					else
						point.isRouteWaypoint = nil
						point.isRouteDestination = true
					end
				else
					point = AddWaypoint(mapID, x, y, desc)
				end
				last = location
				point.guideIndex = guideIndex
				point.questId = questId or (DGV.qid and DGV.qid[guideIndex])
				point.isWTag = isWTag
				
			end
			DiffRecalculationPoints()
			DugisArrow.recalculatingRoutes = false
		end
		
		local function AddRecalculationLocation( mapID, mapFloor, x, y, desc, guideIndex, questId, forceCalculation)
			local isWTag = nil
			if guideIndex and DugisGuideViewer:IsModuleLoaded("Guides") and DugisGuideViewer.tags[guideIndex] then
				isWTag = DugisGuideViewer.tags[guideIndex]:match("(|LOOP|)")~=nil
			end
			
			if not recalculationQueue then
				recalculationQueue = DGV.GetCreateTable()
			end
			recalculationQueue:Insert(DGV.GetCreateTable(mapID, mapFloor, x, y, desc, guideIndex, isWTag, questId, forceCalculation))
		end
		
		local function RecalculateRoutes()
			if (GetTime() - RecalculateRoutesRoutine_lastTime) < MinimumRecalculateRoutes_sec then
				return
			end
		
			if DugisArrow.recalculatingRoutes then
				DugisArrow.recalculateRoutesAwaiting = true
				return
			end
		
			if 
				GetRunningAutoroutine("RecalculateRoutes") or 
				GetRunningAutoroutine("SetSmartWaypoint") or 
				not DugisArrow.waypoints 
			then 
				InterruptRecalculation()
				DugisArrow.recalculateRoutesAwaiting = true
				return
			end
			
			InterruptRecalculation()
			for _, waypoint in ipairs(DugisArrow.waypoints) do
				if not waypoint.isRouteWaypoint then
					AddRecalculationLocation(waypoint.map, waypoint.floor, waypoint.x, waypoint.y, waypoint.desc, waypoint.guideIndex, waypoint.questId, waypoint.isRouteDestination)
				end
			end
			if recalculationQueue then 
				BeginAutoroutine("RecalculateRoutes", RecalculateRoutesRoutine):OnInterrupt(function() 
					DugisArrow.recalculatingRoutes = false
				end)
			end
		end
		
		DugisArrow.RecalculateRoutes = RecalculateRoutes
		
		local lastM, lastF
		local function MapChangedPredicate()
			if not WorldMapFrame or WorldMapFrame:IsShown() then return end
			local x,y = DGV:GetPlayerMapPosition()
			if not x or not y or (x==0 and y==0) then return end
			if UnitOnTaxi("player") then return end
			local m, f = DGV:GetCurrentMapID()
			local isContinent = (DGV:GetCZByMapId(m))==0 and not IsInInstance()
			if isContinent then return end
            
			local changed = (m~=lastM or f~=lastF)
            
			lastM,lastF = m,f
			return changed
		end
		
		--todo: find replacement
		--RegisterReaction("WORLD_MAP_UPDATE"):WithPredicate(MapChangedPredicate):WithAction(RecalculateRoutes)
		--	:DisposeOn(RegisterFunctionPathReaction("DugisGuideViewer.Modules.DugisArrow", "Unload"))
		
		local function NotFlyingPredicate()
			return not UnitOnTaxi("player")
		end
		
		local lastIsIndoors = nil
		--For some reason MINIMAP_UPDATE_ZOOM is being invoked multiple times in some cases/locations. 
		RegisterReaction("ZONE_CHANGED")
			:Or(RegisterReaction("ZONE_CHANGED_NEW_AREA"))
			:Or(RegisterReaction("ZONE_CHANGED_INDOORS"))
			:Or(RegisterReaction("MINIMAP_UPDATE_ZOOM"))			
			:WithPredicate(NotFlyingPredicate)
			:WithAction(function(a, event, c)
				--Case for micro dungeons
				if event == "MINIMAP_UPDATE_ZOOM" and lastIsIndoors == IsIndoors() then
					return 
				end

				lastIsIndoors = IsIndoors()

                LuaUtils:NamedDelay("ZONE_CHANGED", 5, function()
                    RecalculateRoutes()
                end)
            end)
			:DisposeOn(RegisterFunctionPathReaction("DugisGuideViewer.Modules.DugisArrow", "Unload"))
			
		local function TaxiLandingPredicate()
			if InCombatLockdown() then return end
			return true
		end
		RegisterReaction("VEHICLE_UPDATE")
			:WithPredicate(TaxiLandingPredicate)
			:WithAction(RecalculateRoutes)
			:AfterWait(2)
			:DisposeOn(RegisterFunctionPathReaction("DugisGuideViewer.Modules.DugisArrow", "Unload"))
	end

	function DugisArrow:Unload()
		DGV:UnregisterEvent("UNIT_SPELLCAST_SUCCEEDED")
		DGV.WaypointsShown = false
		DugisArrow:Hide()
		DugisMapOverlayFrame:Hide()
		DugisMinimapOverlayFrame:Hide()

		wayframe:SetScript("OnUpdate", nil)
		DugisGuideViewer:RemoveAllWaypoints()
		DugisArrow:Hide()
	end
    
	function DGV:UpdateCurrentBeaconMode()
        local TaxiData = DugisGuideViewer.Modules.TaxiData
    
        --FlightMapFrame
        --Check for Argus
		if FlightMapFrame and FlightMapFrame:IsShown() and FlightMapFrame.GetMapID and FlightMapFrame:GetMapID() == 1184 then
			local activePool = FlightMapFrame.pinPools["FlightMap_FlightPointPinTemplate"]
			for pin in activePool:EnumerateActive() do 
                local taxiNodeData = pin.taxiNodeData
              
                if taxiNodeData then
                    local id, x, y, name= taxiNodeData.nodeID, taxiNodeData.x, taxiNodeData.y, taxiNodeData.name
                    
                    x =  LuaUtils:Round(x, 7)
                    y =  LuaUtils:Round(y, 7)
                    
                    if x == 0.3279081 and y == 0.5351712 then
                        TaxiData.currentBeaconMode = "veiled-den"
                    end    
                        
                    if x == 0.3434584 and y == 0.7191246 then
                        TaxiData.currentBeaconMode = "lights-purchase"
                    end
                end
			end
		end
        
		if WorldMapFrame and WorldMapFrame:IsShown() then
            local tPOIs = C_TaxiMap.GetTaxiNodesForMap(WorldMapFrame:GetMapID())
            
            for i, zPOI in ipairs(tPOIs) do
                local x =  LuaUtils:Round(zPOI.position.x, 7)
                local y =  LuaUtils:Round(zPOI.position.y, 7)
                
                local mapId =  DGV:GetCurrentMapID()
                if mapId == 885 or mapId == 886 or mapId == 887 then
                    if x == 0.726423 and y == 0.7616945 then
                        TaxiData.currentBeaconMode = "lights-purchase"
                    end
                    if x == 0.7059556 and y == 0.2547702 then
                        TaxiData.currentBeaconMode = "veiled-den"
                    end
                end
            end               
        end
	end
	

	
end

function DugisArrow.RefreshRoute(delay)
	delay = delay or 1
	if not DugisArrow.loaded then return end
	
	local waypoints = DugisGuideViewer.Modules.DugisArrow.waypoints
	if waypoints then
		local wp = waypoints[#waypoints]
		if wp then
			DugisGuideViewer:RemoveAllWaypoints()
			local map, floor, x, y, desc, guideIndex, isWTag, questId = wp.map, wp.floor, wp.x, wp.y, wp.desc, wp.guideIndex, wp.isWTag, wp.questId
			LuaUtils:Delay(delay, function()
				DugisArrow.SetWaypointInfo(map, floor, x, y, desc, guideIndex, isWTag, questId, true, nil, nil, true)
			end)
		end
	end
end