Frames.lua

local addonName, FH = ...
local L = FH.L
FH.M = FH.M or {} -- methods
FH._i = FH._i or {} -- internal state

local _

local msq, msqGroups = nil, {}
if LibStub then
	msq = LibStub("Masque",true)
	if msq then
		msqGroups = {
			FarmhandTools = msq:Group(addonName,"Tools"),
			FarmhandSeeds = msq:Group(addonName,"Seeds"),
			FarmhandPortals = msq:Group(addonName,"Portals"),
			FarmhandTurnins = msq:Group(addonName, "Turnins"),
		}
	end
end

local tomtomOpts = {
	desc = "NPCName", -- placeholder
	title = "NPCGifts", -- placeholder
	from = addonName,
	persistent = false,
	minimap = true,
	world = true,
	crazy = true,
	silent = false,
	cleardistance = 20,
	arrivaldistance = 10,
}

local function NewFarmhandButton(Name,Parent,ItemID,ItemType)
	local f = CreateFrame("Button", Name, Parent, "SecureActionButtonTemplate")
	f:SetSize(32,32)
	f:SetPushedTexture([[Interface\Buttons\UI-Quickslot-Depress]])
	f:SetHighlightTexture([[Interface\Buttons\ButtonHilight-Square]],"ADD")
	f.Icon = f:CreateTexture(Name.."Icon","BACKGROUND")
	f.Icon:SetDrawLayer("BACKGROUND",0)
	f.Icon:SetAllPoints()
	f.SmallIcon = f:CreateTexture(Name.."SmallIcon","BACKGROUND")
	f.SmallIcon:SetDrawLayer("BACKGROUND",1)
	f.SmallIcon:SetPoint("BOTTOMRIGHT",f.Icon,"CENTER",-4,4)
	f.SmallIcon:SetSize(12,12)
	
	f.Count = f:CreateFontString(Name.."Count","ARTWORK","NumberFontNormal")
	f.Count:SetJustifyH("RIGHT")
	f.Count:SetPoint("BottomRight",-2,2)

	f.Cooldown = CreateFrame("Cooldown", "$parentCooldown", f, "CooldownFrameTemplate")
	f.Cooldown:SetAllPoints(true)
	
	f.ItemType = ItemType

	f:RegisterForClicks("AnyUp","AnyDown")

	if ItemID then
		f.ItemID = ItemID
		f:SetAttribute("downbutton","ignore")
		f:SetAttribute("*type-ignore", "")
		if ItemType ~= "Turnin" then
			f:SetAttribute("type","item")
			f:SetAttribute("item","item:"..ItemID)
		end
		f:SetScript("PreClick", FH.M.ItemPreClick)
		f:SetScript("PostClick", FH.M.ItemPostClick)
	end
	
	f:SetScript("OnEnter", FH.M.ItemOnEnter)
	f:SetScript("OnLeave", FH.M.ItemOnLeave)

	f:SetScript("OnMouseDown", FH.M.ButtonOnMouseDown)
	f:SetScript("OnMouseUp", FH.M.ButtonOnMouseUp)
	f:SetScript("OnHide", FH.M.ButtonOnHide)
	
	return f
end

local function CreateBarButtons(Bar, Items, ItemType)
	Bar.Buttons = Bar.Buttons or {}
	local Buttons = Bar.Buttons
	local indexOffset = #Buttons
	for Index, ItemID in ipairs(Items) do
		Index = Index + indexOffset
		local Button = NewFarmhandButton(Bar:GetName().."Button"..Index, Bar, ItemID, ItemType)
		tinsert(Buttons,Button)
		
		if msqGroups[Bar:GetName()] then
			msqGroups[Bar:GetName()]:AddButton(Button)
		end

	end
	return Buttons
end

