Pixel-Composer/scripts/sprite_loader/sprite_loader.gml

function __initTheme() { #region
	var root = DIRECTORY + "Themes";
	
	directory_verify(root);
	if(check_version($"{root}/version")) {
		log_message("THEME", $"unzipping default theme to {root}.");
		zip_unzip("data/themes/default.zip", root);
	}
	
	loadGraphic(PREFERENCES.theme);
	loadColor(PREFERENCES.theme);
} #endregion

function _sprite_path(rel, theme) { #region
	INLINE
	
	return $"{DIRECTORY}Themes/{theme}/graphics/{string_replace_all(rel, "./", "")}";
} #endregion

function _sprite_load_from_struct(str, theme, key) { #region
	INLINE
	
	var path = _sprite_path(str.path, theme);
	var s    = sprite_add(path, str.subimages, false, true, str.xorigin, str.yorigin);
	
	if(str.slice) {
		var slice = sprite_nineslice_create();	
		slice.enabled = str.slice.enabled;
		slice.left    = str.slice.left;
		slice.right   = str.slice.right;
		slice.top     = str.slice.top;
		slice.bottom  = str.slice.bottom;
		
		if(struct_has(str.slice, "tilemode"))
			slice.tilemode = str.slice.tilemode;
		
		if(s >= 0) sprite_set_nineslice(s, slice);
		else log_message("THEME", $"Load sprite {path} failed.");
	}
	return s; 
} #endregion

function __getGraphicList() { #region
	INLINE
	
	var path = _sprite_path("./graphics.json", "default");
	var s = file_read_all(path);
	return json_try_parse(s);
} #endregion

function loadGraphic(theme = "default") { #region
	var sprDef = __getGraphicList();
	var _metaP = $"{DIRECTORY}Themes/{theme}/meta.json";
	
	if(!file_exists_empty(_metaP))
		noti_warning("Loading theme made for older version.");
	else {
		var _meta = json_load_struct(_metaP);
		if(_meta[$ "version"] < VERSION)
			noti_warning("Loading theme made for older version.");
	}
		
	var path   = _sprite_path("./graphics.json", theme);
	
	print($"Loading theme {theme}");
	if(!file_exists_empty(path)) {
		print("Theme not defined at " + path + ", rollback to default theme.");	
		return;
	}
	
	var s        = file_read_all(path);
	var graphics = variable_struct_get_names(sprDef);
	var sprStr   = json_try_parse(s);
	var str;
	
	for( var i = 0, n = array_length(graphics); i < n; i++ ) {
		var key = graphics[i];
			
		if(struct_has(sprStr, key)) {
			str = sprStr[$ key];
			THEME[$ key] = _sprite_load_from_struct(str, theme, key);
		} else {
			noti_status($"Graphic resource for {key} not found. Rollback to default directory.");
			
			str = sprDef[$ key];
			THEME[$ key] = _sprite_load_from_struct(str, "default", key);
		}
	}
} #endregion