Merge pull request #69 from CheBuRek017/Death-Of-Hope

Immersive Sounds full

maps/torch_fd/fd_torch.dm

@@ -267,6 +267,7 @@
 	#include "../../mods/_fd/expanded_traders/_expanded_traders.dme"
 	#include "../../mods/_fd/hestia_missiles/_hestia_missiles.dme"
 	#include "../../mods/_fd/immersive_overmap/_immersive_overmap.dme"
+	#include "../../mods/_fd/immersive_sounds/_immersive_sounds.dme"
 	#include "../../mods/_fd/junk_heaven/_junk_heaven.dme"
 	#include "../../mods/_fd/landing_eye/_landing_eye.dme"
 	#include "../../mods/_fd/mob_interactions/_mob_interactions.dme"

mods/_fd/immersive_sounds/README.md

@@ -0,0 +1,81 @@
+
+#### Список PRов:
+
+`https://github.com/RepoStash/FD-NewBay/pull/69`
+
+<!--
+  Ссылки на PRы, связанные с модом:
+  - Создание
+  - Большие изменения
+-->
+
+<!-- Название мода. Не важно на русском или на английском. -->
+## Мод-пример
+
+ID мода: MODPACK_IMMERSIVE_SOUNDS
+<!--
+  Название модпака прописными буквами, СОЕДИНЁННЫМИ_ПОДЧЁРКИВАНИЕМ,
+  которое ты будешь использовать для обозначения файлов.
+-->
+
+### Описание мода
+
+Makes stuff from corecode emit sounds with a framework.
+
+Copyright included.
+
+<!--
+  Что он делает, что добавляет: что, куда, зачем и почему - всё здесь.
+  А также любая полезная информация.
+-->
+
+### Изменения *кор кода*
+
+- Отсутствуют
+<!--
+  Если вы редактировали какие-либо процедуры или переменные в кор коде,
+  они должны быть указаны здесь.
+  Нужно указать и файл, и процедуры/переменные.
+
+  Изменений нет - напиши "Отсутствуют"
+-->
+
+### Оверрайды
+
+Отсутствуют
+<!--
+  Если ты добавлял новый модульный оверрайд, его нужно указать здесь.
+  Здесь указываются оверрайды в твоём моде и папке `_master_files`
+
+  Изменений нет - напиши "Отсутствуют"
+-->
+
+### Дефайны
+
+Отсутствуют
+<!--
+  Если требовалось добавить какие-либо дефайны, укажи файлы,
+  в которые ты их добавил, а также перечисли имена.
+  И то же самое, если ты используешь дефайны, определённые другим модом.
+
+  Не используешь - напиши "Отсутствуют"
+-->
+
+### Используемые файлы, не содержащиеся в модпаке
+
+- `sound/machines/scrubber-active.ogg`
+<!--
+  Будь то немодульный файл или модульный файл, который не содержится в папке,
+  принадлежащей этому конкретному моду, он должен быть упомянут здесь.
+  Хорошими примерами являются иконки или звуки, которые используются одновременно
+  несколькими модулями, или что-либо подобное.
+-->
+
+### Авторы:
+
+CheBuRek017
+<!--
+  Здесь находится твой никнейм
+  Если работал совместно - никнеймы тех, кто помогал.
+  В случае порта чего-либо должна быть ссылка на источник.
+-->

mods/_fd/immersive_sounds/_immersive_sounds.dm

@@ -0,0 +1,4 @@
+/singleton/modpack/immersive_sounds
+	name = "Immersive Sounds"
+	desc = "Makes stuff from corecode do sounds. Copyright included."
+	author = "CheBuRek017"

mods/_fd/immersive_sounds/_immersive_sounds.dme

@@ -0,0 +1,13 @@
+#ifndef MODPACK_IMMERSIVE_SOUNDS
+#define MODPACK_IMMERSIVE_SOUNDS
+
+#include "_immersive_sounds.dm"
+
+#include "code/machinery.dm"
+
+#include "code/vent_pump.dm"
+#include "code/vent_scrubber.dm"
+#include "code/dev_console.dm"
+#include "code/telecomunications.dm"
+
+#endif

