Log the saving process and skip methods

Author: EttyKitty

scripts/scr_save/scr_save.gml

@@ -17,7 +17,9 @@ function ini_encode_and_json_advanced(ini_area, ini_code, value){
 function scr_save(save_part,save_id) {
 	var t1 = get_timer();
 	try{
+		log_message($"Saving to slot {save_id} - started!");
 		if (save_part=1) or (save_part=0){
+			log_message($"Saving to slot {save_id} - part {save_part} started!");
 			var t=date_current_datetime();
 			var month=date_get_month(t);
 			var day=date_get_day(t);
@@ -28,6 +30,7 @@ function scr_save(save_part,save_id) {
 			if (hour=0) then hour=12;
 			var mahg=minute;
 			if (mahg<10) then minute=$"0{mahg}";
+			log_message($"Saving to slot {save_id} - vars are assigned!");
 
 			obj_saveload.GameSave.Save = {
 				chapter_name: global.chapter_name,
@@ -49,6 +52,7 @@ function scr_save(save_part,save_id) {
 				en_fleets: instance_number(obj_en_fleet),
 				sod: random_get_seed(),
 			}
+			log_message($"Saving to slot {save_id} - GameSave struct created!");
 
 			/// STARS
 			var num=instance_number(obj_star);
@@ -57,17 +61,20 @@ function scr_save(save_part,save_id) {
 				var star_json = star_obj.serialize();
 				array_push(obj_saveload.GameSave.Stars, star_json);
 			}
+			log_message($"Saving to slot {save_id} - stars are serialized and stored!");
 		}
 
 
 		if (save_part=2) or (save_part=0){
+			log_message($"Saving to slot {save_id} - part {save_part} started!");
 			// PLAYER FLEET OBJECTS
 			var num = instance_number(obj_p_fleet);
 			for (var i=0; i<num; i+=1){
 				var fleet_obj = instance_find(obj_p_fleet,i);
 				var obj_p_fleet_json = fleet_obj.serialize();
 				array_push(obj_saveload.GameSave.PlayerFleet, obj_p_fleet_json);
 			}
+			log_message($"Saving to slot {save_id} - player fleets are serialized and stored!");
 
 			// ENEMY FLEET OBJECTS
 			obj_saveload.GameSave.EnemyFleet = [];
@@ -77,20 +84,26 @@ function scr_save(save_part,save_id) {
 				var obj_en_fleet_json = fleet_obj.serialize();
 				array_push(obj_saveload.GameSave.EnemyFleet, obj_en_fleet_json);
 			}
+			log_message($"Saving to slot {save_id} - enemy fleets are serialized and stored!");
 		}
 
 
 		if (save_part=3) or (save_part=0){
+			log_message($"Saving to slot {save_id} - part {save_part} started!");
 			var obj_controller_json = obj_controller.serialize();
 			obj_saveload.GameSave.Controller = obj_controller_json;
+			log_message($"Saving to slot {save_id} - obj_controller is serialized and stored!");
 		}
 
 		if (save_part=4) or (save_part=0){
+			log_message($"Saving to slot {save_id} - part {save_part} started!");
 			var obj_ini_json = obj_ini.serialize();
 			obj_saveload.GameSave.Ini = obj_ini_json;
+			log_message($"Saving to slot {save_id} - obj_ini is serialized and stored!");
 		}
 
 		if (save_part=5) or (save_part=0){
+			log_message($"Saving to slot {save_id} - part {save_part} started!");
 			// TODO Event log somehow
 			instance_activate_object(obj_event_log);
 			obj_saveload.GameSave.EventLog = obj_event_log.event;
@@ -114,6 +127,7 @@ function scr_save(save_part,save_id) {
 			ini_write_real(string(save_id),"time",obj_controller.play_time);
 			ini_write_real(string(save_id),"seed",global.game_seed);
 			ini_close();
+			log_message($"Saving to slot {save_id} - saves.ini saving complete!");
 
 			obj_saveload.save[save_id]=1;
 
@@ -124,7 +138,8 @@ function scr_save(save_part,save_id) {
 
 			buffer_write(_gamesave_buffer, buffer_string, _gamesave_string);
 			buffer_save(_gamesave_buffer, filename);
-			buffer_delete(_gamesave_buffer)
+			buffer_delete(_gamesave_buffer);
+			log_message($"Saving to slot {save_id} - GameSave struct conversion complete!");
 		}
 
 
@@ -135,5 +150,5 @@ function scr_save(save_part,save_id) {
 	var t2 = get_timer();
 
 	var diff = t2 - t1;
-	show_debug_message($"scr_save save_part {save_part} took {diff} microseconds");
+	log_message($"scr_save save_part {save_part} took {diff} microseconds");
 }

scripts/scr_serialization_functions/scr_serialization_functions.gml

@@ -16,6 +16,10 @@ function copy_serializable_fields(_source, _destination, _exclude = [], _exclude
 		var _field_name = _all_names[i];
 		var _field_value = _source[$ _field_name];
 
+		if (is_method(_field_value)) {
+			continue;
+		}
+
 		if (array_contains(_exclude, _field_name)) {
 			continue; // excluded by the full name
 		}
@@ -31,17 +35,17 @@ function copy_serializable_fields(_source, _destination, _exclude = [], _exclude
 		if (is_basic_variable(_field_value)) {
 			variable_struct_set(_destination, _field_name, _field_value);
 		}
-
+		
 		if (is_array(_field_value)) {
 			if (!is_basic_array(_field_value, 2)) {
 				var _source_obj_name = struct_exists(_source, "object_index") ? object_get_name(_source.object_index) : "<non-instance>";
-				log_warning($"Bad array save: '{_field_name}' internal type found was not a simple type and should probably have it's own serialize function - {_source_obj_name}");
+				log_warning($"Bad array save: '{_field_name}' internal type found was not a simple type and should probably have it's own serialize function - {_source_obj_name}!");
 			} else {
 				variable_struct_set(_destination, _field_name, _field_value);
 			}
 		} else if (is_struct(_field_value) && !struct_exists(_destination, _field_name)) {
 			var _source_obj_name = struct_exists(_source, "object_index") ? object_get_name(_source.object_index) : "<non-instance>";
-			log_warning($"obj_ini.serialze() - {_source_obj_name} - object contains struct variable '{_field_name}' which has not been serialized. \n\tEnsure that serialization is written into the serialize and deserialization function if it is needed for this value, or that the variable is added to the ignore list to suppress this warning");
+			log_warning($"obj_ini.serialze() - {_source_obj_name} - object contains struct variable '{_field_name}' which has not been serialized. \n\tEnsure that serialization is written into the serialize and deserialization function if it is needed for this value, or that the variable is added to the ignore list to suppress this warning!");
 		}
 	}
 }