From 30ad27872f76ddc92fc2e97ebdaf310ed458c647 Mon Sep 17 00:00:00 2001
From: ESwordTheCat <ESwordTheCat@plea.se>
Date: Sun, 20 Apr 2014 08:59:36 +0800
Subject: [PATCH] experimental getArea() proc.

---
 code/__HELPERS/experimental.dm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/code/__HELPERS/experimental.dm b/code/__HELPERS/experimental.dm
index 5ab8745f901..101d16175a1 100644
--- a/code/__HELPERS/experimental.dm
+++ b/code/__HELPERS/experimental.dm
@@ -31,6 +31,14 @@
 		. = i
 		i = findtext(A, B, i + 1)
 
+/obj/machinery/proc/getArea()
+	var/area/A = loc.loc
+
+	if (A != myArea)
+		myArea = A
+
+	. = myArea
+
 /**
  * Object pooling.
  *