local function NewMacroButton(Step, SubStep, MacroText)
	local f = CreateFrame("Button", "FHSBE_"..Step.."_"..SubStep, FarmhandScanButton, "SecureActionButtonTemplate")
	f:SetSize(32,32)
	f:RegisterForClicks("AnyUp","AnyDown")
	f:SetAttribute("type", "macro")
	f:SetAttribute("macrotext", MacroText)
	f:Hide()
	return f
end

local function SetupTomTom()
	if FH._i.tomtomDone then return end
	if FH.M.AddGiftWaypoint and FH.M.RemoveGiftWaypoint and FH.M.RemoveAllWaypoints then
		FH._i.tomtomDone = true
		return
	end
	local loading, loaded = C_AddOns.IsAddOnLoaded("TomTom")
	if not loaded then return end
	if TomTom.AddWaypoint then
		FH.M.AddGiftWaypoint = function(gift)
			if FarmhandData.PrintScannerMessages then
				if not TomTom.profile.general.announce then
					TomTom.profile.general.announce = true
					C_Timer.After(0.2,function()
						TomTom.profile.general.announce = false
					end)
				end
			end
			local data = FH.M.GetGiftTargets(gift)
			if data then
				for name,info in pairs(data) do
					tomtomOpts["title"] = format("%s<%s %s",name,info.turnin,info.reward_txt)
					tomtomOpts["desc"] = name
					for _,loc in pairs(info.location) do
						local map,x,y = loc[1],loc[2]/100,loc[3]/100
						local waypoint = TomTom:AddWaypoint(map,x,y,tomtomOpts)
						local key = TomTom:GetKey(waypoint)
						FH._i.waypoints = FH._i.waypoints or {}
						FH._i.waypoints[gift] = FH._i.waypoints[gift] or {}
						FH._i.waypoints[gift][key] = waypoint
					end
				end
				if TomTom.SetClosestWaypoint and FH.M.CheckInValley() then
					C_Timer.After(0.2,function()
						TomTom:SetClosestWaypoint()
					end)
				end
			end
		end
	end
	if TomTom.RemoveWaypoint then
		FH.M.RemoveGiftWaypoint = function(gift)
			if FH._i.waypoints then
				local waypoints = FH._i.waypoints[gift]
				if waypoints then
					for key,waypoint in pairs(waypoints) do
						TomTom:RemoveWaypoint(waypoint)
					end
					if TomTom.SetClosestWaypoint and FH.M.CheckInValley() then
						C_Timer.After(0.2,function()
							TomTom:SetClosestWaypoint()
						end)
					end
				end
			end
		end
		FH.M.RemoveAllWaypoints = function()
			if FH._i.waypoints then
				for reward,waypoints in pairs(FH._i.waypoints) do
					for key,waypoint in pairs(waypoints) do
						TomTom:RemoveWaypoint(waypoint)
					end
				end
			end
		end
	end
end

local addonFrame = CreateFrame("Frame",addonName, UIParent, BackdropTemplateMixin and "BackdropTemplate")
addonFrame:SetDontSavePosition(true)
addonFrame:SetClampedToScreen(true)
addonFrame:SetMovable(true)
addonFrame.tex = addonFrame:CreateTexture()
addonFrame.tex:SetAllPoints()
addonFrame.tex:SetColorTexture(0,1,0,0.5)
addonFrame.tex:Hide()

