Mercurial > wow > askmrrobot

annotate CombatLog.lua @ 74:01854bbdc1c7

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