GS13-Citadel/code/modules/vore/eating/bellymodes.dm

// Process the predator's effects upon the contents of its belly (i.e digestion/transformation etc)
/obj/belly/proc/process_belly(var/times_fired,var/wait) //Passed by controller
	if((times_fired < next_process) || !length(contents))
		recent_sound = FALSE
		return SSBELLIES_IGNORED

	if(!owner)
		qdel(src)
		SSbellies.belly_list -= src
		return SSBELLIES_PROCESSED

	if(loc != owner)
		if(isliving(owner)) //we don't have machine based bellies. (yet :honk:)
			forceMove(owner)
		else
			SSbellies.belly_list -= src
			qdel(src)
			return SSBELLIES_PROCESSED

	next_process = times_fired + (6 SECONDS/wait) //Set up our next process time.
	var/play_sound //Potential sound to play at the end to avoid code duplication.
	var/to_update = FALSE //Did anything update worthy happen?

/////////////////////////// Auto-Emotes ///////////////////////////
	if(contents.len && next_emote <= times_fired)
		next_emote = times_fired + round(emote_time/wait,1)
		var/list/EL = emote_lists[digest_mode]
		if(LAZYLEN(EL))
			for(var/mob/living/M in contents)
				if((M.vore_flags & DIGESTABLE) || !(digest_mode == DM_DIGEST)) // don't give digesty messages to indigestible people
					to_chat(M,"<span class='notice'>[pick(EL)]</span>")

///////////////////// Prey Loop Refresh/hack //////////////////////
	for(var/mob/living/M in contents)
		if(M && isbelly(M.loc))
			if(world.time > M.next_preyloop)
				if(is_wet && wet_loop)
					if(!M.client)
						continue
					M.stop_sound_channel(CHANNEL_PREYLOOP) // sanity just in case
					if(M.client.prefs.cit_toggles & DIGESTION_NOISES)
						var/sound/preyloop = sound('sound/vore/prey/loop.ogg')
						M.playsound_local(get_turf(src),preyloop, 80,0, channel = CHANNEL_PREYLOOP)
						M.next_preyloop = (world.time + 52 SECONDS)


/////////////////////////// Exit Early ////////////////////////////
	var/list/touchable_items = contents - items_preserved
	if(!length(touchable_items))
		return SSBELLIES_PROCESSED

//////////////////////// Absorbed Handling ////////////////////////
	for(var/mob/living/M in contents)
		if(M.vore_flags & ABSORBED)
			M.Stun(5)

