TGS Test Merge (#6914)

citadel.dme

@@ -1783,6 +1783,7 @@
 #include "code\game\objects\items\storage\wallets.dm"
 #include "code\game\objects\items\storage\medical\firstaid.dm"
 #include "code\game\objects\items\storage\medical\hypokit.dm"
+#include "code\game\objects\items\storage\misc\survival.dm"
 #include "code\game\objects\items\storage\misc_legacy\bible.dm"
 #include "code\game\objects\items\storage\misc_legacy\fancy.dm"
 #include "code\game\objects\items\storage\misc_legacy\laundry_basket.dm"
@@ -2026,6 +2027,10 @@
 #include "code\game\objects\structures\tables\update_triggers.dm"
 #include "code\game\objects\systems\_system.dm"
 #include "code\game\objects\systems\cell_slot.dm"
+#include "code\game\objects\systems\storage\storage-filters.dm"
+#include "code\game\objects\systems\storage\storage-indirection.dm"
+#include "code\game\objects\systems\storage\storage-indirection_holder.dm"
+#include "code\game\objects\systems\storage\storage-limits.dm"
 #include "code\game\objects\systems\storage\storage-screen_object.dm"
 #include "code\game\objects\systems\storage\storage-ui.dm"
 #include "code\game\objects\systems\storage\storage.dm"
@@ -2259,6 +2264,7 @@
 #include "code\modules\admin\verbs\SDQL2\SDQL_2_parser.dm"
 #include "code\modules\admin\verbs\SDQL2\SDQL_2_wrappers.dm"
 #include "code\modules\admin\verbs\SDQL2\wrappers\map.dm"
+#include "code\modules\admin\verbs\SDQL2\wrappers\math.dm"
 #include "code\modules\admin\verbs\server\admin_reboot.dm"
 #include "code\modules\admin\view_variables\admin_delete.dm"
 #include "code\modules\admin\view_variables\color_matrix_editor.dm"

code/__DEFINES/materials/helpers.dm

@@ -1,14 +1,45 @@
 //* This file is explicitly licensed under the MIT license. *//
 //* Copyright (c) 2023 Citadel Station developers.          *//
 
-//* object checks
+//* /datum/prototype/material declaration helpers *//
+
+#define DECLARE_MATERIAL(PATH_FRAGMENT) \
+/datum/prototype/material##PATH_FRAGMENT
+
+/**
+ * Generates material stacks for a material.
+ *
+ * The material must have:
+ *
+ * * a defined `display_name`
+ * * a defined `sheet_singular_name`
+ * * a defined `sheet_plural_name`
+ * * a defined `icon`
+ * * a defined `icon_stack_count`
+ */
+#define GENERATE_MATERIAL_STACKS(PATH_FRAGMENT) \
+/obj/item/stack/material##PATH_FRAGMENT { \
+	name = /datum/prototype/material##PATH_FRAGMENT::name + " " + /datum/prototype/material##PATH_FRAGMENT::sheet_singular_name; \
+	icon = /datum/prototype/material##PATH_FRAGMENT::icon; \
+	icon_state = "stack-1"; \
+	material = /datum/prototype/material##PATH_FRAGMENT; \
+	no_variants = TRUE; \
+	amount = 1; \
+} \
+/obj/item/stack/material##PATH_FRAGMENT/full_stack { \
+	name = /datum/prototype/material##PATH_FRAGMENT::name + " " + /datum/prototype/material##PATH_FRAGMENT::sheet_plural_name; \
+	icon_state = "stack"; \
+	amount = 50; \
+}
+
+//* Material Traits - Checks *//
 
 /// We are ticking materials.
 #define IS_TICKING_MATERIALS(A) (A.atom_flags & ATOM_MATERIALS_TICKING)
 #define START_TICKING_MATERIALS(A) SSmaterials.add_ticked_object(src)
 #define STOP_TICKING_MATERIALS(A) SSmaterials.remove_ticked_object(src)
 
-//* /atom level invocation of traits
+//* Material Traits - /atom invocation *//
 
 /// Invocation of material traits
 /// A - the atom

code/controllers/subsystem/atoms.dm

@@ -135,9 +135,34 @@ SUBSYSTEM_DEF(atoms)
  * * ... - rest of args are passed to new() / Initialize().
  */
 /datum/controller/subsystem/atoms/proc/instance_atom_immediate(path, mapload, atom/where, ...)
