mirror of
https://github.com/fulpstation/fulpstation.git
synced 2025-12-10 10:01:40 +00:00
120 lines
3.5 KiB
Plaintext
120 lines
3.5 KiB
Plaintext
/datum/radiation_wave
|
|
var/source
|
|
var/turf/master_turf //The center of the wave
|
|
var/steps=0 //How far we've moved
|
|
var/intensity //How strong it was originaly
|
|
var/range_modifier //Higher than 1 makes it drop off faster, 0.5 makes it drop off half etc
|
|
var/move_dir //The direction of movement
|
|
var/list/__dirs //The directions to the side of the wave, stored for easy looping
|
|
var/can_contaminate
|
|
|
|
/datum/radiation_wave/New(atom/_source, dir, _intensity=0, _range_modifier=RAD_DISTANCE_COEFFICIENT, _can_contaminate=TRUE)
|
|
|
|
source = "[_source] \[[REF(_source)]\]"
|
|
|
|
master_turf = get_turf(_source)
|
|
|
|
move_dir = dir
|
|
__dirs = list()
|
|
__dirs+=turn(dir, 90)
|
|
__dirs+=turn(dir, -90)
|
|
|
|
intensity = _intensity
|
|
range_modifier = _range_modifier
|
|
can_contaminate = _can_contaminate
|
|
|
|
START_PROCESSING(SSradiation, src)
|
|
|
|
/datum/radiation_wave/Destroy()
|
|
. = QDEL_HINT_IWILLGC
|
|
STOP_PROCESSING(SSradiation, src)
|
|
..()
|
|
|
|
/datum/radiation_wave/process()
|
|
master_turf = get_step(master_turf, move_dir)
|
|
if(!master_turf)
|
|
qdel(src)
|
|
return
|
|
steps++
|
|
var/list/atoms = get_rad_atoms()
|
|
|
|
var/strength
|
|
if(steps>1)
|
|
strength = INVERSE_SQUARE(intensity, max(range_modifier*steps, 1), 1)
|
|
else
|
|
strength = intensity
|
|
|
|
if(strength<RAD_BACKGROUND_RADIATION)
|
|
qdel(src)
|
|
return
|
|
|
|
radiate(atoms, FLOOR(strength, 1))
|
|
|
|
check_obstructions(atoms) // reduce our overall strength if there are radiation insulators
|
|
|
|
/datum/radiation_wave/proc/get_rad_atoms()
|
|
var/list/atoms = list()
|
|
var/distance = steps
|
|
var/cmove_dir = move_dir
|
|
var/cmaster_turf = master_turf
|
|
|
|
if(cmove_dir == NORTH || cmove_dir == SOUTH)
|
|
distance-- //otherwise corners overlap
|
|
|
|
atoms += get_rad_contents(cmaster_turf)
|
|
|
|
var/turf/place
|
|
for(var/dir in __dirs) //There should be just 2 dirs in here, left and right of the direction of movement
|
|
place = cmaster_turf
|
|
for(var/i in 1 to distance)
|
|
place = get_step(place, dir)
|
|
if(!place)
|
|
break
|
|
atoms += get_rad_contents(place)
|
|
|
|
return atoms
|
|
|
|
/datum/radiation_wave/proc/check_obstructions(list/atoms)
|
|
var/width = steps
|
|
var/cmove_dir = move_dir
|
|
if(cmove_dir == NORTH || cmove_dir == SOUTH)
|
|
width--
|
|
width = 1+(2*width)
|
|
|
|
for(var/k in 1 to atoms.len)
|
|
var/atom/thing = atoms[k]
|
|
if(!thing)
|
|
continue
|
|
if (SEND_SIGNAL(thing, COMSIG_ATOM_RAD_WAVE_PASSING, src, width) & COMPONENT_RAD_WAVE_HANDLED)
|
|
continue
|
|
if (thing.rad_insulation != RAD_NO_INSULATION)
|
|
intensity *= (1-((1-thing.rad_insulation)/width))
|
|
|
|
/datum/radiation_wave/proc/radiate(list/atoms, strength)
|
|
var/contamination_chance = (strength-RAD_MINIMUM_CONTAMINATION) * RAD_CONTAMINATION_CHANCE_COEFFICIENT * min(1, 1/(steps*range_modifier))
|
|
for(var/k in 1 to atoms.len)
|
|
var/atom/thing = atoms[k]
|
|
if(!thing)
|
|
continue
|
|
thing.rad_act(strength)
|
|
|
|
// This list should only be for types which don't get contaminated but you want to look in their contents
|
|
// If you don't want to look in their contents and you don't want to rad_act them:
|
|
// modify the ignored_things list in __HELPERS/radiation.dm instead
|
|
var/static/list/blacklisted = typecacheof(list(
|
|
/turf,
|
|
/mob,
|
|
/obj/structure/cable,
|
|
/obj/machinery/atmospherics,
|
|
/obj/item/ammo_casing,
|
|
/obj/item/implant,
|
|
/obj/singularity
|
|
))
|
|
if(!can_contaminate || blacklisted[thing.type])
|
|
continue
|
|
if(prob(contamination_chance)) // Only stronk rads get to have little baby rads
|
|
if(SEND_SIGNAL(thing, COMSIG_ATOM_RAD_CONTAMINATING, strength) & COMPONENT_BLOCK_CONTAMINATION)
|
|
continue
|
|
var/rad_strength = (strength-RAD_MINIMUM_CONTAMINATION) * RAD_CONTAMINATION_STR_COEFFICIENT
|
|
thing.AddComponent(/datum/component/radioactive, rad_strength, source)
|