Mercurial > wow > askmrrobot

annotate CombatLog.lua @ 59:ee701ce45354 v22

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