cyberpresidentvanellope/CHOMPStation2
1
0
Fork 0
mirror of https://github.com/CHOMPStation2/CHOMPStation2.git synced 2025-12-10 18:22:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Heaters/Freezers, Cryo

Browse Source
This commit is contained in:
mwerezak
2014-09-13 02:18:48 -04:00
parent 52cdccb460
commit 764ca0874d
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
code/ATMOSPHERICS/components/unary/cold_sink.dm
View File

@@ -1,4 +1,5 @@
//TODO: Put this under a common parent type with heaters to cut down on the copypasta
#define FREEZER_PERF_MULT 2.5
/obj/machinery/atmospherics/unary/freezer
name = "gas cooling system"
@@ -9,7 +10,7 @@
anchored = 1.0
var/heatsink_temperature = 70 //T20C //the constant temperature resevoir into which the freezer pumps heat. Probably the hull of the station or something.
var/heatsink_temperature = T20C //the constant temperature resevoir into which the freezer pumps heat. Probably the hull of the station or something.
var/internal_volume = 600 //L
var/on = 0
@@ -17,7 +18,7 @@
idle_power_usage = 5 //5 Watts for thermostat related circuitry
active_power_usage //50 kW. The power rating of the freezer
var/max_power_usage = 5000 //power rating when the usage is turned up to 1 //Reduced to 5kW for usability.
var/max_power_usage = 20000 //power rating when the usage is turned up to 100
var/power_setting = 100
var/set_temperature = T20C //thermostat
@@ -135,9 +136,8 @@
//Assume the heat is being pumped into the hull which is fixed at heatsink_temperature
//not /really/ proper thermodynamics but whatever
var/cop = air_contents.temperature/heatsink_temperature //heatpump coefficient of performance from thermodynamics -> power used = heat_transfer/cop
var/cop = FREEZER_PERF_MULT * air_contents.temperature/heatsink_temperature //heatpump coefficient of performance from thermodynamics -> power used = heat_transfer/cop
heat_transfer = min(heat_transfer, cop * active_power_usage) //limit heat transfer by available power
heat_transfer *= 10 //Temp fix for cryo being unusable.
var/removed = -air_contents.add_thermal_energy(-heat_transfer) //remove the heat
if (debug)

2
code/ATMOSPHERICS/components/unary/heat_source.dm
View File

@@ -18,7 +18,7 @@
idle_power_usage = 5 //5 Watts for thermostat related circuitry
active_power_usage //50 kW. The power rating of the heater
var/max_power_usage = 50000 //power rating when the usage is turned up to 1
var/max_power_usage = 20000 //power rating when the usage is turned up to 100
var/power_setting = 100
var/heating = 0 //mainly for icon updates

4
code/game/machinery/cryo.dm
View File

@@ -1,4 +1,4 @@
#define HEAT_CAPACITY_HUMAN 24984 //249840 J/K, for a 72 kg person. Making this one-tenth of that as a quick workaround for cryo not cooling people enough.
#define HEAT_CAPACITY_HUMAN 100 //249840 J/K, for a 72 kg person.
/obj/machinery/atmospherics/unary/cryo_cell
name = "cryo cell"
@@ -45,7 +45,7 @@
if(air_contents)
temperature_archived = air_contents.temperature
//heat_gas_contents()
heat_gas_contents()
expel_gas()
if(abs(temperature_archived-air_contents.temperature) > 1)