+	SHOULD_NOT_SLEEP(TRUE)
 	var/old_init_status = atom_init_status
 	atom_init_status = mapload? ATOM_INIT_IN_NEW_MAPLOAD : ATOM_INIT_IN_NEW_REGULAR
-	var/atom/created = new path(arglist(args.Copy()))
+	var/atom/created = new path(arglist(args.Copy(3)))
+	atom_init_status = old_init_status
+	return created
+
+/**
+ * immediately creates and inits an atom with a preloader callback.
+ *
+ * @params
+ * * path - typepath
+ * * mapload - treat as mapload?
+ * * preload_call - callback to invoke with (created) for the created atom. This is not allowed to sleep.
+ * * where - location to init at
+ * * ... - rest of args are passed to new() / Initialize().
+ */
+/datum/controller/subsystem/atoms/proc/instance_atom_immediate_with_preloader(path, mapload, datum/callback/preload_call, atom/where, ...)
+	SHOULD_NOT_SLEEP(TRUE)
+	var/old_init_status = atom_init_status
+	atom_init_status = ATOM_INIT_IN_SUBSYSTEM
+	var/atom/created = new path(arglist(args.Copy(4)))
+	preload_call.invoke_no_sleep(created)
+	atom_init_status = mapload? ATOM_INIT_IN_NEW_MAPLOAD : ATOM_INIT_IN_NEW_REGULAR
+	// this sets 'where' to if we should be mapload.
+	// this is acceptable because args[4] ('where') is not used again.
+	args[4] = mapload
+	InitAtom(created, FALSE, args)
 	atom_init_status = old_init_status
 	return created
 

code/datums/callback.dm

@@ -101,24 +101,39 @@
 		else
 			calling_arguments = args
 	if(datum_flags & DF_VAR_EDITED)
-		return WrapAdminProcCall(object, delegate, calling_arguments)
-	if(object == GLOBAL_PROC)
-		return call(delegate)(arglist(calling_arguments))
-	return call(object, delegate)(arglist(calling_arguments))
+		. = WrapAdminProcCall(object, delegate, calling_arguments)
+	else if(object == GLOBAL_PROC)
+		. = call(delegate)(arglist(calling_arguments))
+	else
+		. = call(object, delegate)(arglist(calling_arguments))
+	pass()
 
 /**
  * Invoke this callback and crash if it sleeps.
  *
  * * Use when a callback should never sleep, as call() cannot be verified by static analysis.
+ * * Do not use in performance critical code. This wraps calls more aggressively than InvokeAsync().
+ * * `null` is returned if the call sleeps.
+ *
+ * The specific use case here is an async call where:
+ *
+ * * It's always invalid behavior for a callback to sleep.
+ * * The caller should be protected (caller shouldn't be interrupted by the sleep).
+ *
+ * This allows enforcement of the above invariants by loudly runtiming and bringing attention to the issue,
+ * as opposed to the usual way of compile checking it (which we can't because this is a reflection-based call to an arbitrary proc).
  */
 /datum/callback/proc/invoke_no_sleep(...)
 	. = CALLBACK_SLEEP_SENTINEL
-	ASYNC
-		. = Invoke(arglist(args))
+	. = invoke_no_sleep_call(arglist(args))
 	if(. == CALLBACK_SLEEP_SENTINEL)
 		. = null
 		CRASH("Callback [src] slept on a no-sleeping invoke.")
 
