dialog active shade opacity is now a setting

Author: DragoniteSpam

scripts/EmuDialog/EmuDialog.gml

@@ -13,7 +13,7 @@ function EmuDialog(w, h, title) : EmuCallback(0, 0, w, h, 0, 0) constructor {
 
     self.text = title;
 
-    self.active_shade = true;
+    self.active_shade = EMU_DIALOG_SHADE_ALPHA;
     self.close_button = true;
 
     self.changed = false;
@@ -103,8 +103,8 @@ function EmuDialog(w, h, title) : EmuCallback(0, 0, w, h, 0, 0) constructor {
         var cby2 = y1 + sprite_get_height(sprite_close);
 
         // tint the screen behind the active dialog (but only once per frame)
-        if (active && !!active_shade && (drawn_dialog_shade_time != current_time)) {
-            draw_set_alpha(EMU_DIALOG_SHADE_ALPHA);
+        if (active && (drawn_dialog_shade_time != current_time)) {
+            draw_set_alpha(self.active_shade);
             draw_rectangle_colour(0, 0, window_get_width(), window_get_height(), EMU_DIALOG_SHADE_COLOR, EMU_DIALOG_SHADE_COLOR, EMU_DIALOG_SHADE_COLOR, EMU_DIALOG_SHADE_COLOR, false);
             draw_set_alpha(1);
             drawn_dialog_shade_time = current_time;

scripts/dialog_create_preferences/dialog_create_preferences.gml

@@ -80,6 +80,7 @@ function dialog_create_preferences() {
 
     element = new EmuProgressBar(col1_x, EMU_AUTO, ew, eh, 8, 0, 1, true, Settings.config.focus_alpha, function() {
         Settings.config.focus_alpha = self.value;
+        self.root.active_shade = self.value;
     });
     element.tooltip = "The opacity behind the active dialog box. Not all dialog boxes may show the opacity, although most will.";
     dg.AddContent(element);

scripts/emu_init_customized/emu_init_customized.gml

@@ -18,7 +18,8 @@
 // !
 #macro EMU_COLOR_WINDOWSKIN Settings.config.color
 
-#macro EMU_DIALOG_SHADE_ALPHA 0.5
+// !
+#macro EMU_DIALOG_SHADE_ALPHA Settings.config.focus_alpha
 #macro EMU_DIALOG_SHADE_COLOR 0x000000
 
 #macro EMU_FONT_DEFAULT FDefault12