Mercurial > wow > askmrrobot

annotate CombatLog.lua @ 63:f1d5827dbde0 v24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tweak to read new item link format
author yellowfive
date Tue, 23 Jun 2015 12:56:57 -0700
parents cf2b6b9a8337
children e638168c3395
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@57 219 local function isAllAutoLoggingEnabled()
yellowfive@57 220 -- see if all auto-logging options are enabled
yellowfive@57 221 local allChecked = true
yellowfive@57 222 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@57 223 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@57 224 if not Amr.db.profile.Logging.Auto[instanceId][difficultyId] then
yellowfive@57 225 allChecked = false
yellowfive@57 226 break
yellowfive@57 227 end
yellowfive@57 228 end
yellowfive@57 229 if not allChecked then break end
yellowfive@57 230 end
yellowfive@57 231
yellowfive@57 232 return allChecked
yellowfive@57 233 end
yellowfive@57 234
yellowfive@57 235 -- check current zone and auto-logging settings, and enable logging if appropriate
yellowfive@57 236 local function updateAutoLogging(force)
yellowfive@57 237
yellowfive@57 238 -- get the info about the instance
yellowfive@57 239 local zone, _, difficultyId, _, _, _, _, instanceId = GetInstanceInfo()
yellowfive@57 240
yellowfive@57 241 if not force and zone == Amr.db.char.Logging.LastZone and difficultyId == Amr.db.char.Logging.LastDiff then
yellowfive@57 242 -- do nothing if the zone hasn't actually changed, otherwise we may override the user's manual enable/disable
yellowfive@57 243 return
yellowfive@57 244 end
yellowfive@57 245
yellowfive@57 246 Amr.db.char.Logging.LastZone = zone
yellowfive@57 247 Amr.db.char.Logging.LastDiff = difficultyId
yellowfive@57 248
yellowfive@57 249 if Amr.IsSupportedInstanceId(instanceId) and Amr.db.profile.Logging.Auto[tonumber(instanceId)][tonumber(difficultyId)] then
yellowfive@57 250 -- we are in a supported zone that we want to auto-log, turn logging on
yellowfive@57 251 -- (supported check is probably redundant, but just in case someone has old settings lying around)
yellowfive@57 252 if not Amr:IsLogging() then
yellowfive@57 253 Amr:StartLogging()
yellowfive@57 254 end
yellowfive@57 255 else
yellowfive@57 256 -- not in a zone that we want to auto-log, turn logging off
yellowfive@57 257 if Amr:IsLogging() then
yellowfive@57 258 Amr:StopLogging()
yellowfive@57 259 end
yellowfive@57 260 end
yellowfive@57 261 end
yellowfive@57 262
yellowfive@57 263 -- refresh the state of the tab based on current settings
yellowfive@57 264 function Amr:RefreshLogUi()
yellowfive@57 265 if not _btnToggle then return end
yellowfive@57 266
yellowfive@57 267 -- set state of logging button based on whether it is on or off
yellowfive@57 268 if self:IsLogging() then
yellowfive@57 269 _btnToggle:SetBackgroundColor(Amr.Colors.Red)
yellowfive@57 270 _btnToggle:SetText(L.LogButtonStopText)
yellowfive@57 271 else
yellowfive@57 272 _btnToggle:SetBackgroundColor(Amr.Colors.Green)
yellowfive@57 273 _btnToggle:SetText(L.LogButtonStartText)
yellowfive@57 274 end
yellowfive@57 275
yellowfive@57 276 _lblLogging:SetVisible(self:IsLogging())
yellowfive@57 277
yellowfive@57 278 -- hide/show undo wipe button based on whether a wipe has been called recently
yellowfive@57 279 _panelUndoWipe:SetVisible(Amr.db.char.Logging.LastWipe and true or false)
yellowfive@57 280
yellowfive@57 281 local all = isAllAutoLoggingEnabled()
yellowfive@57 282 _chkAutoAll:SetChecked(all)
yellowfive@57 283
yellowfive@57 284 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@57 285 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@57 286 _autoChecks[instanceId][difficultyId]:SetChecked(Amr.db.profile.Logging.Auto[instanceId][difficultyId])
yellowfive@57 287 end
yellowfive@57 288 end
yellowfive@57 289 end
yellowfive@57 290
yellowfive@57 291 function Amr:IsLogging()
yellowfive@57 292 return Amr.db.char.Logging.Enabled
yellowfive@57 293 end
yellowfive@57 294
yellowfive@57 295 function Amr:ToggleLogging()
yellowfive@57 296 if not Amr.db.char.Logging.Enabled then
yellowfive@57 297 Amr:StartLogging()
yellowfive@57 298 else
yellowfive@57 299 Amr:StopLogging()
yellowfive@57 300 end
yellowfive@57 301 end
yellowfive@57 302
yellowfive@57 303 function Amr:StartLogging()
yellowfive@57 304
yellowfive@57 305 local now = time()
yellowfive@57 306 local oldDuration = 60 * 60 * 24 * 10
yellowfive@57 307
yellowfive@57 308 -- prune out entries in log data that are more than 10 days old
yellowfive@57 309
yellowfive@57 310 -- player data
yellowfive@57 311 local playerData = Amr.db.global.Logging.PlayerData
yellowfive@57 312 if playerData then
yellowfive@57 313 for name, timeList in pairs(playerData) do
yellowfive@57 314 for timestamp, dataString in pairs(timeList) do
yellowfive@57 315 if difftime(now, tonumber(timestamp)) > oldDuration then
yellowfive@57 316 timeList[timestamp] = nil
yellowfive@57 317 end
yellowfive@57 318 end
yellowfive@57 319
yellowfive@57 320 if next(timeList) == nil then
yellowfive@57 321 playerData[name] = nil
yellowfive@57 322 end
yellowfive@57 323 end
yellowfive@57 324 end
yellowfive@57 325
yellowfive@57 326 -- same idea with extra info (auras, pets, whatever we end up adding to it)
yellowfive@57 327 local extraData = Amr.db.global.Logging.PlayerExtras
yellowfive@57 328 if extraData then
yellowfive@57 329 for name, timeList in pairs(extraData) do
yellowfive@57 330 for timestamp, dataString in pairs(timeList) do
yellowfive@57 331 if difftime(now, tonumber(timestamp)) > oldDuration then
yellowfive@57 332 timeList[timestamp] = nil
yellowfive@57 333 end
yellowfive@57 334 end
yellowfive@57 335
yellowfive@57 336 if next(timeList) == nil then
yellowfive@57 337 extraData[name] = nil
yellowfive@57 338 end
yellowfive@57 339 end
yellowfive@57 340 end
yellowfive@57 341
yellowfive@57 342 -- delete wipes that are more than 10 days old
yellowfive@57 343 if Amr.db.global.Logging.Wipes then
yellowfive@57 344 local wipes = Amr.db.global.Logging.Wipes
yellowfive@57 345 local i = 1
yellowfive@57 346 while i <= #wipes do
yellowfive@57 347 local t = wipes[i]
yellowfive@57 348 if difftime(now, t) > oldDuration then
yellowfive@57 349 table.remove(wipes, i)
yellowfive@57 350 else
yellowfive@57 351 i = i + 1
yellowfive@57 352 end
yellowfive@57 353 end
yellowfive@57 354 end
yellowfive@57 355
yellowfive@57 356 -- delete the last wipe date if it is more than 10 days old
yellowfive@57 357 if Amr.db.char.Logging.LastWipe and difftime(now, Amr.db.char.Logging.LastWipe) > oldDuration then
yellowfive@57 358 Amr.db.char.Logging.LastWipe = nil
yellowfive@57 359 end
yellowfive@57 360
yellowfive@57 361 -- always enable advanced combat logging via our addon, gathers more detailed data for better analysis
yellowfive@57 362 SetCVar("advancedCombatLogging", 1)
yellowfive@57 363 LoggingCombat(true)
yellowfive@57 364 Amr.db.char.Logging.Enabled = true
yellowfive@57 365
yellowfive@57 366 self:Print(L.LogChatStart)
yellowfive@57 367
yellowfive@57 368 self:UpdateMinimap()
yellowfive@57 369 self:RefreshLogUi()
yellowfive@57 370 end
yellowfive@57 371
yellowfive@57 372 function Amr:StopLogging()
yellowfive@57 373
yellowfive@57 374 LoggingCombat(false)
yellowfive@57 375 Amr.db.char.Logging.Enabled = false
yellowfive@57 376
yellowfive@57 377 self:Print(L.LogChatStop)
yellowfive@57 378
yellowfive@57 379 self:UpdateMinimap()
yellowfive@57 380 self:RefreshLogUi()
yellowfive@57 381 end
yellowfive@57 382
yellowfive@57 383 function Amr:Wipe()
yellowfive@57 384 local t = time()
yellowfive@57 385 table.insert(Amr.db.global.Logging.Wipes, t)
yellowfive@57 386 Amr.db.char.Logging.LastWipe = t
yellowfive@57 387
yellowfive@57 388 self:Print(L.LogChatWipe(date('%I:%M %p', t)))
yellowfive@57 389
yellowfive@57 390 self:RefreshLogUi()
yellowfive@57 391 end
yellowfive@57 392
yellowfive@57 393 function Amr:UndoWipe()
yellowfive@57 394
yellowfive@57 395 local t = Amr.db.char.Logging.LastWipe
yellowfive@57 396 local wipes = Amr.db.global.Logging.Wipes
yellowfive@57 397
yellowfive@57 398 if not t then
yellowfive@57 399 self:Print(L.LogChatNoWipes)
yellowfive@57 400 else
yellowfive@57 401 -- find this wipe and remove it, may not be the last one if this person is raiding on multiple characters
yellowfive@57 402 for i = #wipes, 1, -1 do
yellowfive@57 403 if wipes[i] == t then
yellowfive@57 404 table.remove(wipes, i)
yellowfive@57 405 break
yellowfive@57 406 end
yellowfive@57 407 end
yellowfive@57 408
yellowfive@57 409 Amr.db.char.Logging.LastWipe = nil
yellowfive@57 410 self:Print(L.LogChatUndoWipe(date('%I:%M %p', t)))
yellowfive@57 411 end
yellowfive@57 412
yellowfive@57 413 self:RefreshLogUi()
yellowfive@57 414 end
yellowfive@57 415
yellowfive@57 416 function Amr:ToggleAutoLog(instanceId, difficultyId)
yellowfive@57 417
yellowfive@57 418 local byDiff = Amr.db.profile.Logging.Auto[instanceId]
yellowfive@57 419 byDiff[difficultyId] = not byDiff[difficultyId]
yellowfive@57 420
yellowfive@57 421 self:RefreshLogUi()
yellowfive@57 422
yellowfive@57 423 -- see if we should turn logging on right now
yellowfive@57 424 updateAutoLogging(true)
yellowfive@57 425 end
yellowfive@57 426
yellowfive@57 427 function Amr:ToggleAllAutoLog()
yellowfive@57 428
yellowfive@57 429 local val = not isAllAutoLoggingEnabled()
yellowfive@57 430
yellowfive@57 431 for i, instanceId in ipairs(Amr.InstanceIdsOrdered) do
yellowfive@57 432 for k, difficultyId in pairs(Amr.Difficulties) do
yellowfive@57 433 Amr.db.profile.Logging.Auto[instanceId][difficultyId] = val
yellowfive@57 434 end
yellowfive@57 435 end
yellowfive@57 436
yellowfive@57 437 self:RefreshLogUi()
yellowfive@57 438
yellowfive@57 439 -- see if we should turn logging on right now
yellowfive@57 440 updateAutoLogging(true)
yellowfive@57 441 end
yellowfive@57 442
yellowfive@57 443 function Amr:ProcessPlayerSnapshot(msg)
yellowfive@57 444 if not self:IsLogging() then return end
yellowfive@57 445
yellowfive@57 446 -- message will be of format: timestamp\nregion\nrealm\nname\n[stuff]
yellowfive@57 447 local parts = {}
yellowfive@57 448 for part in string.gmatch(msg, "([^\n]+)") do
yellowfive@57 449 table.insert(parts, part)
yellowfive@57 450 end
yellowfive@57 451
yellowfive@57 452 local timestamp = tonumber(parts[1])
yellowfive@57 453 local name = parts[2] .. ":" .. parts[3] .. ":" .. parts[4]
yellowfive@57 454 local setup = parts[5]
yellowfive@57 455
yellowfive@57 456 -- initialize the player's table
yellowfive@57 457 local playerList = Amr.db.global.Logging.PlayerData[name]
yellowfive@57 458 if not playerList then
yellowfive@57 459 playerList = {}
yellowfive@57 460 Amr.db.global.Logging.PlayerData[name] = playerList
yellowfive@57 461 end
yellowfive@57 462
yellowfive@57 463 -- find the most recent setup already recorded for this player
yellowfive@57 464 local previousSetup = nil
yellowfive@57 465 local previousTime = 0
yellowfive@57 466 for t, v in pairs(playerList) do
yellowfive@57 467 if t > previousTime then
yellowfive@57 468 previousSetup = v
yellowfive@57 469 previousTime = t
yellowfive@57 470 end
yellowfive@57 471 end
yellowfive@57 472
yellowfive@57 473 -- if the previous setup is more than 12 hours old, don't consider it
yellowfive@57 474 if previousSetup and difftime(timestamp, previousTime) > 60 * 60 * 12 then
yellowfive@57 475 previousSetup = nil
yellowfive@57 476 end
yellowfive@57 477
yellowfive@57 478 -- we only need to keep this setup if it is different than the previous
yellowfive@57 479 if setup ~= previousSetup then
yellowfive@57 480 playerList[timestamp] = setup
yellowfive@57 481 end
yellowfive@57 482
yellowfive@57 483 end
yellowfive@57 484
yellowfive@57 485 -- read auras and pet mapping info (pet may not be necessary anymore... but doesn't hurt)
yellowfive@57 486 local function getPlayerExtraData(data, unitId, petId)
yellowfive@57 487
yellowfive@57 488 local guid = UnitGUID(unitId)
yellowfive@57 489 if guid == nil then return end
yellowfive@57 490
yellowfive@57 491 local fields = {}
yellowfive@57 492
yellowfive@57 493 local buffs = {}
yellowfive@57 494 for i=1,40 do
yellowfive@57 495 local _,_,_,count,_,_,_,_,_,_,spellId = UnitAura(unitId, i, "HELPFUL")
yellowfive@57 496 table.insert(buffs, spellId)
yellowfive@57 497 end
yellowfive@57 498 if not buffs or #buffs == 0 then
yellowfive@57 499 table.insert(fields, "_")
yellowfive@57 500 else
yellowfive@57 501 table.insert(fields, Amr.Serializer:ToCompressedNumberList(buffs))
yellowfive@57 502 end
yellowfive@57 503
yellowfive@57 504 local petGuid = UnitGUID(petId)
yellowfive@57 505 if petGuid then
yellowfive@57 506 table.insert(fields, guid .. "," .. petGuid)
yellowfive@57 507 else
yellowfive@57 508 table.insert(fields, '_')
yellowfive@57 509 end
yellowfive@57 510
yellowfive@57 511 local name = GetUnitName(unitId, true) -- GetRaidRosterInfo(rosterIndex)
yellowfive@57 512 local realm = GetRealmName()
yellowfive@57 513 local region = Amr.RegionNames[GetCurrentRegion()]
yellowfive@57 514 local splitPos = string.find(name, "-")
yellowfive@57 515 if splitPos ~= nil then
yellowfive@57 516 realm = string.sub(name, splitPos + 1)
yellowfive@57 517 name = string.sub(name, 1, splitPos - 1)
yellowfive@57 518 end
yellowfive@57 519
yellowfive@57 520 data[region .. ":" .. realm .. ":" .. name] = table.concat(fields, ";")
yellowfive@57 521 end
yellowfive@57 522
yellowfive@57 523 local function logPlayerExtraData()
yellowfive@57 524 if not Amr:IsLogging() or not Amr:IsSupportedInstance() then return end
yellowfive@57 525
yellowfive@57 526 local timestamp = time()
yellowfive@57 527 local units = {}
yellowfive@57 528 local petUnits = {}
yellowfive@57 529
yellowfive@57 530 if IsInRaid() then
yellowfive@57 531 for i = 1,40 do
yellowfive@57 532 table.insert(units, "raid" .. i)
yellowfive@57 533 table.insert(petUnits, "raidpet" .. i)
yellowfive@57 534 end
yellowfive@57 535 elseif IsInGroup() then
yellowfive@57 536 table.insert(units, "player")
yellowfive@57 537 table.insert(petUnits, "pet")
yellowfive@57 538 for i = 1,4 do
yellowfive@57 539 table.insert(units, "party" .. i)
yellowfive@57 540 table.insert(petUnits, "partypet" .. i)
yellowfive@57 541 end
yellowfive@57 542 else
yellowfive@57 543 return
yellowfive@57 544 end
yellowfive@57 545
yellowfive@57 546 local data = {}
yellowfive@57 547 for i = 1,#units do
yellowfive@57 548 getPlayerExtraData(data, units[i], petUnits[i])
yellowfive@57 549 end
yellowfive@57 550
yellowfive@57 551 for name, val in pairs(data) do
yellowfive@57 552 -- record aura stuff, we never check for duplicates, need to know it at each point in time
yellowfive@57 553 if Amr.db.global.Logging.PlayerExtras[name] == nil then
yellowfive@57 554 Amr.db.global.Logging.PlayerExtras[name] = {}
yellowfive@57 555 end
yellowfive@57 556 Amr.db.global.Logging.PlayerExtras[name][timestamp] = val
yellowfive@57 557 end
yellowfive@57 558 end
yellowfive@57 559
yellowfive@57 560 function Amr:InitializeCombatLog()
yellowfive@57 561 updateAutoLogging()
yellowfive@57 562 end
yellowfive@57 563
yellowfive@57 564 Amr:AddEventHandler("UPDATE_INSTANCE_INFO", updateAutoLogging)
yellowfive@57 565 Amr:AddEventHandler("PLAYER_DIFFICULTY_CHANGED", updateAutoLogging)
yellowfive@57 566 Amr:AddEventHandler("PLAYER_REGEN_DISABLED", logPlayerExtraData)