fix for harvest ball (#4003)

code/__DEFINES/maps.dm

@@ -239,6 +239,7 @@ Always compile, always use that verb, and always make sure that it works for wha
 #define WEATHER_MESSAGE_DELAY 30 SECONDS
 #define ZTRAIT_DAYCYCLE "Daycycle"
 #define ZTRAIT_STARLIGHT "Starlight"
+#define ZTRAIT_JUSTWEATHER "WeatherOnly"
 #define PARTICLEWEATHER_RAIN "weather_rain"
 #define PARTICLEWEATHER_SNOW "weather_snow"
 #define PARTICLEWEATHER_DUST "weather_dust"

monkestation/code/modules/outdoors/code/controllers/subsystem/outdoors_effects.dm

@@ -135,15 +135,23 @@ SUBSYSTEM_DEF(outdoor_effects)
 	fire(FALSE, TRUE)
 
 	var/daylight = FALSE
+	var/dark_days = FALSE
 	for (var/z in (SSmapping.levels_by_trait(ZTRAIT_DAYCYCLE) + SSmapping.levels_by_trait(ZTRAIT_STARLIGHT)))
+		if(SSmapping.level_trait(z, ZTRAIT_JUSTWEATHER))
+			dark_days = TRUE
+			continue
 		if(SSmapping.level_trait(z, ZTRAIT_DAYCYCLE))
 			daylight = TRUE
 			continue
 
-	if(!daylight)
+	if(!daylight && !dark_days)
 		for(var/datum/time_of_day/listed_time as anything in time_cycle_steps)
 			listed_time.color = GLOB.starlight_color
 
+	if(dark_days)
+		for(var/datum/time_of_day/listed_time as anything in time_cycle_steps)
+			listed_time.color = COLOR_BLACK
+
 	return SS_INIT_SUCCESS
 
 /datum/controller/subsystem/outdoor_effects/proc/InitializeTurfs()