Bubberstation/code/datums/materials/meat.dm

///It's gross, gets the name of its owner, and is all kinds of fucked up
/datum/material/meat
	name = "meat"
	desc = "Meat"
	id = /datum/material/meat // So the bespoke versions are categorized under this
	color = rgb(214, 67, 67)
	categories = list(
		MAT_CATEGORY_RIGID = TRUE,
		MAT_CATEGORY_BASE_RECIPES = TRUE,
		MAT_CATEGORY_ITEM_MATERIAL = TRUE,
		MAT_CATEGORY_ITEM_MATERIAL_COMPLEMENTARY = TRUE,
		)
	sheet_type = /obj/item/stack/sheet/meat
	value_per_unit = 0.05
	beauty_modifier = -0.3
	strength_modifier = 0.7
	armor_modifiers = list(MELEE = 0.3, BULLET = 0.3, LASER = 1.2, ENERGY = 1.2, BOMB = 0.3, FIRE = 1, ACID = 1)
	item_sound_override = 'sound/effects/meatslap.ogg'
	turf_sound_override = FOOTSTEP_MEAT
	texture_layer_icon_state = "meat"
	fishing_difficulty_modifier = 13
	fishing_cast_range = -2
	fishing_experience_multiplier = 0.8
	fishing_bait_speed_mult = 0.9
	fishing_deceleration_mult = 0.9
	fishing_bounciness_mult = 0.9
	fishing_gravity_mult = 0.85
	var/list/blood_dna

/datum/material/meat/on_main_applied(atom/source, mat_amount, multiplier)
	. = ..()
	make_edible(source, mat_amount, multiplier)
	ADD_TRAIT(source, TRAIT_ROD_REMOVE_FISHING_DUD, REF(src)) //The rod itself is the bait... sorta.
	if(isbodypart(source))
		var/obj/item/bodypart/bodypart = source
		if(!(bodypart::bodytype & BODYTYPE_ORGANIC))
			bodypart.bodytype |= BODYTYPE_ORGANIC
	if(isorgan(source))
		var/obj/item/organ/organ = source
		if(!(organ::organ_flags & ORGAN_ORGANIC))
			organ.organ_flags |= ORGAN_ORGANIC

/datum/material/meat/on_applied(atom/source, mat_amount, multiplier)
	. = ..()
	if(IS_EDIBLE(source))
		make_edible(source, mat_amount, multiplier)

/datum/material/meat/on_edible_applied(atom/source, datum/component/edible/edible)
	source.reagents.convert_reagent(/datum/reagent/consumable/nutriment, /datum/reagent/consumable/nutriment/protein, keep_data = TRUE)
	var/datum/reagent/meaty_chem = source.reagents.has_reagent(/datum/reagent/consumable/nutriment/protein)
	if(meaty_chem)
		LAZYSET(meaty_chem.data, "meat", length(meaty_chem.data) || 1) //adds meatiness to its tastes
	source.reagents.convert_reagent(/datum/reagent/consumable/nutriment/fat/oil, /datum/reagent/consumable/nutriment/fat, include_source_subtypes = TRUE, keep_data = TRUE)
	meaty_chem = source.reagents.has_reagent(/datum/reagent/consumable/nutriment/fat)
	if(meaty_chem)
		LAZYSET(meaty_chem.data, "meat", length(meaty_chem.data) || 1) //adds meatiness to its tastes
	source.AddComponentFrom(SOURCE_EDIBLE_MEAT_MAT, /datum/component/edible, foodtypes = MEAT)

/datum/material/meat/on_edible_removed(atom/source, datum/component/edible/edible)
	source.reagents.convert_reagent(/datum/reagent/consumable/nutriment/protein, /datum/reagent/consumable/nutriment, keep_data = TRUE)
	var/datum/reagent/unmeaty_chem = source.reagents.has_reagent(/datum/reagent/consumable/nutriment)
	if(unmeaty_chem)
		LAZYREMOVE(unmeaty_chem.data, "meat")
	source.reagents.convert_reagent(/datum/reagent/consumable/nutriment/fat, /datum/reagent/consumable/nutriment/fat/oil, keep_data = TRUE)
	unmeaty_chem = source.reagents.has_reagent(/datum/reagent/consumable/nutriment/fat/oil)
	if(unmeaty_chem)
		LAZYREMOVE(unmeaty_chem.data, "meat")
	//the edible source is removed by on_removed()

