Adds a deluxe cabin shelter capsule (#18243)

code/modules/mining/ore_redemption_machine/equipment_vendor.dm

@@ -140,6 +140,7 @@
 		EQUIPMENT("Laser Pointer",				/obj/item/laser_pointer,													900),
 		EQUIPMENT("Luxury Shelter Capsule",		/obj/item/survivalcapsule/luxury,											3100),
 		EQUIPMENT("Bar Shelter Capsule",		/obj/item/survivalcapsule/luxurybar,										10000),
+		EQUIPMENT("Deluxe Cabin Shelter Capsule",/obj/item/survivalcapsule/luxurycabin,										10000),
 		EQUIPMENT("Plush Toy",					/obj/random/plushie,														300),
 		EQUIPMENT("Soap",						/obj/item/soap/nanotrasen,													200),
 		EQUIPMENT("Thalers - 100",				/obj/item/spacecash/c100,													1000),

code/modules/mining/ore_redemption_machine/survey_vendor.dm

@@ -82,6 +82,7 @@
 		EQUIPMENT("Laser Pointer",									/obj/item/laser_pointer,													90),
 		EQUIPMENT("Luxury Shelter Capsule",							/obj/item/survivalcapsule/luxury,											310),
 		EQUIPMENT("Bar Shelter Capsule",							/obj/item/survivalcapsule/luxurybar,										1000),
+		EQUIPMENT("Deluxe Cabin Shelter Capsule",					/obj/item/survivalcapsule/luxurycabin,										1000),
 		EQUIPMENT("Plush Toy",										/obj/random/plushie,														30),
 		EQUIPMENT("Soap",											/obj/item/soap/nanotrasen,													20),
 		EQUIPMENT("Thalers - 100",									/obj/item/spacecash/c100,													100),

code/modules/mining/shelter_atoms_vr.dm

@@ -107,6 +107,11 @@ GLOBAL_LIST_EMPTY(unique_deployable)
 	desc = "A luxury bar in a capsule. " + JOB_BARTENDER + " required and not included. There's a license for use printed on the bottom."
 	template_id = "shelter_gamma"
 
+/obj/item/survivalcapsule/luxurycabin
+	name = "luxury surfluid cabin capsule"
+	desc = "A luxury cabin and kitchen in a capsule. There's a license for use printed on the bottom."
+	template_id = "shelter_cab_deluxe"
+
 /obj/item/survivalcapsule/military
 	name = "military surfluid shelter capsule"
 	desc = "A prefabricated firebase in a capsule. Contains basic weapons, building materials, and combat suits. There's a license for use printed on the bottom."
@@ -145,6 +150,9 @@ GLOBAL_LIST_EMPTY(unique_deployable)
 	name = "survival airlock"
 	block_air_zones = 1
 
+/obj/machinery/door/airlock/voidcraft/survival_pod/vertical
+	icon = 'icons/obj/doors/shuttledoors_vertical.dmi'
+
 //Door access setter button
 /obj/machinery/button/remote/airlock/survival_pod
 	name = "shelter privacy control"
@@ -162,6 +170,19 @@ GLOBAL_LIST_EMPTY(unique_deployable)
 		door.glass = !door.glass
 		door.opacity = !door.opacity
 
+//Subtype that actually bolts doors!
+/obj/machinery/button/remote/airlock/survival_pod/bolts
+	name = "shelter privacy control"
+	desc = "You can ensure some privacy with this."
+
+/obj/machinery/button/remote/airlock/survival_pod/bolts/attack_hand(obj/item/W, mob/user as mob)
+	if(..()) return 1 //1 is failure on machines (for whatever reason)
+	if(door)
+		if(door.locked)
+			door.unlock()
+		else
+			door.lock()
+
 //Windows
 /obj/structure/window/reinforced/survival_pod
 	name = "pod window"

code/modules/mining/shelters_vr.dm

@@ -102,6 +102,15 @@
 	description = "A small cabin; turned into a shelter capsule. Includes dorm amenities, and a nice dinner."
 	mappath = "maps/submaps/shelters/shelter_cab.dmm"
 
+/datum/map_template/shelter/cabin_deluxe
+	name = "Shelter Deluxe Cabin"
+	shelter_id = "shelter_cab_deluxe"
+	description = "A glamorously furnished cabin packed away in your pocket. \
+		Includes a private dormitory, bathroom, dining room, and a very \
+		compactly designed kitchen. Designed for a comfortable extended \
+		stay in isolated wilderness survival scenarios."
+	mappath = "maps/submaps/shelters/shelter_luxury_cabin.dmm"
+
 /datum/map_template/shelter/phi
 	name = "Shelter Phi"
 	shelter_id = "shelter_phi"