update lua scripts

see changes at https://git.odrling.xyz/odrling/amoegisub

automation/autoload/clean-k-tags.lua

@@ -0,0 +1,25 @@
+local tr = aegisub.gettext
+
+script_name = tr"Clean k tags"
+script_description = tr"Remove double k tags"
+script_author = "amoethyst"
+script_version = "1.0"
+
+function special_k(subs, sel)
+
+    -- if the first tag is K/kf this would break the timing for the previous timing
+    local expr = "^(.-){\\(ko?)([0-9.]*)[^}]-}([^{]-){\\[kK][fo]?([0-9.]*)[^}]-}( -{(\\[kK][fo]?)[0-9.]*[^}]-}.*)$"
+
+    for _, i in ipairs(sel) do
+        line = subs[i]
+        before, tag, k1, between, k2, after = line.text:match(expr)
+        while after ~= nil do
+            line.text = before .. "{\\" .. tag .. tonumber(k1) + tonumber(k2) .. "}" .. between .. after
+            subs[i] = line
+            before, tag, k1, between, k2, after = line.text:match(expr)
+        end
+    end
+
+end
+
+aegisub.register_macro(script_name, script_description, special_k)

automation/autoload/duetto-meika.lua

@@ -149,9 +149,7 @@ function deduetto_meika(subs, sel)
                     bracketed = bracketed:gsub("\\f[sn][^\\}]*", "")
 
                     -- add style marker
-                    if line.style ~= script_style.name then
-                        bracketed = "{s:" .. script_style.name .. bracketed:sub(2, #bracketed)
-                    end
+                    bracketed = "{s:" .. script_style.name .. bracketed:sub(2, #bracketed)
                     line.text = line.text:sub(1, match_start-1) .. bracketed ..  line.text:sub(match_end + 1, #line.text)
                 end
             end

automation/autoload/karaoke-adjust-1sec.lua

@@ -110,6 +110,7 @@ function mugenizer(subs)
             line.fontname = "Arial"
             line.fontsize = "24"
             line.outline = "1.5"
+            line.shadow = "0"
             line.margin_l = "15"
             line.margin_r = "15"
             line.margin_t = "20"