/obj/machinery/space_heater
anchored = 0
density = 1
icon = 'icons/obj/atmos.dmi'
icon_state = "sheater0"
name = "space heater"
desc = "Made by Space Amish using traditional space techniques, this heater is guaranteed not to set the station on fire."
var/obj/item/weapon/cell/cell
var/cell_type = /obj/item/weapon/cell/high
var/on = 0
var/set_temperature = T0C + 20 //K
var/heating_power = 40000
clicksound = "switch"
/obj/machinery/space_heater/New()
..()
if(cell_type)
cell = new cell_type(src)
update_icon()
/obj/machinery/space_heater/update_icon()
overlays.Cut()
icon_state = "sheater[on]"
if(panel_open)
overlays += "sheater-open"
if(on)
set_light(3, 3, "#FFCC00")
else
set_light(0)
/obj/machinery/space_heater/examine(mob/user)
. = ..()
. += "The heater is [on ? "on" : "off"] and the hatch is [panel_open ? "open" : "closed"]."
if(panel_open)
. += "The power cell is [cell ? "installed" : "missing"]."
else
. += "The charge meter reads [cell ? round(cell.percent(),1) : 0]%"
return
/obj/machinery/space_heater/powered()
if(cell && cell.charge)
return 1
return 0
/obj/machinery/space_heater/emp_act(severity)
if(stat & (BROKEN|NOPOWER))
..(severity)
return
if(cell)
cell.emp_act(severity)
..(severity)
/obj/machinery/space_heater/attackby(obj/item/I, mob/user)
if(istype(I, /obj/item/weapon/cell))
if(panel_open)
if(cell)
to_chat(user, "There is already a power cell inside.")
return
else
// insert cell
var/obj/item/weapon/cell/C = usr.get_active_hand()
if(istype(C))
user.drop_item()
cell = C
C.loc = src
C.add_fingerprint(usr)
user.visible_message("[user] inserts a power cell into [src].", "You insert the power cell into [src].")
power_change()
else
to_chat(user, "The hatch must be open to insert a power cell.")
return
else if(I.is_screwdriver())
panel_open = !panel_open
playsound(src, I.usesound, 50, 1)
user.visible_message("[user] [panel_open ? "opens" : "closes"] the hatch on the [src].", "You [panel_open ? "open" : "close"] the hatch on the [src].")
update_icon()
if(!panel_open && user.machine == src)
user << browse(null, "window=spaceheater")
user.unset_machine()
else
..()
return
/obj/machinery/space_heater/attack_hand(mob/user as mob)
add_fingerprint(user)
interact(user)
/obj/machinery/space_heater/interact(mob/user as mob)
if(panel_open)
var/dat
dat = "Power cell: "
if(cell)
dat += "Installed
"
else
dat += "Removed
"
dat += "Power Level: [cell ? round(cell.percent(),1) : 0]%
"
dat += "Set Temperature: "
dat += "-"
dat += " [set_temperature]K ([set_temperature-T0C]°C)"
dat += "+
"
user.set_machine(src)
user << browse("Space Heater Control Panel[dat]", "window=spaceheater")
onclose(user, "spaceheater")
else
on = !on
user.visible_message("[user] switches [on ? "on" : "off"] the [src].","You switch [on ? "on" : "off"] the [src].")
update_icon()
return
/obj/machinery/space_heater/Topic(href, href_list)
if(usr.stat)
return
if((in_range(src, usr) && istype(src.loc, /turf)) || (istype(usr, /mob/living/silicon)))
usr.set_machine(src)
switch(href_list["op"])
if("temp")
var/value = text2num(href_list["val"])
// limit to 0-90 degC
set_temperature = dd_range(T0C, T0C + 90, set_temperature + value)
if("cellremove")
if(panel_open && cell && !usr.get_active_hand())
usr.visible_message("\The [usr] removes \the [cell] from \the [src].", "You remove \the [cell] from \the [src].")
cell.update_icon()
usr.put_in_hands(cell)
cell.add_fingerprint(usr)
cell = null
power_change()
if("cellinstall")
if(panel_open && !cell)
var/obj/item/weapon/cell/C = usr.get_active_hand()
if(istype(C))
usr.drop_item()
cell = C
C.loc = src
C.add_fingerprint(usr)
power_change()
usr.visible_message("[usr] inserts \the [C] into \the [src].", "You insert \the [C] into \the [src].")
updateDialog()
else
usr << browse(null, "window=spaceheater")
usr.unset_machine()
return
/obj/machinery/space_heater/process()
if(on)
if(cell && cell.charge)
var/datum/gas_mixture/env = loc.return_air()
if(env && abs(env.temperature - set_temperature) > 0.1)
var/transfer_moles = 0.25 * env.total_moles
var/datum/gas_mixture/removed = env.remove(transfer_moles)
if(removed)
var/heat_transfer = removed.get_thermal_energy_change(set_temperature)
if(heat_transfer > 0) //heating air
heat_transfer = min(heat_transfer , heating_power) //limit by the power rating of the heater
removed.add_thermal_energy(heat_transfer)
cell.use(heat_transfer*CELLRATE)
else //cooling air
heat_transfer = abs(heat_transfer)
//Assume the heat is being pumped into the hull which is fixed at 20 C
var/cop = removed.temperature/T20C //coefficient of performance from thermodynamics -> power used = heat_transfer/cop
heat_transfer = min(heat_transfer, cop * heating_power) //limit heat transfer by available power
heat_transfer = removed.add_thermal_energy(-heat_transfer) //get the actual heat transfer
var/power_used = abs(heat_transfer)/cop
cell.use(power_used*CELLRATE)
env.merge(removed)
else
on = 0
power_change()
update_icon()