Track LocalMods as part of monolith

2026-06-08 18:50:16 +03:00
parent 143f2fed7c
commit 1b214b44c2
1287 changed files with 139255 additions and 1 deletions
@@ -0,0 +1,108 @@
+-- THIS FILE IS NO LONGER IN USE
+-- the defunct item in question has been removed from the mod
+-- i'm keeping it here for...safekeeping i guess
+
+LuaUserData.RegisterTypeBarotrauma("PurchasedItem")
+LuaUserData.RegisterType("System.Xml.Linq.XElement")
+
+local VANILLA_PREFAB_ID = "antibloodloss2"
+local DEFUNCT_PREFAB_ID = "bloodpackominus"
+
+-- Removes vanilla bloodpacks from cached stores in case the user installed
+-- this mod mid-campaign.
+-- NOTE: stores that had their stocks generated before installing this mod
+-- won't have any new medical items added.
+Hook.HookMethod("Barotrauma.Location", "LoadStores", function(instance, ptable)
+	if instance.Stores == nil then return end
+
+	for storeId, store in pairs(instance.Stores) do
+		for _, purchasedItem in pairs(store.Stock) do
+			local itemId = purchasedItem.ItemPrefabIdentifier
+			if itemId == DEFUNCT_PREFAB_ID then
+				-- print("Removing defunct bloodpack (qty " .. purchasedItem.Quantity .. ") from " .. tostring(storeId))
+				store.RemoveStock({ purchasedItem })
+			end
+		end
+	end
+end, Hook.HookMethodType.After)
+
+-- Replaces all vanilla bloodpack items with O- blood
+local function replaceItems()
+	local ntBloodPrefab = ItemPrefab.Prefabs[DEFUNCT_PREFAB_ID]
+	local vanillaBloodPrefab = ItemPrefab.Prefabs[VANILLA_PREFAB_ID]
+	if ntBloodPrefab == nil then
+		print("ERROR: couldn't find " .. DEFUNCT_PREFAB_ID)
+		return
+	end
+
+	for _, item in pairs(Item.ItemList) do
+		local id = tostring(item.Prefab.Identifier)
+		if id == DEFUNCT_PREFAB_ID then
+			-- Don't replace decorative blood packs
+			if item.NonInteractable then return end
+
+			local pos = item.WorldPosition
+			local inv = item.ParentInventory
+			local condition = item.ConditionPercentage
+			local quality = item.Quality
+			-- print("replacing blood pack (pos=" .. tostring(pos) .. ", inv=" .. tostring(inv) .. ")")
+
+			local slotIdx = -1
+			if inv ~= nil then
+				slotIdx = inv.FindIndex(item)
+				if slotIdx < 0 then
+					print(
+						"ERROR: couldn't find item ("
+							.. tostring(item)
+							.. ", pos "
+							.. tostring(pos)
+							.. ") in inventory ("
+							.. tostring(inv)
+							.. ")"
+					)
+					return
+				end
+			end
+
+			-- We call `Drop()` first in case the inventory is full because
+			-- `AddEntityToRemoveQueue` may not remove the item before we
+			-- insert the new one, causing the inventory to overflow.
+			item.Drop()
+			Entity.Spawner.AddEntityToRemoveQueue(item)
+
+			Entity.Spawner.AddItemToSpawnQueue(vanillaBloodPrefab, pos, condition, quality, function(newItem)
+				newItem.Rotation = item.Rotation
+				-- Stolen items stay stolen
+				newItem.AllowStealing = item.AllowStealing
+				newItem.OriginalOutpost = item.OriginalOutpost
+
+				if inv ~= nil then
+					if not inv.TryPutItem(newItem, slotIdx, false, true, nil) then
+						print(
+							"ERROR: failed to replace neurotrauma bloodpack ("
+								.. tostring(item)
+								.. ", pos "
+								.. tostring(pos)
+								.. ", slotIdx "
+								.. tostring(slotIdx)
+								.. ", inv "
+								.. tostring(inv)
+								.. ") with new item: "
+								.. tostring(newItem)
+						)
+					end
+				end
+			end)
+		end
+	end
+end
+
+Hook.Add("roundStart", "NT.ConvertBloodPacks", function()
+	replaceItems()
+end)
+
+-- Hook.Add("chatMessage", "NT.BloodPackTesting", function(msg, client)
+--     if (msg == "convertblood") then
+--         replaceItems()
+--     end
+-- end)