Verbs clean up (#721)

<!-- Пишите **НИЖЕ** заголовков и **ВЫШЕ** комментариев, иначе что то
может пойти не так. -->
<!-- Вы можете прочитать Contributing.MD, если хотите узнать больше. -->

## Что этот PR делает

<!-- Вкратце опишите изменения, которые вносите. -->
<!-- Опишите **все** изменения, так как противное может сказаться на
рассмотрении этого PR'а! -->
<!-- Если вы исправляете Issue, добавьте "Fixes #1234" (где 1234 - номер
Issue) где-нибудь в описании PR'а. Это автоматически закроет Issue после
принятия PR'а. -->

Переводит вербы с введеных нами предметов на Альт-клики

## Почему это хорошо для игры

<!-- Опишите, почему, по вашему, следует добавить эти изменения в игру.
-->

Догоняем оффов Clueless
Не появляется Objects с пролагами в вербах

## Тестирование
<!-- Как вы тестировали свой PR, если делали это вовсе? -->

## Changelog

:cl:
tweak: Убраны вербы и переведены в Альт-клики у: paper shredder,
platform, office toy, pet carrier
/:cl:

<!-- Оба :cl:'а должны быть на месте, что-бы чейнджлог работал! Вы
можете написать свой ник справа от первого :cl:, если хотите. Иначе
будет использован ваш ник на ГитХабе. -->
<!-- Вы можете использовать несколько записей с одинаковым префиксом
(Они используются только для иконки в игре) и удалить ненужные. Помните,
что чейнджлог должен быть понятен обычным игроком. -->
<!-- Если чейнджлог не влияет на игроков(например, это рефактор), вы
можете исключить всю секцию. -->

modular_ss220/mobs/code/pet_carrier.dm

@@ -58,10 +58,6 @@
 	for(var/mob/living/M in contents)
 		M.ex_act(intensity)
 
-/obj/item/pet_carrier/AltClick(mob/user)
-	if(ishuman(user) && Adjacent(user) && !user.incapacitated(FALSE, TRUE, TRUE))
-		try_free_content(user = user)
-
 /obj/item/pet_carrier/proc/put_in_carrier(mob/living/target, mob/living/user)
 	if(!opened)
 		to_chat(user, "<span class='warning'>Ваша переноска закрыта!</span>")
@@ -200,25 +196,28 @@
 			change_state()
 		return
 
-/obj/item/pet_carrier/verb/open_close()
-	set name = "Открыть/закрыть переноску"
-	set desc = "Меняет состояние дверцы переноски, блокируя или разблокируя возможность достать содержимое."
-	set category = "Object"
+/obj/item/pet_carrier/examine(mob/user)
+	. = ..()
+	. += span_notice("<b>Alt-Click</b> to unload.")
+	. += span_notice("<b>Alt-Shift-Click</b> to toggle lock.")
 
-	if(usr.stat || !ishuman(usr) || usr.restrained())
+/obj/item/pet_carrier/AltClick(mob/user)
+	unload_content(user)
+
+/obj/item/pet_carrier/AltShiftClick(mob/user)
+	open_close(user)
+
+/obj/item/pet_carrier/proc/open_close(mob/user)
+	if(user.stat || !ishuman(user) || user.restrained())
 		return
 
 	change_state()
 
-/obj/item/pet_carrier/verb/unload_content()
-	set name = "Опустошить переноску"
-	set desc = "Вытаскивает животное из переноски."
-	set category = "Object"
-
-	if(usr.stat || !ishuman(usr) || usr.restrained())
+/obj/item/pet_carrier/proc/unload_content(mob/user)
+	if(user.stat || !ishuman(user) || user.restrained())
 		return
 
-	try_free_content(user = usr)
+	try_free_content(user)
 
 /obj/item/pet_carrier/MouseDrop(obj/over_object)
 	if(ishuman(usr))

modular_ss220/objects/code/officetoys.dm

@@ -116,12 +116,12 @@
 	update_icon()
 	return TRUE
 
-/obj/item/toy/desk/verb/rotate()
-	set name = "Rotate"
-	set category = "Object"
-	set src in oview(1)
+/obj/item/toy/desk/examine(mob/user)
+	. = ..()
+	. += span_notice("<b>Alt-Click</b> to rotate.")
 
-	if(usr.incapacitated())
+/obj/item/toy/desk/proc/rotate(mob/user)
+	if(user.incapacitated())
 		return
 	dir = turn(dir, 270)
 	return TRUE
@@ -133,7 +133,7 @@
 	if(!in_range(src, user))
 		return
 	else
-		rotate()
+		rotate(user)
 
 /obj/item/toy/desk/officetoy
 	name = "office toy"

modular_ss220/objects/code/papershredder.dm

@@ -55,24 +55,23 @@
 	else
 		WRENCH_UNANCHOR_MESSAGE
 
-/obj/machinery/papershredder/AltClick(mob/user)
+/obj/machinery/papershredder/examine(mob/user)
 	. = ..()
-	empty_contents()
+	. += span_notice("<b>Alt-Click</b> to empty [src].")
 
-/obj/machinery/papershredder/verb/empty_contents()
-	set name = "Empty Bin"
-	set category = "Object"
-	set src in oview(1)
+/obj/machinery/papershredder/AltClick(mob/user)
+	empty_contents(user)
 
-	if(usr.stat || usr.restrained())
-		to_chat(usr, span_notice("You need your hands and legs free for this."))
+/obj/machinery/papershredder/proc/empty_contents(mob/user)
+	if(user.stat || user.restrained())
+		to_chat(user, span_notice("You need your hands and legs free for this."))
 		return
 
 	if(!paperamount)
-		to_chat(usr, span_notice("[src] is empty."))
+		to_chat(user, span_notice("[src] is empty."))
 		return
 
-	empty_bin(usr)
+	empty_bin(user)
 
 /obj/machinery/papershredder/proc/empty_bin(mob/living/user, obj/item/storage/empty_into)
 

modular_ss220/objects/code/platform.dm

@@ -41,47 +41,25 @@
 /obj/structure/platform/examine(mob/user)
 	. = ..()
 	. += span_notice("[src] is [anchored == TRUE ? "screwed" : "unscrewed"] [anchored == TRUE ? "to" : "from"] the floor.")
+	. += span_notice("<b>Alt-Click</b> to rotate.")
 
-/obj/structure/platform/verb/rotate()
-	set name = "Rotate Platform Counter-Clockwise"
-	set category = "Object"
-	set src in oview(1)
-
-	if(usr.incapacitated())
+/obj/structure/platform/proc/rotate(mob/user)
+	if(user.incapacitated())
 		return
 
 	if(anchored)
-		to_chat(usr, span_warning("[src] cannot be rotated while it is screwed to the floor!"))
+		to_chat(user, span_warning("[src] cannot be rotated while it is screwed to the floor!"))
 		return FALSE
 
 	var/target_dir = turn(dir, 90)
 
 	setDir(target_dir)
 	air_update_turf(1)
-	add_fingerprint(usr)
-	return TRUE
-
-/obj/structure/platform/verb/revrotate()
-	set name = "Rotate Platform Clockwise"
-	set category = "Object"
-	set src in oview(1)
-
-	if(usr.incapacitated())
-		return
-
-	if(anchored)
-		to_chat(usr, span_warning("[src] cannot be rotated while it is screwed to the floor!"))
-		return FALSE
-
-	var/target_dir = turn(dir, 270)
-
-	setDir(target_dir)
-	air_update_turf(1)
-	add_fingerprint(usr)
+	add_fingerprint(user)
 	return TRUE
 
 /obj/structure/platform/AltClick(mob/user)
-	rotate()
+	rotate(user)
 
 // Construction
 /obj/structure/platform/screwdriver_act(mob/user, obj/item/I)