Makes it possible to define custom ambiance music for holodeck programs.

Cleans up holodeck code. Revives an old SS13 track, THUNDERDOME!

code/modules/holodeck/HolodeckControl.dm

@@ -1,21 +1,3 @@
-var/global/list/holodeck_programs = list(
-	"emptycourt" = /area/holodeck/source_emptycourt,		\
-	"boxingcourt" =	/area/holodeck/source_boxingcourt,	\
-	"basketball" =	/area/holodeck/source_basketball,	\
-	"thunderdomecourt" =	/area/holodeck/source_thunderdomecourt,	\
-	"beach" =	/area/holodeck/source_beach,	\
-	"desert" =	/area/holodeck/source_desert,	\
-	"space" =	/area/holodeck/source_space,	\
-	"picnicarea" = /area/holodeck/source_picnicarea,	\
-	"snowfield" =	/area/holodeck/source_snowfield,	\
-	"theatre" =	/area/holodeck/source_theatre,	\
-	"meetinghall" =	/area/holodeck/source_meetinghall,	\
-	"courtroom" =	/area/holodeck/source_courtroom,	\
-	"burntest" = 	/area/holodeck/source_burntest,	\
-	"wildlifecarp" = 	/area/holodeck/source_wildlife,	\
-	"turnoff" = 	/area/holodeck/source_plating	\
-	)
-
 /obj/machinery/computer/HolodeckControl
 	name = "holodeck control console"
 	desc = "A computer used to control a nearby holodeck."
@@ -113,9 +95,7 @@ var/global/list/holodeck_programs = list(
 		if(href_list["program"])
 			var/prog = href_list["program"]
 			if(prog in holodeck_programs)
-				target = locate(holodeck_programs[prog])
-				if(target)
-					loadProgram(target)
+				loadProgram(holodeck_programs[prog])
 
 		else if(href_list["AIoverride"])
 			if(!issilicon(usr))
@@ -172,10 +152,6 @@ var/global/list/holodeck_programs = list(
 /obj/machinery/computer/HolodeckControl/New()
 	..()
 	linkedholodeck = locate(/area/holodeck/alphadeck)
-	//if(linkedholodeck)
-	//	target = locate(/area/holodeck/source_emptycourt)
-	//	if(target)
-	//		loadProgram(target)
 
 //This could all be done better, but it works for now.
 /obj/machinery/computer/HolodeckControl/Del()
@@ -225,9 +201,7 @@ var/global/list/holodeck_programs = list(
 
 		if(!checkInteg(linkedholodeck))
 			damaged = 1
-			target = locate(/area/holodeck/source_plating)
-			if(target)
-				loadProgram(target)
+			loadProgram(holodeck_programs["turnoff"], 0)
 			active = 0
 			use_power = 1
 			for(var/mob/M in range(10,src))
@@ -268,46 +242,33 @@ var/global/list/holodeck_programs = list(
 
 //Why is it called toggle if it doesn't toggle?
 /obj/machinery/computer/HolodeckControl/proc/togglePower(var/toggleOn = 0)
-
 	if(toggleOn)
-		var/area/targetsource = locate(/area/holodeck/source_emptycourt)
-		holographic_objs = targetsource.copy_contents_to(linkedholodeck)
-
-		spawn(30)
-			for(var/obj/effect/landmark/L in linkedholodeck)
-				if(L.name=="Atmospheric Test Start")
-					spawn(20)
-						var/turf/T = get_turf(L)
-						var/datum/effect/effect/system/spark_spread/s = new /datum/effect/effect/system/spark_spread
-						s.set_up(2, 1, T)
-						s.start()
-						if(T)
-							T.temperature = 5000
-							T.hotspot_expose(50000,50000,1)
-
-		active = 1
-		use_power = 2
+		loadProgram(holodeck_programs["emptycourt"], 0)
 	else
-		for(var/item in holographic_objs)
-			derez(item)
+		loadProgram(holodeck_programs["turnoff"], 0)
+
 		if(!linkedholodeck.has_gravity)
 			linkedholodeck.gravitychange(1,linkedholodeck)
 
-		var/area/targetsource = locate(/area/holodeck/source_plating)
-		targetsource.copy_contents_to(linkedholodeck , 1)
 		active = 0
 		use_power = 1
 
 
-/obj/machinery/computer/HolodeckControl/proc/loadProgram(var/area/A)
+/obj/machinery/computer/HolodeckControl/proc/loadProgram(var/datum/holodeck_program/HP, var/check_delay = 1)
+	if(!HP)
+		return
+	var/area/A = locate(HP.target)
+	if(!A)
+		return
 
-	if(world.time < (last_change + 25))
-		if(world.time < (last_change + 15))//To prevent super-spam clicking, reduced process size and annoyance -Sieve
-			return
-		for(var/mob/M in range(3,src))
-			M.show_message("\b ERROR. Recalibrating projection apparatus.")
-			last_change = world.time
-			return
+	if(check_delay)
+		if(world.time < (last_change + 25))
+			if(world.time < (last_change + 15))//To prevent super-spam clicking, reduced process size and annoyance -Sieve
+				return
+			for(var/mob/M in range(3,src))
+				M.show_message("\b ERROR. Recalibrating projection apparatus.")
+				last_change = world.time
+				return
 
 	last_change = world.time
 	active = 1
@@ -327,6 +288,15 @@ var/global/list/holodeck_programs = list(
 	for(var/obj/holo_obj in holographic_objs)
 		holo_obj.alpha *= 0.8 //give holodeck objs a slight transparency
 
+	if(HP.ambience)
+		linkedholodeck.forced_ambience = HP.ambience
+	else
+		linkedholodeck.forced_ambience = initial(linkedholodeck.ambience)
+
+	for(var/mob/living/M in mobs_in_area(linkedholodeck))
+		if(M.mind)
+			linkedholodeck.play_ambience(M)
+
 	spawn(30)
 		for(var/obj/effect/landmark/L in linkedholodeck)
 			if(L.name=="Atmospheric Test Start")
@@ -367,21 +337,11 @@ var/global/list/holodeck_programs = list(
 		A.gravitychange(1,A)
 
 /obj/machinery/computer/HolodeckControl/proc/emergencyShutdown()
-	//Get rid of any items
-	for(var/item in holographic_objs)
-		derez(item)
-	for(var/mob/living/simple_animal/hostile/carp/holodeck/C in holographic_mobs)
-		holographic_mobs -= C
-		C.derez()
 	//Turn it back to the regular non-holographic room
-	target = locate(/area/holodeck/source_plating)
-	if(target)
-		loadProgram(target)
+	loadProgram(holodeck_programs["turnoff"], 0)
 
 	if(!linkedholodeck.has_gravity)
 		linkedholodeck.gravitychange(1,linkedholodeck)
 
-	var/area/targetsource = locate(/area/holodeck/source_plating)
-	targetsource.copy_contents_to(linkedholodeck , 1)
 	active = 0
 	use_power = 1