addonFrame:RegisterEvent("ADDON_LOADED")
addonFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
addonFrame:RegisterEvent("ZONE_CHANGED")
addonFrame:RegisterEvent("ZONE_CHANGED_INDOORS")
addonFrame:RegisterEvent("ZONE_CHANGED_NEW_AREA")
addonFrame:RegisterEvent("GET_ITEM_INFO_RECEIVED")
addonFrame:RegisterEvent("PLAYER_LOGOUT")
addonFrame:SetScript("OnEvent",function(self,event,...)
	if event == "ADDON_LOADED" then
		local AddOn = ...
		if AddOn == addonName then
			if not FH._i.initDone then
				FH.M.UpdateMiscToolOptionText()
				FH.M.RunAfterCombat(FH.M.Initialize)
				FH._i.initDone = true
			end
		end
		if AddOn == "TomTom" then
			SetupTomTom()
		end
		if FH._i.initDone and FH._i.tomtomDone then
			self:UnregisterEvent("ADDON_LOADED")
		end
	elseif event == "PLAYER_ENTERING_WORLD" then
		--self:UnregisterEvent("PLAYER_ENTERING_WORLD")
		FH.M.RunAfterCombat(FH.M.ZoneChanged)
		if not FH._i.tomtomDone then
			local loading, loaded = C_AddOns.IsAddOnLoaded("TomTom")
			if loading and loaded then
				SetupTomTom()
			end
		end
	elseif event == "PLAYER_LOGOUT" then
		FH.M.ResetDarkSoilHelpers(true)
	elseif event == "ZONE_CHANGED_NEW_AREA" or
		   event == "ZONE_CHANGED" or 
		   event == "ZONE_CHANGED_INDOORS" then
		FH.M.RunAfterCombat(FH.M.ZoneChanged)
	elseif event == "BAG_UPDATE_DELAYED" then
		FH.M.RunAfterCombat(FH.M.Update)
	elseif event == "MERCHANT_SHOW" or event == "MERCHANT_CLOSED" then
		if self:IsShown() then
			FH.M.RunAfterCombat(FH.M.MerchantEvent,{event == "MERCHANT_SHOW"})
		end
	elseif event == "PLAYER_REGEN_ENABLED" then
		self:UnregisterEvent("PLAYER_REGEN_ENABLED")
		FH.M.CombatEnded()
	elseif event == "BAG_UPDATE_COOLDOWN" then
		FH.M.UpdateSeedBagCharges()
	elseif event == "GET_ITEM_INFO_RECEIVED" then
		FH.M.UpdateMiscToolOptionText()
		FH.M.UpdateButtonIcons(FarmhandSeeds)
	elseif event == "LOOT_READY" then
		local autoLoot = ...
		FH.M.LootDarkSoil(autoLoot)
	elseif event == "UNIT_SPELLCAST_SUCCEEDED" then
		local unit, guid, spellid = ...
		if UnitIsUnit("player", unit) then
			FH.M.HandlePlayerCast(spellid)
		end
	end
end)

local seedFrame = CreateFrame("Frame","FarmhandSeeds",Farmhand, BackdropTemplateMixin and "BackdropTemplate")
seedFrame.tex = seedFrame:CreateTexture()
seedFrame.tex:SetAllPoints()
seedFrame.tex:SetColorTexture(1,1,0,0.5)
seedFrame.tex:Hide()
seedFrame:ClearAllPoints()
seedFrame:SetPoint("TOP",Farmhand,"TOP",0,0)
seedFrame:SetScale(1)
seedFrame:Hide()
CreateBarButtons(seedFrame, FH.Seeds, "Seed")
CreateBarButtons(seedFrame, FH.SeedBags, "SeedBag")
seedFrame.ShowItemCount = true

local toolFrame = CreateFrame("Frame","FarmhandTools",Farmhand, BackdropTemplateMixin and "BackdropTemplate")
toolFrame.tex = toolFrame:CreateTexture()
toolFrame.tex:SetAllPoints()
toolFrame.tex:SetColorTexture(1,0,0,0.5)
toolFrame.tex:Hide()
toolFrame:ClearAllPoints()
toolFrame:SetPoint("TOP",seedFrame,"BOTTOM",0,0)
toolFrame:SetScale(1.5)
toolFrame:Hide()
CreateBarButtons(toolFrame, FH.Tools, "FarmTool")
CreateBarButtons(toolFrame, FH.MiscTools, "MiscTool")

