Datapack export added option to let other players in radius hear music too

Author: HielkeMaps

scripts/control_create/control_create.gml

@@ -276,6 +276,9 @@ dat_obj = ""
 dat_tempo = 0
 dat_source = "block"
 dat_includelocked = 0
+dat_enableradius = 0
+dat_radius = 16
+dat_radiusvalue = 0
 
 // Settings
 load_settings()

scripts/dat_generate/dat_generate.gml

@@ -1,4 +1,4 @@
-//Generate_song(name)
+//dat_generate(name)
 //Returns: string
 var o, objective, str, note, instrument, pitch, tick, source, name
 o = obj_controller
@@ -17,7 +17,8 @@ for (a = 0; a <= o.enda; a ++) {
 	                pitch = dat_pitch(o.song_key[a, b])
 
 					//Add command to result
-					str += "playsound "+ instrument +" "+source+" @s[scores={"+objective+"="+string(tick)+"}] ~ ~ ~ 1000000 "+ string(pitch) + br	
+					if(o.dat_enableradius) str += "execute at @s[scores={"+objective+"="+string(tick)+"}] run playsound "+ instrument +" "+source+" @a ~ ~ ~ " + string(o.dat_radiusvalue) + " " + string(pitch) + br 
+					else str += "playsound "+ instrument +" "+source+" @s[scores={"+objective+"="+string(tick)+"}] ~ ~ ~ 1 "+ string(pitch) + " 1" + br	
 	            }
 	        }
 		}			 

scripts/datapack_export/datapack_export.gml

@@ -61,7 +61,8 @@ with (new(obj_dummy2)) {
     buffer_delete(file)
 
 	//tick.mcfunction
-	inputString = "execute as @a[tag=play" + randomId + "] at @s run function " + name + ":playing"
+	if(o.dat_enableradius) inputString = "execute as @a[tag=play" + randomId + "] run function " + name + ":playing"
+	else inputString = "execute as @a[tag=play" + randomId + "] at @s run function " + name + ":playing"
 	file = buffer_create(string_length(inputString), buffer_fixed, 1)
 	buffer_write(file,buffer_text,inputString)
 	buffer_export(file,functiondir + "tick.mcfunction")

scripts/draw_window_datapack_export/draw_window_datapack_export.gml

@@ -38,9 +38,21 @@ if (draw_radiobox(x1 + 212, y1 + 305, dat_tempo = 5, "4 ticks / second", "Genera
 if (draw_radiobox(x1 + 212, y1 + 325, dat_tempo = 6, "3.33 ticks / second", "Generate song at 3.33 ticks / second")) dat_tempo = 6
 if (draw_radiobox(x1 + 212, y1 + 345, dat_tempo = 7, "2.86 ticks / second", "Generate song at 2.86 ticks / second")) dat_tempo = 7
 if (draw_radiobox(x1 + 212, y1 + 365, dat_tempo = 8, "2.5 ticks / second", "Generate song at 2.5 ticks / second")) dat_tempo = 8
-	
+
+//Locked layers
 if (draw_checkbox(x1 + 390, y1 + 225, dat_includelocked, "Include locked layers", "Whether to include locked layers in the Datapack.")) dat_includelocked=!dat_includelocked
 
+//Radius
+if (draw_checkbox(x1 + 390, y1 + 250, dat_enableradius, "Nearby players hear"+br+"music too", "Whether to let all players in a given radius"+br+"hear the music as well")) dat_enableradius = !dat_enableradius
+if(dat_enableradius) { 
+	dat_radius = median(16, draw_dragvalue(3, x1 + 500, y1 + 285, dat_radius, 2),100000) 
+	dat_radiusvalue = 1 + (dat_radius - 16) * 0.06
+}
+else draw_set_color(c_gray) draw_text(x1 + 500, y1 + 285, dat_radius)
+draw_text(x1 + 390, y1 + 285, "Radius (in blocks):")
+popup_set_window(x1 + 390, y1 + 281, 125, 21, "The radius of which players will hear the music")
+draw_theme_color()
+
 //Submit button
 if (draw_button2(x1 + 470, y1 + 368, 72, "Export", false)) {
 	if(string_replace_all(dat_name," ", "") != "" ){