CHOMPStation2/modular_chomp/code/modules/planet/tyr.dm

GLOBAL_DATUM(planet_tyr, /datum/planet/sif)

/datum/time/tyr
	seconds_in_day = 12 HOURS

/datum/planet/tyr
	name = "Tyr"
	desc = "Tyr, a hot planet." //rewrite me
	current_time = new /datum/time/tyr()
//	expected_z_levels = list(1) // This is defined elsewhere.
	planetary_wall_type = /turf/unsimulated/wall/planetary/normal/tyr

/datum/planet/tyr/New()
	..()
	GLOB.planet_tyr = src
	weather_holder = new /datum/weather_holder/tyr(src)

/datum/planet/tyr/update_sun()
	..()
	var/datum/time/time = current_time
	var/length_of_day = time.seconds_in_day / 10 / 60 / 60
	var/noon = length_of_day / 2
	var/distance_from_noon = abs(text2num(time.show_time("hh")) - noon)
	sun_position = distance_from_noon / noon
	sun_position = abs(sun_position - 1)

	var/low_brightness = null
	var/high_brightness = null

	var/low_color = null
	var/high_color = null
	var/min = 0

	switch(sun_position)
		if(0 to 0.20) // Night
			low_brightness = 0.4
			low_color = "#0A0028"

			high_brightness = 0.7
			high_color = "#21007F"
			min = 0.3

		if(0.20 to 0.30) // Twilight
			low_brightness = 0.65
			low_color = "#310D54"

			high_brightness = 0.8
			high_color = "#58389E"
			min = 0.50

		if(0.30 to 0.40) // Sunrise/set
			low_brightness = 0.8
			low_color = "#19277F"

			high_brightness = 0.9
			high_color = "#2437B5"
			min = 0.50

		if(0.40 to 1.00) // Noon
			low_brightness = 0.6
			low_color = "#487EBF"

			high_brightness = 0.7
			high_color = "#2B95FF"
			min = 0.70

	var/interpolate_weight = (abs(min - sun_position)) * 4
	var/weather_light_modifier = 1
	if(weather_holder && weather_holder.current_weather)
		weather_light_modifier = weather_holder.current_weather.light_modifier

	var/new_brightness = (LERP(low_brightness, high_brightness, interpolate_weight) ) * weather_light_modifier

	var/new_color = null
	if(weather_holder && weather_holder.current_weather && weather_holder.current_weather.light_color)
		new_color = weather_holder.current_weather.light_color
	else
		var/list/low_color_list = hex2rgb(low_color)
		var/low_r = low_color_list[1]
		var/low_g = low_color_list[2]
		var/low_b = low_color_list[3]

		var/list/high_color_list = hex2rgb(high_color)
		var/high_r = high_color_list[1]
		var/high_g = high_color_list[2]
		var/high_b = high_color_list[3]

		var/new_r = LERP(low_r, high_r, interpolate_weight)
		var/new_g = LERP(low_g, high_g, interpolate_weight)
		var/new_b = LERP(low_b, high_b, interpolate_weight)

		new_color = rgb(new_r, new_g, new_b)

	spawn(1)
		update_sun_deferred(new_brightness, new_color)

//Ooooh weathers
/datum/weather_holder/tyr
	temperature = 313
	allowed_weather_types = list(
		WEATHER_CLEAR			= new /datum/weather/tyr/clear(),
		WEATHER_SANDSTORM			= new /datum/weather/tyr/sandstorm(),
		WEATHER_FOG			= new /datum/weather/tyr/fog()

		)
	roundstart_weather_chances = list(
		WEATHER_CLEAR		= 100
		)

/datum/weather/tyr
	name = "tyr"
	temp_high = 323.15
	temp_low = 300.15
	light_modifier = 1

/datum/weather/tyr/clear
	name = "clear"
	transition_chances = list(
		WEATHER_CLEAR = 80,
		WEATHER_SANDSTORM = 10,
		WEATHER_FOG = 10)
	transition_messages = list(
		"The sky clears up.",
		"The sky is visible.",
		"The weather is calm."
		)
	sky_visible = TRUE
	observed_message = "The sky is clear."
	imminent_transition_message = "The sky is rapidly clearing up."


