Mercurial > wow > askmrrobot

annotate AskMrRobot.lua @ 49:90175bdc50e6 v17

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