mods/_fd/immersive_sounds/code/dev_console.dm

@@ -0,0 +1,13 @@
+/obj/machinery/computer/modular
+	startup_sound = list('mods/_fd/immersive_sounds/sounds/SOMA/computer_fan_turn_on.ogg')
+	working_sounds = list('mods/_fd/immersive_sounds/sounds/SOMA/computer_fan_verb.ogg')
+	shutdown_sound = list('mods/_fd/immersive_sounds/sounds/SOMA/computer_fan_slowing.ogg')
+	working_volume = 15
+
+/obj/machinery/computer/modular/Process()
+	var/datum/extension/interactive/ntos/os = get_extension(src, /datum/extension/interactive/ntos)
+	if(os.on)
+		play_working_soundloop()
+	else
+		stop_working_soundloop()
+	. = ..()

mods/_fd/immersive_sounds/code/machinery.dm

@@ -0,0 +1,35 @@
+/obj/machinery
+	var/datum/sound_token/working_sound_token //autogenerated, don't touch unless you know what you're doing
+	var/working_sound_id //same as above
+
+	var/list/working_sounds //Duh looped sound
+	var/working_volume //Adjust as required
+
+	var/list/action_sound //Extra stuff, not required
+	var/startup_sound
+	var/shutdown_sound
+
+/obj/machinery/proc/play_working_soundloop()
+	if(!working_sounds)
+		return
+	if(!working_sound_token)
+		if(startup_sound)
+			playsound(src, startup_sound, (working_volume+5), TRUE)
+			addtimer(new Callback(src, PROC_REF(assign_working_sound_token), length(startup_sound)))
+		else
+			assign_working_sound_token()
+
+/obj/machinery/proc/assign_working_sound_token()
+	if(!working_sound_id)
+		working_sound_id = "[type]_[sequential_id(type)]"
+	working_sound_token = GLOB.sound_player.PlayLoopingSound(src, working_sound_id, pick(working_sounds), working_volume, 10, 1)
+	working_sound_token.SetVolume(working_volume)
+
+/obj/machinery/proc/stop_working_soundloop()
+	if(working_sound_token)
+		QDEL_NULL(working_sound_token)
+		if(shutdown_sound)
+			playsound(src, shutdown_sound, working_volume+5, 5)
+
+/obj/machinery/proc/play_action_sound()
+	playsound(src, (pick(action_sound)), (working_volume+15), TRUE)

mods/_fd/immersive_sounds/code/telecomunications.dm

@@ -0,0 +1,17 @@
+/obj/machinery/telecomms
+	working_sounds = list('mods/_fd/immersive_sounds/sounds/SOMA/server_loop_01.ogg', 'mods/_fd/immersive_sounds/sounds/SOMA/server_loop_02.ogg', 'mods/_fd/immersive_sounds/sounds/SOMA/server_loop_03.ogg')
+	action_sound = list('mods/_fd/immersive_sounds/sounds/SOMA/server_movement_02.ogg', 'mods/_fd/immersive_sounds/sounds/SOMA/server_movement_03.ogg', 'mods/_fd/immersive_sounds/sounds/SOMA/server_movement_04.ogg', 'mods/_fd/immersive_sounds/sounds/SOMA/server_movement_05.ogg')
+	startup_sound = list('mods/_fd/immersive_sounds/sounds/SOMA/server_switch_start_01.ogg', 'mods/_fd/immersive_sounds/sounds/SOMA/server_lever_reset_01.ogg')
+	working_volume = 3
+
+/obj/machinery/telecomms/Process()
+	..()
+	if(on && !(GET_FLAGS(stat, MACHINE_STAT_EMPED)) && !(integrity <= 0))
+		play_working_soundloop()
+	else
+		stop_working_soundloop()
+
+/obj/machinery/telecomms/receive_information()
+	if(on)
+		addtimer(new Callback(src, PROC_REF(play_action_sound), rand(10,100)))
+	..()

mods/_fd/immersive_sounds/code/vent_pump.dm

