Adds more fake sun colors

code/modules/lighting/lighting_fake_sun_vr.dm

@@ -0,0 +1,93 @@
+/obj/effect/fake_sun
+	name = "fake sun"
+	desc = "Deletes itself, but first updates all the lighting on outdoor turfs."
+	icon = 'icons/effects/effects_vr.dmi'
+	icon_state = "fakesun"
+
+	var/list/possible_light_setups = list(
+		list(
+			"brightness" = 6.0,
+			"color" = "#abfff7"
+		),
+		list(
+			"brightness" = 4.0,
+			"color" = "#F4EA55"
+		),
+		list(
+			"brightness" = 2.5,
+			"color" = "#EE9AC6"
+		),
+		list(
+			"brightness" = 1.0,
+			"color" = "#A3A291"
+		),
+		list(
+			"brightness" = 1.0,
+			"color" = "#F07AD8"
+		),
+		list(
+			"brightness" = 1.0,
+			"color" = "#61AEF3"
+		),
+		list(
+			"brightness" = 0.7,
+			"color" = "#f3932d"
+		),
+		list(
+			"brightness" = 0.5,
+			"color" = "#631E8A"
+		),
+		list(
+			"brightness" = 0.3,
+			"color" = "#253682"
+		),
+		list(
+			"brightness" = 0.1,
+			"color" = "#27024B"
+		),
+		list(
+			"brightness" = 0.1,
+			"color" = "#9AEAEE"
+		),
+		list(
+			"brightness" = 0.1,
+			"color" = "#B92B00"
+		),
+		list(
+			"brightness" = 0,
+			"color" = "#000000"
+		)
+
+	)
+
+/obj/effect/fake_sun/Initialize()
+	..()
+	return INITIALIZE_HINT_LATELOAD
+
+/obj/effect/fake_sun/LateInitialize()
+	. = ..()
+
+	var/list/our_choice = pick(possible_light_setups)
+	
+	// Calculate new values to apply
+	var/new_brightness = our_choice["brightness"]
+	var/new_color = our_choice["color"]
+	var/lum_r = new_brightness * GetRedPart  (new_color) / 255
+	var/lum_g = new_brightness * GetGreenPart(new_color) / 255
+	var/lum_b = new_brightness * GetBluePart (new_color) / 255
+	var/static/update_gen = -1 // Used to prevent double-processing corners. Otherwise would happen when looping over adjacent turfs.
+	
+	var/list/turfs = block(locate(1,1,z),locate(world.maxx,world.maxy,z))
+	
+	for(var/turf/simulated/T as anything in turfs)
+		if(!T.lighting_overlay)
+			T.lighting_build_overlay()
+		if(!T.outdoors)
+			continue
+		for(var/C in T.get_corners())
+			var/datum/lighting_corner/LC = C
+			if(LC.update_gen != update_gen && LC.active)
+				LC.update_gen = update_gen
+				LC.update_lumcount(lum_r, lum_g, lum_b)
+	update_gen--
+	qdel(src)