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

Atmos Alarms now work awesome.

Browse Source
This commit is contained in:
SkyMarshal
2012-06-20 16:41:50 -07:00
parent 5ac37c7a78
commit c2163b1f20
5 changed files with 361 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

126
code/ATMOSPHERICS/components/unary/vent_pump.dm
View File

@@ -24,6 +24,12 @@
var/welded = 0 // Added for aliens -- TLE var/welded = 0 // Added for aliens -- TLE
var/frequency = 1439
var/datum/radio_frequency/radio_connection
var/radio_filter_out
var/radio_filter_in
New() New()
var/area/A = get_area(loc) var/area/A = get_area(loc)
if (A.master) if (A.master)
@@ -37,22 +43,14 @@
broadcast_status() broadcast_status()
..() ..()
Del()
var/area/alarm_area = get_area(src)
if(alarm_area && "\"[id_tag]\"" in alarm_area.master.air_vents)
alarm_area.master.air_vents.Remove("\"[id_tag]\"")
..()
high_volume high_volume
name = "Large Air Vent" name = "Large Air Vent"
power_channel = EQUIP
New() New()
..() ..()
air_contents.volume = 1000 air_contents.volume = 1000
initialize()
spawn(20)
broadcast_status()
update_icon() update_icon()
if(welded) if(welded)
@@ -70,7 +68,7 @@
process() process()
..() ..()
broadcast_status() // broadcast_status()
if(stat & (NOPOWER|BROKEN)) if(stat & (NOPOWER|BROKEN))
return return
if (!node) if (!node)
@@ -129,73 +127,99 @@
//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,radio_filter_in)
proc/broadcast_status() proc/broadcast_status()
var/area/alarm_area = get_area(src) if(!radio_connection)
if(alarm_area.master.master_air_alarm) return 0
if(!id_tag)
if(alarm_area.master.master_air_alarm) var/datum/signal/signal = new
alarm_area.master.master_air_alarm.register_env_machine(src) signal.transmission_method = 1 //radio signal
world << "No ID, air alarm. New ID = [id_tag]" signal.source = src
else
world << "No ID, no air alarm." signal.data = list(
else if(!"\"[id_tag]\"" in alarm_area.air_vents) "area" = src.area_uid,
if(alarm_area.master.master_air_alarm) "tag" = src.id_tag,
alarm_area.master.master_air_alarm.register_env_machine(src) "device" = "AVP",
world << "ID, air alarm. New ID = [id_tag]" "power" = on,
else "direction" = pump_direction?("release"):("siphon"),
world << "ID = [id_tag], no air alarm." "checks" = pressure_checks,
else if(stat & (NOPOWER|BROKEN)) "internal" = internal_pressure_bound,
alarm_area.master.air_vents.Remove("\"[id_tag]\"") "external" = external_pressure_bound,
world << "Broken" "timestamp" = world.time,
else "sigtype" = "status",
world << "Trying to register (No alarm)" "setting" = pump_speed
)
radio_connection.post_signal(src, signal, radio_filter_out)
return 1
proc/receive(var/list/signal) initialize()
..()
//some vents work his own spesial way
radio_filter_in = frequency==1439?(RADIO_FROM_AIRALARM):null
radio_filter_out = frequency==1439?(RADIO_TO_AIRALARM):null
if(frequency)
set_frequency(frequency)
receive_signal(datum/signal/signal)
if(stat & (NOPOWER|BROKEN)) if(stat & (NOPOWER|BROKEN))
return return
//log_admin("DEBUG \[[world.timeofday]\]: /obj/machinery/atmospherics/unary/vent_pump/receive_signal([signal.debug_print()])")
if(!signal.data["tag"] || (signal.data["tag"] != id_tag) || (signal.data["sigtype"]!="command"))
return 0
if("purge" in signal) if("purge" in signal.data)
pressure_checks &= ~1 pressure_checks &= ~1
pump_direction = 0 pump_direction = 0
if("stabalize" in signal) if("stabalize" in signal.data)
pressure_checks |= 1 pressure_checks |= 1
pump_direction = 1 pump_direction = 1
if("power" in signal) if("power" in signal.data)
on = text2num(signal["power"]) on = text2num(signal.data["power"])
if("power_toggle" in signal) if("power_toggle" in signal.data)
on = !on on = !on
if("checks" in signal) if("checks" in signal.data)
pressure_checks = text2num(signal["checks"]) pressure_checks = text2num(signal.data["checks"])
if("checks_toggle" in signal) if("checks_toggle" in signal.data)
pressure_checks = (pressure_checks?0:3) pressure_checks = (pressure_checks?0:3)
if("direction" in signal) if("direction" in signal)
pump_direction = text2num(signal["direction"]) pump_direction = text2num(signal.data["direction"])
if("set_internal_pressure" in signal) if("set_internal_pressure" in signal.data)
internal_pressure_bound = between(0, text2num(signal["set_internal_pressure"]), ONE_ATMOSPHERE*50) internal_pressure_bound = between(0, text2num(signal.data["set_internal_pressure"]), ONE_ATMOSPHERE*50)
if("set_external_pressure" in signal) if("set_external_pressure" in signal.data)
external_pressure_bound = between(0, text2num(signal["set_external_pressure"]), ONE_ATMOSPHERE*50) external_pressure_bound = between(0, text2num(signal.data["set_external_pressure"]), ONE_ATMOSPHERE*50)
if("adjust_internal_pressure" in signal) if("adjust_internal_pressure" in signal.data)
internal_pressure_bound = between(0, text2num(signal["adjust_internal_pressure"]), ONE_ATMOSPHERE*50) internal_pressure_bound = between(0, text2num(signal.data["adjust_internal_pressure"]), ONE_ATMOSPHERE*50)
if("adjust_external_pressure" in signal) if("adjust_external_pressure" in signal.data)
external_pressure_bound = between(0, text2num(signal["adjust_external_pressure"]), ONE_ATMOSPHERE*50) external_pressure_bound = between(0, text2num(signal.data["adjust_external_pressure"]), ONE_ATMOSPHERE*50)
if("init" in signal) if("init" in signal.data)
name = signal["init"] name = signal.data["init"]
return return
if("setting" in signal) if("setting" in signal.data)
pump_speed = text2num(signal["setting"]) pump_speed = text2num(signal.data["setting"])
//log_admin("DEBUG \[[world.timeofday]\]: vent_pump/receive_signal: unknown command \"[signal["command"]]\"\n[signal.debug_print()]") //log_admin("DEBUG \[[world.timeofday]\]: vent_pump/receive_signal: unknown command \"[signal["command"]]\"\n[signal.debug_print()]")
spawn(2) spawn(2)

