Removed vials.dm, added possession verbs to modules/admin/verbs/possess.dm.

Chemistry reception windows are now public access.
Did some minor disposals remapping.
Added a newcaster to the HoP office.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@3096 316c924e-a436-60f5-8080-3fe189b3f50e

code/modules/admin/verbs/possess.dm

@@ -0,0 +1,47 @@
+/proc/possess(obj/O as obj in world)
+	set name = "Possess Obj"
+	set category = "Object"
+
+	if(istype(O,/obj/machinery/singularity))
+		if(config.forbid_singulo_possession)
+			usr << "It is forbidden to possess singularities."
+			return
+
+	var/turf/T = get_turf(O)
+
+	if(T)
+		log_admin("[key_name(usr)] has possessed [O] ([O.type]) at ([T.x], [T.y], [T.z])")
+		message_admins("[key_name(usr)] has possessed [O] ([O.type]) at ([T.x], [T.y], [T.z])", 1)
+	else
+		log_admin("[key_name(usr)] has possessed [O] ([O.type]) at an unknown location")
+		message_admins("[key_name(usr)] has possessed [O] ([O.type]) at an unknown location", 1)
+
+	if(!usr.control_object) //If you're not already possessing something...
+		usr.name_archive = usr.real_name
+
+	usr.loc = O
+	usr.real_name = O.name
+	usr.name = O.name
+	usr.client.eye = O
+	usr.control_object = O
+
+/proc/release(obj/O as obj in world)
+	set name = "Release Obj"
+	set category = "Object"
+	//usr.loc = get_turf(usr)
+
+	if(usr.control_object && usr.name_archive) //if you have a name archived and if you are actually relassing an object
+		usr.real_name = usr.name_archive
+		usr.name = usr.real_name
+		usr.update_clothing() //So the name is updated properly
+
+	usr.loc = O.loc // Appear where the object you were controlling is -- TLE
+	usr.client.eye = usr
+	usr.control_object = null
+
+/proc/givetestverbs(mob/M as mob in world)
+	set desc = "Give this guy possess/release verbs"
+	set category = "Debug"
+	set name = "Give Possessing Verbs"
+	M.verbs += /proc/possess
+	M.verbs += /proc/release