local turninFrame = CreateFrame("Frame","FarmhandTurnins",Farmhand, BackdropTemplateMixin and "BackdropTemplate")
turninFrame.tex = turninFrame:CreateTexture()
turninFrame.tex:SetAllPoints()
turninFrame.tex:SetColorTexture(0,1,0,0.5)
turninFrame.tex:Hide()
turninFrame:ClearAllPoints()
turninFrame:SetPoint("TOP",toolFrame,"BOTTOM",0,0)
turninFrame:SetScale(.75)
turninFrame:Hide()
CreateBarButtons(turninFrame, FH.Turnins, "Turnin")
turninFrame.ShowItemCount = true

local portalFrame = CreateFrame("Frame","FarmhandPortals",Farmhand, BackdropTemplateMixin and "BackdropTemplate")
portalFrame.tex = portalFrame:CreateTexture()
portalFrame.tex:SetAllPoints()
portalFrame.tex:SetColorTexture(0,0,1,0.5)
portalFrame.tex:Hide()
portalFrame:ClearAllPoints()
portalFrame:SetPoint("TOP",turninFrame,"BOTTOM",0,0)
portalFrame:SetScale(.75)
portalFrame:Hide()
CreateBarButtons(portalFrame, FH.Portals, "Portal")
portalFrame.ShowItemCount = true

local scanFrame = NewFarmhandButton("FarmhandScanButton",toolFrame)
scanFrame.Icon:SetTexture([[Interface\AddOns\Farmhand\RadarIcon.tga]])
scanFrame.ItemType = "CropScanner"
tinsert(toolFrame.Buttons,scanFrame)

local scanCropsText = ""
do
	for i,crop in ipairs(FH.CropStates) do
		scanCropsText = scanCropsText..(i~=1 and "\n/tar " or "/tar ")..crop.CropName
	end
end
scanFrame:SetAttribute("type","macro")
scanFrame:SetAttribute("macrotext",scanCropsText)
scanFrame:SetScript("PostClick",FarmhandExp.Mark)
scanFrame:SetScript("OnEnter", FH.M.ScanButtonOnEnter)
scanFrame:SetScript("OnLeave", FH.M.ScanButtonOnLeave)

scanFrame:SetScript("OnMouseDown", FH.M.ButtonOnMouseDown)
scanFrame:SetScript("OnMouseUp", FH.M.ButtonOnMouseUp)
scanFrame:SetScript("OnHide", FH.M.ButtonOnHide)

scanFrame.ScannerOutput = {}

if msqGroups["FarmhandTools"] then
	msqGroups["FarmhandTools"]:AddButton(scanFrame)
end

local optionPanel = CreateFrame("Frame","FarmhandOptionsPanel",nil)
optionPanel.name = addonName
if _G.InterfaceOptions_AddCategory then
	InterfaceOptions_AddCategory(optionPanel)
elseif Settings and Settings.RegisterCanvasLayoutCategory then
  local cat = Settings.RegisterCanvasLayoutCategory(optionPanel, optionPanel.name)
  FH.optionsCategory = cat
  Settings.RegisterAddOnCategory(cat)
end
optionPanel.OnRefresh = function()
	FarmhandMinimapHideOption:SetChecked(FarmhandData.minimap.hide)
	FarmhandMessagesOption:SetChecked(FarmhandData.PrintScannerMessages)
	FarmhandSoundsOption:SetChecked(FarmhandData.PlayScannerSounds)
	FarmhandPortalsOption:SetChecked(FarmhandData.ShowPortals)
	FarmhandTurninsOption:SetChecked(FarmhandData.ShowTurnins)
	FarmhandHideInCombatOption:SetChecked(FarmhandData.HideInCombat)
	FarmhandDarkSoilOption:SetChecked(FarmhandData.DarkSoilHelpers)
	FarmhandStockTipOption:SetChecked(FarmhandData.ShowStockTip)
end

