/* Every cycle, the pump uses the air in air_in to try and make air_out the perfect pressure. node1, air1, network1 correspond to input node2, air2, network2 correspond to output Thus, the two variables affect pump operation are set in New(): air1.volume This is the volume of gas available to the pump that may be transfered to the output air2.volume Higher quantities of this cause more air to be perfected later but overall network volume is also increased as this increases... */ obj/machinery/atmospherics/binary/pump icon = 'pump.dmi' icon_state = "intact_off" name = "Gas pump" desc = "A pump" var/on = 0 var/target_pressure = ONE_ATMOSPHERE attack_hand(mob/user) on = !on update_icon() update_icon() if(node1&&node2) icon_state = "intact_[on?("on"):("off")]" else if(node1) icon_state = "exposed_1_off" else if(node2) icon_state = "exposed_2_off" else icon_state = "exposed_3_off" on = 0 return process() ..() if(!on) return 0 var/output_starting_pressure = air2.return_pressure() if(output_starting_pressure >= target_pressure) //No need to pump gas if target is already reached! return 1 //Calculate necessary moles to transfer using PV=nRT if((air1.total_moles() > 0) && (air1.temperature>0)) var/pressure_delta = target_pressure - output_starting_pressure var/transfer_moles = pressure_delta*air2.volume/(air1.temperature * R_IDEAL_GAS_EQUATION) //Actually transfer the gas var/datum/gas_mixture/removed = air1.remove(transfer_moles) air2.merge(removed) if(network1) network1.update = 1 if(network2) network2.update = 1 return 1 //Radio remote control proc set_frequency(new_frequency) radio_controller.remove_object(src, "[frequency]") frequency = new_frequency if(frequency) radio_connection = radio_controller.add_object(src, "[frequency]") broadcast_status() if(!radio_connection) return 0 var/datum/signal/signal = new signal.transmission_method = 1 //radio signal signal.source = src signal.data["tag"] = id signal.data["device"] = "AGP" signal.data["power"] = on signal.data["target_output"] = target_pressure radio_connection.post_signal(src, signal) return 1 var/frequency = 0 var/id = null var/datum/radio_frequency/radio_connection initialize() ..() if(frequency) set_frequency(frequency) receive_signal(datum/signal/signal) if(signal.data["tag"] && (signal.data["tag"] != id)) return 0 switch(signal.data["command"]) if("power_on") on = 1 if("power_off") on = 0 if("power_toggle") on = !on if("set_output_pressure") var/number = text2num(signal.data["parameter"]) number = min(max(number, 0), ONE_ATMOSPHERE*50) target_pressure = number if(signal.data["tag"]) spawn(5) broadcast_status() update_icon()