Bubberstation/code/datums/status_effects/debuffs/hallucination.dm

/// Hallucination status effect. How most hallucinations end up happening.
/// Hallucinations are drawn from the global weighted list, random_hallucination_weighted_list
/datum/status_effect/hallucination
	id = "hallucination"
	alert_type = null
	tick_interval = 2 SECONDS
	remove_on_fullheal = TRUE
	processing_speed = STATUS_EFFECT_NORMAL_PROCESS
	/// Biotypes which cannot hallucinate.
	var/barred_biotypes = NO_HALLUCINATION_BIOTYPES
	/// The lower range of when the next hallucination will trigger after one occurs.
	var/lower_tick_interval = 20 SECONDS
	/// The upper range of when the next hallucination will trigger after one occurs.
	var/upper_tick_interval = 80 SECONDS
	/// The maximum hallucination tier that can be picked.
	var/max_hallucination_tier = HALLUCINATION_TIER_COMMON
	/// If TRUE, we only select hallucinations from the hallucination_tier.
	/// If FALSE, it will also include anything below the hallucination_tier.
	var/strict_tier = FALSE
	/// Tier can be variable, based on the duration of the hallucination.
	var/variable_tier = TRUE
	/// The cooldown for when the next hallucination can occur
	COOLDOWN_DECLARE(hallucination_cooldown)

/datum/status_effect/hallucination/on_creation(mob/living/new_owner, new_duration)
	if(isnum(new_duration))
		src.duration = new_duration
	return ..()

/datum/status_effect/hallucination/on_apply()
	if(owner.mob_biotypes & barred_biotypes)
		return FALSE
	if(HAS_TRAIT(owner, TRAIT_HALLUCINATION_IMMUNE))
		return FALSE

	RegisterSignal(owner, COMSIG_LIVING_HEALTHSCAN,  PROC_REF(on_health_scan))
	RegisterSignal(owner, SIGNAL_ADDTRAIT(TRAIT_HALLUCINATION_IMMUNE), PROC_REF(delete_self))
	if(iscarbon(owner))
		RegisterSignal(owner, COMSIG_CARBON_CHECKING_BODYPART, PROC_REF(on_check_bodypart))
		RegisterSignal(owner, COMSIG_CARBON_BUMPED_AIRLOCK_OPEN, PROC_REF(on_bump_airlock))

	return TRUE

/datum/status_effect/hallucination/proc/delete_self()
	SIGNAL_HANDLER
	qdel(src)

/datum/status_effect/hallucination/on_remove()
	UnregisterSignal(owner, list(
		COMSIG_LIVING_HEALTHSCAN,
		COMSIG_CARBON_CHECKING_BODYPART,
		COMSIG_CARBON_BUMPED_AIRLOCK_OPEN,
		SIGNAL_ADDTRAIT(TRAIT_HALLUCINATION_IMMUNE),
	))

/// Signal proc for [COMSIG_LIVING_HEALTHSCAN]. Show we're hallucinating to (advanced) scanners.
/datum/status_effect/hallucination/proc/on_health_scan(datum/source, list/render_list, advanced, mob/user, mode, tochat)
	SIGNAL_HANDLER

	if(!advanced)
		return
	render_list += "<span class='info ml-1'>"
	render_list += conditional_tooltip("Subject is hallucinating.", "Supply antipsychotic medication, such as [/datum/reagent/medicine/haloperidol::name] or [/datum/reagent/medicine/synaptizine::name].", tochat)
	render_list += "</span><br>"

/// Signal proc for [COMSIG_CARBON_CHECKING_BODYPART],
/// checking bodyparts while hallucinating can cause them to appear more damaged than they are
/datum/status_effect/hallucination/proc/on_check_bodypart(mob/living/carbon/source, obj/item/bodypart/examined, list/check_list, list/limb_damage)
	SIGNAL_HANDLER

	if(prob(30))
		limb_damage[BRUTE] += rand(30, 40)
	if(prob(30))
		limb_damage[BURN] += rand(30, 40)

