Mercurial > wow > askmrrobot

annotate CombatLog.lua @ 101:ec6f0938932f v46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed tag v46
author yellowfive
date Tue, 25 Oct 2016 10:00:40 -0700
parents 177391341e26
children f1da233629be
rev   line source
yellowfive@57 1 local Amr = LibStub("AceAddon-3.0"):GetAddon("AskMrRobot")
yellowfive@57 2 local L = LibStub("AceLocale-3.0"):GetLocale("AskMrRobot", true)
yellowfive@57 3 local AceGUI = LibStub("AceGUI-3.0")
yellowfive@57 4
yellowfive@57 5 local _btnToggle = nil
yellowfive@57 6 local _panelUndoWipe = nil
yellowfive@57 7 local _chkAutoAll = nil
yellowfive@57 8 local _autoChecks = nil
yellowfive@57 9
yellowfive@57 10 local function createDifficultyCheckBox(instanceId, difficultyId)
yellowfive@57 11 local chk = AceGUI:Create("AmrUiCheckBox")
yellowfive@57 12 chk:SetText(L.DifficultyNames[difficultyId])
yellowfive@57 13 chk:SetCallback("OnClick", function(widget)
yellowfive@57 14 Amr:ToggleAutoLog(instanceId, difficultyId)
yellowfive@57 15 end)
yellowfive@57 16
yellowfive@57 17 _autoChecks[instanceId][difficultyId] = chk
yellowfive@57 18 return chk
yellowfive@57 19 end
yellowfive@57 20
yellowfive@57 21 -- render a group of controls for auto-logging of a raid zone
yellowfive@57 22 local function renderAutoLogSection(instanceId, container)
yellowfive@57 23 _autoChecks[instanceId] = {}
yellowfive@57 24
yellowfive@57 25 local lbl = AceGUI:Create("AmrUiLabel")
yellowfive@57 26 lbl:SetWidth(200)
yellowfive@57 27 lbl:SetText(L.InstanceNames[instanceId])
yellowfive@57 28 lbl:SetFont(Amr.CreateFont("Regular", 20, Amr.Colors.White))
yellowfive@57 29 container:AddChild(lbl)
yellowfive@57 30
yellowfive@57 31 local line = AceGUI:Create("AmrUiPanel")
yellowfive@57 32 line:SetHeight(1)
yellowfive@57 33 line:SetBackgroundColor(Amr.Colors.White)
yellowfive@57 34 line:SetPoint("TOPLEFT", lbl.frame, "BOTTOMLEFT", 1, -7)
yellowfive@57 35 line:SetPoint("TOPRIGHT", lbl.frame, "BOTTOMRIGHT", 0, -7)
yellowfive@57 36 container:AddChild(line)
yellowfive@57 37
yellowfive@57 38 local chkMythic = createDifficultyCheckBox(instanceId, Amr.Difficulties.Mythic)
yellowfive@57 39 chkMythic:SetPoint("TOPLEFT", line.frame, "BOTTOMLEFT", 0, -8)
yellowfive@57 40 container:AddChild(chkMythic)
yellowfive@57 41
yellowfive@57 42 local chkNormal = createDifficultyCheckBox(instanceId, Amr.Difficulties.Normal)
yellowfive@57 43 chkNormal:SetPoint("TOPLEFT", line.frame, "BOTTOMLEFT", 0, -30)
yellowfive@57 44 container:AddChild(chkNormal)
yellowfive@57 45
yellowfive@57 46 -- find the widest of mythic/normal
yellowfive@57 47 local w = math.max(chkMythic:GetWidth(), chkNormal:GetWidth())
yellowfive@57 48
yellowfive@57 49 local chkHeroic = createDifficultyCheckBox(instanceId, Amr.Difficulties.Heroic)
yellowfive@57 50 chkHeroic:SetPoint("TOPLEFT", line.frame, "BOTTOMLEFT", w + 20, -8)
yellowfive@57 51 container:AddChild(chkHeroic)
yellowfive@57 52
yellowfive@57 53 local chkLfr = createDifficultyCheckBox(instanceId, Amr.Difficulties.Lfr)
yellowfive@57 54 chkLfr:SetPoint("TOPLEFT", line.frame, "BOTTOMLEFT", w + 20, -30)
yellowfive@57 55 container:AddChild(chkLfr)
yellowfive@57 56
yellowfive@61 57 return lbl, chkNormal
yellowfive@57 58 end
yellowfive@57 59
yellowfive@57 60 -- renders the main UI for the Combat Log tab
yellowfive@57 61 function Amr:RenderTabLog(container)
yellowfive@57 62
yellowfive@57 63 -- main commands
yellowfive@57 64 _btnToggle = AceGUI:Create("AmrUiButton")
yellowfive@57 65 _btnToggle:SetText(L.LogButtonStartText)
yellowfive@57 66 _btnToggle:SetBackgroundColor(Amr.Colors.Green)
yellowfive@57 67 _btnToggle:SetFont(Amr.CreateFont("Bold", 16, Amr.Colors.White))
yellowfive@57 68 _btnToggle:SetWidth(200)
yellowfive@57 69 _btnToggle:SetHeight(26)
yellowfive@57 70 _btnToggle:SetPoint("TOPLEFT", container.content, "TOPLEFT", 0, -40)
yellowfive@57 71 _btnToggle:SetCallback("OnClick", function() Amr:ToggleLogging() end)
yellowfive@57 72 container:AddChild(_btnToggle)
yellowfive@57 73
yellowfive@57 74 _lblLogging = AceGUI:Create("AmrUiLabel")
yellowfive@57 75 _lblLogging:SetText(L.LogNote)
yellowfive@57 76 _lblLogging:SetWidth(200)
yellowfive@57 77 _lblLogging:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.BrightGreen))
yellowfive@57 78 _lblLogging:SetJustifyH("MIDDLE")
yellowfive@57 79 _lblLogging:SetPoint("TOP", _btnToggle.frame, "BOTTOM", 0, -5)
yellowfive@57 80 container:AddChild(_lblLogging)
yellowfive@57 81
yellowfive@57 82 local btnReload = AceGUI:Create("AmrUiButton")
yellowfive@57 83 btnReload:SetText(L.LogButtonReloadText)
yellowfive@57 84 btnReload:SetBackgroundColor(Amr.Colors.Blue)
yellowfive@57 85 btnReload:SetFont(Amr.CreateFont("Bold", 16, Amr.Colors.White))
yellowfive@57 86 btnReload:SetWidth(200)
yellowfive@57 87 btnReload:SetHeight(26)
yellowfive@57 88 btnReload:SetPoint("TOPLEFT", _btnToggle.frame, "TOPRIGHT", 40, 0)
yellowfive@57 89 btnReload:SetCallback("OnClick", ReloadUI)
yellowfive@57 90 container:AddChild(btnReload)
yellowfive@57 91
yellowfive@91 92 --[[
yellowfive@57 93 local lbl = AceGUI:Create("AmrUiLabel")
yellowfive@57 94 lbl:SetText(L.LogReloadNote)
yellowfive@57 95 lbl:SetWidth(200)
yellowfive@57 96 lbl:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.TextTan))
yellowfive@57 97 lbl:SetJustifyH("MIDDLE")
yellowfive@57 98 lbl:SetPoint("TOP", btnReload.frame, "BOTTOM", 0, -5)
yellowfive@57 99 container:AddChild(lbl)
yellowfive@57 100
yellowfive@57 101 -- container for undo wipe so we can hide/show it all
yellowfive@57 102 _panelUndoWipe = AceGUI:Create("AmrUiPanel")
yellowfive@57 103 _panelUndoWipe:SetLayout("None")
yellowfive@57 104 _panelUndoWipe:SetBackgroundColor(Amr.Colors.Black, 0)
yellowfive@57 105 _panelUndoWipe:SetPoint("TOPLEFT", lbl.frame, "BOTTOMLEFT", 0, -40)
yellowfive@57 106 container:AddChild(_panelUndoWipe)
yellowfive@57 107
yellowfive@57 108 local btnUndoWipe = AceGUI:Create("AmrUiButton")
yellowfive@57 109 btnUndoWipe:SetText(L.LogButtonUndoWipeText)
yellowfive@57 110 btnUndoWipe:SetBackgroundColor(Amr.Colors.Orange)
yellowfive@57 111 btnUndoWipe:SetFont(Amr.CreateFont("Bold", 16, Amr.Colors.White))
yellowfive@57 112 btnUndoWipe:SetWidth(200)
yellowfive@57 113 btnUndoWipe:SetHeight(26)
yellowfive@57 114 btnUndoWipe:SetPoint("TOPLEFT", lbl.frame, "BOTTOMLEFT", 0, -40)
yellowfive@57 115 btnUndoWipe:SetCallback("OnClick", function() Amr:UndoWipe() end)
yellowfive@57 116 _panelUndoWipe:AddChild(btnUndoWipe)
yellowfive@57 117
yellowfive@57 118 lbl = AceGUI:Create("AmrUiLabel")
yellowfive@57 119 lbl:SetText(L.LogUndoWipeNote)
yellowfive@57 120 lbl:SetWidth(200)
yellowfive@57 121 lbl:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.TextTan))
yellowfive@57 122 lbl:SetJustifyH("MIDDLE")
yellowfive@57 123 lbl:SetPoint("TOP", btnUndoWipe.frame, "BOTTOM", 0, -5)
yellowfive@57 124 _panelUndoWipe:AddChild(lbl)
yellowfive@57 125
yellowfive@57 126 local lbl2 = AceGUI:Create("AmrUiLabel")
yellowfive@57 127 lbl2:SetText(L.LogUndoWipeDate(date("%B %d", time()), date("%I:%M %p", time())))
yellowfive@57 128 lbl2:SetWidth(200)
yellowfive@57 129 lbl2:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.TextTan))
yellowfive@57 130 lbl2:SetJustifyH("MIDDLE")
yellowfive@57 131 lbl2:SetPoint("TOP", lbl.frame, "BOTTOM", 0, -2)
yellowfive@57 132 _panelUndoWipe:AddChild(lbl2)
yellowfive@57 133
yellowfive@57 134 local btnWipe = AceGUI:Create("AmrUiButton")
yellowfive@57 135 btnWipe:SetText(L.LogButtonWipeText)
yellowfive@57 136 btnWipe:SetBackgroundColor(Amr.Colors.Orange)
yellowfive@57 137 btnWipe:SetFont(Amr.CreateFont("Bold", 16, Amr.Colors.White))
yellowfive@57 138 btnWipe:SetWidth(200)
yellowfive@57 139 btnWipe:SetHeight(26)
yellowfive@57 140 btnWipe:SetPoint("TOPRIGHT", btnUndoWipe.frame, "TOPLEFT", -40, 0)
yellowfive@57 141 btnWipe:SetCallback("OnClick", function() Amr:Wipe() end)
yellowfive@57 142 container:AddChild(btnWipe)
yellowfive@91 143
yellowfive@57 144 lbl = AceGUI:Create("AmrUiLabel")
yellowfive@57 145 lbl:SetText(L.LogWipeNote)
yellowfive@57 146 lbl:SetWidth(200)
yellowfive@57 147 lbl:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.TextTan))
yellowfive@57 148 lbl:SetJustifyH("MIDDLE")
yellowfive@57 149 lbl:SetPoint("TOP", btnWipe.frame, "BOTTOM", 0, -5)
yellowfive@57 150 container:AddChild(lbl)
yellowfive@57 151
yellowfive@57 152 lbl2 = AceGUI:Create("AmrUiLabel")
yellowfive@57 153 lbl2:SetText(L.LogWipeNote2("/amr wipe"))
yellowfive@57 154 lbl2:SetWidth(200)
yellowfive@57 155 lbl2:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.TextTan))
yellowfive@57 156 lbl2:SetJustifyH("MIDDLE")
yellowfive@57 157 lbl2:SetPoint("TOP", lbl.frame, "BOTTOM", 0, -2)
yellowfive@57 158 container:AddChild(lbl2)
yellowfive@91 159 ]]
yellowfive@57 160
yellowfive@57 161 -- auto-logging controls
yellowfive@91 162 local lbl = AceGUI:Create("AmrUiLabel")
yellowfive@57 163 lbl:SetWidth(600)
yellowfive@57 164 lbl:SetText(L.LogAutoTitle)
yellowfive@57 165 lbl:SetFont(Amr.CreateFont("Bold", 24, Amr.Colors.TextHeaderActive))
yellowfive@91 166 lbl:SetPoint("TOPLEFT", _btnToggle.frame, "BOTTOMLEFT", 0, -40)
yellowfive@57 167 container:AddChild(lbl)
yellowfive@57 168
yellowfive@57 169 _chkAutoAll = AceGUI:Create("AmrUiCheckBox")
yellowfive@57 170 _chkAutoAll:SetText(L.LogAutoAllText)
yellowfive@57 171 _chkAutoAll:SetPoint("TOPLEFT", lbl.frame, "BOTTOMLEFT", 1, -15)
yellowfive@57 172 _chkAutoAll:SetCallback("OnClick", function(widget) Amr:ToggleAllAutoLog() end)
yellowfive@57 173 container:AddChild(_chkAutoAll)
yellowfive@57 174
yellowfive@57 175 _autoChecks = {}
yellowfive@57 176
yellowfive@57 177 -- go through all supported instances, rendering in a left->right pattern, 2 per row
yellowfive@61 178 local autoLbls = {}
yellowfive@61 179 local autoChks = {}
yellowfive@57 180 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@61 181 local autoLbl, autoChk = renderAutoLogSection(instanceId, container)
yellowfive@57 182 if i == 1 then
yellowfive@61 183 autoLbl:SetPoint("TOPLEFT", _chkAutoAll.frame, "BOTTOMLEFT", -1, -15)
yellowfive@57 184 elseif i % 2 == 0 then
yellowfive@61 185 autoLbl:SetPoint("TOPLEFT", autoLbls[i - 1].frame, "TOPRIGHT", 40, 0)
yellowfive@57 186 else
yellowfive@61 187 autoLbl:SetPoint("TOPLEFT", autoChks[i - 2].frame, "BOTTOMLEFT", 0, -30)
yellowfive@57 188 end
yellowfive@57 189
yellowfive@61 190 table.insert(autoLbls, autoLbl)
yellowfive@61 191 table.insert(autoChks, autoChk)
yellowfive@57 192 end
yellowfive@57 193 autoSections = nil
yellowfive@57 194
yellowfive@57 195 -- instructions
yellowfive@91 196 --[[
yellowfive@57 197 lbl = AceGUI:Create("AmrUiLabel")
yellowfive@57 198 lbl:SetText(L.LogInstructionsTitle)
yellowfive@57 199 lbl:SetWidth(480)
yellowfive@57 200 lbl:SetFont(Amr.CreateFont("Italic", 24, Amr.Colors.Text))
yellowfive@57 201 lbl:SetPoint("TOPRIGHT", container.content, "TOPRIGHT", 0, -40)
yellowfive@57 202 container:AddChild(lbl)
yellowfive@57 203
yellowfive@57 204 lbl2 = AceGUI:Create("AmrUiLabel")
yellowfive@57 205 lbl2:SetText(L.LogInstructions)
yellowfive@57 206 lbl2:SetWidth(480)
yellowfive@57 207 lbl2:SetFont(Amr.CreateFont("Italic", 14, Amr.Colors.Text))
yellowfive@57 208 lbl2:SetPoint("TOPLEFT", lbl.frame, "BOTTOMLEFT", 0, -10)
yellowfive@57 209 container:AddChild(lbl2)
yellowfive@91 210 ]]
yellowfive@57 211
yellowfive@57 212 -- initialize state of controls
yellowfive@57 213 Amr:RefreshLogUi()
yellowfive@57 214 end
yellowfive@57 215
yellowfive@57 216 function Amr:ReleaseTabLog()
yellowfive@57 217 _btnToggle = nil
yellowfive@57 218 _panelUndoWipe = nil
yellowfive@57 219 _chkAutoAll = nil
yellowfive@57 220 _autoChecks = nil
yellowfive@57 221 end
yellowfive@57 222
yellowfive@69 223 -- update the game's logging state
yellowfive@69 224 local function updateGameLogging(enabled)
yellowfive@69 225 if enabled then
yellowfive@69 226 -- always enable advanced combat logging via our addon, gathers more detailed data for better analysis
yellowfive@69 227 SetCVar("advancedCombatLogging", 1)
yellowfive@69 228 LoggingCombat(true)
yellowfive@69 229 else
yellowfive@69 230 LoggingCombat(false)
yellowfive@69 231 end
yellowfive@69 232 end
yellowfive@69 233
yellowfive@69 234 local function isAnyAutoLoggingEnabled()
yellowfive@69 235 local anyChecked = false
yellowfive@69 236 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@69 237 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@69 238 if Amr.db.profile.Logging.Auto[instanceId][difficultyId] then
yellowfive@69 239 anyChecked = true
yellowfive@69 240 break
yellowfive@69 241 end
yellowfive@69 242 end
yellowfive@69 243 if anyChecked then break end
yellowfive@69 244 end
yellowfive@69 245
yellowfive@69 246 return anyChecked
yellowfive@69 247 end
yellowfive@69 248
yellowfive@57 249 local function isAllAutoLoggingEnabled()
yellowfive@57 250 -- see if all auto-logging options are enabled
yellowfive@57 251 local allChecked = true
yellowfive@57 252 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@57 253 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@57 254 if not Amr.db.profile.Logging.Auto[instanceId][difficultyId] then
yellowfive@57 255 allChecked = false
yellowfive@57 256 break
yellowfive@57 257 end
yellowfive@57 258 end
yellowfive@57 259 if not allChecked then break end
yellowfive@57 260 end
yellowfive@57 261
yellowfive@57 262 return allChecked
yellowfive@57 263 end
yellowfive@57 264
yellowfive@57 265 -- check current zone and auto-logging settings, and enable logging if appropriate
yellowfive@69 266 local function updateAutoLogging(force, noWait)
yellowfive@69 267
yellowfive@69 268 local hasAuto = isAnyAutoLoggingEnabled()
yellowfive@69 269
yellowfive@69 270 -- before doing anything, make sure logging matches the user's current setting, deals with any inconsistency due to a crash or disconnect
yellowfive@69 271 if hasAuto then
yellowfive@69 272 updateGameLogging(Amr:IsLogging())
yellowfive@69 273 end
yellowfive@57 274
yellowfive@57 275 -- get the info about the instance
yellowfive@57 276 local zone, _, difficultyId, _, _, _, _, instanceId = GetInstanceInfo()
yellowfive@57 277
yellowfive@69 278 if Amr.IsSupportedInstanceId(instanceId) and difficultyId == 0 and not noWait then
yellowfive@69 279 -- the game is sometimes returning no difficulty id for raid zones... not sure why, wait 10 seconds and check again
yellowfive@69 280 Amr.Wait(10, function()
yellowfive@69 281 updateAutoLogging(false, false)
yellowfive@69 282 end)
yellowfive@69 283 return
yellowfive@69 284 end
yellowfive@69 285
yellowfive@57 286 if not force and zone == Amr.db.char.Logging.LastZone and difficultyId == Amr.db.char.Logging.LastDiff then
yellowfive@57 287 -- do nothing if the zone hasn't actually changed, otherwise we may override the user's manual enable/disable
yellowfive@57 288 return
yellowfive@57 289 end
yellowfive@57 290
yellowfive@57 291 Amr.db.char.Logging.LastZone = zone
yellowfive@57 292 Amr.db.char.Logging.LastDiff = difficultyId
yellowfive@57 293
yellowfive@91 294 if not Amr.db.profile.Logging.Auto[tonumber(instanceId)] then
yellowfive@91 295 Amr.db.profile.Logging.Auto[tonumber(instanceId)] = {}
yellowfive@91 296 end
yellowfive@91 297
yellowfive@57 298 if Amr.IsSupportedInstanceId(instanceId) and Amr.db.profile.Logging.Auto[tonumber(instanceId)][tonumber(difficultyId)] then
yellowfive@57 299 -- we are in a supported zone that we want to auto-log, turn logging on
yellowfive@69 300
yellowfive@57 301 -- (supported check is probably redundant, but just in case someone has old settings lying around)
yellowfive@57 302 if not Amr:IsLogging() then
yellowfive@57 303 Amr:StartLogging()
yellowfive@57 304 end
yellowfive@69 305 elseif hasAuto then
yellowfive@57 306 -- not in a zone that we want to auto-log, turn logging off
yellowfive@57 307 if Amr:IsLogging() then
yellowfive@57 308 Amr:StopLogging()
yellowfive@57 309 end
yellowfive@57 310 end
yellowfive@57 311 end
yellowfive@57 312
yellowfive@57 313 -- refresh the state of the tab based on current settings
yellowfive@57 314 function Amr:RefreshLogUi()
yellowfive@57 315 if not _btnToggle then return end
yellowfive@57 316
yellowfive@57 317 -- set state of logging button based on whether it is on or off
yellowfive@57 318 if self:IsLogging() then
yellowfive@57 319 _btnToggle:SetBackgroundColor(Amr.Colors.Red)
yellowfive@57 320 _btnToggle:SetText(L.LogButtonStopText)
yellowfive@57 321 else
yellowfive@57 322 _btnToggle:SetBackgroundColor(Amr.Colors.Green)
yellowfive@57 323 _btnToggle:SetText(L.LogButtonStartText)
yellowfive@57 324 end
yellowfive@57 325
yellowfive@57 326 _lblLogging:SetVisible(self:IsLogging())
yellowfive@57 327
yellowfive@57 328 -- hide/show undo wipe button based on whether a wipe has been called recently
yellowfive@91 329 if _panelUndoWipe then
yellowfive@91 330 _panelUndoWipe:SetVisible(Amr.db.char.Logging.LastWipe and true or false)
yellowfive@91 331 end
yellowfive@57 332
yellowfive@57 333 local all = isAllAutoLoggingEnabled()
yellowfive@57 334 _chkAutoAll:SetChecked(all)
yellowfive@57 335
yellowfive@57 336 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@91 337 if not Amr.db.profile.Logging.Auto[instanceId] then
yellowfive@91 338 Amr.db.profile.Logging.Auto[instanceId] = {}
yellowfive@91 339 end
yellowfive@57 340 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@57 341 _autoChecks[instanceId][difficultyId]:SetChecked(Amr.db.profile.Logging.Auto[instanceId][difficultyId])
yellowfive@57 342 end
yellowfive@57 343 end
yellowfive@57 344 end
yellowfive@57 345
yellowfive@57 346 function Amr:IsLogging()
yellowfive@57 347 return Amr.db.char.Logging.Enabled
yellowfive@57 348 end
yellowfive@57 349
yellowfive@57 350 function Amr:ToggleLogging()
yellowfive@57 351 if not Amr.db.char.Logging.Enabled then
yellowfive@57 352 Amr:StartLogging()
yellowfive@57 353 else
yellowfive@57 354 Amr:StopLogging()
yellowfive@57 355 end
yellowfive@57 356 end
yellowfive@57 357
yellowfive@57 358 function Amr:StartLogging()
yellowfive@57 359
yellowfive@91 360 --[[
yellowfive@57 361 local now = time()
yellowfive@57 362 local oldDuration = 60 * 60 * 24 * 10
yellowfive@57 363
yellowfive@57 364 -- prune out entries in log data that are more than 10 days old
yellowfive@57 365
yellowfive@57 366 -- player data
yellowfive@57 367 local playerData = Amr.db.global.Logging.PlayerData
yellowfive@57 368 if playerData then
yellowfive@57 369 for name, timeList in pairs(playerData) do
yellowfive@57 370 for timestamp, dataString in pairs(timeList) do
yellowfive@57 371 if difftime(now, tonumber(timestamp)) > oldDuration then
yellowfive@57 372 timeList[timestamp] = nil
yellowfive@57 373 end
yellowfive@57 374 end
yellowfive@57 375
yellowfive@57 376 if next(timeList) == nil then
yellowfive@57 377 playerData[name] = nil
yellowfive@57 378 end
yellowfive@57 379 end
yellowfive@57 380 end
yellowfive@57 381
yellowfive@57 382 -- same idea with extra info (auras, pets, whatever we end up adding to it)
yellowfive@57 383 local extraData = Amr.db.global.Logging.PlayerExtras
yellowfive@57 384 if extraData then
yellowfive@57 385 for name, timeList in pairs(extraData) do
yellowfive@57 386 for timestamp, dataString in pairs(timeList) do
yellowfive@57 387 if difftime(now, tonumber(timestamp)) > oldDuration then
yellowfive@57 388 timeList[timestamp] = nil
yellowfive@57 389 end
yellowfive@57 390 end
yellowfive@57 391
yellowfive@57 392 if next(timeList) == nil then
yellowfive@57 393 extraData[name] = nil
yellowfive@57 394 end
yellowfive@57 395 end
yellowfive@57 396 end
yellowfive@57 397
yellowfive@57 398 -- delete wipes that are more than 10 days old
yellowfive@57 399 if Amr.db.global.Logging.Wipes then
yellowfive@57 400 local wipes = Amr.db.global.Logging.Wipes
yellowfive@57 401 local i = 1
yellowfive@57 402 while i <= #wipes do
yellowfive@57 403 local t = wipes[i]
yellowfive@57 404 if difftime(now, t) > oldDuration then
yellowfive@57 405 table.remove(wipes, i)
yellowfive@57 406 else
yellowfive@57 407 i = i + 1
yellowfive@57 408 end
yellowfive@57 409 end
yellowfive@57 410 end
yellowfive@57 411
yellowfive@57 412 -- delete the last wipe date if it is more than 10 days old
yellowfive@57 413 if Amr.db.char.Logging.LastWipe and difftime(now, Amr.db.char.Logging.LastWipe) > oldDuration then
yellowfive@57 414 Amr.db.char.Logging.LastWipe = nil
yellowfive@57 415 end
yellowfive@91 416 ]]
yellowfive@91 417
yellowfive@69 418 -- enable game log file
yellowfive@69 419 updateGameLogging(true)
yellowfive@57 420 Amr.db.char.Logging.Enabled = true
yellowfive@57 421
yellowfive@57 422 self:Print(L.LogChatStart)
yellowfive@57 423
yellowfive@57 424 self:UpdateMinimap()
yellowfive@57 425 self:RefreshLogUi()
yellowfive@57 426 end
yellowfive@57 427
yellowfive@57 428 function Amr:StopLogging()
yellowfive@57 429
yellowfive@69 430 updateGameLogging(false)
yellowfive@57 431 Amr.db.char.Logging.Enabled = false
yellowfive@57 432
yellowfive@57 433 self:Print(L.LogChatStop)
yellowfive@57 434
yellowfive@57 435 self:UpdateMinimap()
yellowfive@57 436 self:RefreshLogUi()
yellowfive@57 437 end
yellowfive@57 438
yellowfive@57 439 function Amr:Wipe()
yellowfive@91 440
yellowfive@91 441 --[[
yellowfive@57 442 local t = time()
yellowfive@57 443 table.insert(Amr.db.global.Logging.Wipes, t)
yellowfive@57 444 Amr.db.char.Logging.LastWipe = t
yellowfive@57 445
yellowfive@57 446 self:Print(L.LogChatWipe(date('%I:%M %p', t)))
yellowfive@57 447
yellowfive@57 448 self:RefreshLogUi()
yellowfive@91 449 ]]
yellowfive@57 450 end
yellowfive@57 451
yellowfive@57 452 function Amr:UndoWipe()
yellowfive@57 453
yellowfive@91 454 --[[
yellowfive@57 455 local t = Amr.db.char.Logging.LastWipe
yellowfive@57 456 local wipes = Amr.db.global.Logging.Wipes
yellowfive@57 457
yellowfive@57 458 if not t then
yellowfive@57 459 self:Print(L.LogChatNoWipes)
yellowfive@57 460 else
yellowfive@57 461 -- find this wipe and remove it, may not be the last one if this person is raiding on multiple characters
yellowfive@57 462 for i = #wipes, 1, -1 do
yellowfive@57 463 if wipes[i] == t then
yellowfive@57 464 table.remove(wipes, i)
yellowfive@57 465 break
yellowfive@57 466 end
yellowfive@57 467 end
yellowfive@57 468
yellowfive@57 469 Amr.db.char.Logging.LastWipe = nil
yellowfive@57 470 self:Print(L.LogChatUndoWipe(date('%I:%M %p', t)))
yellowfive@57 471 end
yellowfive@57 472
yellowfive@57 473 self:RefreshLogUi()
yellowfive@91 474 ]]
yellowfive@57 475 end
yellowfive@57 476
yellowfive@57 477 function Amr:ToggleAutoLog(instanceId, difficultyId)
yellowfive@57 478
yellowfive@57 479 local byDiff = Amr.db.profile.Logging.Auto[instanceId]
yellowfive@57 480 byDiff[difficultyId] = not byDiff[difficultyId]
yellowfive@57 481
yellowfive@57 482 self:RefreshLogUi()
yellowfive@57 483
yellowfive@57 484 -- see if we should turn logging on right now
yellowfive@57 485 updateAutoLogging(true)
yellowfive@57 486 end
yellowfive@57 487
yellowfive@57 488 function Amr:ToggleAllAutoLog()
yellowfive@57 489
yellowfive@57 490 local val = not isAllAutoLoggingEnabled()
yellowfive@57 491
yellowfive@57 492 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@57 493 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@57 494 Amr.db.profile.Logging.Auto[instanceId][difficultyId] = val
yellowfive@57 495 end
yellowfive@57 496 end
yellowfive@57 497
yellowfive@57 498 self:RefreshLogUi()
yellowfive@57 499
yellowfive@57 500 -- see if we should turn logging on right now
yellowfive@57 501 updateAutoLogging(true)
yellowfive@57 502 end
yellowfive@57 503
yellowfive@57 504 function Amr:ProcessPlayerSnapshot(msg)
yellowfive@91 505 --[[
yellowfive@57 506 if not self:IsLogging() then return end
yellowfive@57 507
yellowfive@57 508 -- message will be of format: timestamp\nregion\nrealm\nname\n[stuff]
yellowfive@57 509 local parts = {}
yellowfive@57 510 for part in string.gmatch(msg, "([^\n]+)") do
yellowfive@57 511 table.insert(parts, part)
yellowfive@57 512 end
yellowfive@57 513
yellowfive@57 514 local timestamp = tonumber(parts[1])
yellowfive@57 515 local name = parts[2] .. ":" .. parts[3] .. ":" .. parts[4]
yellowfive@57 516 local setup = parts[5]
yellowfive@57 517
yellowfive@57 518 -- initialize the player's table
yellowfive@57 519 local playerList = Amr.db.global.Logging.PlayerData[name]
yellowfive@57 520 if not playerList then
yellowfive@57 521 playerList = {}
yellowfive@57 522 Amr.db.global.Logging.PlayerData[name] = playerList
yellowfive@57 523 end
yellowfive@57 524
yellowfive@57 525 -- find the most recent setup already recorded for this player
yellowfive@57 526 local previousSetup = nil
yellowfive@57 527 local previousTime = 0
yellowfive@57 528 for t, v in pairs(playerList) do
yellowfive@57 529 if t > previousTime then
yellowfive@57 530 previousSetup = v
yellowfive@57 531 previousTime = t
yellowfive@57 532 end
yellowfive@57 533 end
yellowfive@57 534
yellowfive@57 535 -- if the previous setup is more than 12 hours old, don't consider it
yellowfive@57 536 if previousSetup and difftime(timestamp, previousTime) > 60 * 60 * 12 then
yellowfive@57 537 previousSetup = nil
yellowfive@57 538 end
yellowfive@57 539
yellowfive@57 540 -- we only need to keep this setup if it is different than the previous
yellowfive@57 541 if setup ~= previousSetup then
yellowfive@57 542 playerList[timestamp] = setup
yellowfive@57 543 end
yellowfive@91 544 ]]
yellowfive@57 545 end
yellowfive@57 546
yellowfive@57 547 -- read auras and pet mapping info (pet may not be necessary anymore... but doesn't hurt)
yellowfive@57 548 local function getPlayerExtraData(data, unitId, petId)
yellowfive@91 549 --[[
yellowfive@57 550 local guid = UnitGUID(unitId)
yellowfive@57 551 if guid == nil then return end
yellowfive@57 552
yellowfive@57 553 local fields = {}
yellowfive@57 554
yellowfive@57 555 local buffs = {}
yellowfive@57 556 for i=1,40 do
yellowfive@57 557 local _,_,_,count,_,_,_,_,_,_,spellId = UnitAura(unitId, i, "HELPFUL")
yellowfive@57 558 table.insert(buffs, spellId)
yellowfive@57 559 end
yellowfive@57 560 if not buffs or #buffs == 0 then
yellowfive@57 561 table.insert(fields, "_")
yellowfive@57 562 else
yellowfive@57 563 table.insert(fields, Amr.Serializer:ToCompressedNumberList(buffs))
yellowfive@57 564 end
yellowfive@57 565
yellowfive@57 566 local petGuid = UnitGUID(petId)
yellowfive@57 567 if petGuid then
yellowfive@57 568 table.insert(fields, guid .. "," .. petGuid)
yellowfive@57 569 else
yellowfive@57 570 table.insert(fields, '_')
yellowfive@57 571 end
yellowfive@57 572
yellowfive@57 573 local name = GetUnitName(unitId, true) -- GetRaidRosterInfo(rosterIndex)
yellowfive@57 574 local realm = GetRealmName()
yellowfive@57 575 local region = Amr.RegionNames[GetCurrentRegion()]
yellowfive@57 576 local splitPos = string.find(name, "-")
yellowfive@57 577 if splitPos ~= nil then
yellowfive@57 578 realm = string.sub(name, splitPos + 1)
yellowfive@57 579 name = string.sub(name, 1, splitPos - 1)
yellowfive@57 580 end
yellowfive@57 581
yellowfive@57 582 data[region .. ":" .. realm .. ":" .. name] = table.concat(fields, ";")
yellowfive@91 583 ]]
yellowfive@57 584 end
yellowfive@57 585
yellowfive@57 586 local function logPlayerExtraData()
yellowfive@91 587 --[[
yellowfive@57 588 if not Amr:IsLogging() or not Amr:IsSupportedInstance() then return end
yellowfive@57 589
yellowfive@57 590 local timestamp = time()
yellowfive@57 591 local units = {}
yellowfive@57 592 local petUnits = {}
yellowfive@57 593
yellowfive@57 594 if IsInRaid() then
yellowfive@57 595 for i = 1,40 do
yellowfive@57 596 table.insert(units, "raid" .. i)
yellowfive@57 597 table.insert(petUnits, "raidpet" .. i)
yellowfive@57 598 end
yellowfive@57 599 elseif IsInGroup() then
yellowfive@57 600 table.insert(units, "player")
yellowfive@57 601 table.insert(petUnits, "pet")
yellowfive@57 602 for i = 1,4 do
yellowfive@57 603 table.insert(units, "party" .. i)
yellowfive@57 604 table.insert(petUnits, "partypet" .. i)
yellowfive@57 605 end
yellowfive@57 606 else
yellowfive@57 607 return
yellowfive@57 608 end
yellowfive@57 609
yellowfive@57 610 local data = {}
yellowfive@57 611 for i = 1,#units do
yellowfive@57 612 getPlayerExtraData(data, units[i], petUnits[i])
yellowfive@57 613 end
yellowfive@57 614
yellowfive@57 615 for name, val in pairs(data) do
yellowfive@57 616 -- record aura stuff, we never check for duplicates, need to know it at each point in time
yellowfive@57 617 if Amr.db.global.Logging.PlayerExtras[name] == nil then
yellowfive@57 618 Amr.db.global.Logging.PlayerExtras[name] = {}
yellowfive@57 619 end
yellowfive@57 620 Amr.db.global.Logging.PlayerExtras[name][timestamp] = val
yellowfive@57 621 end
yellowfive@91 622 ]]
yellowfive@57 623 end
yellowfive@57 624
yellowfive@57 625 function Amr:InitializeCombatLog()
yellowfive@89 626 --updateAutoLogging()
yellowfive@57 627 end
yellowfive@57 628
yellowfive@57 629 Amr:AddEventHandler("UPDATE_INSTANCE_INFO", updateAutoLogging)
yellowfive@57 630 Amr:AddEventHandler("PLAYER_DIFFICULTY_CHANGED", updateAutoLogging)
yellowfive@65 631 Amr:AddEventHandler("ENCOUNTER_START", updateAutoLogging)
yellowfive@93 632 --Amr:AddEventHandler("PLAYER_REGEN_DISABLED", logPlayerExtraData)