mail.lua

local scriptName = 'felwood_54'
local recipient = 'Leblanc'
if ObjectName("player") == "CURRENT_PLAYER_NAME" then
	recipient = "ACCOUNT_TO_SEND_TO"
end

print('Mailing...')
--Keep
local PetFood = { "Haunch of Meat", "Big Bear Meat", "Turtle Meat", "Mutton Chop", "Wild Hog Shank", "Red Wolf Meat" }
local Drinks = { "Conjured Sparkling Water", "Sweet Nectar", "Ice Cold Milk", "Melon Juice"  }
local Food = { "Conjured Sourdough", "Wild Hog Shank", "Mutton Chop", "Cured Ham Steak"   }
local toKeep = { "Hearthstone", "Brown Horse Bridle", "Skinning Knife", "Strong Fishing Pole", "Fishing Pole", "Rune of Teleportation", "Rune of Portals" }

--Mail
--local bMailEverything = true; --Ignore to mail and just sends all whites+
--local toMail = { "Recipe: Magic Resistance Potion", "Wicked Claw", "Buzzard Wing", "Jet Black Feather", "Mystery Meat", "Vibrant Plume", "Dark Whelpling", "Giant Egg", "Tender Wolf Meat", "Rugged Leather", "Blasted Boar Lung", "Scorpok Pincer", "Snickerfang Jowl", "Basilisk Brain", "Vulture Gizzard", "Red Wolf Meat", "Glowing Scorpid Blood", "Spider's Silk", "Black Drake's Heart", "Worn Dragonscale", "Elemental Earth", "Small Flame Sac", "Mageweave Cloth", "Runecloth", "Silk Cloth", "Wool Cloth", "Light Hide", "Heavy Hide", "Thick Leather" }

local waypoints = {
  
}

local waypointsCount = table.getn(waypoints)

local pulseDelay = 0.2
local startDelay = 1
local bPrint = false

local frame = CreateFrame("Frame")
local bRun = true
local canPulseAt = (GetTime() + startDelay) + pulseDelay

local pathIdx = 1
local losFlags =  bit.bor(0x10, 0x100)
local proximalTolerance = 4

local bSkipFarPoints = false
local bReLoop = false

local rndMax = 1 --lets be precise for this short path

local function IsAtMailbox()
	local objCount = GetObjectCount()
	for i = 1, objCount do
		local obj = GetObjectWithIndex(i)
		local name = ObjectName(obj)
		if name == "Mailbox" then
			local dist = GetDistanceBetweenObjects("player", obj)
			if dist < 5 then
				return true
			end
		end
	end
	
	return false
end

local function OpenMailBox()
	local objCount = GetObjectCount()
	for i = 1, objCount do
		local obj = GetObjectWithIndex(i)
		local name = ObjectName(obj)
		if name == "Mailbox" then
			ObjectInteract(obj)
		end
	end
end

local function Sleepy(secs)
	local timeNow = GetTime()
	
	if canPulseAt > timeNow then --since this func may be used several times in 1 cycle
		local overheadWait = canPulseAt-timeNow;
		canPulseAt = timeNow + overheadWait + secs
	else
		canPulseAt = overheadWait + secs
	end
end

local function ArrContains(arr, search)
	local count = table.getn(arr)
	for i = 1, count, 1 do
		if arr[i] == search then
			return true
		end
	end
	return false
end

local function DbgPrint(str)
	if bPrint == true then
		print(str)
		WriteFile('_Kkona/Debug.txt', str..'\n', true)
	end
end

local class, englishClass = UnitClass("player");
local isHunter = class == "Hunter"
local isMage = class == "Mage"
local isRogue = class == "Rogue"

-- local  function IsItemInBagSoulbound(bagId,slotId)
-- local iLoc, iLink, isBound, sBound, iframe text, i
-- iLoc=ItemLocation:CreateFromBagAndSlot(bagId, slotId)
-- if C_Item.DoesItemExist(iLoc) then
	-- iLink  =C_Item.GetItemLink(iLoc)
	-- isBound=C_Item.IsBound(iLoc)
	-- if (isBound==false) then return false end
		-- sBound=_G["ITEM_SOULBOUND"]
		-- iframe=_G["ContainerFrame"..tostring(bagId+1).."Item"..tostring(slotId)]
		-- GameTooltip:SetOwner(iframe,ANCHOR_NONE)
		-- GameTooltip:SetBagItem(bagId,slotId)
		-- for i=1,GameTooltip:NumLines() do
			-- text=_G["GameTooltipTextLeft"..tostring(i)]:GetText()
			-- if (text==sBound) then
				-- GameTooltip:Hide()
				-- return true
			-- end
		-- end
		-- GameTooltip:Hide()
		-- return false
	-- else
		-- return nil
	-- end
-- end

