Mercurial > wow > askmrrobot

annotate AskMrRobot.lua @ 21:a400b906acca v4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 4: fixed an issue with the bank. Added Void Storage. Added Reagent Bank. Also removed stackable items from the export string
author Adam tegen <adam.tegen@gmail.com>
date Wed, 15 Oct 2014 08:38:53 -0500
parents e77e01abce98
children 3af56b6545e0
rev   line source
adam@0 1 local _, AskMrRobot = ...
yellowfive@11 2 local L = AskMrRobot.L;
adam@0 3
adam@17 4 AskMrRobot.eventListener = CreateFrame("FRAME") -- Need a frame to respond to events
adam@17 5 AskMrRobot.eventListener:RegisterEvent("ADDON_LOADED") -- Fired when saved variables are loaded
adam@17 6 AskMrRobot.eventListener:RegisterEvent("ITEM_PUSH")
adam@17 7 AskMrRobot.eventListener:RegisterEvent("DELETE_ITEM_CONFIRM")
adam@17 8 AskMrRobot.eventListener:RegisterEvent("UNIT_INVENTORY_CHANGED")
adam@17 9 AskMrRobot.eventListener:RegisterEvent("BANKFRAME_OPENED")
adam@17 10 --AskMrRobot.eventListener:RegisterEvent("BANKFRAME_CLOSED");
adam@17 11 AskMrRobot.eventListener:RegisterEvent("PLAYERBANKSLOTS_CHANGED")
adam@17 12 AskMrRobot.eventListener:RegisterEvent("CHARACTER_POINTS_CHANGED")
adam@17 13 AskMrRobot.eventListener:RegisterEvent("CONFIRM_TALENT_WIPE")
adam@17 14 AskMrRobot.eventListener:RegisterEvent("PLAYER_TALENT_UPDATE")
adam@17 15 AskMrRobot.eventListener:RegisterEvent("ACTIVE_TALENT_GROUP_CHANGED")
adam@17 16 AskMrRobot.eventListener:RegisterEvent("PLAYER_ENTERING_WORLD")
adam@17 17 --AskMrRobot.eventListener:RegisterEvent("PLAYER_LOGOUT") -- Fired when about to log out
adam@17 18 --AskMrRobot.eventListener:RegisterEvent("PLAYER_LEVEL_UP")
adam@0 19 --AskMrRobot.eventListener:RegisterEvent("GET_ITEM_INFO_RECEIVED")
adam@0 20 AskMrRobot.eventListener:RegisterEvent("PLAYER_SPECIALIZATION_CHANGED")
adam@0 21 AskMrRobot.eventListener:RegisterEvent("SOCKET_INFO_UPDATE")
adam@0 22 AskMrRobot.eventListener:RegisterEvent("SOCKET_INFO_CLOSE")
adam@0 23 AskMrRobot.eventListener:RegisterEvent("BAG_UPDATE")
adam@0 24 AskMrRobot.eventListener:RegisterEvent("ITEM_UNLOCKED")
yellowfive@11 25 AskMrRobot.eventListener:RegisterEvent("PLAYER_REGEN_DISABLED")
yellowfive@11 26 --AskMrRobot.eventListener:RegisterEvent("ENCOUNTER_START")
adam@0 27 AskMrRobot.eventListener:RegisterEvent("CHAT_MSG_ADDON")
adam@0 28 AskMrRobot.eventListener:RegisterEvent("UPDATE_INSTANCE_INFO")
adam@0 29 AskMrRobot.eventListener:RegisterEvent("PLAYER_DIFFICULTY_CHANGED")
adam@21 30 AskMrRobot.eventListener:RegisterEvent("VOID_STORAGE_OPEN")
adam@21 31 AskMrRobot.eventListener:RegisterEvent("VOID_STORAGE_CONTENTS_UPDATE")
adam@21 32 AskMrRobot.eventListener:RegisterEvent("PLAYER_DIFFICULTY_CHANGED")
adam@21 33 AskMrRobot.eventListener:RegisterEvent("VOID_STORAGE_UPDATE")
adam@0 34
adam@0 35 AskMrRobot.AddonName = ...
adam@0 36 AskMrRobot.ChatPrefix = "_AMR"
adam@0 37
adam@17 38 -- the main user interface window
adam@17 39 AskMrRobot.mainWindow = nil
adam@0 40
adam@17 41 local _amrLDB
adam@17 42 local _minimapIcon
adam@0 43
adam@0 44 function AskMrRobot.eventListener:OnEvent(event, ...)
adam@0 45 if event == "ADDON_LOADED" then
adam@0 46 local addon = select(1, ...)
adam@0 47 if (addon == "AskMrRobot") then
adam@17 48 AskMrRobot.InitializeSettings()
adam@17 49 AskMrRobot.InitializeMinimap()
adam@0 50
adam@0 51 -- listen for messages from other AMR addons
adam@17 52 RegisterAddonMessagePrefix(AskMrRobot.ChatPrefix)
adam@0 53
adam@17 54 AskMrRobot.mainWindow = AskMrRobot.AmrUI:new()
adam@0 55 end
adam@17 56
adam@17 57 elseif event == "UNIT_INVENTORY_CHANGED" then
adam@17 58 AskMrRobot.ScanEquipped()
adam@0 59
adam@17 60 elseif event == "ITEM_PUSH" or event == "DELETE_ITEM_CONFIRM" or event == "SOCKET_INFO_CLOSE" or event == "PLAYER_SPECIALIZATION_CHANGED" or event == "BAG_UPDATE" then
adam@17 61 --if AskMrRobot_ReforgeFrame then
adam@17 62 -- AskMrRobot_ReforgeFrame:OnUpdate()
adam@17 63 --end
adam@0 64 --AskMrRobot.SaveBags();
adam@0 65 --AskMrRobot.SaveEquiped();
adam@0 66 --AskMrRonot.GetCurrencies();
adam@0 67 --AskMrRobot.GetGold();
adam@17 68
adam@0 69 elseif event == "BANKFRAME_OPENED" or event == "PLAYERBANKSLOTS_CHANGED" then
adam@0 70 AskMrRobot.ScanBank();
adam@21 71 elseif event == "VOID_STORAGE_OPEN" or event == "VOID_STORAGE_CONTENTS_UPDATE" or event == "VOID_STORAGE_DEPOSIT_UPDATE" or event == "VOID_STORAGE_UPDATE" then
adam@21 72 AskMrRobot.ScanVoidStorage();
adam@0 73 elseif event == "CHARACTER_POINTS_CHANGED" or event == "CONFIRM_TALENT_WIPE" or event == "PLAYER_TALENT_UPDATE" or event == "ACTIVE_TALENT_GROUP_CHANGED" then
adam@0 74 --AskMrRobot.GetAmrSpecializations();
adam@17 75 --if AskMrRobot_ReforgeFrame then
adam@17 76 -- AskMrRobot_ReforgeFrame:OnUpdate()
adam@17 77 --end
adam@17 78
adam@0 79 elseif event == "ITEM_UNLOCKED" then
adam@17 80 --AskMrRobot.On_ITEM_UNLOCKED()
yellowfive@11 81
adam@17 82 elseif event == "PLAYER_ENTERING_WORLD" then
adam@17 83 AskMrRobot.RecordLogin()
yellowfive@11 84
yellowfive@11 85 elseif event == "PLAYER_REGEN_DISABLED" then
yellowfive@11 86 -- send data about this character when a player enters combat in a supported zone
yellowfive@11 87 if AskMrRobot.IsSupportedInstance() then
yellowfive@11 88 local t = time()
yellowfive@11 89 AskMrRobot.SaveAll()
yellowfive@11 90 AskMrRobot.ExportToAddonChat(t)
adam@17 91 AskMrRobot.CombatLogTab.SaveExtras(t)
yellowfive@11 92 end
yellowfive@11 93
adam@0 94 elseif event == "CHAT_MSG_ADDON" then
adam@0 95 local chatPrefix, message = select(1, ...)
adam@17 96 local isLogging = AskMrRobot.CombatLogTab.IsLogging()
adam@0 97 if (isLogging and chatPrefix == AskMrRobot.ChatPrefix) then
adam@17 98 AskMrRobot.mainWindow.combatLogTab:ReadAddonMessage(message)
adam@0 99 end
adam@17 100
adam@0 101 elseif event == "UPDATE_INSTANCE_INFO" or event == "PLAYER_DIFFICULTY_CHANGED" then
adam@17 102 AskMrRobot.mainWindow.combatLogTab:UpdateAutoLogging()
adam@17 103
adam@0 104 end
adam@0 105
adam@0 106 end
adam@0 107
adam@17 108 AskMrRobot.eventListener:SetScript("OnEvent", AskMrRobot.eventListener.OnEvent)
adam@0 109
adam@0 110
adam@0 111 SLASH_AMR1 = "/amr";
adam@0 112 function SlashCmdList.AMR(msg)
adam@0 113
adam@0 114 if msg == 'toggle' then
adam@17 115 AskMrRobot.mainWindow:Toggle()
adam@0 116 elseif msg == 'show' then
adam@17 117 AskMrRobot.mainWindow:Show()
adam@0 118 elseif msg == 'hide' then
adam@17 119 AskMrRobot.mainWindow:Hide()
adam@0 120 elseif msg == 'export' then
adam@17 121 AskMrRobot.mainWindow.exportTab:Show()
yellowfive@11 122 elseif msg == 'wipe' then
adam@17 123 AskMrRobot.mainWindow.combatLogTab:LogWipe()
yellowfive@11 124 elseif msg == 'unwipe' then
adam@17 125 AskMrRobot.mainWindow.combatLogTab:LogUnwipe()
adam@0 126 else
yellowfive@11 127 print(L.AMR_SLASH_COMMAND_TEXT_1 .. L.AMR_SLASH_COMMAND_TEXT_2 .. L.AMR_SLASH_COMMAND_TEXT_3 .. L.AMR_SLASH_COMMAND_TEXT_4 .. L.AMR_SLASH_COMMAND_TEXT_5 .. L.AMR_SLASH_COMMAND_TEXT_6 .. L.AMR_SLASH_COMMAND_TEXT_7)
adam@0 128 end
adam@0 129 end
adam@0 130
adam@17 131 -- initialize settings when the addon loads
adam@17 132 function AskMrRobot.InitializeSettings()
adam@17 133
adam@17 134 -- global settings
adam@17 135 if not AmrSettings then AmrSettings = {} end
adam@17 136 if not AmrSettings.Logins then AmrSettings.Logins = {} end
adam@17 137
adam@17 138 -- per-character settings
adam@17 139 if not AmrDb then AmrDb = {} end
adam@17 140
adam@17 141 -- addon stuff
adam@17 142 if not AmrDb.IconInfo then AmrDb.IconInfo = {} end
adam@17 143 if not AmrDb.Options then AmrDb.Options = {} end
adam@17 144 if not AmrDb.LastCharacterImport then AmrDb.LastCharacterImport = "" end
adam@17 145 if not AmrDb.LastCharacterImportDate then AmrDb.LastCharacterImportDate = "" end
adam@17 146
adam@17 147 if not AmrDb.SendSettings then
adam@17 148 AmrDb.SendSettings = {
adam@17 149 SendGems = true,
adam@17 150 SendEnchants = true,
adam@17 151 SendEnchantMaterials = true,
adam@17 152 SendToType = "a friend",
adam@17 153 SendTo = ""
adam@17 154 }
adam@17 155 end
adam@17 156
adam@17 157 -- character stuff
adam@17 158 AskMrRobot.ScanCharacter()
adam@17 159 if not AmrDb.BankItems then AmrDb.BankItems = {} end
adam@17 160 if not AmrDb.BagItems then AmrDb.BagItems = {} end
adam@17 161 if not AmrDb.Currencies then AmrDb.Currencies = {} end
adam@17 162 if not AmrDb.Reps then AmrDb.Reps = {} end
adam@17 163 -- data saved for both specs
adam@17 164 if not AmrDb.Specs then AmrDb.Specs = {} end
adam@17 165 if not AmrDb.Glyphs then AmrDb.Glyphs = {} end
adam@17 166 if not AmrDb.Talents then AmrDb.Talents = {} end
adam@17 167 if not AmrDb.Equipped then AmrDb.Equipped = {} end
adam@17 168
adam@17 169 -- combat log specific settings
adam@17 170 AskMrRobot.CombatLogTab.InitializeVariable()
adam@0 171 end
adam@0 172
adam@17 173 -- record logins when the addon starts up, used to help figure out which character logged which parts of a log file
adam@17 174 function AskMrRobot.RecordLogin()
adam@17 175
adam@17 176 -- delete entries that are more than 10 days old to prevent the table from growing indefinitely
adam@17 177 if AmrSettings.Logins and #AmrSettings.Logins > 0 then
adam@17 178 local now = time()
adam@17 179 local oldDuration = 60 * 60 * 24 * 10
adam@17 180 local entryTime
adam@17 181 repeat
adam@17 182 -- parse entry and get time
adam@17 183 local parts = {}
adam@17 184 for part in string.gmatch(AmrSettings.Logins[1], "([^;]+)") do
adam@17 185 tinsert(parts, part)
adam@17 186 end
adam@17 187 entryTime = tonumber(parts[3])
adam@17 188
adam@17 189 -- entries are in order, remove first entry if it is old
adam@17 190 if difftime(now, entryTime) > oldDuration then
adam@17 191 tremove(AmrSettings.Logins, 1)
adam@17 192 end
adam@17 193 until #AmrSettings.Logins == 0 or difftime(now, entryTime) <= oldDuration
adam@17 194 end
adam@17 195
adam@17 196 -- record the time a player logs in, used to figure out which player logged which parts of their log file
adam@17 197 local key = AmrDb.RealmName .. ";" .. AmrDb.CharacterName .. ";"
adam@17 198 local loginData = key .. time()
adam@17 199 if AmrSettings.Logins and #AmrSettings.Logins > 0 then
adam@17 200 local last = AmrSettings.Logins[#AmrSettings.Logins]
adam@17 201 if string.len(last) >= string.len(key) and string.sub(last, 1, string.len(key)) ~= key then
adam@17 202 table.insert(AmrSettings.Logins, loginData)
adam@17 203 end
adam@17 204 else
adam@17 205 table.insert(AmrSettings.Logins, loginData)
adam@17 206 end
adam@17 207 end
adam@17 208
adam@17 209 function AskMrRobot.InitializeMinimap()
adam@17 210
adam@17 211 -- minimap icon and data broker icon plugin thingy
adam@17 212 _amrLDB = LibStub("LibDataBroker-1.1"):NewDataObject("AskMrRobot", {
adam@17 213 type = "launcher",
adam@17 214 text = "Ask Mr. Robot",
adam@17 215 icon = "Interface\\AddOns\\AskMrRobot\\Media\\icon",
adam@17 216 OnClick = function()
adam@17 217 if IsControlKeyDown() then
adam@17 218 AskMrRobot.mainWindow.combatLogTab:LogWipe()
adam@17 219 elseif IsModifiedClick("CHATLINL") then
adam@17 220 AskMrRobot.mainWindow.exportTab:Show()
adam@17 221 else
adam@17 222 AskMrRobot.mainWindow:Toggle()
adam@17 223 end
adam@17 224 end,
adam@17 225 OnTooltipShow = function(tt)
adam@17 226 tt:AddLine("Ask Mr. Robot", 1, 1, 1);
adam@17 227 tt:AddLine(" ");
adam@17 228 tt:AddLine(L.AMR_ON_EVENT_TOOLTIP)
adam@17 229 end
adam@17 230 });
adam@17 231
adam@17 232 AskMrRobot.AmrUpdateMinimap()
adam@0 233 end
adam@0 234
yellowfive@11 235 function AskMrRobot.AmrUpdateMinimap()
adam@17 236 if AmrDb.Options.hideMapIcon then
adam@17 237 if _minimapIcon then
adam@17 238 _minimapIcon:Hide("AskMrRobot")
adam@0 239 end
adam@0 240 else
adam@17 241 if not _minimapIcon then
adam@17 242 _minimapIcon = LibStub("LibDBIcon-1.0")
adam@17 243 _minimapIcon:Register("AskMrRobot", _amrLDB, AmrDb.IconInfo)
adam@0 244 end
adam@17 245
adam@17 246 if AskMrRobot.CombatLogTab.IsLogging() then
adam@17 247 _amrLDB.icon = 'Interface\\AddOns\\AskMrRobot\\Media\\icon_green'
yellowfive@11 248 else
adam@17 249 _amrLDB.icon = 'Interface\\AddOns\\AskMrRobot\\Media\\icon'
yellowfive@11 250 end
adam@17 251
adam@17 252 _minimapIcon:Show("AskMrRobot")
adam@0 253 end
adam@0 254 end
adam@0 255
adam@17 256
adam@17 257 function AskMrRobot.SaveAll()
adam@17 258 AskMrRobot.ScanCharacter()
adam@17 259 AskMrRobot.ScanBags()
adam@17 260 AskMrRobot.ScanEquipped()
adam@17 261 AskMrRobot.GetCurrencies()
adam@17 262 AskMrRobot.GetReputations()
adam@17 263 AskMrRobot.GetSpecs()
adam@0 264 end
adam@0 265
adam@17 266 -- gets all basic character properties
adam@17 267 function AskMrRobot.ScanCharacter()
adam@17 268 AmrDb.RealmName = GetRealmName()
adam@17 269 AmrDb.CharacterName = UnitName("player")
adam@17 270 AmrDb.Guild = GetGuildInfo("player")
adam@17 271 AmrDb.ActiveSpec = GetActiveSpecGroup()
adam@17 272 AmrDb.Level = UnitLevel("player");
adam@17 273
adam@17 274 local cls, clsEn = UnitClass("player")
adam@17 275 AmrDb.Class = clsEn;
adam@17 276
adam@17 277 local race, raceEn = UnitRace("player")
adam@17 278 AmrDb.Race = raceEn;
adam@17 279 AmrDb.Faction = UnitFactionGroup("player")
adam@17 280
adam@17 281 AskMrRobot.GetAmrProfessions()
adam@0 282 end
adam@0 283
adam@0 284 function AskMrRobot.GetAmrProfessions()
adam@0 285
adam@0 286 local profMap = {
adam@0 287 [794] = "Archaeology",
adam@0 288 [171] = "Alchemy",
adam@0 289 [164] = "Blacksmithing",
adam@0 290 [185] = "Cooking",
adam@0 291 [333] = "Enchanting",
adam@0 292 [202] = "Engineering",
adam@0 293 [129] = "First Aid",
adam@0 294 [356] = "Fishing",
adam@0 295 [182] = "Herbalism",
adam@0 296 [773] = "Inscription",
adam@0 297 [755] = "Jewelcrafting",
adam@0 298 [165] = "Leatherworking",
adam@0 299 [186] = "Mining",
adam@0 300 [393] = "Skinning",
adam@0 301 [197] = "Tailoring"
adam@0 302 }
adam@0 303
adam@0 304 local prof1, prof2, archaeology, fishing, cooking, firstAid = GetProfessions();
adam@17 305 AmrDb.Professions = {};
adam@0 306 if prof1 then
adam@0 307 local name, icon, skillLevel, maxSkillLevel, numAbilities, spelloffset, skillLine, skillModifier = GetProfessionInfo(prof1);
adam@0 308 if profMap[skillLine] ~= nil then
adam@17 309 AmrDb.Professions[profMap[skillLine]] = skillLevel;
adam@0 310 end
adam@0 311 end
adam@0 312 if prof2 then
adam@0 313 local name, icon, skillLevel, maxSkillLevel, numAbilities, spelloffset, skillLine, skillModifier = GetProfessionInfo(prof2);
adam@0 314 if profMap[skillLine] ~= nil then
adam@17 315 AmrDb.Professions[profMap[skillLine]] = skillLevel;
adam@0 316 end
adam@0 317 end
adam@0 318 if archaeology then
adam@0 319 local name, icon, skillLevel, maxSkillLevel, numAbilities, spelloffset, skillLine, skillModifier = GetProfessionInfo(archaeology);
adam@0 320 if profMap[skillLine] ~= nil then
adam@17 321 AmrDb.Professions[profMap[skillLine]] = skillLevel;
adam@0 322 end
adam@0 323 end
adam@0 324 if fishing then
adam@0 325 local name, icon, skillLevel, maxSkillLevel, numAbilities, spelloffset, skillLine, skillModifier = GetProfessionInfo(fishing);
adam@0 326 if profMap[skillLine] ~= nil then
adam@17 327 AmrDb.Professions[profMap[skillLine]] = skillLevel;
adam@0 328 end
adam@0 329 end
adam@0 330 if cooking then
adam@0 331 local name, icon, skillLevel, maxSkillLevel, numAbilities, spelloffset, skillLine, skillModifier = GetProfessionInfo(cooking);
adam@0 332 if profMap[skillLine] ~= nil then
adam@17 333 AmrDb.Professions[profMap[skillLine]] = skillLevel;
adam@0 334 end
adam@0 335 end
adam@0 336 if firstAid then
adam@0 337 local name, icon, skillLevel, maxSkillLevel, numAbilities, spelloffset, skillLine, skillModifier = GetProfessionInfo(firstAid);
adam@0 338 if profMap[skillLine] ~= nil then
adam@17 339 AmrDb.Professions[profMap[skillLine]] = skillLevel;
adam@0 340 end
adam@0 341 end
adam@0 342 end
adam@0 343
adam@17 344
adam@17 345 -- use some local variables to deal with the fact that a user can close the bank before a scan completes
adam@17 346 local _lastBankBagId = nil
adam@17 347 local _lastBankSlotId = nil
adam@17 348 local BACKPACK_CONTAINER = 0
adam@17 349 local BANK_CONTAINER = -1
adam@17 350
adam@17 351 local function scanBag(bagId, isBank, bagTable, bagItemsWithCount)
adam@17 352 local numSlots = GetContainerNumSlots(bagId)
adam@17 353 for slotId = 1, numSlots do
adam@17 354 local _, itemCount, _, _, _, _, itemLink = GetContainerItemInfo(bagId, slotId)
adam@17 355 -- we skip any stackable item, as far as we know, there is no equippable gear that can be stacked
adam@17 356 if itemLink ~= nil then
adam@17 357 local itemData = AskMrRobot.parseItemLink(itemLink)
adam@17 358 if itemData ~= nil then
adam@17 359 if itemCount == 1 then
adam@17 360 if isBank then
adam@17 361 _lastBankBagId = bagId
adam@17 362 _lastBankSlotId = slotId
adam@17 363 end
adam@17 364 tinsert(bagTable, itemLink)
adam@17 365 end
adam@17 366 if bagItemsWithCount then
adam@17 367 if bagItemsWithCount[itemData.id] then
adam@17 368 bagItemsWithCount[itemData.id] = bagItemsWithCount[itemData.id] + itemCount
adam@17 369 else
adam@17 370 bagItemsWithCount[itemData.id] = itemCount
adam@17 371 end
adam@17 372 end
adam@17 373 end
adam@17 374 end
adam@17 375 end
adam@17 376 end
adam@17 377
adam@21 378 function AskMrRobot.ScanBank()
adam@21 379 --REAGENTBANK_CONTAINER (-3)
adam@17 380 local bankItems = {}
adam@17 381 local bankItemsAndCounts = {}
adam@17 382
adam@17 383 scanBag(BANK_CONTAINER, true, bankItems, bankItemsAndCounts)
adam@21 384 scanBag(REAGENTBANK_CONTAINER, true, bankItems, bankItemsAndCounts)
adam@17 385 for bagId = NUM_BAG_SLOTS + 1, NUM_BAG_SLOTS + NUM_BANKBAGSLOTS do
adam@17 386 scanBag(bagId, true, bankItems, bankItemsAndCounts)
adam@17 387 end
adam@17 388
adam@17 389 -- see if the scan completed before the window closed, otherwise we don't overwrite with partial data
adam@17 390 if _lastBankBagId ~= nil then
adam@17 391 local itemLink = GetContainerItemLink(_lastBankBagId, _lastBankSlotId)
adam@17 392 if itemLink ~= nil then --still open
adam@17 393 AmrDb.BankItems = bankItems
adam@17 394 AmrDb.BankItemsAndCounts = bankItemsAndCounts
adam@17 395 end
adam@17 396 end
adam@0 397 end
adam@0 398
adam@21 399 function AskMrRobot.ScanVoidStorage()
adam@21 400 if IsVoidStorageReady() then
adam@21 401 local voidItems = {}
adam@21 402 local VOID_STORAGE_MAX = 80
adam@21 403 local VOID_STORAGE_PAGES = 2
adam@21 404 local i
adam@21 405 for page = 1,VOID_STORAGE_PAGES do
adam@21 406 for i = 1,VOID_STORAGE_MAX do
adam@21 407 local itemId = GetVoidItemInfo(page, i)
adam@21 408 if itemId then
adam@21 409 local itemLink = GetVoidItemHyperlinkString(page, i);
adam@21 410 if itemLink then
adam@21 411 tinsert(voidItems, itemLink)
adam@21 412 end
adam@21 413 end
adam@21 414 end
adam@21 415 end
adam@21 416 AmrDb.VoidItems = voidItems
adam@21 417 end
adam@21 418 end
adam@21 419
adam@17 420 function AskMrRobot.ScanBags(bagItemsWithCount)
adam@17 421 local bagItems = {}
adam@17 422 scanBag(BACKPACK_CONTAINER, false, bagItems, bagItemsWithCount) -- backpack
adam@17 423 for bagId = 1, NUM_BAG_SLOTS do
adam@17 424 scanBag(bagId, false, bagItems, bagItemsWithCount)
adam@17 425 end
adam@17 426 AmrDb.BagItems = bagItems
adam@0 427 end
adam@0 428
adam@17 429 function AskMrRobot.ScanEquipped()
adam@17 430 local equippedItems = {};
adam@17 431 for slotNum = 1, #AskMrRobot.slotIds do
adam@17 432 local slotId = AskMrRobot.slotIds[slotNum];
adam@17 433 local itemLink = GetInventoryItemLink("player", slotId);
adam@17 434 if (itemLink ~= nil) then
adam@17 435 equippedItems[slotId] = itemLink;
adam@17 436 end
adam@17 437 end
adam@17 438
adam@17 439 -- store last-seen equipped gear for each spec
adam@17 440 AmrDb.Equipped[GetActiveSpecGroup()] = equippedItems
adam@17 441 end
adam@0 442
adam@17 443
adam@17 444 local function getCurrencyAmount(index)
adam@17 445 local localized_label, amount, icon_file_name = GetCurrencyInfo(index);
adam@17 446 return amount;
adam@17 447 end
adam@17 448
adam@17 449 function AskMrRobot.GetCurrencies()
adam@17 450 local currencies = {};
adam@17 451 currencies[-1] = GetMoney()
adam@17 452
adam@17 453 local currencyList = {61, 81, 241, 361, 384, 394, 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 401, 402, 416, 515, 614, 615, 676, 679}
adam@17 454 for i, currency in pairs(currencyList) do
adam@17 455 local amount = getCurrencyAmount(currency)
adam@17 456 if amount ~= 0 then
adam@17 457 currencies[currency] = amount
adam@17 458 end
adam@17 459 end
adam@17 460
adam@17 461 AmrDb.Currencies = currencies
adam@17 462 end
adam@17 463
adam@17 464
adam@17 465 local function getRepStanding(factionId)
adam@17 466 local name, description, standingId, _ = GetFactionInfoByID(factionId)
adam@17 467 return standingId - 1; -- our rep enum correspond to what the armory returns, are 1 less than what the game returns
adam@17 468 end
adam@17 469
adam@17 470 function AskMrRobot.GetReputations()
adam@17 471 local reps = {}
adam@17 472
adam@17 473 local repList = {1375,1376,1270,1269,1341,1337,1387,1388,1435}
adam@17 474 for i, repId in pairs(repList) do
adam@17 475 local standing = getRepStanding(repId)
adam@17 476 if standing >= 0 then
adam@17 477 reps[repId] = standing
adam@17 478 end
adam@17 479 end
adam@17 480
adam@17 481 AmrDb.Reps = reps;
adam@17 482 end
adam@17 483
adam@17 484
adam@17 485 local function getSpecId(specGroup)
adam@17 486 local spec = GetSpecialization(false, false, specGroup);
adam@17 487 return spec and GetSpecializationInfo(spec);
adam@17 488 end
adam@17 489
adam@17 490 local function getTalents(specGroup)
adam@0 491 local talentInfo = {}
adam@17 492 local maxTiers = 7
adam@17 493 for tier = 1, maxTiers do
adam@17 494 for col = 1, 3 do
adam@17 495 local id, name, texture, selected, available = GetTalentInfo(tier, col, specGroup)
adam@17 496 if selected then
adam@17 497 talentInfo[tier] = col
adam@17 498 end
adam@17 499 end
adam@0 500 end
adam@0 501
adam@0 502 local str = ""
adam@0 503 for i = 1, maxTiers do
adam@0 504 if talentInfo[i] then
adam@0 505 str = str .. talentInfo[i]
adam@0 506 else
adam@0 507 str = str .. '0'
adam@0 508 end
adam@0 509 end
adam@0 510
adam@0 511 return str
adam@0 512 end
adam@0 513
adam@17 514 local function getGlyphs(specGroup)
adam@0 515 local glyphs = {}
adam@0 516 for i = 1, NUM_GLYPH_SLOTS do
adam@17 517 local _, _, _, glyphSpellID, _, glyphID = GetGlyphSocketInfo(i, specGroup)
adam@0 518 if (glyphID) then
adam@0 519 tinsert(glyphs, glyphSpellID)
adam@0 520 end
adam@0 521 end
adam@0 522 return glyphs;
adam@0 523 end
adam@0 524
adam@17 525 -- get specs, talents, and glyphs
adam@17 526 function AskMrRobot.GetSpecs()
adam@17 527
adam@17 528 AmrDb.Specs = {}
adam@17 529 AmrDb.Talents = {}
adam@17 530 AmrDb.Glyphs = {}
adam@17 531
adam@17 532 for group = 1, GetNumSpecGroups() do
adam@17 533 -- spec, convert game spec id to one of our spec ids
adam@17 534 local specId = getSpecId(group)
adam@17 535 if specId then
adam@17 536 AmrDb.Specs[group] = AskMrRobot.specIds[specId]
adam@17 537 else
adam@17 538 AmrDb.Specs[group] = 0
adam@17 539 end
adam@17 540
adam@17 541 AmrDb.Talents[group] = getTalents(group)
adam@17 542 AmrDb.Glyphs[group] = getGlyphs(group)
adam@0 543 end
adam@0 544 end
adam@0 545
adam@17 546 ----------------------------------------------------------------------------
adam@17 547 -- Export
adam@17 548 ----------------------------------------------------------------------------
adam@0 549
adam@17 550 function AskMrRobot.toCompressedNumberList(list)
adam@0 551 -- ensure the values are numbers, sorted from lowest to highest
adam@0 552 local nums = {}
adam@0 553 for i, v in ipairs(list) do
adam@0 554 table.insert(nums, tonumber(v))
adam@0 555 end
adam@0 556 table.sort(nums)
adam@0 557
adam@0 558 local ret = {}
adam@0 559 local prev = 0
adam@0 560 for i, v in ipairs(nums) do
adam@0 561 local diff = v - prev
adam@0 562 table.insert(ret, diff)
adam@0 563 prev = v
adam@0 564 end
adam@0 565
adam@0 566 return table.concat(ret, ",")
adam@0 567 end
adam@0 568
adam@17 569 -- appends a list of items to the export
adam@17 570 local function appendItemsToExport(fields, itemObjects)
adam@17 571
adam@17 572 -- sort by item id so we can compress it more easily
adam@17 573 table.sort(itemObjects, function(a, b) return a.id < b.id end)
adam@17 574
adam@17 575 -- append to the export string
adam@17 576 local prevItemId = 0
adam@17 577 local prevGemId = 0
adam@17 578 local prevEnchantId = 0
adam@17 579 local prevUpgradeId = 0
adam@17 580 local prevBonusId = 0
adam@17 581 for i, itemData in ipairs(itemObjects) do
adam@17 582 local itemParts = {}
adam@17 583
adam@17 584 table.insert(itemParts, itemData.id - prevItemId)
adam@17 585 prevItemId = itemData.id
adam@17 586
adam@17 587 if itemData.slot ~= nil then table.insert(itemParts, "s" .. itemData.slot) end
adam@17 588 if itemData.suffixId ~= 0 then table.insert(itemParts, "f" .. itemData.suffixId) end
adam@17 589 if itemData.upgradeId ~= 0 then
adam@17 590 table.insert(itemParts, "u" .. (itemData.upgradeId - prevUpgradeId))
adam@17 591 prevUpgradeId = itemData.upgradeId
adam@17 592 end
adam@17 593 if itemData.bonusIds then
adam@17 594 for bIndex, bValue in ipairs(itemData.bonusIds) do
adam@17 595 table.insert(itemParts, "b" .. (bValue - prevBonusId))
adam@17 596 prevBonusId = bValue
adam@17 597 end
adam@17 598 end
adam@17 599 if itemData.gemIds[1] ~= 0 then
adam@17 600 table.insert(itemParts, "x" .. (itemData.gemIds[1] - prevGemId))
adam@17 601 prevGemId = itemData.gemIds[1]
adam@17 602 end
adam@17 603 if itemData.gemIds[2] ~= 0 then
adam@17 604 table.insert(itemParts, "y" .. (itemData.gemIds[2] - prevGemId))
adam@17 605 prevGemId = itemData.gemIds[2]
adam@17 606 end
adam@17 607 if itemData.gemIds[3] ~= 0 then
adam@17 608 table.insert(itemParts, "z" .. (itemData.gemIds[3] - prevGemId))
adam@17 609 prevGemId = itemData.gemIds[3]
adam@17 610 end
adam@17 611 if itemData.enchantId ~= 0 then
adam@17 612 table.insert(itemParts, "e" .. (itemData.enchantId - prevEnchantId))
adam@17 613 prevEnchantId = itemData.enchantId
adam@17 614 end
adam@17 615
adam@17 616 table.insert(fields, table.concat(itemParts, ""))
adam@17 617 end
adam@17 618 end
adam@17 619
adam@17 620 -- create a compact string representing this player
adam@17 621 -- if complete is true, exports everything (inventory, both specs)
adam@17 622 -- otherwise only exports the player's active gear, spec, etc.
adam@17 623 function AskMrRobot.ExportToCompressedString(complete)
adam@0 624 local fields = {}
adam@0 625
adam@0 626 -- compressed string uses a fixed order rather than inserting identifiers
adam@0 627 table.insert(fields, GetAddOnMetadata(AskMrRobot.AddonName, "Version"))
adam@17 628 table.insert(fields, AmrDb.RealmName)
adam@17 629 table.insert(fields, AmrDb.CharacterName)
adam@0 630
adam@0 631 -- guild name
adam@0 632 local guildName = GetGuildInfo("player")
adam@0 633 if guildName == nil then
adam@0 634 table.insert(fields, "")
adam@0 635 else
adam@0 636 table.insert(fields, guildName)
adam@0 637 end
adam@0 638
adam@0 639 -- race, default to pandaren if we can't read it for some reason
adam@17 640 local raceval = AskMrRobot.raceIds[AmrDb.Race]
adam@0 641 if raceval == nil then raceval = 13 end
adam@0 642 table.insert(fields, raceval)
adam@0 643
adam@0 644 -- faction, default to alliance if we can't read it for some reason
adam@17 645 raceval = AskMrRobot.factionIds[AmrDb.Faction]
adam@0 646 if raceval == nil then raceval = 1 end
adam@0 647 table.insert(fields, raceval)
adam@0 648
adam@17 649 table.insert(fields, AmrDb.Level)
adam@0 650
adam@0 651 local profs = {}
adam@0 652 local noprofs = true
adam@17 653 if AmrDb.Professions then
adam@17 654 for k, v in pairs(AmrDb.Professions) do
adam@17 655 local profval = AskMrRobot.professionIds[k]
yellowfive@11 656 if profval ~= nil then
yellowfive@11 657 noprofs = false
yellowfive@11 658 table.insert(profs, profval .. ":" .. v)
yellowfive@11 659 end
yellowfive@11 660 end
yellowfive@11 661 end
adam@0 662
adam@0 663 if noprofs then
adam@0 664 table.insert(profs, "0:0")
adam@0 665 end
adam@0 666
adam@0 667 table.insert(fields, table.concat(profs, ","))
adam@0 668
adam@17 669 -- export specs
adam@17 670 table.insert(fields, AmrDb.ActiveSpec)
adam@17 671 for spec = 1, 2 do
adam@17 672 if AmrDb.Specs[spec] and (complete or spec == AmrDb.ActiveSpec) then
adam@17 673 table.insert(fields, ".s" .. spec) -- indicates the start of a spec block
adam@17 674 table.insert(fields, AmrDb.Specs[spec])
adam@17 675 table.insert(fields, AmrDb.Talents[spec])
adam@17 676 table.insert(fields, AskMrRobot.toCompressedNumberList(AmrDb.Glyphs[spec]))
adam@17 677 end
adam@0 678 end
adam@0 679
adam@17 680 -- export equipped gear
adam@17 681 if AmrDb.Equipped then
adam@17 682 for spec = 1, 2 do
adam@17 683 if AmrDb.Equipped[spec] and (complete or spec == AmrDb.ActiveSpec) then
adam@17 684 table.insert(fields, ".q" .. spec) -- indicates the start of an equipped gear block
adam@17 685
adam@17 686 local itemObjects = {}
adam@17 687 for k, v in pairs(AmrDb.Equipped[spec]) do
adam@17 688 local itemData = AskMrRobot.parseItemLink(v)
adam@17 689 itemData.slot = k
adam@17 690 table.insert(itemObjects, itemData)
adam@17 691 end
adam@17 692
adam@17 693 appendItemsToExport(fields, itemObjects)
adam@17 694 end
adam@17 695 end
yellowfive@11 696 end
adam@0 697
adam@17 698 -- if doing a complete export, include reputations and bank/bag items too
adam@17 699 if complete then
adam@17 700
adam@17 701 -- export reputations
adam@17 702 local reps = {}
adam@17 703 local noreps = true
adam@17 704 if AmrDb.Reps then
adam@17 705 for k, v in pairs(AmrDb.Reps) do
adam@17 706 noreps = false
adam@17 707 table.insert(reps, k .. ":" .. v)
adam@17 708 end
adam@17 709 end
adam@17 710 if noreps then
adam@17 711 table.insert(reps, "_")
adam@17 712 end
adam@17 713
adam@17 714 table.insert(fields, ".r")
adam@17 715 table.insert(fields, table.concat(reps, ","))
adam@17 716
adam@17 717 -- export bag and bank
adam@17 718 local itemObjects = {}
adam@17 719 if AmrDb.BagItems then
adam@17 720 for i, v in ipairs(AmrDb.BagItems) do
adam@21 721 local _,_,_,_,_,_,_,stackCount = GetItemInfo(v)
adam@21 722 if stackCount == 1 then
adam@21 723 local itemData = AskMrRobot.parseItemLink(v)
adam@21 724 if itemData ~= nil then
adam@21 725 table.insert(itemObjects, itemData)
adam@21 726 end
adam@21 727 end
yellowfive@11 728 end
yellowfive@11 729 end
adam@17 730 if AmrDb.BankItems then
adam@17 731 for i, v in ipairs(AmrDb.BankItems) do
adam@21 732 local _,_,_,_,_,_,_,stackCount = GetItemInfo(v)
adam@21 733 if stackCount == 1 then
adam@21 734 local itemData = AskMrRobot.parseItemLink(v)
adam@21 735 if itemData ~= nil then
adam@21 736 table.insert(itemObjects, itemData)
adam@21 737 end
yellowfive@11 738 end
yellowfive@11 739 end
yellowfive@11 740 end
adam@21 741 if AmrDb.VoidItems then
adam@21 742 for i, v in ipairs(AmrDb.VoidItems) do
adam@21 743 local _,_,_,_,_,_,_,stackCount = GetItemInfo(v)
adam@21 744 if stackCount == 1 then
adam@21 745 local itemData = AskMrRobot.parseItemLink(v)
adam@21 746 if itemData ~= nil then
adam@21 747 table.insert(itemObjects, itemData)
adam@21 748 end
adam@21 749 end
adam@21 750 end
adam@21 751 end
adam@0 752
adam@17 753 table.insert(fields, ".inv")
adam@17 754 appendItemsToExport(fields, itemObjects)
adam@0 755 end
yellowfive@11 756
adam@0 757 return "$" .. table.concat(fields, ";") .. "$"
adam@0 758 end
adam@0 759
adam@0 760 function AskMrRobot.ExportToAddonChat(timestamp)
yellowfive@11 761 local msg = AskMrRobot.ExportToCompressedString(false)
adam@0 762 local msgPrefix = timestamp .. "\n" .. AmrRealmName .. "\n" .. AmrCharacterName .. "\n"
adam@0 763
adam@0 764 -- break the data into 250 character chunks (to deal with the short limit on addon message size)
adam@0 765 local chunks = {}
adam@0 766 local i = 1
yellowfive@11 767 local length = string.len(msg)
adam@0 768 local chunkLen = 249 - string.len(msgPrefix)
adam@0 769 while (i <= length) do
adam@0 770 local endpos = math.min(i + chunkLen, length)
yellowfive@11 771 table.insert(chunks, msgPrefix .. string.sub(msg, i, endpos))
adam@0 772 i = endpos + 1
adam@0 773 end
adam@0 774
adam@0 775 for i, v in ipairs(chunks) do
adam@0 776 SendAddonMessage(AskMrRobot.ChatPrefix, v, "RAID")
adam@0 777 end
adam@0 778
adam@0 779 -- send a completion message
adam@0 780 SendAddonMessage(AskMrRobot.ChatPrefix, msgPrefix .. "done", "RAID")
adam@0 781 end
adam@0 782
adam@0 783 -- Create an export string that can be copied to the website
adam@0 784 function AskMrRobot.ExportToString()
adam@17 785 return AskMrRobot.ExportToCompressedString(true)
adam@17 786 end
adam@0 787
adam@17 788
adam@17 789 ----------------------------------------------------------------------------
adam@17 790 -- Import
adam@17 791 ----------------------------------------------------------------------------
adam@17 792
adam@17 793 -- imports will give us extra information about items, gems, and enchants
adam@17 794 AskMrRobot.ExtraItemData = {} -- keyed by item id
adam@17 795 AskMrRobot.ExtraGemData = {} -- keyed by gem enchant id
adam@17 796 AskMrRobot.ExtraEnchantData = {} -- keyed by enchant id
adam@17 797
adam@17 798 -- the data that was last imported
adam@17 799 AskMrRobot.ImportData = nil -- keyed by slot id
adam@17 800
adam@17 801 local MIN_IMPORT_VERSION = 2
adam@17 802
adam@17 803 --
adam@17 804 -- Import a character, returning nil on success, otherwise an error message, import result stored in AskMrRobot.ImportData
adam@17 805 --
adam@17 806 function AskMrRobot.ImportCharacter(data)
adam@17 807
adam@17 808 -- make sure all data is up to date before importing
adam@17 809 AskMrRobot.SaveAll()
adam@0 810
adam@17 811 if data == nil or string.len(data) == 0 then
adam@17 812 return L.AMR_IMPORT_ERROR_EMPTY
adam@0 813 end
adam@0 814
adam@17 815 local data1 = { strsplit("$", data) }
adam@17 816 if #data1 ~= 3 then
adam@17 817 return L.AMR_IMPORT_ERROR_FORMAT
adam@0 818 end
adam@17 819
adam@17 820 local parts = { strsplit(";", data1[2]) }
adam@17 821
adam@17 822 -- require a minimum version
adam@17 823 local ver = tonumber(parts[1])
adam@17 824 if ver < MIN_IMPORT_VERSION then
adam@17 825 return L.AMR_IMPORT_ERROR_VERSION
adam@0 826 end
adam@17 827
adam@17 828 -- require realm/name match
adam@17 829 local realm = parts[2]
adam@17 830 local name = parts[3]
adam@17 831 if realm ~= AmrDb.RealmName or name ~= AmrDb.CharacterName then
adam@17 832 local badPers = name .. " (" .. realm .. ")"
adam@17 833 local goodPers = AmrDb.CharacterName .. " (" .. AmrDb.RealmName .. ")"
adam@17 834 return L.AMR_IMPORT_ERROR_CHAR:format(badPers, goodPers)
adam@0 835 end
adam@0 836
adam@17 837 -- require race match
adam@17 838 local race = tonumber(parts[5])
adam@17 839 if race ~= AskMrRobot.raceIds[AmrDb.Race] then
adam@17 840 return L.AMR_IMPORT_ERROR_RACE
adam@0 841 end
adam@0 842
adam@17 843 -- require faction match
adam@17 844 local faction = tonumber(parts[6])
adam@17 845 if faction ~= AskMrRobot.factionIds[AmrDb.Faction] then
adam@17 846 return L.AMR_IMPORT_ERROR_FACTION
adam@17 847 end
adam@0 848
adam@17 849 -- require level match
adam@17 850 local level = tonumber(parts[7])
adam@17 851 if level ~= AmrDb.Level then
adam@17 852 return L.AMR_IMPORT_ERROR_LEVEL
adam@17 853 end
adam@17 854
adam@17 855 -- require spec match
adam@17 856 local spec = tonumber(parts[11])
adam@17 857 if spec ~= AmrDb.Specs[AmrDb.ActiveSpec] then
adam@17 858 print(AmrDb.ActiveSpec)
adam@17 859 print(spec)
adam@17 860 print(AmrDb.Specs[AmrDb.ActiveSpec])
adam@17 861 local _, specName = GetSpecializationInfoByID(AskMrRobot.gameSpecIds[spec])
adam@17 862 return L.AMR_IMPORT_ERROR_SPEC:format(specName)
adam@17 863 end
adam@17 864
adam@17 865 -- require talent match
adam@17 866 local talents = parts[12]
adam@17 867 if talents ~= AmrDb.Talents[AmrDb.ActiveSpec] then
adam@17 868 return L.AMR_IMPORT_ERROR_TALENT
adam@17 869 end
adam@17 870
adam@17 871 -- require glyph match
adam@17 872 -- TODO: re-enable this check when glyphs are more consistent
adam@17 873 --local glyphs = parts[13]
adam@17 874 --if glyphs ~= AskMrRobot.toCompressedNumberList(AmrDb.Glyphs[AmrDb.ActiveSpec]) then
adam@17 875 -- return L.AMR_IMPORT_ERROR_GLYPH
adam@17 876 --end
adam@17 877
adam@17 878 -- if we make it this far, the data is valid, so read item information
adam@17 879 local importData = {}
adam@17 880
adam@17 881 local itemInfo = {}
adam@17 882 local gemInfo = {}
adam@17 883 local enchantInfo = {}
adam@17 884
adam@17 885 local prevItemId = 0
adam@17 886 local prevGemId = 0
adam@17 887 local prevEnchantId = 0
adam@17 888 local prevUpgradeId = 0
adam@17 889 local prevBonusId = 0
adam@17 890 local digits = {
adam@17 891 ["-"] = true,
adam@17 892 ["0"] = true,
adam@17 893 ["1"] = true,
adam@17 894 ["2"] = true,
adam@17 895 ["3"] = true,
adam@17 896 ["4"] = true,
adam@17 897 ["5"] = true,
adam@17 898 ["6"] = true,
adam@17 899 ["7"] = true,
adam@17 900 ["8"] = true,
adam@17 901 ["9"] = true,
adam@17 902 }
adam@17 903 for i = 15, #parts do
adam@17 904 local itemString = parts[i]
adam@17 905 if itemString ~= "" and itemString ~= "_" then
adam@17 906 local tokens = {}
adam@17 907 local bonusIds = {}
adam@17 908 local hasBonuses = false
adam@17 909 local token = ""
adam@17 910 local prop = "i"
adam@17 911 local tokenComplete = false
adam@17 912 for j = 1, string.len(itemString) do
adam@17 913 local c = string.sub(itemString, j, j)
adam@17 914 if digits[c] == nil then
adam@17 915 tokenComplete = true
adam@17 916 else
adam@17 917 token = token .. c
adam@17 918 end
adam@17 919
adam@17 920 if tokenComplete or j == string.len(itemString) then
adam@17 921 local val = tonumber(token)
adam@17 922 if prop == "i" then
adam@17 923 val = val + prevItemId
adam@17 924 prevItemId = val
adam@17 925 elseif prop == "u" then
adam@17 926 val = val + prevUpgradeId
adam@17 927 prevUpgradeId = val
adam@17 928 elseif prop == "b" then
adam@17 929 val = val + prevBonusId
adam@17 930 prevBonusId = val
adam@17 931 elseif prop == "x" or prop == "y" or prop == "z" then
adam@17 932 val = val + prevGemId
adam@17 933 prevGemId = val
adam@17 934 elseif prop == "e" then
adam@17 935 val = val + prevEnchantId
adam@17 936 prevEnchantId = val
adam@17 937 end
adam@17 938
adam@17 939 if prop == "b" then
adam@17 940 table.insert(bonusIds, val)
adam@17 941 hasBonuses = true
adam@17 942 else
adam@17 943 tokens[prop] = val
adam@17 944 end
adam@17 945
adam@17 946 token = ""
adam@17 947 tokenComplete = false
adam@17 948
adam@17 949 -- we have moved on to the next token
adam@17 950 prop = c
adam@17 951 end
adam@17 952 end
adam@17 953
adam@17 954 local obj = {}
adam@17 955 importData[tonumber(tokens["s"])] = obj
adam@17 956
adam@17 957 obj.id = tokens["i"]
adam@17 958 obj.suffixId = tokens["f"] or 0
adam@17 959 obj.upgradeId = tokens["u"] or 0
adam@17 960 obj.enchantId = tokens["e"] or 0
adam@17 961
adam@17 962 obj.gemIds = {}
adam@17 963 table.insert(obj.gemIds, tokens["x"] or 0)
adam@17 964 table.insert(obj.gemIds, tokens["y"] or 0)
adam@17 965 table.insert(obj.gemIds, tokens["z"] or 0)
adam@17 966 table.insert(obj.gemIds, 0)
adam@17 967
adam@17 968 if hasBonuses then
adam@17 969 obj.bonusIds = bonusIds
adam@17 970 end
adam@17 971
adam@17 972 local itemObj = {}
adam@17 973 itemObj.id = obj.id
adam@17 974 itemInfo[obj.id] = itemObj
adam@17 975
adam@17 976 -- look for any socket color information, add to our extra data
adam@17 977 if tokens["c"] then
adam@17 978 itemObj.socketColors = {}
adam@17 979 for j = 1, string.len(tokens["c"]) do
adam@17 980 table.insert(itemObj.socketColors, tonumber(string.sub(tokens["c"], j, j)))
adam@17 981 end
adam@17 982 end
adam@17 983
adam@17 984 -- look for item ID duplicate info, deals with old SoO items
adam@17 985 if tokens["d"] then
adam@17 986 itemObj.duplicateId = tonumber(tokens["d"])
adam@17 987 end
adam@17 988
adam@17 989 end
adam@17 990 end
adam@17 991
adam@17 992 -- now read any extra display information
adam@17 993 parts = { strsplit("@", data1[3]) }
adam@17 994 for i = 1, #parts do
adam@17 995 local infoParts = { strsplit("\\", parts[i]) }
adam@17 996
adam@17 997 if infoParts[1] == "g" then
adam@17 998
adam@17 999 local gemObj = {}
adam@17 1000 gemObj.enchantId = tonumber(infoParts[2])
adam@17 1001 gemObj.id = tonumber(infoParts[3])
adam@17 1002
adam@17 1003 local identicalGems = infoParts[4]
adam@17 1004 if string.len(identicalGems) > 0 then
adam@17 1005 gemObj.identicalGroup = {}
adam@17 1006 identicalGems = { strsplit(",", identicalGems) }
adam@17 1007 for j = 1, #identicalGems do
adam@17 1008 gemObj.identicalGroup[tonumber(identicalGems[j])] = true
adam@17 1009 end
adam@17 1010 end
adam@17 1011
adam@17 1012 gemObj.text = string.gsub(infoParts[5], "_(%a+)_", function(s) return L.AMR_STAT_SHORT_STRINGS[s] end)
adam@17 1013 if infoParts[6] == nil or string.len(infoParts[6]) == 0 then
adam@17 1014 gemObj.identicalItemGroup = {[gemObj.id]=true}
adam@17 1015 else
adam@17 1016 local identicalIds = { strsplit(',', infoParts[6]) }
adam@17 1017 gemObj.identicalItemGroup = {}
adam@17 1018 for j = 1, #identicalIds do
adam@17 1019 gemObj.identicalItemGroup[tonumber(identicalIds[j])] = true
adam@17 1020 end
adam@17 1021 end
adam@17 1022
adam@17 1023 gemInfo[gemObj.enchantId] = gemObj
adam@17 1024
adam@17 1025 elseif infoParts[1] == "e" then
adam@17 1026
adam@17 1027 local enchObj = {}
adam@17 1028 enchObj.id = tonumber(infoParts[2])
adam@17 1029 enchObj.itemId = tonumber(infoParts[3])
adam@17 1030 enchObj.spellId = tonumber(infoParts[4])
adam@17 1031 enchObj.text = string.gsub(infoParts[5], "_(%a+)_", function(s) return L.AMR_STAT_SHORT_STRINGS[s] end)
adam@17 1032
adam@17 1033 local mats = infoParts[6]
adam@17 1034 if string.len(mats) > 0 then
adam@17 1035 enchObj.materials = {}
adam@17 1036 mats = { strsplit(",", mats) }
adam@17 1037 for j = 1, #mats do
adam@17 1038 local kv = { strsplit("=", mats[j]) }
adam@17 1039 enchObj.materials[tonumber(kv[1])] = tonumber(kv[2])
adam@17 1040 end
adam@17 1041 end
adam@17 1042
adam@17 1043 enchantInfo[enchObj.id] = enchObj
adam@17 1044
adam@17 1045 end
adam@17 1046 end
adam@17 1047
adam@17 1048 -- we have succeeded, record the result
adam@17 1049 AskMrRobot.ImportData = importData
adam@17 1050 AskMrRobot.ExtraItemData = itemInfo
adam@17 1051 AskMrRobot.ExtraGemData = gemInfo
adam@17 1052 AskMrRobot.ExtraEnchantData = enchantInfo
adam@17 1053
adam@17 1054 AmrDb.LastCharacterImport = data
adam@17 1055 AmrDb.LastCharacterImportDate = date()
adam@0 1056 end