////////////////////////// Sound vars /////////////////////////////
	var/sound/prey_digest = sound(get_sfx("digest_prey"))
	var/sound/prey_death = sound(get_sfx("death_prey"))
	var/sound/pred_digest = sound(get_sfx("digest_pred"))
	var/sound/pred_death = sound(get_sfx("death_pred"))

	switch(digest_mode)
		if(DM_HOLD)
			return SSBELLIES_PROCESSED

		if(DM_DIGEST)
			if(HAS_TRAIT(owner, TRAIT_PACIFISM)) //obvious.
				digest_mode = DM_NOISY
				return

			for (var/mob/living/M in contents)
				if(prob(25))
					if(M && M.client && M.client.prefs.cit_toggles & DIGESTION_NOISES)
						SEND_SOUND(M,prey_digest)
					play_sound = pick(pred_digest)

				//Pref protection!
				if (!(M.vore_flags & DIGESTABLE) || M.vore_flags & ABSORBED)
					continue

				//Person just died in guts!
				if(M.stat == DEAD)
					var/digest_alert_owner = pick(digest_messages_owner)
					var/digest_alert_prey = pick(digest_messages_prey)

					//Replace placeholder vars
					digest_alert_owner = replacetext(digest_alert_owner,"%pred",owner)
					digest_alert_owner = replacetext(digest_alert_owner,"%prey",M)
					digest_alert_owner = replacetext(digest_alert_owner,"%belly",lowertext(name))

					digest_alert_prey = replacetext(digest_alert_prey,"%pred",owner)
					digest_alert_prey = replacetext(digest_alert_prey,"%prey",M)
					digest_alert_prey = replacetext(digest_alert_prey,"%belly",lowertext(name))

					//GS13 edit
					var/mob/living/carbon/gainer = owner
					if(iscarbon(gainer) && owner?.client?.prefs?.weight_gain_food)
						var/mob/living/carbon/prey = M
						if(iscarbon(prey) && prey.fatness_real)
							var/fatness_to_add = (prey.fatness_real * 0.80)
							gainer.adjust_fatness(fatness_to_add, FATTENING_TYPE_FOOD)
							gainer.human_prey_digested += 1

						gainer.prey_digested += 1
					//GS13 edit end

					//Send messages
					to_chat(owner, "<span class='warning'>[digest_alert_owner]</span>")
					to_chat(M, "<span class='warning'>[digest_alert_prey]</span>")
					M.visible_message("<span class='notice'>You watch as [owner]'s form loses its additions.</span>")

					owner.adjust_nutrition(400) // so eating dead mobs gives you *something*.
					play_sound = pick(pred_death)
					if(M && M.client && M.client.prefs.cit_toggles & DIGESTION_NOISES)
						SEND_SOUND(M,prey_death)
					M.stop_sound_channel(CHANNEL_PREYLOOP)
					digestion_death(M)
					owner.update_icons()
					to_update = TRUE
					continue


				// Deal digestion damage (and feed the pred)
				if(!(M.status_flags & GODMODE))
					M.adjustFireLoss(digest_burn)
					owner.adjust_nutrition(1)

			//Contaminate or gurgle items
			var/obj/item/T = pick(touchable_items)
			if(istype(T))
				if(istype(T,/obj/item/reagent_containers/food) || istype(T,/obj/item/organ))
					digest_item(T)

		if(DM_HEAL)
			for (var/mob/living/M in contents)
				if(prob(25))
					if(M && M.client && M.client.prefs.cit_toggles & DIGESTION_NOISES)
						SEND_SOUND(M,prey_digest)
					play_sound = pick(pred_digest)
				if(M.stat != DEAD)
					if(owner.nutrition >= NUTRITION_LEVEL_STARVING && (M.health < M.maxHealth))
						M.adjustBruteLoss(-3)
						M.adjustFireLoss(-3)
						owner.adjust_nutrition(-5)

	//for when you just want people to squelch around
		if(DM_NOISY)
			if(prob(35))
				for(var/mob/M in contents)
					if(M && M.client && M.client.prefs.cit_toggles & DIGESTION_NOISES)
						SEND_SOUND(M,prey_digest)
					play_sound = pick(pred_digest)


		if(DM_ABSORB)

			for (var/mob/living/M in contents)

				if(prob(10))//Less often than gurgles. People might leave this on forever.
					if(M && M.client && M.client.prefs.cit_toggles & DIGESTION_NOISES)
						SEND_SOUND(M,prey_digest)
					play_sound = pick(pred_digest)

				if(M.vore_flags & ABSORBED || !(M.vore_flags & ABSORBABLE)) //Negative.
					continue

				if(M.nutrition >= 100) //Drain them until there's no nutrients left. Slowly "absorb" them.
					var/oldnutrition = (M.nutrition * 0.05)
					M.set_nutrition(M.nutrition * 0.95)
					owner.adjust_nutrition(oldnutrition)
				else if(M.nutrition < 100) //When they're finally drained.
					absorb_living(M)
					to_update = TRUE

		if(DM_UNABSORB)

			for (var/mob/living/M in contents)
				if(M.vore_flags & ABSORBED && owner.nutrition >= 100)
					M.vore_flags &= ~(ABSORBED)
					to_chat(M,"<span class='notice'>You suddenly feel solid again </span>")
					to_chat(owner,"<span class='notice'>You feel like a part of you is missing.</span>")
					owner.adjust_nutrition(-100)
					to_update = TRUE

	//because dragons need snowflake guts
		if(DM_DRAGON)
			if(HAS_TRAIT(owner, TRAIT_PACIFISM)) //imagine var editing this when you're a pacifist. smh
				digest_mode = DM_NOISY
				return

			for (var/mob/living/M in contents)
				if(prob(55)) //if you're hearing this, you're a vore ho anyway.
					if((world.time + NORMIE_HEARCHECK) > last_hearcheck)
						LAZYCLEARLIST(hearing_mobs)
						for(var/mob/living/H in get_hearers_in_view(3, owner))
							if(!H.client || !(H.client.prefs.cit_toggles & DIGESTION_NOISES))
								continue
							LAZYADD(hearing_mobs, H)
						last_hearcheck = world.time
					for(var/mob/living/H in hearing_mobs)
						if(H && H.client && (isturf(H.loc) || (H.loc != src.contents)))
							SEND_SOUND(H,pred_digest)
						else if(H?.client && (H in contents))
							SEND_SOUND(H,prey_digest)

			//No digestion protection for megafauna.

			//Person just died in guts!
				if(M.stat == DEAD)
					var/digest_alert_owner = pick(digest_messages_owner)
					var/digest_alert_prey = pick(digest_messages_prey)

					//Replace placeholder vars
					digest_alert_owner = replacetext(digest_alert_owner,"%pred",owner)
					digest_alert_owner = replacetext(digest_alert_owner,"%prey",M)
					digest_alert_owner = replacetext(digest_alert_owner,"%belly",lowertext(name))

					digest_alert_prey = replacetext(digest_alert_prey,"%pred",owner)
					digest_alert_prey = replacetext(digest_alert_prey,"%prey",M)
					digest_alert_prey = replacetext(digest_alert_prey,"%belly",lowertext(name))

					//Send messages
					to_chat(owner, "<span class='warning'>[digest_alert_owner]</span>")
					to_chat(M, "<span class='warning'>[digest_alert_prey]</span>")
					M.visible_message("<span class='notice'>You watch as [owner]'s guts loudly rumble as it finishes off a meal.</span>")
					play_sound = pick(pred_death)
					if(M && M.client && M.client.prefs.cit_toggles & DIGESTION_NOISES)
						SEND_SOUND(M,prey_death)
					M.spill_organs(FALSE,TRUE,TRUE)
					M.stop_sound_channel(CHANNEL_PREYLOOP)
					digestion_death(M)
					owner.update_icons()
					to_update = TRUE
					continue


				// Deal digestion damage (and feed the pred)
				if(!(M.status_flags & GODMODE))
					M.adjustFireLoss(digest_burn)
					M.adjustToxLoss(2) // something something plasma based acids
					M.adjustCloneLoss(1) // eventually this'll kill you if you're healing everything else, you nerds.
				//Contaminate or gurgle items
			var/obj/item/T = pick(touchable_items)
			if(istype(T))
				if(istype(T,/obj/item/reagent_containers/food) || istype(T,/obj/item/organ))
					digest_item(T)

	/////////////////////////// Make any noise ///////////////////////////
	if(play_sound)
		if((world.time + NORMIE_HEARCHECK) > last_hearcheck)
			LAZYCLEARLIST(hearing_mobs)
			for(var/mob/M in hearers(VORE_SOUND_RANGE, owner))
				if(!M.client || !(M.client.prefs.cit_toggles & DIGESTION_NOISES))
					continue
				LAZYADD(hearing_mobs, M)
				last_hearcheck = world.time
			for(var/mob/M in hearing_mobs) //so we don't fill the whole room with the sound effect
				if(M && M.client && (isturf(M.loc) || (M.loc != src.contents))) //to avoid people on the inside getting the outside sounds and their direct sounds + built in sound pref check
					M.playsound_local(owner.loc, play_sound, 75, TRUE)
					//these are all external sound triggers now, so it's ok.
	if(to_update)
		for(var/mob/living/M in contents)
			if(M.client)
				M.updateVRPanel()
		if(owner.client)
			owner.updateVRPanel()

	return SSBELLIES_PROCESSED