wow/wowdb-profiler: Main.lua annotate

annotate Main.lua @ 576:be07cf7270d3 8.1.0-1

Added support for Ivus the Forest Lord and Ivus the Decayed.

author	Caleb Atherton <atcaleb@twitch.tv>
date	Tue, 11 Dec 2018 18:32:10 -0500
parents	89fab01eaba0
children	78e9cbbf3d58

rev	line source
jcallahan@246	1 -- LUA API ------------------------------------------------------------
jcallahan@246	2
jcallahan@0	3 local _G = getfenv(0)
jcallahan@0	4
jcallahan@0	5 local pairs = _G.pairs
jcallahan@312	6 local tostring = _G.tostring
jcallahan@1	7 local tonumber = _G.tonumber
jcallahan@1	8
jcallahan@1	9 local bit = _G.bit
jcallahan@1	10 local math = _G.math
jcallahan@1	11 local table = _G.table
jcallahan@1	12
jcallahan@334	13 local next = _G.next
jcallahan@78	14 local select = _G.select
mmosimca@485	15 local type = _G.type
jcallahan@306	16 local unpack = _G.unpack
jcallahan@78	17
MMOSimca@383	18 local C_Timer = _G.C_Timer
mmosimca@496	19 local GetCurrencyInfo = _G.GetCurrencyInfo
MMOSimca@383	20
jcallahan@0	21
jcallahan@246	22 -- ADDON NAMESPACE ----------------------------------------------------
jcallahan@246	23
jcallahan@0	24 local ADDON_NAME, private = ...
jcallahan@0	25
jcallahan@0	26 local LibStub = _G.LibStub
MMOSimca@383	27 local WDP = LibStub("AceAddon-3.0"):NewAddon(ADDON_NAME, "AceConsole-3.0", "AceEvent-3.0")
jcallahan@0	28
jcallahan@48	29 local deformat = LibStub("LibDeformat-3.0")
atcaleb@558	30 local HereBeDragons = LibStub("HereBeDragons-2.0")
jcallahan@48	31
jcallahan@4	32 local DatamineTT = _G.CreateFrame("GameTooltip", "WDPDatamineTT", _G.UIParent, "GameTooltipTemplate")
jcallahan@5	33 DatamineTT:SetOwner(_G.WorldFrame, "ANCHOR_NONE")
jcallahan@5	34
jcallahan@0	35
atcaleb@566	36 -- SIMPLE CONSTANTS ----------------------------------------------------------
jcallahan@246	37
jcallahan@246	38 local AF = private.ACTION_TYPE_FLAGS
jcallahan@246	39 local CLIENT_LOCALE = _G.GetLocale()
atcaleb@565	40 local DB_VERSION = 19
MMOSimca@346	41 local DEBUGGING = false
jcallahan@156	42 local EVENT_DEBUG = false
jcallahan@322	43
mmosimca@485	44 -- Timer durations in seconds
mmosimca@485	45 local DELAY_PROCESS_ITEMS = 30
atcaleb@566	46 local DELAY_PROCESS_WORLD_QUESTS = 90
mmosimca@485	47 local DELAY_UPDATE_TARGET_LOCATION = 0.5
mmosimca@485	48
MMOSimca@405	49 local ITEM_ID_TIMBER = 114781
MMOSimca@405	50
mmosimca@520	51 local LOOT_SLOT_CURRENCY = _G.LOOT_SLOT_CURRENCY
mmosimca@520	52 local LOOT_SLOT_ITEM = _G.LOOT_SLOT_ITEM
mmosimca@520	53 local LOOT_SLOT_MONEY = _G.LOOT_SLOT_MONEY
mmosimca@520	54
MMOSimca@539	55 --local LOOT_SOURCE_ID_UNKNOWN = 1 -- Technically unused right now, but has future use potential
MMOSimca@539	56 --local LOOT_SOURCE_ID_REDUNDANT = 3 -- Technically unused right now, but has future use potential
MMOSimca@422	57 local LOOT_SOURCE_ID_GARRISON_CACHE = 10
MMOSimca@422	58
jcallahan@246	59 local OBJECT_ID_ANVIL = 192628
jcallahan@322	60 local OBJECT_ID_FISHING_BOBBER = 35591
jcallahan@246	61 local OBJECT_ID_FORGE = 1685
jcallahan@322	62
MMOSimca@454	63 local PLAYER_CLASS, PLAYER_CLASS_ID = _G.select(2, _G.UnitClass("player"))
jcallahan@246	64 local PLAYER_FACTION = _G.UnitFactionGroup("player")
jcallahan@300	65 local PLAYER_GUID
mmosimca@485	66 local PLAYER_LEVEL = _G.UnitLevel("player")
jcallahan@246	67 local PLAYER_NAME = _G.UnitName("player")
jcallahan@246	68 local PLAYER_RACE = _G.select(2, _G.UnitRace("player"))
jcallahan@246	69
mmosimca@520	70 local SPELL_ID_UPDATE_INTERACTIONS = 161006
MMOSimca@377	71
atcaleb@566	72 local UI_MAP_COSMIC = 946
atcaleb@566	73
jcallahan@246	74 local ALLOWED_LOCALES = {
jcallahan@246	75 enUS = true,
jcallahan@246	76 enGB = true,
MMOSimca@336	77 enTW = true,
MMOSimca@336	78 enCN = true,
jcallahan@246	79 }
jcallahan@157	80
jcallahan@0	81 local DATABASE_DEFAULTS = {
jcallahan@128	82 char = {},
jcallahan@0	83 global = {
jcallahan@270	84 config = {
jcallahan@270	85 minimap_icon = {
jcallahan@270	86 hide = true,
jcallahan@270	87 },
jcallahan@270	88 },
jcallahan@0	89 items = {},
jcallahan@0	90 npcs = {},
jcallahan@0	91 objects = {},
jcallahan@0	92 quests = {},
jcallahan@167	93 spells = {},
MMOSimca@550	94 world_quests = {},
jcallahan@17	95 zones = {},
jcallahan@0	96 }
jcallahan@0	97 }
jcallahan@0	98
jcallahan@1	99 local EVENT_MAPPING = {
MMOSimca@436	100 AUCTION_HOUSE_CLOSED = "ResumeChatLootRecording",
MMOSimca@436	101 AUCTION_HOUSE_SHOW = true, -- also triggers StopChatLootRecording
MMOSimca@436	102 BANKFRAME_CLOSED = "ResumeChatLootRecording",
MMOSimca@436	103 BANKFRAME_OPENED = true, -- also triggers StopChatLootRecording
jcallahan@90	104 BATTLEFIELDS_SHOW = true,
jcallahan@56	105 BLACK_MARKET_ITEM_UPDATE = true,
MMOSimca@408	106 BONUS_ROLL_RESULT = true,
MMOSimca@388	107 CHAT_MSG_CURRENCY = true,
jcallahan@48	108 CHAT_MSG_LOOT = true,
jcallahan@95	109 CHAT_MSG_MONSTER_SAY = "RecordQuote",
jcallahan@95	110 CHAT_MSG_MONSTER_WHISPER = "RecordQuote",
jcallahan@95	111 CHAT_MSG_MONSTER_YELL = "RecordQuote",
jcallahan@40	112 CHAT_MSG_SYSTEM = true,
jcallahan@23	113 COMBAT_LOG_EVENT_UNFILTERED = true,
jcallahan@18	114 COMBAT_TEXT_UPDATE = true,
jcallahan@140	115 CURSOR_UPDATE = true,
MMOSimca@436	116 GARRISON_MISSION_NPC_CLOSED = "ResumeChatLootRecording",
MMOSimca@436	117 GARRISON_MISSION_NPC_OPENED = "StopChatLootRecording",
MMOSimca@450	118 GARRISON_SHIPYARD_NPC_CLOSED = "ResumeChatLootRecording",
MMOSimca@450	119 GARRISON_SHIPYARD_NPC_OPENED = "StopChatLootRecording",
MMOSimca@436	120 GOSSIP_CLOSED = "ResumeChatLootRecording",
MMOSimca@436	121 GOSSIP_SHOW = true, -- also triggers StopChatLootRecording
jcallahan@290	122 GROUP_ROSTER_UPDATE = true,
MMOSimca@436	123 GUILDBANKFRAME_CLOSED = "ResumeChatLootRecording",
MMOSimca@436	124 GUILDBANKFRAME_OPENED = true, -- also triggers StopChatLootRecording
atcaleb@573	125 ISLAND_AZERITE_GAIN = true,
atcaleb@573	126 ISLAND_COMPLETED = true,
jcallahan@42	127 ITEM_TEXT_BEGIN = true,
jcallahan@189	128 ITEM_UPGRADE_MASTER_OPENED = true,
jcallahan@124	129 LOOT_CLOSED = true,
MMOSimca@343	130 LOOT_OPENED = true,
MMOSimca@412	131 LOOT_SLOT_CLEARED = "HandleBadChatLootData",
MMOSimca@436	132 MAIL_CLOSED = "ResumeChatLootRecording",
MMOSimca@436	133 MAIL_SHOW = true, -- also triggers StopChatLootRecording
MMOSimca@436	134 MERCHANT_CLOSED = true, -- also triggers ResumeChatLootRecording
MMOSimca@436	135 MERCHANT_SHOW = "UpdateMerchantItems", -- also triggers StopChatLootRecording
jcallahan@61	136 MERCHANT_UPDATE = "UpdateMerchantItems",
jcallahan@25	137 PET_BAR_UPDATE = true,
MMOSimca@368	138 --PET_JOURNAL_LIST_UPDATE = true,
jcallahan@156	139 PLAYER_REGEN_DISABLED = true,
jcallahan@156	140 PLAYER_REGEN_ENABLED = true,
jcallahan@2	141 PLAYER_TARGET_CHANGED = true,
jcallahan@9	142 QUEST_COMPLETE = true,
jcallahan@9	143 QUEST_DETAIL = true,
jcallahan@9	144 QUEST_LOG_UPDATE = true,
jcallahan@97	145 QUEST_PROGRESS = true,
jcallahan@178	146 SHOW_LOOT_TOAST = true,
jcallahan@306	147 SPELL_CONFIRMATION_PROMPT = true,
jcallahan@88	148 TAXIMAP_OPENED = true,
MMOSimca@437	149 TRADE_CLOSED = "ResumeChatLootRecording",
MMOSimca@437	150 TRADE_SHOW = "StopChatLootRecording",
jcallahan@92	151 TRADE_SKILL_SHOW = true,
jcallahan@167	152 TRAINER_CLOSED = true,
jcallahan@27	153 TRAINER_SHOW = true,
jcallahan@90	154 TRANSMOGRIFY_OPEN = true,
jcallahan@246	155 UNIT_PET = true,
jcallahan@4	156 UNIT_QUEST_LOG_CHANGED = true,
jcallahan@1	157 UNIT_SPELLCAST_FAILED = "HandleSpellFailure",
jcallahan@1	158 UNIT_SPELLCAST_FAILED_QUIET = "HandleSpellFailure",
jcallahan@1	159 UNIT_SPELLCAST_INTERRUPTED = "HandleSpellFailure",
jcallahan@1	160 UNIT_SPELLCAST_SENT = true,
jcallahan@1	161 UNIT_SPELLCAST_SUCCEEDED = true,
jcallahan@90	162 VOID_STORAGE_OPEN = true,
jcallahan@0	163 }
jcallahan@0	164
jcallahan@4	165
jcallahan@246	166 -- VARIABLES ----------------------------------------------------------
jcallahan@246	167
jcallahan@92	168 local anvil_spell_ids = {}
jcallahan@92	169 local currently_drunk
jcallahan@128	170 local char_db
jcallahan@128	171 local global_db
jcallahan@299	172 local group_member_guids = {}
jcallahan@246	173 local group_owner_guids_to_pet_guids = {}
jcallahan@246	174 local group_pet_guids = {}
jcallahan@299	175 local in_instance
jcallahan@187	176 local item_process_timer_handle
jcallahan@92	177 local faction_standings = {}
jcallahan@92	178 local forge_spell_ids = {}
jcallahan@95	179 local languages_known = {}
jcallahan@317	180 local boss_loot_toasting = {}
MMOSimca@387	181 local container_loot_toasting
MMOSimca@387	182 local loot_toast_container_id
MMOSimca@387	183 local raid_boss_id
jcallahan@306	184 local loot_toast_container_timer_handle
jcallahan@307	185 local loot_toast_data
jcallahan@307	186 local loot_toast_data_timer_handle
jcallahan@95	187 local name_to_id_map = {}
jcallahan@306	188 local killed_boss_id_timer_handle
jcallahan@177	189 local killed_npc_id
jcallahan@2	190 local target_location_timer_handle
MMOSimca@345	191 local last_timber_spell_id
MMOSimca@355	192 local last_garrison_cache_object_id
MMOSimca@436	193 local block_chat_loot_data
MMOSimca@435	194 local chat_loot_data = {}
MMOSimca@347	195 local chat_loot_timer_handle
mmosimca@485	196 local world_quest_timer_handle
mmosimca@485	197 local world_quest_event_timestamp = 0
atcaleb@573	198 local killed_npcs_in_island = {}
atcaleb@573	199 local island_difficulty_token
jcallahan@86	200 local current_target_id
jcallahan@131	201 local current_loot
jcallahan@1	202
jcallahan@312	203
jcallahan@121	204 -- Data for our current action. Including possible values as a reference.
jcallahan@122	205 local current_action = {
jcallahan@121	206 identifier = nil,
jcallahan@121	207 loot_label = nil,
jcallahan@121	208 loot_list = nil,
jcallahan@121	209 loot_sources = nil,
jcallahan@121	210 map_level = nil,
jcallahan@121	211 spell_label = nil,
jcallahan@123	212 target_type = nil,
jcallahan@121	213 x = nil,
jcallahan@121	214 y = nil,
jcallahan@121	215 zone_data = nil,
jcallahan@121	216 }
jcallahan@92	217
jcallahan@246	218
MMOSimca@393	219 -- Timer prototypes
MMOSimca@393	220 local ClearKilledNPC, ClearKilledBossID, ClearLootToastContainerID, ClearLootToastData, ClearChatLootData
MMOSimca@393	221
MMOSimca@393	222
jcallahan@246	223 -- HELPERS ------------------------------------------------------------
jcallahan@246	224
jcallahan@245	225 local function Debug(message, ...)
MMOSimca@350	226 if not DEBUGGING or not message then
jcallahan@151	227 return
jcallahan@151	228 end
catherton@465	229
MMOSimca@350	230 if ... then
MMOSimca@350	231 local args = { ... }
MMOSimca@350	232
MMOSimca@350	233 for index = 1, #args do
MMOSimca@377	234 args[index] = tostring(args[index])
jcallahan@306	235 end
MMOSimca@350	236 _G.print(message:format(unpack(args)))
MMOSimca@350	237 else
MMOSimca@350	238 _G.print(message)
jcallahan@306	239 end
jcallahan@151	240 end
jcallahan@151	241
jcallahan@151	242
MMOSimca@393	243 local function InitializeCurrentLoot()
MMOSimca@393	244 current_loot = {
MMOSimca@393	245 list = {},
MMOSimca@393	246 sources = {},
MMOSimca@393	247 identifier = current_action.identifier,
MMOSimca@393	248 label = current_action.loot_label or "drops",
MMOSimca@393	249 map_level = current_action.map_level,
MMOSimca@393	250 object_name = current_action.object_name,
MMOSimca@393	251 spell_label = current_action.spell_label,
MMOSimca@393	252 target_type = current_action.target_type,
MMOSimca@393	253 x = current_action.x,
MMOSimca@393	254 y = current_action.y,
MMOSimca@393	255 zone_data = current_action.zone_data,
MMOSimca@393	256 }
MMOSimca@393	257
MMOSimca@393	258 table.wipe(current_action)
MMOSimca@393	259 end
MMOSimca@393	260
MMOSimca@393	261
jcallahan@169	262 local TradeSkillExecutePer
jcallahan@169	263 do
jcallahan@169	264 local header_list = {}
jcallahan@169	265
jcallahan@169	266 function TradeSkillExecutePer(iter_func)
jcallahan@169	267 if not _G.TradeSkillFrame or not _G.TradeSkillFrame:IsVisible() then
jcallahan@169	268 return
jcallahan@169	269 end
catherton@465	270
catherton@479	271 local recipes = _G.C_TradeSkillUI.GetAllRecipeIDs()
catherton@479	272
catherton@479	273 if recipes and (#recipes > 0) then
catherton@479	274 for i = 1, #recipes do
catherton@479	275 if iter_func(_G.C_TradeSkillUI.GetRecipeInfo(recipes[i]).name, recipes[i]) then
catherton@465	276 break
catherton@465	277 end
catherton@465	278 end
catherton@465	279 end
jcallahan@167	280 end
jcallahan@169	281 end -- do-block
jcallahan@167	282
jcallahan@167	283
jcallahan@39	284 local ActualCopperCost
jcallahan@39	285 do
jcallahan@39	286 local BARTERING_SPELL_ID = 83964
jcallahan@39	287
jcallahan@39	288 function ActualCopperCost(copper_cost, rep_standing)
jcallahan@39	289 if not copper_cost or copper_cost == 0 then
jcallahan@39	290 return 0
jcallahan@39	291 end
jcallahan@39	292 local modifier = 1
jcallahan@39	293
jcallahan@39	294 if _G.IsSpellKnown(BARTERING_SPELL_ID) then
jcallahan@39	295 modifier = modifier - 0.1
jcallahan@39	296 end
jcallahan@39	297
jcallahan@39	298 if rep_standing then
jcallahan@39	299 if PLAYER_RACE == "Goblin" then
atcaleb@558	300 modifier = modifier - private.STANDING_DISCOUNTS["EXALTED"]
atcaleb@558	301 elseif private.STANDING_DISCOUNTS[rep_standing] then
atcaleb@558	302 modifier = modifier - private.STANDING_DISCOUNTS[rep_standing]
jcallahan@39	303 end
jcallahan@39	304 end
jcallahan@39	305 return math.floor(copper_cost / modifier)
jcallahan@39	306 end
jcallahan@39	307 end -- do-block
jcallahan@39	308
jcallahan@39	309
jcallahan@29	310 local function InstanceDifficultyToken()
MMOSimca@440	311 -- Sometimes, instance information is returned when not in an instance. This check protects against that.
MMOSimca@440	312 if _G.IsInInstance() then
MMOSimca@440	313 local _, instance_type, instance_difficulty, _, _, _, is_dynamic = _G.GetInstanceInfo()
MMOSimca@440	314
MMOSimca@440	315 if not instance_type or instance_type == "" then
MMOSimca@440	316 instance_type = "NONE"
MMOSimca@440	317 end
MMOSimca@440	318 return ("%s:%d:%s"):format(instance_type:upper(), instance_difficulty, tostring(is_dynamic))
jcallahan@59	319 end
MMOSimca@440	320 return "NONE:0:false"
jcallahan@29	321 end
jcallahan@29	322
jcallahan@29	323
jcallahan@1	324 local function CurrentLocationData()
mmosimca@488	325 local x, y, current_area_id, map_level, map_file, is_micro_dungeon = HereBeDragons:GetPlayerZonePosition(false)
catherton@468	326 local zone_name = _G.GetRealZoneText()
catherton@465	327
mmosimca@488	328 -- Remove micro-dungeon-ness by translating back to the parent world map (at floor 0) if possible
mmosimca@488	329 if (is_micro_dungeon and x and y and current_area_id and map_level and map_level > 0) then
mmosimca@488	330 x, y = HereBeDragons:TranslateZoneCoordinates(x, y, current_area_id, map_level, current_area_id, 0, false)
mmosimca@488	331 map_level = 0
mmosimca@488	332 end
mmosimca@488	333
catherton@465	334 -- Put coordinates into expected format (as integers, they don't get a billion decimals output in the SavedVariables)
catherton@468	335 local x_int = nil
catherton@468	336 if (x and type(x) == "number") then
catherton@468	337 x_int = _G.floor(x * 1000)
mmosimca@485	338
mmosimca@482	339 -- Limit precision to 0.2
catherton@468	340 if x_int % 2 ~= 0 then
catherton@468	341 x_int = x_int + 1
catherton@468	342 end
mmosimca@485	343
mmosimca@482	344 -- Prevent out of bounds coordinates
mmosimca@482	345 if (x_int < 0 or x_int > 1000) then
mmosimca@482	346 x_int = nil
mmosimca@482	347 end
jcallahan@145	348 end
catherton@468	349 local y_int = nil
catherton@468	350 if (y and type(y) == "number") then
catherton@468	351 y_int = _G.floor(y * 1000)
mmosimca@485	352
mmosimca@482	353 -- Limit precision to 0.2
catherton@468	354 if y_int % 2 ~= 0 then
catherton@468	355 y_int = y_int + 1
catherton@468	356 end
mmosimca@485	357
mmosimca@482	358 -- Prevent out of bounds coordinates
mmosimca@482	359 if (y_int < 0 or y_int > 1000) then
mmosimca@482	360 y_int = nil
mmosimca@482	361 end
jcallahan@1	362 end
jcallahan@1	363
catherton@468	364 return zone_name, current_area_id, x_int, y_int, map_level, InstanceDifficultyToken()
jcallahan@1	365 end
jcallahan@1	366
jcallahan@1	367
MMOSimca@441	368 local function DBEntry(data_type, unit_id)
MMOSimca@441	369 if not data_type or not unit_id then
jcallahan@312	370 return
jcallahan@312	371 end
MMOSimca@441	372 local category = global_db[data_type]
MMOSimca@441	373
MMOSimca@441	374 if not category then
MMOSimca@441	375 category = {}
MMOSimca@441	376 global_db[data_type] = category
MMOSimca@441	377 end
MMOSimca@441	378 local unit = category[unit_id]
MMOSimca@441	379
MMOSimca@441	380 if not unit then
MMOSimca@441	381 unit = {}
MMOSimca@441	382 category[unit_id] = unit
MMOSimca@441	383 end
MMOSimca@441	384 return unit
jcallahan@312	385 end
jcallahan@312	386
MMOSimca@441	387 private.DBEntry = DBEntry
MMOSimca@441	388
MMOSimca@441	389 local NPCEntry
MMOSimca@441	390 do
MMOSimca@441	391 local npc_prototype = {}
MMOSimca@441	392 local npc_meta = {
MMOSimca@441	393 __index = npc_prototype
MMOSimca@441	394 }
MMOSimca@441	395
MMOSimca@441	396 function NPCEntry(identifier)
MMOSimca@441	397 local npc = DBEntry("npcs", identifier)
MMOSimca@441	398 return npc and _G.setmetatable(npc, npc_meta) or nil
jcallahan@1	399 end
MMOSimca@441	400
MMOSimca@441	401 function npc_prototype:EncounterData(difficulty_token)
MMOSimca@441	402 self.encounter_data = self.encounter_data or {}
MMOSimca@441	403 self.encounter_data[difficulty_token] = self.encounter_data[difficulty_token] or {}
MMOSimca@441	404 self.encounter_data[difficulty_token].stats = self.encounter_data[difficulty_token].stats or {}
MMOSimca@441	405
MMOSimca@441	406 return self.encounter_data[difficulty_token]
MMOSimca@441	407 end
jcallahan@1	408 end
jcallahan@270	409
jcallahan@4	410
jcallahan@141	411 local UpdateDBEntryLocation
jcallahan@141	412 do
jcallahan@141	413 -- Fishing node coordinate code based on code in GatherMate2 with permission from Kagaro.
jcallahan@141	414 local function FishingCoordinates(x, y, yard_width, yard_height)
jcallahan@141	415 local facing = _G.GetPlayerFacing()
jcallahan@141	416
jcallahan@141	417 if not facing then
jcallahan@141	418 return x, y
jcallahan@141	419 end
jcallahan@246	420 local rad = facing + math.pi
jcallahan@141	421 return x + math.sin(rad) * 15 / yard_width, y + math.cos(rad) * 15 / yard_height
jcallahan@10	422 end
jcallahan@10	423
jcallahan@24	424
jcallahan@141	425 function UpdateDBEntryLocation(entry_type, identifier)
jcallahan@141	426 if not identifier then
jcallahan@141	427 return
jcallahan@141	428 end
jcallahan@141	429 local zone_name, area_id, x, y, map_level, difficulty_token = CurrentLocationData()
MMOSimca@328	430 if not (zone_name and area_id and x and y and map_level) then
mmosimca@508	431 if not (_G.IsInInstance()) then
mmosimca@508	432 Debug("UpdateDBEntryLocation: Missing current location data - %s, %s, %s, %s, %s.", tostring(zone_name), tostring(area_id), tostring(x), tostring(y), tostring(map_level))
mmosimca@508	433 end
MMOSimca@328	434 return
MMOSimca@328	435 end
jcallahan@141	436 local entry = DBEntry(entry_type, identifier)
jcallahan@141	437 entry[difficulty_token] = entry[difficulty_token] or {}
jcallahan@141	438 entry[difficulty_token].locations = entry[difficulty_token].locations or {}
jcallahan@141	439
jcallahan@141	440 local zone_token = ("%s:%d"):format(zone_name, area_id)
jcallahan@141	441 local zone_data = entry[difficulty_token].locations[zone_token]
jcallahan@141	442
jcallahan@141	443 if not zone_data then
jcallahan@141	444 zone_data = {}
jcallahan@141	445 entry[difficulty_token].locations[zone_token] = zone_data
jcallahan@141	446 end
jcallahan@141	447
jcallahan@141	448 -- Special case for Fishing.
jcallahan@141	449 if current_action.spell_label == "FISHING" then
atcaleb@561	450 local _, q_vector = _G.C_Map.GetWorldPosFromMapPos(area_id, _G.CreateVector2D(0,0))
atcaleb@561	451 local _, w_vector = _G.C_Map.GetWorldPosFromMapPos(area_id, _G.CreateVector2D(1,1))
atcaleb@561	452 local yard_width, yard_height = q_vector.y - w_vector.y, q_vector.x - w_vector.x
jcallahan@141	453
jcallahan@141	454 if yard_width > 0 and yard_height > 0 then
jcallahan@141	455 x, y = FishingCoordinates(x, y, yard_width, yard_height)
jcallahan@141	456 current_action.x = x
jcallahan@141	457 current_action.y = y
jcallahan@141	458 end
jcallahan@141	459 end
jcallahan@141	460 local location_token = ("%d:%d:%d"):format(map_level, x, y)
jcallahan@141	461
jcallahan@141	462 zone_data[location_token] = zone_data[location_token] or true
jcallahan@141	463 return zone_data
jcallahan@10	464 end
jcallahan@141	465 end -- do-block
jcallahan@10	466
jcallahan@10	467
mmosimca@496	468 local function CurrencyLinkToID(currency_link)
MMOSimca@441	469 if not currency_link then
mmosimca@496	470 return nil
MMOSimca@441	471 end
MMOSimca@540	472 return tonumber(tostring(currency_link):match("currency:(%d+)"))
MMOSimca@441	473 end
MMOSimca@441	474
MMOSimca@441	475
MMOSimca@441	476 local function ItemLinkToID(item_link)
MMOSimca@441	477 if not item_link then
MMOSimca@441	478 return
MMOSimca@441	479 end
MMOSimca@441	480 return tonumber(tostring(item_link):match("item:(%d+)"))
MMOSimca@441	481 end
MMOSimca@441	482
MMOSimca@441	483 private.ItemLinkToID = ItemLinkToID
MMOSimca@441	484
MMOSimca@441	485 local function UnitTypeIsNPC(unit_type)
MMOSimca@441	486 return unit_type == private.UNIT_TYPES.NPC or unit_type == private.UNIT_TYPES.VEHICLE
MMOSimca@441	487 end
MMOSimca@441	488
MMOSimca@441	489
MMOSimca@441	490 local ParseGUID
MMOSimca@441	491 do
MMOSimca@441	492 local UNIT_TYPES = private.UNIT_TYPES
MMOSimca@441	493
MMOSimca@441	494 local NPC_ID_MAPPING = {
MMOSimca@441	495 [62164] = 63191, -- Garalon
MMOSimca@441	496 }
MMOSimca@441	497
MMOSimca@441	498
MMOSimca@441	499 local function MatchUnitTypes(unit_type_name)
MMOSimca@441	500 if not unit_type_name then
MMOSimca@441	501 return UNIT_TYPES.UNKNOWN
MMOSimca@441	502 end
MMOSimca@441	503
MMOSimca@441	504 for def, text in next, UNIT_TYPES do
MMOSimca@441	505 if unit_type_name == text then
MMOSimca@441	506 return UNIT_TYPES[def]
MMOSimca@441	507 end
MMOSimca@441	508 end
MMOSimca@441	509 return UNIT_TYPES.UNKNOWN
MMOSimca@441	510 end
MMOSimca@441	511
MMOSimca@441	512
MMOSimca@441	513 function ParseGUID(guid)
MMOSimca@441	514 if not guid then
MMOSimca@441	515 return
MMOSimca@441	516 end
MMOSimca@441	517
MMOSimca@441	518 -- We might want to use some of this new information later, but leaving the returns alone for now
mmosimca@497	519 local guid_pieces = { ("-"):split(guid) }
mmosimca@497	520 local unit_type_name, unk_field, server_id, instance_id, zone_uid, unit_id, spawn_uid, player_uid = guid_pieces[1]
MMOSimca@441	521
MMOSimca@441	522 local unit_type = MatchUnitTypes(unit_type_name)
mmosimca@518	523
mmosimca@497	524 -- Creatures, GameObjects, Vehicles, and Vignettes
MMOSimca@441	525 if unit_type ~= UNIT_TYPES.PLAYER and unit_type ~= UNIT_TYPES.PET and unit_type ~= UNIT_TYPES.ITEM then
mmosimca@497	526 unk_field, server_id, instance_id, zone_uid, unit_id, spawn_uid = guid_pieces[2], guid_pieces[3], guid_pieces[4], guid_pieces[5], guid_pieces[6], guid_pieces[7]
mmosimca@497	527
mmosimca@497	528 local id_mapping = NPC_ID_MAPPING[unit_id]
MMOSimca@441	529
MMOSimca@441	530 if id_mapping and UnitTypeIsNPC(unit_type) then
mmosimca@497	531 unit_id = id_mapping
MMOSimca@441	532 end
mmosimca@497	533
mmosimca@497	534 -- Players
mmosimca@497	535 elseif unit_type == UNIT_TYPES.PLAYER then
mmosimca@497	536 server_id, player_uid = guid_pieces[2], guid_pieces[3]
mmosimca@497	537
mmosimca@497	538 -- Items
mmosimca@497	539 elseif unit_type == UNIT_TYPES.ITEM then
mmosimca@497	540 server_id, unk_field, spawn_uid = guid_pieces[2], guid_pieces[3], guid_pieces[4]
MMOSimca@441	541 end
mmosimca@518	542
mmosimca@497	543 -- Pets and other (i.e. do nothing)
mmosimca@497	544 return unit_type, unit_id
MMOSimca@441	545 end
MMOSimca@441	546
MMOSimca@441	547 private.ParseGUID = ParseGUID
MMOSimca@441	548 end -- do-block
MMOSimca@441	549
MMOSimca@441	550
jcallahan@19	551 local function HandleItemUse(item_link, bag_index, slot_index)
jcallahan@19	552 if not item_link then
jcallahan@19	553 return
jcallahan@19	554 end
jcallahan@19	555 local item_id = ItemLinkToID(item_link)
jcallahan@19	556
jcallahan@19	557 if not bag_index or not slot_index then
jcallahan@19	558 for new_bag_index = 0, _G.NUM_BAG_FRAMES do
jcallahan@19	559 for new_slot_index = 1, _G.GetContainerNumSlots(new_bag_index) do
jcallahan@19	560 if item_id == ItemLinkToID(_G.GetContainerItemLink(new_bag_index, new_slot_index)) then
jcallahan@19	561 bag_index = new_bag_index
jcallahan@19	562 slot_index = new_slot_index
jcallahan@19	563 break
jcallahan@19	564 end
jcallahan@19	565 end
jcallahan@19	566 end
jcallahan@19	567 end
jcallahan@19	568
MMOSimca@410	569 local any_loot = false
MMOSimca@410	570
MMOSimca@411	571 -- Check if Blizzard has marked this item as officially having a chance of containing loot
MMOSimca@410	572 if bag_index and slot_index then
MMOSimca@410	573 local _, _, _, _, _, is_lootable = _G.GetContainerItemInfo(bag_index, slot_index)
MMOSimca@410	574 if is_lootable then
MMOSimca@410	575 any_loot = true
MMOSimca@410	576 end
jcallahan@19	577 end
catherton@465	578
MMOSimca@410	579 -- Check if we've marked this item as one Blizzard provides bad is_lootable data for
MMOSimca@410	580 if private.CONTAINER_ITEM_ID_LIST[item_id] ~= nil then
MMOSimca@410	581 any_loot = true
jcallahan@19	582 end
MMOSimca@368	583
MMOSimca@436	584 -- Going to block 'chat-loot data' at this level for now because I don't think we actually want normal item containers being recorded in these scenarios either.
MMOSimca@436	585 if any_loot and not block_chat_loot_data then
MMOSimca@414	586 -- For item containers that open instantly with no spell cast
MMOSimca@410	587 if (private.CONTAINER_ITEM_ID_LIST[item_id] == true) and ((not _G.GetNumLootItems()) or (_G.GetNumLootItems() == 0)) then
MMOSimca@410	588 ClearChatLootData()
MMOSimca@410	589 Debug("HandleItemUse: Beginning chat-based loot timer for item with ID %d.", item_id)
MMOSimca@423	590 chat_loot_timer_handle = C_Timer.NewTimer(1.5, ClearChatLootData)
atcaleb@573	591 chat_loot_data.category = AF.ITEM
MMOSimca@414	592 chat_loot_data.identifier = item_id
MMOSimca@414	593 -- For normal item containers
MMOSimca@414	594 else
MMOSimca@414	595 table.wipe(current_action)
MMOSimca@414	596 current_loot = nil
MMOSimca@414	597 current_action.target_type = AF.ITEM
MMOSimca@414	598 current_action.identifier = item_id
MMOSimca@414	599 current_action.loot_label = "contains"
MMOSimca@410	600 end
MMOSimca@393	601 end
jcallahan@19	602 end
jcallahan@19	603
jcallahan@19	604
jcallahan@39	605 local UnitFactionStanding
jcallahan@32	606 local UpdateFactionData
jcallahan@32	607 do
jcallahan@32	608 local MAX_FACTION_INDEX = 1000
jcallahan@20	609
jcallahan@32	610 local STANDING_NAMES = {
jcallahan@32	611 "HATED",
jcallahan@32	612 "HOSTILE",
jcallahan@32	613 "UNFRIENDLY",
jcallahan@32	614 "NEUTRAL",
jcallahan@32	615 "FRIENDLY",
jcallahan@32	616 "HONORED",
jcallahan@32	617 "REVERED",
jcallahan@32	618 "EXALTED",
jcallahan@32	619 }
jcallahan@32	620
jcallahan@39	621
jcallahan@39	622 function UnitFactionStanding(unit)
jcallahan@135	623 local unit_name = _G.UnitName(unit)
jcallahan@39	624 UpdateFactionData()
jcallahan@39	625 DatamineTT:ClearLines()
jcallahan@39	626 DatamineTT:SetUnit(unit)
jcallahan@39	627
jcallahan@39	628 for line_index = 1, DatamineTT:NumLines() do
jcallahan@64	629 local faction_name = _G["WDPDatamineTTTextLeft" .. line_index]:GetText():trim()
jcallahan@39	630
jcallahan@135	631 if faction_name and faction_name ~= unit_name and faction_standings[faction_name] then
jcallahan@39	632 return faction_name, faction_standings[faction_name]
jcallahan@39	633 end
jcallahan@39	634 end
jcallahan@39	635 end
jcallahan@39	636
jcallahan@39	637
jcallahan@32	638 function UpdateFactionData()
jcallahan@32	639 for faction_index = 1, MAX_FACTION_INDEX do
jcallahan@32	640 local faction_name, _, current_standing, _, _, _, _, _, is_header = _G.GetFactionInfo(faction_index)
jcallahan@32	641
jcallahan@86	642 if faction_name then
jcallahan@32	643 faction_standings[faction_name] = STANDING_NAMES[current_standing]
jcallahan@32	644 elseif not faction_name then
jcallahan@32	645 break
jcallahan@32	646 end
jcallahan@20	647 end
jcallahan@20	648 end
jcallahan@32	649 end -- do-block
jcallahan@20	650
jcallahan@48	651
MMOSimca@429	652 local GenericLootUpdate, LootTable
jcallahan@75	653 do
MMOSimca@429	654 function LootTable(entry, loot_type, top_field)
jcallahan@75	655 if top_field then
jcallahan@75	656 entry[top_field] = entry[top_field] or {}
jcallahan@75	657 entry[top_field][loot_type] = entry[top_field][loot_type] or {}
jcallahan@75	658 return entry[top_field][loot_type]
jcallahan@75	659 end
jcallahan@48	660 entry[loot_type] = entry[loot_type] or {}
jcallahan@75	661 return entry[loot_type]
jcallahan@48	662 end
jcallahan@48	663
jcallahan@75	664 function GenericLootUpdate(data_type, top_field)
jcallahan@132	665 local loot_type = current_loot.label
jcallahan@75	666 local loot_count = ("%s_count"):format(loot_type)
jcallahan@77	667 local source_list = {}
jcallahan@75	668
jcallahan@131	669 if current_loot.sources then
jcallahan@131	670 for source_guid, loot_data in pairs(current_loot.sources) do
jcallahan@304	671 local source_id
jcallahan@78	672
jcallahan@131	673 if current_loot.target_type == AF.ITEM then
jcallahan@119	674 -- Items return the player as the source, so we need to use the item's ID (disenchant, milling, etc)
jcallahan@131	675 source_id = current_loot.identifier
jcallahan@119	676 else
jcallahan@331	677 local _, unit_ID = ParseGUID(source_guid)
MMOSimca@328	678 if unit_ID then
MMOSimca@328	679 if current_loot.target_type == AF.OBJECT then
MMOSimca@328	680 source_id = ("%s:%s"):format(current_loot.spell_label, unit_ID)
MMOSimca@328	681 else
MMOSimca@328	682 source_id = unit_ID
MMOSimca@328	683 end
MMOSimca@328	684 end
jcallahan@119	685 end
jcallahan@304	686 local entry = DBEntry(data_type, source_id)
jcallahan@75	687
jcallahan@119	688 if entry then
jcallahan@119	689 local loot_table = LootTable(entry, loot_type, top_field)
jcallahan@77	690
jcallahan@304	691 if not source_list[source_id] then
jcallahan@119	692 if top_field then
jcallahan@119	693 entry[top_field][loot_count] = (entry[top_field][loot_count] or 0) + 1
MMOSimca@387	694 elseif not container_loot_toasting then
jcallahan@119	695 entry[loot_count] = (entry[loot_count] or 0) + 1
jcallahan@119	696 end
jcallahan@304	697 source_list[source_id] = true
jcallahan@77	698 end
jcallahan@119	699 UpdateDBEntryLocation(data_type, source_id)
jcallahan@75	700
jcallahan@309	701 if current_loot.target_type == AF.ZONE then
jcallahan@309	702 for item_id, quantity in pairs(loot_data) do
jcallahan@309	703 table.insert(loot_table, ("%d:%d"):format(item_id, quantity))
jcallahan@309	704 end
jcallahan@309	705 else
jcallahan@308	706 for loot_token, quantity in pairs(loot_data) do
mmosimca@496	707 local label, currency_id = (":"):split(loot_token)
mmosimca@496	708
mmosimca@496	709 if label == "currency" and currency_id then
mmosimca@496	710 -- Convert currency_id back into number from string
mmosimca@496	711 currency_id = tonumber(currency_id) or 0
mmosimca@496	712 if currency_id ~= 0 then
mmosimca@496	713 table.insert(loot_table, ("currency:%d:%d"):format(quantity, currency_id))
mmosimca@496	714 end
jcallahan@308	715 elseif loot_token == "money" then
jcallahan@308	716 table.insert(loot_table, ("money:%d"):format(quantity))
jcallahan@308	717 else
jcallahan@308	718 table.insert(loot_table, ("%d:%d"):format(loot_token, quantity))
jcallahan@308	719 end
jcallahan@308	720 end
jcallahan@119	721 end
jcallahan@75	722 end
jcallahan@75	723 end
jcallahan@75	724 end
jcallahan@121	725
jcallahan@121	726 -- This is used for Gas Extractions.
jcallahan@131	727 if #current_loot.list <= 0 then
jcallahan@78	728 return
jcallahan@78	729 end
jcallahan@82	730 local entry
jcallahan@82	731
jcallahan@82	732 -- At this point we only have a name if it's an object.
MMOSimca@388	733 -- (As of 5.x, the above statement is almost never true, but there are a few cases, like gas extractions.)
jcallahan@131	734 if current_loot.target_type == AF.OBJECT then
jcallahan@131	735 entry = DBEntry(data_type, ("%s:%s"):format(current_loot.spell_label, current_loot.object_name))
jcallahan@82	736 else
jcallahan@131	737 entry = DBEntry(data_type, current_loot.identifier)
jcallahan@82	738 end
jcallahan@75	739
jcallahan@75	740 if not entry then
jcallahan@75	741 return
jcallahan@75	742 end
jcallahan@77	743 local loot_table = LootTable(entry, loot_type, top_field)
jcallahan@77	744
jcallahan@307	745 if current_loot.identifier then
jcallahan@307	746 if not source_list[current_loot.identifier] then
jcallahan@307	747 if top_field then
jcallahan@307	748 entry[top_field][loot_count] = (entry[top_field][loot_count] or 0) + 1
jcallahan@307	749 else
jcallahan@307	750 entry[loot_count] = (entry[loot_count] or 0) + 1
jcallahan@307	751 end
jcallahan@307	752 source_list[current_loot.identifier] = true
jcallahan@77	753 end
jcallahan@77	754 end
jcallahan@75	755
jcallahan@131	756 for index = 1, #current_loot.list do
jcallahan@131	757 table.insert(loot_table, current_loot.list[index])
jcallahan@75	758 end
jcallahan@48	759 end
jcallahan@75	760 end -- do-block
jcallahan@48	761
jcallahan@97	762
jcallahan@97	763 local ReplaceKeywords
jcallahan@97	764 do
jcallahan@97	765 local KEYWORD_SUBSTITUTIONS = {
jcallahan@97	766 class = PLAYER_CLASS,
jcallahan@97	767 name = PLAYER_NAME,
jcallahan@97	768 race = PLAYER_RACE,
jcallahan@97	769 }
jcallahan@97	770
jcallahan@97	771
jcallahan@97	772 function ReplaceKeywords(text)
jcallahan@97	773 if not text or text == "" then
jcallahan@97	774 return ""
jcallahan@97	775 end
jcallahan@97	776
jcallahan@97	777 for category, lookup in pairs(KEYWORD_SUBSTITUTIONS) do
jcallahan@97	778 local category_format = ("<%s>"):format(category)
jcallahan@97	779 text = text:gsub(lookup, category_format):gsub(lookup:lower(), category_format)
jcallahan@97	780 end
jcallahan@97	781 return text
jcallahan@97	782 end
jcallahan@97	783 end -- do-block
jcallahan@97	784
jcallahan@97	785
MMOSimca@347	786 -- TIMERS -------------------------------------------------------------
MMOSimca@347	787
MMOSimca@393	788 function ClearKilledNPC()
MMOSimca@347	789 killed_npc_id = nil
MMOSimca@347	790 end
MMOSimca@347	791
MMOSimca@347	792
MMOSimca@393	793 function ClearKilledBossID()
MMOSimca@347	794 if killed_boss_id_timer_handle then
MMOSimca@383	795 killed_boss_id_timer_handle:Cancel()
MMOSimca@347	796 killed_boss_id_timer_handle = nil
MMOSimca@347	797 end
MMOSimca@347	798
MMOSimca@347	799 table.wipe(boss_loot_toasting)
MMOSimca@387	800 raid_boss_id = nil
MMOSimca@347	801 end
MMOSimca@347	802
MMOSimca@347	803
MMOSimca@393	804 function ClearLootToastContainerID()
MMOSimca@347	805 if loot_toast_container_timer_handle then
MMOSimca@383	806 loot_toast_container_timer_handle:Cancel()
MMOSimca@347	807 loot_toast_container_timer_handle = nil
MMOSimca@347	808 end
MMOSimca@347	809
MMOSimca@387	810 container_loot_toasting = false
MMOSimca@387	811 loot_toast_container_id = nil
MMOSimca@347	812 end
MMOSimca@347	813
MMOSimca@347	814
MMOSimca@393	815 function ClearLootToastData()
MMOSimca@347	816 if loot_toast_data_timer_handle then
MMOSimca@383	817 loot_toast_data_timer_handle:Cancel()
MMOSimca@347	818 loot_toast_data_timer_handle = nil
MMOSimca@347	819 end
MMOSimca@347	820
MMOSimca@347	821 if loot_toast_data then
MMOSimca@347	822 table.wipe(loot_toast_data)
MMOSimca@347	823 end
MMOSimca@347	824 end
MMOSimca@347	825
MMOSimca@347	826
MMOSimca@393	827 function ClearChatLootData()
MMOSimca@398	828 if not chat_loot_timer_handle then
MMOSimca@435	829 table.wipe(chat_loot_data)
MMOSimca@398	830 return
MMOSimca@398	831 end
MMOSimca@398	832 Debug("ClearChatLootData: Ending chat-based loot timer.")
MMOSimca@398	833 chat_loot_timer_handle:Cancel()
MMOSimca@398	834 chat_loot_timer_handle = nil
atcaleb@573	835
atcaleb@573	836 -- Slimmed down (and more importantly, separate) versions of GenericLootUpdate, specifically for chat_loot_data
atcaleb@573	837 -- First version is for special item containers that 'push' loot without using a loot window
atcaleb@573	838 if chat_loot_data.identifier and chat_loot_data.loot and chat_loot_data.category == AF.ITEM and private.CONTAINER_ITEM_ID_LIST[chat_loot_data.identifier] ~= nil then
MMOSimca@414	839 local entry = DBEntry("items", chat_loot_data.identifier)
MMOSimca@414	840
MMOSimca@414	841 if entry then
MMOSimca@414	842 local loot_table = LootTable(entry, "contains")
MMOSimca@414	843 entry["contains_count"] = (entry["contains_count"] or 0) + 1
MMOSimca@414	844
MMOSimca@435	845 for loot_token, quantity in pairs(chat_loot_data.loot) do
mmosimca@496	846 local label, currency_id = (":"):split(loot_token)
mmosimca@496	847
mmosimca@496	848 if label == "currency" and currency_id then
mmosimca@496	849 -- Convert currency_id back into number from string
mmosimca@496	850 currency_id = tonumber(currency_id) or 0
mmosimca@496	851 if currency_id ~= 0 then
mmosimca@496	852 table.insert(loot_table, ("currency:%d:%d"):format(quantity, currency_id))
mmosimca@496	853 end
MMOSimca@414	854 elseif loot_token == "money" then
MMOSimca@414	855 table.insert(loot_table, ("money:%d"):format(quantity))
MMOSimca@414	856 else
MMOSimca@414	857 table.insert(loot_table, ("%d:%d"):format(loot_token, quantity))
MMOSimca@414	858 end
MMOSimca@414	859 end
MMOSimca@414	860 end
atcaleb@573	861 -- Second version is for Island Expeditions. This code is flawed (by design).
atcaleb@573	862 elseif chat_loot_data.loot and chat_loot_data.category == AF.NPC then
atcaleb@573	863 -- Iterate over all NPCs killed in an island expedition (at least by your team)
atcaleb@573	864 for island_npc_id, kill_count in pairs(killed_npcs_in_island) do
atcaleb@573	865 local npc = NPCEntry(island_npc_id)
atcaleb@573	866 if npc then
atcaleb@573	867 -- Create needed npc fields if required
atcaleb@573	868 local loot_label = "drops"
atcaleb@573	869 local encounter_data = npc:EncounterData(InstanceDifficultyToken())
atcaleb@573	870 encounter_data[loot_label] = encounter_data[loot_label] or {}
atcaleb@573	871 encounter_data.loot_counts = encounter_data.loot_counts or {}
atcaleb@573	872 encounter_data.loot_counts[loot_label] = (encounter_data.loot_counts[loot_label] or 0) + kill_count
atcaleb@573	873
atcaleb@573	874 for loot_token, quantity in pairs(chat_loot_data.loot) do
atcaleb@573	875 local label, currency_id = (":"):split(loot_token)
atcaleb@573	876
atcaleb@573	877 -- Only support items
atcaleb@573	878 if (label ~= "currency" or not currency_id) and (loot_token ~= "money") then
atcaleb@573	879 -- Ignore certain items (dubloon bags)
atcaleb@573	880 if not private.IGNORED_ISLAND_REWARDS[tonumber(loot_token)] then
atcaleb@573	881 table.insert(encounter_data[loot_label], ("%d:%d"):format(loot_token, quantity))
atcaleb@573	882 end
atcaleb@573	883 end
atcaleb@573	884 end
atcaleb@573	885 end
atcaleb@573	886 end
MMOSimca@347	887 end
atcaleb@573	888 table.wipe(killed_npcs_in_island)
MMOSimca@435	889 table.wipe(chat_loot_data)
MMOSimca@347	890 end
MMOSimca@347	891
MMOSimca@347	892
jcallahan@246	893 -- METHODS ------------------------------------------------------------
jcallahan@246	894
jcallahan@0	895 function WDP:OnInitialize()
jcallahan@128	896 local db = LibStub("AceDB-3.0"):New("WoWDBProfilerData", DATABASE_DEFAULTS, "Default")
jcallahan@270	897 private.db = db
jcallahan@128	898 global_db = db.global
jcallahan@128	899 char_db = db.char
jcallahan@14	900
jcallahan@270	901 local raw_db = _G.WoWDBProfilerData
jcallahan@18	902 local build_num = tonumber(private.build_num)
mmosimca@485	903
MMOSimca@533	904 -- Get current region from API (flawed)
MMOSimca@533	905 local current_region = _G.GetCurrentRegionName() or "XX"
mmosimca@484	906
mmosimca@484	907 -- Wipe all data if DB version or build number changed
jcallahan@136	908 if (raw_db.version and raw_db.version < DB_VERSION) or (raw_db.build_num and raw_db.build_num < build_num) then
jcallahan@74	909 for entry in pairs(DATABASE_DEFAULTS.global) do
jcallahan@128	910 global_db[entry] = {}
jcallahan@74	911 end
jcallahan@74	912 end
mmosimca@485	913 -- Wipe World Quest data if region changed
mmosimca@485	914 if raw_db.region and raw_db.region ~= current_region and global_db["world_quests"] then
mmosimca@485	915 global_db["world_quests"] = {}
mmosimca@485	916 end
mmosimca@485	917
jcallahan@35	918 raw_db.build_num = build_num
mmosimca@484	919 raw_db.region = current_region
jcallahan@63	920 raw_db.version = DB_VERSION
jcallahan@249	921
jcallahan@312	922 private.InitializeCommentSystem()
jcallahan@312	923 self:RegisterChatCommand("comment", private.ProcessCommentCommand)
jcallahan@0	924 end
jcallahan@0	925
jcallahan@0	926
jcallahan@153	927 function WDP:EventDispatcher(...)
jcallahan@153	928 local event_name = ...
jcallahan@153	929
MMOSimca@346	930 if DEBUGGING then
jcallahan@154	931 if event_name == "COMBAT_LOG_EVENT_UNFILTERED" then
jcallahan@154	932 Debug(event_name)
jcallahan@154	933 else
jcallahan@154	934 Debug(...)
jcallahan@153	935 end
jcallahan@153	936 end
jcallahan@153	937 local func = EVENT_MAPPING[event_name]
jcallahan@153	938
mmosimca@522	939 if type(func) == "boolean" then
jcallahan@153	940 self[event_name](self, ...)
mmosimca@522	941 elseif type(func) == "function" then
jcallahan@159	942 self[func](self, ...)
jcallahan@153	943 end
jcallahan@153	944 end
jcallahan@153	945
jcallahan@153	946
jcallahan@0	947 function WDP:OnEnable()
jcallahan@300	948 PLAYER_GUID = _G.UnitGUID("player")
jcallahan@300	949
jcallahan@0	950 for event_name, mapping in pairs(EVENT_MAPPING) do
jcallahan@156	951 if EVENT_DEBUG then
jcallahan@153	952 self:RegisterEvent(event_name, "EventDispatcher")
jcallahan@153	953 else
mmosimca@522	954 self:RegisterEvent(event_name, (type(mapping) ~= "boolean") and mapping or nil)
jcallahan@153	955 end
jcallahan@0	956 end
jcallahan@95	957
mmosimca@496	958 -- Gather known languages
jcallahan@95	959 for index = 1, _G.GetNumLanguages() do
jcallahan@95	960 languages_known[_G.GetLanguageByIndex(index)] = true
jcallahan@95	961 end
mmosimca@518	962
mmosimca@485	963 -- These timers loop indefinitely using Lua's infinity constant
atcaleb@562	964 item_process_timer_handle = C_Timer.NewTicker(DELAY_PROCESS_ITEMS, WDP.ProcessItems, nil)
atcaleb@562	965 target_location_timer_handle = C_Timer.NewTicker(DELAY_UPDATE_TARGET_LOCATION, WDP.UpdateTargetLocation, nil)
atcaleb@562	966 world_quest_timer_handle = C_Timer.NewTicker(DELAY_PROCESS_WORLD_QUESTS, WDP.ProcessWorldQuests, nil)
jcallahan@19	967
jcallahan@19	968 _G.hooksecurefunc("UseContainerItem", function(bag_index, slot_index, target_unit)
jcallahan@19	969 if target_unit then
jcallahan@19	970 return
jcallahan@19	971 end
jcallahan@19	972 HandleItemUse(_G.GetContainerItemLink(bag_index, slot_index), bag_index, slot_index)
jcallahan@19	973 end)
jcallahan@19	974
jcallahan@19	975 _G.hooksecurefunc("UseItemByName", function(identifier, target_unit)
jcallahan@19	976 if target_unit then
jcallahan@19	977 return
jcallahan@19	978 end
jcallahan@19	979 local _, item_link = _G.GetItemInfo(identifier)
jcallahan@19	980 HandleItemUse(item_link)
jcallahan@19	981 end)
jcallahan@263	982
jcallahan@290	983 self:GROUP_ROSTER_UPDATE()
jcallahan@0	984 end
jcallahan@0	985
jcallahan@0	986
mmosimca@485	987 -- Record data for a specific quest ID; reward data must be available or nothing will be recorded
mmosimca@485	988 -- When we reach this point, we've already checked for a valid mapID, questID, quest data, and worldQuestType
atcaleb@562	989 local function RecordWorldQuestData(quest_id, api_data_table)
atcaleb@575	990 local xp, _ = _G.GetQuestLogRewardXP(quest_id)
atcaleb@575	991
mmosimca@485	992 -- Ensure we have location data and rewards (barely readable so putting it on multiple lines)
mmosimca@487	993 -- (Honor is built in to the quest; it is not a sign rewards have been loaded)
atcaleb@562	994 if not api_data_table or not api_data_table.x or not api_data_table.y or not api_data_table.mapID or not
atcaleb@575	995 (xp > 0 or _G.GetNumQuestLogRewardCurrencies(quest_id) > 0
atcaleb@562	996 or _G.GetNumQuestLogRewards(quest_id) > 0 or _G.GetQuestLogRewardMoney(quest_id) > 0) then
atcaleb@562	997 --or _G.GetQuestLogRewardArtifactXP(quest_id) > 0)
mmosimca@485	998 return
mmosimca@485	999 end
mmosimca@485	1000
mmosimca@485	1001 local entry = DBEntry("world_quests", quest_id)
mmosimca@485	1002 if entry then
mmosimca@485	1003
mmosimca@485	1004 -- Record location
mmosimca@485	1005 entry["location"] = {}
atcaleb@562	1006 entry["location"]["world_map_id"] = api_data_table.mapID
atcaleb@562	1007 entry["location"]["x"] = api_data_table.x * 100
atcaleb@562	1008 entry["location"]["y"] = api_data_table.y * 100
mmosimca@485	1009
mmosimca@485	1010 -- Record simple rewards (XP, money, artifact XP, honor)
mmosimca@485	1011 entry["rewards"] = {}
atcaleb@575	1012 entry["rewards"]["xp"] = tonumber(xp) or 0
mmosimca@485	1013 entry["rewards"]["money"] = tonumber(_G.GetQuestLogRewardMoney(quest_id)) or 0
atcaleb@562	1014 --local actualXP, scaling = _G.GetQuestLogRewardArtifactXP(quest_id)
atcaleb@562	1015 --entry["rewards"]["artifact_xp"] = ("%d:%d"):format(tonumber(actualXP) or 0, tonumber(scaling) or 0)
mmosimca@485	1016 entry["rewards"]["honor"] = tonumber(_G.GetQuestLogRewardHonor(quest_id)) or 0
mmosimca@485	1017
mmosimca@485	1018 -- Record currencies
mmosimca@485	1019 entry["rewards"]["currency_count"] = tonumber(_G.GetNumQuestLogRewardCurrencies(quest_id)) or 0
mmosimca@485	1020
mmosimca@496	1021 -- Create currency rewards sub-table and fill
mmosimca@485	1022 if entry["rewards"]["currency_count"] > 0 then
mmosimca@485	1023 entry["rewards"]["currencies"] = {}
mmosimca@485	1024 for i = 1, entry["rewards"]["currency_count"] do
mmosimca@503	1025 local name, texture_path, quantity, currency_id = _G.GetQuestLogRewardCurrencyInfo(i, quest_id)
mmosimca@503	1026 table.insert(entry["rewards"]["currencies"], ("%d:%d"):format(quantity, currency_id))
mmosimca@485	1027 end
mmosimca@485	1028 end
mmosimca@485	1029
mmosimca@485	1030 -- Record items
mmosimca@485	1031 entry["rewards"]["item_count"] = tonumber(_G.GetNumQuestLogRewards(quest_id)) or 0
mmosimca@485	1032
mmosimca@496	1033 -- Create item rewards sub-table and fill
mmosimca@485	1034 if entry["rewards"]["item_count"] > 0 then
mmosimca@485	1035 entry["rewards"]["items"] = {}
mmosimca@485	1036 for i = 1, entry["rewards"]["item_count"] do
mmosimca@485	1037 local item_name, item_texture, quantity, quality, is_usable, item_id = _G.GetQuestLogRewardInfo(i, quest_id)
mmosimca@485	1038 table.insert(entry["rewards"]["items"], ("%d:%d"):format(item_id, quantity))
mmosimca@485	1039 end
mmosimca@485	1040 end
mmosimca@485	1041
mmosimca@485	1042 -- Record time remaining
mmosimca@485	1043 entry["estimated_end_time"] = _G.GetServerTime() + ((_G.C_TaskQuest.GetQuestTimeLeftMinutes(quest_id) or 0) * 60)
mmosimca@485	1044 end
mmosimca@485	1045 end
mmosimca@485	1046
mmosimca@485	1047
mmosimca@485	1048 function WDP:ProcessWorldQuests()
MMOSimca@532	1049 -- Ignore if player is low level (there are some world quests before max level now, but we can collect enough data from 110s alone still)
atcaleb@562	1050 if _G.UnitLevel("player") < 110 then return end
atcaleb@559	1051
atcaleb@566	1052 -- Check all first-order continents
atcaleb@566	1053 local continents = C_Map.GetMapChildrenInfo(UI_MAP_COSMIC, Enum.UIMapType.Continent, true);
atcaleb@566	1054 for i, continentInfo in ipairs(continents) do
atcaleb@566	1055
atcaleb@566	1056 -- Get continent data for World Quests
atcaleb@566	1057 local continent_api_data = C_TaskQuest.GetQuestsForPlayerByMapID(continentInfo.mapID)
atcaleb@566	1058
atcaleb@566	1059 -- If the continent has WQ data, continue
atcaleb@566	1060 if continent_api_data and type(continent_api_data) == "table" and #continent_api_data > 0 then
atcaleb@566	1061 -- Iterate over zones on continents
atcaleb@566	1062 local zones = C_Map.GetMapChildrenInfo(continentInfo.mapID, Enum.UIMapType.Zone)
atcaleb@566	1063 for j, zoneInfo in ipairs(zones) do
atcaleb@566	1064
atcaleb@566	1065 -- Get zone data for World Quests
atcaleb@566	1066 local zone_api_data = C_TaskQuest.GetQuestsForPlayerByMapID(zoneInfo.mapID);
atcaleb@566	1067
atcaleb@566	1068 -- Iterate over the questIDs for each zone, doing preload reward requests and creating SavedVariables entries
atcaleb@566	1069 if zone_api_data and type(zone_api_data) == "table" and #zone_api_data > 0 then
atcaleb@566	1070 for k = 1, #zone_api_data do
atcaleb@566	1071
atcaleb@566	1072 -- Check if we had a valid API table returned to us
atcaleb@566	1073 if zone_api_data[k] and type(zone_api_data[k]) == "table" and zone_api_data[k].questId then
atcaleb@566	1074 local quest_id = tonumber(zone_api_data[k].questId) or 0
atcaleb@566	1075
atcaleb@566	1076 -- Check if we have quest data and the quest is within this zone directly
atcaleb@566	1077 if quest_id > 0 and _G.HaveQuestData(quest_id) and QuestUtils_IsQuestWorldQuest(quest_id) and zone_api_data[k].mapID == zoneInfo.mapID then
atcaleb@566	1078 _G.C_TaskQuest.RequestPreloadRewardData(quest_id)
atcaleb@566	1079 RecordWorldQuestData(quest_id, zone_api_data[k])
atcaleb@566	1080 end
atcaleb@566	1081 end
mmosimca@485	1082 end
mmosimca@485	1083 end
mmosimca@485	1084 end
mmosimca@485	1085 end
mmosimca@485	1086 end
mmosimca@485	1087 end
mmosimca@485	1088
mmosimca@485	1089
MMOSimca@340	1090 local function RecordItemData(item_id, item_link, process_bonus_ids, durability)
jcallahan@331	1091 local _, _, item_string = item_link:find("^\|%x+\|H(.+)\|h%[.+%]")
jcallahan@219	1092 local item
jcallahan@0	1093
jcallahan@191	1094 if item_string then
MMOSimca@338	1095 local item_results = { (":"):split(item_string) }
MMOSimca@338	1096
MMOSimca@460	1097 local suffix_id = tonumber(item_results[8]) or 0
MMOSimca@462	1098 local unique_id = tonumber(item_results[9]) or 0
MMOSimca@447	1099 --local level = tonumber(item_results[10])
MMOSimca@460	1100 --local specialization_id = tonumber(item_results[11])
catherton@469	1101 --local upgrade_type_id = tonumber(item_results[12])
MMOSimca@460	1102 local instance_difficulty_id = tonumber(item_results[13]) or 0
MMOSimca@460	1103 local num_bonus_ids = tonumber(item_results[14]) or 0
catherton@471	1104 -- upgrade_value is optional in 6.2! can be detected using upgrade_type_id, but it's just as easy to check like this
catherton@469	1105 local upgrade_value = tonumber(item_results[15 + num_bonus_ids]) or 0
catherton@465	1106
mmosimca@484	1107 local unk_item_field_1 = tonumber(item_results[16 + num_bonus_ids]) or 0
mmosimca@484	1108 local unk_item_field_2 = tonumber(item_results[17 + num_bonus_ids]) or 0
mmosimca@484	1109 --if unk_item_field_1 > 0 then Debug("unk_item_field_1 for %s is non-zero, specifically %d.", item_link, unk_item_field_1) end
mmosimca@484	1110 --if unk_item_field_2 > 0 then Debug("unk_item_field_2 for %s is non-zero, specifically %d.", item_link, unk_item_field_2) end
MMOSimca@460	1111
MMOSimca@460	1112 -- If there is anything special (non-zero) for this item then we need to make note of everything
catherton@471	1113 if math.max(suffix_id, instance_difficulty_id, num_bonus_ids, upgrade_value) ~= 0 then
MMOSimca@460	1114 item = DBEntry("items", item_id)
MMOSimca@460	1115 item.suffix_id = suffix_id
MMOSimca@460	1116 item.unique_id = bit.band(unique_id, 0xFFFF)
MMOSimca@460	1117 item.instance_difficulty_id = instance_difficulty_id
catherton@471	1118 item.upgrade_value = upgrade_value
MMOSimca@460	1119
MMOSimca@460	1120 if process_bonus_ids then
MMOSimca@460	1121
MMOSimca@460	1122 -- Get ready for bonus IDs
MMOSimca@384	1123 if not item.seen_bonuses then
MMOSimca@384	1124 item.seen_bonuses = {}
MMOSimca@372	1125 end
catherton@465	1126
MMOSimca@460	1127 if num_bonus_ids > 0 then
MMOSimca@460	1128 -- We want the bonus ID combo output to be in the form ["bonusID1:bonusID2:bonusID3"] = true
MMOSimca@460	1129 -- And sorted numerically with the smallest bonusID first
MMOSimca@460	1130 local sorted_bonus_string = ""
MMOSimca@460	1131 local min_bonus_id_array = {}
MMOSimca@460	1132 for iterations = 1, num_bonus_ids do
MMOSimca@460	1133 -- Find minimum of this iteration
MMOSimca@460	1134 local min_bonus_id = 100000
MMOSimca@460	1135 for bonus_index = 1, num_bonus_ids do
MMOSimca@460	1136 local temp_bonus_id = tonumber(item_results[14 + bonus_index])
MMOSimca@460	1137 if temp_bonus_id and (not min_bonus_id_array[temp_bonus_id]) and (temp_bonus_id < min_bonus_id) then
MMOSimca@460	1138 min_bonus_id = temp_bonus_id
MMOSimca@460	1139 end
MMOSimca@460	1140 end
MMOSimca@460	1141
MMOSimca@460	1142 -- Keep track of already processed IDs
MMOSimca@460	1143 min_bonus_id_array[min_bonus_id] = true
MMOSimca@460	1144
MMOSimca@460	1145 -- Build string
MMOSimca@460	1146 if iterations == 1 then
MMOSimca@460	1147 sorted_bonus_string = sorted_bonus_string .. tostring(min_bonus_id)
MMOSimca@460	1148 else
MMOSimca@460	1149 sorted_bonus_string = sorted_bonus_string .. ":" .. tostring(min_bonus_id)
MMOSimca@460	1150 end
MMOSimca@384	1151 end
MMOSimca@460	1152
MMOSimca@460	1153 item.seen_bonuses[sorted_bonus_string] = true
MMOSimca@460	1154 Debug("RecordItemData: Recorded bonus IDs %s for item %d.", sorted_bonus_string, item_id)
MMOSimca@384	1155 else
MMOSimca@460	1156 item.seen_bonuses["0"] = true
MMOSimca@384	1157 end
MMOSimca@329	1158 end
jcallahan@191	1159 end
jcallahan@0	1160 end
jcallahan@212	1161
jcallahan@212	1162 if durability and durability > 0 then
jcallahan@219	1163 item = item or DBEntry("items", item_id)
jcallahan@212	1164 item.durability = durability
jcallahan@212	1165 end
jcallahan@0	1166 end
jcallahan@0	1167
jcallahan@0	1168
jcallahan@187	1169 function WDP:ProcessItems()
jcallahan@187	1170 for slot_index = _G.INVSLOT_FIRST_EQUIPPED, _G.INVSLOT_LAST_EQUIPPED do
jcallahan@1	1171 local item_id = _G.GetInventoryItemID("player", slot_index)
jcallahan@0	1172
jcallahan@0	1173 if item_id and item_id > 0 then
jcallahan@1	1174 local _, max_durability = _G.GetInventoryItemDurability(slot_index)
MMOSimca@340	1175 RecordItemData(item_id, _G.GetInventoryItemLink("player", slot_index), false, max_durability)
jcallahan@0	1176 end
jcallahan@0	1177 end
jcallahan@0	1178
jcallahan@0	1179 for bag_index = 0, _G.NUM_BAG_SLOTS do
jcallahan@0	1180 for slot_index = 1, _G.GetContainerNumSlots(bag_index) do
jcallahan@1	1181 local item_id = _G.GetContainerItemID(bag_index, slot_index)
jcallahan@0	1182
jcallahan@0	1183 if item_id and item_id > 0 then
jcallahan@1	1184 local _, max_durability = _G.GetContainerItemDurability(bag_index, slot_index)
MMOSimca@340	1185 RecordItemData(item_id, _G.GetContainerItemLink(bag_index, slot_index), false, max_durability)
jcallahan@0	1186 end
jcallahan@0	1187 end
jcallahan@0	1188 end
jcallahan@0	1189 end
jcallahan@0	1190
jcallahan@118	1191
atcaleb@558	1192 local function TargetedNPC()
atcaleb@558	1193 if not _G.UnitExists("target") or _G.UnitPlayerControlled("target") or currently_drunk then
atcaleb@558	1194 current_target_id = nil
atcaleb@558	1195 return
atcaleb@558	1196 end
atcaleb@558	1197 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("target"))
atcaleb@558	1198
atcaleb@558	1199 if not unit_idnum or not UnitTypeIsNPC(unit_type) then
atcaleb@558	1200 return
atcaleb@558	1201 end
atcaleb@558	1202 current_target_id = unit_idnum
atcaleb@558	1203
atcaleb@558	1204 local npc = NPCEntry(unit_idnum)
atcaleb@558	1205 local _, class_token = _G.UnitClass("target")
atcaleb@558	1206 npc.class = class_token
atcaleb@558	1207 npc.faction = UnitFactionStanding("target")
atcaleb@558	1208 npc.genders = npc.genders or {}
atcaleb@558	1209 npc.genders[private.GENDER_NAMES[_G.UnitSex("target")] or "UNDEFINED"] = true
atcaleb@558	1210 npc.is_pvp = _G.UnitIsPVP("target") and true or nil
atcaleb@558	1211 npc.reaction = ("%s:%s:%s"):format(_G.UnitLevel("player"), _G.UnitFactionGroup("player"), private.REACTION_NAMES[_G.UnitReaction("player", "target")])
atcaleb@558	1212
atcaleb@558	1213 local encounter_data = npc:EncounterData(InstanceDifficultyToken()).stats
atcaleb@558	1214 local npc_level = ("level_%d"):format(_G.UnitLevel("target"))
atcaleb@558	1215 local level_data = encounter_data[npc_level]
atcaleb@558	1216
atcaleb@558	1217 if not level_data then
atcaleb@558	1218 level_data = {}
atcaleb@558	1219 encounter_data[npc_level] = level_data
atcaleb@558	1220 end
atcaleb@558	1221 level_data.max_health = level_data.max_health or _G.UnitHealthMax("target")
atcaleb@558	1222
atcaleb@558	1223 -- May not capture as much data as it could, since the API changed in Legion to report multiple types of power
atcaleb@558	1224 if not level_data.power then
atcaleb@558	1225 local max_power = _G.UnitPowerMax("target")
atcaleb@558	1226
atcaleb@558	1227 if max_power > 0 then
atcaleb@558	1228 local power_type = _G.UnitPowerType("target")
atcaleb@558	1229 level_data.power = ("%s:%d"):format(private.POWER_TYPE_NAMES[tostring(power_type)] or power_type, max_power)
jcallahan@118	1230 end
jcallahan@118	1231 end
atcaleb@558	1232 name_to_id_map[_G.UnitName("target")] = unit_idnum
atcaleb@558	1233 return npc, unit_idnum
atcaleb@558	1234 end
jcallahan@118	1235
jcallahan@118	1236
jcallahan@113	1237 do
jcallahan@113	1238 local COORD_MAX = 5
jcallahan@0	1239
jcallahan@113	1240 function WDP:UpdateTargetLocation()
catherton@480	1241 if currently_drunk or not _G.UnitExists("target") or _G.UnitPlayerControlled("target") or (_G.UnitIsTapDenied("target") and not _G.UnitIsDead("target")) then
jcallahan@2	1242 return
jcallahan@2	1243 end
jcallahan@113	1244
jcallahan@113	1245 for index = 1, 4 do
jcallahan@113	1246 if not _G.CheckInteractDistance("target", index) then
jcallahan@113	1247 return
jcallahan@113	1248 end
jcallahan@113	1249 end
jcallahan@215	1250 local npc = TargetedNPC()
jcallahan@113	1251
jcallahan@113	1252 if not npc then
jcallahan@113	1253 return
jcallahan@113	1254 end
jcallahan@113	1255 local zone_name, area_id, x, y, map_level, difficulty_token = CurrentLocationData()
MMOSimca@328	1256 if not (zone_name and area_id and x and y and map_level) then
mmosimca@508	1257 if not (_G.IsInInstance()) then
mmosimca@508	1258 Debug("UpdateTargetLocation: Missing current location data - %s, %s, %s, %s, %s.", tostring(zone_name), tostring(area_id), tostring(x), tostring(y), tostring(map_level))
mmosimca@508	1259 end
MMOSimca@328	1260 return
MMOSimca@328	1261 end
jcallahan@248	1262 local npc_data = npc:EncounterData(difficulty_token).stats[("level_%d"):format(_G.UnitLevel("target"))]
jcallahan@113	1263 local zone_token = ("%s:%d"):format(zone_name, area_id)
jcallahan@118	1264 npc_data.locations = npc_data.locations or {} -- TODO: Fix this. It is broken. Possibly something to do with the timed updates.
jcallahan@113	1265
jcallahan@113	1266 local zone_data = npc_data.locations[zone_token]
jcallahan@113	1267
jcallahan@113	1268 if not zone_data then
jcallahan@113	1269 zone_data = {}
jcallahan@113	1270 npc_data.locations[zone_token] = zone_data
jcallahan@113	1271 end
jcallahan@113	1272
jcallahan@113	1273 for location_token in pairs(zone_data) do
jcallahan@113	1274 local loc_level, loc_x, loc_y = (":"):split(location_token)
jcallahan@113	1275 loc_level = tonumber(loc_level)
jcallahan@113	1276
jcallahan@113	1277 if map_level == loc_level and math.abs(x - loc_x) <= COORD_MAX and math.abs(y - loc_y) <= COORD_MAX then
jcallahan@113	1278 return
jcallahan@113	1279 end
jcallahan@113	1280 end
jcallahan@141	1281 zone_data[("%d:%d:%d"):format(map_level, x, y)] = true
jcallahan@2	1282 end
jcallahan@113	1283 end -- do-block
jcallahan@2	1284
jcallahan@118	1285
MMOSimca@412	1286 function WDP:HandleBadChatLootData(...)
MMOSimca@398	1287 ClearChatLootData()
MMOSimca@398	1288 end
MMOSimca@398	1289
MMOSimca@398	1290
MMOSimca@420	1291 -- EVENT HANDLERS -----------------------------------------------------
MMOSimca@420	1292
MMOSimca@436	1293 -- This function (and the following function) are to stop 'HandleItemUse' from triggering when you put an item that would normally be opened into the bank, guild bank, etc.
MMOSimca@436	1294 function WDP:StopChatLootRecording(event_name)
MMOSimca@436	1295 if not block_chat_loot_data then
MMOSimca@439	1296 Debug("%s: Pausing chat-based loot recording.", event_name)
MMOSimca@436	1297 ClearChatLootData()
MMOSimca@436	1298 block_chat_loot_data = true
MMOSimca@436	1299 end
MMOSimca@436	1300 end
MMOSimca@436	1301
MMOSimca@436	1302
MMOSimca@436	1303 function WDP:ResumeChatLootRecording(event_name)
MMOSimca@436	1304 if block_chat_loot_data then
MMOSimca@439	1305 Debug("%s: Resuming chat-based loot recording.", event_name)
MMOSimca@436	1306 block_chat_loot_data = false
MMOSimca@436	1307 end
MMOSimca@436	1308 end
MMOSimca@436	1309
MMOSimca@436	1310
MMOSimca@408	1311 -- For now, bonus roll data only pollutes the true drop percentages. We still want to capture the data from SPELL_CONFIRMATION_PROMPT because of legendary quest items though.
MMOSimca@408	1312 function WDP:BONUS_ROLL_RESULT(event_name)
MMOSimca@408	1313 Debug("%s: Bonus roll detected; stopping loot recording for this boss to avoid recording bonus loot.", event_name)
MMOSimca@408	1314 ClearKilledBossID()
MMOSimca@408	1315 ClearLootToastContainerID()
MMOSimca@408	1316 end
MMOSimca@408	1317
MMOSimca@408	1318
atcaleb@573	1319 -- Store all known killed NPCs during an island in a table
atcaleb@573	1320 function WDP:ISLAND_AZERITE_GAIN(event_name, amount, gained_by_player, faction_index, gained_by, gained_from)
atcaleb@573	1321 -- Exit now if GUID is not for an NPC
atcaleb@573	1322 local unit_type, unit_id = ParseGUID(gained_from)
atcaleb@573	1323 if not UnitTypeIsNPC(unit_type) then
atcaleb@573	1324 return
atcaleb@573	1325 end
atcaleb@573	1326
atcaleb@573	1327 -- Otherwise, store the NPC ID in the island kill table (if it already exists there, increment its count by 1)
atcaleb@573	1328 Debug("%s: Recording killed island NPC with ID #%d.", event_name, unit_id)
atcaleb@573	1329 if killed_npcs_in_island[unit_id] then
atcaleb@573	1330 killed_npcs_in_island[unit_id] = killed_npcs_in_island[unit_id] + 1
atcaleb@573	1331 else
atcaleb@573	1332 killed_npcs_in_island[unit_id] = 1
atcaleb@573	1333 end
atcaleb@573	1334 end
atcaleb@573	1335
atcaleb@573	1336
atcaleb@573	1337 -- Start chat loot timer for NPCs (and store general island information)
atcaleb@573	1338 function WDP:ISLAND_COMPLETED(event_name)
atcaleb@573	1339 island_difficulty_token = InstanceDifficultyToken()
atcaleb@573	1340
atcaleb@573	1341 Debug("%s: Beginning chat-based loot timer for Island Expedition rewards.", event_name, item_id)
atcaleb@573	1342 chat_loot_timer_handle = C_Timer.NewTimer(1.5, ClearChatLootData)
atcaleb@573	1343 chat_loot_data.category = AF.NPC
atcaleb@573	1344 chat_loot_data.identifier = 0
atcaleb@573	1345 end
atcaleb@573	1346
atcaleb@573	1347
jcallahan@90	1348 function WDP:BLACK_MARKET_ITEM_UPDATE(event_name)
jcallahan@243	1349 if not ALLOWED_LOCALES[CLIENT_LOCALE] then
jcallahan@243	1350 return
jcallahan@243	1351 end
jcallahan@282	1352 local num_items = _G.C_BlackMarket.GetNumItems() or 0
jcallahan@56	1353
jcallahan@56	1354 for index = 1, num_items do
jcallahan@56	1355 local name, texture, quantity, item_type, is_usable, level, level_type, seller_name, min_bid, min_increment, current_bid, has_high_bid, num_bids, time_left, item_link, market_id = _G.C_BlackMarket.GetItemInfoByIndex(index);
jcallahan@56	1356
jcallahan@56	1357 if item_link then
jcallahan@56	1358 DBEntry("items", ItemLinkToID(item_link)).black_market = seller_name or "UNKNOWN"
jcallahan@56	1359 end
jcallahan@56	1360 end
jcallahan@56	1361 end
jcallahan@56	1362
jcallahan@56	1363
jcallahan@298	1364 local function UpdateUnitPet(unit_guid, unit_id)
jcallahan@246	1365 local current_pet_guid = group_owner_guids_to_pet_guids[unit_guid]
jcallahan@246	1366
jcallahan@246	1367 if current_pet_guid then
jcallahan@246	1368 group_owner_guids_to_pet_guids[unit_guid] = nil
jcallahan@246	1369 group_pet_guids[current_pet_guid] = nil
jcallahan@246	1370 end
jcallahan@246	1371 local pet_guid = _G.UnitGUID(unit_id .. "pet")
jcallahan@246	1372
jcallahan@246	1373 if pet_guid then
jcallahan@296	1374 group_owner_guids_to_pet_guids[unit_guid] = pet_guid
jcallahan@246	1375 group_pet_guids[pet_guid] = true
jcallahan@246	1376 end
jcallahan@246	1377 end
jcallahan@246	1378
jcallahan@246	1379
jcallahan@298	1380 function WDP:GROUP_ROSTER_UPDATE(event_name)
jcallahan@298	1381 local is_raid = _G.IsInRaid()
jcallahan@298	1382 local unit_type = is_raid and "raid" or "party"
jcallahan@298	1383 local group_size = is_raid and _G.GetNumGroupMembers() or _G.GetNumSubgroupMembers()
jcallahan@298	1384
jcallahan@299	1385 table.wipe(group_member_guids)
jcallahan@298	1386
jcallahan@298	1387 for index = 1, group_size do
jcallahan@298	1388 local unit_id = unit_type .. index
jcallahan@298	1389 local unit_guid = _G.UnitGUID(unit_id)
jcallahan@298	1390
jcallahan@299	1391 group_member_guids[unit_guid] = true
jcallahan@298	1392 UpdateUnitPet(unit_guid, unit_id)
jcallahan@298	1393 end
jcallahan@299	1394 group_member_guids[PLAYER_GUID] = true
jcallahan@298	1395 end
jcallahan@298	1396
jcallahan@298	1397
jcallahan@298	1398 function WDP:UNIT_PET(event_name, unit_id)
jcallahan@298	1399 UpdateUnitPet(_G.UnitGUID(unit_id), unit_id)
jcallahan@298	1400 end
jcallahan@298	1401
jcallahan@298	1402
MMOSimca@375	1403 function WDP:SHOW_LOOT_TOAST(event_name, loot_type, item_link, quantity, spec_ID, sex_ID, is_personal, loot_source)
jcallahan@312	1404 if not loot_type or (loot_type ~= "item" and loot_type ~= "money" and loot_type ~= "currency") then
jcallahan@306	1405 Debug("%s: loot_type is %s. Item link is %s, and quantity is %d.", event_name, loot_type, item_link, quantity)
jcallahan@306	1406 return
jcallahan@306	1407 end
MMOSimca@372	1408
MMOSimca@372	1409 -- Need information on the most recent args, so using this complete debug statement for now
MMOSimca@375	1410 Debug("%s: loot_type: %s, item_link: %s, quantity: %s, spec_ID: %s, sex_ID: %s, is_personal: %s, loot_source: %s", event_name, loot_type, item_link, quantity, spec_ID, sex_ID, is_personal, loot_source)
MMOSimca@372	1411
MMOSimca@355	1412 -- Handle Garrison cache specially
MMOSimca@422	1413 if loot_source and (loot_source == LOOT_SOURCE_ID_GARRISON_CACHE) and last_garrison_cache_object_id then
MMOSimca@355	1414 -- Record location data for cache
MMOSimca@355	1415 UpdateDBEntryLocation("objects", ("OPENING:%d"):format(last_garrison_cache_object_id))
MMOSimca@355	1416
MMOSimca@355	1417 -- Add drop data
mmosimca@496	1418 local currency_id = CurrencyLinkToID(item_link)
mmosimca@496	1419 if currency_id and currency_id ~= 0 then
MMOSimca@355	1420 -- Check for top level object data
MMOSimca@355	1421 local object_entry = DBEntry("objects", ("OPENING:%d"):format(last_garrison_cache_object_id))
MMOSimca@355	1422 local difficulty_token = InstanceDifficultyToken()
MMOSimca@355	1423 if object_entry[difficulty_token] then
MMOSimca@355	1424 -- Increment loot count
MMOSimca@355	1425 object_entry[difficulty_token]["opening_count"] = (object_entry[difficulty_token]["opening_count"] or 0) + 1
MMOSimca@355	1426
mmosimca@496	1427 Debug("%s: %d X %d", event_name, currency_id, quantity)
MMOSimca@355	1428 object_entry[difficulty_token]["opening"] = object_entry[difficulty_token]["opening"] or {}
mmosimca@496	1429 table.insert(object_entry[difficulty_token]["opening"], ("currency:%d:%d"):format(quantity, currency_id))
MMOSimca@355	1430 else
MMOSimca@355	1431 Debug("%s: When handling the Garrison cache, the top level loot data was missing for objectID %d.", event_name, last_garrison_cache_object_id)
MMOSimca@355	1432 end
MMOSimca@355	1433 else
mmosimca@496	1434 Debug("%s: Currency ID is nil or 0, from currency link %s", event_name, item_link)
MMOSimca@355	1435 end
catherton@465	1436
MMOSimca@431	1437 -- Wipe object ID until future mouseover
MMOSimca@431	1438 last_garrison_cache_object_id = nil
MMOSimca@387	1439 elseif raid_boss_id then
MMOSimca@427	1440 local npc = NPCEntry(raid_boss_id)
MMOSimca@427	1441 if npc then
MMOSimca@427	1442 local loot_label = "drops"
MMOSimca@427	1443 local encounter_data = npc:EncounterData(InstanceDifficultyToken())
MMOSimca@427	1444 encounter_data[loot_label] = encounter_data[loot_label] or {}
MMOSimca@427	1445 encounter_data.loot_counts = encounter_data.loot_counts or {}
MMOSimca@427	1446
MMOSimca@427	1447 if loot_type == "item" then
MMOSimca@427	1448 local item_id = ItemLinkToID(item_link)
MMOSimca@427	1449 if item_id then
MMOSimca@427	1450 Debug("%s: %s X %d (%d)", event_name, item_link, quantity, item_id)
MMOSimca@427	1451 RecordItemData(item_id, item_link, true)
MMOSimca@427	1452 table.insert(encounter_data[loot_label], ("%d:%d"):format(item_id, quantity))
MMOSimca@427	1453 else
MMOSimca@427	1454 Debug("%s: ItemID is nil, from item link %s", event_name, item_link)
MMOSimca@427	1455 return
MMOSimca@427	1456 end
MMOSimca@427	1457 elseif loot_type == "money" then
MMOSimca@427	1458 Debug("%s: money X %d", event_name, quantity)
MMOSimca@427	1459 table.insert(encounter_data[loot_label], ("money:%d"):format(quantity))
MMOSimca@427	1460 elseif loot_type == "currency" then
mmosimca@496	1461 local currency_id = CurrencyLinkToID(item_link)
mmosimca@496	1462 if currency_id and currency_id ~= 0 then
mmosimca@496	1463 Debug("%s: %d X %d", event_name, currency_id, quantity)
mmosimca@496	1464 table.insert(encounter_data[loot_label], ("currency:%d:%d"):format(quantity, currency_id))
MMOSimca@427	1465 else
mmosimca@496	1466 Debug("%s: Currency ID is nil or 0, from currency link %s", event_name, item_link)
MMOSimca@427	1467 return
MMOSimca@427	1468 end
jcallahan@312	1469 end
jcallahan@317	1470
MMOSimca@427	1471 if not boss_loot_toasting[raid_boss_id] then
MMOSimca@427	1472 encounter_data.loot_counts[loot_label] = (encounter_data.loot_counts[loot_label] or 0) + 1
MMOSimca@427	1473 boss_loot_toasting[raid_boss_id] = true -- Do not count further loots until timer expires or another boss is killed
jcallahan@312	1474 end
jcallahan@312	1475 end
MMOSimca@387	1476 elseif loot_toast_container_id then
jcallahan@305	1477 InitializeCurrentLoot()
jcallahan@305	1478
jcallahan@306	1479 -- Fake the loot characteristics to match that of an actual container item
MMOSimca@387	1480 current_loot.identifier = loot_toast_container_id
jcallahan@306	1481 current_loot.label = "contains"
jcallahan@306	1482 current_loot.target_type = AF.ITEM
jcallahan@306	1483
MMOSimca@387	1484 current_loot.sources[loot_toast_container_id] = current_loot.sources[loot_toast_container_id] or {}
jcallahan@312	1485
jcallahan@301	1486 if loot_type == "item" then
jcallahan@312	1487 local item_id = ItemLinkToID(item_link)
jcallahan@312	1488 if item_id then
jcallahan@312	1489 Debug("%s: %s X %d (%d)", event_name, item_link, quantity, item_id)
MMOSimca@340	1490 RecordItemData(item_id, item_link, true)
MMOSimca@387	1491 current_loot.sources[loot_toast_container_id][item_id] = (current_loot.sources[loot_toast_container_id][item_id] or 0) + quantity
jcallahan@312	1492 else
jcallahan@301	1493 Debug("%s: ItemID is nil, from item link %s", event_name, item_link)
jcallahan@312	1494 current_loot = nil
jcallahan@301	1495 return
jcallahan@301	1496 end
jcallahan@301	1497 elseif loot_type == "money" then
jcallahan@312	1498 Debug("%s: money X %d", event_name, quantity)
MMOSimca@387	1499 current_loot.sources[loot_toast_container_id]["money"] = (current_loot.sources[loot_toast_container_id]["money"] or 0) + quantity
jcallahan@312	1500 elseif loot_type == "currency" then
mmosimca@496	1501 local currency_id = CurrencyLinkToID(item_link)
mmosimca@496	1502 if currency_id and currency_id ~= 0 then
mmosimca@496	1503 Debug("%s: %d X %d", event_name, currency_id, quantity)
mmosimca@496	1504 local currency_token = ("currency:%d"):format(currency_id)
MMOSimca@387	1505 current_loot.sources[loot_toast_container_id][currency_token] = (current_loot.sources[loot_toast_container_id][currency_token] or 0) + quantity
jcallahan@312	1506 else
mmosimca@496	1507 Debug("%s: Currency ID is nil or 0, from currency link %s", event_name, item_link)
jcallahan@312	1508 current_loot = nil
jcallahan@312	1509 return
jcallahan@312	1510 end
jcallahan@301	1511 end
jcallahan@312	1512
jcallahan@301	1513 GenericLootUpdate("items")
jcallahan@301	1514 current_loot = nil
MMOSimca@387	1515 container_loot_toasting = true -- Do not count further loots until timer expires or another container is opened
atcaleb@573	1516 elseif loot_source and chat_loot_timer_handle and chat_loot_data.category == AF.ITEM then
MMOSimca@444	1517 -- Handle currency loot toasts for chat-based loot (we do this instead of reading currency chat messages because the chat messages are very delayed)
MMOSimca@444	1518 if loot_type == "currency" then
mmosimca@496	1519 local currency_id = CurrencyLinkToID(item_link)
mmosimca@496	1520 if currency_id and currency_id ~= 0 then
MMOSimca@444	1521 -- Verify that we're still assigning data to the right items
atcaleb@573	1522 if chat_loot_data.category == AF.ITEM and chat_loot_data.identifier and (private.CONTAINER_ITEM_ID_LIST[chat_loot_data.identifier] ~= nil) then
mmosimca@496	1523 Debug("%s: Captured currency for chat-based loot recording. %d X %d", event_name, currency_id, quantity)
mmosimca@496	1524 local currency_token = ("currency:%d"):format(currency_id)
MMOSimca@444	1525 chat_loot_data.loot = chat_loot_data.loot or {}
MMOSimca@444	1526 chat_loot_data.loot[currency_token] = (chat_loot_data.loot[currency_token] or 0) + quantity
MMOSimca@444	1527 else -- If not, cancel the timer and wipe the loot table early
MMOSimca@444	1528 Debug("%s: Canceled chat-based loot recording because we would have assigned the wrong loot!", event_name)
MMOSimca@444	1529 ClearChatLootData()
MMOSimca@444	1530 end
MMOSimca@444	1531 else
mmosimca@496	1532 Debug("%s: Currency ID is nil or 0, from currency link %s", event_name, item_link)
MMOSimca@444	1533 end
MMOSimca@444	1534 -- Handle money loot toasts for chat-based loot (we do this instead of reading money chat messages because the chat messages are very delayed)
MMOSimca@444	1535 elseif loot_type == "money" then
MMOSimca@424	1536 -- Verify that we're still assigning data to the right items
atcaleb@573	1537 if chat_loot_data.category == AF.ITEM and chat_loot_data.identifier and (private.CONTAINER_ITEM_ID_LIST[chat_loot_data.identifier] ~= nil) then
MMOSimca@444	1538 Debug("%s: Captured money for chat-based loot recording. money X %d", event_name, quantity)
MMOSimca@435	1539 chat_loot_data.loot = chat_loot_data.loot or {}
MMOSimca@444	1540 chat_loot_data.loot["money"] = (chat_loot_data.loot["money"] or 0) + quantity
MMOSimca@424	1541 else -- If not, cancel the timer and wipe the loot table early
MMOSimca@424	1542 Debug("%s: Canceled chat-based loot recording because we would have assigned the wrong loot!", event_name)
MMOSimca@424	1543 ClearChatLootData()
MMOSimca@424	1544 end
MMOSimca@424	1545 end
jcallahan@301	1546 else
jcallahan@307	1547 Debug("%s: NPC and Container are nil, storing loot toast data for 5 seconds.", event_name)
jcallahan@307	1548
jcallahan@307	1549 loot_toast_data = loot_toast_data or {}
jcallahan@312	1550 loot_toast_data[#loot_toast_data + 1] = { loot_type, item_link, quantity }
jcallahan@307	1551
MMOSimca@340	1552 local item_id = ItemLinkToID(item_link)
MMOSimca@340	1553 if item_id then
MMOSimca@340	1554 RecordItemData(item_id, item_link, true)
MMOSimca@340	1555 end
MMOSimca@340	1556
MMOSimca@383	1557 loot_toast_data_timer_handle = C_Timer.NewTimer(5, ClearLootToastData)
jcallahan@178	1558 end
jcallahan@178	1559 end
jcallahan@178	1560
jcallahan@178	1561
jcallahan@179	1562 do
MMOSimca@388	1563 local CHAT_MSG_CURRENCY_UPDATE_FUNCS = {
mmosimca@496	1564 [AF.NPC] = function(currency_id, quantity)
mmosimca@496	1565 Debug("CHAT_MSG_CURRENCY: AF.NPC currency:%d (%d)", currency_id, quantity)
MMOSimca@388	1566 end,
mmosimca@496	1567 [AF.ZONE] = function(currency_id, quantity)
mmosimca@496	1568 Debug("CHAT_MSG_CURRENCY: AF.ZONE currency:%d (%d)", currency_id, quantity)
MMOSimca@388	1569 InitializeCurrentLoot()
mmosimca@496	1570 current_loot.list[1] = ("currency:%d:%d"):format(quantity, currency_id)
MMOSimca@388	1571 GenericLootUpdate("zones")
MMOSimca@388	1572 current_loot = nil
MMOSimca@388	1573 end,
MMOSimca@388	1574 }
MMOSimca@388	1575
MMOSimca@388	1576
MMOSimca@388	1577 function WDP:CHAT_MSG_CURRENCY(event_name, message)
MMOSimca@388	1578 local category
MMOSimca@388	1579
MMOSimca@388	1580 local currency_link, quantity = deformat(message, _G.CURRENCY_GAINED_MULTIPLE)
MMOSimca@388	1581 if not currency_link then
MMOSimca@388	1582 quantity, currency_link = 1, deformat(message, _G.CURRENCY_GAINED)
MMOSimca@388	1583 end
mmosimca@496	1584 local currency_id = CurrencyLinkToID(currency_link)
mmosimca@496	1585
mmosimca@496	1586 if not currency_id or currency_id == 0 then
MMOSimca@388	1587 return
MMOSimca@388	1588 end
MMOSimca@388	1589
MMOSimca@388	1590 -- Set update category
MMOSimca@388	1591 if current_action.spell_label == "FISHING" then
MMOSimca@388	1592 category = AF.ZONE
MMOSimca@388	1593 elseif raid_boss_id then
MMOSimca@388	1594 category = AF.NPC
MMOSimca@388	1595 end
MMOSimca@388	1596
MMOSimca@388	1597 -- Take action based on update category
MMOSimca@388	1598 local update_func = CHAT_MSG_CURRENCY_UPDATE_FUNCS[category]
MMOSimca@388	1599 if not category or not update_func then
MMOSimca@388	1600 return
MMOSimca@388	1601 end
mmosimca@496	1602 update_func(currency_id, quantity)
MMOSimca@388	1603 end
MMOSimca@388	1604
MMOSimca@388	1605
jcallahan@179	1606 local CHAT_MSG_LOOT_UPDATE_FUNCS = {
atcaleb@573	1607 -- Handle chat loot data from item containers
MMOSimca@347	1608 [AF.ITEM] = function(item_id, quantity)
MMOSimca@347	1609 -- Verify that we're still assigning data to the right items
MMOSimca@435	1610 if chat_loot_data.identifier and (private.CONTAINER_ITEM_ID_LIST[chat_loot_data.identifier] ~= nil) then
MMOSimca@347	1611 Debug("CHAT_MSG_LOOT: AF.ITEM %d (%d)", item_id, quantity)
MMOSimca@435	1612 chat_loot_data.loot = chat_loot_data.loot or {}
MMOSimca@435	1613 chat_loot_data.loot[item_id] = (chat_loot_data.loot[item_id] or 0) + quantity
MMOSimca@347	1614 else -- If not, cancel the timer and wipe the loot table early
MMOSimca@387	1615 Debug("CHAT_MSG_LOOT: We would have assigned the wrong loot!")
MMOSimca@387	1616 ClearChatLootData()
MMOSimca@347	1617 end
MMOSimca@347	1618 end,
atcaleb@573	1619 -- Handle chat loot data from island expedition rewards
jcallahan@179	1620 [AF.NPC] = function(item_id, quantity)
MMOSimca@345	1621 Debug("CHAT_MSG_LOOT: AF.NPC %d (%d)", item_id, quantity)
atcaleb@573	1622 chat_loot_data.loot = chat_loot_data.loot or {}
atcaleb@573	1623 chat_loot_data.loot[item_id] = (chat_loot_data.loot[item_id] or 0) + quantity
MMOSimca@345	1624 end,
atcaleb@573	1625 -- Handle logging spells for objects
MMOSimca@345	1626 [AF.OBJECT] = function(item_id, quantity)
MMOSimca@345	1627 Debug("CHAT_MSG_LOOT: AF.OBJECT %d (%d)", item_id, quantity)
MMOSimca@381	1628 -- Check for top level object data
MMOSimca@381	1629 local object_entry = DBEntry("objects", ("OPENING:%s"):format(private.LOGGING_SPELL_ID_TO_OBJECT_ID_MAP[last_timber_spell_id]))
MMOSimca@381	1630 local difficulty_token = InstanceDifficultyToken()
MMOSimca@381	1631 if object_entry[difficulty_token] then
MMOSimca@381	1632 -- Increment loot count
MMOSimca@381	1633 object_entry[difficulty_token]["opening_count"] = (object_entry[difficulty_token]["opening_count"] or 0) + 1
MMOSimca@381	1634
MMOSimca@381	1635 -- Add drop data
MMOSimca@381	1636 object_entry[difficulty_token]["opening"] = object_entry[difficulty_token]["opening"] or {}
MMOSimca@381	1637 table.insert(object_entry[difficulty_token]["opening"], ("%d:%d"):format(item_id, quantity))
MMOSimca@381	1638 else
MMOSimca@381	1639 Debug("CHAT_MSG_LOOT: When handling timber, the top level data was missing for objectID %s.", private.LOGGING_SPELL_ID_TO_OBJECT_ID_MAP[last_timber_spell_id])
MMOSimca@381	1640 end
jcallahan@179	1641 end,
atcaleb@573	1642 -- Handle fishing loot table population
jcallahan@179	1643 [AF.ZONE] = function(item_id, quantity)
MMOSimca@345	1644 Debug("CHAT_MSG_LOOT: AF.ZONE %d (%d)", item_id, quantity)
jcallahan@312	1645 InitializeCurrentLoot()
jcallahan@312	1646 current_loot.list[1] = ("%d:%d"):format(item_id, quantity)
jcallahan@179	1647 GenericLootUpdate("zones")
jcallahan@312	1648 current_loot = nil
jcallahan@179	1649 end,
jcallahan@179	1650 }
jcallahan@177	1651
jcallahan@177	1652
MMOSimca@388	1653 function WDP:CHAT_MSG_LOOT(event_name, message)
jcallahan@179	1654 local category
jcallahan@177	1655
MMOSimca@345	1656 local item_link, quantity = deformat(message, _G.LOOT_ITEM_PUSHED_SELF_MULTIPLE)
MMOSimca@345	1657 if not item_link then
MMOSimca@345	1658 quantity, item_link = 1, deformat(message, _G.LOOT_ITEM_PUSHED_SELF)
MMOSimca@345	1659 end
MMOSimca@345	1660 local item_id = ItemLinkToID(item_link)
MMOSimca@345	1661
MMOSimca@345	1662 if not item_id then
MMOSimca@345	1663 return
MMOSimca@345	1664 end
MMOSimca@345	1665
MMOSimca@345	1666 -- Set update category
MMOSimca@405	1667 if last_timber_spell_id and item_id == ITEM_ID_TIMBER then
MMOSimca@345	1668 category = AF.OBJECT
atcaleb@573	1669 -- Changed from ~= "EXTRACT_GAS" because of some occassional bad data, and, as far as I know, no benefit.
MMOSimca@345	1670 elseif current_action.spell_label == "FISHING" then
jcallahan@179	1671 category = AF.ZONE
atcaleb@573	1672 elseif not raid_boss_id and chat_loot_timer_handle and chat_loot_data.category == AF.NPC then
jcallahan@179	1673 category = AF.NPC
atcaleb@573	1674 elseif not raid_boss_id and chat_loot_timer_handle and chat_loot_data.category == AF.ITEM then
MMOSimca@347	1675 category = AF.ITEM
jcallahan@179	1676 end
MMOSimca@345	1677
MMOSimca@395	1678 -- We still want to record the item's data, even if it doesn't need its drop location recorded
MMOSimca@395	1679 RecordItemData(item_id, item_link, true)
MMOSimca@395	1680
MMOSimca@345	1681 -- Take action based on update category
jcallahan@179	1682 local update_func = CHAT_MSG_LOOT_UPDATE_FUNCS[category]
atcaleb@558	1683 if not category or not update_func or private.BLACKLISTED_ITEMS[item_id] then
MMOSimca@340	1684 return
MMOSimca@340	1685 end
jcallahan@179	1686 update_func(item_id, quantity)
jcallahan@177	1687 end
MMOSimca@388	1688 end
MMOSimca@388	1689
MMOSimca@388	1690
jcallahan@97	1691 function WDP:RecordQuote(event_name, message, source_name, language_name)
jcallahan@112	1692 if not ALLOWED_LOCALES[CLIENT_LOCALE] or not source_name or not name_to_id_map[source_name] or (language_name ~= "" and not languages_known[language_name]) then
jcallahan@97	1693 return
jcallahan@95	1694 end
jcallahan@97	1695 local npc = NPCEntry(name_to_id_map[source_name])
jcallahan@97	1696 npc.quotes = npc.quotes or {}
jcallahan@97	1697 npc.quotes[event_name] = npc.quotes[event_name] or {}
jcallahan@97	1698 npc.quotes[event_name][ReplaceKeywords(message)] = true
jcallahan@97	1699 end
jcallahan@95	1700
jcallahan@95	1701
jcallahan@95	1702 do
jcallahan@40	1703 local SOBER_MATCH = _G.DRUNK_MESSAGE_ITEM_SELF1:gsub("%%s", ".+")
jcallahan@40	1704
jcallahan@40	1705 local DRUNK_COMPARES = {
jcallahan@40	1706 _G.DRUNK_MESSAGE_SELF2,
jcallahan@40	1707 _G.DRUNK_MESSAGE_SELF3,
jcallahan@40	1708 _G.DRUNK_MESSAGE_SELF4,
jcallahan@40	1709 }
jcallahan@40	1710
jcallahan@40	1711 local DRUNK_MATCHES = {
jcallahan@254	1712 (_G.DRUNK_MESSAGE_SELF2:gsub("%%s", ".+")),
jcallahan@254	1713 (_G.DRUNK_MESSAGE_SELF3:gsub("%%s", ".+")),
jcallahan@254	1714 (_G.DRUNK_MESSAGE_SELF4:gsub("%%s", ".+")),
jcallahan@40	1715 }
jcallahan@40	1716
jcallahan@167	1717 local RECIPE_MATCH = _G.ERR_LEARN_RECIPE_S:gsub("%%s", "(.*)")
jcallahan@167	1718
jcallahan@167	1719
jcallahan@167	1720 local function RecordDiscovery(tradeskill_name, tradeskill_index)
jcallahan@167	1721 if tradeskill_name == private.discovered_recipe_name then
catherton@479	1722 DBEntry("spells", tonumber(_G.C_TradeSkillUI.GetRecipeLink(tradeskill_index):match("^\|c%x%x%x%x%x%x%x%x\|H%w+:(%d+)"))).discovery = ("%d:%d"):format(private.previous_spell_id, private.profession_level)
jcallahan@167	1723
jcallahan@167	1724 private.discovered_recipe_name = nil
jcallahan@167	1725 private.profession_level = nil
jcallahan@167	1726 private.previous_spell_id = nil
jcallahan@169	1727
jcallahan@169	1728 return true
jcallahan@167	1729 end
jcallahan@167	1730 end
jcallahan@167	1731
jcallahan@167	1732
jcallahan@167	1733 local function IterativeRecordDiscovery()
jcallahan@167	1734 TradeSkillExecutePer(RecordDiscovery)
jcallahan@167	1735 end
jcallahan@167	1736
jcallahan@167	1737
jcallahan@92	1738 function WDP:CHAT_MSG_SYSTEM(event_name, message)
mmosimca@514	1739 -- This code no longer works, as of Patch 7.0.3, because Blizzard unified the text from quest rewards and loot to match (and now there is no way to distinguish between them)
MMOSimca@532	1740 --[[
MMOSimca@532	1741 -- Removed in Patch 7.0.3; previously used to determine if a system message was a quest reward or not
MMOSimca@532	1742 local ERR_QUEST_REWARD_ITEM_MULT_IS = _G.ERR_QUEST_REWARD_ITEM_MULT_IS or "Received %d of item: %s."
MMOSimca@532	1743 local ERR_QUEST_REWARD_ITEM_S = _G.ERR_QUEST_REWARD_ITEM_S or "Received item: %s."
MMOSimca@532	1744
catherton@472	1745 local item_link, quantity = deformat(message, ERR_QUEST_REWARD_ITEM_MULT_IS)
MMOSimca@400	1746 if not item_link then
catherton@472	1747 quantity, item_link = 1, deformat(message, ERR_QUEST_REWARD_ITEM_S)
MMOSimca@400	1748 end
MMOSimca@400	1749 local item_id = ItemLinkToID(item_link)
MMOSimca@400	1750
mmosimca@514	1751 if item_id then
mmosimca@514	1752 -- If it was a quest message (that we can decode), parse its link
mmosimca@514	1753 RecordItemData(item_id, item_link, true)
mmosimca@514	1754 else
mmosimca@514	1755 -- If it isn't a quest message, check the other uses of system messages
MMOSimca@532	1756 end
MMOSimca@532	1757 ]]--
MMOSimca@532	1758
MMOSimca@532	1759 if not private.trainer_shown then
MMOSimca@532	1760 local recipe_name = message:match(RECIPE_MATCH)
MMOSimca@532	1761
MMOSimca@532	1762 if recipe_name and private.previous_spell_id then
MMOSimca@532	1763 local profession_name, prof_level = _G.C_TradeSkillUI.GetTradeSkillLine()
MMOSimca@532	1764
MMOSimca@532	1765 if profession_name == _G.UNKNOWN then
MMOSimca@532	1766 return
jcallahan@167	1767 end
MMOSimca@532	1768 private.discovered_recipe_name = recipe_name
MMOSimca@532	1769 private.profession_level = prof_level
MMOSimca@532	1770
MMOSimca@532	1771 C_Timer.After(0.2, IterativeRecordDiscovery)
jcallahan@167	1772 end
MMOSimca@532	1773 end
MMOSimca@532	1774
MMOSimca@532	1775 if currently_drunk then
MMOSimca@532	1776 if message == _G.DRUNK_MESSAGE_SELF1 or message:match(SOBER_MATCH) then
MMOSimca@532	1777 currently_drunk = nil
MMOSimca@400	1778 end
MMOSimca@532	1779 return
MMOSimca@532	1780 end
MMOSimca@532	1781
MMOSimca@532	1782 for index = 1, #DRUNK_MATCHES do
MMOSimca@532	1783 if message == DRUNK_COMPARES[index] or message:match(DRUNK_MATCHES[index]) then
MMOSimca@532	1784 currently_drunk = true
MMOSimca@532	1785 break
jcallahan@40	1786 end
jcallahan@40	1787 end
jcallahan@40	1788 end
jcallahan@40	1789 end
jcallahan@40	1790
jcallahan@307	1791
jcallahan@331	1792 do
jcallahan@23	1793 local FLAGS_NPC = bit.bor(_G.COMBATLOG_OBJECT_TYPE_GUARDIAN, _G.COMBATLOG_OBJECT_CONTROL_NPC)
jcallahan@23	1794 local FLAGS_NPC_CONTROL = bit.bor(_G.COMBATLOG_OBJECT_AFFILIATION_OUTSIDER, _G.COMBATLOG_OBJECT_CONTROL_NPC)
jcallahan@23	1795
atcaleb@552	1796 local function RecordNPCSpell(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id)
atcaleb@558	1797 if not spell_id or private.BLACKLISTED_SPELLS[spell_id] then
jcallahan@23	1798 return
jcallahan@23	1799 end
jcallahan@34	1800 local source_type, source_id = ParseGUID(source_guid)
jcallahan@23	1801
jcallahan@171	1802 if not source_id or not UnitTypeIsNPC(source_type) then
jcallahan@23	1803 return
jcallahan@23	1804 end
jcallahan@23	1805
jcallahan@23	1806 if bit.band(FLAGS_NPC_CONTROL, source_flags) == FLAGS_NPC_CONTROL and bit.band(FLAGS_NPC, source_flags) ~= 0 then
jcallahan@248	1807 local encounter_data = NPCEntry(source_id):EncounterData(InstanceDifficultyToken())
jcallahan@28	1808 encounter_data.spells = encounter_data.spells or {}
jcallahan@28	1809 encounter_data.spells[spell_id] = (encounter_data.spells[spell_id] or 0) + 1
jcallahan@23	1810 end
jcallahan@23	1811 end
jcallahan@23	1812
jcallahan@115	1813 local HEAL_BATTLE_PETS_SPELL_ID = 125801
jcallahan@115	1814
jcallahan@246	1815 local previous_combat_event = {}
jcallahan@246	1816
jcallahan@23	1817 local COMBAT_LOG_FUNCS = {
jcallahan@23	1818 SPELL_AURA_APPLIED = RecordNPCSpell,
jcallahan@23	1819 SPELL_CAST_START = RecordNPCSpell,
atcaleb@552	1820 SPELL_CAST_SUCCESS = function(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id)
jcallahan@115	1821 if spell_id == HEAL_BATTLE_PETS_SPELL_ID then
jcallahan@115	1822 local unit_type, unit_idnum = ParseGUID(source_guid)
jcallahan@115	1823
jcallahan@171	1824 if unit_idnum and UnitTypeIsNPC(unit_type) then
jcallahan@115	1825 NPCEntry(unit_idnum).stable_master = true
jcallahan@115	1826 end
jcallahan@115	1827 end
atcaleb@552	1828 RecordNPCSpell(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id)
jcallahan@115	1829 end,
atcaleb@552	1830 UNIT_DIED = function(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id)
jcallahan@65	1831 local unit_type, unit_idnum = ParseGUID(dest_guid)
jcallahan@65	1832
jcallahan@171	1833 if not unit_idnum or not UnitTypeIsNPC(unit_type) then
mmosimca@515	1834 --Debug("%s: %s is not an NPC, or has no ID.", sub_event, dest_name or _G.UNKNOWN) -- we really don't need to know this
jcallahan@177	1835 ClearKilledNPC()
jcallahan@98	1836 private.harvesting = nil
jcallahan@65	1837 return
jcallahan@65	1838 end
jcallahan@177	1839
jcallahan@246	1840 if source_guid == "" then
jcallahan@246	1841 source_guid = nil
jcallahan@246	1842 end
jcallahan@246	1843 local killer_guid = source_guid or previous_combat_event.source_guid
jcallahan@246	1844 local killer_name = source_name or previous_combat_event.source_name
jcallahan@246	1845
jcallahan@299	1846 if not previous_combat_event.party_damage then
jcallahan@312	1847 --Debug("%s: %s was killed by %s (not group member or pet).", sub_event, dest_name or _G.UNKNOWN, killer_name or _G.UNKNOWN) -- broken in Patch 5.4
jcallahan@299	1848 table.wipe(previous_combat_event)
jcallahan@217	1849 ClearKilledNPC()
jcallahan@306	1850 else
jcallahan@317	1851 --Debug("%s: %s was killed by %s.", sub_event, dest_name or _G.UNKNOWN, killer_name or _G.UNKNOWN) -- broken in Patch 5.4
jcallahan@177	1852 end
jcallahan@177	1853 killed_npc_id = unit_idnum
MMOSimca@383	1854 C_Timer.After(0.1, ClearKilledNPC)
jcallahan@65	1855 end,
jcallahan@23	1856 }
jcallahan@23	1857
jcallahan@23	1858
jcallahan@246	1859 local NON_DAMAGE_EVENTS = {
jcallahan@246	1860 SPELL_AURA_APPLIED = true,
jcallahan@246	1861 SPELL_AURA_REMOVED = true,
jcallahan@246	1862 SPELL_AURA_REMOVED_DOSE = true,
jcallahan@246	1863 SPELL_CAST_FAILED = true,
jcallahan@246	1864 SWING_MISSED = true,
jcallahan@246	1865 }
jcallahan@246	1866
jcallahan@299	1867 local DAMAGE_EVENTS = {
jcallahan@299	1868 RANGE_DAMAGE = true,
jcallahan@299	1869 SPELL_BUILDING_DAMAGE = true,
jcallahan@299	1870 SPELL_DAMAGE = true,
jcallahan@299	1871 SPELL_PERIODIC_DAMAGE = true,
jcallahan@299	1872 SWING_DAMAGE = true,
jcallahan@299	1873 }
jcallahan@299	1874
jcallahan@246	1875
atcaleb@552	1876 function WDP:COMBAT_LOG_EVENT_UNFILTERED(event_name, time_stamp, sub_event, hide_caster, source_guid, source_name, source_flags, source_raid_flags, dest_guid, dest_name, dest_flags, dest_raid_flags, spell_id, ...)
atcaleb@558	1877 time_stamp, sub_event, hide_caster, source_guid, source_name, source_flags, source_raid_flags, dest_guid, dest_name, dest_flags, dest_raid_flags, spell_id = CombatLogGetCurrentEventInfo()
atcaleb@552	1878
jcallahan@23	1879 local combat_log_func = COMBAT_LOG_FUNCS[sub_event]
jcallahan@23	1880
jcallahan@23	1881 if not combat_log_func then
jcallahan@299	1882 if DAMAGE_EVENTS[sub_event] then
jcallahan@299	1883 table.wipe(previous_combat_event)
jcallahan@246	1884 previous_combat_event.source_name = source_name
jcallahan@299	1885
jcallahan@299	1886 if source_guid ~= dest_guid and (in_instance or group_member_guids[source_guid] or group_pet_guids[source_guid]) then
jcallahan@299	1887 previous_combat_event.party_damage = true
jcallahan@299	1888 end
jcallahan@246	1889 end
jcallahan@23	1890 return
jcallahan@23	1891 end
atcaleb@552	1892 combat_log_func(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id)
jcallahan@297	1893
jcallahan@297	1894 if NON_DAMAGE_EVENTS[sub_event] then
jcallahan@297	1895 table.wipe(previous_combat_event)
jcallahan@297	1896 end
jcallahan@23	1897 end
jcallahan@23	1898
catherton@465	1899
jcallahan@44	1900 local DIPLOMACY_SPELL_ID = 20599
jcallahan@44	1901 local MR_POP_RANK1_SPELL_ID = 78634
jcallahan@44	1902 local MR_POP_RANK2_SPELL_ID = 78635
MMOSimca@418	1903 local TRADING_PACT_SPELL_ID = 170200
jcallahan@44	1904
jcallahan@44	1905
jcallahan@92	1906 function WDP:COMBAT_TEXT_UPDATE(event_name, message_type, faction_name, amount)
jcallahan@177	1907 if message_type ~= "FACTION" or not killed_npc_id then
jcallahan@44	1908 return
jcallahan@44	1909 end
jcallahan@44	1910 UpdateFactionData()
jcallahan@44	1911
jcallahan@46	1912 if not faction_name or not faction_standings[faction_name] then
jcallahan@46	1913 return
jcallahan@46	1914 end
jcallahan@177	1915 local npc = NPCEntry(killed_npc_id)
jcallahan@177	1916 ClearKilledNPC()
jcallahan@46	1917
jcallahan@44	1918 if not npc then
jcallahan@98	1919 private.harvesting = nil
jcallahan@44	1920 return
jcallahan@44	1921 end
jcallahan@98	1922 npc.harvested = private.harvesting
jcallahan@98	1923 private.harvesting = nil
jcallahan@98	1924
jcallahan@44	1925 local modifier = 1
jcallahan@44	1926
MMOSimca@340	1927 -- Check for modifiers from known spells
jcallahan@44	1928 if _G.IsSpellKnown(DIPLOMACY_SPELL_ID) then
jcallahan@44	1929 modifier = modifier + 0.1
jcallahan@44	1930 end
jcallahan@44	1931 if _G.IsSpellKnown(MR_POP_RANK2_SPELL_ID) then
jcallahan@44	1932 modifier = modifier + 0.1
jcallahan@44	1933 elseif _G.IsSpellKnown(MR_POP_RANK1_SPELL_ID) then
jcallahan@44	1934 modifier = modifier + 0.05
jcallahan@44	1935 end
MMOSimca@418	1936 if _G.IsSpellKnown(TRADING_PACT_SPELL_ID) then
MMOSimca@418	1937 modifier = modifier + 0.2
MMOSimca@418	1938 end
jcallahan@44	1939
MMOSimca@340	1940 -- Determine faction ID
MMOSimca@340	1941 local faction_ID
MMOSimca@418	1942 for pseudo_faction_name, faction_data_table in pairs(private.FACTION_DATA) do
MMOSimca@418	1943 if faction_name == faction_data_table[3] then
MMOSimca@418	1944 -- Check ignore flag
MMOSimca@418	1945 if faction_data_table[2] then
MMOSimca@418	1946 return
MMOSimca@418	1947 end
MMOSimca@340	1948 faction_ID = faction_data_table[1]
MMOSimca@418	1949 break
MMOSimca@340	1950 end
MMOSimca@340	1951 end
MMOSimca@340	1952 if faction_ID and faction_ID > 0 then
MMOSimca@340	1953 -- Check for modifiers from Commendations (applied directly to the faction, account-wide)
MMOSimca@340	1954 local _, _, _, _, _, _, _, _, _, _, _, _, _, _, has_bonus_rep_gain = GetFactionInfoByID(faction_ID)
MMOSimca@340	1955 if has_bonus_rep_gain then
MMOSimca@340	1956 modifier = modifier + 1
MMOSimca@340	1957 end
MMOSimca@340	1958 end
MMOSimca@340	1959
MMOSimca@340	1960 -- Check for modifiers from buffs
MMOSimca@418	1961 for buff_name, buff_data_table in pairs(private.REP_BUFFS) do
jcallahan@44	1962 if _G.UnitBuff("player", buff_name) then
MMOSimca@340	1963 local modded_faction = buff_data_table.faction
jcallahan@44	1964
jcallahan@44	1965 if not modded_faction or faction_name == modded_faction then
MMOSimca@340	1966 if buff_data_table.ignore then
MMOSimca@340	1967 -- Some buffs from tabards convert all rep of other factions into rep for a specific faction.
MMOSimca@340	1968 -- We can't know what faction the rep was orginally from, so we must ignore the data entirely in these cases.
MMOSimca@340	1969 return
MMOSimca@340	1970 else
MMOSimca@340	1971 modifier = modifier + buff_data_table.modifier
MMOSimca@340	1972 end
jcallahan@44	1973 end
jcallahan@44	1974 end
jcallahan@44	1975 end
catherton@465	1976
jcallahan@65	1977 npc.reputations = npc.reputations or {}
jcallahan@65	1978 npc.reputations[("%s:%s"):format(faction_name, faction_standings[faction_name])] = math.floor(amount / modifier)
jcallahan@32	1979 end
jcallahan@44	1980 end -- do-block
jcallahan@18	1981
jcallahan@18	1982
jcallahan@140	1983 function WDP:CURSOR_UPDATE(event_name)
MMOSimca@355	1984 if current_action.fishing_target or _G.Minimap:IsMouseOver() then
jcallahan@140	1985 return
jcallahan@140	1986 end
jcallahan@140	1987 local text = _G["GameTooltipTextLeft1"]:GetText()
jcallahan@140	1988
MMOSimca@355	1989 -- Handle Fishing
MMOSimca@355	1990 if (current_action.spell_label == "FISHING") then
MMOSimca@355	1991 if not text or text == "Fishing Bobber" then
MMOSimca@355	1992 text = "NONE"
MMOSimca@355	1993 else
MMOSimca@355	1994 current_action.fishing_target = true
MMOSimca@355	1995 end
MMOSimca@355	1996 current_action.identifier = ("%s:%s"):format(current_action.spell_label, text)
MMOSimca@355	1997 -- Handle Garrison Cache
MMOSimca@355	1998 elseif private.GARRISON_CACHE_OBJECT_NAME_TO_OBJECT_ID_MAP[text] then
MMOSimca@355	1999 last_garrison_cache_object_id = private.GARRISON_CACHE_OBJECT_NAME_TO_OBJECT_ID_MAP[text]
jcallahan@140	2000 end
jcallahan@140	2001 end
jcallahan@140	2002
jcallahan@140	2003
jcallahan@92	2004 function WDP:ITEM_TEXT_BEGIN(event_name)
jcallahan@42	2005 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@42	2006
jcallahan@42	2007 if not unit_idnum or unit_type ~= private.UNIT_TYPES.OBJECT or _G.UnitName("npc") ~= _G.ItemTextGetItem() then
jcallahan@42	2008 return
jcallahan@42	2009 end
jcallahan@42	2010 UpdateDBEntryLocation("objects", unit_idnum)
jcallahan@42	2011 end
jcallahan@42	2012
jcallahan@42	2013
jcallahan@13	2014 do
MMOSimca@343	2015 local LOOT_OPENED_VERIFY_FUNCS = {
jcallahan@324	2016 -- Item containers can be AOE-looted in Patch 5.4.2 if the user clicks fast enough, but this verification still works as long as they both have loot.
jcallahan@16	2017 [AF.ITEM] = function()
jcallahan@16	2018 local locked_item_id
jcallahan@16	2019
jcallahan@16	2020 for bag_index = 0, _G.NUM_BAG_FRAMES do
jcallahan@16	2021 for slot_index = 1, _G.GetContainerNumSlots(bag_index) do
jcallahan@324	2022 local _, _, is_locked, _, _, is_lootable = _G.GetContainerItemInfo(bag_index, slot_index)
jcallahan@324	2023
jcallahan@324	2024 if is_locked and is_lootable then
jcallahan@16	2025 locked_item_id = ItemLinkToID(_G.GetContainerItemLink(bag_index, slot_index))
jcallahan@165	2026 break
jcallahan@16	2027 end
jcallahan@16	2028 end
jcallahan@165	2029
jcallahan@165	2030 if locked_item_id then
jcallahan@165	2031 break
jcallahan@165	2032 end
jcallahan@16	2033 end
jcallahan@16	2034
MMOSimca@367	2035 if (not current_action.spell_label == "DISENCHANT") and (not locked_item_id or (current_action.identifier and current_action.identifier ~= locked_item_id)) then
jcallahan@16	2036 return false
jcallahan@16	2037 end
jcallahan@122	2038 current_action.identifier = locked_item_id
jcallahan@16	2039 return true
jcallahan@16	2040 end,
MMOSimca@401	2041 [AF.NPC] = function()
MMOSimca@401	2042 return not _G.IsFishingLoot()
MMOSimca@401	2043 end,
MMOSimca@401	2044 [AF.OBJECT] = function()
MMOSimca@401	2045 return not _G.IsFishingLoot()
MMOSimca@401	2046 end,
jcallahan@17	2047 [AF.ZONE] = function()
jcallahan@140	2048 current_action.zone_data = UpdateDBEntryLocation("zones", current_action.identifier)
jcallahan@210	2049 return _G.IsFishingLoot()
jcallahan@17	2050 end,
jcallahan@13	2051 }
jcallahan@13	2052
jcallahan@13	2053
MMOSimca@343	2054 local LOOT_OPENED_UPDATE_FUNCS = {
jcallahan@16	2055 [AF.ITEM] = function()
jcallahan@28	2056 GenericLootUpdate("items")
jcallahan@28	2057 end,
jcallahan@28	2058 [AF.NPC] = function()
jcallahan@75	2059 local difficulty_token = InstanceDifficultyToken()
jcallahan@312	2060 local loot_label = current_loot.label
jcallahan@77	2061 local source_list = {}
jcallahan@75	2062
jcallahan@131	2063 for source_guid, loot_data in pairs(current_loot.sources) do
jcallahan@331	2064 local _, source_id = ParseGUID(source_guid)
jcallahan@75	2065 local npc = NPCEntry(source_id)
jcallahan@75	2066
jcallahan@75	2067 if npc then
jcallahan@248	2068 local encounter_data = npc:EncounterData(difficulty_token)
jcallahan@312	2069 encounter_data[loot_label] = encounter_data[loot_label] or {}
jcallahan@75	2070
jcallahan@78	2071 if not source_list[source_guid] then
jcallahan@77	2072 encounter_data.loot_counts = encounter_data.loot_counts or {}
MMOSimca@426	2073 encounter_data.loot_counts[loot_label] = (encounter_data.loot_counts[loot_label] or 0) + 1
jcallahan@312	2074 source_list[source_guid] = true
jcallahan@77	2075 end
jcallahan@77	2076
jcallahan@309	2077 for loot_token, quantity in pairs(loot_data) do
mmosimca@496	2078 local loot_type, currency_id = (":"):split(loot_token)
mmosimca@496	2079
mmosimca@496	2080 if loot_type == "currency" and currency_id then
mmosimca@496	2081 -- Convert currency_id back into number from string
mmosimca@496	2082 currency_id = tonumber(currency_id) or 0
mmosimca@496	2083 if currency_id ~= 0 then
mmosimca@496	2084 table.insert(encounter_data[loot_label], ("currency:%d:%d"):format(quantity, currency_id))
mmosimca@496	2085 end
jcallahan@309	2086 elseif loot_token == "money" then
jcallahan@312	2087 table.insert(encounter_data[loot_label], ("money:%d"):format(quantity))
jcallahan@309	2088 else
jcallahan@312	2089 table.insert(encounter_data[loot_label], ("%d:%d"):format(loot_token, quantity))
jcallahan@309	2090 end
jcallahan@75	2091 end
jcallahan@75	2092 end
jcallahan@75	2093 end
jcallahan@16	2094 end,
jcallahan@13	2095 [AF.OBJECT] = function()
jcallahan@28	2096 GenericLootUpdate("objects", InstanceDifficultyToken())
jcallahan@17	2097 end,
jcallahan@17	2098 [AF.ZONE] = function()
MMOSimca@328	2099 if not (current_loot.map_level and current_loot.x and current_loot.y and current_loot.zone_data) then
MMOSimca@328	2100 return
MMOSimca@328	2101 end
jcallahan@141	2102 local location_token = ("%d:%d:%d"):format(current_loot.map_level, current_loot.x, current_loot.y)
jcallahan@41	2103
jcallahan@41	2104 -- This will start life as a boolean true.
mmosimca@522	2105 if type(current_loot.zone_data[location_token]) ~= "table" then
jcallahan@131	2106 current_loot.zone_data[location_token] = {
jcallahan@41	2107 drops = {}
jcallahan@41	2108 }
jcallahan@41	2109 end
jcallahan@132	2110 local loot_count = ("%s_count"):format(current_loot.label)
jcallahan@131	2111 current_loot.zone_data[location_token][loot_count] = (current_loot.zone_data[location_token][loot_count] or 0) + 1
jcallahan@41	2112
jcallahan@131	2113 if current_loot.sources then
jcallahan@131	2114 for source_guid, loot_data in pairs(current_loot.sources) do
jcallahan@131	2115 for item_id, quantity in pairs(loot_data) do
jcallahan@131	2116 table.insert(current_loot.zone_data[location_token].drops, ("%d:%d"):format(item_id, quantity))
jcallahan@131	2117 end
jcallahan@131	2118 end
jcallahan@131	2119 end
jcallahan@131	2120
jcallahan@131	2121 if #current_loot.list <= 0 then
jcallahan@131	2122 return
jcallahan@131	2123 end
jcallahan@131	2124
jcallahan@131	2125 for index = 1, #current_loot.list do
MMOSimca@443	2126 table.insert(current_loot.zone_data[location_token].drops, current_loot.list[index])
jcallahan@41	2127 end
jcallahan@13	2128 end,
jcallahan@13	2129 }
jcallahan@13	2130
jcallahan@79	2131 -- Prevent opening the same loot window multiple times from recording data multiple times.
jcallahan@79	2132 local loot_guid_registry = {}
jcallahan@124	2133
jcallahan@124	2134
jcallahan@124	2135 function WDP:LOOT_CLOSED(event_name)
MMOSimca@398	2136 ClearChatLootData()
jcallahan@131	2137 current_loot = nil
jcallahan@131	2138 table.wipe(current_action)
jcallahan@124	2139 end
jcallahan@124	2140
jcallahan@13	2141
jcallahan@322	2142 local function ExtrapolatedCurrentActionFromLootData(event_name)
MMOSimca@402	2143 local log_source = event_name .. "- ExtrapolatedCurrentActionFromLootData"
MMOSimca@402	2144 local previous_spell_label = current_action.spell_label
jcallahan@322	2145 local extrapolated_guid_registry = {}
jcallahan@322	2146 local num_guids = 0
MMOSimca@402	2147 table.wipe(current_action)
MMOSimca@402	2148
MMOSimca@402	2149 if _G.IsFishingLoot() then
MMOSimca@402	2150 -- Set up a proper 'fishing' current_action table
MMOSimca@402	2151 local zone_name, area_id, x, y, map_level, instance_token = CurrentLocationData()
MMOSimca@402	2152 if not (zone_name and area_id and x and y and map_level) then
mmosimca@508	2153 if not (_G.IsInInstance()) then
mmosimca@508	2154 Debug("%s: Missing current location data - %s, %s, %s, %s, %s.", log_source, tostring(zone_name), tostring(area_id), tostring(x), tostring(y), tostring(map_level))
mmosimca@508	2155 end
MMOSimca@402	2156 return
MMOSimca@402	2157 end
MMOSimca@402	2158 current_action.instance_token = instance_token
MMOSimca@402	2159 current_action.map_level = map_level
MMOSimca@402	2160 current_action.x = x
MMOSimca@402	2161 current_action.y = y
MMOSimca@402	2162 current_action.zone_data = ("%s:%d"):format(zone_name, area_id)
MMOSimca@402	2163 current_action.spell_label = "FISHING"
MMOSimca@402	2164 current_action.loot_label = "fishing"
MMOSimca@402	2165 current_action.identifier = "FISHING:NONE"
MMOSimca@402	2166 current_action.target_type = AF.ZONE
MMOSimca@402	2167
MMOSimca@402	2168 Debug("%s: Fishing loot detected.", log_source)
MMOSimca@402	2169 return true
MMOSimca@402	2170 end
jcallahan@322	2171
MMOSimca@344	2172 -- Loot extrapolation cannot handle objects that need special spell labels (like HERBALISM or MINING) (MIND_CONTROL is okay)
MMOSimca@402	2173 if previous_spell_label and private.SPELL_FLAGS_BY_LABEL[previous_spell_label] and not private.NON_LOOT_SPELL_LABELS[previous_spell_label] then
MMOSimca@344	2174 Debug("%s: Problematic spell label %s found. Loot extrapolation for this set of loot would have run an increased risk of introducing bad data into the system.", log_source, private.previous_spell_id)
MMOSimca@344	2175 return false
MMOSimca@344	2176 end
MMOSimca@344	2177
jcallahan@322	2178 for loot_slot = 1, _G.GetNumLootItems() do
jcallahan@322	2179 local loot_info = {
jcallahan@322	2180 _G.GetLootSourceInfo(loot_slot)
jcallahan@322	2181 }
jcallahan@322	2182
jcallahan@322	2183 for loot_index = 1, #loot_info, 2 do
jcallahan@322	2184 local source_guid = loot_info[loot_index]
jcallahan@322	2185
jcallahan@322	2186 if not extrapolated_guid_registry[source_guid] then
jcallahan@322	2187 local unit_type, unit_idnum = ParseGUID(source_guid)
jcallahan@322	2188
jcallahan@322	2189 if unit_type and unit_idnum then
jcallahan@322	2190 extrapolated_guid_registry[source_guid] = {
jcallahan@322	2191 unit_type,
jcallahan@322	2192 unit_idnum
jcallahan@322	2193 }
jcallahan@322	2194
jcallahan@322	2195 num_guids = num_guids + 1
jcallahan@322	2196 end
jcallahan@322	2197 end
jcallahan@322	2198 end
jcallahan@322	2199 end
jcallahan@322	2200
jcallahan@322	2201 if num_guids == 0 then
jcallahan@322	2202 Debug("%s: No GUIDs found in loot. Blank loot window?", log_source)
jcallahan@322	2203 return false
jcallahan@322	2204 end
jcallahan@326	2205
jcallahan@322	2206 local num_npcs = 0
jcallahan@322	2207 local num_objects = 0
jcallahan@324	2208 local num_itemcontainers = 0
jcallahan@322	2209
jcallahan@322	2210 for source_guid, guid_data in pairs(extrapolated_guid_registry) do
jcallahan@322	2211 local unit_type = guid_data[1]
mmosimca@516	2212 local loot_label = (unit_type == private.UNIT_TYPES.OBJECT) and "opening" or (UnitTypeIsNPC(unit_type) and "drops") or ((unit_type == private.UNIT_TYPES.ITEM) and "contains")
jcallahan@322	2213
jcallahan@322	2214 if loot_label then
jcallahan@322	2215 local unit_idnum = guid_data[2]
jcallahan@322	2216
jcallahan@322	2217 if loot_guid_registry[loot_label] and loot_guid_registry[loot_label][source_guid] then
jcallahan@322	2218 Debug("%s: Previously scanned loot for unit with GUID %s and identifier %s.", log_source, source_guid, unit_idnum)
jcallahan@322	2219 elseif unit_type == private.UNIT_TYPES.OBJECT and unit_idnum ~= OBJECT_ID_FISHING_BOBBER then
jcallahan@322	2220 current_action.loot_label = loot_label
jcallahan@322	2221 current_action.spell_label = "OPENING"
jcallahan@322	2222 current_action.target_type = AF.OBJECT
jcallahan@322	2223 current_action.identifier = unit_idnum
jcallahan@322	2224 num_objects = num_objects + 1
jcallahan@322	2225 elseif UnitTypeIsNPC(unit_type) then
jcallahan@322	2226 current_action.loot_label = loot_label
jcallahan@322	2227 current_action.target_type = AF.NPC
jcallahan@322	2228 current_action.identifier = unit_idnum
jcallahan@322	2229 num_npcs = num_npcs + 1
mmosimca@516	2230 elseif unit_type == private.UNIT_TYPES.ITEM then
jcallahan@324	2231 current_action.loot_label = loot_label
jcallahan@324	2232 current_action.target_type = AF.ITEM
jcallahan@324	2233 -- current_action.identifier assigned during loot verification.
jcallahan@324	2234 num_itemcontainers = num_itemcontainers + 1
jcallahan@322	2235 end
jcallahan@322	2236 else
jcallahan@322	2237 -- Bail here; not only do we not know what this unit is, but we don't want to attribute loot to something that doesn't actually drop it.
jcallahan@322	2238 Debug("%s: Unit with GUID %s has unsupported type for looting.", log_source, source_guid)
jcallahan@322	2239 return false
jcallahan@322	2240 end
jcallahan@322	2241 end
jcallahan@322	2242
jcallahan@322	2243 if not current_action.target_type then
jcallahan@322	2244 Debug("%s: Failure to obtain target_type.", log_source)
jcallahan@322	2245 return false
jcallahan@322	2246 end
jcallahan@322	2247
jcallahan@322	2248 -- We can't figure out what dropped the loot. This shouldn't ever happen, but hey - Blizzard does some awesome stuff on occasion.
jcallahan@324	2249 if (num_npcs > 0 and num_objects + num_itemcontainers > 0) or (num_objects > 0 and num_npcs + num_itemcontainers > 0) or (num_itemcontainers > 0 and num_npcs + num_objects > 0) then
jcallahan@324	2250 Debug("%s: Mixed target types are not supported. NPCs - %d, Objects - %d, Item Containers - %d.", log_source, num_npcs, num_objects, num_itemcontainers)
jcallahan@322	2251 return false
jcallahan@322	2252 end
jcallahan@322	2253
jcallahan@322	2254 return true
jcallahan@322	2255 end
jcallahan@322	2256
jcallahan@322	2257
MMOSimca@343	2258 function WDP:LOOT_OPENED(event_name)
MMOSimca@398	2259 ClearChatLootData()
MMOSimca@387	2260
jcallahan@132	2261 if current_loot then
jcallahan@322	2262 current_loot = nil
jcallahan@322	2263 Debug("%s: Previous loot did not process in time for this event. Attempting to extrapolate current_action from loot data.", event_name)
jcallahan@322	2264
jcallahan@322	2265 if not ExtrapolatedCurrentActionFromLootData(event_name) then
jcallahan@322	2266 Debug("%s: Unable to extrapolate current_action. Aborting attempts to handle loot for now.", event_name)
jcallahan@322	2267 return
jcallahan@322	2268 end
jcallahan@18	2269 end
jcallahan@151	2270
jcallahan@151	2271 if not current_action.target_type then
jcallahan@322	2272 if not ExtrapolatedCurrentActionFromLootData(event_name) then
jcallahan@322	2273 Debug("%s: Unable to extrapolate current_action. Aborting attempts to handle loot for now.", event_name)
jcallahan@322	2274 return
jcallahan@322	2275 end
jcallahan@151	2276 end
MMOSimca@343	2277 local verify_func = LOOT_OPENED_VERIFY_FUNCS[current_action.target_type]
MMOSimca@343	2278 local update_func = LOOT_OPENED_UPDATE_FUNCS[current_action.target_type]
jcallahan@13	2279
jcallahan@14	2280 if not verify_func or not update_func then
jcallahan@322	2281 Debug("%s: The current action's target type is unsupported or nil.", event_name)
jcallahan@13	2282 return
jcallahan@13	2283 end
jcallahan@13	2284
mmosimca@522	2285 if type(verify_func) == "function" and not verify_func() then
jcallahan@324	2286 Debug("%s: The current action type, %s, is supported but has failed loot verification.", event_name, private.ACTION_TYPE_NAMES[current_action.target_type])
jcallahan@14	2287 return
jcallahan@14	2288 end
jcallahan@80	2289 local guids_used = {}
jcallahan@132	2290
jcallahan@301	2291 InitializeCurrentLoot()
jcallahan@217	2292 loot_guid_registry[current_loot.label] = loot_guid_registry[current_loot.label] or {}
jcallahan@217	2293
jcallahan@55	2294 for loot_slot = 1, _G.GetNumLootItems() do
mmosimca@496	2295 local texture_filedata_id, item_text, slot_quantity, quality, locked = _G.GetLootSlotInfo(loot_slot)
jcallahan@55	2296 local slot_type = _G.GetLootSlotType(loot_slot)
catherton@463	2297 local loot_info = { _G.GetLootSourceInfo(loot_slot) }
catherton@464	2298 local loot_link = _G.GetLootSlotLink(loot_slot)
jcallahan@13	2299
jcallahan@237	2300 -- Odd index is GUID, even is count.
jcallahan@237	2301 for loot_index = 1, #loot_info, 2 do
jcallahan@237	2302 local source_guid = loot_info[loot_index]
jcallahan@75	2303
jcallahan@237	2304 if not loot_guid_registry[current_loot.label][source_guid] then
jcallahan@237	2305 local loot_quantity = loot_info[loot_index + 1]
jcallahan@324	2306 -- There is a new bug in 5.4.0 that causes GetLootSlotInfo() to (rarely) return nil values for slot_quantity.
jcallahan@324	2307 if slot_quantity then
jcallahan@324	2308 -- We need slot_quantity to account for an old bug where loot_quantity is sometimes '1' for stacks of items, such as cloth.
jcallahan@324	2309 if slot_quantity > loot_quantity then
jcallahan@324	2310 loot_quantity = slot_quantity
jcallahan@324	2311 end
jcallahan@324	2312 local source_type, source_id = ParseGUID(source_guid)
MMOSimca@329	2313 local source_key = ("%s:%d"):format(source_type, source_id)
jcallahan@324	2314
MMOSimca@366	2315 if slot_type == LOOT_SLOT_ITEM then
catherton@464	2316 if loot_link then
catherton@464	2317 local item_id = ItemLinkToID(loot_link)
catherton@464	2318 Debug("GUID: %s - Type:ID: %s - ItemID: %d - Amount: %d (%d)", loot_info[loot_index], source_key, item_id, loot_info[loot_index + 1], slot_quantity)
catherton@464	2319 current_loot.sources[source_guid] = current_loot.sources[source_guid] or {}
catherton@464	2320 current_loot.sources[source_guid][item_id] = (current_loot.sources[source_guid][item_id] or 0) + loot_quantity
catherton@464	2321 guids_used[source_guid] = true
catherton@463	2322 else
catherton@463	2323 Debug("%s: Loot link is nil for loot slot %d of the entity with GUID %s and Type:ID: %s.", event_name, loot_slot, loot_info[loot_index], source_key)
catherton@463	2324 end
MMOSimca@366	2325 elseif slot_type == LOOT_SLOT_MONEY then
jcallahan@324	2326 Debug("GUID: %s - Type:ID: %s - Money - Amount: %d (%d)", loot_info[loot_index], source_key, loot_info[loot_index + 1], slot_quantity)
jcallahan@324	2327 if current_loot.target_type == AF.ZONE then
jcallahan@324	2328 table.insert(current_loot.list, ("money:%d"):format(loot_quantity))
jcallahan@324	2329 else
jcallahan@324	2330 current_loot.sources[source_guid] = current_loot.sources[source_guid] or {}
MMOSimca@367	2331 current_loot.sources[source_guid]["money"] = (current_loot.sources[source_guid]["money"] or 0) + loot_quantity
jcallahan@324	2332 guids_used[source_guid] = true
jcallahan@324	2333 end
MMOSimca@366	2334 elseif slot_type == LOOT_SLOT_CURRENCY then
jcallahan@324	2335 -- Same bug with GetLootSlotInfo() will screw up currency when it happens, so we won't process this slot's loot.
catherton@463	2336 if loot_link then
mmosimca@496	2337 local currency_id = CurrencyLinkToID(loot_link)
mmosimca@496	2338 Debug("GUID: %s - Type:ID: %s - Currency: %d - Amount: %d (%d)", loot_info[loot_index], source_key, currency_id, loot_info[loot_index + 1], slot_quantity)
jcallahan@324	2339 if current_loot.target_type == AF.ZONE then
mmosimca@496	2340 table.insert(current_loot.list, ("currency:%d:%d"):format(loot_quantity, currency_id))
jcallahan@324	2341 else
mmosimca@496	2342 local currency_token = ("currency:%d"):format(currency_id)
jcallahan@324	2343
jcallahan@324	2344 current_loot.sources[source_guid] = current_loot.sources[source_guid] or {}
MMOSimca@367	2345 current_loot.sources[source_guid][currency_token] = (current_loot.sources[source_guid][currency_token] or 0) + loot_quantity
jcallahan@324	2346 guids_used[source_guid] = true
jcallahan@324	2347 end
jcallahan@324	2348 else
catherton@463	2349 Debug("%s: Loot link is nil for loot slot %d of the entity with GUID %s and Type:ID: %s.", event_name, loot_slot, loot_info[loot_index], source_key)
jcallahan@324	2350 end
jcallahan@308	2351 end
jcallahan@324	2352 else
jcallahan@324	2353 -- If this is nil, then the item's quantity could be wrong if loot_quantity is wrong, so we won't process this slot's loot.
catherton@463	2354 Debug("%s: Slot quantity is nil for loot slot %d of the entity with GUID %s and Type:ID: %s.", event_name, loot_slot, loot_info[loot_index], source_key)
jcallahan@79	2355 end
jcallahan@75	2356 end
jcallahan@13	2357 end
jcallahan@13	2358 end
jcallahan@80	2359
jcallahan@81	2360 for guid in pairs(guids_used) do
jcallahan@217	2361 loot_guid_registry[current_loot.label][guid] = true
jcallahan@80	2362 end
jcallahan@13	2363 update_func()
jcallahan@1	2364 end
jcallahan@13	2365 end -- do-block
jcallahan@0	2366
jcallahan@0	2367
jcallahan@89	2368 function WDP:MAIL_SHOW(event_name)
MMOSimca@436	2369 WDP:StopChatLootRecording(event_name)
jcallahan@89	2370 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@89	2371
jcallahan@89	2372 if not unit_idnum or unit_type ~= private.UNIT_TYPES.OBJECT then
jcallahan@89	2373 return
jcallahan@89	2374 end
jcallahan@89	2375 UpdateDBEntryLocation("objects", unit_idnum)
jcallahan@89	2376 end
jcallahan@89	2377
jcallahan@89	2378
jcallahan@44	2379 do
jcallahan@44	2380 local POINT_MATCH_PATTERNS = {
jcallahan@44	2381 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@44	2382 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_3V3:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@44	2383 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_5V5:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@44	2384 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_BG:gsub("%%d", "(%%d+)")),
jcallahan@44	2385 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_3V3_BG:gsub("%%d", "(%%d+)")),
jcallahan@44	2386 }
jcallahan@5	2387
jcallahan@68	2388 local ITEM_REQ_REPUTATION_MATCH = "Requires (.-) %- (.*)"
jcallahan@87	2389 local ITEM_REQ_QUEST_MATCH1 = "Requires: .*"
jcallahan@87	2390 local ITEM_REQ_QUEST_MATCH2 = "Must have completed: .*"
jcallahan@68	2391
jcallahan@133	2392 local current_merchant
jcallahan@133	2393 local merchant_standing
jcallahan@133	2394
jcallahan@133	2395 function WDP:MERCHANT_CLOSED(event_name)
MMOSimca@436	2396 WDP:ResumeChatLootRecording(event_name)
jcallahan@133	2397 current_merchant = nil
jcallahan@133	2398 merchant_standing = nil
jcallahan@133	2399 end
jcallahan@133	2400
jcallahan@133	2401
jcallahan@89	2402 function WDP:UpdateMerchantItems(event_name)
jcallahan@144	2403 if not current_merchant or event_name == "MERCHANT_SHOW" then
MMOSimca@436	2404 WDP:StopChatLootRecording(event_name)
jcallahan@195	2405 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@4	2406
jcallahan@171	2407 if not unit_idnum or not UnitTypeIsNPC(unit_type) then
jcallahan@133	2408 return
jcallahan@133	2409 end
jcallahan@331	2410 local _, faction_standing = UnitFactionStanding("npc")
jcallahan@331	2411 merchant_standing = faction_standing
jcallahan@133	2412 current_merchant = NPCEntry(unit_idnum)
jcallahan@133	2413 current_merchant.sells = current_merchant.sells or {}
jcallahan@44	2414 end
jcallahan@55	2415 local current_filters = _G.GetMerchantFilter()
jcallahan@57	2416 _G.SetMerchantFilter(_G.LE_LOOT_FILTER_ALL)
jcallahan@57	2417 _G.MerchantFrame_Update()
jcallahan@57	2418
jcallahan@150	2419 local num_items = _G.GetMerchantNumItems()
jcallahan@150	2420
jcallahan@44	2421 for item_index = 1, num_items do
jcallahan@44	2422 local _, _, copper_price, stack_size, num_available, _, extended_cost = _G.GetMerchantItemInfo(item_index)
jcallahan@44	2423 local item_id = ItemLinkToID(_G.GetMerchantItemLink(item_index))
jcallahan@5	2424
jcallahan@324	2425 DatamineTT:ClearLines()
jcallahan@324	2426 DatamineTT:SetMerchantItem(item_index)
jcallahan@324	2427
jcallahan@324	2428 if not item_id then
jcallahan@324	2429 local item_name, item_link = DatamineTT:GetItem()
jcallahan@324	2430 item_id = ItemLinkToID(item_link)
MMOSimca@354	2431 -- GetMerchantItemLink() still ocassionally fails as of Patch 6.0.2. It fails so badly that debug functions cause considerable slowdown.
jcallahan@324	2432 end
jcallahan@324	2433
jcallahan@44	2434 if item_id and item_id > 0 then
jcallahan@44	2435 local price_string = ActualCopperCost(copper_price, merchant_standing)
jcallahan@5	2436
jcallahan@68	2437 local num_lines = DatamineTT:NumLines()
jcallahan@68	2438
jcallahan@68	2439 for line_index = 1, num_lines do
jcallahan@68	2440 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@68	2441
jcallahan@68	2442 if not current_line then
jcallahan@68	2443 break
jcallahan@68	2444 end
jcallahan@68	2445 local faction, reputation = current_line:GetText():match(ITEM_REQ_REPUTATION_MATCH)
jcallahan@68	2446
jcallahan@68	2447 if faction or reputation then
jcallahan@68	2448 DBEntry("items", item_id).req_reputation = ("%s:%s"):format(faction:gsub("-", ""), reputation:upper())
jcallahan@68	2449 break
jcallahan@68	2450 end
jcallahan@68	2451 end
jcallahan@68	2452
jcallahan@87	2453 for line_index = 1, num_lines do
jcallahan@87	2454 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@87	2455
jcallahan@87	2456 if not current_line then
jcallahan@87	2457 break
jcallahan@87	2458 end
jcallahan@87	2459 local line_text = current_line:GetText()
jcallahan@87	2460 local quest_name = line_text:match(ITEM_REQ_QUEST_MATCH1) or line_text:match(ITEM_REQ_QUEST_MATCH2)
jcallahan@87	2461
jcallahan@87	2462 if quest_name then
jcallahan@87	2463 DBEntry("items", item_id).req_quest = ("%s"):format(quest_name:gsub("(.+): ", ""), quest_name)
jcallahan@87	2464 break
jcallahan@87	2465 end
jcallahan@87	2466 end
jcallahan@87	2467
jcallahan@44	2468 if extended_cost then
jcallahan@53	2469 local battleground_rating = 0
jcallahan@53	2470 local personal_rating = 0
jcallahan@53	2471 local required_season_amount
jcallahan@5	2472
jcallahan@68	2473 for line_index = 1, num_lines do
jcallahan@44	2474 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@5	2475
jcallahan@44	2476 if not current_line then
jcallahan@44	2477 break
jcallahan@44	2478 end
jcallahan@53	2479 required_season_amount = current_line:GetText():match("Requires earning a total of (%d+)\n(.-) for the season.")
jcallahan@5	2480
jcallahan@44	2481 for match_index = 1, #POINT_MATCH_PATTERNS do
jcallahan@44	2482 local match1, match2 = current_line:GetText():match(POINT_MATCH_PATTERNS[match_index])
jcallahan@53	2483 personal_rating = personal_rating + (match1 or 0)
jcallahan@53	2484 battleground_rating = battleground_rating + (match2 or 0)
jcallahan@5	2485
jcallahan@44	2486 if match1 or match2 then
jcallahan@44	2487 break
jcallahan@44	2488 end
jcallahan@44	2489 end
jcallahan@5	2490 end
jcallahan@44	2491 local currency_list = {}
jcallahan@44	2492 local item_count = _G.GetMerchantItemCostInfo(item_index)
jcallahan@50	2493
mmosimca@518	2494 -- Keeping this around in case Blizzard makes the two ratings (personal and battleground) diverge at some point
mmosimca@518	2495 --price_string = ("%s:%s:%s:%s"):format(price_string, battleground_rating, personal_rating, required_season_amount or 0)
jcallahan@53	2496 price_string = ("%s:%s:%s"):format(price_string, personal_rating, required_season_amount or 0)
jcallahan@5	2497
jcallahan@44	2498 for cost_index = 1, item_count do
jcallahan@324	2499 -- The third return (Blizz calls "currency_link") of GetMerchantItemCostItem only returns item links as of Patch 5.3.0.
MMOSimca@540	2500 local texture_id, amount_required, hyperlink, name = _G.GetMerchantItemCostItem(item_index, cost_index)
mmosimca@496	2501
mmosimca@519	2502 -- Try to get item ID
MMOSimca@540	2503 local item_id = ItemLinkToID(hyperlink)
mmosimca@519	2504
mmosimca@519	2505 -- FUTURE: At some point, we should make the output from these two cases (item_id vs currency_id) slightly different, so that WoWDB doesn't have to guess if it is a currency or item
mmosimca@519	2506 -- Handle cases when the additional cost is another item
mmosimca@519	2507 if item_id and item_id > 0 then
mmosimca@519	2508 currency_list[#currency_list + 1] = ("(%s:%d)"):format(amount_required, item_id)
mmosimca@519	2509 else
MMOSimca@540	2510 -- Try to get currency ID
MMOSimca@540	2511 local currency_id = CurrencyLinkToID(hyperlink)
mmosimca@519	2512 if currency_id and currency_id > 0 then
mmosimca@501	2513 currency_list[#currency_list + 1] = ("(%s:%d)"):format(amount_required, currency_id)
MMOSimca@540	2514 else
MMOSimca@540	2515 Debug("UpdateMerchantItems: Failed to get item ID and failed to get currency ID for item index %d and cost index %d", item_index, cost_index)
mmosimca@501	2516 end
jcallahan@44	2517 end
jcallahan@44	2518 end
jcallahan@44	2519
jcallahan@44	2520 for currency_index = 1, #currency_list do
jcallahan@44	2521 price_string = ("%s:%s"):format(price_string, currency_list[currency_index])
jcallahan@5	2522 end
jcallahan@5	2523 end
jcallahan@133	2524 current_merchant.sells[item_id] = ("%s:%s:[%s]"):format(num_available, stack_size, price_string)
jcallahan@44	2525 end
jcallahan@44	2526 end
jcallahan@5	2527
jcallahan@44	2528 if _G.CanMerchantRepair() then
jcallahan@133	2529 current_merchant.can_repair = true
jcallahan@5	2530 end
jcallahan@57	2531 _G.SetMerchantFilter(current_filters)
jcallahan@57	2532 _G.MerchantFrame_Update()
jcallahan@4	2533 end
jcallahan@44	2534 end -- do-block
jcallahan@4	2535
jcallahan@89	2536
jcallahan@92	2537 function WDP:PET_BAR_UPDATE(event_name)
MMOSimca@336	2538 if not private.NON_LOOT_SPELL_LABELS[current_action.spell_label] then
jcallahan@25	2539 return
jcallahan@25	2540 end
jcallahan@34	2541 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("pet"))
jcallahan@25	2542
jcallahan@171	2543 if not unit_idnum or not UnitTypeIsNPC(unit_type) then
jcallahan@25	2544 return
jcallahan@25	2545 end
jcallahan@29	2546 NPCEntry(unit_idnum).mind_control = true
jcallahan@122	2547 table.wipe(current_action)
jcallahan@25	2548 end
jcallahan@25	2549
jcallahan@25	2550
MMOSimca@368	2551 -- This function produces data currently unused by wowdb.com, and it causes unneeded bloat in the raw lua DB.
MMOSimca@442	2552 --[[local LPJ = LibStub("LibPetJournal-2.0")
MMOSimca@442	2553 function WDP:PET_JOURNAL_LIST_UPDATE(event_name)
MMOSimca@346	2554 if DEBUGGING then
jcallahan@309	2555 return
jcallahan@309	2556 end
jcallahan@309	2557
jcallahan@115	2558 local num_pets = LPJ:NumPets()
jcallahan@115	2559
jcallahan@115	2560 for index, pet_id in LPJ:IteratePetIDs() do
jcallahan@115	2561 local _, _, is_owned, _, level, _, _, name, icon, pet_type, npc_id, _, _, is_wild = _G.C_PetJournal.GetPetInfoByIndex(index)
jcallahan@115	2562
jcallahan@115	2563 if is_owned then
jcallahan@115	2564 local health, max_health, attack, speed, rarity = _G.C_PetJournal.GetPetStats(pet_id)
jcallahan@115	2565
jcallahan@139	2566 if rarity then
jcallahan@139	2567 local rarity_name = _G["BATTLE_PET_BREED_QUALITY" .. rarity]
jcallahan@139	2568 local npc = NPCEntry(npc_id)
jcallahan@139	2569 npc.wild_pet = is_wild or nil
jcallahan@139	2570 npc.battle_pet_data = npc.battle_pet_data or {}
jcallahan@139	2571 npc.battle_pet_data[rarity_name] = npc.battle_pet_data[rarity_name] or {}
jcallahan@139	2572 npc.battle_pet_data[rarity_name]["level_" .. level] = npc.battle_pet_data[rarity_name]["level_" .. level] or {}
jcallahan@139	2573
jcallahan@139	2574 local data = npc.battle_pet_data[rarity_name]["level_" .. level]
jcallahan@139	2575 data.max_health = max_health
jcallahan@139	2576 data.attack = attack
jcallahan@139	2577 data.speed = speed
jcallahan@139	2578 end
jcallahan@115	2579 end
jcallahan@115	2580 end
MMOSimca@368	2581 end]]--
jcallahan@115	2582
jcallahan@115	2583
jcallahan@156	2584 function WDP:PLAYER_REGEN_DISABLED(event_name)
jcallahan@156	2585 private.in_combat = true
jcallahan@156	2586 end
jcallahan@156	2587
jcallahan@156	2588
jcallahan@156	2589 function WDP:PLAYER_REGEN_ENABLED(event_name)
jcallahan@156	2590 private.in_combat = nil
jcallahan@156	2591 end
jcallahan@156	2592
jcallahan@156	2593
jcallahan@118	2594 function WDP:PLAYER_TARGET_CHANGED(event_name)
jcallahan@215	2595 if not TargetedNPC() then
jcallahan@118	2596 return
jcallahan@2	2597 end
jcallahan@151	2598 current_action.target_type = AF.NPC
jcallahan@118	2599 self:UpdateTargetLocation()
jcallahan@118	2600 end
jcallahan@2	2601
jcallahan@89	2602
jcallahan@12	2603 do
jcallahan@12	2604 local function UpdateQuestJuncture(point)
jcallahan@12	2605 local unit_name = _G.UnitName("questnpc")
jcallahan@9	2606
jcallahan@12	2607 if not unit_name then
jcallahan@12	2608 return
jcallahan@12	2609 end
jcallahan@34	2610 local unit_type, unit_id = ParseGUID(_G.UnitGUID("questnpc"))
MMOSimca@351	2611 Debug("UpdateQuestJuncture: Updating quest juncture for %s.", ("%s:%d"):format(private.UNIT_TYPE_NAMES[unit_type], unit_id))
jcallahan@12	2612 if unit_type == private.UNIT_TYPES.OBJECT then
jcallahan@38	2613 UpdateDBEntryLocation("objects", unit_id)
jcallahan@12	2614 end
jcallahan@19	2615 local quest = DBEntry("quests", _G.GetQuestID())
jcallahan@12	2616 quest[point] = quest[point] or {}
MMOSimca@329	2617 quest[point][("%s:%d"):format(private.UNIT_TYPE_NAMES[unit_type], unit_id)] = true
jcallahan@24	2618
jcallahan@24	2619 return quest
jcallahan@12	2620 end
jcallahan@10	2621
jcallahan@12	2622
jcallahan@92	2623 function WDP:QUEST_COMPLETE(event_name)
jcallahan@97	2624 local quest = UpdateQuestJuncture("end")
catherton@465	2625
MMOSimca@446	2626 if not quest then
MMOSimca@446	2627 return
MMOSimca@446	2628 end
jcallahan@97	2629
jcallahan@112	2630 if ALLOWED_LOCALES[CLIENT_LOCALE] then
jcallahan@112	2631 quest.reward_text = ReplaceKeywords(_G.GetRewardText())
jcallahan@112	2632 end
jcallahan@67	2633 -- Make sure the quest NPC isn't erroneously recorded as giving reputation for quests which award it.
jcallahan@177	2634 ClearKilledNPC()
jcallahan@10	2635 end
jcallahan@10	2636
jcallahan@12	2637
jcallahan@92	2638 function WDP:QUEST_DETAIL(event_name)
jcallahan@24	2639 local quest = UpdateQuestJuncture("begin")
jcallahan@24	2640
jcallahan@46	2641 if not quest then
jcallahan@46	2642 return
jcallahan@46	2643 end
jcallahan@24	2644 quest.classes = quest.classes or {}
jcallahan@27	2645 quest.classes[PLAYER_CLASS] = true
jcallahan@24	2646
jcallahan@24	2647 quest.races = quest.races or {}
jcallahan@100	2648 quest.races[(PLAYER_RACE == "Pandaren") and ("%s_%s"):format(PLAYER_RACE, PLAYER_FACTION or "Neutral") or PLAYER_RACE] = true
jcallahan@10	2649 end
jcallahan@12	2650 end -- do-block
jcallahan@9	2651
jcallahan@9	2652
jcallahan@92	2653 function WDP:QUEST_LOG_UPDATE(event_name)
jcallahan@38	2654 local selected_quest = _G.GetQuestLogSelection() -- Save current selection to be restored when we're done.
jcallahan@36	2655 local entry_index, processed_quests = 1, 0
jcallahan@36	2656 local _, num_quests = _G.GetNumQuestLogEntries()
jcallahan@36	2657
jcallahan@36	2658 while processed_quests <= num_quests do
MMOSimca@329	2659 local _, _, _, is_header, _, _, _, quest_id = _G.GetQuestLogTitle(entry_index)
jcallahan@36	2660
jcallahan@84	2661 if quest_id == 0 then
jcallahan@84	2662 processed_quests = processed_quests + 1
jcallahan@84	2663 elseif not is_header then
jcallahan@36	2664 _G.SelectQuestLogEntry(entry_index);
jcallahan@36	2665
jcallahan@36	2666 local quest = DBEntry("quests", quest_id)
jcallahan@36	2667 quest.timer = _G.GetQuestLogTimeLeft()
jcallahan@37	2668 quest.can_share = _G.GetQuestLogPushable() and true or nil
jcallahan@36	2669 processed_quests = processed_quests + 1
jcallahan@36	2670 end
jcallahan@36	2671 entry_index = entry_index + 1
jcallahan@36	2672 end
jcallahan@36	2673 _G.SelectQuestLogEntry(selected_quest)
jcallahan@4	2674 self:UnregisterEvent("QUEST_LOG_UPDATE")
jcallahan@4	2675 end
jcallahan@4	2676
jcallahan@4	2677
jcallahan@97	2678 function WDP:QUEST_PROGRESS(event_name)
jcallahan@112	2679 if not ALLOWED_LOCALES[CLIENT_LOCALE] then
jcallahan@112	2680 return
jcallahan@112	2681 end
jcallahan@97	2682 DBEntry("quests", _G.GetQuestID()).progress_text = ReplaceKeywords(_G.GetProgressText())
jcallahan@97	2683 end
jcallahan@97	2684
jcallahan@97	2685
jcallahan@92	2686 function WDP:UNIT_QUEST_LOG_CHANGED(event_name, unit_id)
jcallahan@4	2687 if unit_id ~= "player" then
jcallahan@4	2688 return
jcallahan@4	2689 end
jcallahan@4	2690 self:RegisterEvent("QUEST_LOG_UPDATE")
jcallahan@4	2691 end
jcallahan@4	2692
jcallahan@4	2693
jcallahan@92	2694 do
jcallahan@92	2695 local TRADESKILL_TOOLS = {
jcallahan@92	2696 Anvil = anvil_spell_ids,
jcallahan@92	2697 Forge = forge_spell_ids,
jcallahan@92	2698 }
jcallahan@92	2699
jcallahan@92	2700
jcallahan@167	2701 local function RegisterTools(tradeskill_name, tradeskill_index)
catherton@479	2702 local link = _G.C_TradeSkillUI.GetRecipeLink(tradeskill_index)
catherton@465	2703
MMOSimca@352	2704 if link then
MMOSimca@352	2705 local spell_id = tonumber(link:match("^\|c%x%x%x%x%x%x%x%x\|H%w+:(%d+)"))
catherton@479	2706 local required_tool = _G.C_TradeSkillUI.GetRecipeTools(tradeskill_index)
MMOSimca@352	2707
MMOSimca@352	2708 if required_tool then
MMOSimca@352	2709 for tool_name, registry in pairs(TRADESKILL_TOOLS) do
MMOSimca@352	2710 if required_tool:find(tool_name) then
MMOSimca@352	2711 registry[spell_id] = true
MMOSimca@352	2712 end
jcallahan@167	2713 end
jcallahan@167	2714 end
jcallahan@167	2715 end
jcallahan@167	2716 end
jcallahan@167	2717
jcallahan@167	2718
jcallahan@92	2719 function WDP:TRADE_SKILL_SHOW(event_name)
catherton@479	2720 local profession_name, prof_level = _G.C_TradeSkillUI.GetTradeSkillLine()
jcallahan@92	2721
jcallahan@92	2722 if profession_name == _G.UNKNOWN then
jcallahan@92	2723 return
jcallahan@92	2724 end
jcallahan@167	2725 TradeSkillExecutePer(RegisterTools)
jcallahan@92	2726 end
jcallahan@92	2727 end -- do-block
jcallahan@92	2728
jcallahan@92	2729
jcallahan@167	2730 function WDP:TRAINER_CLOSED(event_name)
jcallahan@167	2731 private.trainer_shown = nil
jcallahan@167	2732 end
jcallahan@167	2733
jcallahan@167	2734
jcallahan@92	2735 function WDP:TRAINER_SHOW(event_name)
jcallahan@232	2736 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@164	2737 local trainer = NPCEntry(unit_idnum)
jcallahan@58	2738
jcallahan@164	2739 if not trainer then
jcallahan@58	2740 return
jcallahan@58	2741 end
jcallahan@331	2742 local _, trainer_standing = UnitFactionStanding("npc")
jcallahan@164	2743 trainer.teaches = trainer.teaches or {}
jcallahan@27	2744
jcallahan@167	2745 private.trainer_shown = true
jcallahan@167	2746
jcallahan@27	2747 -- Get the initial trainer filters
MMOSimca@344	2748 local available = _G.GetTrainerServiceTypeFilter("available") and 1 or 0
MMOSimca@344	2749 local unavailable = _G.GetTrainerServiceTypeFilter("unavailable") and 1 or 0
MMOSimca@344	2750 local used = _G.GetTrainerServiceTypeFilter("used") and 1 or 0
jcallahan@27	2751
jcallahan@27	2752 -- Clear the trainer filters
MMOSimca@344	2753 _G.SetTrainerServiceTypeFilter("available", 1)
MMOSimca@344	2754 _G.SetTrainerServiceTypeFilter("unavailable", 1)
MMOSimca@344	2755 _G.SetTrainerServiceTypeFilter("used", 1)
jcallahan@27	2756
jcallahan@27	2757 for index = 1, _G.GetNumTrainerServices(), 1 do
jcallahan@27	2758 local spell_name, rank_name, _, _, required_level = _G.GetTrainerServiceInfo(index)
jcallahan@27	2759
jcallahan@27	2760 if spell_name then
jcallahan@27	2761 DatamineTT:ClearLines()
jcallahan@27	2762 DatamineTT:SetTrainerService(index)
jcallahan@27	2763
atcaleb@570	2764 local _, spell_id = DatamineTT:GetSpell()
jcallahan@27	2765
jcallahan@43	2766 if spell_id then
jcallahan@164	2767 local class_professions = trainer.teaches[PLAYER_CLASS]
jcallahan@164	2768
jcallahan@164	2769 if not class_professions then
jcallahan@164	2770 trainer.teaches[PLAYER_CLASS] = {}
jcallahan@164	2771 class_professions = trainer.teaches[PLAYER_CLASS]
jcallahan@164	2772 end
jcallahan@43	2773 local profession, min_skill = _G.GetTrainerServiceSkillReq(index)
jcallahan@43	2774 profession = profession or "General"
jcallahan@43	2775
jcallahan@164	2776 local profession_skills = class_professions[profession]
jcallahan@43	2777
jcallahan@43	2778 if not profession_skills then
jcallahan@43	2779 class_professions[profession] = {}
jcallahan@43	2780 profession_skills = class_professions[profession]
jcallahan@43	2781 end
jcallahan@173	2782 profession_skills[spell_id] = ("%d:%d:%d"):format(required_level, min_skill, _G.GetTrainerServiceCost(index))
jcallahan@27	2783 end
jcallahan@27	2784 end
jcallahan@27	2785 end
jcallahan@27	2786 -- Reset the filters to what they were before
MMOSimca@344	2787 _G.SetTrainerServiceTypeFilter("available", available or 0)
MMOSimca@344	2788 _G.SetTrainerServiceTypeFilter("unavailable", unavailable or 0)
MMOSimca@344	2789 _G.SetTrainerServiceTypeFilter("used", used or 0)
jcallahan@27	2790 end
jcallahan@27	2791
jcallahan@27	2792
jcallahan@1	2793 function WDP:UNIT_SPELLCAST_SENT(event_name, unit_id, spell_name, spell_rank, target_name, spell_line)
jcallahan@1	2794 if private.tracked_line or unit_id ~= "player" then
jcallahan@1	2795 return
jcallahan@1	2796 end
jcallahan@1	2797 local spell_label = private.SPELL_LABELS_BY_NAME[spell_name]
jcallahan@1	2798
jcallahan@1	2799 if not spell_label then
jcallahan@1	2800 return
jcallahan@1	2801 end
jcallahan@306	2802
MMOSimca@343	2803 Debug("UNIT_SPELLCAST_SENT: %s was cast.", spell_name)
jcallahan@150	2804 local item_name, item_link = _G.GameTooltip:GetItem()
jcallahan@150	2805 local unit_name, unit_id = _G.GameTooltip:GetUnit()
jcallahan@1	2806
jcallahan@150	2807 if not unit_name and _G.UnitName("target") == target_name then
jcallahan@150	2808 unit_name = target_name
jcallahan@150	2809 unit_id = "target"
jcallahan@1	2810 end
jcallahan@1	2811 local spell_flags = private.SPELL_FLAGS_BY_LABEL[spell_label]
jcallahan@28	2812 local zone_name, area_id, x, y, map_level, instance_token = CurrentLocationData()
MMOSimca@328	2813 if not (zone_name and area_id and x and y and map_level) then
mmosimca@508	2814 if not (_G.IsInInstance()) then
mmosimca@508	2815 Debug("%s: Missing current location data - %s, %s, %s, %s, %s.", event_name, tostring(zone_name), tostring(area_id), tostring(x), tostring(y), tostring(map_level))
mmosimca@508	2816 end
MMOSimca@328	2817 return
MMOSimca@328	2818 end
jcallahan@28	2819
jcallahan@205	2820 table.wipe(current_action)
jcallahan@122	2821 current_action.instance_token = instance_token
jcallahan@122	2822 current_action.map_level = map_level
jcallahan@122	2823 current_action.x = x
jcallahan@122	2824 current_action.y = y
jcallahan@122	2825 current_action.zone_data = ("%s:%d"):format(zone_name, area_id)
jcallahan@122	2826 current_action.spell_label = spell_label
jcallahan@105	2827
jcallahan@105	2828 if not private.NON_LOOT_SPELL_LABELS[spell_label] then
jcallahan@122	2829 current_action.loot_label = spell_label:lower()
jcallahan@105	2830 end
jcallahan@1	2831
jcallahan@151	2832 if unit_name and unit_name == target_name and not item_name then
jcallahan@16	2833 if bit.band(spell_flags, AF.NPC) == AF.NPC then
jcallahan@150	2834 if not unit_id or unit_name ~= target_name then
jcallahan@16	2835 return
jcallahan@16	2836 end
jcallahan@123	2837 current_action.target_type = AF.NPC
jcallahan@16	2838 end
jcallahan@16	2839 elseif bit.band(spell_flags, AF.ITEM) == AF.ITEM then
jcallahan@123	2840 current_action.target_type = AF.ITEM
jcallahan@16	2841
jcallahan@150	2842 if item_name and item_name == target_name then
jcallahan@150	2843 current_action.identifier = ItemLinkToID(item_link)
jcallahan@16	2844 elseif target_name and target_name ~= "" then
jcallahan@331	2845 local _, item_link = _G.GetItemInfo(target_name)
jcallahan@331	2846 current_action.identifier = ItemLinkToID(item_link)
jcallahan@16	2847 end
jcallahan@150	2848 elseif not item_name and not unit_name then
jcallahan@1	2849 if bit.band(spell_flags, AF.OBJECT) == AF.OBJECT then
jcallahan@17	2850 if target_name == "" then
jcallahan@17	2851 return
jcallahan@17	2852 end
jcallahan@122	2853 current_action.object_name = target_name
jcallahan@123	2854 current_action.target_type = AF.OBJECT
jcallahan@1	2855 elseif bit.band(spell_flags, AF.ZONE) == AF.ZONE then
jcallahan@123	2856 current_action.target_type = AF.ZONE
jcallahan@1	2857 end
jcallahan@1	2858 end
jcallahan@1	2859 private.tracked_line = spell_line
jcallahan@0	2860 end
jcallahan@0	2861
jcallahan@94	2862
MMOSimca@393	2863 -- Triggered by bonus roll prompts, disenchant prompts, and in a few other rare circumstances
jcallahan@312	2864 function WDP:SPELL_CONFIRMATION_PROMPT(event_name, spell_id, confirm_type, text, duration, currency_id_cost)
jcallahan@306	2865 if private.RAID_BOSS_BONUS_SPELL_ID_TO_NPC_ID_MAP[spell_id] then
jcallahan@306	2866 ClearKilledBossID()
jcallahan@306	2867 ClearLootToastContainerID()
MMOSimca@387	2868 raid_boss_id = private.RAID_BOSS_BONUS_SPELL_ID_TO_NPC_ID_MAP[spell_id]
jcallahan@306	2869 else
MMOSimca@336	2870 Debug("%s: Spell ID %d is not a known raid boss 'Bonus' spell.", event_name, spell_id)
jcallahan@306	2871 return
jcallahan@1	2872 end
jcallahan@306	2873
jcallahan@324	2874 -- Assign existing loot data to boss if it exists
jcallahan@307	2875 if loot_toast_data then
MMOSimca@427	2876 local npc = NPCEntry(raid_boss_id)
MMOSimca@427	2877 if npc then
MMOSimca@427	2878 -- Create needed npc fields if required
MMOSimca@427	2879 local loot_label = "drops"
MMOSimca@427	2880 local encounter_data = npc:EncounterData(InstanceDifficultyToken())
MMOSimca@427	2881 encounter_data[loot_label] = encounter_data[loot_label] or {}
MMOSimca@427	2882 encounter_data.loot_counts = encounter_data.loot_counts or {}
MMOSimca@427	2883
MMOSimca@427	2884 for index = 1, #loot_toast_data do
MMOSimca@427	2885 local data = loot_toast_data[index]
MMOSimca@427	2886 local loot_type = data[1]
MMOSimca@427	2887 local hyperlink = data[2]
MMOSimca@427	2888 local quantity = data[3]
MMOSimca@427	2889
MMOSimca@427	2890 if loot_type == "item" then
MMOSimca@427	2891 local item_id = ItemLinkToID(hyperlink)
MMOSimca@427	2892 Debug("%s: Assigned stored item loot data - %s - %d:%d", event_name, hyperlink, item_id, quantity)
MMOSimca@427	2893 table.insert(encounter_data[loot_label], ("%d:%d"):format(item_id, quantity))
MMOSimca@427	2894 elseif loot_type == "money" then
MMOSimca@427	2895 Debug("%s: Assigned stored money loot data - money:%d", event_name, quantity)
MMOSimca@427	2896 table.insert(encounter_data[loot_label], ("money:%d"):format(quantity))
MMOSimca@427	2897 elseif loot_type == "currency" then
mmosimca@496	2898 local currency_id = CurrencyLinkToID(hyperlink)
mmosimca@496	2899 Debug("%s: Assigned stored currency loot data - %s - currency:%d (%d)", event_name, hyperlink, currency_id, quantity)
mmosimca@496	2900 table.insert(encounter_data[loot_label], ("currency:%d:%d"):format(quantity, currency_id))
MMOSimca@427	2901 end
jcallahan@317	2902 end
jcallahan@317	2903
MMOSimca@427	2904 if not boss_loot_toasting[raid_boss_id] then
MMOSimca@427	2905 encounter_data.loot_counts[loot_label] = (encounter_data.loot_counts[loot_label] or 0) + 1
MMOSimca@427	2906 boss_loot_toasting[raid_boss_id] = true -- Do not count further loots until timer expires or another boss is killed
jcallahan@307	2907 end
MMOSimca@427	2908 else
MMOSimca@427	2909 Debug("%s: NPC is nil, but we have stored loot data...", event_name)
jcallahan@307	2910 end
jcallahan@307	2911 end
jcallahan@307	2912
jcallahan@307	2913 ClearLootToastData()
MMOSimca@427	2914 killed_boss_id_timer_handle = C_Timer.NewTimer(5, ClearKilledBossID)
jcallahan@306	2915 end
jcallahan@306	2916
jcallahan@306	2917
jcallahan@306	2918 function WDP:UNIT_SPELLCAST_SUCCEEDED(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id)
jcallahan@306	2919 if unit_id ~= "player" then
jcallahan@306	2920 return
jcallahan@306	2921 end
jcallahan@306	2922 private.tracked_line = nil
jcallahan@306	2923 private.previous_spell_id = spell_id
jcallahan@306	2924
MMOSimca@393	2925 -- For spells cast when Logging
MMOSimca@345	2926 if private.LOGGING_SPELL_ID_TO_OBJECT_ID_MAP[spell_id] then
MMOSimca@345	2927 last_timber_spell_id = spell_id
MMOSimca@351	2928 UpdateDBEntryLocation("objects", ("OPENING:%s"):format(private.LOGGING_SPELL_ID_TO_OBJECT_ID_MAP[spell_id]))
MMOSimca@345	2929 return
MMOSimca@345	2930 end
MMOSimca@345	2931
MMOSimca@393	2932 -- For spells cast by items that always trigger loot toasts
MMOSimca@381	2933 if private.LOOT_TOAST_CONTAINER_SPELL_ID_TO_ITEM_ID_MAP[spell_id] then
jcallahan@306	2934 ClearKilledBossID()
jcallahan@306	2935 ClearLootToastContainerID()
jcallahan@307	2936 ClearLootToastData()
jcallahan@306	2937
MMOSimca@387	2938 loot_toast_container_id = private.LOOT_TOAST_CONTAINER_SPELL_ID_TO_ITEM_ID_MAP[spell_id]
MMOSimca@383	2939 loot_toast_container_timer_handle = C_Timer.NewTimer(1, ClearLootToastContainerID) -- we need to assign a handle here to cancel it later
MMOSimca@345	2940 return
jcallahan@306	2941 end
jcallahan@306	2942
MMOSimca@393	2943 -- For spells cast by items that don't usually trigger loot toasts
catherton@473	2944 if not block_chat_loot_data and (private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_MAP[spell_id] or (private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_BY_CLASS_ID_MAP[spell_id] and private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_BY_CLASS_ID_MAP[spell_id][PLAYER_CLASS_ID])) then
MMOSimca@347	2945 -- Set up timer
MMOSimca@393	2946 ClearChatLootData()
MMOSimca@393	2947 Debug("%s: Beginning chat-based loot timer for spellID %d", event_name, spell_id)
MMOSimca@411	2948 chat_loot_timer_handle = C_Timer.NewTimer(1.5, ClearChatLootData)
catherton@473	2949 if (private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_BY_CLASS_ID_MAP[spell_id] and private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_BY_CLASS_ID_MAP[spell_id][PLAYER_CLASS_ID]) then
catherton@473	2950 chat_loot_data.identifier = private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_BY_CLASS_ID_MAP[spell_id][PLAYER_CLASS_ID]
MMOSimca@454	2951 else
MMOSimca@454	2952 chat_loot_data.identifier = private.DELAYED_CONTAINER_SPELL_ID_TO_ITEM_ID_MAP[spell_id]
MMOSimca@454	2953 end
MMOSimca@347	2954 return
MMOSimca@347	2955 end
MMOSimca@347	2956
mmosimca@520	2957 -- For Ephemeral Crystals (uses a combination of mouseover text and a 'Update Interactions' spell cast to detect the object - this is incredibly hacky but there is no alternative)
mmosimca@520	2958 local text = _G["GameTooltipTextLeft1"] and _G["GameTooltipTextLeft1"]:GetText() or nil
mmosimca@520	2959 if spell_id == SPELL_ID_UPDATE_INTERACTIONS and text and text == "Ephemeral Crystal" then
mmosimca@522	2960 Debug("%s: Detected location for an Ephemeral Crystal.", event_name)
mmosimca@520	2961 for index = 1, #private.EPHEMERAL_CRYSTAL_OBJECT_IDS do
mmosimca@520	2962 UpdateDBEntryLocation("objects", private.EPHEMERAL_CRYSTAL_OBJECT_IDS[index])
mmosimca@520	2963 end
mmosimca@520	2964 end
mmosimca@520	2965
jcallahan@306	2966 if anvil_spell_ids[spell_id] then
jcallahan@306	2967 UpdateDBEntryLocation("objects", OBJECT_ID_ANVIL)
jcallahan@306	2968 elseif forge_spell_ids[spell_id] then
jcallahan@306	2969 UpdateDBEntryLocation("objects", OBJECT_ID_FORGE)
jcallahan@306	2970 elseif spell_name:match("^Harvest.+") then
jcallahan@306	2971 killed_npc_id = current_target_id
MMOSimca@343	2972 private.harvesting = true -- Used to track which NPCs can be harvested (can we get this from CreatureCache instead?)
jcallahan@306	2973 end
jcallahan@306	2974 end
jcallahan@0	2975
jcallahan@90	2976
jcallahan@1	2977 function WDP:HandleSpellFailure(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id)
jcallahan@1	2978 if unit_id ~= "player" then
jcallahan@1	2979 return
jcallahan@1	2980 end
jcallahan@0	2981
jcallahan@1	2982 if private.tracked_line == spell_line then
jcallahan@1	2983 private.tracked_line = nil
jcallahan@1	2984 end
jcallahan@147	2985 table.wipe(current_action)
jcallahan@0	2986 end
jcallahan@90	2987
jcallahan@90	2988
jcallahan@90	2989 do
jcallahan@90	2990 local function SetUnitField(field, required_type)
jcallahan@90	2991 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@90	2992
jcallahan@90	2993 if not unit_idnum or (required_type and unit_type ~= required_type) then
jcallahan@90	2994 return
jcallahan@90	2995 end
jcallahan@90	2996
jcallahan@171	2997 if UnitTypeIsNPC(unit_type) then
jcallahan@90	2998 NPCEntry(unit_idnum)[field] = true
jcallahan@90	2999 elseif unit_type == private.UNIT_TYPES.OBJECT then
jcallahan@90	3000 DBEntry("objects", unit_idnum)[field] = true
jcallahan@93	3001 UpdateDBEntryLocation("objects", unit_idnum)
jcallahan@90	3002 end
jcallahan@90	3003 end
jcallahan@90	3004
jcallahan@90	3005
jcallahan@90	3006 function WDP:AUCTION_HOUSE_SHOW(event_name)
MMOSimca@436	3007 WDP:StopChatLootRecording(event_name)
jcallahan@90	3008 SetUnitField("auctioneer", private.UNIT_TYPES.NPC)
jcallahan@90	3009 end
jcallahan@90	3010
jcallahan@90	3011
jcallahan@90	3012 function WDP:BANKFRAME_OPENED(event_name)
MMOSimca@436	3013 WDP:StopChatLootRecording(event_name)
jcallahan@90	3014 SetUnitField("banker", private.UNIT_TYPES.NPC)
jcallahan@90	3015 end
jcallahan@90	3016
jcallahan@90	3017
jcallahan@90	3018 function WDP:BATTLEFIELDS_SHOW(event_name)
jcallahan@90	3019 SetUnitField("battlemaster", private.UNIT_TYPES.NPC)
jcallahan@90	3020 end
jcallahan@90	3021
jcallahan@90	3022
jcallahan@323	3023 local GOSSIP_SHOW_FUNCS = {
jcallahan@323	3024 [private.UNIT_TYPES.NPC] = function(unit_idnum)
jcallahan@323	3025 local gossip_options = { _G.GetGossipOptions() }
jcallahan@323	3026
jcallahan@323	3027 for index = 2, #gossip_options, 2 do
jcallahan@323	3028 if gossip_options[index] == "binder" then
jcallahan@323	3029 SetUnitField("innkeeper", private.UNIT_TYPES.NPC)
jcallahan@323	3030 return
jcallahan@323	3031 end
jcallahan@323	3032 end
jcallahan@323	3033 end,
jcallahan@323	3034 [private.UNIT_TYPES.OBJECT] = function(unit_idnum)
jcallahan@323	3035 UpdateDBEntryLocation("objects", unit_idnum)
jcallahan@323	3036 end,
jcallahan@323	3037 }
jcallahan@323	3038
jcallahan@323	3039
jcallahan@92	3040 function WDP:GOSSIP_SHOW(event_name)
MMOSimca@436	3041 WDP:StopChatLootRecording(event_name)
jcallahan@323	3042 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@323	3043 if not unit_idnum then
jcallahan@323	3044 return
jcallahan@323	3045 end
jcallahan@323	3046
jcallahan@323	3047 if GOSSIP_SHOW_FUNCS[unit_type] then
jcallahan@323	3048 GOSSIP_SHOW_FUNCS[unit_type](unit_idnum)
jcallahan@90	3049 end
jcallahan@90	3050 end
jcallahan@90	3051
jcallahan@90	3052
jcallahan@93	3053 function WDP:GUILDBANKFRAME_OPENED(event_name)
MMOSimca@436	3054 WDP:StopChatLootRecording(event_name)
jcallahan@93	3055 SetUnitField("guild_bank", private.UNIT_TYPES.OBJECT)
jcallahan@93	3056 end
jcallahan@93	3057
jcallahan@93	3058
jcallahan@189	3059 function WDP:ITEM_UPGRADE_MASTER_OPENED(event_name)
jcallahan@189	3060 SetUnitField("item_upgrade_master", private.UNIT_TYPES.NPC)
jcallahan@189	3061 end
jcallahan@189	3062
jcallahan@189	3063
jcallahan@90	3064 function WDP:TAXIMAP_OPENED(event_name)
jcallahan@90	3065 SetUnitField("flight_master", private.UNIT_TYPES.NPC)
jcallahan@90	3066 end
jcallahan@90	3067
jcallahan@90	3068
jcallahan@90	3069 function WDP:TRANSMOGRIFY_OPEN(event_name)
jcallahan@90	3070 SetUnitField("transmogrifier", private.UNIT_TYPES.NPC)
jcallahan@90	3071 end
jcallahan@90	3072
jcallahan@90	3073
jcallahan@90	3074 function WDP:VOID_STORAGE_OPEN(event_name)
jcallahan@90	3075 SetUnitField("void_storage", private.UNIT_TYPES.NPC)
jcallahan@90	3076 end
jcallahan@90	3077 end -- do-block

Mercurial > wow > wowdb-profiler

annotate Main.lua @ 576:be07cf7270d3 8.1.0-1