Mercurial > wow > wowdb-profiler

annotate Main.lua @ 19:6a0c96063003

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle looting items from items. Renamed UnitEntry() to DBEntry() for clarity.
author James D. Callahan III <jcallahan@curse.com>
date Tue, 08 May 2012 12:59:23 -0500
parents 86f02232a9e5
children dae28edbbd61
rev   line source
jcallahan@0 1 -----------------------------------------------------------------------
jcallahan@0 2 -- Upvalued Lua API.
jcallahan@0 3 -----------------------------------------------------------------------
jcallahan@0 4 local _G = getfenv(0)
jcallahan@0 5
jcallahan@0 6 local pairs = _G.pairs
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@0 13
jcallahan@0 14 -----------------------------------------------------------------------
jcallahan@0 15 -- AddOn namespace.
jcallahan@0 16 -----------------------------------------------------------------------
jcallahan@0 17 local ADDON_NAME, private = ...
jcallahan@0 18
jcallahan@0 19 local LibStub = _G.LibStub
jcallahan@0 20 local WDP = LibStub("AceAddon-3.0"):NewAddon(ADDON_NAME, "AceEvent-3.0", "AceTimer-3.0")
jcallahan@0 21
jcallahan@4 22 local DatamineTT = _G.CreateFrame("GameTooltip", "WDPDatamineTT", _G.UIParent, "GameTooltipTemplate")
jcallahan@5 23 DatamineTT:SetOwner(_G.WorldFrame, "ANCHOR_NONE")
jcallahan@5 24
jcallahan@0 25
jcallahan@0 26 -----------------------------------------------------------------------
jcallahan@0 27 -- Local constants.
jcallahan@0 28 -----------------------------------------------------------------------
jcallahan@0 29 local DATABASE_DEFAULTS = {
jcallahan@0 30 global = {
jcallahan@0 31 items = {},
jcallahan@0 32 npcs = {},
jcallahan@0 33 objects = {},
jcallahan@0 34 quests = {},
jcallahan@17 35 zones = {},
jcallahan@0 36 }
jcallahan@0 37 }
jcallahan@0 38
jcallahan@0 39
jcallahan@1 40 local EVENT_MAPPING = {
jcallahan@18 41 COMBAT_TEXT_UPDATE = true,
jcallahan@13 42 LOOT_CLOSED = true,
jcallahan@1 43 LOOT_OPENED = true,
jcallahan@7 44 MERCHANT_SHOW = "UpdateMerchantItems",
jcallahan@7 45 MERCHANT_UPDATE = "UpdateMerchantItems",
jcallahan@2 46 PLAYER_TARGET_CHANGED = true,
jcallahan@9 47 QUEST_COMPLETE = true,
jcallahan@9 48 QUEST_DETAIL = true,
jcallahan@9 49 QUEST_LOG_UPDATE = true,
jcallahan@4 50 UNIT_QUEST_LOG_CHANGED = true,
jcallahan@1 51 UNIT_SPELLCAST_FAILED = "HandleSpellFailure",
jcallahan@1 52 UNIT_SPELLCAST_FAILED_QUIET = "HandleSpellFailure",
jcallahan@1 53 UNIT_SPELLCAST_INTERRUPTED = "HandleSpellFailure",
jcallahan@1 54 UNIT_SPELLCAST_SENT = true,
jcallahan@1 55 UNIT_SPELLCAST_SUCCEEDED = true,
jcallahan@0 56 }
jcallahan@0 57
jcallahan@4 58
jcallahan@1 59 local AF = private.ACTION_TYPE_FLAGS
jcallahan@0 60
jcallahan@4 61
jcallahan@0 62 -----------------------------------------------------------------------
jcallahan@0 63 -- Local variables.
jcallahan@0 64 -----------------------------------------------------------------------
jcallahan@0 65 local db
jcallahan@0 66 local durability_timer_handle
jcallahan@2 67 local target_location_timer_handle
jcallahan@1 68 local action_data = {}
jcallahan@0 69
jcallahan@1 70
jcallahan@1 71 -----------------------------------------------------------------------
jcallahan@1 72 -- Helper Functions.
jcallahan@1 73 -----------------------------------------------------------------------
jcallahan@19 74 local function DBEntry(data_type, unit_id)
jcallahan@19 75 if not data_type or not unit_id then
jcallahan@6 76 return
jcallahan@6 77 end
jcallahan@19 78 local unit = db[data_type][unit_id]
jcallahan@6 79
jcallahan@10 80 if not unit then
jcallahan@19 81 db[data_type][unit_id] = {}
jcallahan@19 82 unit = db[data_type][unit_id]
jcallahan@6 83 end
jcallahan@10 84 return unit
jcallahan@6 85 end
jcallahan@6 86
jcallahan@6 87
jcallahan@1 88 local function CurrentLocationData()
jcallahan@1 89 local map_level = _G.GetCurrentMapDungeonLevel() or 0
jcallahan@1 90 local x, y = _G.GetPlayerMapPosition("player")
jcallahan@1 91
jcallahan@1 92 x = x or 0
jcallahan@1 93 y = y or 0
jcallahan@1 94
jcallahan@1 95 if x == 0 and y == 0 then
jcallahan@1 96 for level_index = 1, _G.GetNumDungeonMapLevels() do
jcallahan@1 97 _G.SetDungeonMapLevel(level_index)
jcallahan@1 98 x, y = _G.GetPlayerMapPosition("player")
jcallahan@1 99
jcallahan@1 100 if x and y and (x > 0 or y > 0) then
jcallahan@1 101 _G.SetDungeonMapLevel(map_level)
jcallahan@1 102 map_level = level_index
jcallahan@1 103 break
jcallahan@1 104 end
jcallahan@1 105 end
jcallahan@1 106 end
jcallahan@1 107
jcallahan@1 108 if _G.DungeonUsesTerrainMap() then
jcallahan@1 109 map_level = map_level - 1
jcallahan@1 110 end
jcallahan@8 111 local _, instance_type = _G.IsInInstance()
jcallahan@8 112 return _G.GetRealZoneText(), ("%.2f"):format(x * 100), ("%.2f"):format(y * 100), map_level or 0, instance_type:upper()
jcallahan@1 113 end
jcallahan@1 114
jcallahan@1 115
jcallahan@1 116 local function ItemLinkToID(item_link)
jcallahan@1 117 if not item_link then
jcallahan@1 118 return
jcallahan@1 119 end
jcallahan@7 120 return tonumber(item_link:match("item:(%d+)"))
jcallahan@1 121 end
jcallahan@0 122
jcallahan@4 123
jcallahan@4 124 do
jcallahan@4 125 local UNIT_TYPE_BITMASK = 0x007
jcallahan@4 126
jcallahan@4 127 function WDP:ParseGUID(guid)
jcallahan@5 128 if not guid then
jcallahan@5 129 return
jcallahan@5 130 end
jcallahan@4 131 local types = private.UNIT_TYPES
jcallahan@4 132 local unit_type = _G.bit.band(tonumber(guid:sub(1, 5)), UNIT_TYPE_BITMASK)
jcallahan@4 133
jcallahan@10 134 if unit_type ~= types.PLAYER and unit_type ~= types.PET then
jcallahan@4 135 return unit_type, tonumber(guid:sub(-12, -9), 16)
jcallahan@4 136 end
jcallahan@4 137
jcallahan@4 138 return unit_type
jcallahan@4 139 end
jcallahan@4 140 end -- do-block
jcallahan@4 141
jcallahan@4 142
jcallahan@10 143 local function UpdateObjectLocation(identifier)
jcallahan@10 144 if not identifier then
jcallahan@10 145 return
jcallahan@10 146 end
jcallahan@10 147 local zone_name, x, y, map_level, instance_type = CurrentLocationData()
jcallahan@19 148 local object = DBEntry("objects", identifier)
jcallahan@11 149 object.locations = object.locations or {}
jcallahan@10 150
jcallahan@11 151 if not object.locations[zone_name] then
jcallahan@11 152 object.locations[zone_name] = {}
jcallahan@10 153 end
jcallahan@11 154 object.locations[zone_name][("%s:%s:%s:%s"):format(instance_type, map_level, x, y)] = true
jcallahan@10 155 end
jcallahan@10 156
jcallahan@10 157
jcallahan@19 158 local function HandleItemUse(item_link, bag_index, slot_index)
jcallahan@19 159 if not item_link then
jcallahan@19 160 return
jcallahan@19 161 end
jcallahan@19 162 local item_id = ItemLinkToID(item_link)
jcallahan@19 163
jcallahan@19 164 if not bag_index or not slot_index then
jcallahan@19 165 for new_bag_index = 0, _G.NUM_BAG_FRAMES do
jcallahan@19 166 for new_slot_index = 1, _G.GetContainerNumSlots(new_bag_index) do
jcallahan@19 167 if item_id == ItemLinkToID(_G.GetContainerItemLink(new_bag_index, new_slot_index)) then
jcallahan@19 168 bag_index = new_bag_index
jcallahan@19 169 slot_index = new_slot_index
jcallahan@19 170 break
jcallahan@19 171 end
jcallahan@19 172 end
jcallahan@19 173 end
jcallahan@19 174 end
jcallahan@19 175
jcallahan@19 176 if not bag_index or not slot_index then
jcallahan@19 177 return
jcallahan@19 178 end
jcallahan@19 179 local _, _, _, _, _, is_lootable = _G.GetContainerItemInfo(bag_index, slot_index)
jcallahan@19 180
jcallahan@19 181 if not is_lootable then
jcallahan@19 182 return
jcallahan@19 183 end
jcallahan@19 184 DatamineTT:ClearLines()
jcallahan@19 185 DatamineTT:SetBagItem(bag_index, slot_index)
jcallahan@19 186
jcallahan@19 187 for line_index = 1, DatamineTT:NumLines() do
jcallahan@19 188 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@19 189
jcallahan@19 190 if not current_line then
jcallahan@19 191 break
jcallahan@19 192 end
jcallahan@19 193
jcallahan@19 194 if current_line:GetText() == _G.ITEM_OPENABLE then
jcallahan@19 195 table.wipe(action_data)
jcallahan@19 196 action_data.type = AF.ITEM
jcallahan@19 197 action_data.item_id = item_id
jcallahan@19 198 action_data.loot_type = "contains"
jcallahan@19 199 break
jcallahan@19 200 end
jcallahan@19 201 end
jcallahan@19 202 end
jcallahan@19 203
jcallahan@19 204
jcallahan@0 205 -----------------------------------------------------------------------
jcallahan@0 206 -- Methods.
jcallahan@0 207 -----------------------------------------------------------------------
jcallahan@0 208 function WDP:OnInitialize()
jcallahan@0 209 db = LibStub("AceDB-3.0"):New("WoWDBProfilerData", DATABASE_DEFAULTS, "Default").global
jcallahan@14 210
jcallahan@14 211 local raw_db = _G["WoWDBProfilerData"]
jcallahan@14 212
jcallahan@18 213 local build_num = tonumber(private.build_num)
jcallahan@14 214
jcallahan@14 215 if raw_db.build_num and raw_db.build_num < build_num then
jcallahan@14 216 for entry in pairs(DATABASE_DEFAULTS.global) do
jcallahan@14 217 db[entry] = {}
jcallahan@14 218 end
jcallahan@14 219 raw_db.build_num = build_num
jcallahan@14 220 elseif not raw_db.build_num then
jcallahan@14 221 raw_db.build_num = build_num
jcallahan@14 222 end
jcallahan@0 223 end
jcallahan@0 224
jcallahan@0 225
jcallahan@0 226 function WDP:OnEnable()
jcallahan@0 227 for event_name, mapping in pairs(EVENT_MAPPING) do
jcallahan@1 228 self:RegisterEvent(event_name, (_G.type(mapping) ~= "boolean") and mapping or nil)
jcallahan@0 229 end
jcallahan@0 230 durability_timer_handle = self:ScheduleRepeatingTimer("ProcessDurability", 30)
jcallahan@2 231 target_location_timer_handle = self:ScheduleRepeatingTimer("UpdateTargetLocation", 0.2)
jcallahan@19 232
jcallahan@19 233 _G.hooksecurefunc("UseContainerItem", function(bag_index, slot_index, target_unit)
jcallahan@19 234 if target_unit then
jcallahan@19 235 return
jcallahan@19 236 end
jcallahan@19 237 HandleItemUse(_G.GetContainerItemLink(bag_index, slot_index), bag_index, slot_index)
jcallahan@19 238
jcallahan@19 239 end)
jcallahan@19 240
jcallahan@19 241 _G.hooksecurefunc("UseItemByName", function(identifier, target_unit)
jcallahan@19 242 if target_unit then
jcallahan@19 243 return
jcallahan@19 244 end
jcallahan@19 245 local _, item_link = _G.GetItemInfo(identifier)
jcallahan@19 246 HandleItemUse(item_link)
jcallahan@19 247 end)
jcallahan@0 248 end
jcallahan@0 249
jcallahan@0 250
jcallahan@0 251 local function RecordDurability(item_id, durability)
jcallahan@0 252 if not durability or durability <= 0 then
jcallahan@0 253 return
jcallahan@0 254 end
jcallahan@0 255
jcallahan@0 256 if not db.items[item_id] then
jcallahan@0 257 db.items[item_id] = {}
jcallahan@0 258 end
jcallahan@0 259 db.items[item_id].durability = durability
jcallahan@0 260 end
jcallahan@0 261
jcallahan@0 262
jcallahan@0 263 function WDP:ProcessDurability()
jcallahan@0 264 for slot_index = 0, _G.INVSLOT_LAST_EQUIPPED do
jcallahan@1 265 local item_id = _G.GetInventoryItemID("player", slot_index)
jcallahan@0 266
jcallahan@0 267 if item_id and item_id > 0 then
jcallahan@1 268 local _, max_durability = _G.GetInventoryItemDurability(slot_index)
jcallahan@0 269 RecordDurability(item_id, max_durability)
jcallahan@0 270 end
jcallahan@0 271 end
jcallahan@0 272
jcallahan@0 273 for bag_index = 0, _G.NUM_BAG_SLOTS do
jcallahan@0 274 for slot_index = 1, _G.GetContainerNumSlots(bag_index) do
jcallahan@1 275 local item_id = _G.GetContainerItemID(bag_index, slot_index)
jcallahan@0 276
jcallahan@0 277 if item_id and item_id > 0 then
jcallahan@1 278 local _, max_durability = _G.GetContainerItemDurability(bag_index, slot_index)
jcallahan@0 279 RecordDurability(item_id, max_durability)
jcallahan@0 280 end
jcallahan@0 281 end
jcallahan@0 282 end
jcallahan@0 283 end
jcallahan@0 284
jcallahan@0 285
jcallahan@2 286 function WDP:UpdateTargetLocation()
jcallahan@2 287 if not _G.UnitExists("target") or _G.UnitPlayerControlled("target") or _G.UnitIsTapped("target") then
jcallahan@2 288 return
jcallahan@2 289 end
jcallahan@2 290
jcallahan@2 291 for index = 1, 4 do
jcallahan@2 292 if not _G.CheckInteractDistance("target", index) then
jcallahan@2 293 return
jcallahan@2 294 end
jcallahan@2 295 end
jcallahan@2 296
jcallahan@2 297 local unit_type, unit_idnum = self:ParseGUID(_G.UnitGUID("target"))
jcallahan@2 298
jcallahan@2 299 if unit_type ~= private.UNIT_TYPES.NPC or not unit_idnum then
jcallahan@2 300 return
jcallahan@2 301 end
jcallahan@8 302 local zone_name, x, y, map_level, instance_type = CurrentLocationData()
jcallahan@19 303 local npc_data = DBEntry("npcs", unit_idnum).stats[("level_%d"):format(_G.UnitLevel("target"))]
jcallahan@6 304 npc_data.locations = npc_data.locations or {}
jcallahan@2 305
jcallahan@2 306 if not npc_data.locations[zone_name] then
jcallahan@2 307 npc_data.locations[zone_name] = {}
jcallahan@2 308 end
jcallahan@8 309 npc_data.locations[zone_name][("%s:%s:%s:%s"):format(instance_type, map_level, x, y)] = true
jcallahan@2 310 end
jcallahan@2 311
jcallahan@2 312
jcallahan@0 313 -----------------------------------------------------------------------
jcallahan@0 314 -- Event handlers.
jcallahan@0 315 -----------------------------------------------------------------------
jcallahan@18 316 function WDP:COMBAT_TEXT_UPDATE(event, message_type, faction_name, amount)
jcallahan@19 317 -- if message_type ~= "FACTION" or _G.UnitIsUnit("target", "questnpc") then
jcallahan@19 318 -- return
jcallahan@19 319 -- end
jcallahan@19 320 -- local unit_type, unit_idnum = self:ParseGUID(_G.UnitGUID("target"))
jcallahan@19 321 -- local npc = DBEntry("npcs", unit_idnum)
jcallahan@19 322 --
jcallahan@19 323 -- if not npc then
jcallahan@19 324 -- return
jcallahan@19 325 -- end
jcallahan@19 326 -- npc.reputations = npc.reputations or {}
jcallahan@19 327 -- npc.reputations[faction_name] = amount
jcallahan@19 328 --
jcallahan@18 329 -- print(("%s: %s, %s, %s"):format(event, message_type, faction_name, amount))
jcallahan@18 330 end
jcallahan@18 331
jcallahan@18 332
jcallahan@13 333 function WDP:LOOT_CLOSED()
jcallahan@18 334 -- table.wipe(action_data)
jcallahan@0 335 end
jcallahan@0 336
jcallahan@0 337
jcallahan@13 338 do
jcallahan@13 339 local re_gold = _G.GOLD_AMOUNT:gsub("%%d", "(%%d+)")
jcallahan@13 340 local re_silver = _G.SILVER_AMOUNT:gsub("%%d", "(%%d+)")
jcallahan@13 341 local re_copper = _G.COPPER_AMOUNT:gsub("%%d", "(%%d+)")
jcallahan@13 342
jcallahan@13 343
jcallahan@13 344 local function _moneyMatch(money, re)
jcallahan@13 345 return money:match(re) or 0
jcallahan@1 346 end
jcallahan@1 347
jcallahan@0 348
jcallahan@13 349 local function _toCopper(money)
jcallahan@13 350 if not money then
jcallahan@13 351 return 0
jcallahan@13 352 end
jcallahan@0 353
jcallahan@13 354 return _moneyMatch(money, re_gold) * 10000 + _moneyMatch(money, re_silver) * 100 + _moneyMatch(money, re_copper)
jcallahan@1 355 end
jcallahan@1 356
jcallahan@1 357
jcallahan@13 358 local LOOT_VERIFY_FUNCS = {
jcallahan@16 359 [AF.ITEM] = function()
jcallahan@16 360 local locked_item_id
jcallahan@16 361
jcallahan@16 362 for bag_index = 0, _G.NUM_BAG_FRAMES do
jcallahan@16 363 for slot_index = 1, _G.GetContainerNumSlots(bag_index) do
jcallahan@16 364 local _, _, is_locked = _G.GetContainerItemInfo(bag_index, slot_index)
jcallahan@16 365
jcallahan@16 366 if is_locked then
jcallahan@16 367 locked_item_id = ItemLinkToID(_G.GetContainerItemLink(bag_index, slot_index))
jcallahan@16 368 end
jcallahan@16 369 end
jcallahan@16 370 end
jcallahan@16 371
jcallahan@16 372 if not locked_item_id or (action_data.item_id and action_data.item_id ~= locked_item_id) then
jcallahan@16 373 return false
jcallahan@16 374 end
jcallahan@16 375 action_data.item_id = locked_item_id
jcallahan@16 376 return true
jcallahan@16 377 end,
jcallahan@13 378 [AF.NPC] = function()
jcallahan@17 379 if not _G.UnitExists("target") or _G.UnitIsFriend("player", "target") or _G.UnitIsPlayer("target") or _G.UnitPlayerControlled("target") then
jcallahan@15 380 return false
jcallahan@13 381 end
jcallahan@15 382 local unit_type, id_num = WDP:ParseGUID(_G.UnitGUID("target"))
jcallahan@15 383 action_data.id_num = id_num
jcallahan@13 384 return true
jcallahan@13 385 end,
jcallahan@14 386 [AF.OBJECT] = true,
jcallahan@17 387 [AF.ZONE] = function()
jcallahan@17 388 return action_data.loot_type and _G.IsFishingLoot()
jcallahan@17 389 end,
jcallahan@13 390 }
jcallahan@13 391
jcallahan@13 392
jcallahan@13 393 local LOOT_UPDATE_FUNCS = {
jcallahan@16 394 [AF.ITEM] = function()
jcallahan@19 395 local item = DBEntry("items", action_data.item_id)
jcallahan@19 396 local loot_type = action_data.loot_type or "drops"
jcallahan@16 397 item[loot_type] = item[loot_type] or {}
jcallahan@16 398
jcallahan@17 399 for index = 1, #action_data.loot_list do
jcallahan@17 400 table.insert(item[loot_type], action_data.loot_list[index])
jcallahan@16 401 end
jcallahan@16 402 end,
jcallahan@13 403 [AF.NPC] = function()
jcallahan@19 404 local npc = DBEntry("npcs", action_data.id_num)
jcallahan@15 405
jcallahan@15 406 if not npc then
jcallahan@15 407 return
jcallahan@15 408 end
jcallahan@13 409 local loot_type = action_data.loot_type or "drops"
jcallahan@13 410 npc[loot_type] = npc[loot_type] or {}
jcallahan@13 411
jcallahan@17 412 for index = 1, #action_data.loot_list do
jcallahan@17 413 table.insert(npc[loot_type], action_data.loot_list[index])
jcallahan@13 414 end
jcallahan@13 415 end,
jcallahan@13 416 [AF.OBJECT] = function()
jcallahan@19 417 local object = DBEntry("objects", action_data.identifier)
jcallahan@13 418 object.drops = object.drops or {}
jcallahan@13 419
jcallahan@17 420 for index = 1, #action_data.loot_list do
jcallahan@17 421 table.insert(object.drops, action_data.loot_list[index])
jcallahan@17 422 end
jcallahan@17 423 end,
jcallahan@17 424 [AF.ZONE] = function()
jcallahan@17 425 local loot_type = action_data.loot_type or "drops"
jcallahan@19 426 local zone = DBEntry("zones", action_data.zone)
jcallahan@17 427 zone[loot_type] = zone[loot_type] or {}
jcallahan@17 428
jcallahan@17 429 local location_data = ("%s:%s:%s:%s"):format(action_data.instance_type, action_data.map_level, action_data.x, action_data.y)
jcallahan@17 430 local loot_data = zone[loot_type][location_data]
jcallahan@17 431
jcallahan@17 432 if not loot_data then
jcallahan@17 433 zone[loot_type][location_data] = {}
jcallahan@17 434 loot_data = zone[loot_type][location_data]
jcallahan@17 435 end
jcallahan@17 436
jcallahan@17 437 for index = 1, #action_data.loot_list do
jcallahan@17 438 table.insert(loot_data, action_data.loot_list[index])
jcallahan@13 439 end
jcallahan@13 440 end,
jcallahan@13 441 }
jcallahan@13 442
jcallahan@13 443
jcallahan@13 444 function WDP:LOOT_OPENED()
jcallahan@18 445 if action_data.looting then
jcallahan@18 446 return
jcallahan@18 447 end
jcallahan@18 448
jcallahan@13 449 if not action_data.type then
jcallahan@13 450 action_data.type = AF.NPC
jcallahan@1 451 end
jcallahan@13 452 local verify_func = LOOT_VERIFY_FUNCS[action_data.type]
jcallahan@13 453 local update_func = LOOT_UPDATE_FUNCS[action_data.type]
jcallahan@13 454
jcallahan@14 455 if not verify_func or not update_func then
jcallahan@13 456 return
jcallahan@13 457 end
jcallahan@13 458
jcallahan@14 459 if _G.type(verify_func) == "function" and not verify_func() then
jcallahan@14 460 return
jcallahan@14 461 end
jcallahan@18 462 -- TODO: Remove this check once the MoP client goes live
jcallahan@18 463 local wow_version = private.wow_version
jcallahan@13 464 local loot_registry = {}
jcallahan@17 465 action_data.loot_list = {}
jcallahan@18 466 action_data.looting = true
jcallahan@13 467
jcallahan@18 468 if wow_version == "5.0.1" then
jcallahan@18 469 for loot_slot = 1, _G.GetNumLootItems() do
jcallahan@18 470 local icon_texture, item_text, quantity, quality, locked = _G.GetLootSlotInfo(loot_slot)
jcallahan@13 471
jcallahan@18 472 local slot_type = _G.GetLootSlotType(loot_slot)
jcallahan@18 473
jcallahan@18 474 if slot_type == _G.LOOT_SLOT_ITEM then
jcallahan@18 475 local item_id = ItemLinkToID(_G.GetLootSlotLink(loot_slot))
jcallahan@18 476 loot_registry[item_id] = (loot_registry[item_id]) or 0 + quantity
jcallahan@18 477 elseif slot_type == _G.LOOT_SLOT_MONEY then
jcallahan@18 478 table.insert(action_data.loot_list, ("money:%d"):format(_toCopper(item_text)))
jcallahan@18 479 elseif slot_type == _G.LOOT_SLOT_CURRENCY then
jcallahan@18 480 table.insert(action_data.loot_list, ("currency:%d:%s"):format(quantity, icon_texture:match("[^\\]+$"):lower()))
jcallahan@18 481 end
jcallahan@18 482 end
jcallahan@18 483 else
jcallahan@18 484 for loot_slot = 1, _G.GetNumLootItems() do
jcallahan@18 485 local icon_texture, item_text, quantity, quality, locked = _G.GetLootSlotInfo(loot_slot)
jcallahan@18 486 if _G.LootSlotIsItem(loot_slot) then
jcallahan@18 487 local item_id = ItemLinkToID(_G.GetLootSlotLink(loot_slot))
jcallahan@18 488 loot_registry[item_id] = (loot_registry[item_id]) or 0 + quantity
jcallahan@18 489 elseif _G.LootSlotIsCoin(loot_slot) then
jcallahan@18 490 table.insert(action_data.loot_list, ("money:%d"):format(_toCopper(item_text)))
jcallahan@18 491 elseif _G.LootSlotIsCurrency(loot_slot) then
jcallahan@18 492 table.insert(action_data.loot_list, ("currency:%d:%s"):format(quantity, icon_texture:match("[^\\]+$"):lower()))
jcallahan@18 493 end
jcallahan@13 494 end
jcallahan@13 495 end
jcallahan@13 496
jcallahan@13 497 for item_id, quantity in pairs(loot_registry) do
jcallahan@17 498 table.insert(action_data.loot_list, ("%d:%d"):format(item_id, quantity))
jcallahan@13 499 end
jcallahan@13 500 update_func()
jcallahan@1 501 end
jcallahan@13 502 end -- do-block
jcallahan@0 503
jcallahan@0 504
jcallahan@5 505 local POINT_MATCH_PATTERNS = {
jcallahan@5 506 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@5 507 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_3V3:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@5 508 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_5V5:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@5 509 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_BG:gsub("%%d", "(%%d+)")),
jcallahan@5 510 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_3V3_BG:gsub("%%d", "(%%d+)")),
jcallahan@5 511 }
jcallahan@5 512
jcallahan@5 513
jcallahan@7 514 function WDP:UpdateMerchantItems()
jcallahan@4 515 local unit_type, unit_idnum = self:ParseGUID(_G.UnitGUID("target"))
jcallahan@4 516
jcallahan@4 517 if unit_type ~= private.UNIT_TYPES.NPC or not unit_idnum then
jcallahan@4 518 return
jcallahan@4 519 end
jcallahan@19 520 local merchant = DBEntry("npcs", unit_idnum)
jcallahan@6 521 merchant.sells = merchant.sells or {}
jcallahan@5 522
jcallahan@5 523 for item_index = 1, _G.GetMerchantNumItems() do
jcallahan@5 524 local _, _, copper_price, stack_size, num_available, _, extended_cost = _G.GetMerchantItemInfo(item_index)
jcallahan@5 525 local item_id = ItemLinkToID(_G.GetMerchantItemLink(item_index))
jcallahan@5 526
jcallahan@5 527 if item_id and item_id > 0 then
jcallahan@5 528 local price_string = copper_price
jcallahan@5 529
jcallahan@5 530 if extended_cost then
jcallahan@5 531 local bg_points = 0
jcallahan@5 532 local personal_points = 0
jcallahan@5 533
jcallahan@5 534 DatamineTT:ClearLines()
jcallahan@5 535 DatamineTT:SetMerchantItem(item_index)
jcallahan@5 536
jcallahan@5 537 for line_index = 1, DatamineTT:NumLines() do
jcallahan@5 538 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@5 539
jcallahan@5 540 if not current_line then
jcallahan@5 541 break
jcallahan@5 542 end
jcallahan@5 543 local breakout
jcallahan@5 544
jcallahan@5 545 for match_index = 1, #POINT_MATCH_PATTERNS do
jcallahan@5 546 local match1, match2 = current_line:GetText():match(POINT_MATCH_PATTERNS[match_index])
jcallahan@5 547 personal_points = personal_points + (match1 or 0)
jcallahan@5 548 bg_points = bg_points + (match2 or 0)
jcallahan@5 549
jcallahan@5 550 if match1 or match2 then
jcallahan@5 551 breakout = true
jcallahan@5 552 break
jcallahan@5 553 end
jcallahan@5 554 end
jcallahan@5 555
jcallahan@5 556 if breakout then
jcallahan@5 557 break
jcallahan@5 558 end
jcallahan@5 559 end
jcallahan@5 560 local currency_list = {}
jcallahan@5 561
jcallahan@5 562 price_string = ("%s:%s:%s"):format(price_string, bg_points, personal_points)
jcallahan@5 563
jcallahan@5 564 for cost_index = 1, _G.GetMerchantItemCostInfo(item_index) do
jcallahan@5 565 local icon_texture, amount_required, currency_link = _G.GetMerchantItemCostItem(item_index, cost_index)
jcallahan@5 566 local currency_id = currency_link and ItemLinkToID(currency_link) or nil
jcallahan@5 567
jcallahan@5 568 if not currency_id or currency_id < 1 then
jcallahan@5 569 if not icon_texture then
jcallahan@5 570 return
jcallahan@5 571 end
jcallahan@5 572 currency_id = icon_texture:match("[^\\]+$"):lower()
jcallahan@5 573 end
jcallahan@5 574 currency_list[#currency_list + 1] = ("(%s:%s)"):format(amount_required, currency_id)
jcallahan@5 575 end
jcallahan@5 576
jcallahan@5 577 for currency_index = 1, #currency_list do
jcallahan@5 578 price_string = ("%s:%s"):format(price_string, currency_list[currency_index])
jcallahan@5 579 end
jcallahan@5 580 end
jcallahan@6 581 merchant.sells[("%s:%s:[%s]"):format(item_id, stack_size, price_string)] = num_available
jcallahan@5 582 end
jcallahan@4 583 end
jcallahan@14 584
jcallahan@14 585 if _G.CanMerchantRepair() then
jcallahan@14 586 merchant.can_repair = true
jcallahan@14 587 end
jcallahan@4 588 end
jcallahan@4 589
jcallahan@4 590
jcallahan@18 591 do
jcallahan@18 592 local GENDER_NAMES = {
jcallahan@18 593 "UNKNOWN",
jcallahan@18 594 "MALE",
jcallahan@18 595 "FEMALE",
jcallahan@18 596 }
jcallahan@2 597
jcallahan@2 598
jcallahan@18 599 local REACTION_NAMES = {
jcallahan@18 600 "HATED",
jcallahan@18 601 "HOSTILE",
jcallahan@18 602 "UNFRIENDLY",
jcallahan@18 603 "NEUTRAL",
jcallahan@18 604 "FRIENDLY",
jcallahan@18 605 "HONORED",
jcallahan@18 606 "REVERED",
jcallahan@18 607 "EXALTED",
jcallahan@18 608 }
jcallahan@2 609
jcallahan@2 610
jcallahan@18 611 local POWER_TYPE_NAMES = {
jcallahan@18 612 ["0"] = "MANA",
jcallahan@18 613 ["1"] = "RAGE",
jcallahan@18 614 ["2"] = "FOCUS",
jcallahan@18 615 ["3"] = "ENERGY",
jcallahan@18 616 ["6"] = "RUNIC_POWER",
jcallahan@18 617 }
jcallahan@2 618
jcallahan@2 619
jcallahan@18 620 function WDP:PLAYER_TARGET_CHANGED()
jcallahan@18 621 if not _G.UnitExists("target") or _G.UnitPlayerControlled("target") then
jcallahan@18 622 return
jcallahan@18 623 end
jcallahan@18 624 local unit_type, unit_idnum = self:ParseGUID(_G.UnitGUID("target"))
jcallahan@2 625
jcallahan@18 626 if unit_type ~= private.UNIT_TYPES.NPC or not unit_idnum then
jcallahan@18 627 return
jcallahan@18 628 end
jcallahan@18 629 table.wipe(action_data)
jcallahan@2 630
jcallahan@19 631 local npc = DBEntry("npcs", unit_idnum)
jcallahan@18 632 local _, class_token = _G.UnitClass("target")
jcallahan@18 633 npc.class = class_token
jcallahan@18 634 -- TODO: Add faction here
jcallahan@18 635 npc.gender = GENDER_NAMES[_G.UnitSex("target")] or "UNDEFINED"
jcallahan@18 636 npc.is_pvp = _G.UnitIsPVP("target") and true or nil
jcallahan@18 637 npc.reaction = ("%s:%s:%s"):format(_G.UnitLevel("player"), _G.UnitFactionGroup("player"), REACTION_NAMES[_G.UnitReaction("player", "target")])
jcallahan@18 638 npc.stats = npc.stats or {}
jcallahan@2 639
jcallahan@18 640 local npc_level = ("level_%d"):format(_G.UnitLevel("target"))
jcallahan@3 641
jcallahan@18 642 if not npc.stats[npc_level] then
jcallahan@18 643 npc.stats[npc_level] = {
jcallahan@18 644 max_health = _G.UnitHealthMax("target"),
jcallahan@18 645 }
jcallahan@3 646
jcallahan@18 647 local max_power = _G.UnitManaMax("target")
jcallahan@18 648
jcallahan@18 649 if max_power > 0 then
jcallahan@18 650 local power_type = _G.UnitPowerType("target")
jcallahan@18 651 npc.stats[npc_level].power = ("%s:%d"):format(POWER_TYPE_NAMES[_G.tostring(power_type)] or power_type, max_power)
jcallahan@18 652 end
jcallahan@3 653 end
jcallahan@2 654 end
jcallahan@18 655 end -- do-block
jcallahan@2 656
jcallahan@12 657 do
jcallahan@12 658 local function UpdateQuestJuncture(point)
jcallahan@12 659 local unit_name = _G.UnitName("questnpc")
jcallahan@9 660
jcallahan@12 661 if not unit_name then
jcallahan@12 662 return
jcallahan@12 663 end
jcallahan@12 664 local unit_type, unit_id = WDP:ParseGUID(_G.UnitGUID("questnpc"))
jcallahan@9 665
jcallahan@12 666 if unit_type == private.UNIT_TYPES.OBJECT then
jcallahan@12 667 UpdateObjectLocation(unit_id)
jcallahan@12 668 end
jcallahan@19 669 local quest = DBEntry("quests", _G.GetQuestID())
jcallahan@12 670 quest[point] = quest[point] or {}
jcallahan@12 671 quest[point][("%s:%d"):format(private.UNIT_TYPE_NAMES[unit_type + 1], unit_id)] = true
jcallahan@12 672 end
jcallahan@10 673
jcallahan@12 674
jcallahan@12 675 function WDP:QUEST_COMPLETE()
jcallahan@12 676 UpdateQuestJuncture("end")
jcallahan@10 677 end
jcallahan@10 678
jcallahan@12 679
jcallahan@12 680 function WDP:QUEST_DETAIL()
jcallahan@12 681 UpdateQuestJuncture("begin")
jcallahan@10 682 end
jcallahan@12 683 end -- do-block
jcallahan@9 684
jcallahan@9 685
jcallahan@4 686 function WDP:QUEST_LOG_UPDATE()
jcallahan@4 687 self:UnregisterEvent("QUEST_LOG_UPDATE")
jcallahan@4 688 end
jcallahan@4 689
jcallahan@4 690
jcallahan@4 691 function WDP:UNIT_QUEST_LOG_CHANGED(event, unit_id)
jcallahan@4 692 if unit_id ~= "player" then
jcallahan@4 693 return
jcallahan@4 694 end
jcallahan@4 695 self:RegisterEvent("QUEST_LOG_UPDATE")
jcallahan@4 696 end
jcallahan@4 697
jcallahan@4 698
jcallahan@1 699 function WDP:UNIT_SPELLCAST_SENT(event_name, unit_id, spell_name, spell_rank, target_name, spell_line)
jcallahan@1 700 if private.tracked_line or unit_id ~= "player" then
jcallahan@1 701 return
jcallahan@1 702 end
jcallahan@1 703 local spell_label = private.SPELL_LABELS_BY_NAME[spell_name]
jcallahan@1 704
jcallahan@1 705 if not spell_label then
jcallahan@1 706 return
jcallahan@1 707 end
jcallahan@18 708 table.wipe(action_data)
jcallahan@1 709
jcallahan@1 710 local tt_item_name, tt_item_link = _G.GameTooltip:GetItem()
jcallahan@1 711 local tt_unit_name, tt_unit_id = _G.GameTooltip:GetUnit()
jcallahan@1 712
jcallahan@1 713 if not tt_unit_name and _G.UnitName("target") == target_name then
jcallahan@1 714 tt_unit_name = target_name
jcallahan@1 715 tt_unit_id = "target"
jcallahan@1 716 end
jcallahan@1 717 local spell_flags = private.SPELL_FLAGS_BY_LABEL[spell_label]
jcallahan@1 718
jcallahan@16 719 if tt_unit_name and not tt_item_name then
jcallahan@16 720 if bit.band(spell_flags, AF.NPC) == AF.NPC then
jcallahan@16 721 if not tt_unit_id or tt_unit_name ~= target_name then
jcallahan@16 722 return
jcallahan@16 723 end
jcallahan@16 724 action_data.type = AF.NPC
jcallahan@16 725 action_data.loot_type = spell_label:lower()
jcallahan@16 726 end
jcallahan@16 727 elseif bit.band(spell_flags, AF.ITEM) == AF.ITEM then
jcallahan@16 728 action_data.type = AF.ITEM
jcallahan@16 729 action_data.loot_type = spell_label:lower()
jcallahan@16 730
jcallahan@16 731 if tt_item_name and tt_item_name == target_name then
jcallahan@16 732 action_data.item_id = ItemLinkToID(tt_item_link)
jcallahan@16 733 elseif target_name and target_name ~= "" then
jcallahan@16 734 local _, target_item_link = _G.GetItemInfo(target_name)
jcallahan@16 735 action_data.item_id = ItemLinkToID(target_item_link)
jcallahan@16 736 end
jcallahan@16 737 elseif not tt_item_name and not tt_unit_name then
jcallahan@8 738 local zone_name, x, y, map_level, instance_type = CurrentLocationData()
jcallahan@1 739
jcallahan@17 740 action_data.instance_type = instance_type
jcallahan@17 741 action_data.map_level = map_level
jcallahan@17 742 action_data.name = target_name
jcallahan@17 743 action_data.x = x
jcallahan@17 744 action_data.y = y
jcallahan@17 745 action_data.zone = zone_name
jcallahan@17 746
jcallahan@1 747 if bit.band(spell_flags, AF.OBJECT) == AF.OBJECT then
jcallahan@17 748 if target_name == "" then
jcallahan@17 749 return
jcallahan@17 750 end
jcallahan@11 751 local identifier = ("%s:%s"):format(spell_label, target_name)
jcallahan@11 752 UpdateObjectLocation(identifier)
jcallahan@11 753
jcallahan@1 754 action_data.type = AF.OBJECT
jcallahan@11 755 action_data.identifier = identifier
jcallahan@1 756 elseif bit.band(spell_flags, AF.ZONE) == AF.ZONE then
jcallahan@17 757 action_data.type = AF.ZONE
jcallahan@17 758 action_data.loot_type = spell_label:lower()
jcallahan@1 759 end
jcallahan@1 760 end
jcallahan@1 761
jcallahan@18 762 -- print(("%s: '%s', '%s', '%s', '%s', '%s'"):format(event_name, unit_id, spell_name, spell_rank, target_name, spell_line))
jcallahan@1 763 private.tracked_line = spell_line
jcallahan@0 764 end
jcallahan@0 765
jcallahan@0 766
jcallahan@1 767 function WDP:UNIT_SPELLCAST_SUCCEEDED(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id)
jcallahan@1 768 if unit_id ~= "player" then
jcallahan@1 769 return
jcallahan@1 770 end
jcallahan@1 771
jcallahan@18 772 -- if private.SPELL_LABELS_BY_NAME[spell_name] then
jcallahan@18 773 -- print(("%s: '%s', '%s', '%s', '%s', '%s'"):format(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id))
jcallahan@18 774 -- end
jcallahan@1 775 private.tracked_line = nil
jcallahan@0 776 end
jcallahan@0 777
jcallahan@1 778 function WDP:HandleSpellFailure(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id)
jcallahan@1 779 if unit_id ~= "player" then
jcallahan@1 780 return
jcallahan@1 781 end
jcallahan@0 782
jcallahan@1 783 if private.tracked_line == spell_line then
jcallahan@1 784 private.tracked_line = nil
jcallahan@1 785 end
jcallahan@0 786 end