Tweak: Pick Darkness & Ghost Teleport List (#809)

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

## Что этот PR делает
Заменяет ввод числа в Pick Darkness на список.
Первое осталось, только теперь в виде выбора Custom
Имхо, так гораздо удобнее нежели каждый раз вписывать нужное значение
при переключении с темноты/отсутствия темноты на полу-мрак и обратно

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

## Почему это хорошо для игры
УДОБНО

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

## Изображения изменений

![image](https://github.com/ss220club/Paradise-SS220/assets/69762909/e8f9f3dc-3dd7-4c1a-8894-047bc8155b8c)


![image](https://github.com/ss220club/Paradise-SS220/assets/69762909/a627e80c-5528-427c-93bd-ae1c6eba21dc)

<!-- Если вы не меняли карту или спрайты, можете опустить эту секцию.
Если хотите, можете вставить видео. -->

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

## Changelog

:cl:
tweak: Pick Darkness и Ghost Teleport теперь списками, должно быть
удобнее. Точное число всё так же можно вписать, оно - Custom выбор
/:cl:

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

---------

Co-authored-by: Gaxeer <44334376+Gaxeer@users.noreply.github.com>

modular_ss220/verbs/code/verbs.dm

@@ -36,3 +36,47 @@
 
 	M.key = key
 	return
+
+// Pick darkness list
+/mob/dead/observer/pick_darkness()
+	set name = "Pick Darkness"
+	set desc = "Choose how much darkness you want to see."
+	set category = "Ghost"
+
+	if(!client)
+		return
+
+	var/darkness_level = tgui_input_list(usr, "Choose your darkness", "Pick Darkness", list("Darkness", "Twilight", "Brightness", "Custom"))
+	if(!darkness_level)
+		return
+
+	var/new_darkness
+	switch(darkness_level)
+		if("Darkness")
+			new_darkness = 255
+		if("Twilight")
+			new_darkness = 210
+		if("Brightness")
+			new_darkness = 0
+		if("Custom")
+			new_darkness = input(usr, "Введите новое значение (0 - 255). Больше - темнее.", "Pick Darkness") as null|num
+
+	if(isnull(new_darkness))
+		return
+
+	client.prefs.ghost_darkness_level = new_darkness
+	client.prefs.save_preferences(src)
+	lighting_alpha = client.prefs.ghost_darkness_level
+	update_sight()
+
+/mob/dead/observer/dead_tele()
+	set category = "Ghost"
+	set name = "Teleport"
+	set desc= "Teleport to a location"
+
+	if(!isobserver(usr))
+		to_chat(usr, "Ты ещё не мёртв!")
+		return
+
+	var/target = tgui_input_list(usr, "Куда телепортируемся?", "Телепортация", SSmapping.ghostteleportlocs)
+	teleport(SSmapping.ghostteleportlocs[target])