Genericises rotate() on objects. (#8430)

code/modules/assembly/infrared.dm

@@ -6,10 +6,9 @@
 	icon_state = "infrared"
 	origin_tech = list(TECH_MAGNET = 2)
 	matter = list(DEFAULT_WALL_MATERIAL = 1000, "glass" = 500, "waste" = 100)
-
 	wires = WIRE_PULSE
-
 	secured = 0
+	obj_flags = OBJ_FLAG_ROTATABLE
 
 	var/on = 0
 	var/visible = 0
@@ -143,16 +142,6 @@
 		return
 
 
-	verb/rotate()//This could likely be better
-		set name = "Rotate Infrared Laser"
-		set category = "Object"
-		set src in usr
-
-		set_dir(turn(dir, 90))
-		return
-
-
-
 /***************************IBeam*********************************/
 
 /obj/effect/beam/i_beam