From e8d6772523ddd190abe4c73837aefc59cd992db2 Mon Sep 17 00:00:00 2001
From: mwerezak <mwerezak@gmail.com>
Date: Thu, 15 Oct 2015 16:53:06 -0400
Subject: [PATCH] Smoke clouds dissipate faster in low pressure

---
 code/game/objects/effects/chem/chemsmoke.dm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/code/game/objects/effects/chem/chemsmoke.dm b/code/game/objects/effects/chem/chemsmoke.dm
index d8e589027f..293992b735 100644
--- a/code/game/objects/effects/chem/chemsmoke.dm
+++ b/code/game/objects/effects/chem/chemsmoke.dm
@@ -10,6 +10,14 @@
 	var/turf/destination
 
 /obj/effect/effect/smoke/chem/New(var/newloc, turf/dest = null)
+	
+	//Calculate time to live
+	var/pressure = 0
+	var/datum/gas_mixture/environment = loc.return_air()
+	if(environment) pressure = environment.return_pressure()
+	
+	time_to_live = max(5, time_to_live*min(pressure/(ONE_ATMOSPHERE/3), 1))
+	
 	..()
 	create_reagents(500)
 	destination = dest