+/datum/callback/proc/invoke_no_sleep_call(...)
+	set waitfor = FALSE
+	. = Invoke(arglist(args))
+
 /**
  * Invoke this callback async (waitfor=false)
  *

code/datums/outfits/outfit.dm

@@ -141,8 +141,59 @@
 		for(var/i=0,i<number,i++)
 			H.equip_to_slot_or_del(new path(H), /datum/inventory_slot/abstract/attach_as_accessory, INV_OP_FLUFFLESS | INV_OP_SILENT)
 
-	if(H.species)
-		H.species.equip_survival_gear(H, flags&OUTFIT_EXTENDED_SURVIVAL, flags&OUTFIT_COMPREHENSIVE_SURVIVAL)
+	// deal with racial & survival gear
+	var/list/to_inject_box = list()
+	var/list/to_inject_inv = list()
+	H.species.apply_survival_gear(H, to_inject_box, to_inject_inv)
+	H.species.apply_racial_gear(H, to_inject_box, to_inject_inv)
+
+	if(length(to_inject_box))
+		var/obj/item/survival_box = new /obj/item/storage/box/survival
+		for(var/descriptor in to_inject_box)
+			if(ispath(descriptor))
+				new descriptor(survival_box)
+			else if(IS_ANONYMOUS_TYPEPATH(descriptor))
+				new descriptor(survival_box)
+			else if(isitem(descriptor))
+				var/obj/item/moving = descriptor
+				moving.forceMove(survival_box)
+			else
+				stack_trace("invalid descriptor '[descriptor]' encountered")
+		survival_box.obj_storage.fit_to_contents(no_shrink = TRUE)
+
+		if(!H.inventory.equip_to_slot_if_possible(survival_box, /datum/inventory_slot/abstract/put_in_backpack))
+			if(!H.inventory.put_in_hands(survival_box))
+				survival_box.forceMove(H.drop_location())
+
+	if(length(to_inject_inv))
+		var/list/atom/movable/arbitrary_instantiated_gear = list()
+		for(var/descriptor in to_inject_inv)
+			if(ispath(descriptor))
+				arbitrary_instantiated_gear += new descriptor
+			else if(IS_ANONYMOUS_TYPEPATH(descriptor))
+				arbitrary_instantiated_gear += new descriptor
+			else if(ismovable(descriptor))
+				arbitrary_instantiated_gear += descriptor
+			else
+				stack_trace("invalid descriptor '[descriptor]' encountered")
+		for(var/atom/movable/gear as anything in arbitrary_instantiated_gear)
+			if(isitem(gear))
+				// try to put into inv, then hands, then nearby
+				var/obj/item/gear_item = gear
+				if(!H.equip_to_slots_if_possible(
+					gear_item,
+					list(
+						/datum/inventory_slot/abstract/put_in_backpack,
+						/datum/inventory_slot/abstract/put_in_belt,
+						/datum/inventory_slot/abstract/put_in_hands,
+						/datum/inventory_slot/inventory/pocket/left,
+						/datum/inventory_slot/inventory/pocket/right,
+					),
+				))
+					gear_item.forceMove(H.drop_location())
+			else
+				// put nearby
+				gear.forceMove(H.drop_location())
 
 /datum/outfit/proc/equip_id(mob/living/carbon/human/H, rank, assignment)
 	if(!id_slot || !id_type)

code/datums/recipe/stack_recipe.dm

@@ -52,13 +52,30 @@
 	var/on_border = FALSE
 	// todo: material constraints
 
+	//* Product Descriptors *//
+
+	/// Automatically create empty storage / cells / containers / whatever
+	/// * Usually this is on, because usually stacks are not meant to create the insides of a container.
+	var/product_auto_create_empty = TRUE
+
+	//* Internal *//
+
+	/// preloader callback, do not touch
+	var/datum/callback/preloader_callback
+
 /datum/stack_recipe/New()
 	if(ispath(result_type, /obj/item/stack))
 		result_is_stack = TRUE
 
 	var/atom/casted = result_type
 	on_border = !!(initial(casted.atom_flags) & ATOM_BORDER)
 
+	preloader_callback = CALLBACK(src, PROC_REF(make_preload_hook))
+
+/datum/stack_recipe/Destroy()
+	QDEL_NULL(preloader_callback)
+	return ..()
+
 /**
  * attepmt to craft
  *
@@ -139,16 +156,23 @@
 			if(!--safety)
 				CRASH("safety hit")
 			var/making_amount = min(amount, max_amount)
-			var/obj/item/stack/creating = new result_type(where, making_amount)
+			var/obj/item/stack/creating = SSatoms.instance_atom_immediate_with_preloader(result_type, FALSE, preloader_callback, where, making_amount)
 			amount -= making_amount
 			created += creating
 	else
 		for(var/i in 1 to min(amount, 50))
-			var/atom/movable/creating = new result_type(where)
+			var/atom/movable/creating = SSatoms.instance_atom_immediate_with_preloader(result_type, FALSE, preloader_callback, where)
 			creating.setDir(use_dir)
 			created += creating
 	return TRUE
 
+/**
+ * preloads an atom we make
+ */
+/datum/stack_recipe/proc/make_preload_hook(atom/product)
+	SHOULD_NOT_SLEEP(TRUE)
+	product.preload_from_stack_recipe(src)
+
 /**
  * tgui stack recipe data
  */

code/game/atoms/_atom.dm

@@ -232,20 +232,32 @@
 
 	return ..()
 
