Bee and insect swarm rework (beewrite).

Author: MistakeNot4892

code/__defines/hydroponics.dm

@@ -4,6 +4,7 @@
 // Defining these to point to the relevant decl types just to avoid a massive changeset.
 // TODO: rename to PLANT_TRAIT or bare decls to avoid mixing up with GetTrait etc.
 #define TRAIT_CHEMS                /decl/plant_trait/chems
+#define TRAIT_POLLEN               /decl/plant_trait/pollen
 #define TRAIT_EXUDE_GASSES         /decl/plant_trait/exude_gasses
 #define TRAIT_ALTER_TEMP           /decl/plant_trait/alter_temp
 #define TRAIT_POTENCY              /decl/plant_trait/potency

code/game/machinery/centrifuge.dm

@@ -0,0 +1,168 @@
+/datum/storage/hopper/industrial/centrifuge
+	can_hold = list(/obj/item/food) // also handles hive frames; see insects modpack.
+	expected_type = /obj/machinery/centrifuge
+
+/datum/storage/hopper/industrial/centrifuge/can_be_inserted(obj/item/W, mob/user, stop_messages = 0, click_params = null)
+	. = ..()
+	if(. && !W.reagents?.total_volume)
+		if(user)
+			to_chat(user, SPAN_WARNING("\The [W] is empty."))
+		return FALSE
+
+/obj/machinery/centrifuge
+	name = "industrial centrifuge"
+	desc = "A machine used to extract reagents and materials from objects via spinning them at extreme speed."
+	icon = 'icons/obj/machines/centrifuge.dmi'
+	icon_state = ICON_STATE_WORLD
+	anchored = TRUE
+	density = TRUE
+	construct_state = /decl/machine_construction/default/panel_closed
+	uncreated_component_parts = null
+	storage = /datum/storage/hopper/industrial/centrifuge
+	base_type = /obj/machinery/centrifuge
+	stat_immune = 0
+
+	// Reference to our reagent container. Set to a path to create on init.
+	var/obj/item/loaded_beaker
+
+	// Stolen from fabricators.
+	var/sound_id
+	var/datum/sound_token/sound_token
+	var/work_sound = 'sound/machines/fabricator_loop.ogg'
+
+/obj/machinery/centrifuge/mapped
+	loaded_beaker = /obj/item/chems/glass/beaker/large
+
+/obj/machinery/centrifuge/Initialize()
+	. = ..()
+	if(ispath(loaded_beaker))
+		loaded_beaker = new loaded_beaker
+
+/obj/machinery/centrifuge/Destroy()
+	QDEL_NULL(loaded_beaker)
+	return ..()
+
+/obj/machinery/centrifuge/dismantle()
+	if(loaded_beaker)
+		loaded_beaker.dropInto(loc)
+		loaded_beaker = null
+	return ..()
+
+/obj/machinery/centrifuge/components_are_accessible(path)
+	return use_power != POWER_USE_ACTIVE && ..()
+
+/obj/machinery/centrifuge/cannot_transition_to(state_path, mob/user)
+	if(use_power == POWER_USE_ACTIVE)
+		return SPAN_NOTICE("You must wait for \the [src] to finish first!")
+	return ..()
+
+/obj/machinery/centrifuge/attackby(obj/item/used_item, mob/user)
+
+	if(use_power == POWER_USE_ACTIVE)
+		to_chat(user, SPAN_NOTICE("\The [src] is currently spinning, wait until it's finished."))
+		return TRUE
+
+	if((. = component_attackby(used_item, user)))
+		return
+
+	// Load in a new container for products.
+	if(istype(used_item, /obj/item/chems/glass/beaker))
+		if(loaded_beaker)
+			to_chat(user, SPAN_WARNING("\The [src] already has a beaker loaded."))
+			return TRUE
+		if(user.try_unequip(used_item, src))
+			loaded_beaker = used_item
+			to_chat(user, SPAN_NOTICE("You load \the [loaded_beaker] into \the [src]."))
+		return TRUE
+
+	// Parent call handles inserting the frame into our contents,
+	return ..()
+
+/obj/machinery/centrifuge/attack_hand(mob/user)
+
+	if(use_power == POWER_USE_ACTIVE)
+		user.visible_message("\The [user] disengages \the [src].")
+		update_use_power(POWER_USE_IDLE)
+		return TRUE
+
+	if(use_power == POWER_USE_IDLE)
+		if(!loaded_beaker || QDELETED(loaded_beaker))
+			to_chat(user, SPAN_WARNING("\The [src] has no beaker loaded to receive any products."))
+			loaded_beaker = null // just in case
+			return TRUE
+
+		if(length(get_stored_inventory()))
+			user.visible_message("\The [user] engages \the [src].")
+			update_use_power(POWER_USE_ACTIVE)
+		else
+			to_chat(user, SPAN_WARNING("\The [src]'s hopper is empty."))
+		return TRUE
+
+	if(use_power == POWER_USE_OFF || !operable())
+		to_chat(user, SPAN_WARNING("\The [src]'s interface is unresponsive."))
+		return TRUE
+
+	return ..()
+
+/obj/machinery/centrifuge/Process(wait, tick)
+	..()
+
+	if(use_power != POWER_USE_ACTIVE)
+		return
+
+	if(!loaded_beaker)
+		visible_message("\The [src] stops spinning and flashes a red light.")
+		update_use_power(POWER_USE_IDLE)
+		return
+
+	var/list/processing_items = get_stored_inventory()
+	if(!length(processing_items))
+		visible_message("\The [src] stops spinning and flashes a green light.")
+		update_use_power(POWER_USE_IDLE)
+		return
+
+	var/obj/item/thing = processing_items[1]
+	thing.handle_centrifuge_process(src)
+	if(!QDELETED(thing) && loc)
+		thing.dropInto(loc)
+
+/obj/machinery/centrifuge/Initialize()
+	sound_id = "[work_sound]"
+	return ..()
+
+/obj/machinery/centrifuge/Destroy()
+	QDEL_NULL(sound_token)
+	return ..()
+
+/obj/machinery/centrifuge/update_use_power()
+	. = ..()
+	if(use_power == POWER_USE_ACTIVE)
+		if(!sound_token)
+			sound_token = play_looping_sound(src, sound_id, work_sound, volume = 30)
+	else
+		QDEL_NULL(sound_token)
+
+/obj/machinery/centrifuge/on_update_icon()
+	icon_state = initial(icon_state)
+	if(stat & BROKEN)
+		icon_state = "[icon_state]-broken"
+	else if(use_power == POWER_USE_OFF || !operable())
+		icon_state = "[icon_state]-off"
+	else if(use_power == POWER_USE_ACTIVE)
+		icon_state = "[icon_state]-working"
+
+/obj/machinery/centrifuge/get_alt_interactions(var/mob/user)
+	. = ..()
+	if(loaded_beaker)
+		LAZYADD(., list(/decl/interaction_handler/remove_centrifuge_beaker))
+
+/decl/interaction_handler/remove_centrifuge_beaker
+	name = "Remove Beaker"
+	expected_target_type = /obj/machinery/centrifuge
+
+/decl/interaction_handler/remove_centrifuge_beaker/invoked(atom/target, mob/user, obj/item/prop)
+	var/obj/machinery/centrifuge/centrifuge = target
+	if(centrifuge.loaded_beaker)
+		centrifuge.loaded_beaker.dropInto(centrifuge.loc)
+		user.put_in_hands(centrifuge.loaded_beaker)
+		centrifuge.loaded_beaker = null