/datum/material/meat/proc/make_edible(atom/source, mat_amount, multiplier)
	if(source.material_flags & MATERIAL_NO_EDIBILITY)
		return
	var/protein_count = 3 * (mat_amount / SHEET_MATERIAL_AMOUNT) * multiplier
	var/fat_count = 2 * (mat_amount / SHEET_MATERIAL_AMOUNT) * multiplier
	source.AddComponentFrom( \
		SOURCE_EDIBLE_MEAT_MAT, \
		/datum/component/edible, \
		initial_reagents = list(/datum/reagent/consumable/nutriment/protein = protein_count, /datum/reagent/consumable/nutriment/fat = fat_count), \
		foodtypes = RAW | MEAT, \
		eat_time = 3 SECONDS, \
		tastes = list("meat" = 1))

	source.AddComponent(
		/datum/component/bloody_spreader,\
		blood_left = (protein_count + fat_count) * 0.3 * multiplier,\
		blood_dna = blood_dna,\
	)

	// Turfs can't handle the meaty goodness of blood walk.
	if(!ismovable(source))
		return

	source.AddComponent(
		/datum/component/blood_walk,\
		blood_type = /obj/effect/decal/cleanable/blood,\
		blood_spawn_chance = 35,\
		max_blood = (protein_count + fat_count) * 0.3 * multiplier,\
		blood_dna_info = blood_dna,\
	)

/datum/material/meat/on_removed(atom/source, mat_amount, multiplier)
	. = ..()
	source.RemoveComponentSource(SOURCE_EDIBLE_MEAT_MAT, /datum/component/edible)
	qdel(source.GetComponent(/datum/component/blood_walk))
	qdel(source.GetComponent(/datum/component/bloody_spreader))
	source.RemoveComponentSource(SOURCE_EDIBLE_MEAT_MAT, /datum/component/edible)

/datum/material/meat/on_main_removed(atom/source, mat_amount, multiplier)
	. = ..()
	REMOVE_TRAIT(source, TRAIT_ROD_REMOVE_FISHING_DUD, REF(src))
	if(isbodypart(source))
		var/obj/item/bodypart/bodypart = source
		if(!(bodypart::bodytype & BODYTYPE_ORGANIC))
			bodypart.bodytype &= ~BODYTYPE_ORGANIC
	if(isorgan(source))
		var/obj/item/organ/organ = source
		if(!(organ::organ_flags & ORGAN_ORGANIC))
			organ.organ_flags &= ~ORGAN_ORGANIC

/datum/material/meat/mob_meat
	init_flags = MATERIAL_INIT_BESPOKE
	var/subjectname = ""
	var/subjectjob = null

/datum/material/meat/mob_meat/Initialize(_id, mob/living/source)
	if(!istype(source))
		return FALSE

	name = "[source?.name ? "[source.name]'s" : "mystery"] [initial(name)]"

	if(source.real_name)
		subjectname = source.real_name
	else if(source.name)
		subjectname = source.name

	var/datum/blood_type/blood_type = source.get_bloodtype()
	if (blood_type && blood_type.get_color() != BLOOD_COLOR_RED)
		var/list/transition_filter = color_transition_filter(blood_type.get_color())
		color = transition_filter["color"]
		blood_dna = source.get_blood_dna_list()

	if(ishuman(source))
		var/mob/living/carbon/human/human_source = source
		subjectjob = human_source.job

	return ..()

/datum/material/meat/species_meat
	init_flags = MATERIAL_INIT_BESPOKE

/datum/material/meat/species_meat/Initialize(_id, datum/species/source)
	if(!istype(source))
		return FALSE

	name = "[source?.name || "mystery"] [initial(name)]"

	if(source.exotic_bloodtype)
		var/datum/blood_type/blood_type = get_blood_type(source.exotic_bloodtype)
		if (blood_type && blood_type.get_color() != BLOOD_COLOR_RED)
			var/list/transition_filter = color_transition_filter(blood_type.get_color())
			color = transition_filter["color"]
			blood_dna = list("[blood_type.dna_string]" = blood_type)

	return ..()

/datum/material/meat/blood_meat
	init_flags = MATERIAL_INIT_BESPOKE

/datum/material/meat/blood_meat/Initialize(_id, datum/reagent/source)
	if(!istype(source))
		return FALSE

	var/list/blood_data = source.data
	name = "[blood_data["real_name"] || "mystery"] [initial(name)]"
	var/datum/blood_type/blood_type = blood_data["blood_type"]
	if(blood_type && blood_type.get_color() != BLOOD_COLOR_RED)
		var/list/transition_filter = color_transition_filter(blood_type.get_color())
		color = transition_filter["color"]
		blood_dna = list("[blood_type.dna_string]" = blood_type)
	else
		color = source.color

	return ..()