Pixel-Composer/scripts/sprite_loader/sprite_loader.gml

function __initTheme() {
	var root = DIRECTORY + "Themes";
	if(!directory_exists(root))
		directory_create(root);
			
	var _l = root + "/version";
	if(file_exists(_l)) {
		var res = json_load_struct(_l);
		//if(res.version == BUILD_NUMBER) return;
	}
	json_save_struct(_l, { version: BUILD_NUMBER });
	
	log_message("THEME", "unzipping default theme to DIRECTORY.");
	zip_unzip("data/themes/default.zip", root);
}

function _sprite_path(rel, theme) {
	return DIRECTORY + "themes/" + theme + "/graphics/" + string_replace_all(rel, "./", "");
}

function _sprite_load_from_struct(str, theme, key) {
	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; 
}

function __getGraphicList() {
	var path = _sprite_path("./graphics.json", "default");
	var s = file_text_read_all(path);
	return json_try_parse(s);
}

function loadGraphic(theme = "default") {
	var sprDef = __getGraphicList();
	var path = _sprite_path("./graphics.json", theme);
	
	if(!file_exists(path)) {
		noti_status("Theme not defined at " + path + ", rollback to default theme.");	
		return;
	}
	
	var s = file_text_read_all(path);
	var graphics = variable_struct_get_names(sprDef);
	var sprStr = json_try_parse(s);
	
	for( var i = 0, n = array_length(graphics); i < n; i++ ) {
		var key = graphics[i];
		
		if(variable_struct_exists(sprStr, key)) {
			var str = variable_struct_get(sprStr, key);
			variable_struct_set(THEME, key, _sprite_load_from_struct(str, theme, key));
		} else {
			noti_status("Graphic resource for " + string(key) + " not found. Rollback to default directory.");
			
			var str = variable_struct_get(sprDef, key);
			variable_struct_set(THEME, key, _sprite_load_from_struct(str, "default", key));
		}
	}
}