120
code/ATMOSPHERICS/components/unary/vent_scrubber.dm
View File

@@ -20,6 +20,12 @@
var/panic = 0 //is this scrubber panicked? var/panic = 0 //is this scrubber panicked?
var/area_uid var/area_uid
var/frequency = 1439
var/datum/radio_frequency/radio_connection
var/radio_filter_out
var/radio_filter_in
New() New()
var/area/A = get_area(loc) var/area/A = get_area(loc)
if (A.master) if (A.master)
@@ -33,16 +39,6 @@
broadcast_status() broadcast_status()
..() ..()
Del()
var/area/alarm_area = get_area(src)
if(alarm_area && "\"[id_tag]\"" in alarm_area.master.air_scrubbers)
alarm_area.master.air_scrubbers.Remove("\"[id_tag]\"")
..()
initialize()
spawn(20)
broadcast_status()
update_icon() update_icon()
if(node && on && !(stat & (NOPOWER|BROKEN))) if(node && on && !(stat & (NOPOWER|BROKEN)))
if(scrubbing) if(scrubbing)
@@ -53,22 +49,46 @@
icon_state = "[level == 1 && istype(loc, /turf/simulated) ? "h" : "" ]off" icon_state = "[level == 1 && istype(loc, /turf/simulated) ? "h" : "" ]off"
return return
proc/broadcast_status() proc
var/area/alarm_area = get_area(src) set_frequency(new_frequency)
if(alarm_area.master.master_air_alarm) radio_controller.remove_object(src, frequency)
if(!id_tag) frequency = new_frequency
if(alarm_area.master.master_air_alarm) radio_connection = radio_controller.add_object(src, frequency, radio_filter_in)
alarm_area.master.master_air_alarm.register_env_machine(src)
else if(!"\"[id_tag]\"" in alarm_area.air_scrubbers) broadcast_status()
if(alarm_area.master.master_air_alarm) if(!radio_connection)
alarm_area.master.master_air_alarm.register_env_machine(src) return 0
else if(stat & (NOPOWER|BROKEN))
alarm_area.master.air_scrubbers.Remove("\"[id_tag]\"") var/datum/signal/signal = new
return signal.transmission_method = 1 //radio signal
signal.source = src
signal.data = list(
"area" = area_uid,
"tag" = id_tag,
"device" = "AScr",
"timestamp" = world.time,
"power" = on,
"scrubbing" = scrubbing,
"panic" = panic,
"filter_co2" = scrub_CO2,
"filter_toxins" = scrub_Toxins,
"filter_n2o" = scrub_N2O,
"sigtype" = "status"
)
radio_connection.post_signal(src, signal, radio_filter_out)
return 1
initialize()
..()
radio_filter_in = frequency==initial(frequency)?(RADIO_FROM_AIRALARM):null
radio_filter_out = frequency==initial(frequency)?(RADIO_TO_AIRALARM):null
if (frequency)
set_frequency(frequency)
process() process()
..() ..()
broadcast_status() // broadcast_status()
if(stat & (NOPOWER|BROKEN)) if(stat & (NOPOWER|BROKEN))
return return
if (!node) if (!node)
@@ -142,17 +162,19 @@
return return
*/ */
proc/receive(var/list/signal) receive_signal(datum/signal/signal)
if(stat & (NOPOWER|BROKEN)) if(stat & (NOPOWER|BROKEN))
return return
if(!signal.data["tag"] || (signal.data["tag"] != id_tag) || (signal.data["sigtype"]!="command"))
return 0
if("power" in signal) if("power" in signal.data)
on = text2num(signal["power"]) on = text2num(signal.data["power"])
if("power_toggle" in signal) if("power_toggle" in signal.data)
on = !on on = !on
if("panic_siphon" in signal) //must be before if("scrubbing" thing if("panic_siphon" in signal.data) //must be before if("scrubbing" thing
panic = text2num(signal["panic_siphon"]) panic = text2num(signal.data["panic_siphon"])
if(panic) if(panic)
on = 1 on = 1
scrubbing = 0 scrubbing = 0
@@ -160,7 +182,7 @@
else else
scrubbing = 1 scrubbing = 1
volume_rate = initial(volume_rate) volume_rate = initial(volume_rate)
if("toggle_panic_siphon" in signal) if("toggle_panic_siphon" in signal.data)
panic = !panic panic = !panic
if(panic) if(panic)
on = 1 on = 1
@@ -170,33 +192,39 @@
scrubbing = 1 scrubbing = 1
volume_rate = initial(volume_rate) volume_rate = initial(volume_rate)
if("scrubbing" in signal) if("scrubbing" in signal.data)
scrubbing = text2num(signal["scrubbing"]) scrubbing = text2num(signal.data["scrubbing"])
if("toggle_scrubbing" in signal) if("toggle_scrubbing" in signal.data)
scrubbing = !scrubbing scrubbing = !scrubbing
if("co2_scrub" in signal) if("co2_scrub" in signal.data)
scrub_CO2 = text2num(signal["co2_scrub"]) scrub_CO2 = text2num(signal.data["co2_scrub"])
if("toggle_co2_scrub" in signal) if("toggle_co2_scrub" in signal.data)
scrub_CO2 = !scrub_CO2 scrub_CO2 = !scrub_CO2
if("tox_scrub" in signal) if("tox_scrub" in signal.data)
scrub_Toxins = text2num(signal["tox_scrub"]) scrub_Toxins = text2num(signal.data["tox_scrub"])
if("toggle_tox_scrub" in signal) if("toggle_tox_scrub" in signal.data)
scrub_Toxins = !scrub_Toxins scrub_Toxins = !scrub_Toxins
if("n2o_scrub" in signal) if("n2o_scrub" in signal.data)
scrub_N2O = text2num(signal["n2o_scrub"]) scrub_N2O = text2num(signal.data["n2o_scrub"])
if("toggle_n2o_scrub" in signal) if("toggle_n2o_scrub" in signal.data)
scrub_N2O = !scrub_N2O scrub_N2O = !scrub_N2O
if("init" in signal) if("init" in signal.data)
name = signal["init"] name = signal.data["init"]
return return
if("setting" in signal) if("status" in signal.data)
scrub_rate = text2num(signal["setting"]) spawn(2)
broadcast_status()
return //do not update_icon
if("setting" in signal.data)
scrub_rate = text2num(signal.data["setting"])
// log_admin("DEBUG \[[world.timeofday]\]: vent_scrubber/receive_signal: unknown command \"[signal.data["command"]]\"\n[signal.debug_print()]")
spawn(2) spawn(2)
broadcast_status() broadcast_status()
update_icon() update_icon()

