if SERVER then return end -- Docs: https://evilfactory.github.io/LuaCsForBarotrauma/lua-docs/manual/common-questions/ ---@class MyModGlobal ---@field CONFIG {QUICKSTACK_KEYS: Keys, FABRICATOR_KEY: Keys, MAX_BUY: Keys, NESTED_CONTAINERS: boolean, DEBUG_MODE: boolean} ---@field MOD_NAME string ---@field MOD_VERSION string ---@field DumpTable fun(table: table, depth?: number) ---@field debugPrint fun(message: string) MyModGlobal = { CONFIG = { QUICKSTACK_KEYS = Keys.F, FABRICATOR_KEY = Keys.V, MAX_BUY = Keys.B, NESTED_CONTAINERS = true, DEBUG_MODE = true, }, MOD_NAME = "Quick Stack To Containers", MOD_VERSION = "1.1.0", BAG_SLOT = 8, } ---@param table table ---@param depth number? MyModGlobal.DumpTable = function(table, depth) if depth == nil then depth = 0 end if (depth > 200) then print("Error: Depth > 200 in dumpTable()") return end for k, v in pairs(table) do if (type(v) == "table") then print(string.rep(" ", depth) .. k .. ":") MyModGlobal.DumpTable(v, depth + 1) else print(string.rep(" ", depth) .. k .. ": ", v) end end end -- Debugging helper function MyModGlobal.debugPrint = function(message) if MyModGlobal.CONFIG.DEBUG_MODE then print("[" .. MyModGlobal.MOD_NAME .. "] " .. message) end end require("Cyka.quickstack") print(MyModGlobal.MOD_NAME .. " v" .. MyModGlobal.MOD_VERSION .. " loaded!") -- Register necessary types and make fields accessible LuaUserData.RegisterType("Barotrauma.Items.Components.ItemContainer+SlotRestrictions") LuaUserData.RegisterType( 'System.Collections.Immutable.ImmutableArray`1[[Barotrauma.Items.Components.ItemContainer+SlotRestrictions, Barotrauma]]') LuaUserData.MakeFieldAccessible(Descriptors['Barotrauma.Items.Components.ItemContainer'], 'slotRestrictions') LuaUserData.MakeFieldAccessible(Descriptors['Barotrauma.ItemInventory'], 'slots') LuaUserData.MakeFieldAccessible(Descriptors["Barotrauma.CharacterInventory"], "slots") LuaUserData.RegisterType("Barotrauma.Store") LuaUserData.RegisterType("Barotrauma.GUIComponent") LuaUserData.RegisterType("Barotrauma.PurchasedItem") LuaUserData.RegisterType("Barotrauma.ItemPrefab") LuaUserData.RegisterType("Barotrauma.Location+StoreInfo") LuaUserData.MakeMethodAccessible(Descriptors["Barotrauma.CargoManager"], "GetConfirmedSoldEntities") -- -- Register necessary type to access VisualSlot -- LuaUserData.RegisterType("Barotrauma.VisualSlot") -- -- ---@return Barotrauma.VisualSlot|nil, Barotrauma.ItemInventory|nil, Barotrauma.Item|nil -- local function getInventorySlotUnderCursor() -- -- Make sure we have a controlled character -- local controlledCharacter = Character.Controlled -- if not controlledCharacter then return nil, nil, nil end -- -- -- Check player inventory first -- local charInventory = controlledCharacter.Inventory -- if charInventory and charInventory.visualSlots then -- for i, visualSlot in ipairs(charInventory.visualSlots) do -- -- Check if mouse is over this slot -- if visualSlot:MouseOn() then -- local slot = charInventory.slots[i] -- local item = nil -- if #slot.items > 0 then -- item = slot.items[1] -- end -- return visualSlot, charInventory, item -- end -- end -- end -- -- -- Check if selected item has inventory (containers, etc.) -- local selectedItem = controlledCharacter.SelectedItem -- if selectedItem and selectedItem.OwnInventory and selectedItem.OwnInventory.visualSlots then -- local itemInv = selectedItem.OwnInventory -- for i, visualSlot in ipairs(itemInv.visualSlots) do -- if visualSlot:MouseOn() then -- local slot = itemInv.slots[i] -- local item = nil -- if #slot.items > 0 then -- item = slot.items[1] -- end -- return visualSlot, itemInv, item -- end -- end -- end -- -- -- Check open containers or other items with visible inventories -- for item in Item.ItemList do -- if item and item.OwnInventory and item.OwnInventory.visualSlots then -- local itemInv = item.OwnInventory -- for i, visualSlot in ipairs(itemInv.visualSlots) do -- if visualSlot:MouseOn() then -- local slot = itemInv.slots[i] -- local slotItem = nil -- if #slot.items > 0 then -- slotItem = slot.items[1] -- end -- return visualSlot, itemInv, slotItem -- end -- end -- end -- end -- -- return nil, nil, nil -- end -- -- Register necessary types for detecting repairable objects -- LuaUserData.RegisterType("Barotrauma.Items.Components.Repairable") -- LuaUserData.MakeFieldAccessible(Descriptors["Barotrauma.Items.Components.Repairable"], "RepairButton") -- -- ---@return Barotrauma.Item|nil, Barotrauma.Items.Components.Repairable|nil -- local function getRepairableObjectInFocus() -- -- Make sure we have a controlled character -- local controlledCharacter = Character.Controlled -- if not controlledCharacter then return nil, nil end -- -- -- Check if we have a selected item - this is necessary for repair interfaces to show -- local selectedItem = controlledCharacter.SelectedItem -- if not selectedItem then return nil, nil end -- -- -- Check if the selected item is in fact the repairable object itself -- for _, component in pairs(selectedItem.Components) do -- if component.name == "Repairable" then -- -- Check if repair interface should be shown -- if component:ShouldDrawHUD(controlledCharacter) then -- return selectedItem, component -- end -- end -- end -- -- -- Nothing found -- return nil, nil -- end -- -- ---@return boolean -- local function isRepairButtonVisible() -- local _, repairableComponent = getRepairableObjectInFocus() -- if not repairableComponent then return false end -- -- -- Check if the repair button exists and is visible -- local repairButton = repairableComponent.RepairButton -- return repairButton ~= nil and repairButton.Visible -- end ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---@return Barotrauma.Location.StoreInfo[], string? local function getCurrentStore() if not Game or not Game.GameSession or not Game.GameSession.Campaign then return nil, "No game session found" end local map = Game.GameSession.Campaign.Map if not map or not map.CurrentLocation or not map.CurrentLocation.Stores then return nil, "No map found" end local location = map.CurrentLocation -- Otherwise, determine which store is active by checking the cargo manager local cargoManager = Game.GameSession.Campaign.CargoManager if not cargoManager then return nil, "No cargo manager found" end -- Find which store has items in the cart local stores = {} for _, store in pairs(location.Stores) do if #cargoManager:GetBuyCrateItems(store) > 0 then stores[#stores + 1] = store end end return stores, nil end -- Example: Add a key binding to buy all items in the current store -- when the 'B' key is pressed Hook.Patch("Barotrauma.Character", "ControlLocalPlayer", function(instance, ptable) if not PlayerInput.KeyHit(CONFIG.MAX_BUY) then return end local cargoManager = Game.GameSession.Campaign.CargoManager if not cargoManager then print("No cargo manager available") return end local stores, err = getCurrentStore() if err then print(string.format("Error getting current store: %s", err)) return end for _, store in ipairs(stores) do local toAdd = {} -- Get items available at the store local items = cargoManager:GetBuyCrateItems(store) for item in items do -- We have already added this many of item toAdd[item.ItemPrefab.Identifier.Value] = { quantity = -item.Quantity, prefab = item.ItemPrefab -- Store the ItemPrefab object } end for item in store.Stock do -- So if we add the total amount available -- We get the amount we have to add to buy entire stock local idValue = item.ItemPrefab.Identifier.Value if toAdd[idValue] then toAdd[idValue].quantity = toAdd[idValue].quantity + item.Quantity end end for idValue, info in pairs(toAdd) do if info.quantity > 0 then print(string.format("Adding %d of %s to the buy crate", info.quantity, idValue)) -- Use the stored ItemPrefab object, not the string identifier cargoManager:ModifyItemQuantityInBuyCrate(store.Identifier, info.prefab, info.quantity) end end end end, Hook.HookMethodType.After) ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------- local amountExperience = 600 local passiveExperienceDelay = 2 local passiveExperienceTimer = 0 Hook.Add("think", "examples.passiveExperience", function() if Timer.GetTime() < passiveExperienceTimer then return end for k, v in pairs(Character.CharacterList) do if not v.IsDead and v.Info ~= nil then v.Info.GiveExperience(amountExperience) end end passiveExperienceTimer = Timer.GetTime() + passiveExperienceDelay end)