219 lignes
6,2 Kio
Lua
219 lignes
6,2 Kio
Lua
local GetTime = debugprofilestop
|
|
QuestHelper_File["collect_traveled.lua"] = "4.0.1.$svnversion$"
|
|
QuestHelper_Loadtime["collect_traveled.lua"] = GetTime()
|
|
|
|
local debug_output = false
|
|
if QuestHelper_File["collect_traveled.lua"] == "Development Version" then debug_output = true end
|
|
|
|
--[[
|
|
|
|
Meaningful symbols it generates:
|
|
|
|
%d,%d,%d,%d|COMPRESSED
|
|
|
|
First four values: continent ID as per client, X coordinate in yards as per client via Astrolabe, Y coordinate in yards as per client via Astrolabe, faction ID (Alliance/Horde)
|
|
Compressed data is complicated lzw'ed hideousness.
|
|
Version number is probably contained in the |, I'll change that when I need to change meaning.
|
|
User is assumed to start facing right, all turns are 90 degrees.
|
|
|
|
Allowed values, post-lookup-table listed below, are:
|
|
|
|
^ - forward
|
|
< - turn left and move forward
|
|
> - turn right and move forward
|
|
v - turn around and move forward
|
|
C - combo indicator, each one indicates that another next UDLR is part of a single move (the toggles are zero-time anyway)
|
|
S - swim toggle
|
|
X - taxi toggle
|
|
M - mount toggle
|
|
Y - flying mount toggle
|
|
D - dead/ghost toggle
|
|
|
|
]]
|
|
|
|
local QHCT
|
|
local Merger
|
|
local LZW
|
|
local Bolus
|
|
|
|
local cc, cx, cy, cd = nil, nil, nil, nil
|
|
local flags = {}
|
|
|
|
local nx, ny = nil, nil
|
|
|
|
local function round(x) return math.floor(x + 0.5) end
|
|
local function dist(x, y) return math.abs(x) + math.abs(y) end -- fuck it, manhattan distance
|
|
|
|
-- ++ is turning right
|
|
local dx = {1, 0, -1, 0}
|
|
local dy = {0, 1, 0, -1}
|
|
|
|
local function InitWorking()
|
|
QHCT.working = {}
|
|
QHCT.working.prefix = {}
|
|
end
|
|
|
|
local function AddDataPrefix(data)
|
|
table.insert(QHCT.working.prefix, data)
|
|
--QHCT.working.prefix = QHCT.working.prefix .. data
|
|
end
|
|
|
|
local function AddData(data)
|
|
table.insert(QHCT.working, data)
|
|
--Merger.Add(QHCT.working, data)
|
|
end
|
|
|
|
local function FinishData()
|
|
return Merger.Finish(QHCT.working)
|
|
end
|
|
|
|
local function TestDirection(nd, kar)
|
|
if nd < 1 then nd = nd + 4 end
|
|
if nd > 4 then nd = nd - 4 end
|
|
|
|
if dist(cx + dx[nd] - nx , cy + dy[nd] - ny) < dist(cx - nx, cy - ny) then
|
|
AddData(kar)
|
|
cd = nd
|
|
cx = cx + dx[cd]
|
|
cy = cy + dy[cd]
|
|
return true
|
|
else
|
|
return false
|
|
end
|
|
end
|
|
|
|
local function CompressAndComplete(ki)
|
|
--QuestHelper:TextOut(string.format("%d tokens", #QHCT.compressing[ki].data))
|
|
local tim = time()
|
|
local lzwed = LZW.Compress_Dicts(QHCT.compressing[ki].data, "^<>vCSXMYD")
|
|
if debug_output then
|
|
QuestHelper:TextOut(string.format("%d tokens: compressed to %d in %f", #QHCT.compressing[ki].data, #lzwed, time() - tim))
|
|
end
|
|
|
|
if not QHCT.done then QHCT.done = {} end
|
|
table.insert(QHCT.done, QHCT.compressing[ki].prefix .. lzwed)
|
|
QHCT.compressing[ki] = nil
|
|
end
|
|
|
|
local function CompressFromKey(ki)
|
|
QH_Timeslice_Add(function () CompressAndComplete(ki) end, "lzw")
|
|
end
|
|
|
|
local function CompileData()
|
|
local data = FinishData()
|
|
local prefix = QHCT.working.prefix
|
|
|
|
InitWorking()
|
|
|
|
if #data > 0 then
|
|
if not QHCT.compressing then QHCT.compressing = {} end
|
|
local ki = time()
|
|
while QHCT.compressing[ki] do ki = ki + 1 end -- if this ever triggers, I'm shocked
|
|
|
|
QHCT.compressing[ki] = {data = data, prefix = prefix}
|
|
|
|
CompressFromKey(ki)
|
|
end
|
|
end
|
|
|
|
local function AppendFlag(flagval, flagid)
|
|
flagval = not not flagval
|
|
flags[flagid] = not not flags[flagid]
|
|
if flagval ~= flags[flagid] then
|
|
if debug_output then
|
|
--QuestHelper:TextOut(string.format("Status toggle %s", flagid))
|
|
end
|
|
flags[flagid] = flagval
|
|
AddData(flagid)
|
|
end
|
|
end
|
|
|
|
local function QH_Collect_Traveled_Point(c, x, y, rc, rz)
|
|
if not c or not x or not y then return end
|
|
|
|
nx, ny = round(x), round(y)
|
|
if c ~= cc or dist(nx - cx, ny - cy) > 10 then
|
|
if debug_output then
|
|
QuestHelper:TextOut(string.format("finishing thanks to differences, %s,%s,%s vs %s,%s,%s (%s)", tostring(cc), tostring(cx), tostring(cy), tostring(c), tostring(nx), tostring(ny), cc and tostring(dist(nx - cx, ny - cy)) or "lol"))
|
|
end
|
|
CompileData()
|
|
|
|
cc, cx, cy, cd = c, nx, ny, 1
|
|
swim, mount, flying, taxi = false, false, false, false
|
|
local b = Bolus(c, x, y, rc, rz)
|
|
b.faction = QuestHelper:PlayerFaction()
|
|
AddDataPrefix(Bolus(c, x, y, rc, rz) .. strchar(tostring(QuestHelper:PlayerFaction()))) -- The playerfaction can be removed, as it's now encoded in the collection shard. Not removing it for compatibility reasons.
|
|
end
|
|
|
|
AppendFlag(IsMounted(), 'M')
|
|
AppendFlag(IsFlying(), 'Y')
|
|
AppendFlag(IsSwimming(), 'S')
|
|
AppendFlag(UnitOnTaxi("player"), 'X')
|
|
AppendFlag(UnitIsDeadOrGhost("player"), 'D')
|
|
|
|
for x = 1, dist(nx - cx, ny - cy) - 1 do
|
|
AddData('C')
|
|
end
|
|
|
|
-- first we go forward as much as is reasonable
|
|
while TestDirection(cd, '^') do end
|
|
|
|
if TestDirection(cd + 1, '>') then -- if we can go right, we do so, then we go forward again
|
|
while TestDirection(cd, '^') do end
|
|
-- In theory, if the original spot was back-and-to-the-right of us, we could need to go right *again* and then forward *again*. So we do.
|
|
if TestDirection(cd + 1, '>') then
|
|
while TestDirection(cd, '^') do end
|
|
end
|
|
elseif TestDirection(cd - 1, '<') then -- the same logic applies for left.
|
|
while TestDirection(cd, '^') do end
|
|
if TestDirection(cd - 1, '<') then
|
|
while TestDirection(cd, '^') do end
|
|
end
|
|
else
|
|
-- And we also test back, just in case.
|
|
if TestDirection(cd + 2, 'v') then
|
|
while TestDirection(cd, '^') do end
|
|
end
|
|
end
|
|
|
|
QuestHelper: Assert(cx == nx and cy == ny)
|
|
-- Done!
|
|
end
|
|
|
|
local GetRawLocation
|
|
|
|
local function OnUpdate()
|
|
QH_Collect_Traveled_Point(GetRawLocation())
|
|
end
|
|
|
|
function QH_Collect_Traveled_Init(QHCData, API)
|
|
-- We're actually just going to disable this for now.
|
|
--[[
|
|
Merger = API.Utility_Merger
|
|
QuestHelper: Assert(Merger) -- I need to get rid of this stupid space hack someday
|
|
|
|
LZW = API.Utility_LZW
|
|
QuestHelper: Assert(LZW)
|
|
|
|
Bolus = API.Callback_LocationBolus
|
|
QuestHelper: Assert(Bolus)
|
|
|
|
if not QHCData.traveled then QHCData.traveled = {} end
|
|
QHCT = QHCData.traveled
|
|
|
|
if not QHCT.working then InitWorking() end
|
|
|
|
if QHCT.compressing then for k, v in pairs(QHCT.compressing) do
|
|
CompressFromKey(k)
|
|
end end
|
|
|
|
GetRawLocation = API.Callback_RawLocation
|
|
API.Registrar_OnUpdateHook(OnUpdate)]]
|
|
end
|
|
|
|
--[[
|
|
function hackeryflush()
|
|
CompileData()
|
|
cc = nil
|
|
end
|
|
]]
|