Takes Stellar Delight apart

code/modules/food/kitchen/smartfridge/smartfridge_vr.dm

@@ -22,11 +22,34 @@
 		if(ismob(A.thrower))
 			var/mob/T = A.thrower
 			thrower_id = T.GetIdCard()
-		
+
 		//98% chance the expert makes it
 		if(expert_job && thrower_id && thrower_id.rank == expert_job && prob(98))
 			stock(A)
-		
+
 		//20% chance a non-expert makes it
 		else if(prob(20))
 			stock(A)
+
+//Chemistry 'chemavator'
+/obj/machinery/smartfridge/chemistry/chemvator
+	name = "\improper Smart Chemavator - Upper"
+	desc = "A refrigerated storage unit for medicine and chemical storage. Now sporting a fancy system of pulleys to lift bottles up and down."
+	var/obj/machinery/smartfridge/chemistry/chemvator/attached
+
+/obj/machinery/smartfridge/chemistry/chemvator/down/Destroy()
+	attached = null
+	return ..()
+
+/obj/machinery/smartfridge/chemistry/chemvator/down
+	name = "\improper Smart Chemavator - Lower"
+
+/obj/machinery/smartfridge/chemistry/chemvator/down/Initialize()
+	. = ..()
+	var/obj/machinery/smartfridge/chemistry/chemvator/above = locate(/obj/machinery/smartfridge/chemistry/chemvator,get_zstep(src,UP))
+	if(istype(above))
+		above.attached = src
+		attached = above
+		item_records = attached.item_records
+	else
+		to_chat(world,"<span class='danger'>[src] at [x],[y],[z] cannot find the unit above it!</span>")