goonstation-2016/code/FEA/FEA_fire.dm

atom
	proc
		temperature_expose(datum/gas_mixture/air, exposed_temperature, exposed_volume)
			if(reagents) reagents.temperature_reagents(exposed_temperature, exposed_volume)
			if(src.material) src.material.triggerTemp(src, exposed_temperature)
			return null

turf
	proc/hotspot_expose(exposed_temperature, exposed_volume, soh)
		if(src.material)
			src.material.triggerTemp(src, exposed_temperature)

	simulated
		hotspot_expose(exposed_temperature, exposed_volume, soh)
			if (src == ff_debug_turf && ff_debugger)
				boutput(ff_debugger, "<span style='color:#ff8800'>Fireflash affecting tile at [showCoords(x, y, z)]</span>")

			var/datum/gas_mixture/air_contents = return_air()
			if(src.material)
				src.material.triggerTemp(src, exposed_temperature)

			if(reagents)
				reagents.temperature_reagents(exposed_temperature, 10, 10, 300)

			for(var/atom/item in src) //I hate having to add this here too but too many things use hotspot_expose. This might cause lag on large fires.
				item.temperature_expose(null, exposed_temperature, exposed_volume)

			if(!air_contents)
				return 0

			if(active_hotspot)

				if(locate(/obj/fire_foam) in src)
					active_hotspot.disposing() // have to call this now to force the lighting cleanup
					pool(active_hotspot)
					active_hotspot = null

				if(soh)
					if(air_contents.toxins > 0.5 && air_contents.oxygen > 0.5)
						if(active_hotspot.temperature < exposed_temperature)
							active_hotspot.temperature = exposed_temperature
							active_hotspot.set_real_color()
						if(active_hotspot.volume < exposed_volume)
							active_hotspot.volume = exposed_volume
				return 1

			var/igniting = 0

			if((exposed_temperature > PLASMA_MINIMUM_BURN_TEMPERATURE) && air_contents.toxins > 0.5)
				igniting = 1

			if(igniting)

				if(locate(/obj/fire_foam) in src) return 0

				if(air_contents.oxygen < 0.5 || air_contents.toxins < 0.5)
					return 0

				if(parent&&parent.group_processing)
					parent.suspend_group_processing()

				active_hotspot = unpool(/obj/hotspot)
				active_hotspot.temperature = exposed_temperature
				active_hotspot.volume = exposed_volume
				active_hotspot.set_real_color()
				active_hotspot.set_loc(src)

				active_hotspot.just_spawned = (current_cycle < air_master.current_cycle)
					//remove just_spawned protection if no longer processing this cell

			return igniting

obj
	hotspot
		//Icon for fire on turfs, also helps for nurturing small fires until they are full tile

		anchored = 1
		layer = NOLIGHT_EFFECTS_LAYER_BASE

		mouse_opacity = 0

		icon = 'icons/effects/fire.dmi'
		icon_state = "1"

		//layer = TURF_LAYER
		alpha = 250
		blend_mode = BLEND_ADD
		var/datum/light/light

		animate_movement = NO_STEPS // fix for weird unpool sliding

		var
			volume = 125
			temperature = FIRE_MINIMUM_TEMPERATURE_TO_EXIST

			just_spawned = 1

			bypassing = 0

		// now this is ss13 level code
		proc/set_real_color()
			var/input = temperature / 100

			var/red
			if (input <= 66)
				red = 255
			else
				red = input - 60
				red = 329.698727446 * (red ** -0.1332047592)
				red = max(0, min(red, 255))

			var/green
			if (input <= 66)
				green = max(0.001, input)
				green = 99.4708025861 * log(green) - 161.1195681661
			else
				green = input - 60
				green = 288.1221695283 * (green ** -0.0755148492)
			green = max(0, min(green, 255))

			var/blue
			if (input >= 66)
				blue = 255
			else
				if (input <= 19)
					blue = 0
				else
					blue = input - 10
					blue = 138.5177312231 * log(blue) - 305.0447927307
					blue = max(0, min(blue, 255))

			color = rgb(red, green, blue)

			red /= 255
			green /= 255
			blue /= 255

			// dear lord i apologuize for this conditional which i am about to write and commit. please be with the starving pygmies down in new guinea amen
			var/max_color_diff = max( abs(red - light.r), max ( abs (blue - light.b), abs (green - light.g) ) )
			// debug_log += "[src.x],[src.y]:[temperature] max diff was [max_color_diff], [red] [green] [blue] vs [sd_ColorRed] [sd_ColorGreen] [sd_ColorBlue]"
			if ( 0.05 < max_color_diff )
				light.set_color(red, green, blue)
			light.enable()

		proc/perform_exposure()
			var/turf/simulated/floor/location = loc
			if(!istype(location))
				return 0

			if(volume > CELL_VOLUME*0.95)
				bypassing = 1
			else bypassing = 0

			if(bypassing)
				if(!just_spawned)
					volume = location.air.fuel_burnt*FIRE_GROWTH_RATE
					temperature = location.air.temperature
			else
				var/datum/gas_mixture/affected = location.air.remove_ratio(volume/max((location.air.volume/5),1))

				affected.temperature = temperature

				affected.react()

				temperature = affected.temperature
				volume = affected.fuel_burnt*FIRE_GROWTH_RATE

				location.assume_air(affected)

				for(var/atom/item in loc)
					item.temperature_expose(null, temperature, volume)

			set_real_color()

		Crossed(var/atom/A)
			A.temperature_expose(null, temperature, volume)
			if (istype(A, /mob/living))
				var/mob/living/H = A
				var/B = min(55, max(0, temperature - 100 / 550))
				H.update_burning(B)

		proc/process(turf/simulated/list/possible_spread)
			if(just_spawned)
				just_spawned = 0
				return 0

			var/turf/simulated/floor/location = loc
			if(!istype(location) || (locate(/obj/fire_foam) in location))
				pool(src)
				return 0

			if((temperature < FIRE_MINIMUM_TEMPERATURE_TO_EXIST) || (volume <= 1))
				pool(src)
				return 0

			if(!location.air || location.air.toxins < 0.5 || location.air.oxygen < 0.5)
				pool(src)
				return 0

			for(var/mob/living/L in loc)
				L.update_burning(min(max(temperature / 60, 5),33))

			perform_exposure()

			if(location.wet) location.wet = 0

			if(bypassing)
				icon_state = "3"
				location.burn_tile()

				//Possible spread due to radiated heat
				if(location.air.temperature > FIRE_MINIMUM_TEMPERATURE_TO_SPREAD)
					var/radiated_temperature = location.air.temperature*FIRE_SPREAD_RADIOSITY_SCALE

					for(var/turf/simulated/possible_target in possible_spread)
						if(!possible_target.active_hotspot)
							possible_target.hotspot_expose(radiated_temperature, CELL_VOLUME/4)

			else
				if(volume > CELL_VOLUME*0.4)
					icon_state = "2"
				else
					icon_state = "1"

			return 1

		New()
			..()
			dir = pick(cardinal)
			light = new /datum/light/point
			light.set_brightness(0.5)
			light.attach(src)
			// note: light is left disabled until the color is set

		disposing()
			if (loc)
				loc:active_hotspot = null
			..()

		ex_act()
			return