58
code/WorkInProgress/Mini/atmos_control.dm
View File

@@ -63,7 +63,7 @@
"panic_siphon", "panic_siphon",
"scrubbing" "scrubbing"
) )
current.send(device_id, list (href_list["command"] = text2num(href_list["val"]))) current.send_signal(device_id, list (href_list["command"] = text2num(href_list["val"])))
spawn(3) spawn(3)
src.updateUsrDialog() src.updateUsrDialog()
//if("adjust_threshold") //was a good idea but required very wide window //if("adjust_threshold") //was a good idea but required very wide window
@@ -156,19 +156,24 @@
output += "<A href='?src=\ref[src];alarm=\ref[current];mode=[AALARM_MODE_PANIC]'><font color='red'><B>ACTIVATE PANIC SYPHON IN AREA</B></font></A>" output += "<A href='?src=\ref[src];alarm=\ref[current];mode=[AALARM_MODE_PANIC]'><font color='red'><B>ACTIVATE PANIC SYPHON IN AREA</B></font></A>"
if (AALARM_SCREEN_VENT) if (AALARM_SCREEN_VENT)
var/sensor_data = "" var/sensor_data = ""
if(current.alarm_area.air_vents.len) if(current.alarm_area.air_vent_names.len)
for(var/id_tag in current.alarm_area.air_vents) for(var/id_tag in current.alarm_area.air_vent_names)
var/obj/machinery/atmospherics/unary/vent_pump/data = current.alarm_area.air_vents[id_tag] var/long_name = current.alarm_area.air_vent_names[id_tag]
var/list/data = current.alarm_area.air_vent_info[id_tag]
var/state = ""
if(!data) if(!data)
continue state = "<font color='red'> can not be found!</font>"
data = list("external" = 0) //for "0" instead of empty string
else if (data["timestamp"]+AALARM_REPORT_TIMEOUT < world.time)
state = "<font color='red'> not responding!</font>"
sensor_data += {" sensor_data += {"
<B>[id_tag]</B><BR> <B>[long_name]</B>[state]<BR>
<B>Operating:</B> <B>Operating:</B>
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=power;val=[!data.on]'>[data.on?"on":"off"]</A> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=power;val=[!data["power"]]'>[data["power"]?"on":"off"]</A>
<BR> <BR>
<B>Pressure checks:</B> <B>Pressure checks:</B>
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=checks;val=[data.pressure_checks^1]' [(data.pressure_checks&1)?"style='font-weight:bold;'":""]>external</A> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=checks;val=[data["checks"]^1]' [(data["checks"]&1)?"style='font-weight:bold;'":""]>external</A>
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=checks;val=[data.pressure_checks^2]' [(data.pressure_checks&2)?"style='font-weight:bold;'":""]>internal</A> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=checks;val=[data["checks"]^2]' [(data["checks"]&2)?"style='font-weight:bold;'":""]>internal</A>
<BR> <BR>
<B>External pressure bound:</B> <B>External pressure bound:</B>
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=adjust_external_pressure;val=-1000'>-</A> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=adjust_external_pressure;val=-1000'>-</A>
@@ -182,7 +187,7 @@
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=adjust_external_pressure;val=+1000'>+</A> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=adjust_external_pressure;val=+1000'>+</A>
<BR> <BR>
"} "}
if (!data.pump_direction) if (data["direction"] == "siphon")
sensor_data += {" sensor_data += {"
<B>Direction:</B> <B>Direction:</B>
siphoning siphoning
@@ -194,34 +199,39 @@ siphoning
output = {"<a href='?src=\ref[src];alarm=\ref[current];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br>[sensor_data]"} output = {"<a href='?src=\ref[src];alarm=\ref[current];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br>[sensor_data]"}
if (AALARM_SCREEN_SCRUB) if (AALARM_SCREEN_SCRUB)
var/sensor_data = "" var/sensor_data = ""
if(current.alarm_area.air_scrubbers.len) if(current.alarm_area.air_scrub_names.len)
for(var/id_tag in current.alarm_area.air_scrubbers) for(var/id_tag in current.alarm_area.air_scrub_names)
var/obj/machinery/atmospherics/unary/vent_scrubber/data = current.alarm_area.air_scrubbers[id_tag] var/long_name = current.alarm_area.air_scrub_names[id_tag]
var/list/data = current.alarm_area.air_scrub_info[id_tag]
var/state = ""
if(!data) if(!data)
continue state = "<font color='red'> can not be found!</font>"
data = list("external" = 0) //for "0" instead of empty string
else if (data["timestamp"]+AALARM_REPORT_TIMEOUT < world.time)
state = "<font color='red'> not responding!</font>"
sensor_data += {" sensor_data += {"
<B>[id_tag]</B><BR> <B>[long_name]</B>[state]<BR>
<B>Operating:</B> <B>Operating:</B>
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=power;val=[!data.on]'>[data.on?"on":"off"]</A><BR> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=power;val=[!data["power"]]'>[data["power"]?"on":"off"]</A><BR>
<B>Type:</B> <B>Type:</B>
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=scrubbing;val=[!data.scrubbing]'>[data.scrubbing?"scrubbing":"syphoning"]</A><BR> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=scrubbing;val=[!data["scrubbing"]]'>[data["scrubbing"]?"scrubbing":"syphoning"]</A><BR>
"} "}
if(data["scrubbing"]) if(data["scrubbing"])
sensor_data += {" sensor_data += {"
<B>Filtering:</B> <B>Filtering:</B>
Carbon Dioxide Carbon Dioxide
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=co2_scrub;val=[!data.scrub_CO2]'>[data.scrub_CO2?"on":"off"]</A>; <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=co2_scrub;val=[!data["filter_co2"]]'>[data["filter_co2"]?"on":"off"]</A>;
Toxins Toxins
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=tox_scrub;val=[!data.scrub_Toxins]'>[data.scrub_Toxins?"on":"off"]</A>; <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=tox_scrub;val=[!data["filter_toxins"]]'>[data["filter_toxins"]?"on":"off"]</A>;
Nitrous Oxide Nitrous Oxide
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=n2o_scrub;val=[!data.scrub_N2O]'>[data.scrub_N2O?"on":"off"]</A> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=n2o_scrub;val=[!data["filter_n2o"]]'>[data["filter_n2o"]?"on":"off"]</A>
<BR> <BR>
"} "}
sensor_data += {" sensor_data += {"
<B>Panic syphon:</B> [data.panic?"<font color='red'><B>PANIC SYPHON ACTIVATED</B></font>":""] <B>Panic syphon:</B> [data["panic"]?"<font color='red'><B>PANIC SYPHON ACTIVATED</B></font>":""]
<A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=panic_siphon;val=[!data.panic]'><font color='[(data.panic?"blue'>Dea":"red'>A")]ctivate</font></A><BR> <A href='?src=\ref[src];alarm=\ref[current];id_tag=[id_tag];command=panic_siphon;val=[!data["panic"]]'><font color='[(data["panic"]?"blue'>Dea":"red'>A")]ctivate</font></A><BR>
<HR> <HR>
"} "}
else else
@@ -235,9 +245,9 @@ Nitrous Oxide
var/list/modes = list( var/list/modes = list(
AALARM_MODE_SCRUBBING = "Filtering", AALARM_MODE_SCRUBBING = "Filtering",
AALARM_MODE_PANIC = "<font color='red'>PANIC</font>", AALARM_MODE_PANIC = "<font color='red'>PANIC</font>",
AALARM_MODE_REPLACEMENT = "<font color='red'>REPLACE AIR</font>", AALARM_MODE_CYCLE = "<font color='red'>CYCLE</font>",
AALARM_MODE_FILL = "<font color='red'>FILL</font>", AALARM_MODE_FILL = "<font color='red'>FILL</font>",
AALARM_MODE_CYCLE = "<font color='red'>CYCLE</font>" AALARM_MODE_REPLACEMENT = "<font color='red'>REPLACE AIR</font>",
) )
for (var/m=1,m<=modes.len,m++) for (var/m=1,m<=modes.len,m++)
if (current.mode==m) if (current.mode==m)

18
code/game/communications.dm
View File

@@ -123,14 +123,16 @@ var/NUKE_FREQ = 1200 //Randomised on nuke rounds.
#define TRANSMISSION_RADIO 1 #define TRANSMISSION_RADIO 1
/* filters */ /* filters */
var/const/RADIO_CHAT = "1" var/const/RADIO_TO_AIRALARM = "1"
var/const/RADIO_ATMOSIA = "2" var/const/RADIO_FROM_AIRALARM = "2"
var/const/RADIO_NAVBEACONS = "3" var/const/RADIO_CHAT = "3"
var/const/RADIO_AIRLOCK = "4" var/const/RADIO_ATMOSIA = "4"
var/const/RADIO_SECBOT = "5" var/const/RADIO_NAVBEACONS = "5"
var/const/RADIO_MULEBOT = "6" var/const/RADIO_AIRLOCK = "6"
var/const/RADIO_MAGNETS = "7" var/const/RADIO_SECBOT = "7"
var/const/RADIO_POWER = "8" var/const/RADIO_MULEBOT = "8"
var/const/RADIO_MAGNETS = "9"
var/const/RADIO_POWER = "10"
var/global/datum/controller/radio/radio_controller var/global/datum/controller/radio/radio_controller

277
code/game/machinery/alarm.dm
View File

@@ -46,11 +46,14 @@
#define RCON_AUTO 2 #define RCON_AUTO 2
#define RCON_YES 3 #define RCON_YES 3
//all air alarms in area are connected via magic
//all air alarms in area are connected via magic //all air alarms in area are connected via magic
/area /area
var/obj/machinery/alarm/master_air_alarm var/obj/machinery/alarm/master_air_alarm
var/list/air_vents var/list/air_vent_names
var/list/air_scrubbers var/list/air_scrub_names
var/list/air_vent_info
var/list/air_scrub_info
/obj/machinery/alarm /obj/machinery/alarm
name = "alarm" name = "alarm"
@@ -80,6 +83,8 @@
var/area/alarm_area var/area/alarm_area
var/danger_level = 0 var/danger_level = 0
var/datum/radio_frequency/radio_connection
var/list/TLV = list() var/list/TLV = list()
server/New() server/New()
@@ -110,6 +115,7 @@
TLV["temperature"] = list(T0C, T0C+10, T0C+40, T0C+66) // K TLV["temperature"] = list(T0C, T0C+10, T0C+40, T0C+66) // K
initialize() initialize()
set_frequency(frequency)
if (!master_is_operating()) if (!master_is_operating())
elect_master() elect_master()
@@ -188,9 +194,11 @@
for (var/obj/machinery/alarm/AA in A) for (var/obj/machinery/alarm/AA in A)
if (!(AA.stat & (NOPOWER|BROKEN))) if (!(AA.stat & (NOPOWER|BROKEN)))
alarm_area.master_air_alarm = AA alarm_area.master_air_alarm = AA
if (!alarm_area.air_vents) if (!alarm_area.air_vent_names)
alarm_area.air_vents = list() alarm_area.air_vent_names = new
alarm_area.air_scrubbers = list() alarm_area.air_scrub_names = new
alarm_area.air_vent_info = new
alarm_area.air_scrub_info = new
return 1 return 1
return 0 return 0
@@ -216,58 +224,107 @@
if (2) if (2)
icon_state = "alarm1" icon_state = "alarm1"
proc/send(var/target, var/list/command)//sends signal 'command' to 'target'. Returns 0 if no radio connection, 1 otherwise receive_signal(datum/signal/signal)
if(target in alarm_area.air_vents) if(stat & (NOPOWER|BROKEN))
var/obj/machinery/atmospherics/unary/vent_pump/target_machine = alarm_area.air_vents[target] return
target_machine.receive(command) if (alarm_area.master_air_alarm != src)
if (master_is_operating())
return
elect_master()
if (alarm_area.master_air_alarm != src)
return
if(!signal || signal.encryption)
return
var/id_tag = signal.data["tag"]
if (!id_tag)
return
if (signal.data["area"] != area_uid)
return
if (signal.data["sigtype"] != "status")
return
var/dev_type = signal.data["device"]
if(!(id_tag in alarm_area.air_scrub_names) && !(id_tag in alarm_area.air_vent_names))
register_env_machine(id_tag, dev_type)
if(dev_type == "AScr")
alarm_area.air_scrub_info[id_tag] = signal.data
else if(dev_type == "AVP")
alarm_area.air_vent_info[id_tag] = signal.data
proc/register_env_machine(var/m_id, var/device_type)
var/new_name
if (device_type=="AVP")
new_name = "[alarm_area.name] Vent Pump #[alarm_area.air_vent_names.len+1]"
alarm_area.air_vent_names[m_id] = new_name
else if (device_type=="AScr")
new_name = "[alarm_area.name] Air Scrubber #[alarm_area.air_scrub_names.len+1]"
alarm_area.air_scrub_names[m_id] = new_name
else
return
spawn (10)
send_signal(m_id, list("init" = new_name) )
proc/refresh_all()
for(var/id_tag in alarm_area.air_vent_names)
var/list/I = alarm_area.air_vent_info[id_tag]
if (I && I["timestamp"]+AALARM_REPORT_TIMEOUT/2 > world.time)
continue
send_signal(id_tag, list("status") )
for(var/id_tag in alarm_area.air_scrub_names)
var/list/I = alarm_area.air_scrub_info[id_tag]
if (I && I["timestamp"]+AALARM_REPORT_TIMEOUT/2 > world.time)
continue
send_signal(id_tag, list("status") )
proc/set_frequency(new_frequency)
radio_controller.remove_object(src, frequency)
frequency = new_frequency
radio_connection = radio_controller.add_object(src, frequency, RADIO_TO_AIRALARM)
proc/send_signal(var/target, var/list/command)//sends signal 'command' to 'target'. Returns 0 if no radio connection, 1 otherwise
if(!radio_connection)
return 0
var/datum/signal/signal = new
signal.transmission_method = 1 //radio signal
signal.source = src
signal.data = command
signal.data["tag"] = target
signal.data["sigtype"] = "command"
radio_connection.post_signal(src, signal, RADIO_FROM_AIRALARM)
// world << text("Signal [] Broadcasted to []", command, target)
else if(target in alarm_area.air_scrubbers)
var/obj/machinery/atmospherics/unary/vent_scrubber/target_machine = alarm_area.air_scrubbers[target]
target_machine.receive(command)
return 1 return 1
proc/register_env_machine(var/obj/machinery/source_machine)
if (istype(source_machine, /obj/machinery/atmospherics/unary/vent_pump))
var/new_name = "[alarm_area] Vent Pump #[alarm_area.air_vents.len+1]"
alarm_area.air_vents += "\"[new_name]\""
alarm_area.air_vents["\"[new_name]\""] = source_machine
source_machine:id_tag = new_name
source_machine.name = new_name
else if (istype(source_machine, /obj/machinery/atmospherics/unary/vent_scrubber))
var/new_name = "[alarm_area] Air Scrubber #[alarm_area.air_scrubbers.len+1]"
alarm_area.air_scrubbers += "\"[new_name]\""
alarm_area.air_scrubbers["\"[new_name]\""] = source_machine
source_machine:id_tag = new_name
source_machine.name = new_name
return
proc/apply_mode() proc/apply_mode()
var/current_pressures = TLV["pressure"] var/current_pressures = TLV["pressure"]
var/target_pressure = (current_pressures[2] + current_pressures[3])/2 var/target_pressure = (current_pressures[2] + current_pressures[3])/2
switch(mode) switch(mode)
if(AALARM_MODE_SCRUBBING) if(AALARM_MODE_SCRUBBING)
for(var/device_id in alarm_area.air_scrubbers) for(var/device_id in alarm_area.air_scrub_names)
send(device_id, list("power"= 1, "co2_scrub"= 1, "setting"= 1, "scrubbing"= 1, "panic_siphon"= 0) ) send_signal(device_id, list("power"= 1, "co2_scrub"= 1, "setting"= 1, "scrubbing"= 1, "panic_siphon"= 0) )
for(var/device_id in alarm_area.air_vents) for(var/device_id in alarm_area.air_vent_names)
send(device_id, list("power"= 1, "checks"= 1, "setting"= 1, "set_external_pressure"= target_pressure) ) send_signal(device_id, list("power"= 1, "checks"= 1, "setting"= 1, "set_external_pressure"= target_pressure) )
if(AALARM_MODE_PANIC, AALARM_MODE_CYCLE) if(AALARM_MODE_PANIC, AALARM_MODE_CYCLE)
for(var/device_id in alarm_area.air_scrubbers) for(var/device_id in alarm_area.air_scrub_names)
send(device_id, list("power"= 1, "panic_siphon"= 1) ) send_signal(device_id, list("power"= 1, "panic_siphon"= 1) )
for(var/device_id in alarm_area.air_vents) for(var/device_id in alarm_area.air_vent_names)
send(device_id, list("power"= 0) ) send_signal(device_id, list("power"= 0) )
if(AALARM_MODE_REPLACEMENT) if(AALARM_MODE_REPLACEMENT)
for(var/device_id in alarm_area.air_scrubbers) for(var/device_id in alarm_area.air_scrub_names)
send(device_id, list("power"= 1, "co2_scrub"= 1, "setting"= 2, "scrubbing"= 1, "panic_siphon"= 0) ) send_signal(device_id, list("power"= 1, "co2_scrub"= 1, "setting"= 2, "scrubbing"= 1, "panic_siphon"= 0) )
for(var/device_id in alarm_area.air_vents) for(var/device_id in alarm_area.air_vent_names)
send(device_id, list("power"= 1, "checks"= 1, "setting"= 2, "set_external_pressure"= target_pressure) ) send_signal(device_id, list("power"= 1, "checks"= 1, "setting"= 2, "set_external_pressure"= target_pressure) )
if(AALARM_MODE_FILL) if(AALARM_MODE_FILL)
for(var/device_id in alarm_area.air_scrubbers) for(var/device_id in alarm_area.air_scrub_names)
send(device_id, list("power"= 0) ) send_signal(device_id, list("power"= 0) )
for(var/device_id in alarm_area.air_vents) for(var/device_id in alarm_area.air_vent_names)
send(device_id, list("power"= 1, "checks"= 1, "setting"= 2, "set_external_pressure"= target_pressure) ) send_signal(device_id, list("power"= 1, "checks"= 1, "setting"= 2, "set_external_pressure"= target_pressure) )
proc/apply_danger_level(var/new_danger_level) proc/apply_danger_level(var/new_danger_level)
alarm_area.atmosalm = new_danger_level alarm_area.atmosalm = new_danger_level
@@ -635,92 +692,94 @@ Toxins: <span class='dl[plasma_dangerlevel]'>[plasma_percent]</span>%<br>
if (AALARM_SCREEN_VENT) if (AALARM_SCREEN_VENT)
var/sensor_data = "" var/sensor_data = ""
if(alarm_area.air_vents.len) if(alarm_area.air_vent_names.len)
for(var/id_tag in alarm_area.air_vents) for(var/id_tag in alarm_area.air_vent_names)
var/obj/machinery/atmospherics/unary/vent_pump/data = alarm_area.air_vents[id_tag] var/long_name = alarm_area.air_vent_names[id_tag]
var/list/data = alarm_area.air_vent_info[id_tag]
if(!data) if(!data)
continue continue;
var/state = ""
sensor_data += {" sensor_data += {"
<B>[id_tag]</B><BR> <B>[long_name]</B>[state]<BR>
<B>Operating:</B> <B>Operating:</B>
<A href='?src=\ref[src];id_tag=[id_tag];command=power;val=[!data.on]'>[data.on?"on":"off"]</A> <A href='?src=\ref[src];id_tag=[id_tag];command=power;val=[!data["power"]]'>[data["power"]?"on":"off"]</A>
<BR> <BR>
<B>Pressure checks:</B> <B>Pressure checks:</B>
<A href='?src=\ref[src];id_tag=[id_tag];command=checks;val=[data.pressure_checks^1]' [(data.pressure_checks&1)?"style='font-weight:bold;'":""]>external</A> <A href='?src=\ref[src];id_tag=[id_tag];command=checks;val=[data["checks"]^1]' [(data["checks"]&1)?"style='font-weight:bold;'":""]>external</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=checks;val=[data.pressure_checks^2]' [(data.pressure_checks&2)?"style='font-weight:bold;'":""]>internal</A> <A href='?src=\ref[src];id_tag=[id_tag];command=checks;val=[data["checks"]^2]' [(data["checks"]&2)?"style='font-weight:bold;'":""]>internal</A>
<BR> <BR>
<B>External pressure bound:</B> <B>External pressure bound:</B>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-1000'>-</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-1000'>-</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-100'>-</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-100'>-</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-10'>-</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-10'>-</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-1'>-</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=-1'>-</A>
[data["external"]] [data["external"]]
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+1'>+</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+1'>+</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+10'>+</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+10'>+</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+100'>+</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+100'>+</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+1000'>+</A> <A href='?src=\ref[src];id_tag=[id_tag];command=adjust_external_pressure;val=+1000'>+</A>
<A href='?src=\ref[src];id_tag=[id_tag];command=set_external_pressure;val=[ONE_ATMOSPHERE]'> (reset) </A> <A href='?src=\ref[src];id_tag=[id_tag];command=set_external_pressure;val=[ONE_ATMOSPHERE]'> (reset) </A>
<BR>"} <BR>
if (!data.pump_direction) "}
if (data["direction"] == "siphon")
sensor_data += {" sensor_data += {"
<B>Direction:</B> <B>Direction:</B>
siphoning siphoning
<BR> <BR>
"} "}
sensor_data += {"<HR>"} sensor_data += {"<HR>"}
else else
sensor_data = "No vents connected.<BR>" sensor_data = "No vents connected.<BR>"
output = "<a href='?src=\ref[src];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br>[sensor_data]" output = {"<a href='?src=\ref[src];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br>[sensor_data]"}
if (AALARM_SCREEN_SCRUB) if (AALARM_SCREEN_SCRUB)
var/sensor_data = "" var/sensor_data = ""
if(alarm_area.air_scrubbers.len) if(alarm_area.air_scrub_names.len)
for(var/id_tag in alarm_area.air_scrubbers) for(var/id_tag in alarm_area.air_scrub_names)
var/obj/machinery/atmospherics/unary/vent_scrubber/data = alarm_area.air_scrubbers[id_tag] var/long_name = alarm_area.air_scrub_names[id_tag]
var/list/data = alarm_area.air_scrub_info[id_tag]
if(!data) if(!data)
continue continue;
var/state = ""
sensor_data += {" sensor_data += {"
<B>[id_tag]</B><BR> <B>[long_name]</B>[state]<BR>
<B>Operating:</B> <B>Operating:</B>
<A href='?src=\ref[src];id_tag=[id_tag];command=power;val=[!data.on]'>[data.on ?"on":"off"]</A><BR> <A href='?src=\ref[src];id_tag=[id_tag];command=power;val=[!data["power"]]'>[data["power"]?"on":"off"]</A><BR>
<B>Type:</B> <B>Type:</B>
<A href='?src=\ref[src];id_tag=[id_tag];command=scrubbing;val=[!data.scrubbing]'>[data.scrubbing?"scrubbing":"syphoning"]</A><BR> <A href='?src=\ref[src];id_tag=[id_tag];command=scrubbing;val=[!data["scrubbing"]]'>[data["scrubbing"]?"scrubbing":"syphoning"]</A><BR>
"} "}
if(data.scrubbing) if(data["scrubbing"])
sensor_data += {" sensor_data += {"
<B>Filtering:</B> <B>Filtering:</B>
Carbon Dioxide Carbon Dioxide
<A href='?src=\ref[src];id_tag=[id_tag];command=co2_scrub;val=[!data.scrub_CO2]'>[data.scrub_CO2?"on":"off"]</A>; <A href='?src=\ref[src];id_tag=[id_tag];command=co2_scrub;val=[!data["filter_co2"]]'>[data["filter_co2"]?"on":"off"]</A>;
Toxins Toxins
<A href='?src=\ref[src];id_tag=[id_tag];command=tox_scrub;val=[!data.scrub_Toxins]'>[data.scrub_Toxins?"on":"off"]</A>; <A href='?src=\ref[src];id_tag=[id_tag];command=tox_scrub;val=[!data["filter_toxins"]]'>[data["filter_toxins"]?"on":"off"]</A>;
Nitrous Oxide Nitrous Oxide
<A href='?src=\ref[src];id_tag=[id_tag];command=n2o_scrub;val=[!data.scrub_N2O]'>[data.scrub_N2O?"on":"off"]</A> <A href='?src=\ref[src];id_tag=[id_tag];command=n2o_scrub;val=[!data["filter_n2o"]]'>[data["filter_n2o"]?"on":"off"]</A>
<BR> <BR>
"} "}
sensor_data += {" sensor_data += {"
<B>Panic syphon:</B> [data.panic?"<font color='red'><B>PANIC SYPHON ACTIVATED</B></font>":"Disabled"] <B>Panic syphon:</B> [data["panic"]?"<font color='red'><B>PANIC SYPHON ACTIVATED</B></font>":""]
<A href='?src=\ref[src];id_tag=[id_tag];command=panic_siphon;val=[!data.panic]'><font color='[(data.panic?"blue'>Dea":"red'>A")]ctivate</font></A><BR> <A href='?src=\ref[src];id_tag=[id_tag];command=panic_siphon;val=[!data["panic"]]'><font color='[(data["panic"]?"blue'>Dea":"red'>A")]ctivate</font></A><BR>
<HR> <HR>
"} "}
else else
sensor_data = "No scrubbers connected.<BR>" sensor_data = "No scrubbers connected.<BR>"
output = {"<a href='?src=\ref[src];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br>[sensor_data]"} output = {"<a href='?src=\ref[src];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br>[sensor_data]"}
if (AALARM_SCREEN_MODE) if (AALARM_SCREEN_MODE)
output += "<a href='?src=\ref[src];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br><b>Air machinery mode for the area:</b><ul>" output += "<a href='?src=\ref[src];screen=[AALARM_SCREEN_MAIN]'>Main menu</a><br><b>Air machinery mode for the area:</b><ul>"
var/list/modes = list( world << "Made it here"
AALARM_MODE_SCRUBBING = "Filtering", var/list/modes = list(AALARM_MODE_SCRUBBING = "Filtering",\
AALARM_MODE_PANIC = "<font color='red'>PANIC</font>", AALARM_MODE_PANIC = "<font color='red'>PANIC</font>",\
AALARM_MODE_REPLACEMENT = "<font color='blue'>REPLACE AIR</font>", AALARM_MODE_CYCLE = "<font color='red'>CYCLE</font>",\
AALARM_MODE_FILL = "<font color='red'>FILL</font>", AALARM_MODE_FILL = "<font color='red'>FILL</font>",\
AALARM_MODE_CYCLE = "<font color='red'>CYCLE</font>", AALARM_MODE_REPLACEMENT = "<font color='blue'>REPLACE AIR</font>")
) world << "List created"
for (var/m in modes) for (var/m=1,m<=modes.len,m++)
if (mode==m) if (mode==m)
output += "<li><A href='?src=\ref[src];mode=[m]'><b>[modes[m]]</b></A> (selected)</li>" output += "<li><A href='?src=\ref[src];mode=[m]'><b>[modes[m]]</b></A> (selected)</li>"
else else
@@ -800,7 +859,7 @@ table tr:first-child th:first-child { border: none;}
"panic_siphon", "panic_siphon",
"scrubbing") "scrubbing")
send(device_id, list(href_list["command"] = text2num(href_list["val"]) ) ) send_signal(device_id, list(href_list["command"] = text2num(href_list["val"]) ) )
if("set_threshold") if("set_threshold")
var/env = href_list["env"] var/env = href_list["env"]