wow/wowdb-profiler: Main.lua annotate

annotate Main.lua @ 566:244aec3f15b0 8.0.1-5

Updated world quest parsing and recording to work on all continents, not just ones with emissaries.

author	Caleb Atherton <atcaleb@twitch.tv>
date	Wed, 01 Aug 2018 17:17:33 -0400
parents	19c59ee05ab1
children	1f472a5452a8

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

Mercurial > wow > wowdb-profiler

annotate Main.lua @ 566:244aec3f15b0 8.0.1-5