/datum/weather/tyr/sandstorm
	name = "sandstorm"
	icon_state = "sandstorm"
	transition_chances = list(
		WEATHER_CLEAR = 80,
		WEATHER_SANDSTORM = 10,
		WEATHER_FOG = 10)
	transition_messages = list(
		"The sky is engulfed by sand."
		)
	sky_visible = TRUE
	observed_message = "The sky is full of sand."
	imminent_transition_message = "Pebbles begin to fill the sky."
	effect_flags = HAS_PLANET_EFFECT | EFFECT_ONLY_HUMANS

/datum/weather/tyr/sandstorm/planet_effect(mob/living/carbon/H)
	if(H.z in holder.our_planet.expected_z_levels)
		var/turf/T = get_turf(H)
		if(!T.is_outdoors())
			return

		var/target_zone = pick(BP_ALL)
		var/amount_blocked = H.run_armor_check(target_zone, "melee")

		var/damage = rand(2,2)

		if(amount_blocked >= 10)
			return

		H.apply_damage(damage, BRUTE, target_zone, amount_blocked, used_weapon = "sand")
		if(show_message)
			to_chat(H, effect_message)


/datum/weather/tyr/fog
	light_modifier = 0.5
	light_color = "#FF0000"
	transition_chances = list(
		WEATHER_CLEAR = 80,
		WEATHER_SANDSTORM = 10,
		WEATHER_FOG = 10)

	imminent_transition_message = "Fog emerges from nowhere."

	var/next_lightning_strike = 0 // world.time when lightning will strike.
	var/min_lightning_cooldown = 5 SECONDS
	var/max_lightning_cooldown = 1 MINUTE
	effect_flags = HAS_PLANET_EFFECT | EFFECT_ONLY_LIVING

/datum/weather/tyr/fog/planet_effect(mob/living/L)
	if(L.z in holder.our_planet.expected_z_levels)
		var/turf/T = get_turf(L)
		if(!T.is_outdoors())
			return // They're indoors, so no need to rain on them.

		// If they have an open umbrella, it'll guard from rain
		var/obj/item/melee/umbrella/U = L.get_active_hand()
		if(!istype(U) || !U.open)
			U = L.get_inactive_hand()

		if(istype(U) && U.open)
			if(show_message)
				to_chat(L, span_notice("Rain showers loudly onto your umbrella!"))
			return


		L.water_act(2)
		if(show_message)
			to_chat(L, effect_message)

/datum/weather/tyr/fog/process_effects()
	..()
	handle_lightning()

// This gets called to do lightning periodically.
// There is a seperate function to do the actual lightning strike, so that badmins can play with it.
/datum/weather/tyr/fog/proc/handle_lightning()
	if(world.time < next_lightning_strike)
		return // It's too soon to strike again.
	next_lightning_strike = world.time + rand(min_lightning_cooldown, max_lightning_cooldown)
	var/turf/T = pick(holder.our_planet.planet_floors) // This has the chance to 'strike' the sky, but that might be a good thing, to scare reckless pilots.
	lightning_strike(T)

/turf/unsimulated/wall/planetary/normal/tyr
	name = "vast desert"
	alpha = 0

/turf/simulated/tyracid
	name = "fuel"
	icon = 'icons/goonstation/turf/timeholefull.dmi'
	icon_state = "timehole"
	color = "#FF3100"
	var/acidlevel = 1

/turf/simulated/tyracid/Entered(atom/movable/AM, atom/oldloc)
	if(isliving(AM))
		var/mob/living/L = AM
		if(L.hovering || L.flying || L.throwing || L.is_incorporeal())
			return 0
		acidlevel *= 1 - L.get_water_protection()
		if(acidlevel > 0)
			L.adjustFireLoss(acidlevel)

/turf/simulated/tyracid/quantum
	acidlevel = 20
	color = "#0059c6"


/turf/simulated/tyracid/supernova
	acidlevel = 10
	color = "#b10101"

/*
WEATHER_BLIZZARD	= new (),
		WEATHER_STORM		= new(),
		WEATHER_FOG			= new /datum/weather/tyr/fog()
	*/