+//* Preload Hooks *//
+
 /**
  * Called by the maploader if a dmm_context is set
+ *
+ * todo: rename to preload_from_mapload()
  */
 /atom/proc/preloading_instance(datum/dmm_context/context)
 	return
 
 /**
  * hook for abstract direction sets from the maploader
  *
+ * todo: this might need to be part of preloading_instance; investigate
+ *
  * return FALSE to override maploader automatic rotation
  */
 /atom/proc/preloading_dir(datum/dmm_context/context)
 	return TRUE
 
+/**
+ * Preloads before Initialize(), invoked by init from a stack recipe.
+ */
+/atom/proc/preload_from_stack_recipe(datum/stack_recipe/recipe)
+	return
+
 /atom/proc/reveal_blood()
 	return
 

code/game/content/factions/corporations/nanotrasen/nanotrasen-supply/medical.dm

@@ -117,7 +117,7 @@
 		/obj/item/storage/belt/medical,
 		/obj/item/radio/headset/heads/cmo,
 		/obj/item/clothing/under/rank/chief_medical_officer,
-		/obj/item/storage/hypokit/advanced/cmo,
+		/obj/item/storage/hypokit/advanced/cmo/full/loaded,
 		/obj/item/clothing/accessory/stethoscope,
 		/obj/item/clothing/glasses/hud/health,
 		/obj/item/clothing/suit/storage/toggle/labcoat/cmo,
@@ -175,7 +175,7 @@
 		/obj/item/healthanalyzer,
 		/obj/item/storage/box/pillbottles,
 		/obj/item/storage/box/syringes,
-		/obj/item/storage/hypokit,
+		/obj/item/storage/hypokit/full/loaded,
 	)
 	worth = 450
 	container_type = /obj/structure/closet/crate/corporate/nanomed
@@ -201,7 +201,7 @@
 		/obj/item/cartridge/medical,
 		/obj/item/flashlight/pen,
 		/obj/item/clothing/accessory/storage/white_vest,
-		/obj/item/storage/hypokit,
+		/obj/item/storage/hypokit/full/loaded,
 	)
 	worth = 450
 	container_type = /obj/structure/closet/crate/secure/corporate/nanomed

code/game/machinery/vending/medical.dm

@@ -30,6 +30,7 @@
 		/obj/item/storage/single_use/med_pouch/oxyloss = 3,
 		/obj/item/storage/single_use/med_pouch/burn = 3,
 		/obj/item/storage/single_use/med_pouch/trauma = 3,
+		/obj/item/hypospray = 6,
 		/obj/item/storage/hypokit = 6,
 	)
 	contraband = list(

code/game/objects/items-inventory-old.dm

@@ -33,6 +33,7 @@
 	if((slot != SLOT_ID_HANDS) && equip_sound)
 		playsound(src, equip_sound, 30, ignore_walls = FALSE)
 
+	// call the new hook instead
 	on_equipped(user, slot == SLOT_ID_HANDS? user.get_held_index(src) : slot, flags)
 
 
@@ -64,6 +65,9 @@
 	if(!(flags & INV_OP_DIRECTLY_DROPPING) && (slot != SLOT_ID_HANDS) && unequip_sound)
 		playsound(src, unequip_sound, 30, ignore_walls = FALSE)
 
+	// on_unequipped cannot be called here, as we don't know the inventory index exactly
+	// todo: kill unequipped()
+
 /**
  * called when a mob drops an item
  *

code/game/objects/items/devices/flashlight.dm

@@ -410,6 +410,9 @@
 	START_PROCESSING(SSobj, src)
 	return TRUE
 
+/obj/item/flashlight/flare/survival
+	// todo: make this last like 15 minutes
+
 //Glowsticks
 
 /obj/item/flashlight/glowstick

code/game/objects/items/stacks/stack.dm

@@ -52,6 +52,9 @@
 	/// Determines whether the item should update it's sprites based on amount.
 	var/no_variants = TRUE
 
+	/// skip default / old update_icon() handling
+	var/skip_legacy_icon_update = FALSE
+
 	/// Will the item pass its own color var to the created item? Dyed cloth, wood, etc.
 	var/pass_color = FALSE
 	/// Will the stack merge with other stacks that are different colors? (Dyed cloth, wood, etc).
@@ -77,6 +80,8 @@
 	update_icon()
 
 /obj/item/stack/update_icon()
+	if(skip_legacy_icon_update)
+		return
 	if(no_variants)
 		icon_state = initial(icon_state)
 	else