Files
Bubberstation/code/datums/components/radioactive_emitter.dm
lessthanthree 636c142927 [MANUAL MIRROR] Adds a new event, "Radiation Leak" (#19075)
Adds a new event, "Radiation Leak" (#72655)

Adds a new random event, "Radiation Leak". 

A random machine in a random department will begin leaking radiation. 

This includes a radiation aura around it, and semi-regular puffs of
smoke clouds containing mutagen and polonium.

The machine will stop leaking after some time, but can also be stopped
by using a random tool on it, indicated in its examine text.

I added a new "radiation emitter" component, for simple "emits
radiation" behavior. Then I made the radioactive mutation use it. This
means that the radioactive gene emits radiation while on stasis and
dead, rather than only in life.

Co-authored-by: MrMelbert <51863163+MrMelbert@users.noreply.github.com>
2023-02-14 02:32:26 +00:00

88 lines
2.6 KiB
Plaintext

/// Minimum duration between pulses for the radioactive emitter component.
/// This is chosen arbitrarily. It can theoretically go down to 0.1 SECONDS but god please don't
#define MIN_PULSE_COOLDOWN 0.5 SECONDS
/**
* # Radioactive Emitter
*
* Simple component that you can attach to something to make it emit radiation pulses over time.
*/
/datum/component/radioactive_emitter
dupe_mode = COMPONENT_DUPE_UNIQUE_PASSARGS
/// The actual cooldown between rad pulses
COOLDOWN_DECLARE(rad_pulse_cooldown)
/// The length of the cooldown between radiation pulses
var/cooldown_time = 5 SECONDS
/// How far the radiation pulses aggregate with other radiation pulses (see: [proc/radiation_pulse])
var/range = 1
/// How much radiation protection threshold is passed to the radiation pulse (see: [proc/radiation_pulse])
var/threshold = RAD_MEDIUM_INSULATION
/// Optional - What is shown on examine of the parent?
var/examine_text
/datum/component/radioactive_emitter/Initialize(
cooldown_time = 5 SECONDS,
range = 1,
threshold = RAD_MEDIUM_INSULATION,
examine_text,
)
if(!isturf(parent) && !ismovable(parent))
return COMPONENT_INCOMPATIBLE
src.cooldown_time = max(cooldown_time, MIN_PULSE_COOLDOWN)
src.range = range
src.threshold = threshold
src.examine_text = examine_text
// We process on fastprocess even though we're on a cooldown based system.
// Easier to handle edits to the cooldown duration, prevents timer spam for short cooldown emitters
START_PROCESSING(SSfastprocess, src)
/datum/component/radioactive_emitter/Destroy(force, silent)
STOP_PROCESSING(SSfastprocess, src)
return ..()
/datum/component/radioactive_emitter/RegisterWithParent()
RegisterSignal(parent, COMSIG_PARENT_EXAMINE, PROC_REF(on_examine))
/datum/component/radioactive_emitter/UnregisterFromParent()
UnregisterSignal(parent, COMSIG_PARENT_EXAMINE)
/datum/component/radioactive_emitter/InheritComponent(
datum/component/new_comp,
i_am_original,
cooldown_time = 5 SECONDS,
range = 1,
threshold = RAD_NO_INSULATION,
examine_text,
)
if(!i_am_original)
return
// Only care about modifying our rad wave argument.
src.cooldown_time = cooldown_time
src.range = range
src.threshold = threshold
// Don't touch examine text or whatever else.
/datum/component/radioactive_emitter/process(delta_time)
if(!COOLDOWN_FINISHED(src, rad_pulse_cooldown))
return
COOLDOWN_START(src, rad_pulse_cooldown, cooldown_time)
radiation_pulse(parent, range, threshold)
/datum/component/radioactive_emitter/proc/on_examine(datum/source, mob/user, list/examine_list)
SIGNAL_HANDLER
if(!examine_text)
return
examine_list += examine_text
#undef MIN_PULSE_COOLDOWN