cyberpresidentvanellope/vgstation13
1
0
Fork 0
mirror of https://github.com/vgstation-coders/vgstation13.git synced 2025-12-10 18:32:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Constructed vents and scrubbers can be initialized through air alarm interface.

Browse Source 
- Minor tweaks.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@417 316c924e-a436-60f5-8080-3fe189b3f50e
This commit is contained in:
panurgomatic
2010-11-14 12:00:17 +00:00
parent 67163de36c
commit 1aeec3bfb3
3 changed files with 89 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -21,14 +21,14 @@
var/panic = 0 //is this scrubber panicked?
update_icon()
if(on)//&&node)//seems to be broken
if(on&&node)
if(scrubbing)
icon_state = "[level == 1 && istype(loc, /turf/simulated) ? "h" : "" ]on"
else
icon_state = "[level == 1 && istype(loc, /turf/simulated) ? "h" : "" ]in"
else
icon_state = "[level == 1 && istype(loc, /turf/simulated) ? "h" : "" ]off"
//on = 0
on = 0
return
@@ -155,7 +155,7 @@
volume_rate = 2000
else
scrubbing = 1
volume_rate = 120
volume_rate = initial(volume_rate)
if(signal.data["tag"])
spawn(2)
broadcast_status()

154
code/ATMOSPHERICS/init_S_V_A.dm
View File

