Bubberstation/code/modules/lighting/lighting_area.dm

/area
	luminosity = 1
	///List of mutable appearances we underlay to show light
	///In the form plane offset + 1 -> appearance to use
	var/list/mutable_appearance/lighting_effects = null
	///Whether this area has a currently active base lighting, bool
	var/area_has_base_lighting = FALSE
	///alpha 0-255 of lighting_effect and thus baselighting intensity
	var/base_lighting_alpha = 0
	///The colour of the light acting on this area
	var/base_lighting_color = COLOR_WHITE

/area/proc/set_base_lighting(new_base_lighting_color = -1, new_alpha = -1)
	if(base_lighting_alpha == new_alpha && base_lighting_color == new_base_lighting_color)
		return FALSE
	if(new_alpha != -1)
		base_lighting_alpha = new_alpha
	if(new_base_lighting_color != -1)
		base_lighting_color = new_base_lighting_color
	update_base_lighting()
	return TRUE

/area/vv_edit_var(var_name, var_value)
	switch(var_name)
		if(NAMEOF(src, base_lighting_color))
			set_base_lighting(new_base_lighting_color = var_value)
			return TRUE
		if(NAMEOF(src, base_lighting_alpha))
			set_base_lighting(new_alpha = var_value)
			return TRUE
		if(NAMEOF(src, static_lighting))
			if(!static_lighting)
				create_area_lighting_objects()
			else
				remove_area_lighting_objects()

	return ..()

/area/proc/update_base_lighting()
	if(!area_has_base_lighting && (!base_lighting_alpha || !base_lighting_color))
		return

	if(!area_has_base_lighting)
		add_base_lighting()
		return
	remove_base_lighting()
	if(base_lighting_alpha && base_lighting_color)
		add_base_lighting()

/area/proc/remove_base_lighting()
	UnregisterSignal(SSdcs, COMSIG_STARLIGHT_COLOR_CHANGED)
	var/list/z_offsets = SSmapping.z_level_to_plane_offset
	if(length(lighting_effects) > 1)
		for(var/turf/T as anything in get_contained_turfs())
			if(z_offsets[T.z])
				T.cut_overlay(lighting_effects[z_offsets[T.z] + 1])
	cut_overlay(lighting_effects[1])
	lighting_effects = null
	area_has_base_lighting = FALSE

/area/proc/add_base_lighting()
	lighting_effects = list()
	for(var/offset in 0 to SSmapping.max_plane_offset)
		var/mutable_appearance/light
		if(base_lighting_color == COLOR_STARLIGHT)
			light = new(GLOB.starlight_overlays[offset + 1])
		else
			light = mutable_appearance('icons/effects/alphacolors.dmi', "white")
			light.color = base_lighting_color
		light.layer = LIGHTING_PRIMARY_LAYER
		light.blend_mode = BLEND_ADD
		light.appearance_flags = RESET_TRANSFORM | RESET_ALPHA | RESET_COLOR
		light.alpha = base_lighting_alpha
		SET_PLANE_W_SCALAR(light, LIGHTING_PLANE, offset)
		lighting_effects += light

	if(base_lighting_color == COLOR_STARLIGHT)
		// Ok this is gonna be dumb
		// We rely on render_source working, and it DOES NOT APPEAR TO in area rendering
		// So we're gonna have to update the area's overlay manually. everything else can be automatic tho
		// Fortunately the first overlay is only ever used by the area, soooo
		var/mutable_appearance/light = mutable_appearance('icons/effects/alphacolors.dmi', "white")
		light.layer = LIGHTING_PRIMARY_LAYER
		light.blend_mode = BLEND_ADD
		light.appearance_flags = RESET_TRANSFORM | RESET_ALPHA | RESET_COLOR
		light.color = GLOB.starlight_color
		light.alpha = base_lighting_alpha
		SET_PLANE_W_SCALAR(light, LIGHTING_PLANE, 0)
		lighting_effects[1] = light
		RegisterSignal(SSdcs, COMSIG_STARLIGHT_COLOR_CHANGED, PROC_REF(starlight_changed))

	add_overlay(lighting_effects[1])
	var/list/z_offsets = SSmapping.z_level_to_plane_offset
	if(length(lighting_effects) > 1)
		// This inside loop is EXTREMELY hot because it's run by space tiles. Don't want no part in that
		for(var/turf/T as anything in get_contained_turfs())
			T.luminosity = 1
			// We will only add overlays to turfs not on the first z layer, because that's a significantly lesser portion
			// And we need to do them separate, or lighting will go fuckey
			if(z_offsets[T.z])
				T.add_overlay(lighting_effects[z_offsets[T.z] + 1])
	else
		for(var/turf/T as anything in get_contained_turfs())
			T.luminosity = 1

	area_has_base_lighting = TRUE

/area/proc/starlight_changed(datum/source, old_star, new_star)
	var/mutable_appearance/old_star_effect = mutable_appearance('icons/effects/alphacolors.dmi', "white")
	old_star_effect.layer = LIGHTING_PRIMARY_LAYER
	old_star_effect.blend_mode = BLEND_ADD
	old_star_effect.appearance_flags = RESET_TRANSFORM | RESET_ALPHA | RESET_COLOR
	old_star_effect.color = old_star
	old_star_effect.alpha = base_lighting_alpha
	SET_PLANE_W_SCALAR(old_star_effect, LIGHTING_PLANE, 0)
	cut_overlay(old_star_effect)
	var/mutable_appearance/new_star_effect = mutable_appearance('icons/effects/alphacolors.dmi', "white")
	new_star_effect.layer = LIGHTING_PRIMARY_LAYER
	new_star_effect.blend_mode = BLEND_ADD
	new_star_effect.appearance_flags = RESET_TRANSFORM | RESET_ALPHA | RESET_COLOR
	new_star_effect.color = new_star
	new_star_effect.alpha = base_lighting_alpha
	SET_PLANE_W_SCALAR(new_star_effect, LIGHTING_PLANE, 0)
	add_overlay(new_star_effect)
	lighting_effects[1] = new_star_effect