-- local function tooltip(bagId,slotId) --Model after working IsSoulbound :)
	-- local iLoc, iLink, isBound, sBound, iframe, text, i
	-- iLoc=ItemLocation:CreateFromBagAndSlot(bagId, slotId)
	-- if C_Item.DoesItemExist(iLoc) then
		-- iLink =C_Item.GetItemLink(iLoc)
		-- isBound = C_Item.IsBound(iLoc)

		-- iframe=_G["ContainerFrame"..tostring(bagId+1).."Item"..tostring(slotId)]
		-- GameTooltip:SetOwner(iframe,ANCHOR_NONE)
		-- GameTooltip:SetBagItem(bagId,slotId)
		
		-- local ttip = ""
		-- for i=1,GameTooltip:NumLines() do
			-- text=_G["GameTooltipTextLeft"..tostring(i)]:GetText()
			-- ttip = ttip.." "..text
		-- end
		-- GameTooltip:Hide()
		
		-- return ttip
	-- end
	
	-- return ""
-- end

local name = 'alla'
local cTip = CreateFrame("GameTooltip",name.."Tooltip",nil,"GameTooltipTemplate")
local function IsSoulbound(bag, slot)
    cTip:SetOwner(UIParent, "ANCHOR_NONE")
    cTip:SetBagItem(bag, slot)
    cTip:Show()
    for i = 1,cTip:NumLines() do
        if(_G[name.."TooltipTextLeft"..i]:GetText()==ITEM_SOULBOUND) then
            return true
        end
    end
    cTip:Hide()
    return false
end

--To see UI elements use /framestack 
local function PulseSend()
	RunMacroText('/click MailFrameTab2')
	RunMacroText('/run SendMailSubjectEditBox:SetText("Sell")')
	RunMacroText('/run SendMailNameEditBox:SetText("'..recipient..'")')
	
	for b=0,4 do
		for s=0,36 do
			l=GetContainerItemLink(b,s) 
			if l then
				local sName, sLink, iRarity, iLevel, iMinLevel, sType, sSubType, iStackCount = GetItemInfo(l)
				if IsSoulbound(b,s) == false and ArrContains(toKeep, sName) == false then
					if isHunter and (sType=="Projectile" or ArrContains(PetFood, sName)) then
						--DbgPrint('Keeping [Hunter Stuff]: '..sName)
					elseif isRogue and sName:find("Throwing")~=nil then
						--DbgPrint('Keeping [Rogue Thrown]: '..sName)
					elseif sSubType == "Bag" or (isHunter and (sSubType == "Quiver" or sSubType == "Ammo Pouch")) then
						--Bug where last Bag is perceived as item in other bags for selling :/
					elseif sName:find("Recipe:")== nil and (sName:find("Potion")~= nil or sName:find("Bandage")~= nil) then
						--DbgPrint('Keeping [Potion/Bandage]: '..sName)
					elseif ArrContains(Food, sName) or ArrContains(Drinks, sName) then
						--DbgPrint('Keeping [Food/Drink]: '..sName)
					else
						if iRarity >=1 then
							DbgPrint('Sending: '..l)
							UseContainerItem(b,s,false)
						end
					end
				else
					--DbgPrint('Keeping [Soulbound/ToKeep]: '..sName)
				end
				
				

			end
		end
	end
	
	local Name, Texture, Count, Quality = GetSendMailItem(1)
	if Name == nil or Name == "" then --if there is not attached mail
		bRun=false
		DbgPrint('Finished Sending Mail')
		RunMacroText('/run SendMailCancelButton:Click()')
	end
	
	--frame:SetScript("OnUpdate", nil)
	RunMacroText('/run SendMailMailButton:Click()')
	Sleepy(2)
end


local function ShouldExit()
	--Needs to be called within OnUpdate itself
	if bAtEnd then
		bRun=false
	end
	
	if bRun == false then
		local exitMacro = '.loadfile _Kkona\\'..scriptName..'\\main.lua'
		DbgPrint("Starting main.lua from mail.lua")
		RunMacroText(exitMacro)
		frame:SetScript("OnUpdate", nil)
	end
end


local function CalculateDistance(x1,y1,z1,x2,y2,z2)
	return math.sqrt(((x1 - x2) ^ 2) + ((y1 - y2)  ^ 2) + ((z1 - z2) ^ 2))
end


local function SetIDXToClosest()
	local px, py, pz = ObjectPosition("player")
	local moveToIdx = 1
	local moveToDist = 9999999
	local foundSomething = false
	
	for i = 1, waypointsCount, 1 do
		local xyz = waypoints[i]
		if xyz ~= nil then
			local dist = CalculateDistance(px,py,pz,xyz[1],xyz[2],xyz[3])
		
			if dist <= moveToDist then					
				if TraceLine(px, py, pz+2.5, xyz[1], xyz[2], xyz[3]+2.5,losFlags) == nil then
					foundSomething=true
					moveToIdx = i
					moveToDist = dist
				end
			end
		end
	end
	
	if moveToDist > 100 then
		DbgPrint("Closest Mailbox path is "..math.ceil(moveToDist).." yard away ==> TERMINATING")
		bAtEnd = true
		ShouldExit()
	end

	if foundSomething then
		pathIdx=moveToIdx
		DbgPrint("Starting at mail path at idx "..pathIdx)
	end
