Paradise/code/game/machinery/snow_machine.dm

/obj/machinery/snow_machine
	name = "snow machine"
	desc = "Just add water and you too can have your own winter wonderland! Carol singers not included."
	icon_state = "snow_machine_off"
	density = TRUE
	layer = OBJ_LAYER
	var/active = FALSE
	var/power_used_this_cycle = 0
	var/cooling_speed = 1
	var/power_efficiency = 1
	var/lower_temperature_limit = T0C - 10 //Set lower for a bigger freeze
	var/infinite_snow = FALSE //Set this to have it not use water

/obj/machinery/snow_machine/Initialize(mapload)
	. = ..()
	create_reagents(300) //Makes 100 snow tiles!
	reagents.add_reagent("water", 300) //But any reagent will do
	reagents.flags |= REAGENT_NOREACT //Because a) this doesn't need to process and b) this way we can use any reagents without needing to worry about explosions and shit
	container_type = REFILLABLE
	component_parts = list()
	component_parts += new /obj/item/circuitboard/snow_machine(null)
	component_parts += new /obj/item/stock_parts/matter_bin(null)
	component_parts += new /obj/item/stock_parts/micro_laser(null)
	RefreshParts()

/obj/machinery/snow_machine/examine(mob/user)
	. = ..()
	. += SPAN_NOTICE("The internal reservoir indicates it is [infinite_snow ? "100" : round(reagents.total_volume / reagents.maximum_volume * 100)]% full.")

/obj/machinery/snow_machine/RefreshParts()
	power_efficiency = 0
	cooling_speed = 0
	for(var/obj/item/stock_parts/matter_bin/B in component_parts)
		cooling_speed += B.rating
	for(var/obj/item/stock_parts/micro_laser/L in component_parts)
		power_efficiency += L.rating

/obj/machinery/snow_machine/attack_hand(mob/user)
	if(!has_power() || !anchored)
		return
	if(turn_on_or_off(!active))
		to_chat(user, SPAN_NOTICE("You [active ? "turn on" : "turn off"] [src]."))
	return ..()

/obj/machinery/snow_machine/crowbar_act(mob/user, obj/item/I)
	if(default_deconstruction_crowbar(user, I))
		return TRUE

/obj/machinery/snow_machine/screwdriver_act(mob/user, obj/item/I)
	if(default_deconstruction_screwdriver(user, "snow_machine_openpanel", "snow_machine_off", I))
		turn_on_or_off(FALSE)
		return TRUE

/obj/machinery/snow_machine/wrench_act(mob/user, obj/item/I)
	. = TRUE
	if(!default_unfasten_wrench(user, I, 0))
		return
	if(!anchored)
		turn_on_or_off(FALSE)

/obj/machinery/snow_machine/process()
	if(power_used_this_cycle)
		power_used_this_cycle /= power_efficiency
		use_power(power_used_this_cycle)
		power_used_this_cycle = 0
	if(!active || !anchored)
		return
	if(!has_power())
		return
	if(!reagents.has_reagent(reagents.get_master_reagent_id(), 3))
		return //This means you don't need to top it up constantly to keep the nice snowclouds going
	var/turf/T = get_turf(src)
	if(isspaceturf(T) || T.density) //If the snowmachine is on a dense tile or in space, then it shouldn't be able to produce any snow and so will turn off
		turn_on_or_off(FALSE, TRUE)
		return
	for(var/turf/TF in range(1, src))
		if(issimulatedturf(TF))
			var/datum/milla_safe/snow_machine_cooling/milla = new()
			milla.invoke_async(src, cooling_speed)
		if(prob(50))
			continue
		make_snowcloud(TF)

/datum/milla_safe/snow_machine_cooling

/datum/milla_safe/snow_machine_cooling/on_run(obj/machinery/snow_machine/snowy, modifier)
	var/turf/T = get_turf(snowy)
	var/datum/gas_mixture/env = get_turf_air(T)

	if(!issimulatedturf(T) || T.density)
		return

	var/initial_temperature = env.temperature()
	if(initial_temperature <= snowy.lower_temperature_limit) //Can we actually cool this?
		return
	var/old_thermal_energy = env.thermal_energy()
	var/amount_cooled = initial_temperature - modifier * 8000 / env.heat_capacity()
	env.set_temperature(max(amount_cooled, snowy.lower_temperature_limit))
	var/new_thermal_energy = env.thermal_energy()
	snowy.power_used_this_cycle += (old_thermal_energy - new_thermal_energy) / 100

/obj/machinery/snow_machine/power_change()
	if(!..())
		return
	if(stat & NOPOWER)
		turn_on_or_off(FALSE, TRUE)
	update_icon(UPDATE_ICON_STATE)

/obj/machinery/snow_machine/update_icon_state()
	if(panel_open)
		icon_state = "snow_machine_openpanel"
	else
		icon_state = "snow_machine_[active ? "on" : "off"]"

/obj/machinery/snow_machine/proc/make_snowcloud(turf/T)
	if(isspaceturf(T))
		return
	if(T.density)
		return
	if(T.get_readonly_air().temperature() > T0C + 1)
		return
	if(locate(/obj/effect/snowcloud, T)) //Ice to see you
		return
	if(infinite_snow || !reagents.remove_reagent(reagents.get_master_reagent_id(), 3))
		new /obj/effect/snowcloud(T, src)
		power_used_this_cycle += 1000
		return TRUE

/obj/machinery/snow_machine/proc/turn_on_or_off(activate, give_message = FALSE)
	active = activate ? TRUE : FALSE
	if(!active && give_message)
		visible_message(SPAN_WARNING("[src] switches off!"))
		playsound(loc, 'sound/machines/buzz-sigh.ogg', 50, FALSE)
	update_icon(UPDATE_ICON_STATE)
	return TRUE