Paradise/code/modules/atmospherics/machinery/components/binary_devices/circulator.dm

/obj/machinery/atmospherics/binary/circulator
	name = "circulator/heat exchanger"
	desc = "A gas circulator pump and heat exchanger. Its input port is on the south side, and its output port is on the north side."
	icon = 'icons/obj/atmospherics/circulator.dmi'
	icon_state = "circ1-off"

	var/side = CIRC_LEFT

	var/last_pressure_delta = 0

	var/obj/machinery/power/generator/generator

	anchored = TRUE
	density = TRUE

	can_unwrench = TRUE
	var/side_inverted = FALSE

	var/light_range_on = 1
	var/light_power_on = 0.1 //just dont want it to be culled by byond.

/obj/machinery/atmospherics/binary/circulator/detailed_examine()
	return "This generates electricity, depending on the difference in temperature between each side of the machine. The meter in \
			the center of the machine gives an indicator of how much electricity is being generated."

// Creating a custom circulator pipe subtype to be delivered through cargo
/obj/item/pipe/circulator
	name = "circulator/heat exchanger fitting"

/obj/item/pipe/circulator/Initialize(mapload, pipe_type, dir, obj/machinery/atmospherics/make_from)
	. = ..(make_from = new /obj/machinery/atmospherics/binary/circulator(null))

/obj/machinery/atmospherics/binary/circulator/Destroy()
	if(generator && generator.cold_circ == src)
		generator.cold_circ = null

	else if(generator && generator.hot_circ == src)
		generator.hot_circ = null

	return ..()

/obj/machinery/atmospherics/binary/circulator/proc/return_transfer_air()
	var/datum/gas_mixture/inlet = get_inlet_air()
	var/datum/gas_mixture/outlet = get_outlet_air()
	var/output_starting_pressure = outlet.return_pressure()
	var/input_starting_pressure = inlet.return_pressure()

	if(output_starting_pressure >= input_starting_pressure - 10)
		//Need at least 10 KPa difference to overcome friction in the mechanism
		last_pressure_delta = 0
		update_icon()
		return null

	//Calculate necessary moles to transfer using PV = nRT
	if(inlet.temperature > 0)
		var/pressure_delta = (input_starting_pressure - output_starting_pressure) / 2

		var/transfer_moles = pressure_delta * outlet.volume/(inlet.temperature * R_IDEAL_GAS_EQUATION)

		if(last_pressure_delta != pressure_delta)
			last_pressure_delta = pressure_delta
			update_icon()

		//log_debug("pressure_delta = [pressure_delta]; transfer_moles = [transfer_moles];")

		//Actually transfer the gas
		var/datum/gas_mixture/removed = inlet.remove(transfer_moles)

		parent1.update = 1
		parent2.update = 1

		return removed

	else
		last_pressure_delta = 0
		update_icon()

/obj/machinery/atmospherics/binary/circulator/proc/get_inlet_air()
	if(side_inverted)
		return air1
	else
		return air2

/obj/machinery/atmospherics/binary/circulator/proc/get_outlet_air()
	if(side_inverted)
		return air2
	else
		return air1

/obj/machinery/atmospherics/binary/circulator/proc/get_inlet_side()
	if(dir==SOUTH||dir==NORTH)
		if(side_inverted)
			return "North"
		else
			return "South"

/obj/machinery/atmospherics/binary/circulator/proc/get_outlet_side()
	if(dir==SOUTH||dir==NORTH)
		if(side_inverted)
			return "South"
		else
			return "North"

/obj/machinery/atmospherics/binary/circulator/multitool_act(mob/user, obj/item/I)
	. = TRUE
	if(!I.use_tool(src, user, 0, volume = I.tool_volume))
		return
	side_inverted = !side_inverted
	to_chat(user, "<span class='notice'>You reverse the circulator's valve settings. The inlet of the circulator is now on the [get_inlet_side(dir)] side.</span>")
	update_appearance(UPDATE_DESC|UPDATE_ICON)

/obj/machinery/atmospherics/binary/circulator/update_desc()
	. = ..()
	desc = "A gas circulator pump and heat exchanger. Its input port is on the [get_inlet_side(dir)] side, and its output port is on the [get_outlet_side(dir)] side."

/obj/machinery/atmospherics/binary/circulator/update_icon_state() //this gets called everytime atmos is updated in the circulator (alot)
	if(stat & (BROKEN|NOPOWER))
		icon_state = "circ[side]-p"
		return
	if(last_pressure_delta > 0)
		if(last_pressure_delta > ONE_ATMOSPHERE)
			icon_state = "circ[side]-run"
		else
			icon_state = "circ[side]-slow"
	else
		icon_state = "circ[side]-off"

/obj/machinery/atmospherics/binary/circulator/update_overlays()
	. = ..()
	if(!side_inverted)
		. += "in_up"
	else
		. += "in_down"

	if(node2)
		var/image/new_pipe_overlay = image(icon, "connected")
		new_pipe_overlay.color = node2.pipe_color
		. += new_pipe_overlay
	else
		. += "disconnected"

	if(stat & (BROKEN|NOPOWER) && !light)
		return
	if(last_pressure_delta > 0)
		if(last_pressure_delta > ONE_ATMOSPHERE)
			. += emissive_appearance(icon,"emit[side]-run")
		else
			. += emissive_appearance(icon,"emit[side]-slow")
	else
		. += emissive_appearance(icon,"emit[side]-off")

/obj/machinery/atmospherics/binary/circulator/power_change()
	. = ..()
	if(stat & (BROKEN|NOPOWER))
		set_light(0)
	else
		set_light(light_range_on, light_power_on)
	update_icon()

/obj/machinery/atmospherics/binary/circulator/update_underlays()
	. = ..()
	update_icon()