@@ -0,0 +1,12 @@
+/obj/machinery/atmospherics/unary/vent_pump
+	working_sounds = list('mods/_fd/immersive_sounds/sounds/SOMA/vent_loop.ogg')
+	working_volume = 3
+
+/obj/machinery/atmospherics/unary/vent_pump/Process()
+	if (hibernate > world.time) //sorry
+		return 1
+	if(can_pump())
+		play_working_soundloop()
+	else
+		stop_working_soundloop()
+	. = ..()

mods/_fd/immersive_sounds/code/vent_scrubber.dm

@@ -0,0 +1,12 @@
+/obj/machinery/atmospherics/unary/vent_scrubber
+	working_sounds = list('sound/machines/scrubber-active.ogg')
+	working_volume = 3
+
+/obj/machinery/atmospherics/unary/vent_scrubber/Process()
+	if (hibernate > world.time) //lummox forgive me
+		return 1
+	if(use_power || !(inoperable()))
+		play_working_soundloop()
+	else
+		stop_working_soundloop()
+	. = ..()

mods/_fd/immersive_sounds/sounds/SOMA/licenses.txt

@@ -0,0 +1,89 @@
+This license is copied below, and is also available with a FAQ at:
+http://scripts.sil.org/OFL
+
+-----------------------------------------------------------
+SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007
+-----------------------------------------------------------
+
+PREAMBLE
+The goals of the Open Font License (OFL) are to stimulate worldwide
+development of collaborative font projects, to support the font
+creation efforts of academic and linguistic communities, and to
+provide a free and open framework in which fonts may be shared and
+improved in partnership with others.
+
+The OFL allows the licensed fonts to be used, studied, modified and
+redistributed freely as long as they are not sold by themselves. The
+fonts, including any derivative works, can be bundled, embedded,
+redistributed and/or sold with any software provided that any reserved
+names are not used by derivative works. The fonts and derivatives,
+however, cannot be released under any other type of license. The
+requirement for fonts to remain under this license does not apply to
+any document created using the fonts or their derivatives.
+
+DEFINITIONS
+"Font Software" refers to the set of files released by the Copyright
+Holder(s) under this license and clearly marked as such. This may
+include source files, build scripts and documentation.
+
+"Reserved Font Name" refers to any names specified as such after the
+copyright statement(s).
+
+"Original Version" refers to the collection of Font Software
+components as distributed by the Copyright Holder(s).
+
+"Modified Version" refers to any derivative made by adding to,
+deleting, or substituting -- in part or in whole -- any of the
+components of the Original Version, by changing formats or by porting
+the Font Software to a new environment.
+
+"Author" refers to any designer, engineer, programmer, technical
+writer or other person who contributed to the Font Software.
+
+PERMISSION & CONDITIONS
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of the Font Software, to use, study, copy, merge, embed,
+modify, redistribute, and sell modified and unmodified copies of the
+Font Software, subject to the following conditions:
+
+1) Neither the Font Software nor any of its individual components, in
+Original or Modified Versions, may be sold by itself.
+
+2) Original or Modified Versions of the Font Software may be bundled,
+redistributed and/or sold with any software, provided that each copy
+contains the above copyright notice and this license. These can be
+included either as stand-alone text files, human-readable headers or
+in the appropriate machine-readable metadata fields within text or
+binary files as long as those fields can be easily viewed by the user.
+
+3) No Modified Version of the Font Software may use the Reserved Font
+Name(s) unless explicit written permission is granted by the
+corresponding Copyright Holder. This restriction only applies to the
+primary font name as presented to the users.
+
+4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font
+Software shall not be used to promote, endorse or advertise any
+Modified Version, except to acknowledge the contribution(s) of the
+Copyright Holder(s) and the Author(s) or with their explicit written
+permission.
+
+5) The Font Software, modified or unmodified, in part or in whole,
+must be distributed entirely under this license, and must not be
+distributed under any other license. The requirement for fonts to
+remain under this license does not apply to any document created using
+the Font Software.
+
+TERMINATION
+This license becomes null and void if any of the above conditions are
+not met.
+
+DISCLAIMER
+THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
+OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE
+COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
+DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM
+OTHER DEALINGS IN THE FONT SOFTWARE.