code/game/objects/items/__item.dm

@@ -1320,3 +1320,36 @@ modules/mob/living/human/life.dm if you die, you will be zoomed out.
 			coating_string = FONT_COLORED(coating.get_color(), coating_string)
 		return coating_string
 	return ..()
+
+
+// Bespoke proc for handling when a centrifuge smooshes us, only currently used by growns and hive frames.
+/obj/item/proc/handle_centrifuge_process(obj/machinery/centrifuge/centrifuge)
+	SHOULD_CALL_PARENT(TRUE)
+	return istype(centrifuge) && !QDELETED(centrifuge.loaded_beaker) && istype(centrifuge.loaded_beaker)
+
+/obj/item/proc/convert_matter_to_lumps(skip_qdel = FALSE)
+
+	var/list/scrap_matter = list()
+	for(var/mat in matter)
+		var/mat_amount = matter[mat]
+		var/obj/item/stack/material/mat_stack = /obj/item/stack/material/lump
+		var/mat_per_stack = SHEET_MATERIAL_AMOUNT * initial(mat_stack.matter_multiplier)
+		var/sheet_amount  = round(mat_amount / mat_per_stack)
+		if(sheet_amount)
+			var/obj/item/stack/material/lump/lump = new(loc, sheet_amount, mat)
+			LAZYADD(., lump)
+			mat_amount -= sheet_amount * mat_per_stack
+		if(mat_amount)
+			scrap_matter[mat] += mat_amount
+
+	if(length(scrap_matter))
+		var/obj/item/debris/scraps/scraps = new(loc)
+		scraps.matter = scrap_matter.Copy()
+		scraps.update_primary_material()
+		LAZYADD(., scraps)
+
+	matter = null
+	material = null
+	if(!skip_qdel)
+		qdel(src)
+

code/game/objects/items/circuitboards/machinery/biogenerator.dm

@@ -11,4 +11,4 @@
 							/obj/item/stock_parts/console_screen = 1,
 							/obj/item/stock_parts/keyboard = 1,
 							/obj/item/stock_parts/power/apc/buildable = 1
-	)
+	)

