Merge pull request #16626 from SatinIsle/bed-flip

Flippable beds and sheets

code/game/objects/structures/bedsheet_bin.dm

@@ -39,6 +39,23 @@ LINEN BINS
 		return
 	..()
 
+/obj/item/bedsheet/verb/turn_around()
+	set name = "Turn Around"
+	set category = "Object"
+	set src in oview(1)
+
+	if(!usr || !isturf(usr.loc))
+		return
+	if(usr.stat || usr.restrained())
+		return
+	if(ismouse(usr) || (isobserver(usr) && !CONFIG_GET(flag/ghost_interaction)))
+		return
+
+	if(dir >= 2)
+		src.set_dir(1)
+	else
+		src.set_dir(2)
+
 /obj/item/bedsheet/blue
 	icon_state = "sheetblue"
 

code/game/objects/structures/pillows.dm

@@ -40,6 +40,7 @@
 	icon_state = "pillowpile_large_pink"
 	var/pillowpilefront = "/obj/structure/bed/pillowpilefront"
 	var/sourcepillow = "/obj/item/bedsheet/pillow"
+	flippable = FALSE
 
 /obj/structure/bed/pillowpilefront
 	name = "pillow pile"

code/game/objects/structures/stool_bed_chair_nest/alien_nests.dm

@@ -7,6 +7,7 @@
 	icon_state = "nest"
 	var/health = 100
 	unacidable = TRUE
+	flippable = FALSE
 
 /obj/structure/bed/nest/update_icon()
 	return

code/game/objects/structures/stool_bed_chair_nest/bed.dm

@@ -21,6 +21,7 @@
 	var/datum/material/padding_material
 	var/base_icon = "bed"
 	var/applies_material_colour = 1
+	var/flippable = TRUE
 
 /obj/structure/bed/New(var/newloc, var/new_material, var/new_padding_material)
 	..(newloc)
@@ -168,6 +169,30 @@
 	if(padding_material)
 		padding_material.place_sheet(get_turf(src), 1)
 
+/obj/structure/bed/verb/turn_around()
+	set name = "Turn Around"
+	set category = "Object"
+	set src in oview(1)
+
+	if(!flippable)
+		to_chat(usr,span_notice("\The [src] can't face the other direction."))
+		return
+
+	if(!usr || !isturf(usr.loc))
+		return
+	if(usr.stat || usr.restrained())
+		return
+	if(ismouse(usr) || (isobserver(usr) && !CONFIG_GET(flag/ghost_interaction)))
+		return
+	if(dir == 2)
+		src.set_dir(1)
+	else if(dir == 1)
+		src.set_dir(2)
+	else if(dir == 4)
+		src.set_dir(8)
+	else if(dir == 8)
+		src.set_dir(4)
+
 /obj/structure/bed/psych
 	name = "psychiatrist's couch"
 	desc = "For prime comfort during psychiatric evaluations."
@@ -208,6 +233,7 @@
 	surgery_odds = 50 //VOREStation Edit
 	var/bedtype = /obj/structure/bed/roller
 	var/rollertype = /obj/item/roller
+	flippable = FALSE
 
 /obj/structure/bed/roller/adv
 	name = "advanced roller bed"
@@ -347,6 +373,7 @@
 	catalogue_data = list(/datum/category_item/catalogue/anomalous/precursor_a/alien_bed)
 	icon = 'icons/obj/abductor.dmi'
 	icon_state = "bed"
+	flippable = FALSE
 
 /obj/structure/bed/alien/update_icon()
 	return // Doesn't care about material or anything else.

maps/stellar_delight/stellar_delight1.dmm

@@ -5791,8 +5791,12 @@
 /turf/simulated/floor/tiled/dark,
 /area/security/lobby)
 "lC" = (
-/obj/item/bedsheet/bluedouble,
-/obj/structure/bed/double/padded,
+/obj/item/bedsheet/bluedouble{
+	dir = 1
+	},
+/obj/structure/bed/double/padded{
+	dir = 1
+	},
 /obj/structure/curtain/black,
 /turf/simulated/floor/carpet,
 /area/stellardelight/deck1/dorms/dorm8)
@@ -12874,8 +12878,12 @@
 /turf/simulated/floor/tiled/steel_grid,
 /area/assembly/robotics)
 "AP" = (
-/obj/item/bedsheet/bluedouble,
-/obj/structure/bed/double/padded,
+/obj/item/bedsheet/bluedouble{
+	dir = 1
+	},
+/obj/structure/bed/double/padded{
+	dir = 1
+	},
 /obj/structure/curtain/black,
 /turf/simulated/floor/carpet,
 /area/stellardelight/deck1/dorms/dorm5)
@@ -21290,8 +21298,12 @@
 /turf/simulated/floor,
 /area/maintenance/stellardelight/deck1/exploration)
 "Tc" = (
-/obj/item/bedsheet/orangedouble,
-/obj/structure/bed/double/padded,
+/obj/item/bedsheet/orangedouble{
+	dir = 1
+	},
+/obj/structure/bed/double/padded{
+	dir = 1
+	},
 /obj/structure/curtain/black,
 /turf/simulated/floor/carpet/purcarpet,
 /area/stellardelight/deck1/dorms/dorm7)
@@ -21619,8 +21631,12 @@
 /turf/simulated/floor/tiled/dark,
 /area/security/armoury)
 "TN" = (
-/obj/item/bedsheet/orangedouble,
-/obj/structure/bed/double/padded,
+/obj/item/bedsheet/orangedouble{
+	dir = 1
+	},
+/obj/structure/bed/double/padded{
+	dir = 1
+	},
 /obj/structure/curtain/black,
 /turf/simulated/floor/carpet/purcarpet,
 /area/stellardelight/deck1/dorms/dorm6)