Mercurial > wow > wowdb-profiler

annotate Main.lua @ 44:2a9bb8175562

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Detect reputation modifier buffs and remove their effects before storing gains.
author James D. Callahan III <jcallahan@curse.com>
date Thu, 14 Jun 2012 16:41:01 -0500
parents 15f2e3d8463b
children 5d5a490724ec
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@40 41 CHAT_MSG_SYSTEM = true,
jcallahan@23 42 COMBAT_LOG_EVENT_UNFILTERED = true,
jcallahan@18 43 COMBAT_TEXT_UPDATE = true,
jcallahan@42 44 ITEM_TEXT_BEGIN = true,
jcallahan@1 45 LOOT_OPENED = true,
jcallahan@7 46 MERCHANT_SHOW = "UpdateMerchantItems",
jcallahan@35 47 -- MERCHANT_UPDATE = "UpdateMerchantItems",
jcallahan@25 48 PET_BAR_UPDATE = true,
jcallahan@2 49 PLAYER_TARGET_CHANGED = true,
jcallahan@9 50 QUEST_COMPLETE = true,
jcallahan@9 51 QUEST_DETAIL = true,
jcallahan@9 52 QUEST_LOG_UPDATE = true,
jcallahan@27 53 TRAINER_SHOW = true,
jcallahan@4 54 UNIT_QUEST_LOG_CHANGED = true,
jcallahan@1 55 UNIT_SPELLCAST_FAILED = "HandleSpellFailure",
jcallahan@1 56 UNIT_SPELLCAST_FAILED_QUIET = "HandleSpellFailure",
jcallahan@1 57 UNIT_SPELLCAST_INTERRUPTED = "HandleSpellFailure",
jcallahan@1 58 UNIT_SPELLCAST_SENT = true,
jcallahan@1 59 UNIT_SPELLCAST_SUCCEEDED = true,
jcallahan@0 60 }
jcallahan@0 61
jcallahan@4 62
jcallahan@1 63 local AF = private.ACTION_TYPE_FLAGS
jcallahan@0 64
jcallahan@4 65
jcallahan@27 66 local PLAYER_CLASS = _G.select(2, _G.UnitClass("player"))
jcallahan@34 67 local PLAYER_GUID = _G.UnitGUID("player")
jcallahan@39 68 local PLAYER_RACE = _G.select(2, _G.UnitRace("player"))
jcallahan@27 69
jcallahan@0 70 -----------------------------------------------------------------------
jcallahan@0 71 -- Local variables.
jcallahan@0 72 -----------------------------------------------------------------------
jcallahan@0 73 local db
jcallahan@0 74 local durability_timer_handle
jcallahan@2 75 local target_location_timer_handle
jcallahan@1 76 local action_data = {}
jcallahan@40 77 local currently_drunk
jcallahan@32 78 local faction_standings = {}
jcallahan@0 79
jcallahan@1 80
jcallahan@1 81 -----------------------------------------------------------------------
jcallahan@1 82 -- Helper Functions.
jcallahan@1 83 -----------------------------------------------------------------------
jcallahan@39 84 local ActualCopperCost
jcallahan@39 85 do
jcallahan@39 86 local BARTERING_SPELL_ID = 83964
jcallahan@39 87
jcallahan@39 88 local STANDING_DISCOUNTS = {
jcallahan@39 89 HATED = 0,
jcallahan@39 90 HOSTILE = 0,
jcallahan@39 91 UNFRIENDLY = 0,
jcallahan@39 92 NEUTRAL = 0,
jcallahan@39 93 FRIENDLY = 0.05,
jcallahan@39 94 HONORED = 0.1,
jcallahan@39 95 REVERED = 0.15,
jcallahan@39 96 EXALTED = 0.2,
jcallahan@39 97 }
jcallahan@39 98
jcallahan@39 99
jcallahan@39 100 function ActualCopperCost(copper_cost, rep_standing)
jcallahan@39 101 if not copper_cost or copper_cost == 0 then
jcallahan@39 102 return 0
jcallahan@39 103 end
jcallahan@39 104 local modifier = 1
jcallahan@39 105
jcallahan@39 106 if _G.IsSpellKnown(BARTERING_SPELL_ID) then
jcallahan@39 107 modifier = modifier - 0.1
jcallahan@39 108 end
jcallahan@39 109
jcallahan@39 110 if rep_standing then
jcallahan@39 111 if PLAYER_RACE == "Goblin" then
jcallahan@39 112 modifier = modifier - STANDING_DISCOUNTS["EXALTED"]
jcallahan@39 113 elseif STANDING_DISCOUNTS[rep_standing] then
jcallahan@39 114 modifier = modifier - STANDING_DISCOUNTS[rep_standing]
jcallahan@39 115 end
jcallahan@39 116 end
jcallahan@39 117 return math.floor(copper_cost / modifier)
jcallahan@39 118 end
jcallahan@39 119 end -- do-block
jcallahan@39 120
jcallahan@39 121
jcallahan@29 122 local function InstanceDifficultyToken()
jcallahan@29 123 local _, instance_type, instance_difficulty, difficulty_name, _, _, is_dynamic = _G.GetInstanceInfo()
jcallahan@29 124 if difficulty_name == "" then
jcallahan@29 125 difficulty_name = "NONE"
jcallahan@29 126 end
jcallahan@29 127 return ("%s:%s:%s"):format(instance_type:upper(), difficulty_name:upper():gsub(" ", "_"), _G.tostring(is_dynamic))
jcallahan@29 128 end
jcallahan@29 129
jcallahan@29 130
jcallahan@19 131 local function DBEntry(data_type, unit_id)
jcallahan@19 132 if not data_type or not unit_id then
jcallahan@6 133 return
jcallahan@6 134 end
jcallahan@19 135 local unit = db[data_type][unit_id]
jcallahan@6 136
jcallahan@10 137 if not unit then
jcallahan@19 138 db[data_type][unit_id] = {}
jcallahan@19 139 unit = db[data_type][unit_id]
jcallahan@6 140 end
jcallahan@10 141 return unit
jcallahan@6 142 end
jcallahan@6 143
jcallahan@6 144
jcallahan@29 145 local function NPCEntry(identifier)
jcallahan@29 146 local npc = DBEntry("npcs", identifier)
jcallahan@29 147
jcallahan@29 148 if not npc then
jcallahan@29 149 return
jcallahan@22 150 end
jcallahan@29 151 local instance_token = InstanceDifficultyToken()
jcallahan@29 152 npc.encounter_data = npc.encounter_data or {}
jcallahan@29 153 npc.encounter_data[instance_token] = npc.encounter_data[instance_token] or {}
jcallahan@30 154 npc.encounter_data[instance_token].stats = npc.encounter_data[instance_token].stats or {}
jcallahan@29 155 return npc
jcallahan@22 156 end
jcallahan@22 157
jcallahan@22 158
jcallahan@1 159 local function CurrentLocationData()
jcallahan@1 160 local map_level = _G.GetCurrentMapDungeonLevel() or 0
jcallahan@1 161 local x, y = _G.GetPlayerMapPosition("player")
jcallahan@1 162
jcallahan@1 163 x = x or 0
jcallahan@1 164 y = y or 0
jcallahan@1 165
jcallahan@1 166 if x == 0 and y == 0 then
jcallahan@1 167 for level_index = 1, _G.GetNumDungeonMapLevels() do
jcallahan@1 168 _G.SetDungeonMapLevel(level_index)
jcallahan@1 169 x, y = _G.GetPlayerMapPosition("player")
jcallahan@1 170
jcallahan@1 171 if x and y and (x > 0 or y > 0) then
jcallahan@1 172 _G.SetDungeonMapLevel(map_level)
jcallahan@1 173 map_level = level_index
jcallahan@1 174 break
jcallahan@1 175 end
jcallahan@1 176 end
jcallahan@1 177 end
jcallahan@1 178
jcallahan@1 179 if _G.DungeonUsesTerrainMap() then
jcallahan@1 180 map_level = map_level - 1
jcallahan@1 181 end
jcallahan@31 182 local x = _G.floor(x * 1000)
jcallahan@31 183 local y = _G.floor(y * 1000)
jcallahan@28 184
jcallahan@31 185 if x % 2 ~= 0 then
jcallahan@31 186 x = x + 1
jcallahan@28 187 end
jcallahan@28 188
jcallahan@31 189 if y % 2 ~= 0 then
jcallahan@31 190 y = y + 1
jcallahan@28 191 end
jcallahan@31 192 return _G.GetRealZoneText(), _G.GetCurrentMapAreaID(), x, y, map_level, InstanceDifficultyToken()
jcallahan@1 193 end
jcallahan@1 194
jcallahan@1 195
jcallahan@1 196 local function ItemLinkToID(item_link)
jcallahan@1 197 if not item_link then
jcallahan@1 198 return
jcallahan@1 199 end
jcallahan@7 200 return tonumber(item_link:match("item:(%d+)"))
jcallahan@1 201 end
jcallahan@0 202
jcallahan@4 203
jcallahan@34 204 local ParseGUID
jcallahan@4 205 do
jcallahan@4 206 local UNIT_TYPE_BITMASK = 0x007
jcallahan@4 207
jcallahan@34 208 function ParseGUID(guid)
jcallahan@5 209 if not guid then
jcallahan@5 210 return
jcallahan@5 211 end
jcallahan@4 212 local types = private.UNIT_TYPES
jcallahan@4 213 local unit_type = _G.bit.band(tonumber(guid:sub(1, 5)), UNIT_TYPE_BITMASK)
jcallahan@4 214
jcallahan@10 215 if unit_type ~= types.PLAYER and unit_type ~= types.PET then
jcallahan@4 216 return unit_type, tonumber(guid:sub(-12, -9), 16)
jcallahan@4 217 end
jcallahan@4 218
jcallahan@4 219 return unit_type
jcallahan@4 220 end
jcallahan@4 221 end -- do-block
jcallahan@4 222
jcallahan@4 223
jcallahan@34 224 local UpdateNPCLocation
jcallahan@34 225 do
jcallahan@34 226 local COORD_MAX = 5
jcallahan@34 227
jcallahan@34 228 function UpdateNPCLocation(unit_idnum)
jcallahan@34 229 local zone_name, area_id, x, y, map_level, difficulty_token = CurrentLocationData()
jcallahan@34 230 local npc_data = NPCEntry(unit_idnum).encounter_data[difficulty_token].stats[("level_%d"):format(_G.UnitLevel("target"))]
jcallahan@34 231 local zone_token = ("%s:%d"):format(zone_name, area_id)
jcallahan@34 232 npc_data.locations = npc_data.locations or {}
jcallahan@34 233
jcallahan@34 234 local zone_data = npc_data.locations[zone_token]
jcallahan@34 235
jcallahan@34 236 if not zone_data then
jcallahan@34 237 zone_data = {}
jcallahan@34 238 npc_data.locations[zone_token] = zone_data
jcallahan@34 239 end
jcallahan@34 240
jcallahan@34 241 for location_token in pairs(zone_data) do
jcallahan@34 242 local loc_level, loc_x, loc_y = (":"):split(location_token)
jcallahan@34 243 loc_level = tonumber(loc_level)
jcallahan@34 244
jcallahan@34 245 if map_level == loc_level and math.abs(x - loc_x) <= COORD_MAX and math.abs(y - loc_y) <= COORD_MAX then
jcallahan@34 246 return
jcallahan@34 247 end
jcallahan@34 248 end
jcallahan@34 249 zone_data[("%s:%s:%s"):format(map_level, x, y)] = true
jcallahan@34 250 end
jcallahan@34 251 end -- do-block
jcallahan@34 252
jcallahan@34 253
jcallahan@38 254 local function UpdateDBEntryLocation(entry_type, identifier)
jcallahan@10 255 if not identifier then
jcallahan@10 256 return
jcallahan@10 257 end
jcallahan@31 258 local zone_name, area_id, x, y, map_level, difficulty_token = CurrentLocationData()
jcallahan@41 259 local entry = DBEntry(entry_type, identifier)
jcallahan@41 260 entry[difficulty_token] = entry[difficulty_token] or {}
jcallahan@41 261 entry[difficulty_token].locations = entry[difficulty_token].locations or {}
jcallahan@10 262
jcallahan@31 263 local zone_token = ("%s:%d"):format(zone_name, area_id)
jcallahan@41 264 local zone_data = entry[difficulty_token].locations[zone_token]
jcallahan@24 265
jcallahan@31 266 if not zone_data then
jcallahan@31 267 zone_data = {}
jcallahan@41 268 entry[difficulty_token].locations[zone_token] = zone_data
jcallahan@10 269 end
jcallahan@41 270 local location_token = ("%s:%s:%s"):format(map_level, x, y)
jcallahan@41 271 zone_data[location_token] = zone_data[location_token] or true
jcallahan@41 272 return zone_data
jcallahan@10 273 end
jcallahan@10 274
jcallahan@10 275
jcallahan@19 276 local function HandleItemUse(item_link, bag_index, slot_index)
jcallahan@19 277 if not item_link then
jcallahan@19 278 return
jcallahan@19 279 end
jcallahan@19 280 local item_id = ItemLinkToID(item_link)
jcallahan@19 281
jcallahan@19 282 if not bag_index or not slot_index then
jcallahan@19 283 for new_bag_index = 0, _G.NUM_BAG_FRAMES do
jcallahan@19 284 for new_slot_index = 1, _G.GetContainerNumSlots(new_bag_index) do
jcallahan@19 285 if item_id == ItemLinkToID(_G.GetContainerItemLink(new_bag_index, new_slot_index)) then
jcallahan@19 286 bag_index = new_bag_index
jcallahan@19 287 slot_index = new_slot_index
jcallahan@19 288 break
jcallahan@19 289 end
jcallahan@19 290 end
jcallahan@19 291 end
jcallahan@19 292 end
jcallahan@19 293
jcallahan@19 294 if not bag_index or not slot_index then
jcallahan@19 295 return
jcallahan@19 296 end
jcallahan@19 297 local _, _, _, _, _, is_lootable = _G.GetContainerItemInfo(bag_index, slot_index)
jcallahan@19 298
jcallahan@19 299 if not is_lootable then
jcallahan@19 300 return
jcallahan@19 301 end
jcallahan@19 302 DatamineTT:ClearLines()
jcallahan@19 303 DatamineTT:SetBagItem(bag_index, slot_index)
jcallahan@19 304
jcallahan@19 305 for line_index = 1, DatamineTT:NumLines() do
jcallahan@19 306 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@19 307
jcallahan@19 308 if not current_line then
jcallahan@19 309 break
jcallahan@19 310 end
jcallahan@19 311
jcallahan@19 312 if current_line:GetText() == _G.ITEM_OPENABLE then
jcallahan@19 313 table.wipe(action_data)
jcallahan@19 314 action_data.type = AF.ITEM
jcallahan@28 315 action_data.identifier = item_id
jcallahan@25 316 action_data.label = "contains"
jcallahan@19 317 break
jcallahan@19 318 end
jcallahan@19 319 end
jcallahan@19 320 end
jcallahan@19 321
jcallahan@19 322
jcallahan@39 323 local UnitFactionStanding
jcallahan@32 324 local UpdateFactionData
jcallahan@32 325 do
jcallahan@32 326 local MAX_FACTION_INDEX = 1000
jcallahan@20 327
jcallahan@32 328 local STANDING_NAMES = {
jcallahan@32 329 "HATED",
jcallahan@32 330 "HOSTILE",
jcallahan@32 331 "UNFRIENDLY",
jcallahan@32 332 "NEUTRAL",
jcallahan@32 333 "FRIENDLY",
jcallahan@32 334 "HONORED",
jcallahan@32 335 "REVERED",
jcallahan@32 336 "EXALTED",
jcallahan@32 337 }
jcallahan@32 338
jcallahan@39 339
jcallahan@39 340 function UnitFactionStanding(unit)
jcallahan@39 341 UpdateFactionData()
jcallahan@39 342 DatamineTT:ClearLines()
jcallahan@39 343 DatamineTT:SetUnit(unit)
jcallahan@39 344
jcallahan@39 345 for line_index = 1, DatamineTT:NumLines() do
jcallahan@39 346 local faction_name = _G["WDPDatamineTTTextLeft" .. line_index]:GetText()
jcallahan@39 347
jcallahan@39 348 if faction_name and faction_standings[faction_name] then
jcallahan@39 349 return faction_name, faction_standings[faction_name]
jcallahan@39 350 end
jcallahan@39 351 end
jcallahan@39 352 end
jcallahan@39 353
jcallahan@39 354
jcallahan@32 355 function UpdateFactionData()
jcallahan@32 356 for faction_index = 1, MAX_FACTION_INDEX do
jcallahan@32 357 local faction_name, _, current_standing, _, _, _, _, _, is_header = _G.GetFactionInfo(faction_index)
jcallahan@32 358
jcallahan@32 359 if faction_name and not is_header then
jcallahan@32 360 faction_standings[faction_name] = STANDING_NAMES[current_standing]
jcallahan@32 361 elseif not faction_name then
jcallahan@32 362 break
jcallahan@32 363 end
jcallahan@20 364 end
jcallahan@20 365 end
jcallahan@32 366 end -- do-block
jcallahan@20 367
jcallahan@0 368 -----------------------------------------------------------------------
jcallahan@0 369 -- Methods.
jcallahan@0 370 -----------------------------------------------------------------------
jcallahan@0 371 function WDP:OnInitialize()
jcallahan@0 372 db = LibStub("AceDB-3.0"):New("WoWDBProfilerData", DATABASE_DEFAULTS, "Default").global
jcallahan@14 373
jcallahan@14 374 local raw_db = _G["WoWDBProfilerData"]
jcallahan@14 375
jcallahan@18 376 local build_num = tonumber(private.build_num)
jcallahan@14 377
jcallahan@35 378 -- TODO: Un-comment this when MoP goes live.
jcallahan@35 379 -- if raw_db.build_num and raw_db.build_num < build_num then
jcallahan@35 380 -- for entry in pairs(DATABASE_DEFAULTS.global) do
jcallahan@35 381 -- db[entry] = {}
jcallahan@35 382 -- end
jcallahan@35 383 -- end
jcallahan@35 384 raw_db.build_num = build_num
jcallahan@0 385 end
jcallahan@0 386
jcallahan@0 387
jcallahan@0 388 function WDP:OnEnable()
jcallahan@0 389 for event_name, mapping in pairs(EVENT_MAPPING) do
jcallahan@1 390 self:RegisterEvent(event_name, (_G.type(mapping) ~= "boolean") and mapping or nil)
jcallahan@0 391 end
jcallahan@0 392 durability_timer_handle = self:ScheduleRepeatingTimer("ProcessDurability", 30)
jcallahan@31 393 target_location_timer_handle = self:ScheduleRepeatingTimer("UpdateTargetLocation", 0.5)
jcallahan@19 394
jcallahan@19 395 _G.hooksecurefunc("UseContainerItem", function(bag_index, slot_index, target_unit)
jcallahan@19 396 if target_unit then
jcallahan@19 397 return
jcallahan@19 398 end
jcallahan@19 399 HandleItemUse(_G.GetContainerItemLink(bag_index, slot_index), bag_index, slot_index)
jcallahan@19 400 end)
jcallahan@19 401
jcallahan@19 402 _G.hooksecurefunc("UseItemByName", function(identifier, target_unit)
jcallahan@19 403 if target_unit then
jcallahan@19 404 return
jcallahan@19 405 end
jcallahan@19 406 local _, item_link = _G.GetItemInfo(identifier)
jcallahan@19 407 HandleItemUse(item_link)
jcallahan@19 408 end)
jcallahan@0 409 end
jcallahan@0 410
jcallahan@0 411
jcallahan@0 412 local function RecordDurability(item_id, durability)
jcallahan@0 413 if not durability or durability <= 0 then
jcallahan@0 414 return
jcallahan@0 415 end
jcallahan@0 416
jcallahan@0 417 if not db.items[item_id] then
jcallahan@0 418 db.items[item_id] = {}
jcallahan@0 419 end
jcallahan@0 420 db.items[item_id].durability = durability
jcallahan@0 421 end
jcallahan@0 422
jcallahan@0 423
jcallahan@0 424 function WDP:ProcessDurability()
jcallahan@0 425 for slot_index = 0, _G.INVSLOT_LAST_EQUIPPED do
jcallahan@1 426 local item_id = _G.GetInventoryItemID("player", slot_index)
jcallahan@0 427
jcallahan@0 428 if item_id and item_id > 0 then
jcallahan@1 429 local _, max_durability = _G.GetInventoryItemDurability(slot_index)
jcallahan@0 430 RecordDurability(item_id, max_durability)
jcallahan@0 431 end
jcallahan@0 432 end
jcallahan@0 433
jcallahan@0 434 for bag_index = 0, _G.NUM_BAG_SLOTS do
jcallahan@0 435 for slot_index = 1, _G.GetContainerNumSlots(bag_index) do
jcallahan@1 436 local item_id = _G.GetContainerItemID(bag_index, slot_index)
jcallahan@0 437
jcallahan@0 438 if item_id and item_id > 0 then
jcallahan@1 439 local _, max_durability = _G.GetContainerItemDurability(bag_index, slot_index)
jcallahan@0 440 RecordDurability(item_id, max_durability)
jcallahan@0 441 end
jcallahan@0 442 end
jcallahan@0 443 end
jcallahan@0 444 end
jcallahan@0 445
jcallahan@0 446
jcallahan@2 447 function WDP:UpdateTargetLocation()
jcallahan@40 448 if currently_drunk or not _G.UnitExists("target") or _G.UnitPlayerControlled("target") or (_G.UnitIsTapped("target") and not _G.UnitIsDead("target")) then
jcallahan@2 449 return
jcallahan@2 450 end
jcallahan@2 451
jcallahan@2 452 for index = 1, 4 do
jcallahan@2 453 if not _G.CheckInteractDistance("target", index) then
jcallahan@2 454 return
jcallahan@2 455 end
jcallahan@2 456 end
jcallahan@40 457 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("target"))
jcallahan@2 458
jcallahan@40 459 if not unit_idnum or unit_type ~= private.UNIT_TYPES.NPC then
jcallahan@2 460 return
jcallahan@2 461 end
jcallahan@34 462 UpdateNPCLocation(unit_idnum)
jcallahan@2 463 end
jcallahan@2 464
jcallahan@2 465
jcallahan@0 466 -----------------------------------------------------------------------
jcallahan@0 467 -- Event handlers.
jcallahan@0 468 -----------------------------------------------------------------------
jcallahan@23 469 do
jcallahan@40 470 local SOBER_MATCH = _G.DRUNK_MESSAGE_ITEM_SELF1:gsub("%%s", ".+")
jcallahan@40 471
jcallahan@40 472 local DRUNK_COMPARES = {
jcallahan@40 473 _G.DRUNK_MESSAGE_SELF2,
jcallahan@40 474 _G.DRUNK_MESSAGE_SELF3,
jcallahan@40 475 _G.DRUNK_MESSAGE_SELF4,
jcallahan@40 476 }
jcallahan@40 477
jcallahan@40 478 local DRUNK_MATCHES = {
jcallahan@40 479 _G.DRUNK_MESSAGE_SELF2:gsub("%%s", ".+"),
jcallahan@40 480 _G.DRUNK_MESSAGE_SELF3:gsub("%%s", ".+"),
jcallahan@40 481 _G.DRUNK_MESSAGE_SELF4:gsub("%%s", ".+"),
jcallahan@40 482 }
jcallahan@40 483
jcallahan@40 484 function WDP:CHAT_MSG_SYSTEM(event, message)
jcallahan@40 485 if currently_drunk then
jcallahan@40 486 if message == _G.DRUNK_MESSAGE_SELF1 or message:match(SOBER_MATCH) then
jcallahan@40 487 currently_drunk = nil
jcallahan@40 488 end
jcallahan@40 489 return
jcallahan@40 490 end
jcallahan@40 491
jcallahan@40 492 for index = 1, #DRUNK_MATCHES do
jcallahan@40 493 if message == DRUNK_COMPARES[index] or message:match(DRUNK_MATCHES[index]) then
jcallahan@40 494 currently_drunk = true
jcallahan@40 495 break
jcallahan@40 496 end
jcallahan@40 497 end
jcallahan@40 498 end
jcallahan@40 499 end
jcallahan@40 500
jcallahan@40 501 -- do-block
jcallahan@40 502
jcallahan@40 503 do
jcallahan@23 504 local EXTRACT_GAS_SPELL_ID = 30427
jcallahan@23 505 local FLAGS_NPC = bit.bor(_G.COMBATLOG_OBJECT_TYPE_GUARDIAN, _G.COMBATLOG_OBJECT_CONTROL_NPC)
jcallahan@23 506 local FLAGS_NPC_CONTROL = bit.bor(_G.COMBATLOG_OBJECT_AFFILIATION_OUTSIDER, _G.COMBATLOG_OBJECT_CONTROL_NPC)
jcallahan@23 507
jcallahan@23 508
jcallahan@23 509 local function RecordNPCSpell(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id, spell_name)
jcallahan@23 510 if not spell_id then
jcallahan@23 511 return
jcallahan@23 512 end
jcallahan@34 513 local source_type, source_id = ParseGUID(source_guid)
jcallahan@23 514
jcallahan@23 515 if not source_id or source_type ~= private.UNIT_TYPES.NPC then
jcallahan@23 516 return
jcallahan@23 517 end
jcallahan@23 518
jcallahan@23 519 if bit.band(FLAGS_NPC_CONTROL, source_flags) == FLAGS_NPC_CONTROL and bit.band(FLAGS_NPC, source_flags) ~= 0 then
jcallahan@29 520 local encounter_data = NPCEntry(source_id).encounter_data[InstanceDifficultyToken()]
jcallahan@28 521 encounter_data.spells = encounter_data.spells or {}
jcallahan@28 522 encounter_data.spells[spell_id] = (encounter_data.spells[spell_id] or 0) + 1
jcallahan@23 523 end
jcallahan@23 524 end
jcallahan@23 525
jcallahan@23 526 local COMBAT_LOG_FUNCS = {
jcallahan@23 527 SPELL_AURA_APPLIED = RecordNPCSpell,
jcallahan@23 528 SPELL_CAST_START = RecordNPCSpell,
jcallahan@34 529 SPELL_CAST_SUCCESS = function(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id, ...)
jcallahan@34 530 if spell_id == EXTRACT_GAS_SPELL_ID and source_guid == PLAYER_GUID then
jcallahan@34 531 table.wipe(action_data)
jcallahan@34 532 action_data.extracting_gas = true
jcallahan@34 533 action_data.timestamp = _G.GetTime()
jcallahan@34 534 else
jcallahan@34 535 RecordNPCSpell(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, spell_id, ...)
jcallahan@34 536 end
jcallahan@34 537 end,
jcallahan@23 538 UNIT_DISSIPATES = function(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags)
jcallahan@34 539 if action_data.extracting_gas and _G.GetTime() - action_data.timestamp <= 3 then
jcallahan@34 540 local unit_type, unit_idnum = ParseGUID(dest_guid)
jcallahan@34 541 UpdateNPCLocation(unit_idnum)
jcallahan@34 542 end
jcallahan@23 543 end,
jcallahan@23 544 }
jcallahan@23 545
jcallahan@23 546
jcallahan@23 547 function WDP:COMBAT_LOG_EVENT_UNFILTERED(event, 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 548 local combat_log_func = COMBAT_LOG_FUNCS[sub_event]
jcallahan@23 549
jcallahan@23 550 if not combat_log_func then
jcallahan@23 551 return
jcallahan@23 552 end
jcallahan@23 553 combat_log_func(sub_event, source_guid, source_name, source_flags, dest_guid, dest_name, dest_flags, ...)
jcallahan@23 554 end
jcallahan@23 555 end -- do-block
jcallahan@23 556
jcallahan@23 557
jcallahan@44 558 do
jcallahan@44 559 local DIPLOMACY_SPELL_ID = 20599
jcallahan@44 560 local MR_POP_RANK1_SPELL_ID = 78634
jcallahan@44 561 local MR_POP_RANK2_SPELL_ID = 78635
jcallahan@44 562
jcallahan@44 563 local REP_BUFFS = {
jcallahan@44 564 [_G.GetSpellInfo(30754)] = "CENARION_FAVOR",
jcallahan@44 565 [_G.GetSpellInfo(24705)] = "GRIM_VISAGE",
jcallahan@44 566 [_G.GetSpellInfo(32098)] = "HONOR_HOLD_FAVOR",
jcallahan@44 567 [_G.GetSpellInfo(39913)] = "NAZGRELS_FERVOR",
jcallahan@44 568 [_G.GetSpellInfo(39953)] = "SONG_OF_BATTLE",
jcallahan@44 569 [_G.GetSpellInfo(61849)] = "SPIRIT_OF_SHARING",
jcallahan@44 570 [_G.GetSpellInfo(32096)] = "THRALLMARS_FAVOR",
jcallahan@44 571 [_G.GetSpellInfo(39911)] = "TROLLBANES_COMMAND",
jcallahan@44 572 [_G.GetSpellInfo(95987)] = "UNBURDENED",
jcallahan@44 573 [_G.GetSpellInfo(100951)] = "WOW_ANNIVERSARY",
jcallahan@44 574 }
jcallahan@44 575
jcallahan@44 576
jcallahan@44 577 local FACTION_NAMES = {
jcallahan@44 578 CENARION_CIRCLE = _G.GetFactionInfoByID(609),
jcallahan@44 579 HONOR_HOLD = _G.GetFactionInfoByID(946),
jcallahan@44 580 THE_SHATAR = _G.GetFactionInfoByID(935),
jcallahan@44 581 THRALLMAR = _G.GetFactionInfoByID(947),
jcallahan@44 582 }
jcallahan@44 583
jcallahan@44 584
jcallahan@44 585 local MODIFIERS = {
jcallahan@44 586 CENARION_FAVOR = {
jcallahan@44 587 faction = FACTION_NAMES.CENARION_CIRCLE,
jcallahan@44 588 modifier = 0.25,
jcallahan@44 589 },
jcallahan@44 590 GRIM_VISAGE = {
jcallahan@44 591 modifier = 0.1,
jcallahan@44 592 },
jcallahan@44 593 HONOR_HOLD_FAVOR = {
jcallahan@44 594 faction = FACTION_NAMES.HONOR_HOLD,
jcallahan@44 595 modifier = 0.25,
jcallahan@44 596 },
jcallahan@44 597 NAZGRELS_FERVOR = {
jcallahan@44 598 faction = FACTION_NAMES.THRALLMAR,
jcallahan@44 599 modifier = 0.1,
jcallahan@44 600 },
jcallahan@44 601 SONG_OF_BATTLE = {
jcallahan@44 602 faction = FACTION_NAMES.THE_SHATAR,
jcallahan@44 603 modifier = 0.1,
jcallahan@44 604 },
jcallahan@44 605 SPIRIT_OF_SHARING = {
jcallahan@44 606 modifier = 0.1,
jcallahan@44 607 },
jcallahan@44 608 THRALLMARS_FAVOR = {
jcallahan@44 609 faction = FACTION_NAMES.THRALLMAR,
jcallahan@44 610 modifier = 0.25,
jcallahan@44 611 },
jcallahan@44 612 TROLLBANES_COMMAND = {
jcallahan@44 613 faction = FACTION_NAMES.HONOR_HOLD,
jcallahan@44 614 modifier = 0.1,
jcallahan@44 615 },
jcallahan@44 616 UNBURDENED = {
jcallahan@44 617 modifier = 0.1,
jcallahan@44 618 },
jcallahan@44 619 WOW_ANNIVERSARY = {
jcallahan@44 620 modifier = 0.08,
jcallahan@44 621 }
jcallahan@44 622 }
jcallahan@44 623
jcallahan@44 624
jcallahan@44 625 function WDP:COMBAT_TEXT_UPDATE(event, message_type, faction_name, amount)
jcallahan@44 626 if message_type ~= "FACTION" then
jcallahan@44 627 return
jcallahan@44 628 end
jcallahan@44 629 UpdateFactionData()
jcallahan@44 630
jcallahan@44 631 local npc = NPCEntry(action_data.identifier)
jcallahan@44 632 if not npc then
jcallahan@44 633 return
jcallahan@44 634 end
jcallahan@44 635 local encounter_data = npc.encounter_data[InstanceDifficultyToken()].stats
jcallahan@44 636 local reputation_data = encounter_data[action_data.npc_level].reputations
jcallahan@44 637
jcallahan@44 638 if not reputation_data then
jcallahan@44 639 reputation_data = {}
jcallahan@44 640 encounter_data[action_data.npc_level].reputations = reputation_data
jcallahan@44 641 end
jcallahan@44 642 local modifier = 1
jcallahan@44 643
jcallahan@44 644 if _G.IsSpellKnown(DIPLOMACY_SPELL_ID) then
jcallahan@44 645 modifier = modifier + 0.1
jcallahan@44 646 end
jcallahan@44 647
jcallahan@44 648 if _G.IsSpellKnown(MR_POP_RANK2_SPELL_ID) then
jcallahan@44 649 modifier = modifier + 0.1
jcallahan@44 650 elseif _G.IsSpellKnown(MR_POP_RANK1_SPELL_ID) then
jcallahan@44 651 modifier = modifier + 0.05
jcallahan@44 652 end
jcallahan@44 653
jcallahan@44 654 for buff_name, buff_label in pairs(REP_BUFFS) do
jcallahan@44 655 if _G.UnitBuff("player", buff_name) then
jcallahan@44 656 local modded_faction = MODIFIERS[buff_label].faction
jcallahan@44 657
jcallahan@44 658 if not modded_faction or faction_name == modded_faction then
jcallahan@44 659 modifier = modifier + MODIFIERS[buff_label].modifier
jcallahan@44 660 end
jcallahan@44 661 end
jcallahan@44 662 end
jcallahan@44 663 reputation_data[("%s:%s"):format(faction_name, faction_standings[faction_name])] = math.floor(amount / modifier)
jcallahan@32 664 end
jcallahan@44 665 end -- do-block
jcallahan@18 666
jcallahan@18 667
jcallahan@42 668 function WDP:ITEM_TEXT_BEGIN()
jcallahan@42 669 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("npc"))
jcallahan@42 670
jcallahan@42 671 if not unit_idnum or unit_type ~= private.UNIT_TYPES.OBJECT or _G.UnitName("npc") ~= _G.ItemTextGetItem() then
jcallahan@42 672 return
jcallahan@42 673 end
jcallahan@42 674 UpdateDBEntryLocation("objects", unit_idnum)
jcallahan@42 675 end
jcallahan@42 676
jcallahan@42 677
jcallahan@13 678 do
jcallahan@40 679 local RE_GOLD = _G.GOLD_AMOUNT:gsub("%%d", "(%%d+)")
jcallahan@40 680 local RE_SILVER = _G.SILVER_AMOUNT:gsub("%%d", "(%%d+)")
jcallahan@40 681 local RE_COPPER = _G.COPPER_AMOUNT:gsub("%%d", "(%%d+)")
jcallahan@13 682
jcallahan@13 683
jcallahan@13 684 local function _moneyMatch(money, re)
jcallahan@13 685 return money:match(re) or 0
jcallahan@1 686 end
jcallahan@1 687
jcallahan@0 688
jcallahan@13 689 local function _toCopper(money)
jcallahan@13 690 if not money then
jcallahan@13 691 return 0
jcallahan@13 692 end
jcallahan@40 693 return _moneyMatch(money, RE_GOLD) * 10000 + _moneyMatch(money, RE_SILVER) * 100 + _moneyMatch(money, RE_COPPER)
jcallahan@1 694 end
jcallahan@1 695
jcallahan@1 696
jcallahan@13 697 local LOOT_VERIFY_FUNCS = {
jcallahan@16 698 [AF.ITEM] = function()
jcallahan@16 699 local locked_item_id
jcallahan@16 700
jcallahan@16 701 for bag_index = 0, _G.NUM_BAG_FRAMES do
jcallahan@16 702 for slot_index = 1, _G.GetContainerNumSlots(bag_index) do
jcallahan@16 703 local _, _, is_locked = _G.GetContainerItemInfo(bag_index, slot_index)
jcallahan@16 704
jcallahan@16 705 if is_locked then
jcallahan@16 706 locked_item_id = ItemLinkToID(_G.GetContainerItemLink(bag_index, slot_index))
jcallahan@16 707 end
jcallahan@16 708 end
jcallahan@16 709 end
jcallahan@16 710
jcallahan@28 711 if not locked_item_id or (action_data.identifier and action_data.identifier ~= locked_item_id) then
jcallahan@16 712 return false
jcallahan@16 713 end
jcallahan@28 714 action_data.identifier = locked_item_id
jcallahan@16 715 return true
jcallahan@16 716 end,
jcallahan@13 717 [AF.NPC] = function()
jcallahan@17 718 if not _G.UnitExists("target") or _G.UnitIsFriend("player", "target") or _G.UnitIsPlayer("target") or _G.UnitPlayerControlled("target") then
jcallahan@15 719 return false
jcallahan@13 720 end
jcallahan@34 721 local unit_type, id_num = ParseGUID(_G.UnitGUID("target"))
jcallahan@27 722 action_data.identifier = id_num
jcallahan@13 723 return true
jcallahan@13 724 end,
jcallahan@14 725 [AF.OBJECT] = true,
jcallahan@17 726 [AF.ZONE] = function()
jcallahan@38 727 return _G.IsFishingLoot()
jcallahan@17 728 end,
jcallahan@13 729 }
jcallahan@13 730
jcallahan@13 731
jcallahan@41 732 local function GenericLootUpdate(data_type, top_field, inline_drops)
jcallahan@27 733 local entry = DBEntry(data_type, action_data.identifier)
jcallahan@22 734
jcallahan@22 735 if not entry then
jcallahan@22 736 return
jcallahan@22 737 end
jcallahan@25 738 local loot_type = action_data.label or "drops"
jcallahan@28 739 local loot_data
jcallahan@28 740
jcallahan@28 741 if top_field then
jcallahan@28 742 entry[top_field] = entry[top_field] or {}
jcallahan@28 743 entry[top_field][loot_type] = entry[top_field][loot_type] or {}
jcallahan@28 744 loot_data = entry[top_field][loot_type]
jcallahan@28 745 else
jcallahan@28 746 entry[loot_type] = entry[loot_type] or {}
jcallahan@28 747 loot_data = entry[loot_type]
jcallahan@28 748 end
jcallahan@22 749
jcallahan@22 750 for index = 1, #action_data.loot_list do
jcallahan@28 751 table.insert(loot_data, action_data.loot_list[index])
jcallahan@22 752 end
jcallahan@22 753 end
jcallahan@22 754
jcallahan@22 755
jcallahan@13 756 local LOOT_UPDATE_FUNCS = {
jcallahan@16 757 [AF.ITEM] = function()
jcallahan@41 758 local item = DBEntry("items", action_data.identifier)
jcallahan@41 759 local loot_count = ("%s_count"):format(action_data.label or "drops")
jcallahan@41 760 item[loot_count] = (item[loot_count] or 0) + 1
jcallahan@28 761 GenericLootUpdate("items")
jcallahan@28 762 end,
jcallahan@28 763 [AF.NPC] = function()
jcallahan@29 764 local npc = NPCEntry(action_data.identifier)
jcallahan@28 765
jcallahan@28 766 if not npc then
jcallahan@28 767 return
jcallahan@28 768 end
jcallahan@29 769 local encounter_data = npc.encounter_data[InstanceDifficultyToken()]
jcallahan@25 770 local loot_type = action_data.label or "drops"
jcallahan@33 771 npc.loot_counts = npc.loot_counts or {}
jcallahan@33 772 npc.loot_counts[loot_type] = (npc.loot_counts[loot_type] or 0) + 1
jcallahan@29 773 encounter_data[loot_type] = encounter_data[loot_type] or {}
jcallahan@16 774
jcallahan@17 775 for index = 1, #action_data.loot_list do
jcallahan@29 776 table.insert(encounter_data[loot_type], action_data.loot_list[index])
jcallahan@16 777 end
jcallahan@16 778 end,
jcallahan@13 779 [AF.OBJECT] = function()
jcallahan@28 780 GenericLootUpdate("objects", InstanceDifficultyToken())
jcallahan@17 781 end,
jcallahan@17 782 [AF.ZONE] = function()
jcallahan@41 783 local location_token = ("%s:%s:%s"):format(action_data.map_level, action_data.x, action_data.y)
jcallahan@41 784
jcallahan@41 785 -- This will start life as a boolean true.
jcallahan@41 786 if _G.type(action_data.zone_data[location_token]) ~= "table" then
jcallahan@41 787 action_data.zone_data[location_token] = {
jcallahan@41 788 drops = {}
jcallahan@41 789 }
jcallahan@41 790 end
jcallahan@41 791 local loot_count = ("%s_count"):format(action_data.label or "drops")
jcallahan@41 792 action_data.zone_data[location_token][loot_count] = (action_data.zone_data[location_token][loot_count] or 0) + 1
jcallahan@41 793
jcallahan@41 794 for index = 1, #action_data.loot_list do
jcallahan@41 795 table.insert(action_data.zone_data[location_token].drops, action_data.loot_list[index])
jcallahan@41 796 end
jcallahan@13 797 end,
jcallahan@13 798 }
jcallahan@13 799
jcallahan@13 800
jcallahan@13 801 function WDP:LOOT_OPENED()
jcallahan@18 802 if action_data.looting then
jcallahan@18 803 return
jcallahan@18 804 end
jcallahan@18 805
jcallahan@13 806 if not action_data.type then
jcallahan@13 807 action_data.type = AF.NPC
jcallahan@1 808 end
jcallahan@13 809 local verify_func = LOOT_VERIFY_FUNCS[action_data.type]
jcallahan@13 810 local update_func = LOOT_UPDATE_FUNCS[action_data.type]
jcallahan@13 811
jcallahan@14 812 if not verify_func or not update_func then
jcallahan@13 813 return
jcallahan@13 814 end
jcallahan@13 815
jcallahan@14 816 if _G.type(verify_func) == "function" and not verify_func() then
jcallahan@14 817 return
jcallahan@14 818 end
jcallahan@18 819 -- TODO: Remove this check once the MoP client goes live
jcallahan@18 820 local wow_version = private.wow_version
jcallahan@13 821 local loot_registry = {}
jcallahan@17 822 action_data.loot_list = {}
jcallahan@18 823 action_data.looting = true
jcallahan@13 824
jcallahan@18 825 if wow_version == "5.0.1" then
jcallahan@18 826 for loot_slot = 1, _G.GetNumLootItems() do
jcallahan@18 827 local icon_texture, item_text, quantity, quality, locked = _G.GetLootSlotInfo(loot_slot)
jcallahan@13 828
jcallahan@18 829 local slot_type = _G.GetLootSlotType(loot_slot)
jcallahan@18 830
jcallahan@18 831 if slot_type == _G.LOOT_SLOT_ITEM then
jcallahan@18 832 local item_id = ItemLinkToID(_G.GetLootSlotLink(loot_slot))
jcallahan@18 833 loot_registry[item_id] = (loot_registry[item_id]) or 0 + quantity
jcallahan@18 834 elseif slot_type == _G.LOOT_SLOT_MONEY then
jcallahan@18 835 table.insert(action_data.loot_list, ("money:%d"):format(_toCopper(item_text)))
jcallahan@18 836 elseif slot_type == _G.LOOT_SLOT_CURRENCY then
jcallahan@18 837 table.insert(action_data.loot_list, ("currency:%d:%s"):format(quantity, icon_texture:match("[^\\]+$"):lower()))
jcallahan@18 838 end
jcallahan@18 839 end
jcallahan@18 840 else
jcallahan@18 841 for loot_slot = 1, _G.GetNumLootItems() do
jcallahan@18 842 local icon_texture, item_text, quantity, quality, locked = _G.GetLootSlotInfo(loot_slot)
jcallahan@18 843 if _G.LootSlotIsItem(loot_slot) then
jcallahan@18 844 local item_id = ItemLinkToID(_G.GetLootSlotLink(loot_slot))
jcallahan@18 845 loot_registry[item_id] = (loot_registry[item_id]) or 0 + quantity
jcallahan@18 846 elseif _G.LootSlotIsCoin(loot_slot) then
jcallahan@18 847 table.insert(action_data.loot_list, ("money:%d"):format(_toCopper(item_text)))
jcallahan@18 848 elseif _G.LootSlotIsCurrency(loot_slot) then
jcallahan@18 849 table.insert(action_data.loot_list, ("currency:%d:%s"):format(quantity, icon_texture:match("[^\\]+$"):lower()))
jcallahan@18 850 end
jcallahan@13 851 end
jcallahan@13 852 end
jcallahan@13 853
jcallahan@13 854 for item_id, quantity in pairs(loot_registry) do
jcallahan@17 855 table.insert(action_data.loot_list, ("%d:%d"):format(item_id, quantity))
jcallahan@13 856 end
jcallahan@13 857 update_func()
jcallahan@1 858 end
jcallahan@13 859 end -- do-block
jcallahan@0 860
jcallahan@0 861
jcallahan@44 862 do
jcallahan@44 863 local POINT_MATCH_PATTERNS = {
jcallahan@44 864 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@44 865 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_3V3:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@44 866 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_5V5:gsub("%%d", "(%%d+)")), -- May no longer be necessary
jcallahan@44 867 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_BG:gsub("%%d", "(%%d+)")),
jcallahan@44 868 ("^%s$"):format(_G.ITEM_REQ_ARENA_RATING_3V3_BG:gsub("%%d", "(%%d+)")),
jcallahan@44 869 }
jcallahan@5 870
jcallahan@44 871 function WDP:UpdateMerchantItems(event)
jcallahan@44 872 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("target"))
jcallahan@4 873
jcallahan@44 874 if unit_type ~= private.UNIT_TYPES.NPC or not unit_idnum then
jcallahan@44 875 return
jcallahan@44 876 end
jcallahan@44 877 local _, merchant_standing = UnitFactionStanding("target")
jcallahan@44 878 local merchant = NPCEntry(unit_idnum)
jcallahan@44 879 merchant.sells = merchant.sells or {}
jcallahan@5 880
jcallahan@44 881 local num_items = _G.GetMerchantNumItems()
jcallahan@35 882
jcallahan@44 883 for item_index = 1, num_items do
jcallahan@44 884 local _, _, copper_price, stack_size, num_available, _, extended_cost = _G.GetMerchantItemInfo(item_index)
jcallahan@44 885 local item_id = ItemLinkToID(_G.GetMerchantItemLink(item_index))
jcallahan@5 886
jcallahan@44 887 if item_id and item_id > 0 then
jcallahan@44 888 local price_string = ActualCopperCost(copper_price, merchant_standing)
jcallahan@5 889
jcallahan@44 890 if extended_cost then
jcallahan@44 891 local bg_points = 0
jcallahan@44 892 local personal_points = 0
jcallahan@5 893
jcallahan@44 894 DatamineTT:ClearLines()
jcallahan@44 895 DatamineTT:SetMerchantItem(item_index)
jcallahan@5 896
jcallahan@44 897 for line_index = 1, DatamineTT:NumLines() do
jcallahan@44 898 local current_line = _G["WDPDatamineTTTextLeft" .. line_index]
jcallahan@5 899
jcallahan@44 900 if not current_line then
jcallahan@44 901 break
jcallahan@44 902 end
jcallahan@44 903 local breakout
jcallahan@5 904
jcallahan@44 905 for match_index = 1, #POINT_MATCH_PATTERNS do
jcallahan@44 906 local match1, match2 = current_line:GetText():match(POINT_MATCH_PATTERNS[match_index])
jcallahan@44 907 personal_points = personal_points + (match1 or 0)
jcallahan@44 908 bg_points = bg_points + (match2 or 0)
jcallahan@5 909
jcallahan@44 910 if match1 or match2 then
jcallahan@44 911 breakout = true
jcallahan@44 912 break
jcallahan@44 913 end
jcallahan@44 914 end
jcallahan@44 915
jcallahan@44 916 if breakout then
jcallahan@5 917 break
jcallahan@5 918 end
jcallahan@5 919 end
jcallahan@44 920 local currency_list = {}
jcallahan@44 921 local item_count = _G.GetMerchantItemCostInfo(item_index)
jcallahan@44 922 price_string = ("%s:%s:%s"):format(price_string, bg_points, personal_points)
jcallahan@5 923
jcallahan@44 924 for cost_index = 1, item_count do
jcallahan@44 925 local icon_texture, amount_required, currency_link = _G.GetMerchantItemCostItem(item_index, cost_index)
jcallahan@44 926 local currency_id = currency_link and ItemLinkToID(currency_link) or nil
jcallahan@44 927
jcallahan@44 928 if (not currency_id or currency_id < 1) and icon_texture then
jcallahan@44 929 currency_id = icon_texture:match("[^\\]+$"):lower()
jcallahan@44 930 end
jcallahan@44 931
jcallahan@44 932 if currency_id then
jcallahan@44 933 currency_list[#currency_list + 1] = ("(%s:%s)"):format(amount_required, currency_id)
jcallahan@44 934 end
jcallahan@44 935 end
jcallahan@44 936
jcallahan@44 937 for currency_index = 1, #currency_list do
jcallahan@44 938 price_string = ("%s:%s"):format(price_string, currency_list[currency_index])
jcallahan@5 939 end
jcallahan@5 940 end
jcallahan@44 941 merchant.sells[("%s:%s:[%s]"):format(item_id, stack_size, price_string)] = num_available
jcallahan@44 942 end
jcallahan@44 943 end
jcallahan@5 944
jcallahan@44 945 if _G.CanMerchantRepair() then
jcallahan@44 946 merchant.can_repair = true
jcallahan@5 947 end
jcallahan@4 948 end
jcallahan@44 949 end -- do-block
jcallahan@4 950
jcallahan@25 951 function WDP:PET_BAR_UPDATE()
jcallahan@25 952 if not action_data.label or not action_data.label == "mind_control" then
jcallahan@25 953 return
jcallahan@25 954 end
jcallahan@34 955 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("pet"))
jcallahan@25 956
jcallahan@25 957 if unit_type ~= private.UNIT_TYPES.NPC or not unit_idnum then
jcallahan@25 958 return
jcallahan@25 959 end
jcallahan@29 960 NPCEntry(unit_idnum).mind_control = true
jcallahan@25 961 table.wipe(action_data)
jcallahan@25 962 end
jcallahan@25 963
jcallahan@25 964
jcallahan@18 965 do
jcallahan@18 966 local GENDER_NAMES = {
jcallahan@18 967 "UNKNOWN",
jcallahan@18 968 "MALE",
jcallahan@18 969 "FEMALE",
jcallahan@18 970 }
jcallahan@2 971
jcallahan@2 972
jcallahan@18 973 local REACTION_NAMES = {
jcallahan@18 974 "HATED",
jcallahan@18 975 "HOSTILE",
jcallahan@18 976 "UNFRIENDLY",
jcallahan@18 977 "NEUTRAL",
jcallahan@18 978 "FRIENDLY",
jcallahan@18 979 "HONORED",
jcallahan@18 980 "REVERED",
jcallahan@18 981 "EXALTED",
jcallahan@18 982 }
jcallahan@2 983
jcallahan@2 984
jcallahan@18 985 local POWER_TYPE_NAMES = {
jcallahan@18 986 ["0"] = "MANA",
jcallahan@18 987 ["1"] = "RAGE",
jcallahan@18 988 ["2"] = "FOCUS",
jcallahan@18 989 ["3"] = "ENERGY",
jcallahan@18 990 ["6"] = "RUNIC_POWER",
jcallahan@18 991 }
jcallahan@2 992
jcallahan@2 993
jcallahan@18 994 function WDP:PLAYER_TARGET_CHANGED()
jcallahan@40 995 if not _G.UnitExists("target") or _G.UnitPlayerControlled("target") or currently_drunk then
jcallahan@18 996 return
jcallahan@18 997 end
jcallahan@34 998 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("target"))
jcallahan@2 999
jcallahan@18 1000 if unit_type ~= private.UNIT_TYPES.NPC or not unit_idnum then
jcallahan@18 1001 return
jcallahan@18 1002 end
jcallahan@29 1003 local npc = NPCEntry(unit_idnum)
jcallahan@18 1004 local _, class_token = _G.UnitClass("target")
jcallahan@18 1005 npc.class = class_token
jcallahan@39 1006 npc.faction = UnitFactionStanding("target")
jcallahan@26 1007 npc.genders = npc.genders or {}
jcallahan@26 1008 npc.genders[GENDER_NAMES[_G.UnitSex("target")] or "UNDEFINED"] = true
jcallahan@18 1009 npc.is_pvp = _G.UnitIsPVP("target") and true or nil
jcallahan@18 1010 npc.reaction = ("%s:%s:%s"):format(_G.UnitLevel("player"), _G.UnitFactionGroup("player"), REACTION_NAMES[_G.UnitReaction("player", "target")])
jcallahan@2 1011
jcallahan@30 1012 local encounter_data = npc.encounter_data[InstanceDifficultyToken()].stats
jcallahan@18 1013 local npc_level = ("level_%d"):format(_G.UnitLevel("target"))
jcallahan@3 1014
jcallahan@28 1015 if not encounter_data[npc_level] then
jcallahan@28 1016 encounter_data[npc_level] = {
jcallahan@18 1017 max_health = _G.UnitHealthMax("target"),
jcallahan@18 1018 }
jcallahan@3 1019
jcallahan@18 1020 local max_power = _G.UnitManaMax("target")
jcallahan@18 1021
jcallahan@18 1022 if max_power > 0 then
jcallahan@18 1023 local power_type = _G.UnitPowerType("target")
jcallahan@28 1024 encounter_data[npc_level].power = ("%s:%d"):format(POWER_TYPE_NAMES[_G.tostring(power_type)] or power_type, max_power)
jcallahan@18 1025 end
jcallahan@3 1026 end
jcallahan@21 1027 table.wipe(action_data)
jcallahan@21 1028 action_data.type = AF.NPC
jcallahan@27 1029 action_data.identifier = unit_idnum
jcallahan@21 1030 action_data.npc_level = npc_level
jcallahan@31 1031
jcallahan@31 1032 self:UpdateTargetLocation()
jcallahan@2 1033 end
jcallahan@18 1034 end -- do-block
jcallahan@2 1035
jcallahan@12 1036 do
jcallahan@12 1037 local function UpdateQuestJuncture(point)
jcallahan@12 1038 local unit_name = _G.UnitName("questnpc")
jcallahan@9 1039
jcallahan@12 1040 if not unit_name then
jcallahan@12 1041 return
jcallahan@12 1042 end
jcallahan@34 1043 local unit_type, unit_id = ParseGUID(_G.UnitGUID("questnpc"))
jcallahan@9 1044
jcallahan@12 1045 if unit_type == private.UNIT_TYPES.OBJECT then
jcallahan@38 1046 UpdateDBEntryLocation("objects", unit_id)
jcallahan@12 1047 end
jcallahan@19 1048 local quest = DBEntry("quests", _G.GetQuestID())
jcallahan@12 1049 quest[point] = quest[point] or {}
jcallahan@12 1050 quest[point][("%s:%d"):format(private.UNIT_TYPE_NAMES[unit_type + 1], unit_id)] = true
jcallahan@24 1051
jcallahan@24 1052 return quest
jcallahan@12 1053 end
jcallahan@10 1054
jcallahan@12 1055
jcallahan@12 1056 function WDP:QUEST_COMPLETE()
jcallahan@12 1057 UpdateQuestJuncture("end")
jcallahan@10 1058 end
jcallahan@10 1059
jcallahan@12 1060
jcallahan@12 1061 function WDP:QUEST_DETAIL()
jcallahan@24 1062 local quest = UpdateQuestJuncture("begin")
jcallahan@24 1063
jcallahan@24 1064 quest.classes = quest.classes or {}
jcallahan@27 1065 quest.classes[PLAYER_CLASS] = true
jcallahan@24 1066
jcallahan@24 1067 local _, race = _G.UnitRace("player")
jcallahan@24 1068 quest.races = quest.races or {}
jcallahan@24 1069 quest.races[race] = true
jcallahan@10 1070 end
jcallahan@12 1071 end -- do-block
jcallahan@9 1072
jcallahan@9 1073
jcallahan@4 1074 function WDP:QUEST_LOG_UPDATE()
jcallahan@38 1075 local selected_quest = _G.GetQuestLogSelection() -- Save current selection to be restored when we're done.
jcallahan@36 1076 local entry_index, processed_quests = 1, 0
jcallahan@36 1077 local _, num_quests = _G.GetNumQuestLogEntries()
jcallahan@36 1078
jcallahan@36 1079 while processed_quests <= num_quests do
jcallahan@36 1080 local _, _, _, _, is_header, _, _, _, quest_id = _G.GetQuestLogTitle(entry_index)
jcallahan@36 1081
jcallahan@36 1082 if not is_header then
jcallahan@36 1083 _G.SelectQuestLogEntry(entry_index);
jcallahan@36 1084
jcallahan@36 1085 local quest = DBEntry("quests", quest_id)
jcallahan@36 1086 quest.timer = _G.GetQuestLogTimeLeft()
jcallahan@37 1087 quest.can_share = _G.GetQuestLogPushable() and true or nil
jcallahan@36 1088 processed_quests = processed_quests + 1
jcallahan@36 1089 end
jcallahan@36 1090 entry_index = entry_index + 1
jcallahan@36 1091 end
jcallahan@36 1092 _G.SelectQuestLogEntry(selected_quest)
jcallahan@4 1093 self:UnregisterEvent("QUEST_LOG_UPDATE")
jcallahan@4 1094 end
jcallahan@4 1095
jcallahan@4 1096
jcallahan@4 1097 function WDP:UNIT_QUEST_LOG_CHANGED(event, unit_id)
jcallahan@4 1098 if unit_id ~= "player" then
jcallahan@4 1099 return
jcallahan@4 1100 end
jcallahan@4 1101 self:RegisterEvent("QUEST_LOG_UPDATE")
jcallahan@4 1102 end
jcallahan@4 1103
jcallahan@4 1104
jcallahan@27 1105 function WDP:TRAINER_SHOW()
jcallahan@27 1106 if not _G.IsTradeskillTrainer() then
jcallahan@27 1107 return
jcallahan@27 1108 end
jcallahan@34 1109 local unit_type, unit_idnum = ParseGUID(_G.UnitGUID("target"))
jcallahan@29 1110 local npc = NPCEntry(unit_idnum)
jcallahan@27 1111 npc.teaches = npc.teaches or {}
jcallahan@27 1112
jcallahan@27 1113 -- Get the initial trainer filters
jcallahan@27 1114 local available = _G.GetTrainerServiceTypeFilter("available")
jcallahan@27 1115 local unavailable = _G.GetTrainerServiceTypeFilter("unavailable")
jcallahan@27 1116 local used = _G.GetTrainerServiceTypeFilter("used")
jcallahan@27 1117
jcallahan@27 1118 -- Clear the trainer filters
jcallahan@27 1119 _G.SetTrainerServiceTypeFilter("available", 1)
jcallahan@27 1120 _G.SetTrainerServiceTypeFilter("unavailable", 1)
jcallahan@27 1121 _G.SetTrainerServiceTypeFilter("used", 1)
jcallahan@27 1122
jcallahan@27 1123 for index = 1, _G.GetNumTrainerServices(), 1 do
jcallahan@27 1124 local spell_name, rank_name, _, _, required_level = _G.GetTrainerServiceInfo(index)
jcallahan@27 1125
jcallahan@27 1126 if spell_name then
jcallahan@27 1127 DatamineTT:ClearLines()
jcallahan@27 1128 DatamineTT:SetTrainerService(index)
jcallahan@27 1129
jcallahan@27 1130 local _, _, spell_id = DatamineTT:GetSpell()
jcallahan@27 1131
jcallahan@43 1132 if spell_id then
jcallahan@43 1133 local profession, min_skill = _G.GetTrainerServiceSkillReq(index)
jcallahan@43 1134 profession = profession or "General"
jcallahan@43 1135
jcallahan@43 1136 local class_professions = npc.teaches[PLAYER_CLASS]
jcallahan@43 1137 if not class_professions then
jcallahan@43 1138 npc.teaches[PLAYER_CLASS] = {}
jcallahan@43 1139 class_professions = npc.teaches[PLAYER_CLASS]
jcallahan@43 1140 end
jcallahan@43 1141
jcallahan@43 1142 local profession_skills = class_professions[profession]
jcallahan@43 1143 if not profession_skills then
jcallahan@43 1144 class_professions[profession] = {}
jcallahan@43 1145 profession_skills = class_professions[profession]
jcallahan@43 1146 end
jcallahan@43 1147 profession_skills[spell_id] = ("%d:%d"):format(required_level, min_skill)
jcallahan@27 1148 end
jcallahan@27 1149 end
jcallahan@27 1150 end
jcallahan@27 1151
jcallahan@27 1152 -- Reset the filters to what they were before
jcallahan@27 1153 _G.SetTrainerServiceTypeFilter("available", available or 0)
jcallahan@27 1154 _G.SetTrainerServiceTypeFilter("unavailable", unavailable or 0)
jcallahan@27 1155 _G.SetTrainerServiceTypeFilter("used", used or 0)
jcallahan@27 1156 end
jcallahan@27 1157
jcallahan@27 1158
jcallahan@1 1159 function WDP:UNIT_SPELLCAST_SENT(event_name, unit_id, spell_name, spell_rank, target_name, spell_line)
jcallahan@1 1160 if private.tracked_line or unit_id ~= "player" then
jcallahan@1 1161 return
jcallahan@1 1162 end
jcallahan@1 1163 local spell_label = private.SPELL_LABELS_BY_NAME[spell_name]
jcallahan@1 1164
jcallahan@1 1165 if not spell_label then
jcallahan@1 1166 return
jcallahan@1 1167 end
jcallahan@18 1168 table.wipe(action_data)
jcallahan@1 1169
jcallahan@1 1170 local tt_item_name, tt_item_link = _G.GameTooltip:GetItem()
jcallahan@1 1171 local tt_unit_name, tt_unit_id = _G.GameTooltip:GetUnit()
jcallahan@1 1172
jcallahan@1 1173 if not tt_unit_name and _G.UnitName("target") == target_name then
jcallahan@1 1174 tt_unit_name = target_name
jcallahan@1 1175 tt_unit_id = "target"
jcallahan@1 1176 end
jcallahan@1 1177 local spell_flags = private.SPELL_FLAGS_BY_LABEL[spell_label]
jcallahan@28 1178 local zone_name, area_id, x, y, map_level, instance_token = CurrentLocationData()
jcallahan@28 1179
jcallahan@28 1180 action_data.instance_token = instance_token
jcallahan@28 1181 action_data.map_level = map_level
jcallahan@28 1182 action_data.x = x
jcallahan@28 1183 action_data.y = y
jcallahan@28 1184 action_data.zone = ("%s:%d"):format(zone_name, area_id)
jcallahan@1 1185
jcallahan@16 1186 if tt_unit_name and not tt_item_name then
jcallahan@16 1187 if bit.band(spell_flags, AF.NPC) == AF.NPC then
jcallahan@16 1188 if not tt_unit_id or tt_unit_name ~= target_name then
jcallahan@16 1189 return
jcallahan@16 1190 end
jcallahan@16 1191 action_data.type = AF.NPC
jcallahan@25 1192 action_data.label = spell_label:lower()
jcallahan@25 1193 action_data.unit_name = tt_unit_name
jcallahan@16 1194 end
jcallahan@16 1195 elseif bit.band(spell_flags, AF.ITEM) == AF.ITEM then
jcallahan@16 1196 action_data.type = AF.ITEM
jcallahan@25 1197 action_data.label = spell_label:lower()
jcallahan@16 1198
jcallahan@16 1199 if tt_item_name and tt_item_name == target_name then
jcallahan@28 1200 action_data.identifier = ItemLinkToID(tt_item_link)
jcallahan@16 1201 elseif target_name and target_name ~= "" then
jcallahan@16 1202 local _, target_item_link = _G.GetItemInfo(target_name)
jcallahan@28 1203 action_data.identifier = ItemLinkToID(target_item_link)
jcallahan@16 1204 end
jcallahan@16 1205 elseif not tt_item_name and not tt_unit_name then
jcallahan@17 1206 action_data.name = target_name
jcallahan@17 1207
jcallahan@1 1208 if bit.band(spell_flags, AF.OBJECT) == AF.OBJECT then
jcallahan@17 1209 if target_name == "" then
jcallahan@17 1210 return
jcallahan@17 1211 end
jcallahan@11 1212 local identifier = ("%s:%s"):format(spell_label, target_name)
jcallahan@38 1213 UpdateDBEntryLocation("objects", identifier)
jcallahan@11 1214
jcallahan@1 1215 action_data.type = AF.OBJECT
jcallahan@11 1216 action_data.identifier = identifier
jcallahan@1 1217 elseif bit.band(spell_flags, AF.ZONE) == AF.ZONE then
jcallahan@38 1218 local identifier = ("%s:%s"):format(spell_label, _G["GameTooltipTextLeft1"]:GetText() or "NONE") -- Possible fishing pool name.
jcallahan@41 1219 action_data.zone_data = UpdateDBEntryLocation("zones", identifier)
jcallahan@17 1220 action_data.type = AF.ZONE
jcallahan@38 1221 action_data.identifier = identifier
jcallahan@1 1222 end
jcallahan@1 1223 end
jcallahan@1 1224 private.tracked_line = spell_line
jcallahan@0 1225 end
jcallahan@0 1226
jcallahan@0 1227
jcallahan@1 1228 function WDP:UNIT_SPELLCAST_SUCCEEDED(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id)
jcallahan@1 1229 if unit_id ~= "player" then
jcallahan@1 1230 return
jcallahan@1 1231 end
jcallahan@1 1232 private.tracked_line = nil
jcallahan@0 1233 end
jcallahan@0 1234
jcallahan@1 1235 function WDP:HandleSpellFailure(event_name, unit_id, spell_name, spell_rank, spell_line, spell_id)
jcallahan@1 1236 if unit_id ~= "player" then
jcallahan@1 1237 return
jcallahan@1 1238 end
jcallahan@0 1239
jcallahan@1 1240 if private.tracked_line == spell_line then
jcallahan@1 1241 private.tracked_line = nil
jcallahan@1 1242 end
jcallahan@0 1243 end