1
0
Bifurcation 0
Ce dépôt a été archivé le 2020-03-15. Vous pouvez voir ses fichiers ou le cloner, mais pas ouvrir de ticket ou de demandes d'ajout, ni soumettre de changements.
questhelperredux/QuestHelper/collect_traveled.lua
Nathanial.C.Jones 965e8589c9 Everything SEEMS to work, less of course the db. Something I did before screwed everything up.
I implemented a QuestHelper_GetTime function for the next time Blizzard decides to fiddle with the time functions. It returns debugprofilestop() / 1000, to exactly match the precision of GetTime().

I also re-removed references to Cartographer from the rollback.
2012-01-01 03:01:18 +00:00

221 lignes
6,2 Kio
Lua

local GetTime = QuestHelper_GetTime
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 = GetTime()
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, GetTime() - 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 = GetTime()
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
]]