Simple rotation component. (#34476)

I'm going to port other rotations to it when i don't feel lazy.
Closes #34064

code/datums/components/rotation.dm

@@ -0,0 +1,126 @@
+#define ROTATION_ALTCLICK 1
+#define ROTATION_WRENCH 2
+#define ROTATION_VERBS 4
+#define ROTATION_COUNTERCLOCKWISE 8
+#define ROTATION_CLOCKWISE 16
+#define ROTATION_FLIP 32
+
+/datum/component/simple_rotation
+	var/datum/callback/can_user_rotate //Checks if user can rotate
+	var/datum/callback/can_be_rotated  //Check if object can be rotated at all
+	var/datum/callback/after_rotation     //Additional stuff to do after rotation
+	
+	var/rotation_flags = NONE
+	var/default_rotation_direction = ROTATION_CLOCKWISE
+	
+/datum/component/simple_rotation/Initialize(rotation_flags = NONE ,can_user_rotate,can_be_rotated,after_rotation)
+	if(!ismovableatom(parent))
+		return COMPONENT_INCOMPATIBLE
+	
+	//throw if no rotation direction is specificed ?
+
+	src.rotation_flags = rotation_flags
+
+	if(can_user_rotate)
+		src.can_user_rotate = can_user_rotate
+	else
+		src.can_user_rotate = CALLBACK(src,.proc/default_can_user_rotate)
+	
+	if(can_be_rotated)
+		src.can_be_rotated = can_be_rotated
+	else
+		src.can_be_rotated = CALLBACK(src,.proc/default_can_be_rotated)
+
+	if(after_rotation)
+		src.after_rotation = after_rotation
+	else
+		src.after_rotation = CALLBACK(src,.proc/default_after_rotation)
+
+	//Try Clockwise,counter,flip in order
+	if(src.rotation_flags & ROTATION_FLIP)
+		default_rotation_direction = ROTATION_FLIP
+	if(src.rotation_flags & ROTATION_COUNTERCLOCKWISE)
+		default_rotation_direction = ROTATION_COUNTERCLOCKWISE
+	if(src.rotation_flags & ROTATION_CLOCKWISE)
+		default_rotation_direction = ROTATION_CLOCKWISE
+
+	if(src.rotation_flags & ROTATION_ALTCLICK)
+		RegisterSignal(COMSIG_CLICK_ALT, .proc/HandRot)
+		RegisterSignal(COMSIG_PARENT_EXAMINE, .proc/ExamineMessage)
+	if(src.rotation_flags & ROTATION_WRENCH)
+		RegisterSignal(COMSIG_PARENT_ATTACKBY, .proc/WrenchRot)
+
+	if(src.rotation_flags & ROTATION_VERBS)
+		var/atom/movable/AM = parent
+		if(src.rotation_flags & ROTATION_FLIP)
+			AM.verbs += /atom/movable/proc/simple_rotate_flip
+		if(src.rotation_flags & ROTATION_CLOCKWISE)
+			AM.verbs += /atom/movable/proc/simple_rotate_clockwise
+		if(src.rotation_flags & ROTATION_COUNTERCLOCKWISE)
+			AM.verbs += /atom/movable/proc/simple_rotate_counterclockwise
+
+/datum/component/simple_rotation/proc/ExamineMessage(mob/user)
+	if(rotation_flags & ROTATION_ALTCLICK)
+		to_chat(user, "<span class='notice'>Alt-click to rotate it clockwise.</span>")
+
+/datum/component/simple_rotation/proc/HandRot(mob/user, rotation)
+	if(!can_be_rotated.Invoke(user,default_rotation_direction) || !can_user_rotate.Invoke(user,default_rotation_direction))
+		return
+	BaseRot(user,default_rotation_direction)
+
+/datum/component/simple_rotation/proc/WrenchRot(obj/item/I, mob/living/user)
+	if(!can_be_rotated.Invoke(user,default_rotation_direction) || !can_user_rotate.Invoke(user,default_rotation_direction))
+		return
+	if(istype(I,/obj/item/wrench))
+		BaseRot(user,default_rotation_direction)
+		return COMPONENT_NO_AFTERATTACK
+
+/datum/component/simple_rotation/proc/BaseRot(mob/user,rotation_type)
+	var/atom/movable/AM = parent
+	var/rot_degree
+	switch(rotation_type)
+		if(ROTATION_CLOCKWISE)
+			rot_degree = -90
+		if(ROTATION_COUNTERCLOCKWISE)
+			rot_degree = 90
+		if(ROTATION_FLIP)
+			rot_degree = 180
+	AM.setDir(turn(AM.dir,rot_degree))
+	after_rotation.Invoke(user,rotation_type)
+
+/datum/component/simple_rotation/proc/default_can_user_rotate(mob/living/user, rotation_type)
+	if(!istype(user) || !user.Adjacent(parent) || user.incapacitated())
+		to_chat(user, "<span class='warning'>You can't do that right now!</span>")
+		return FALSE
+	return TRUE
+
+/datum/component/simple_rotation/proc/default_can_be_rotated(mob/user, rotation_type)
+	var/atom/movable/AM = parent
+	return !AM.anchored
+
+/datum/component/simple_rotation/proc/default_after_rotation(mob/user, rotation_type)
+	to_chat(user,"<span class='notice'>You [rotation_type == ROTATION_FLIP ? "flip" : "rotate"] [parent].</span>")
+
+/atom/movable/proc/simple_rotate_clockwise()
+	set name = "Rotate Clockwise"
+	set category = "Object"
+	set src in oview(1)
+	GET_COMPONENT(rotcomp,/datum/component/simple_rotation)
+	if(rotcomp)
+		rotcomp.HandRot(usr,ROTATION_CLOCKWISE)
+
+/atom/movable/proc/simple_rotate_counterclockwise()
+	set name = "Rotate Counter-Clockwise"
+	set category = "Object"
+	set src in oview(1)
+	GET_COMPONENT(rotcomp,/datum/component/simple_rotation)
+	if(rotcomp)
+		rotcomp.HandRot(usr,ROTATION_COUNTERCLOCKWISE)
+
+/atom/movable/proc/simple_rotate_flip()
+	set name = "Flip"
+	set category = "Object"
+	set src in oview(1)
+	GET_COMPONENT(rotcomp,/datum/component/simple_rotation)
+	if(rotcomp)
+		rotcomp.HandRot(usr,ROTATION_FLIP)