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/manager_event.lua

167 lignes
5,1 Kio
Lua
Brut Vue normale Historique

2010-10-24 23:17:33 +02:00
QuestHelper_File["manager_event.lua"] = "1.4.0"
QuestHelper_Loadtime["manager_event.lua"] = GetTime()
-- zorba why does this file exist, are you a terrible person? you are a terrible person aren't you
-- yep, I'm a terrible person
-- File exists to centralize all the event hooks in one place. QH should never (rarely) eat CPU without going through this file. As a nice side effect, I can use this to measure when QH is using CPU. yaaaaay
local next_started = false
local time_used = 0
local EventRegistrar = {}
local OnUpdate_Keyed = {}
local qh_event_frame = CreateFrame("Frame")
function QH_Hook_NotMyFault(func, ...)
return func(...)
end
local function wraptime(ident, func, ...)
if QuestHelper then QuestHelper: Assert(ident) end
local st, qhh_nmf
local qhh_adj = 0
if qh_loud_and_annoying then
qhh_nmf = QH_Hook_NotMyFault
QH_Hook_NotMyFault = function(func, ...)
local zst = GetTime()
--print("a", GetTime())
return (function(...)
--print("c", GetTime(), GetTime() - zst, qhh_adj)
qhh_adj = qhh_adj + (GetTime() - zst)
--print(qhh_adj)
return ...
end)(func(...))
end
st = GetTime()
end
func(...)
if qh_loud_and_annoying then
if GetTime() - st - qhh_adj > 0.0025 then
QuestHelper: TextOut(string.format("Took way too long, %4f, at %s (adjusted by %4f)", (GetTime() - st - qhh_adj) * 1000, ident, qhh_adj * 1000))
end
QH_Hook_NotMyFault = qhh_nmf
end
end
local function OnEvent(_, event, ...)
if not next_started then next_started, time_used = true, 0 end
if not qh_hackery_eventless and EventRegistrar[event] then
local tstart = GetTime()
for _, v in pairs(EventRegistrar[event]) do
wraptime(v.id, v.func, ...)
end
time_used = time_used + (GetTime() - tstart)
end
end
qh_event_frame:UnregisterAllEvents()
qh_event_frame:RegisterAllEvents() -- I wonder what the performance penalty of this actually is
qh_event_frame:SetScript("OnEvent", OnEvent)
function QH_Event(event, func, identifier)
QuestHelper: Assert(func)
if type(event) == "table" then
for _, v in ipairs(event) do
QH_Event(v, func, identifier)
end
else
if not identifier then identifier = "(unknown event " .. event .. ")" end
if not EventRegistrar[event] then
--qh_event_frame:RegisterEvent(event)
EventRegistrar[event] = {}
end
table.insert(EventRegistrar[event], {func = func, id = identifier})
end
end
local tls = GetTime()
-- I'm just putting this here so I can stop rewriting it
--[[
Try "/script qh_hackery_no_work = true". See if that fixes things.
Whether it does or not, log out, log back in, then do "/qh hackery_event_timing = true". Wait a few seconds, then take a screenshot. Post that here.
]]
local last_frame = GetTime()
local time_per_frame = 0.01 -- Assume 100fps so we don't fuck with people's framerate
local OnUpdate = {}
local OnUpdateHigh = {}
local function OnUpdateTrigger(_, ...)
if not QuestHelper then return end
if not next_started then next_started, time_used = true, 0 end
do
local tstart = GetTime()
for _, v in pairs(OnUpdateHigh) do
wraptime(v.id, v.func, ...)
end
for _, v in pairs(OnUpdate) do
if v.func then wraptime(v.id, v.func, ...) end
end
time_used = time_used + (GetTime() - tstart)
end
local tframe = GetTime()
local tplf = tframe - last_frame
tplf = math.min(time_per_frame + 0.1, tplf)
local tplf_weight = tplf * 20
time_per_frame = (time_per_frame * (1 / (tplf_weight + 0.0005)) + tplf) / (1 + 1 / (tplf_weight + 0.0005))
QuestHelper: Assert(time_per_frame > 0 and time_per_frame < 10000) -- hmmm
local verbose = false
if qh_hackery_event_timing and tls < GetTime() - 1 then
tls = GetTime()
print(string.format("Avg TPF %f, current TPLF %f, time_used %f, this adjustment %f, bonus time %f", time_per_frame, tplf, time_used, time_per_frame - tplf - time_used, math.min(time_per_frame - tplf, (time_per_frame - tplf) * 0.8, 0.05)))
verbose = true
end
if not qh_hackery_no_work then
QH_Timeslice_Work(time_used, time_per_frame, math.min(time_per_frame - tplf, (time_per_frame - tplf) * 0.8, 0.05), verbose)
end
last_frame = GetTime()
next_started = false
end
function QH_OnUpdate(func, identifier)
if not identifier then identifier = "(unknown onupdate)" end
table.insert(OnUpdate, {func = func, id = identifier})
end
function QH_OnUpdate_High(func, identifier)
if not identifier then identifier = "(unknown high-onupdate)" end
table.insert(OnUpdateHigh, {func = func, id = identifier})
end
qh_event_frame:SetScript("OnUpdate", OnUpdateTrigger)
function QH_Hook(target, hookname, func, identifier)
if not identifier then identifier = string.format("(unknown hook %s/%s)", hookname, tostring(target)) end
if hookname == "OnUpdate" then
if not func then
OnUpdate[target] = nil
else
OnUpdate[target] = {func = function (...) func(target, ...) end, id = identifier}
end
else
if not func then
target:SetScript(hookname, nil)
else
target:SetScript(hookname, function (...) wraptime(identifier, func, ...) end)
end
end
end