code/game/objects/items/circuitboards/machinery/household.dm

@@ -46,6 +46,25 @@
 /obj/item/stock_parts/circuitboard/cooker/get_buildable_types()
 	return subtypesof(/obj/machinery/cooker)
 
+/obj/item/stock_parts/circuitboard/centrifuge
+	name = "circuitboard (industrial centrifuge)"
+	build_path = /obj/machinery/centrifuge
+	board_type = "machine"
+	origin_tech = @'{"biotech":2,"engineering":1}'
+	req_components = list(
+		/obj/item/stock_parts/manipulator = 2,
+		/obj/item/stock_parts/matter_bin = 2)
+
+/obj/item/stock_parts/circuitboard/seed_extractor
+	name = "circuitboard (seed extractor)"
+	build_path = /obj/machinery/seed_extractor
+	board_type = "machine"
+	origin_tech = @'{"biotech":2,"engineering":1}'
+	req_components = list(
+		/obj/item/stock_parts/manipulator = 2,
+		/obj/item/stock_parts/matter_bin = 2
+	)
+
 /obj/item/stock_parts/circuitboard/seed_storage
 	name = "circuitboard (seed storage)"
 	build_path = /obj/machinery/seed_storage

code/modules/fabrication/designs/imprinter/designs_misc_circuits.dm

@@ -345,7 +345,7 @@
 	path = /obj/item/stock_parts/circuitboard/cooker
 
 /datum/fabricator_recipe/imprinter/circuit/seed_extractor
-	path = /obj/item/stock_parts/circuitboard/seed
+	path = /obj/item/stock_parts/circuitboard/seed_extractor
 
 /datum/fabricator_recipe/imprinter/circuit/vending
 	path = /obj/item/stock_parts/circuitboard/vending
@@ -487,3 +487,6 @@
 
 /datum/fabricator_recipe/imprinter/circuit/central_atmos
 	path = /obj/item/stock_parts/circuitboard/central_atmos
+
+/datum/fabricator_recipe/imprinter/circuit/centrifuge
+	path = /obj/item/stock_parts/circuitboard/centrifuge

code/modules/genetics/plants/gene_biochemistry.dm

@@ -17,6 +17,8 @@
 		if(seed.get_trait(trait) > 0)
 			seed.set_trait(trait, seed.get_trait(trait), null, 1, 0.85)
 
+	seed.produces_pollen = LAZYACCESS(gene.values, TRAIT_POLLEN)
+
 	LAZYINITLIST(seed.chems)
 	var/list/gene_value = LAZYACCESS(gene.values, TRAIT_CHEMS)
 	for(var/rid in gene_value)
@@ -42,10 +44,12 @@
 
 	LAZYREMOVE(gene.values, TRAIT_EXUDE_GASSES)
 	LAZYREMOVE(gene.values, TRAIT_CHEMS)
+	LAZYREMOVE(gene.values, TRAIT_POLLEN)
 
 	return ..()
 
 /decl/plant_gene/biochemistry/copy_initial_seed_values(datum/plantgene/gene, datum/seed/seed)
 	LAZYSET(gene.values, TRAIT_CHEMS, seed.chems?.Copy())
 	LAZYSET(gene.values, TRAIT_EXUDE_GASSES, seed.exude_gasses?.Copy())
+	LAZYSET(gene.values, TRAIT_POLLEN, seed.produces_pollen)
 	return ..()

code/modules/genetics/plants/trait_pollen.dm

@@ -0,0 +1,3 @@
+/decl/plant_trait/pollen
+	name = "pollen"
+	requires_master_gene = FALSE

code/modules/hydroponics/grown.dm

@@ -15,6 +15,18 @@
 	var/seeds_extracted = FALSE
 	var/datum/seed/seed
 
+// This is sort of pointless while food is a valid input on the ChemMaster but maybe
+// in the future there will be some more interesting ways to process growns/food.
+/obj/item/food/grown/handle_centrifuge_process(obj/machinery/centrifuge/centrifuge)
+	if(!(. = ..()))
+		return
+	if(reagents.total_volume)
+		reagents.trans_to_holder(centrifuge.loaded_beaker.reagents, reagents.total_volume)
+	for(var/obj/item/thing in contents)
+		thing.dropInto(centrifuge.loc)
+	for(var/atom/movable/thing in convert_matter_to_lumps())
+		thing.dropInto(centrifuge.loc)
+
 /obj/item/food/grown/examine(mob/user, distance)
 	. = ..()
 	if(user && distance <= 1 && seed && user.skill_check(work_skill, SKILL_BASIC))

code/modules/hydroponics/seed.dm

@@ -32,6 +32,7 @@
 	var/scannable_result
 	var/grown_is_seed = FALSE
 	var/product_w_class = ITEM_SIZE_SMALL
+	var/produces_pollen = 0
 
 	// Dissection values.
 	var/min_seed_extracted = 1