@@ -1,82 +1,92 @@
datum/controller/game_controller
proc/find_air_alarms()
var/list/processed_areas = list()
for(var/area/A in world)
var/area/M = A.master //we want to search master area, not only L(number) one
if(A in processed_areas) continue
processed_areas += connect_area_atmos_machinery(A)
return
var/uniq_id = md5(M.name)//hash works like a charm
var/list/alarms = list()
var/list/scrubbers = list()
var/list/vents = list()
var/i = 0 //used in id_tag and name generation
if(M.related && M.related.len)//if has relatives
for(var/area/Rel in M.related)//check all relatives
if(Rel == M) continue //same parent area.
if(Rel.contents && Rel.contents.len)
for(var/obj/O in Rel.contents)
switch(O.type)
if(/obj/machinery/alarm)
alarms += O
if(/obj/machinery/atmospherics/unary/vent_scrubber)
scrubbers += O
if(/obj/machinery/atmospherics/unary/vent_pump)
vents += O
else continue
/proc/connect_area_atmos_machinery(var/area/A)
var/area/M = A.master //we want to search master area, not only L(number) one
var/uniq_id = md5(M.name)//hash works like a charm
var/list/alarms = list()
var/list/scrubbers = list()
var/list/vents = list()
var/list/processed_areas = list()
var/i = 0 //used in id_tag and name generation
if(M.related && M.related.len)//if has relatives
for(var/area/Rel in M.related)//check all relatives
if(Rel == M) continue //same parent area.
processed_areas += Rel
if(Rel.contents && Rel.contents.len)
for(var/obj/machinery/O in Rel.contents)
switch(O.type)
if(/obj/machinery/alarm)
alarms += O
if(/obj/machinery/atmospherics/unary/vent_scrubber)
if(O:id_tag) continue
scrubbers += O
if(/obj/machinery/atmospherics/unary/vent_pump)
if(O:id) continue
vents += O
else continue
/*
for(var/obj/machinery/alarm/Al in Rel.contents)//find air alarms in area, append to list
alarms += Al
for(var/obj/machinery/atmospherics/unary/vent_scrubber/V in Rel.contents)//find scrubbers in area, append to list
if(V.id_tag) continue//already connected to air alarm
scrubbers += V
for(var/obj/machinery/atmospherics/unary/vent_pump/P in Rel.contents)
if(P.id) continue
vents += P
for(var/obj/machinery/alarm/Al in Rel.contents)//find air alarms in area, append to list
alarms += Al
for(var/obj/machinery/atmospherics/unary/vent_scrubber/V in Rel.contents)//find scrubbers in area, append to list
if(V.id_tag) continue//already connected to air alarm
scrubbers += V
for(var/obj/machinery/atmospherics/unary/vent_pump/P in Rel.contents)
if(P.id) continue
vents += P
*/
if(!alarms.len || (!scrubbers.len && !vents.len)) continue
if(!alarms.len || (!scrubbers.len && !vents.len)) return
i = 0
if(scrubbers.len) //if scrubbers found in area
for(var/obj/machinery/atmospherics/unary/vent_scrubber/Sc in scrubbers)//iterate over found scrubbers
if(Sc.id_tag) continue
var/dist = 127 //max value returned by get_dist
var/obj/machinery/alarm/target_alarm = null
for(var/obj/machinery/alarm/Al in alarms)//iterate over found alarms
var/temp_dist = get_dist(Sc.loc, Al.loc)//if distance between current scrubber and current alarm < previous distance, set this alarm as target to connect to
if(temp_dist<dist)
target_alarm = Al
dist = temp_dist
if(target_alarm) //if target(closest) air alarm found,
Sc.id_tag = "[uniq_id]_scr_[i++]" //set scrubber id_tag
Sc.frequency = target_alarm.frequency //set scrubber frequency (alarm frequency)
var/d_name = "[M.name] Air Scrubber #[i]" //displayed name
target_alarm.sensors[Sc.id_tag] = d_name //append scrubber to alarm 'sensors' list
Sc.name = d_name //set scrubber name
Sc.set_frequency(Sc.frequency)
//debug
//world << "[Sc.name] in [M.name] is set to frequency [Sc.frequency] with ID [Sc.id_tag]"
//debug
i = 0
if(vents.len) //if vents found in area
for(var/obj/machinery/atmospherics/unary/vent_pump/P in vents)//iterate over found vents
if(P.id) continue
var/dist = 127 //max value returned by get_dist
var/obj/machinery/alarm/target_alarm = null
for(var/obj/machinery/alarm/Al in alarms)//iterate over found alarms
var/temp_dist = get_dist(P.loc, Al.loc)//if distance between current vent and current alarm < previous distance, set this alarm as target to connect to
if(temp_dist<dist)
target_alarm = Al
dist = temp_dist
if(target_alarm) //if target(closest) air alarm found,
P.id = "[uniq_id]_vpump_[i++]" //set vent id
P.frequency = target_alarm.frequency //set vent frequency (alarm frequency)
var/d_name = "[M.name] Vent Pump #[i]" //displayed name
target_alarm.vents[P.id] = d_name //append vent to alarm 'vents' list
P.name = d_name //set vent name
P.set_frequency(P.frequency)
//debug
//world << "[Sc.name] in [M.name] is set to frequency [Sc.frequency] with ID [Sc.id_tag]"
//debug
i = 0
if(scrubbers.len) //if scrubbers found in area
for(var/obj/machinery/atmospherics/unary/vent_scrubber/Sc in scrubbers)//iterate over found scrubbers
// if(Sc.id_tag) continue
var/dist = 127 //max value returned by get_dist
var/obj/machinery/alarm/target_alarm = null
for(var/obj/machinery/alarm/Al in alarms)//iterate over found alarms
var/temp_dist = get_dist(Sc.loc, Al.loc)//if distance between current scrubber and current alarm < previous distance, set this alarm as target to connect to
if(temp_dist<dist)
target_alarm = Al
dist = temp_dist
if(target_alarm) //if target(closest) air alarm found,
Sc.id_tag = "[uniq_id]_scr_[i++]" //set scrubber id_tag
Sc.frequency = target_alarm.frequency //set scrubber frequency (alarm frequency)
var/d_name = "[M.name] Air Scrubber #[i]" //displayed name
target_alarm.sensors[Sc.id_tag] = d_name //append scrubber to alarm 'sensors' list
Sc.name = d_name //set scrubber name
Sc.set_frequency(Sc.frequency)
//debug
//world << "[Sc.name] in [M.name] is set to frequency [Sc.frequency] with ID [Sc.id_tag]"
//debug
i = 0
if(vents.len) //if vents found in area
for(var/obj/machinery/atmospherics/unary/vent_pump/P in vents)//iterate over found vents
// if(P.id) continue
var/dist = 127 //max value returned by get_dist
var/obj/machinery/alarm/target_alarm = null
for(var/obj/machinery/alarm/Al in alarms)//iterate over found alarms
var/temp_dist = get_dist(P.loc, Al.loc)//if distance between current vent and current alarm < previous distance, set this alarm as target to connect to
if(temp_dist<dist)
target_alarm = Al
dist = temp_dist
if(target_alarm) //if target(closest) air alarm found,
P.id = "[uniq_id]_vpump_[i++]" //set vent id
P.frequency = target_alarm.frequency //set vent frequency (alarm frequency)
var/d_name = "[M.name] Vent Pump #[i]" //displayed name
target_alarm.vents[P.id] = d_name //append vent to alarm 'vents' list
P.name = d_name //set vent name
P.set_frequency(P.frequency)
//debug
//world << "[Sc.name] in [M.name] is set to frequency [Sc.frequency] with ID [Sc.id_tag]"
//debug
return
return processed_areas

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

@@ -71,6 +71,7 @@
"}
output += "<A href='?src=\ref[src];toggle_panic_siphon_global=1'><font color='red'><B>TOGGLE PANIC SYPHON IN AREA</B></font></A>"
output += "<HR><A href='?src=\ref[src];reinit_atmos_machinery=1'>Reinitialize atmospheric machinery in area</A>"
else
var/sensor_data
if(src.device == "Scrubbers")
@@ -160,6 +161,9 @@
for(var/P in vents)
send_signal(P, "power_off")
panic = !panic
if(href_list["reinit_atmos_machinery"])
var/A = get_area(loc)
connect_area_atmos_machinery(A)
spawn(5)