local f = CreateFrame("CheckButton","FarmhandMinimapHideOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",50,-50)
f:SetScript("OnClick",function(self) FH.M.SetMinimapHideOption(self:GetChecked()) end)
FarmhandMinimapHideOptionText:SetText(L["Hide Farmhand Minimap button."])

f = CreateFrame("CheckButton","FarmhandMessagesOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT", FarmhandMinimapHideOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.SetMessagesOption(self:GetChecked()) end)
FarmhandMessagesOptionText:SetText(L["Show info messages in the chat window."])

f = CreateFrame("CheckButton","FarmhandSoundsOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandMessagesOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.SetSoundsOption(self:GetChecked()) end)
FarmhandSoundsOptionText:SetText(L["Play notification sounds."])

f = CreateFrame("CheckButton","FarmhandPortalsOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandSoundsOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetPortalsOption,{self:GetChecked()}) end)
FarmhandPortalsOptionText:SetText(L["Show Portal Shard icons below the tools buttons."])

f = CreateFrame("CheckButton","FarmhandTurninsOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandPortalsOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetTurninsOption,{self:GetChecked()}) end)
FarmhandTurninsOptionText:SetText(L["Show Turn-in icons below the tools buttons."])

f = CreateFrame("CheckButton","FarmhandHideInCombatOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandTurninsOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetHideInCombatOption,{self:GetChecked()}) end)
FarmhandHideInCombatOptionText:SetText(L["Hide Farmhand entirely during combat."])

f = CreateFrame("CheckButton","FarmhandDarkSoilOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandHideInCombatOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetDarkSoilOption,{self:GetChecked()}) end)
FarmhandDarkSoilOptionText:SetText(L["Easy Dark Soil (decluter, ping, autoloot)."])

f = CreateFrame("CheckButton","FarmhandStockTipOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandDarkSoilOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetStockTipOption,{self:GetChecked()}) end)
FarmhandStockTipOptionText:SetText(L["Show extra tooltip (merchant, faction npcs, gifts)"])

f = CreateFrame("Frame", "FarmhandStockTipPositionDropdown", FarmhandOptionsPanel, "UIDropDownMenuTemplate")
f:SetPoint("TOPLEFT",FarmhandStockTipOption,"BOTTOMLEFT",10,0)
UIDropDownMenu_SetWidth(f, 300)
UIDropDownMenu_JustifyText(f,"LEFT")
UIDropDownMenu_Initialize(f, FH.M.InitializeStockTipDropdown)
Farmhand.StockTipPositionDropdown = f

local f = CreateFrame("CheckButton","FarmhandSeedIconOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandStockTipOption,"BOTTOMLEFT",0,-45)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetSeedIconOption,{self:GetChecked()}) end)
FarmhandSeedIconOptionText:SetText(L["Show Vegetable Icon on Seed Buttons"])

f = CreateFrame("CheckButton","FarmhandBagIconOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandSeedIconOption,"BOTTOMLEFT",0,0)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetBagIconOption,{self:GetChecked()}) end)
FarmhandBagIconOptionText:SetText(L["Show Vegetable Icon on Seed Bag Buttons"])

f = CreateFrame("CheckButton","FarmhandMiscToolsOption",FarmhandOptionsPanel,"UICheckButtonTemplate")
f:SetPoint("TOPLEFT",FarmhandBagIconOption,"BOTTOMLEFT",0,-15)
f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetMiscToolsOption,{self:GetChecked()}) end)
FarmhandMiscToolsOptionText:SetText(L["Show Optional Miscellaneous Tools"])

local LastTool
for _,v in ipairs(FH.MiscTools) do
	f = CreateFrame("CheckButton","FarmhandMiscToolsOption"..v,FarmhandOptionsPanel,"UICheckButtonTemplate")
	f:SetPoint("TOPLEFT",LastTool or FarmhandMiscToolsOption,"BOTTOMLEFT",LastTool == nil and 20 or 0, 0)
	f:SetScript("OnClick",function(self) FH.M.RunAfterCombat(FH.M.SetMiscToolsOption,{self:GetChecked(), v}) end)
	f:SetScript("OnEnter",function(self)
		GameTooltip:SetOwner(self, "ANCHOR_LEFT")
		GameTooltip:SetHyperlink("item:"..v)
		GameTooltip:Show()
	end)
	LastTool = f
end

function FH.M.UpdateMiscToolOptionText()
	for _,v in ipairs(FH.MiscTools) do
		local Txt = _G["FarmhandMiscToolsOption"..v.."Text"]
		if Txt:GetText() == nil then
			local ToolName, ToolLink, _, _, _, _, _, _, _, ToolIcon = FH.GetItemInfo(v)
			if ToolName ~= nil then
				Txt:SetText(format("|T%s:0|t %s",ToolIcon,ToolLink))
			end
		end
	end
end

local f = CreateFrame("GameTooltip","FarmhandScanningTooltip",nil,"GameTooltipTemplate")
f:SetOwner( WorldFrame, "ANCHOR_NONE" )
FH.ScanningTooltip = f
local addonUpper, addonLower = addonName:upper(), addonName:lower()
_G["SLASH_"..addonUpper.."1"] = "/"..addonLower
_G["SLASH_"..addonUpper.."2"] = "/fh"
local optStatusON, optStatusOFF = " |cff00ff00On|r", " |cffff0000Off|r"
SlashCmdList[addonUpper] = function(msg, editbox)
	if not msg or msg:trim()=="" then
		Settings.OpenToCategory(FH.optionsCategory:GetID())
	else
		msg = msg:lower()
		local db = FarmhandData
		if msg == "chat" or msg == "print" then
			FH.M.SetMessagesOption(not db.PrintScannerMessages)
			FH.M.Print(L["Chat info messages"]..(db.PrintScannerMessages and optStatusON or optStatusOFF))
		end
		if msg == "sound" or msg == "silent" then
			FH.M.SetSoundsOption(not db.PlayScannerSounds)
			FH.M.Print(L["Notification sounds"]..(db.PlayScannerSounds and optStatusON or optStatusOFF))
		end
		if msg == "extratip" or msg == "tooltip" or msg == "tip" then
			FH.M.SetStockTipOption(not db.ShowStockTip)
			FH.M.Print(L["Extra tooltip"]..(db.ShowStockTip and optStatusON or optStatusOFF))
		end
		if msg == "portals" or msg == "portal" then
			FH.M.SetPortalsOption(not db.ShowPortals)
			FH.M.Print(L["Portal shard icons"]..(db.ShowPortals and optStatusON or optStatusOFF))
		end
		if msg == "turnins" or msg == "turnin" or msg == "turn" then
			FH.M.SetTurninsOption(not db.ShowTurnins)
			FH.M.Print(L["Turn-in icons"]..(db.ShowTurnins and optStatusON or optStatusOFF))
		end
		if msg == "combat" or msg == "hide" then
			FH.M.SetHideInCombatOption(not db.HideInCombat)
			FH.M.Print(L["Auto-hide in combat"]..(db.HideInCombat and optStatusON or optStatusOFF))
		end
		if msg == "darksoil" or msg == "soil" then
			FH.M.SetDarkSoilOption(not db.DarkSoilHelpers)
			FH.M.Print(L["Dark Soil helpers"]..(db.DarkSoilHelpers and optStatusON or optStatusOFF))
		end
		if msg == "way" or msg == "point" or msg == "clear" then
			if FH.M.RemoveAllWaypoints then
				FH.M.RemoveAllWaypoints()
			end
		end
		if (msg:find("?") or msg:find("help")) then
			FH.M.Print(L["Commands"])
			print("  /fh clear : removes all waypoints")
			print("  /fh chat||sound||tip||portal||turn||combat||soil")
			print("       toggles the respective option")
		end
	end
end