wow/askmrrobot: AskMrRobot.lua annotate

annotate AskMrRobot.lua @ 37:4d1a9865c90e v11

fixed void storage reading bug

author	yellowfive
date	Sun, 19 Oct 2014 19:11:53 -0700
parents	d964099e4783
children	0e78d6424532

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

Mercurial > wow > askmrrobot

annotate AskMrRobot.lua @ 37:4d1a9865c90e v11