wow/wowdb-profiler: Main.lua annotate

annotate Main.lua @ 540:b7f2e3b03853 7.3.0-1

Update for Patch 7.3.0, including a currency fix, constants update, and TOC bump.

author	MMOSimca
date	Wed, 30 Aug 2017 18:22:40 -0400
parents	1bcaf08ae424
children	c6fafd40a7b7

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

Mercurial > wow > wowdb-profiler

annotate Main.lua @ 540:b7f2e3b03853 7.3.0-1