end

local firstTick=true

local function StrictPathFollow()
	if firstTick == true then
		firstTick = false
		SetIDXToClosest()
	end
	
	local px, py, pz = ObjectPosition("player")
	local xyz = waypoints[pathIdx] --return is imp to always assign next xyz correctly
	
	if xyz ~= nil then
		--Add Class Specific
		--!Move this to last (after movement!!!)
		if xyz[4] ~= nil then
			--Define 4th Param Stuff
		end
	
		local dist = CalculateDistance(px,py,pz,xyz[1],xyz[2],xyz[3])
		--print(' = DIST: '..dist)
		if dist <= proximalTolerance then
			if pathIdx < waypointsCount then
				pathIdx = pathIdx + 1
				DbgPrint('Moving to MAIL idx {'..pathIdx..'/'..waypointsCount..'}')
				return
			else
				bAtEnd = true
			end
		end
	end	
		
	--Check if Stuck
	if pathIdx == lastIdx then
		lastIdxCount = lastIdxCount + 1
		stuckTime = stuckTime + pulseDelay
	else
		stuckTime  = 0
		lastIdxCount = 0
	end

	--Skip if stuck (forced) but never skip last post so as to trigger the appropriate fail safes
	--using counter in the form of lastIdxCount is mehhh coz doesnt give indication of time stuck (we vary pulseDelay all the time)
	if lastIdxCount > 35 and (pathIdx < waypointsCount-2) then
		local stuckStr  = 'Appears to be STUCK: at idx='..pathIdx
		print(stuckStr)
		WriteFile('_Kkona/Stuck.txt', stuckStr..'\n', true)
		--local prevIdx = pathIdx
		--pathIdx = 1
		--FindNextBestPoint()
		SendKey(' ')
		pathIdx = pathIdx + 1
		bAtEnd = pathIdx > waypointsCount
		if bAtEnd then
		end
		return
	end
		
	if pathIdx < 1 then
		pathIdx = 1
	elseif pathIdx > waypointsCount then
		pathIdx = waypointsCount
		bAtEnd=true
	end

		
	--Move
	local rnd = (math.random(-rndMax,rndMax)/100)
	local moveToXYZ = waypoints[pathIdx]
	if moveToXYZ ~= nil then
		dX=moveToXYZ[1]+rnd
		dY=moveToXYZ[2]+rnd
		dZ=moveToXYZ[3]+rnd
	end

	local distToNext = CalculateDistance(px,py,pz,moveToXYZ[1],moveToXYZ[2],moveToXYZ[3])
	if bSkipFarPoints == false or (bSkipFarPoints and distToNext < 50) then
		if bIgnoreLOS == true or TraceLine(px, py, pz+2.5, moveToXYZ[1], moveToXYZ[2], moveToXYZ[3]+2.5, losFlags) == nil then
			MoveTo(moveToXYZ[1]+rnd, moveToXYZ[2]+rnd, moveToXYZ[3]+rnd)
		end	
	else
		if bSkipFarPoints then
			DbgPrint('*Skipping* to MAIL idx {'..pathIdx..'/'..waypointsCount..'}')
			pathIdx = pathIdx + 1
			bAtEnd = pathIdx > waypointsCount
			return
		else
			DbgPrint('*Waiting* for player to be close to path...')
		end
	end
	
	lastIdx = pathIdx
end

local mailboxOpened = false
local function Pulse()
	if IsAtMailbox() and mailboxOpened == false then
		OpenMailBox()
		mailboxOpened = true
		Sleepy(3)
		return
	elseif mailboxOpened == true then
		PulseSend()
	else
		StrictPathFollow()
	end
end

local function CanPulse()
	local timeNow = GetTime()
	if timeNow >= canPulseAt then
		canPulseAt = timeNow + pulseDelay
		return true
	else
		return false
	end
end

local function Sleepy(secs)
	local timeNow = GetTime()
	
	if canPulseAt > timeNow then --since this func may be used several times in 1 cycle
		local overheadWait = canPulseAt-timeNow;
		canPulseAt = timeNow + overheadWait + secs
	else
		canPulseAt = overheadWait + secs
	end
end

DbgPrint('Mailing items to '..recipient)

frame:SetScript(
  "OnUpdate",
  function(self, elapsed)
	if CanPulse() == true then	
		LibDraw.clearCanvas()
		Pulse()
		ShouldExit()
	end
end)