Audio emitters removed after being played to prevent memory leak

Author: HielkeMaps

Minecraft Note Block Studio.yyp

@@ -268,6 +268,7 @@ ds_list_add(instrument_list, new_instrument("Pling",         "pling.ogg", false)
 instrument = instrument_list[| 0]
 first_custom_index = ds_list_size(instrument_list)
 user_instruments = 0
+emitters_to_remove = ds_list_create()
 
 // Initialize instruments
 str = ""

scripts/control_create/control_create.gml

@@ -17,6 +17,8 @@ if (delay > 0) delay -= 1 / (room_speed / 20)
 if (delay < 0) delay = 0
 work_mins += 1 / (room_speed * 60)
 
+remove_emitters()
+
 if (selected = 0) {
 	if((tempo = 10 || tempo = 5 ||tempo = 2.5) && (block_outside = 0 && block_custom = 0))compatible = 1
 	else if ((tempo = 20 || tempo = 6.66 || tempo = 4|| tempo = 3.33 || tempo = 2.86) && (block_outside = 0 && block_custom = 0))compatible = 2

scripts/control_draw/control_draw.gml

@@ -4,7 +4,7 @@
 /// @param  key
 /// @param  volume
 
-var ins, key, vol, pan;
+var ins, key, vol, pan, newemitter, emitter
 ins = argument0
 key = argument1
 vol = argument2
@@ -18,4 +18,10 @@ audio_emitter_gain(emitter, vol)
 if (realstereo = 0) audio_emitter_position(emitter,pan,0,0)
 else audio_emitter_position(emitter,100,0,0)
 
-audio_play_sound_on(emitter,ins.sound, 0, 0)
+audio_play_sound_on(emitter,ins.sound, 0, 0)
+
+//Schedule emitter to be deleted from memory
+newemitter = ds_list_create()
+ds_list_add(newemitter,emitter) //store emitter id
+ds_list_add(newemitter, (audio_sound_length(ins.sound) * 600000) + get_timer()) //store moment of which the emitter should be removed
+ds_list_add(emitters_to_remove, newemitter)

scripts/play_sound/play_sound.gml

@@ -0,0 +1,16 @@
+//Called from control_draw every frame
+//Removes emitters from memory to prevent memory leaking
+var pos, arr, emitterid, timetoremove
+
+for(pos = 0; pos < ds_list_size(emitters_to_remove); pos++){
+	arr = ds_list_find_value(emitters_to_remove,pos)
+	
+	emitterid = ds_list_find_value(arr,0)
+	timetoremove = ds_list_find_value(arr,1)
+	
+	if(get_timer() >= timetoremove){
+		ds_list_delete(emitters_to_remove,pos)
+		audio_emitter_free(emitterid)
+		//log("freeing emitter with id " + string(emitterid))
+	}
+}