/// Signal proc for [COMSIG_CARBON_BUMPED_AIRLOCK_OPEN], bumping an airlock can cause a fake zap.
/// This only happens on airlock bump, future TODO - make this chance roll for attack_hand opening airlocks too
/datum/status_effect/hallucination/proc/on_bump_airlock(mob/living/carbon/source, obj/machinery/door/airlock/bumped)
	SIGNAL_HANDLER

	// 1% chance to fake a shock.
	if(prob(99) || !source.should_electrocute() || bumped.operating)
		return

	source.cause_hallucination(/datum/hallucination/shock, "hallucinated shock from [bumped]",)
	return STOP_BUMP

/datum/status_effect/hallucination/tick(seconds_between_ticks)
	if(owner.stat == DEAD)
		return
	if(!COOLDOWN_FINISHED(src, hallucination_cooldown))
		return

	var/lower_cd = lower_tick_interval
	var/upper_cd = upper_tick_interval
	if(variable_tier)
		var/seconds_left = duration / 10
		switch(seconds_left)
			if(0 to 20)
				max_hallucination_tier = HALLUCINATION_TIER_COMMON
				lower_tick_interval *= 1.2
				upper_tick_interval *= 1.2
			if(20 to 60)
				max_hallucination_tier = prob(10) ? HALLUCINATION_TIER_RARE : HALLUCINATION_TIER_UNCOMMON
			if(60 to 120)
				max_hallucination_tier = HALLUCINATION_TIER_RARE
				lower_cd *= 0.75
				upper_cd *= 0.75
			if(120 to INFINITY)
				max_hallucination_tier = HALLUCINATION_TIER_VERYSPECIAL
				lower_cd *= 0.5
				upper_cd *= 0.5

	var/datum/hallucination/picked_hallucination = get_random_hallucination(max_hallucination_tier, strict_tier)
	if(!owner.cause_hallucination(picked_hallucination, "[id] status effect"))
		lower_cd *= 0.25
		upper_cd *= 0.25
	COOLDOWN_START(src, hallucination_cooldown, rand(lower_cd, upper_cd))

// Sanity related hallucinations
/datum/status_effect/hallucination/sanity
	id = "low sanity"
	status_type = STATUS_EFFECT_REFRESH
	duration = STATUS_EFFECT_PERMANENT // This lasts "forever", only goes away with sanity gain
	max_hallucination_tier = HALLUCINATION_TIER_UNCOMMON
	variable_tier = FALSE

/datum/status_effect/hallucination/sanity/on_health_scan(datum/source, list/render_list, advanced, mob/user, mode, tochat)
	return

/datum/status_effect/hallucination/sanity/on_health_scan(datum/source, list/render_list, advanced, mob/user, mode, tochat)
	return

/datum/status_effect/hallucination/sanity/on_apply()
	if(!owner.mob_mood)
		return FALSE

	update_intervals()
	return ..()

/datum/status_effect/hallucination/sanity/refresh(...)
	update_intervals()

/datum/status_effect/hallucination/sanity/tick(seconds_between_ticks)
	// Using psicodine / happiness / whatever to become fearless will stop sanity based hallucinations
	if(HAS_TRAIT(owner, TRAIT_FEARLESS))
		return

	return ..()

/// Updates our upper and lower intervals based on our owner's current sanity level.
/datum/status_effect/hallucination/sanity/proc/update_intervals()
	switch(owner.mob_mood.sanity_level)
		if(SANITY_LEVEL_CRAZY)
			upper_tick_interval = 8 MINUTES
			lower_tick_interval = 4 MINUTES

		if(SANITY_LEVEL_INSANE)
			upper_tick_interval = 4 MINUTES
			lower_tick_interval = 2 MINUTES

		else
			stack_trace("[type] was assigned a mob which was not crazy or insane. (was: [owner.mob_mood.sanity_level])")
			qdel(src)

/datum/status_effect/hallucination/perceptomatrix
	id = "perceptomatrix_hallucination"
	status_type = STATUS_EFFECT_REFRESH
	strict_tier = TRUE
	variable_tier = FALSE

/datum/status_effect/hallucination/perceptomatrix/refresh(effect, new_duration)
	src.duration += new_duration

/datum/status_effect/hallucination/perceptomatrix/on_creation(mob/living/new_owner, new_duration)
	if(isnum(new_duration))
		src.lower_tick_interval = new_duration * 0.2
		src.upper_tick_interval = new_duration
	return ..()