Clear Toxins/Fire in Zone verb

This commit is contained in:
skull132
2016-02-07 14:25:15 +02:00
parent 225b6fbbcf
commit 33377b42f1
3 changed files with 24 additions and 1 deletions

View File

@@ -0,0 +1,21 @@
/client/proc/clear_toxins()
set category = "Special Verbs"
set name = "Clear Toxin/Fire in Zone"
if (!check_rights(R_ADMIN))
return
var/datum/gas_mixture/environment = usr.loc.return_air()
environment.gas["phoron"] = 0
environment.gas["nitrogen"] = 82.1472
environment.gas["oxygen"] = 21.8366
environment.gas["carbon_dioxide"] = 0
environment.gas["sleeping_agent"] = 0
environment.gas["oxygen_agent_b"] = 0
environment.temperature = 293.15
environment.update_values()
var/turf/simulated/location = get_turf(usr)
if (location.zone)
for (var/turf/T in location.zone.contents)
for (var/obj/fire/F in T.contents)
qdel(F)