Skip to content

Instantly share code, notes, and snippets.

@martinlindhe

martinlindhe/dumptoon.lua

Created September 18, 2022 15:14
Show Gist options
  • Save martinlindhe/3a6c98639ac7e8d33fe42f5456aedd78 to your computer and use it in GitHub Desktop.
Save martinlindhe/3a6c98639ac7e8d33fe42f5456aedd78 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dumptoon.lua
-- write current char info to a ini file for later consumption by another tool
--
--
-- raw stats: int str etc, hp mana
-- all item slots and content
-- all bags & bank content (so u can search inventories on resulting webpage)
-- TODO: can we record output from /keys to file?
local mq = require("mq")
require("ezmq")
local timeStart = os.time()
local DUMP_KNOWN_AA = true
local DUMP_SPELLBOOK = true
-- rof2 client:
local SPELLBOOK_SIZE = 720 -- size of spellbook: 8 * 90 pages (RoF2)
local MAX_INV_SLOTS = 10
local MAX_AUG_SLOTS = 2
local me = mq.TLO.Me
local settingsRoot = "D:/dev-mq/mqnext-e4-lua/dumptoon"
local iniFile = settingsRoot .. "/Dumptoon."..me.Name()..".ini"
local aaMapFile = settingsRoot .. "/AAMap."..current_server()..".ini"
-- dump bind point FIXME never triggers
--mq.event("bindpoint", "You are currently bound in: #1#", function(text, where)
--[[
mq.event("bindpoint", "The location of your bind is: #1#, #2#, #3#", function(text, y, x, z)
cmd("/dgtell all BIND POINT: "..y.." "..x.." "..z)
cmd("/ini "..iniFile.." Overview Bindpoint "..y)
end)
]]--
cmd("/lua stop e4")
drop_all_buffs()
delay(1000)
print("--- DUMP TOON ---")
-- ask for bind point
-- XXX mq2 window shows x,y,z coords too, how to record those?
cmd("/char")
-- Overview
cmd("/ini "..iniFile.." Overview Name "..me.Name())
cmd("/ini "..iniFile..' Overview Class "'..me.Class()..'"') -- XXX space in Shadow Knight
cmd("/ini "..iniFile..' Overview Race "'..me.Race()..'"') -- XXX space in Wood Elf
cmd("/ini "..iniFile.." Overview Gender "..me.Gender())
-- Tribute/Favor
cmd("/ini "..iniFile.." Favor Current ".. me.CurrentFavor())
cmd("/ini "..iniFile.." Favor Career "..me.CareerFavor())
-- XP
cmd("/ini "..iniFile.." XP Level "..me.Level())
cmd("/ini "..iniFile.." XP Exp "..me.Exp())
cmd("/ini "..iniFile.." XP AAExp "..me.AAExp())
cmd("/ini "..iniFile.." XP AAPoints "..me.AAPoints())
cmd("/ini "..iniFile.." XP AAPointsSpent "..me.AAPointsSpent())
-- XXX not available in peq-mq2 version: ${Me.GroupLeaderExp}, ${Me.GroupLeaderPoints}
-- LDoN
cmd("/ini "..iniFile.." LDoN Points "..me.LDoNPoints())
cmd("/ini "..iniFile.." LDoN GukEarned "..me.GukEarned())
cmd("/ini "..iniFile.." LDoN MirEarned "..me.MirEarned())
cmd("/ini "..iniFile.." LDoN MMEarned "..me.MMEarned())
cmd("/ini "..iniFile.." LDoN RujEarned "..me.RujEarned())
cmd("/ini "..iniFile.." LDoN TakEarned "..me.TakEarned())
-- coins
cmd("/ini "..iniFile.." Coins Copper "..me.Copper())
cmd("/ini "..iniFile.." Coins CopperBank "..me.CopperBank())
cmd("/ini "..iniFile.." Coins Silver "..me.Silver())
cmd("/ini "..iniFile.." Coins SilverBank "..me.SilverBank())
cmd("/ini "..iniFile.." Coins Gold "..me.Gold())
cmd("/ini "..iniFile.." Coins GoldBank "..me.GoldBank())
cmd("/ini "..iniFile.." Coins Platinum "..me.Platinum())
cmd("/ini "..iniFile.." Coins PlatinumBank "..me.PlatinumBank())
cmd("/ini "..iniFile.." Coins PlatinumShared "..me.PlatinumShared())
-- stats as seen by client - XXX can we get raw ones excluding gear and buffs?
-- XXX AC and ATK numbers?
cmd("/ini "..iniFile.." CurrentStats MaxHPs "..me.MaxHPs())
cmd("/ini "..iniFile.." CurrentStats MaxMana "..me.MaxMana())
cmd("/ini "..iniFile.." CurrentStats MaxEndurance "..me.MaxEndurance())
cmd("/ini "..iniFile.." CurrentStats STR "..me.STR())
cmd("/ini "..iniFile.." CurrentStats STA "..me.STA())
cmd("/ini "..iniFile.." CurrentStats AGI "..me.AGI())
cmd("/ini "..iniFile.." CurrentStats DEX "..me.DEX())
cmd("/ini "..iniFile.." CurrentStats WIS "..me.WIS())
cmd("/ini "..iniFile.." CurrentStats INT "..me.INT())
cmd("/ini "..iniFile.." CurrentStats CHA "..me.CHA())
cmd("/ini "..iniFile.." CurrentStats svPoison "..me.svPoison())
cmd("/ini "..iniFile.." CurrentStats svMagic "..me.svMagic())
cmd("/ini "..iniFile.." CurrentStats svDisease "..me.svDisease())
cmd("/ini "..iniFile.." CurrentStats svFire "..me.svFire())
cmd("/ini "..iniFile.." CurrentStats svCold "..me.svCold())
cmd("/ini "..iniFile.." CurrentStats svCorruption"..me.svCorruption())
cmd("/ini "..iniFile.." CurrentStats svChromatic "..me.svChromatic())
cmd("/ini "..iniFile.." CurrentStats svPrismatic "..me.svPrismatic())
cmd("/ini "..iniFile.." CurrentStats CurrentWeight "..me.CurrentWeight())
cmd("/ini "..iniFile.." CurrentStats AttackSpeed "..me.AttackSpeed())
cmd("/ini "..iniFile.." CurrentStats Haste "..me.Haste())
-- bonuses from gear as seen by client
cmd("/ini "..iniFile.." Bonuses HPBonus "..me.HPBonus())
cmd("/ini "..iniFile.." Bonuses HPRegenBonus "..me.HPRegenBonus())
cmd("/ini "..iniFile.." Bonuses ManaBonus "..me.ManaBonus())
cmd("/ini "..iniFile.." Bonuses ManaRegenBonus "..me.ManaRegenBonus())
cmd("/ini "..iniFile.." Bonuses EnduranceBonus "..me.EnduranceBonus())
cmd("/ini "..iniFile.." Bonuses EnduranceRegenBonus "..me.EnduranceRegenBonus())
cmd("/ini "..iniFile.." Bonuses AccuracyBonus "..me.AccuracyBonus())
cmd("/ini "..iniFile.." Bonuses AttackBonus "..me.AttackBonus())
cmd("/ini "..iniFile.." Bonuses AvoidanceBonus "..me.AvoidanceBonus())
cmd("/ini "..iniFile.." Bonuses ClairvoyanceBonus "..me.ClairvoyanceBonus())
cmd("/ini "..iniFile.." Bonuses CombatEffectsBonus "..me.CombatEffectsBonus())
cmd("/ini "..iniFile.." Bonuses DamageShieldBonus "..me.DamageShieldBonus())
cmd("/ini "..iniFile.." Bonuses DamageShieldMitigationBonus "..me.DamageShieldMitigationBonus())
cmd("/ini "..iniFile.." Bonuses DoTShieldBonus "..me.DoTShieldBonus())
cmd("/ini "..iniFile.." Bonuses HealAmountBonus "..me.HealAmountBonus())
cmd("/ini "..iniFile.." Bonuses ShieldingBonus "..me.ShieldingBonus())
cmd("/ini "..iniFile.." Bonuses SpellDamageBonus "..me.SpellDamageBonus())
cmd("/ini "..iniFile.." Bonuses SpellShieldBonus "..me.SpellShieldBonus())
cmd("/ini "..iniFile.." Bonuses StrikeThroughBonus "..me.StrikeThroughBonus())
cmd("/ini "..iniFile.." Bonuses StunResistBonus "..me.StunResistBonus())
doevents()
-- skills ... 1-78 is in use
for i = 1, 78 do
if me.Skill(i)() then
if mq.TLO.Skill(i).Name() ~= "None" then
cmd("/ini "..iniFile.." Skill "..i.." "..me.Skill(i)())
end
end
end
-- languages (numbered 1-25)
for i = 1, 25 do
cmd("/ini "..iniFile.." LanguageSkill "..i.." "..tostring(me.LanguageSkill(i)()))
end
-- spell book content
if DUMP_SPELLBOOK then
for i = 1, SPELLBOOK_SIZE do
if me.Book(i).ID() then
cmd("/ini "..iniFile.." Spells "..i.." "..tostring(me.Book(i).ID()))
end
end
end
doevents()
-- slot names: https://www.macroquest2.com/wiki/index.php/Slot_Names
-- equipment: 0-22 is worn gear, 23-32 is inventory top level (usually 10 backpacks)
-- Inventory ini section format: key is slot id, val is: item.ID|item.Stack|item.Name
for i = 0, 32 do
local key = "inv"..tostring(i)
if me.Inventory(i).ID() then
cmd("/ini "..iniFile.." Inventory "..key..' "'..tostring(me.Inventory(i).ID()).."|"..me.Inventory(i).Stack()..'"')
for a = 1, MAX_AUG_SLOTS do
local sub = key.."_aug"..tostring(a)
if me.Inventory(i).AugSlot(a)() ~= nil then
cmd("/ini "..iniFile.." Inventory "..sub..' "'..me.Inventory(i).AugSlot(a).Item.ID().."|"..me.Inventory(i).AugSlot(a).Item.Stack()..'"')
else
cmd("/ini "..iniFile.." Inventory "..sub.." NULL")
end
end
else
cmd("/ini "..iniFile.." Inventory "..key.." NULL")
for a = 1, MAX_AUG_SLOTS do
local sub = key.."_aug"..tostring(a)
cmd("/ini "..iniFile.." Inventory "..sub.."NULL")
end
end
end
doevents()
-- backpack content
for i = 1, MAX_INV_SLOTS do
local key = "pack"..tostring(i)
if mq.TLO.InvSlot(key).Item.Container() > 0 then
for slot = 1, mq.TLO.InvSlot(key).Item.Container() do
local sub = key.."_slot"..tostring(slot)
if mq.TLO.InvSlot(key).Item.Item(slot)() ~= nil then
cmd("/ini "..iniFile.." Inventory "..sub..' "'..mq.TLO.InvSlot(key).Item.Item(slot).ID().."|"..mq.TLO.InvSlot(key).Item.Item(slot).Stack()..'"')
for a = 1, MAX_AUG_SLOTS do
local aug = sub.."_aug"..tostring(a)
if mq.TLO.InvSlot(key).Item.Item(slot).AugSlot(a)() ~= nil then
cmd("/ini "..iniFile.." Inventory "..aug..' "'..mq.TLO.InvSlot(key).Item.Item(slot).AugSlot(a).Item.ID().."|"..mq.TLO.InvSlot(key).Item.Item(slot).AugSlot(a).Item.Stack()..'"')
else
cmd("/ini "..iniFile.." Inventory "..aug.." NULL")
end
end
else
cmd("/ini "..iniFile.." Inventory "..sub.." NULL")
for a = 1, MAX_AUG_SLOTS do
local aug = sub.."_aug"..tostring(a)
cmd("/ini "..iniFile.." Inventory "..aug.." NULL")
end
end
end
end
end
doevents()
-- bank top level slots: 1-24 is bank bags, 25-26 is shared bank
for i = 1, 26 do
if me.Bank(i)() ~= nil then
local key = "bank"..tostring(i)
if me.Bank(i).Container() > 0 then
for e = 1, me.Bank(i).Container() do
local sub = key.."_slot"..tostring(e)
if me.Bank(i).Item(e)() ~= nil then
cmd("/ini "..iniFile.." Inventory "..sub..' "'..me.Bank(i).Item(e).ID().."|"..me.Bank(i).Item(e).Stack()..'"')
else
cmd("/ini "..iniFile.." Inventory "..sub.." NULL")
end
for a = 1, MAX_AUG_SLOTS do
local aug = sub.."_aug"..tostring(a)
if me.Bank(i).Item(e).AugSlot(a)() ~= nil then
cmd("/ini "..iniFile.." Inventory "..aug..' "'..me.Bank(i).Item(e).AugSlot(a).Item.ID().."|"..me.Bank(i).Item(e).AugSlot(a).Item.Stack()..'"')
else
cmd("/ini "..iniFile.." Inventory "..aug.." NULL")
end
end
end
else
cmd("/ini "..iniFile.." Inventory "..key..' "'..me.Bank(i).ID().."|"..me.Bank(i).Stack()..'"')
end
end
end
doevents()
-- all purchased AA:s with rank
if DUMP_KNOWN_AA then
for i = 1, 16000 do
if me.AltAbility(i)() ~= nil then
--print(me.AltAbility(i).ID(), ": ", me.AltAbility(i).Name())
-- maps ID => rank|maxrank|purchased points
cmd("/ini "..iniFile.." AARank "..me.AltAbility(i).ID()..' "'..me.AltAbility(i).Rank().."|"..me.AltAbility(i).MaxRank().."|"..me.AltAbility(i).PointsSpent()..'"')
-- if aa missing in aamap.ini, write it
if mq.TLO.Ini(aaMapFile, "AAMap", me.AltAbility(i).ID(), "-")() == "-" then
cmd("/dgtell all FOUND NEW AA "..me.AltAbility(i).ID().." "..me.AltAbility(i).Name())
cmd("/ini "..aaMapFile.." AAMap "..me.AltAbility(i).ID()..' "'..me.AltAbility(i).Name()..'"')
end
end
end
end
local seondsElapsed = os.time() - timeStart
cmd("/dgtell all DUMPTOON DONE AFTER "..seondsElapsed.."s")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment